-----------------------------------

r.m_spy

Mon Dec 10, 2007 7:07 am


bad movie

-----------------------------------

var w:int:=10
var u:int
procedure dodo
var x:=10
var y:=10
 u:=100
var v:int:=100
 w:=100
loop
cls
drawfillbox(x,y,x+10,y+10,brightred)
drawfillbox(1,100,100,110,grey)
drawfillbox(u,40,u+10,30,blue)
drawfillbox(u,70,u+10,80,blue)
drawfillbox(v,50,v+10,60,blue)
drawfillbox(w,10,w+10,0,blue)
drawfillbox(w,90,w+10,80,blue)
drawfillbox(w,10,w+10,0,blue)
drawfillbox(w,50,w+10,60,blue)
drawfillbox(100,1,110,100,black)
delay(50)
if u=20 and y>40 then
y:=y+10
u:=u-10
v:=v-5
w:=w-2
elsif v=15 and y