32
« on: January 02, 2011, 09:32:32 pm »
does this help to answer my question: how do i add 500 health to the next fight? :1000→A
:ClrHome
:ClrDraw
:AxesOn
:Output(1,1,"A PROGRAM BY")
:Output(2,2,"ADAM COUNTS")
:Output(3,3,"TEAM B")
:Pause
:ClrHome
:AxesOff
:Input "NAME:",Str2
:ClrHome
:Lbl A
:Menu("CHOICE ENDURANCE","START",B,"INSTRUCTIONS",C,"QUIT",D)
:Lbl C
:"FOLLOW THE ON SCREEN PROMPT
:prgmA
:Goto A
:Lbl B
:Lbl E
:Menu("CHOOSE OPPONENT","BRIGGS",F,"TANK",G,"SPIDER",H,"POCKETS",I,"CAPONE",J,"MORE...",K)
:Lbl K
:Menu("MORE...","JIN",L,"PAUL",M,"HWOARANG",N,"YOSHIMITZU",O,"LAW",P,"MORE...",Q,"PREVIOUS",R)
:Lbl R
:Goto E
:Lbl Q
:Menu("MORE...","BRAD",S,"ZACH",T,"JAKE",U,"GLEN",V,"ALEX",W,"MORE...",X,"PREVIOUS",Y)
:Lbl Y
:Goto K
:Lbl X
:Menu("MORE...","CLOUD",Z,"FIRION",AA,"SQUALL",AB,"ZIDANE",AC,"TIDUS",AD,"PREVIOUS",AE,"QUIT",AF)
:Lbl AE
:Goto Q
:Lbl AF
:Goto A
:Lbl F
:ClrHome
:AxesOff
:ZStandard
:ClrDraw
:Text(25,35,"LOADING")
:Shade({-}3,{-}1
:ClrHome
:ClrDraw
:1→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
:Lbl G
:ClrHome
:AxesOff
:ZStandard
:Text(25,35,"LOADING")
:Shade({-}3,{-}1
:ClrHome
:ClrDraw
:A+θθθ→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
Show Posts
