Re:tug-o-war

[r.m_spy]

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

[Euphoracle]

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*

[Saad]

I would also suggest using better variables names. eg "we".

[Euphoracle]

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"

[r.m_spy]

the variable mean nothing, and I do not know how how to post a tag

[yusong]

Is you play the computer
You can just hold down Right Arrow and keep pressing Left Arrow and you'll win

[Tallguy]

u should make it so that we see the rope that we're pulling...

[repsoccer16]

ya make a rope at least for the graphics.