var intRand:int:=0
var intRand2:int:=0
setscreen ("nocursor")
setscreen ("graphics:505;504")
drawfill (1, 1, black, black)
for i : 23 .. 1000 by 84
drawfilloval (21, i, 20, 20, 187)
end for
for j : 23 .. 1000 by 84 %% leftside
drawfillbox (1, j + 60, 41, j + 24, blue)
end for
for i : 23 .. 1000 by 84
drawfilloval (483, i + 43, 20, 20, 3)
end for
for j : 23 .. 1000 by 84 %% rightside
drawfillbox (464, j + 104, 503, j + 66, purple)
end for
for i : 23 .. 1000 by 84
drawfilloval (i, 23, 20, 20, red)
end for
for j : 23 .. 1000 by 84 %% bottom
drawfillbox (j + 23, 42, j + 60, 4, 45)
end for
for i : 23 .. 1000 by 84
drawfilloval (i + 41, 484, 20, 19, green)
end for
for j : 23 .. 1000 by 84 %% top
drawfillbox (j + 102, 467, j + 64, 503, yellow)
end for
loop
randint (intRand,48,430)
randint (intRand2,50,435)
drawfillmapleleaf (intRand+30,intRand2+30,intRand,intRand2,purple)
drawfillmapleleaf (intRand+30,intRand2+30,intRand,intRand2, black)
delay(10)
end loop |