Im making a game called Choice Endurance (CE for short) and im trying to get it to add 500 health after every battle. I have something set up, but it just resets the 2nd battles health to 500 instead of 538 or something. Heres the code......
First battle:
Code:
Secibd Battle:
Code:
What should i do?
First battle:
Code:
:ClrHome
:AxesOff
:ZStandard
:ClrDraw
:Text(25,35,"LOADING")
:Shade({-}3,{-}1
:ClrHome
:ClrDraw
:1000→A:1000→B
:DelVar CDelVar DWhile A>0 and B>0
:Text(1,1,Str2+":",A)
:Text(16,1,"BRIGGS:",B)
:Text(32,1,"HIT WHERE?")
:Text(40,1,"LOW=1 MID=2 HI=3")
:DelVar Z:Repeat Z=92 or Z=93 or Z=94
:randInt(1,3→D
:getKey→Z
:End
:ClrDraw
:If Z=92 and D=1
:Text(48,1,"BLOCKED")
:If Z=92 and D=2
:Then
:randInt(1,20→E
:A-E→A
:Text(48,1,"BRIGGS HITS")
:End
:If Z=92 and D=3
:Then
:randInt(1,20→E
:B-E→B
:Text(48,1,Str2+" HITS")
:End
:If Z=93 and D=1
:Then
:randInt(1,15→E
:B-E→B
:Text(48,1,Str2+" HITS")
:End
:If Z=93 and D=2
:Text(48,1,"BLOCKED")
:If Z=93 and D=3
:Then
:randInt(1,15→E
:A-E→A
:Text(48,1,"BRIGGS HITS")
:End
:If Z=94 and D=1
:Then
:randInt(1,10→E
:A-E→A
:Text(48,1,"BRIGGS HITS")
:End
:If Z=94 and D=2
:Then
:randInt(1,10→E
:B-E→B
:Text(48,1,Str2+" HITS")
:End
:If Z=94 and D=3
:Text(48,1,"BLOCKED")
:End
:ClrHome
:If A≤0 and B≥0
:Then
:"BRIGGS WINS GAME OVER
:prgmA
:ClrDraw
:AxesOn:Goto A
:End
:If B≤0 and A≥0
:Then
:"YOU WIN CONGRATS!
:prgmA
:ClrDraw
:AxesOn
:End
Secibd Battle:
Code:
:ClrHome
:AxesOff
:ZStandard
:Text(25,35,"LOADING")
:Shade({-}3,{-}1
:ClrHome
:ClrDraw
:A+500→A:1000→B
:DelVar CDelVar DWhile A>0 and B>0
:Text(1,1,Str2+":",A)
:Text(16,1,"TANK:",B)
:Text(32,1,"HIT WHERE?")
:Text(40,1,"LOW=1 MID=2 HI=3")
:DelVar Z:Repeat Z=92 or Z=93 or Z=94
:randInt(1,3→D
:getKey→Z
:End
:ClrDraw
:If Z=92 and D=1
:Text(48,1,"BLOCKED")
:If Z=92 and D=2
:Then
:randInt(1,20→E
:A-E→A
:Text(48,1,"TANK HITS")
:End
:If Z=92 and D=3
:Then
:randInt(1,20→E
:B-E→B
:Text(48,1,Str2+" HITS")
:End
:If Z=93 and D=1
:Then
:randInt(1,15→E
:B-E→B
:Text(48,1,Str2+" HITS")
:End
:If Z=93 and D=2
:Text(48,1,"BLOCKED")
:If Z=93 and D=3
:Then
:randInt(1,15→E
:A-E→A
:Text(48,1,"TANK HITS")
:End
:If Z=94 and D=1
:Then
:randInt(1,10→E
:A-E→A
:Text(48,1,"TANK HITS")
:End
:If Z=94 and D=2
:Then
:randInt(1,10→E
:B-E→B
:Text(48,1,Str2+" HITS")
:End
:If Z=94 and D=3
:Text(48,1,"BLOCKED")
:End
:If A≤0 and B≥0
:Then
:"TANK WINS GAME OVER
:prgmA
:ClrDraw
:AxesOn:Goto A
:End
:If B≤0 and A≥0
:Then
:"YOU WIN CONGRATS!
:prgmA
:ClrDraw
:AxesOn
:End
:Goto θθ
:Lbl H
:ClrHome
:AxesOff
:ZStandard
:Text(25,35,"LOADING")
:Shade({-}3,{-}1
:ClrHome
:ClrDraw
:1000→A:1000→B
:DelVar CDelVar DWhile A>0 and B>0
:Text(1,1,Str2+":",A)
:Text(16,1,"SPIDER:",B)
:Text(32,1,"HIT WHERE?")
:Text(40,1,"LOW=1 MID=2 HI=3")
:DelVar Z:Repeat Z=92 or Z=93 or Z=94
:randInt(1,3→D
:getKey→Z
:End
:ClrDraw
:If Z=92 and D=1
:Text(48,1,"BLOCKED")
:If Z=92 and D=2
:Then
:randInt(1,20→E
:A-E→A
:Text(48,1,"SPIDER HITS")
:End
:If Z=92 and D=3
:Then
:randInt(1,20→E
:B-E→B
:Text(48,1,Str2+" HITS")
:End
:If Z=93 and D=1
:Then
:randInt(1,15→E
:B-E→B
:Text(48,1,Str2+" HITS")
:End
:If Z=93 and D=2
:Text(48,1,"BLOCKED")
:If Z=93 and D=3
:Then
:randInt(1,15→E
:A-E→A
:Text(48,1,"SPIDER HITS")
:End
:If Z=94 and D=1
:Then
:randInt(1,10→E
:A-E→A
:Text(48,1,"SPIDER HITS")
:End
:If Z=94 and D=2
:Then
:randInt(1,10→E
:B-E→B
:Text(48,1,Str2+" HITS")
:End
:If Z=94 and D=3
:Text(48,1,"BLOCKED")
:End
:If A≤0 and B≥0
:Then
:"SPIDER WINS GAME OVER
:prgmA
:ClrDraw
:AxesOn:Goto A
:End
:If B≤0 and A≥0
:Then
:"YOU WIN CONGRATS!
:prgmA
:ClrDraw
:End
What should i do?