Computer Science Canada bad movie |
Author: | r.m_spy [ 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 |
Author: | Ultrahex [ 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! |
Author: | LaZ3R [ Mon Dec 10, 2007 3:04 pm ] |
Post subject: | RE:bad movie |
I think I'm going to throw up. |
Author: | Nick [ 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) |
Author: | Euphoracle [ 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: |
Author: | Jestar [ 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? |
Author: | StealthArcher [ 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. |
Author: | r.m_spy [ Wed Dec 12, 2007 7:02 am ] |
Post subject: | RE:bad movie |
sorry:( |
Author: | petree08 [ 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. |
Author: | agnivohneb [ 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. |
Author: | Tallguy [ Mon Apr 14, 2008 12:06 pm ] |
Post subject: | RE:bad movie |
thats really lame . . . |
Author: | petree08 [ Mon Apr 14, 2008 12:24 pm ] |
Post subject: | RE:bad movie |
EPIC FAILLLL!!! |
Author: | jernst [ Mon Apr 14, 2008 1:01 pm ] |
Post subject: | Re: bad movie |
lol reading everyones replies was worth opening this thread up ![]() |
Author: | Clayton [ Mon Apr 14, 2008 1:21 pm ] |
Post subject: | RE:bad movie |
Well, nice spamming guys. ![]() |