var a, b, c, d, e, f, g, h, i, j : int
proc background
drawfillbox (0, 0, maxx, maxy, 68)
%Top holes
drawfilloval (280, 310, 75, 55, black) %hole #1
drawfilloval (510, 310, 75, 55, black) %hole #2
%Bottom holes
drawfilloval (175, 150, 75, 55, black) %hole #1
drawfilloval (400, 150, 75, 55, black) %hole #2
drawfilloval (620, 150, 75, 55, black) %hole #3.
end background
proc mole1
drawfilloval (175, 145, 50, 50, 53) %body
end mole1
proc mole2
drawfilloval (400, 145, 50, 50, 53) %body
end mole2
proc mole3
drawfilloval (620, 145, 50, 50, 53) %body
end mole3
proc mole4
drawfilloval (510, 305, 50, 50, 53) %body
end mole4
proc mole5
drawfilloval (280, 305, 50, 50, 53) %body
end mole5
loop
background
randint (e, 200, 500)
randint (f, 200, 500)
mole3
delay (e)
delay (f)
background
randint (a, 500, 2000)
randint (b, 500, 2000)
mole1
mole2
delay (a)
delay (b)
background
randint (g, 70, 900)
randint (h, 70, 900)
mole4
mole5
delay (g)
delay (h)
background
randint (c, 300, 1000)
randint (d, 300, 1000)
mole2
delay (c)
delay (d)
background
randint (i, 300, 1000)
randint (j, 300, 1000)
mole5
delay (i)
delay (j)
end loop
|