You should really wrap that in code tags, to make it more easily readable.
Perhaps this would be a good oppertunity to download turing.
*does so*
Computer Science Canada Re:tug-o-war |
| Author: | r.m_spy [ Fri Nov 30, 2007 6:23 pm ] |
| Post subject: | Re:tug-o-war |
var q:int:=Font.New("Sanserfif:72:bold") var e:int:=Font.New("Sanserfif:42:bold") procedure CentreFont (s : string, x, y, f, clr : int) var w : int := Font.Width (s, f) Font.Draw (s, x - w div 2, y, f, clr) end CentreFont var k:array char of boolean var l:char:=chr(203) var r:char:=chr(205) var a:char:=chr(97) var d:char:=chr(100) var p:char:=chr(112) var qu:char:=chr(113) var v:int:=300 var re:int var sp:char:=chr(32) var qa:int:=5 var t:int:=1 var x:int:=1 var we:int:=0 color(brightred) put"put 1 for 1 player,2 for two players" get re setscreen ( "graphics:600;450" ) CentreFont ("ready", maxx div 2,maxy div 2,q,brightred) delay(1000) cls CentreFont ("set", maxx div 2,maxy div 2,q,brightred) delay(1000) cls CentreFont ("go", maxx div 2,maxy div 2,q,brightred) if re=2 then loop delay(100) cls colorback(black) drawfillbox(v,10,v+10,20,brightred) Input.KeyDown(k) if k(l) then if t=1 then t:=t+1 v:=v-1 end if elsif k(r) then if t=2 then t:=t-1 v:=v-10 end if end if if k(a) then if x=1 then x:=x+1 v:=v+10 end if elsif k(p) then cls colorback(black) CentreFont ("press space", maxx div 2,maxy div 2,e,brightred) loop Input.KeyDown(k) exit when k(sp) end loop elsif k(d) then if x=2 then x:=x-1 v:=v+10 end if end if if v<0 then cls CentreFont ("player 1 wins", maxx div 2,maxy div 2,e,brightred) loop end loop elsif v>590 then cls CentreFont ("player 2 wins", maxx div 2,maxy div 2,e,brightred) loop end loop end if Input.KeyDown(k) exit when k(qu) end loop else loop delay(100) cls colorback(black) drawfillbox(v,10,v+10,20,brightred) Input.KeyDown(k) if k(l) then if t=1 then t:=t+1 v:=v-10 end if elsif k(p) then cls colorback(black) CentreFont ("press space", maxx div 2,maxy div 2,e,brightred) loop Input.KeyDown(k) exit when k(sp) end loop elsif k(r) then if t=2 then t:=t-1 v:=v-10 end if else v:=v+qa end if if v<0 then cls CentreFont ("player 1 wins", maxx div 2,maxy div 2,e,brightred) qa:=qa+5 v:=300 we:=we+1 color(brightred) put we delay(1000) elsif v>590 then cls color(brightred) put we CentreFont ("cpu wins", maxx div 2,maxy div 2,e,brightred) loop end loop end if Input.KeyDown(k) exit when k(qu) end loop end if cls colorback(black) CentreFont ("quit", maxx div 2,maxy div 2,e,brightred) color(brightred) put we |
|
| Author: | Euphoracle [ Fri Nov 30, 2007 6:34 pm ] |
| Post subject: | RE:Re:tug-o-war |
You should really wrap that in code tags, to make it more easily readable. Perhaps this would be a good oppertunity to download turing.
*does so* |
|
| Author: | Saad [ Fri Nov 30, 2007 8:46 pm ] |
| Post subject: | RE:Re:tug-o-war |
I would also suggest using better variables names. eg "we". |
|
| Author: | Euphoracle [ Fri Nov 30, 2007 10:36 pm ] |
| Post subject: | RE:Re:tug-o-war |
Likewise, I have no idea what is going on (mainly because I don't want to spend 30+ minutes decoding it, and, you know, time is money) What is "t"? time? How about "v"? I can't even think of a logical name for "v"  |
|
| Author: | r.m_spy [ Sat Dec 01, 2007 12:13 pm ] |
| Post subject: | Re:tug-o-war |
the variable mean nothing, and I do not know how how to post a tag |
|
| Author: | yusong [ Wed Jan 02, 2008 11:28 am ] |
| Post subject: | RE:Re:tug-o-war |
Is you play the computer You can just hold down Right Arrow and keep pressing Left Arrow and you'll win |
|
| Author: | Tallguy [ Mon Apr 14, 2008 11:57 am ] |
| Post subject: | RE:Re:tug-o-war |
u should make it so that we see the rope that we're pulling... |
|
| Author: | repsoccer16 [ Tue Apr 15, 2008 7:58 am ] |
| Post subject: | RE:Re:tug-o-war |
ya make a rope at least for the graphics. |
|