Tropical

[Peter]

Hello,
Do you know jungle Sirpinski? 

Code: [Select]

include "asm.inc"
window 800,600,1

single a, b, k, r
sys  x1=400 ,x2=400,y1 ,y2

loadSprite "bmp/plant.bmp",1

for k=0 to 10000
r = rand(0,2)
if r=0 then
   x1=(x2 + 400) /2
   y1=(y2 / 2)
elseif r=1 then
   x1 = (x2 / 2)
   y1 = (y2 + 600) /2
elseif r=2 then
   x1 = (x2 + 800) /2
   y1 = (y2 + 600) /2
end if
a = y1/2.4
b = x1/3.2
zSprite 1,x1,y1,32,32,0
x2 = x1
y2 = y1
next

waitkey
winExit


[attachment deleted by admin]

[Mike Lobanovsky]

Sierpinski in the Bush.