0 Members and 4 Guests are viewing this topic.
: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
: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
: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