bad movie
Author |
Message |
r.m_spy
|
Posted: Mon Dec 10, 2007 7:07 am Post subject: 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<50 then
y:=y-10
u:=u-10
v:=v-5
w:=w-2
elsif w =20 and y<70 then
u:=u-10
v:=v-5
w:=w-2
y:=+y+20
else
u:=u-10
v:=v-5
w:=w-2
end if
exit when w=-10
end loop
cls
x:=10
v:=100
u:=100
y:=10
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(v,10,v+10,0,blue)
drawfillbox(u,90,u+10,80,blue)
drawfillbox(v,10,v+10,0,blue)
drawfillbox(v,50,v+10,60,blue)
drawfillbox(100,1,110,100,black)
delay(50)
x:=x+1
u:=u-10
v:=v-5
exit when v=-10
end loop
x:=10
u:=100
y:=10
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(u,50,u+10,60,blue)
drawfillbox(u,10,u+10,0,blue)
drawfillbox(u,90,u+10,80,blue)
drawfillbox(u,10,u+10,0,blue)
drawfillbox(u,50,u+10,60,blue)
drawfillbox(100,1,110,100,black)
delay(50)
x:=x+1
u:=u-10
exit when u=-10
end loop
cls
end dodo
procedure dodod
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,brightgreen)
delay(50)
x:=x+1
if u=20 and y>40 then
y:=y+10
u:=u-10
v:=v-5
w:=w-2
elsif v=15 and y<50 then
y:=y-10
u:=u-10
v:=v-5
w:=w-2
elsif w =20 and y<70 then
u:=u-10
v:=v-5
w:=w-2
y:=+y+20
else
u:=u-10
v:=v-5
w:=w-2
end if
exit when w=-10
end loop
cls
v:=100
u:=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(v,10,v+10,0,blue)
drawfillbox(u,90,u+10,80,blue)
drawfillbox(v,10,v+10,0,blue)
drawfillbox(v,50,v+10,60,blue)
drawfillbox(100,1,110,100,brightgreen)
delay(50)
x:=x+1
u:=u-10
v:=v-5
exit when v=-10
end loop
u:=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(u,50,u+10,60,blue)
drawfillbox(u,10,u+10,0,blue)
drawfillbox(u,90,u+10,80,blue)
drawfillbox(u,10,u+10,0,blue)
drawfillbox(u,50,u+10,60,blue)
drawfillbox(100,1,110,100,brightgreen)
delay(50)
x:=x+1
u:=u-10
exit when u=-10
end loop
cls
end dodod
cls
drawfillbox(10,10,20,20,brightred)
put"the adventure of box"
put"the red box loses if touched by a blue box"
put"if red box crosses the bright green line he wins"
put"ready to see him win"
get u
cls
w:=10
var i:int:=20
loop
drawfillbox(400,30,1,40,grey)
drawfillbox(i,w,i+10,w+10,brightred)
drawfillbox(110,10,120,20,blue)
drawfillbox(280,30,290,20,blue)
drawfillbox(210,10,220,30,blue)
drawfillbox(260,20,270,0,blue)
drawfillbox(360,10,370,20,blue)
drawfillbox(420,0,410,30,blue)
drawfillbox(400,30,1,40,grey)
drawfillbox(i,w,i+10,w+10,brightred)
drawfillbox(400,60,1,70,grey)
drawfillbox(200,60,210,70,white)
drawfillbox(100,60,110,70,white)
drawfillbox(300,40,310,50,blue)
drawfillbox(250,60,260,50,blue)
drawfillbox(190,60,200,40,blue)
drawfillbox(10,40,0,60,brightgreen)
delay(100)
cls
if i=100and w<20 then
w:=w+10
elsif i=200and w>0 then
w:=w-10
elsif i=250and w<20 then
w:=w+10
elsif i=270 and w>10 then
w:=w-10
elsif i=350 and w>0 then
w:=w-10
elsif i=400 and w<40 then
w:=w+10
else
i:=i+10
end if
exit when w=40
end loop
loop
delay(100)
cls
drawfillbox(400,30,1,40,grey)
drawfillbox(i,w,i+10,w+10,brightred)
drawfillbox(110,10,120,20,blue)
drawfillbox(280,30,290,20,blue)
drawfillbox(210,10,220,30,blue)
drawfillbox(260,20,270,0,blue)
drawfillbox(360,10,370,20,blue)
drawfillbox(420,0,410,30,blue)
drawfillbox(400,30,1,40,grey)
drawfillbox(400,60,1,70,grey)
drawfillbox(200,60,210,70,white)
drawfillbox(100,60,110,70,white)
drawfillbox(300,40,310,50,blue)
drawfillbox(250,60,260,50,blue)
drawfillbox(190,60,200,40,blue)
drawfillbox(i,w,i+10,w+10,brightred)
drawfillbox(10,40,0,60,brightgreen)
if i=310 and w<50 then
w:=w+10
elsif i=260 and w>40 then
w:=w-10
elsif i=200 and w<80 then
w:=w+10
elsif i=100 and w>40 then
w:=w-10
else
i:=i-10
end if
exit when i=-10
end loop
cls
delay(100)
put"level two coming targets"
delay(300)
dodo
put"green box activated"
dodod |
|
|
|
|
|
Sponsor Sponsor
|
|
|
Ultrahex
|
Posted: Mon Dec 10, 2007 10:54 am Post subject: Re: bad movie |
|
|
Ok.... so it is bad... so you would like to post it for all to see.... and yet again ... its like i think everything you have posted before...
Terrible Programming Practice (Variable Names etc... ) and also there is an error in the video where he gets hit!.
and ontop of all this you forget to TAG YOUR CODE AGAIN! |
|
|
|
|
|
LaZ3R
|
Posted: Mon Dec 10, 2007 3:04 pm Post subject: RE:bad movie |
|
|
I think I'm going to throw up. |
|
|
|
|
|
Nick
|
Posted: Mon Dec 10, 2007 3:18 pm Post subject: RE:bad movie |
|
|
another thing, please oh please indent (this can be done in turing by hitting F2) |
|
|
|
|
|
Euphoracle
|
Posted: Mon Dec 10, 2007 7:55 pm Post subject: Re: RE:bad movie |
|
|
momop @ Mon Dec 10, 2007 3:18 pm wrote: another thing, please oh please indent (this can be done in turing by hitting F2)
It was indented, I think. It loses indentation when you paste it without code tags. It makes it look even worse, hence why we all cry when people don't use them D: |
|
|
|
|
|
Jestar
|
Posted: Tue Dec 11, 2007 11:11 am Post subject: Re: bad movie |
|
|
if you made it, and you think its bad,why do you bother posting it? |
|
|
|
|
|
StealthArcher
|
Posted: Tue Dec 11, 2007 1:08 pm Post subject: RE:bad movie |
|
|
Please, when thinking of submitting a program, first perform the following check:
1) Run the program
2) Stare at the run window for at least 2 minutes
3) After this time, if you still think you'd ever want to watch that again, then post it (so long as it abides by any other rules)
I may add more to this at a later date.
Curtosy of Mr.Mazer. |
|
|
|
|
|
r.m_spy
|
Posted: Wed Dec 12, 2007 7:02 am Post subject: RE:bad movie |
|
|
sorry:( |
|
|
|
|
|
Sponsor Sponsor
|
|
|
petree08
|
Posted: Mon Dec 17, 2007 11:29 am Post subject: RE:bad movie |
|
|
BARF!!! lol your right it's terrible i hope this was a joke. |
|
|
|
|
|
agnivohneb
|
Posted: Mon Dec 17, 2007 12:58 pm Post subject: RE:bad movie |
|
|
what is the point of the input of int (get u) at the begining if you want it so the user has to press a button to start you can use Input.Pause this will wait for any keyboard button to be pressed.
There is also a error at the last scene before crossing the line the red box went through a blue box. |
|
|
|
|
|
Tallguy
|
Posted: Mon Apr 14, 2008 12:06 pm Post subject: RE:bad movie |
|
|
thats really lame . . . |
|
|
|
|
|
petree08
|
Posted: Mon Apr 14, 2008 12:24 pm Post subject: RE:bad movie |
|
|
EPIC FAILLLL!!! |
|
|
|
|
|
jernst
|
Posted: Mon Apr 14, 2008 1:01 pm Post subject: Re: bad movie |
|
|
lol reading everyones replies was worth opening this thread up |
|
|
|
|
|
Clayton
|
Posted: Mon Apr 14, 2008 1:21 pm Post subject: RE:bad movie |
|
|
Well, nice spamming guys. |
|
|
|
|
|
|
|