RE: TIB: Graphing Games Trouble
[Prev][Next][Index][Thread]
RE: TIB: Graphing Games Trouble
duno, but that calc REALLY neads an ElseIf
> -----Original Message-----
> From: owner-ti-basic@lists.ticalc.org
> [mailto:owner-ti-basic@lists.ticalc.org]On Behalf Of Stephen432@aol.com
> Sent: Saturday, June 03, 2000 4:32 PM
> To: ti-basic@lists.ticalc.org
> Subject: 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
>
>
References: