Top 10k strings from subsearc.tap in <root> / bin / z80 / software / ZxTapGames.zip / games /
Back to the directory listing
2 instructions
2 Sub Search
2 ;s$(n);" has sunk!":
1 vvvvvvvvvvvvvvvvvvvvvvv
1 t(sy,s(c,2
1 t(sx,s(c,1
1 sy=sy+(sy<1
1 sy=sy+(sm=3
1 sx=sx+(sx<1
1 sx=sx+(sm=1
1 submarine in close proximity
1 submarine attack
1 sub destroyed
1 set up screen
1 sd=sd+(sm=5
1 sd=sd+(sd<1
1 rename ships
1 r=r+(m$(q)="e")-(m$(q)="w")+(r<0
1 player's move
1 patrol boat
1 p=p+(m$(q)="s")-(m$(q)="n")+(p<0
1 p,r;d$(n):
1 name ships
1 move submarine
1 i;"SUB SEARCH":
1 grafici b,c,c,c,a,a
1 fire depth charge
1 define graphics
1 battle cruiser
1 ^^^^^^^^^^^^^^^^^^^^^^^
1 USS TITANICd
1 HMS INVINCIBLE HMS SHEFFIELD RNZS OTAGO RNZS CANTERBURYHMS BRITANNIA USS TITANIC
1 Define graphics
1 ;s$(n);"(";s(n,1
1 ;s$(c);" under attack!"
1 ;s$(c);" has spotted sub!"
1 ;s$(c);" has been lost!"
1 ;n$;" ";d$(a):
1 ;"sub in ";nb;" rounds."
1 ;"reads:";
1 ;"depth charges left:";s(n,3
1 ;"a HIT!":
1 ;"You manage to destroy the"
1 ;"You have ";
1 ;"What would you like to call"'c$;" ":
1 ;"Watch out!Another torpedo!":
1 ;"The sub's right under you!"
1 ;"The ";s$(c);" has ejected all it's depth charges.":
1 ;"SUB SEARCH";
1 ;"Press 'F' and hope for the best."
1 ;"No depth charges left!":
1 ;"Missed!":
1 ;"Invalid entry. Try again. ";
1 ;"False Alarm! Damage ";u-1
1 ;"Enter move. ";
1 ;"Do you want to read instructions(y/n)? ";i$
1 ;"Depth charges ready!"
1 ;"CONGRATULATIONS!"
1 ;"CONDITION";
1 ;"COLLISION!";
1 ;"3 Depth Charges loaded.":
1 ;"++++++++++"
1 ;"% efficiency."
1 ;" to continue.";
1 ;" Press any key to throw dice."
1 ;" That was good evasive action! "
1 ;" "
1 20 graphic 'f'
1 +m);" moves"
1 );",";s(n,2
1 ),sy,s(c,2
1 ),sx,s(c,1
1 (my,mx)>64
1 (dp;" is out of range, try again");dp:
1 "Your task is to hunt and destroyan enemy submarine which has been lurking around the shippinglanes near you."
1 "Your battlecruiser is equipped with a sonar system that rises in pitch as it gets closer to the sub."
1 "Your Battlecruiser (flagship)","Frigate 1","Frigate 2","Frigate 3","Patrol boat 1","Patrol boat 2"
1 "You control a fleet of warships consisting of:1 Battle cruiser, 2 Patrol vessels and 3 frigates."
1 "Would you like to play again? ";
1 "Would you like to name your own fleet? Answer (y/n)."
1 "The submarine moves one unit each round and may hide up to a depth of 10 units.If you move 1 of your ships directly above thesubmarine, an alarm will sound."
1 "The submarine may torpedo any ship that is within a range of 5 units and is in line either horizontally or vertically."
1 "The number of moves you get eachround depends on a 'dice', you may move any number of ships as long as it is within the limits."
1 "The computer will sequence through each ship and ask you ifyou want to move it.Answer with 'ENTER' if you don't or use the directions n,s,e,w or 'd' for depth charge."
1 "That's ";pc/nb*100
1 "No you can't have that,try again";n$:
1 "If you navigate your ship into another ship then the smaller ship will be sunk. If you reach into mine your ship will sink."
1 "HMS INVINCIBLE","HMS SHEFFIELD","RNZS OTAGO","RNZS CANTERBURY","HMS BRITANNIA","USS TITANIC"
1 "Fire a depth charge? ";
1 "Enter depth. (1
1 "Each vessel can carry only a limited amount of depth charges and once they are fired the shipmust return to port. The limits are 4 to the battle cruiser 3 to each of the frigates and 2 to the patrol boats."
1 "Do you want to name your own fleet? Answer (y/n) ";p$:
1 "Do you want to fire a charge?";
1 " ","The ships under your command are-HMS INVINCIBLE (portabandiera) -HMS SHEFFIELD (fregata 1) -RNZS OTAGO (fregata 2) -RNZS CANTERBURY (fregata 3) -HMS BRITANNIA (patrol 1) -USS TITANIC (patrol 2)"
1 1983 Malcom Young