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