Re: TIB: Graphing Games Trouble


[Prev][Next][Index][Thread]

Re: TIB: Graphing Games Trouble




The problem started while I was starting on the third wave,,,

prgmPASSWORD
0üS
0üA
0üZ
0üI
0üL
0üM
0üN
0üO
0üP
0üQ
0üT
0üU
0üV
0üW
Output(1,1,"**            **"
Output(2,1,"**            **"
Output(3,1,"**            **"
Output(4,1,"**            **"
Output(5,1,"**            **"
Output(6,1,"**            **"
Output(7,1,"**            **"
Output(8,1,"**            **"
Output(5,5,"WAVE 1"
Output(8,8,"^"
8üB
If Str1="POSITIVE"
Goto 9
While 0=Z
S+1üS
Output(2,1,S
getKeyüA
If Aø0
Then
If A=105
Goto 11
If A=26
Then
If B÷13
Then
B+1üB
I+1üI
Output(1,1,I
Else
Goto 1
End
Else
If A=24
Then
If Bù4
Then
B-1üB
I+1üI
Output(1,1,I
Else
Goto 1
End
Else
If A=21 and G=1 and B=5
Then
Output(5,5,"*"
I+90üI
Output(1,1,I
2üG
Else
If A=21 and B=4 and G=3 and Lø1 and Mø1
Then
Output(2,4,"*"
I+100üI
Output(1,1,I
1üL
Else
If M=1 and B=4 and A=21 and G=3
Then
I+100üI
Output(1,1,I
Output(2,4,"*"
0üL
0üM
4üG
End
End
End
End
End
If A=21 and B=9 and G=3 and Lø1 and Mø1
Then
100+IüI
Output(1,1,I
Output(2,9,"*"
Else
If L=1 and B=9 and A=21 and G=3
Then
100+IüI
Output(1,1,I
Output(2,9,"*"
0üL
0üM
4üG
End
End
If G=5 and A=21 and B=14
Then
Output(7,14,"*"
110+IüI
Output(1,1,I
6üG
End
If B=3
Then
Output(8,3,"^ "
Else
If B=4
Then
Output(8,3," ^ "
Else
If B=5
Then
Output(8,4," ^ "
Else
If B=6
Then
Output(8,5," ^ "
Else
If B=7
Then
Output(8,6," ^ "
Else
If B=8
Then
Output(8,7," ^ "
Else
If B=9
Then
Output(8,8," ^ "
Else
If B=10
Then
Output(8,9," ^ "
Else
If B=11
Then
Output(8,10," ^ "
Else
If B=12
Then
Output(8,11," ^ "
Else
If B=13
Then
Output(8,12," ^ "
Else
If B=14
Then
Output(8,13," ^"
End
End
End
End
End
End
End
End
End
End
End
End
End
If S=9
Then
Output(5,5,"Ä     "
1üG
Else
If S=20
Then
Output(5,5,"  "
2üG
Else
If S=23
Then
Output(2,4,"Ä    Ä"
3üG
Else
If S=32
Then
Output(2,4,"      "
4üG
Else
If S=40
Then
Output(7,14,"Ä"
5üG
Else
If S=48
Then
Output(7,14," "
6üG
Else
If S=52
Then
Output(5,4,"!!!!!!!"
Else
If S=56
Then
Output(5,4,"       "
Output(6,4,"!!!!!!!"
Else
If S=58
Then
Output(6,4,"       "
Output(7,4,"!!!!!!!"
Else
If S=60
Then
Output(7,4,"       "
Output(8,4,"!!!!!!!"
If B=4 or B=5 or B=6 or B=7 or B=8 or B=9 or B=10
Then
Goto 1
Else
100+IüI
If B=3
I+100üI
End
Else
If S=61
Then
Output(8,4,"       "
Else
If S=75
Then
5üL
Goto 8
End
End
End
End
End
End
End
End
End
End
End
End
End
Lbl 8
0üS
Output(5,5,"WAVE 2"
Output(6,3,"FASTER SHIP!
For(T,1,1000,1
End
0üZ
I+200üI
While 0=Z
Output(2,1,S)
getKeyüA
If Aø0
Then
If A=24
Then
If Bù4
Then
B-1üB
I+1üI
Output(1,1,I)
Output(8,B,"^ "
Else
Goto 1
End
Else
If A=26
Then
If B÷13
Then
B+1üB
I+1üI
Output(1,1,I)
Output(8,B-1," ^"
Else
Goto 1
End
Else
If A=21 and B=6 and G=2
Then
Output(4,6,"*"
I+130üI
Output(1,1,I
0üG
Else
If A=21 and G=3 and B=8
Then
Output(5,8,"*"
I+170üI
Output(1,1,I
0üG
End
End
End
End
End
S+1üS
If S=40
Then
Output(5,5,"        "
Output(6,3,"            "
Output(7,3,"!!  !!!!  !!"
Else
If S=60
Then
Output(7,3,"            "
Output(8,3,"!!  !!!!  !!"
Output(8,B,"^"
If B=3 or B=4 or B=7 or B=8 or B=9 or B=10 or B=13 or B=14
Then
Goto 1
Else
I+100üI
End
Else
If S=80
Then
Output(8,3,"            "
Output(8,B,"^"
Else
If S=100
Then
Output(4,6,"Á"
2üG
Else
If S=115
Then
Output(4,6," "
0üG
Else
If S=130
Then
Output(5,8,"Á"
3üG
Else
If S=165
Then
0üG
Output(5,8," "
Else
If S=200
Then
I+100üI
Goto 5
End
End
End
End
End
End
End
End
End
Lbl 5
Lbl 9
ClrHome
Output(5,3,"TRAINING OVER"
0üS
0üZ
I+100üI
Output(2,1,S
Output(1,1,I
Output(6,1,"ENTERING ACTUAL"
Output(7,1,"   BATTLE
For(A,1,900,1
End
ClrDraw
1üXmin
94üXmax
0üYmin
62üYmax
AxesOff
Line(5,0,5,62
Line(89,0,89,62
Pt-On(44,3
Pt-On(45,3
Pt-On(46,3
Pt-On(47,3
Pt-On(47,4
Pt-On(47,5
Pt-On(48,3
Pt-On(49,3
Pt-On(50,3
3üY
46üX
Text(8,30,"Wave 3- LIVE COMBAT"
While 0=Z
getKeyüA
If Aø0
Then
If A=24
Then
X-1üX
Pt-Off(X+1,Y+1
Pt-Off(X+1,Y+1
Pt-Off(X+3,Y
Line(X-3,Y,X+3,Y)
Line(X,Y,X,Y+2)
Else
If A=26
Then
X+1üX
Pt-Off(X-1,Y+1
Pt-Off(X-1,Y+1
Pt-Off(X-3,Y
Line(X-3,Y,X+3,Y)
Line(X,Y,X,Y+2)
Else
If A=25
Then
Y+1üY
Pt-Off(X,Y-1
Pt-Off(X-1,Y-1
Pt-Off(X-2,Y-1
Pt-Off(X-3,Y-1
Pt-Off(X+1,Y-1
Pt-Off(X+2,Y-1
Pt-Off(X+3,Y-1
Line(X-3,Y,X+3,Y)
Line(X,Y,X,Y+2)
Else
If A=34
Then
Y-1üY
Pt-Off(X,Y+3
Pt-Off(X-1,Y+1
Pt-Off(X-2,Y+1
Pt-Off(X-3,Y+1
Pt-Off(X+1,Y+1
Pt-Off(X+2,Y+1
Pt-Off(X+3,Y+1
Line(X-3,Y,X+3,Y)
Line(X,Y,X,Y+2)
End
End
End
End
End
End
Lbl 11
Lbl 1
Output(1,1,"----------------"
Output(2,1,"----------------"
Output(3,1,"----------------"
Output(4,1,"----------------"
Output(5,1,"----------------"
Output(6,1,"----------------"
Output(7,1,"----------------"
Output(8,1,"----------------"
Output(4,5,"YOU LOSE"
Output(5,7,"SCORE:"
Output(6,8,I)
áHIFLY(1)üP
If I>P
IüáHIFLY(1)
áHIFLY(1)üP
Output(7,4,"MAX:"
Output(7,8,P



Follow-Ups: