TUG OF WAR
This game is simply a battle of the presses. Try and drag your opponents robot into the well. The person on the right key is EXE and the person on the left is O. Soon I will be implementing a 3,2,1 countdown but at the moment you will have to say it out loud. Hope you like it.
*** WARNING DO NOT hit the keys too hard. WARNING ***
Also unfortunately there is a bug in this game. You can hold down your key and just keep pulling this problem will also soon be solved.
.. Decimal point
, Above Del
-> Above AC
# F6 (SYBL), F6 (#)
* F6 (SYBL), F4 (*)
' Alpha, F1 (')
" Alpha, F2 (")
~ Alpha, F3 (~)
If Shift+VARS, F1 (COM), F1 (If)
Then Shift+VARS, F1 (COM), F2 (Then)
Ifend Shift+VARS, F1 (COM), F4 (I-End)
Stop Shift+VARS, F2 (CTL), F3 (Brk)
Break Shift+VARS, F2 (CTL), F4 (Stop)
Lbl Shift+VARS, F3 (JUMP), F1 (Lbl)
Goto Shift+VARS, F3 (JUMP), F2 (Goto)
(=\=) Shift+VARS, F6 (|>), F3 (REL), F2 ((=\=))
Locate Shift+VARS, F6 (|>), F4 (I/O), F1 (Lcte)
Getkey Shift+VARS, F6 (|>), F4 (I/O), F2 (Gtky)
ClrText Shift+VARS, F6 (|>), F1 (Clr), F1 (Text)
11 -> X
ClrText
Locate 1,3,"########## ##########"
Locate 1,4,"'''''''''# #'''''''''"
Locate 1,5,"'''''''''# #'''''''''"
Locate 1,6,"'''''''''#W#'''''''''"
Locate 1,7,"'''''''''###'''''''''"
Lbl A
If Getkey = 31
Then X+1 -> X
Ifend
If Getkey = 71
Then X-1 -> X
Ifend
Locate (X-5),2," *~~~~~~~* "
If (X+4) = 11
Then Goto B
Ifend
If (X-4) = 11
Then Goto C
Ifend
If Getkey = 71
Then X-1 -> X
Ifend
If Getkey = 31
Then X+1 -> X
Ifend
Locate (X-5),2," *~~~~~~~* "
If (X+4) = 11
Then Goto B
Ifend
If (X-4) = 11
Then Goto C
Ifend
Goto A
Lbl B
Locate (X+4),2," "
Locate (X+4),5,"*"
Goto D
Lbl C
Locate (X-4),2," "
Locate (X-4),5,"*"
Goto D
Lbl D
Locate 4,6,"WELL"
Locate 16,6,"DONE"