var pop,cap1, xo, m, yo,cap, col : int := 0

proc UFO
      drawfillbox  (500 + xo, 260 + yo, 505 +xo, 50 +yo, cap)
      drawfillbox  (500 + xo, 50 + yo, 505 +xo, 0 +yo, cap1)
drawfilloval (500 + xo, 270 + yo, 10, 10, col)
 
   drawfilloval (500 + xo, 260 + yo, 20, 10, pop)
   
end UFO

process UFO1
for j : 1 .. 600
    pop := 15
    col := 14
    cap := 14
    cap1 :=14
    UFO
    delay (10)
    pop := 16
    col := 16
    cap :=16
    cap1 :=0
    UFO
    xo := xo + 1

end for
end UFO1

var io, xop,  yop : int := 0

proc Person
    drawoval (496 + xop, 30 + yop, 6, 4, io)
    drawline (495 + xop, 25 + yop, 495 + xop, 18 + yop, io)
    drawline (495 + xop, 23 + yop, 506 + xop, 22 + yop, io)
    drawline (495 + xop, 23 + yop, 486 + xop, 20 + yop, io)
    drawline (495 + xop, 18 + yop, 501 + xop, 10 + yop, io)
    drawline (495 + xop, 18 + yop, 486 + xop, 10 + yop, io)
end Person

process Person1
    drawoval (496 + xop, 30 + yop, 6, 4, io)
    drawline (495 + xop, 25 + yop, 495 + xop, 18 + yop, io)
    drawline (495 + xop, 23 + yop, 506 + xop, 22 + yop, io)
    drawline (495 + xop, 23 + yop, 486 + xop, 20 + yop, io)
    drawline (495 + xop, 18 + yop, 501 + xop, 10 + yop, io)
    drawline (495 + xop, 18 + yop, 486 + xop, 10 + yop, io)
    delay (30)
end Person1

for j : 1 .. 600
    io := 16
    Person
    delay (10)
    io := 0
    Person
    xop := xop + 1
   
end for

       

var clr, c ,b, e: int := 0

proc dustball
for c : 1..100
drawfilloval(105 + (c + 2), 370 +(c + 2), 10, 10, 15)
delay(20)
drawfilloval(105 + (c + 2), 370 +(c + 2), 10, 10, 7)
end for
end dustball

process dustball1
for c : 1..100
drawfilloval(105 + (c + 2), 370 +(c + 2), 10, 10, 15)
delay(20)
drawfilloval(105 + (c + 2), 370 +(c + 2), 10, 10, 7)
end for
end dustball1

loop dustball
fork UFO1
fork Person1
end loop

%draw procs
proc drawObject1 (x, y : int)
    drawfillbox (x, y, x + 50, y + 50, blue)
end drawObject1

proc drawObject2 (x, y : int)
    drawfillstar (x, y, x + 50, y + 50, yellow)
end drawObject2

proc drawObject3 (x, y : int)
    drawfillmapleleaf (x, y, x + 50, y + 50, red)
end drawObject3

%use a buffer so it doesn't flicker like mad
setscreen ("offscreenonly")
var x, y := 0
loop
    %wipe screen
    drawfillbox (0, 0, maxx, maxy, black)

    %do something with x and y, yours will be different
    x += 1
    y += 1
    if (x > maxx) then
        x := 0
    end if
    if (y > maxy) then
        y := 0
    end if

    %draw them in sequence
    drawObject1 (x, y)
    drawObject2 (x - x div 2, y + y div 4)
    drawObject3 (x + x div 4, y - y div 2)

    %view.update
    View.Update
end loop