diff --git a/encounter/applesoft.bas b/encounter/applesoft.bas new file mode 100644 index 0000000..86612df --- /dev/null +++ b/encounter/applesoft.bas @@ -0,0 +1,1020 @@ +10 REM APPLE II VERSION +11 REM ANTOINE VIGNAU & OLIVIER ZARDINI +12 REM BRUTAL DELUXE SOFTWARE +13 REM NOVEMBRE 2024 +14 REM Z$=" "+CHR$(27) +15 REM PAPER3:INK4 +16 HOME +17 FORT=1TO3 +18 PRINT" ***********" +19 PRINT" *Encounter*" +20 PRINT" *Adventure*" +21 PRINT" ***********" +22 PRINT:NEXT +23 PRINT" ***************************" +24 PRINT" *Copyright SEVERN SOFTWARE*" +25 PRINT" ***************************" +26 PRINT" *Apple II version 11/2024*" +27 PRINT" *by Brutal Deluxe Software*" +28 PRINT" ***************************" +29 PRINT:PRINT" Press any key when you are ready "; +30 GETK$ +31 HOME:PRINT"Encounter - A Guide":POKE 49200,0:FORT=1TO300:NEXT:POKE 49200,0 +32 PRINT:PRINT"Your task is to find and rescue a" +33 PRINT"young girl kidnapped by thugs." +34 PRINT:PRINT"Everything you need is here but you" +35 PRINT"may have to manufacture some items." +36 PRINT:PRINT"CLUE chemistry knowledge helps." +37 PRINT:PRINT" Single letter COMMANDS" +38 PRINT:PRINT" eg N for North U for UP" +39 PRINT" PLUS L for look I for inventory" +40 PRINT:PRINT"Most other commands are VERB followed" +41 PRINT"by NOUN (eg EMPTY BOTTLE). These may" +42 PRINT"be typed in as 3 letter abbreviations for instance EMP BOT" +43 PRINT:PRINT"If the computer can't understand your" +44 PRINT"command, re-phrase it. You will soon" +45 PRINT"learn the accepted vocabulary." +46 PRINT" Press any key to continue "; +47 GETK$ +48 HOME:PRINT"Encounter - A Guide":POKE 49200,0:FORT=1TO300:NEXT:POKE 49200,0 +50 PRINT:PRINT"If the alarm rings, you have twenty" +51 PRINT"moves to stop it before you're caught." +52 PRINT:PRINT"HINT make a map as you travel noting" +53 PRINT" what you find and where." +54 PRINT:PRINT"The time limit is 500 moves." +55 PRINT:PRINT"Common commands - GET DROP THROW KILL" +56 PRINT" HIT MAKE CLIMB QUIT" +57 PRINT:PRINT"Only use QUIT if you wish to give up." +58 PRINT:PRINT"Don't worry if you fail first time - WE EXPECT YOU TO!!!!" +59 PRINT:PRINT"Telephoning SEVERN SOFTWARE for help is forbidden." +60 PRINT:PRINT:PRINT" Press any key to start "; +62 GETK$ +63 REM PAPER2:INK0 +65 HOME:FORT=1TO10:POKE 49200,0:NEXT +100 HOME:PL=3:BD=4:KY=5:YP=7:BU=8:RO=8:WA=8:PG=9:BX=14:TW=14:KN=16:NE=17 +101 LD=19:CR=11:BL=20:ME=26:BR=26:TN=23:DG=24:AV=1:TP=25:BK=25:MA=30:CU=28 +102 SA=21:NO=38:GL=43:TT=36:TG=34:AL=1:SB=99:SF=1:HP=12:PT=99:GP=99:FU=99 +103 AC=99:PU=99:AB=99:BB=99:BM=99:LP=99:HD=99:OS=99:GF=99:CP=20:PO=99 +1000 AZ=1:PRINT:PRINT"You are in a deserted market square":IF GL=0THEN31000 +1001 GOSUB9000:PRINT"Exits lead North and East" +1003 N=1:E=1:GOSUB10000 +1004 IFLEFT$(A$,1)="L"THEN1000 +1006 IFLEFT$(A$,1)="N"THEN1030 +1007 IFLEFT$(A$,1)="E"THEN1010 +1009 GOTO1003 +1010 AZ=2:PRINT:PRINT" You are in a dark, seedy alley." +1011 GOSUB9000 +1012 PRINT" Exits lead North, East and West." +1013 N=1:E=1:W=1:GOSUB10000 +1014 IFLEFT$(A$,1)="L"THEN1010 +1015 IFLEFT$(A$,1)="N"THEN1040 +1016 IFLEFT$(A$,1)="E"THEN1020 +1017 IFLEFT$(A$,1)="W"THEN1000 +1019 GOTO1013 +1020 AZ=3:PRINT:PRINT"A long road stretches ahead of you." +1021 GOSUB9000 +1022 PRINT"Exits lead North and West." +1023 N=1:W=1:GOSUB10000 +1024 IFLEFT$(A$,1)="L"THEN1020 +1025 IFLEFT$(A$,1)="N"THEN1050 +1026 IFLEFT$(A$,1)="W"THEN1010 +1029 GOTO1023 +1030 AZ=4:PRINT:PRINT"You are in a dark, damp tunnel." +1031 GOSUB9000 +1032 PRINT"Exits lead North and South." +1033 N=1:S=1:GOSUB10000 +1034 IFLEFT$(A$,1)="L"THEN1030 +1035 IFLEFT$(A$,1)="N"THEN1080 +1036 IFLEFT$(A$,1)="S"THEN1000 +1039 GOTO1033 +1040 AZ=5:PRINT:PRINT"You are on the main street." +1041 GOSUB9000 +1042 PRINT"Exits lead North, South and East." +1043 N=1:S=1:E=1:GOSUB10000 +1044 IFLEFT$(A$,1)="L"THEN1040 +1045 IFLEFT$(A$,1)="N"THEN1090 +1046 IFLEFT$(A$,1)="S"THEN1010 +1047 IFLEFT$(A$,1)="E"THEN1050 +1049 GOTO1043 +1050 AZ=6:PRINT:PRINT"You are on a narrow path." +1051 GOSUB9000 +1052 PRINT"Exits lead North, South, East and West." +1053 N=1:S=1:E=1:W=1:GOSUB10000 +1054 IFLEFT$(A$,1)="L"THEN1050 +1055 IFLEFT$(A$,1)="N"THEN1100 +1056 IFLEFT$(A$,1)="S"THEN1020 +1057 IFLEFT$(A$,1)="E"THEN1060 +1058 IFLEFT$(A$,1)="W"THEN1040 +1059 GOTO1053 +1060 AZ=7:PRINT:PRINT"You have fallen into a deep pit" +1061 GOSUB9000 +1062 PRINT"There seems to be no way out." +1063 GOSUB10000 +1064 IFLEFT$(A$,1)="L"THEN1060 +1065 IFOP=1THENOP=0:GOTO1050 +1069 GOTO1063 +1070 AZ=8:PRINT:PRINT"You are near to an old-fashioned well." +1071 GOSUB9000 +1072 PRINT"Exit to the East only." +1073 E=1:GOSUB10000 +1074 IFLEFT$(A$,1)="L"THEN1070 +1077 IFLEFT$(A$,1)="E"THEN1080 +1079 GOTO1073 +1080 AZ=9:PRINT:PRINT"You are in a dark forest." +1081 GOSUB9000 +1082 PRINT"Exits lead North, South, East and West." +1083 N=1:S=1:E=1:W=1:GOSUB10000 +1084 IFLEFT$(A$,1)="L"THEN1080 +1085 IFLEFT$(A$,1)="N"THEN1110 +1086 IFLEFT$(A$,1)="S"THEN1030 +1087 IFLEFT$(A$,1)="E"THEN1090 +1088 IFLEFT$(A$,1)="W"THEN1070 +1089 GOTO1083 +1090 AZ=10:PRINT:PRINT"You are on a wide gravel drive" +1091 GOSUB9000 +1092 PRINT"Exits lead North, South, East and West." +1093 N=1:S=1:E=1:W=1:GOSUB10000 +1094 IFLEFT$(A$,1)="L"THEN1090 +1095 IFLEFT$(A$,1)="N"THEN1120 +1096 IFLEFT$(A$,1)="S"THEN1040 +1097 IFLEFT$(A$,1)="E"THEN1100 +1098 IFLEFT$(A$,1)="W"THEN1080 +1099 GOTO1093 +1100 AZ=11:PRINT:PRINT"You are in an open area of tarmac" +1101 GOSUB9000 +1102 PRINT"Exits lead North, South and West." +1103 N=1:S=1:W=1:GOSUB10000 +1104 IFLEFT$(A$,1)="L"THEN1100 +1105 IFLEFT$(A$,1)="N"THEN1130 +1106 IFLEFT$(A$,1)="S"THEN1050 +1108 IFLEFT$(A$,1)="W"THEN1090 +1109 GOTO1103 +1110 AZ=12:PRINT:PRINT"You are in a beautiful garden" +1111 GOSUB9000 +1112 PRINT"Exits lead North, South and East" +1113 N=1:S=1:E=1:GOSUB10000 +1114 IFLEFT$(A$,1)="L"THEN1110 +1115 IFLEFT$(A$,1)="N"THEN1140 +1116 IFLEFT$(A$,1)="S"THEN1080 +1117 IFLEFT$(A$,1)="E"THEN1120 +1119 GOTO1113 +1120 AZ=13:PRINT:PRINT"You are on a huge area of lawn" +1121 GOSUB9000 +1122 PRINT"Exits lead North, South and East." +1123 N=1:S=1:E=1:GOSUB10000 +1124 IFLEFT$(A$,1)="L"THEN1120 +1125 IF(LEFT$(A$,1)="N")AND(LD=0) THEN PRINT"DROP something first":GOTO1123 +1126 IFLEFT$(A$,1)="N"THEN1200 +1127 IFLEFT$(A$,1)="S"THEN1090 +1128 IFLEFT$(A$,1)="E"THEN1130 +1129 GOTO1123 +1130 AZ=14:PRINT:PRINT"You are in a small greenhouse" +1131 GOSUB9000 +1132 PRINT"Exits lead North, South and West." +1133 N=1:S=1:W=1:GOSUB10000 +1134 IFLEFT$(A$,1)="L"THEN1130 +1135 IFLEFT$(A$,1)="N"THEN1150 +1136 IFLEFT$(A$,1)="S"THEN1100 +1138 IFLEFT$(A$,1)="W"THEN1120 +1139 GOTO1133 +1140 AZ=15:PRINT:PRINT"You are on a lawn tennis court." +1141 GOSUB9000 +1142 PRINT"Exits lead North and South." +1143 N=1:S=1:GOSUB10000 +1144 IFLEFT$(A$,1)="L"THEN1140 +1145 IFLEFT$(A$,1)="N"THEN1160 +1146 IFLEFT$(A$,1)="S"THEN1110 +1149 GOTO1143 +1150 AZ=16:PRINT:PRINT"You are in a vegetable plot." +1151 GOSUB9000 +1152 PRINT"Exits lead North snd South." +1153 N=1:S=1:GOSUB10000 +1154 IFLEFT$(A$,1)="L"THEN1150 +1155 IFLEFT$(A$,1)="N"THEN1180 +1156 IFLEFT$(A$,1)="S"THEN1130 +1159 GOTO1153 +1160 AZ=17:PRINT:PRINT"You are standing by a fish pond." +1161 GOSUB9000 +1162 PRINT"Exits lead South and East." +1163 S=1:E=1:GOSUB10000 +1164 IFLEFT$(A$,1)="L"THEN1160 +1166 IFLEFT$(A$,1)="S"THEN1140 +1167 IFLEFT$(A$,1)="E"THEN1170 +1169 GOTO1163 +1170 AZ=18:PRINT:PRINT"You are on a tiled patio and above it is a barred window" +1171 GOSUB9000 +1172 PRINT"Exits lead South, East and West." +1173 S=1:E=1:W=1:GOSUB10000 +1174 IFLEFT$(A$,1)="L"THEN1170 +1175 IF(LEFT$(A$,1)="S")AND(LD=0) THEN PRINT"DROP something first":GOTO1173 +1176 IFLEFT$(A$,1)="S"THEN1280 +1177 IFLEFT$(A$,1)="E"THEN1180 +1178 IFLEFT$(A$,1)="W"THEN1160 +1179 GOTO1173 +1180 AZ=19:PRINT:PRINT"You are in an apple orchard." +1181 GOSUB9000 +1182 PRINT"Exits lead South and West." +1183 S=1:W=1:GOSUB10000 +1184 IFLEFT$(A$,1)="L"THEN1180 +1186 IFLEFT$(A$,1)="S"THEN1150 +1188 IFLEFT$(A$,1)="W"THEN1170 +1189 GOTO1183 +1190 AZ=23:PRINT:PRINT"You are in the lounge." +1191 GOSUB9000 +1192 PRINT"Exits lead North and East." +1193 N=1:E=1:GOSUB10000 +1194 IFLEFT$(A$,1)="L"THEN1190 +1195 IFLEFT$(A$,1)="N"THEN1230 +1197 IFLEFT$(A$,1)="E"THEN1200 +1198 GOTO1193 +1200 AZ=24:PRINT:PRINT"You are in an imposing entrance hall" +1201 GOSUB9000:IFAV=1THEN9100 +1202 PRINT"Exits lead North, South, West and up." +1203 DB=0:N=1:S=1:W=1:U=1:GOSUB10000 +1204 IFLEFT$(A$,1)="L"THEN1200 +1205 IFLEFT$(A$,1)="N"THEN1250 +1206 IFLEFT$(A$,1)="S"THEN1120 +1207 IFLEFT$(A$,1)="U"THEN1240 +1208 IFLEFT$(A$,1)="W"THEN1190 +1209 GOTO1203 +1210 AZ=25:PRINT:PRINT"This looks like a library." +1211 GOSUB9000 +1212 PRINT"The only exit is West." +1213 W=1:GOSUB10000 +1214 IFLEFT$(A$,1)="L"THEN1210 +1218 IFLEFT$(A$,1)="W"THEN1250 +1219 GOTO1213 +1230 AZ=26:PRINT:PRINT"A dining room, or so it appears" +1231 GOSUB9000 +1232 PRINT"Exits lead North and South." +1233 N=1:S=1:GOSUB10000 +1234 IFLEFT$(A$,1)="L"THEN1230 +1235 IFLEFT$(A$,1)="N"THEN1270 +1236 IFLEFT$(A$,1)="S"THEN1190 +1239 GOTO1233 +1240 AZ=27:PRINT:PRINT"You are on a sweeping staircase" +1241 GOSUB9000 +1242 PRINT"Choose up or down." +1243 U=1:D=1:GOSUB10000 +1244 IFLEFT$(A$,1)="L"THEN1240 +1245 IFLEFT$(A$,1)="U"THEN1410 +1246 IFLEFT$(A$,1)="D"THEN1200 +1249 GOTO1243 +1250 AZ=31:PRINT:PRINT"You are in a narrow passage" +1251 GOSUB9000 +1252 PRINT"Exits lead North, South and East." +1253 N=1:S=1:E=1:GOSUB10000 +1254 IFLEFT$(A$,1)="L"THEN1250 +1255 IFLEFT$(A$,1)="N"THEN1280 +1256 IFLEFT$(A$,1)="S"THEN1200 +1257 IFLEFT$(A$,1)="E"THEN1210 +1259 GOTO1253 +1260 AZ=22:PRINT:PRINT"You are on some gloomy, narrow steps." +1261 GOSUB9000 +1262 PRINT"Choose up or down." +1263 U=1:D=1:GOSUB10000 +1264 IFLEFT$(A$,1)="L"THEN1260 +1265 IFLEFT$(A$,1)="U"THEN1290 +1266 IFLEFT$(A$,1)="D"THEN1300 +1269 GOTO1263 +1270 AZ=28:PRINT:PRINT"This looks like a games room." +1271 GOSUB9000 +1272 PRINT"Exits lead South and East." +1273 S=1:E=1:GOSUB10000 +1274 IFLEFT$(A$,1)="L"THEN1270 +1276 IFLEFT$(A$,1)="S"THEN1230 +1277 IFLEFT$(A$,1)="E"THEN1280 +1279 GOTO1273 +1280 AZ=29:PRINT:PRINT"You find yourself in a sun-lounge." +1281 GOSUB9000 +1282 PRINT"Exits lead North, South, East and West." +1283 N=1:S=1:E=1:W=1:GOSUB10000 +1284 IFLEFT$(A$,1)="L"THEN1280 +1285 IFLEFT$(A$,1)="N"THEN1170 +1286 IFLEFT$(A$,1)="S"THEN1250 +1287 IFLEFT$(A$,1)="E"THEN1290 +1288 IFLEFT$(A$,1)="W"THEN1270 +1289 GOTO1283 +1290 AZ=30:PRINT:PRINT"This is obviously the kitchen." +1291 GOSUB9000 +1292 PRINT"Exits lead West and down." +1293 W=1:D=1:GOSUB10000 +1294 IFLEFT$(A$,1)="L"THEN1290 +1296 IFLEFT$(A$,1)="D"THEN1260 +1298 IFLEFT$(A$,1)="W"THEN1280 +1299 GOTO1293 +1300 AZ=21:PRINT:PRINT"This is a cold, damp cellar" +1301 GOSUB9000 +1302 PRINT"Exits lead South and up." +1303 S=1:U=1:GOSUB10000 +1304 IFLEFT$(A$,1)="L"THEN1300 +1306 IFLEFT$(A$,1)="S"THEN1310 +1307 IFLEFT$(A$,1)="U"THEN1260 +1309 GOTO1303 +1310 AZ=20:PRINT:PRINT"This room is even darker than the last" +1311 GOSUB9000 +1312 PRINT"The only way out is North" +1313 N=1:GOSUB10000 +1314 IFLEFT$(A$,1)="L"THEN1310 +1315 IFLEFT$(A$,1)="N"THEN1300 +1319 GOTO1313 +1320 AZ=32:PRINT:PRINT"This seems to bea quest bedroom" +1321 GOSUB9000 +1322 PRINT"The only exit it North." +1323 N=1:GOSUB10000 +1324 IFLEFT$(A$,1)="L"THEN1320 +1325 IFLEFT$(A$,1)="N"THEN1400 +1329 GOTO1323 +1330 AZ=33:PRINT:PRINT"This is a child's bedroom" +1331 GOSUB9000 +1332 PRINT"Exit to the North only." +1333 N=1:GOSUB10000 +1334 IFLEFT$(A$,1)="L"THEN1330 +1335 IFLEFT$(A$,1)="N"THEN1360 +1339 GOTO1333 +1340 AZ=34:PRINT:PRINT"This must be the master bedroom" +1341 GOSUB9000 +1342 PRINT"Exits lead North and West." +1343 N=1:W=1:GOSUB10000 +1344 IFLEFT$(A$,1)="L"THEN1340 +1345 IFLEFT$(A$,1)="N"THEN1370 +1348 IFLEFT$(A$,1)="W"THEN1360 +1349 GOTO1343 +1350 AZ=35:PRINT:PRINT"You are in a tiled shower-room" +1351 GOSUB9000 +1352 PRINT"Exit to the North only." +1353 N=1:GOSUB10000 +1354 IFLEFT$(A$,1)="L"THEN1350 +1356 IFLEFT$(A$,1)="N"THEN1380 +1359 GOTO1353 +1360 AZ=37:PRINT:PRINT"You have found the east gallery" +1361 GOSUB9000 +1362 PRINT"Exits North, South, East and West." +1363 N=1:S=1:E=1:W=1:GOSUB10000 +1364 IFLEFT$(A$,1)="L"THEN1360 +1365 IFLEFT$(A$,1)="N"THEN1390 +1366 IFLEFT$(A$,1)="S"THEN1330 +1367 IFLEFT$(A$,1)="E"THEN1340 +1368 IFLEFT$(A$,1)="W"THEN1410 +1369 GOTO1363 +1370 AZ=36:PRINT:PRINT"This is a tiny toilet" +1371 GOSUB9000 +1372 PRINT"Exit to the South only." +1373 S=1:GOSUB10000 +1374 IFLEFT$(A$,1)="L"THEN1370 +1376 IFLEFT$(A$,1)="S"THEN1340 +1379 GOTO1373 +1380 AZ=38:PRINT:PRINT"This is a small box-room" +1381 GOSUB9000 +1382 PRINT"Exits to the South and East." +1383 S=1:E=1:GOSUB10000 +1384 IFLEFT$(A$,1)="L"THEN1380 +1385 IFLEFT$(A$,1)="S"THEN1350 +1386 IFLEFT$(A$,1)="E"THEN1400 +1389 GOTO1383 +1390 AZ=40:PRINT:PRINT"You are in an ornate bathroom" +1391 GOSUB9000 +1392 PRINT"Exit to the South only." +1393 S=1:GOSUB10000 +1394 IFLEFT$(A$,1)="L"THEN1390 +1396 IFLEFT$(A$,1)="S"THEN1360 +1399 GOTO1393 +1400 AZ=41:PRINT:PRINT"This is the west gallery" +1401 GOSUB9000 +1402 PRINT"Exits lead North, South, East and West." +1403 N=1:S=1:E=1:W=1:GOSUB10000 +1404 IFLEFT$(A$,1)="L"THEN1400 +1405 IFLEFT$(A$,1)="N"THEN1420 +1406 IFLEFT$(A$,1)="S"THEN1320 +1407 IFLEFT$(A$,1)="E"THEN1410 +1408 IFLEFT$(A$,1)="W"THEN1380 +1409 GOTO1403 +1410 AZ=42:PRINT:PRINT"You are on the main landing" +1411 GOSUB9000 +1412 PRINT"Exits lead East, West and down." +1413 E=1:W=1:D=1:GOSUB10000 +1414 IFLEFT$(A$,1)="L"THEN1410 +1416 IFLEFT$(A$,1)="W"THEN1400 +1417 IFLEFT$(A$,1)="E"THEN1360 +1418 IFLEFT$(A$,1)="D"THEN1240 +1419 GOTO1413 +1420 AZ=39:PRINT:PRINT"You have reached a steel-plated door. It is padlocked." +1421 GOSUB9000 +1422 PRINT"You can return to the South" +1423 S=1:GOSUB10000 +1424 IFLEFT$(A$,1)="L"THEN1420 +1426 IFLEFT$(A$,1)="S"THEN1400 +1429 GOTO1423 +1604 IFK$="N"THEN15000 +9000 IT=0:PRINT"I can see ";:IFWB=AZ THEN PRINT"the window is broken" +9001 IFOS=AZ THEN PRINT"an open safe":IT=1 +9002 IFPL=AZ THEN PRINT"a plastic bag":IT=1 +9003 IFBD=AZ THEN PRINT"black dust":IT=1 +9004 IFPO=AZ THEN PRINT"an open panel on wall":IT=1 +9005 IFCP=AZ THEN PRINT"a locked panel on the wall":IT=1 +9006 IFYP=AZ THEN PRINT"gritty yellow powder":IT=1 +9007 IFBU=AZ THEN PRINT"a wooden bucket":IT=1 +9008 IFHD=AZ THEN PRINT"a small hole in the door":IT=1 +9009 IFWA=AZ THEN PRINT"some water":IT=1 +9010 IFPG=AZ THEN PRINT"a large dove":IT=1 +9011 IFBX=AZ THEN PRINT"a cardboard box":IT=1 +9012 IFTW=AZ THEN PRINT"some twine":IT=1 +9013 IFKN=AZ THEN PRINT"a silver knife":IT=1 +9014 IFNE=AZ THEN PRINT"a fishing net":IT=1 +9015 IFLD=AZ THEN PRINT"a long ladder":IT=1 +9016 IFCR=AZ THEN PRINT"an abandoned car":IT=1 +9017 IFBL=AZ THEN PRINT"three .38 bullets":IT=1 +9018 IFME=AZ THEN PRINT"a joint of meat":IT=1 +9019 IFBR=AZ THEN PRINT"some brown bread":IT=1 +9020 IFTN=AZ THEN PRINT"an empty tobacco tin":IT=1 +9021 IF(DG=AZ)AND(AV=1) THEN PRINT"an alsatian growling at you":IT=1 +9022 IF(DG=AZ)AND(AV=0) THEN PRINT"the body of an alsatian dog":IT=1 +9023 IFTP=AZ THEN PRINT"a roll of sticky tape":IT=1 +9024 IFBK=AZ THEN PRINT"an open book":IT=1 +9025 IFMA=AZ THEN PRINT"a box of matches":IT=1 +9026 IFCU=AZ THEN PRINT"a snooker cue":IT=1 +9027 IFLP=AZ THEN PRINT"a loaded pistol":IT=1 +9028 IFSA=AZ THEN PRINT"a heavy safe":IT=1 +9029 IFNO=AZ THEN PRINT"a printed note":IT=1 +9030 IFRH=AZ THEN PRINT"a rope hangs from the window":IT=1:RO=99 +9031 IFGL=AZ THEN PRINT"a young girl tied up on the floor":IT=1 +9032 IFTT=AZ THEN PRINT"a roll of toilet tissue":IT=1 +9033 IF(TG=AZ)AND(AL=1) THEN PRINT"a thug asleep on the bed":IT=1 +9034 IF(TG=AZ)AND(AL=0) THEN PRINT"a thug lying dead on the bed":IT=1 +9036 IFHP=AZ THEN PRINT"a hose-pipe":IT=1 +9037 IFPT=AZ THEN PRINT"some petrol":IT=1 +9038 IFBB=AZ THEN PRINT"broken glass":IT=1 +9039 IFAB=AZ THEN PRINT"an acid burn":IT=1 +9040 IFSB=AZ THEN PRINT"a small bottle":IT=1 +9041 IFGF=AZ THEN PRINT"a young girl":IT=1 +9042 IF(CU=43)AND(HD=39) THEN PRINT"a cue on the floor":IT=1 +9043 IFRO=AZ THEN PRINT"a length of rope":IT=1 +9044 IFFU=AZ THEN PRINT"a fuse":IT=1 +9045 IFGP=AZ THEN PRINT"some gunpowder":IT=1 +9046 IFKY=AZ THEN PRINT"a set of keys":IT=1 +9047 IFPU=AZ THEN PRINT"a pistol":IT=1 +9048 IFBM=AZ THEN PRINT"a bomb":IT=1 +9098 IFIT=0 THEN PRINT"nothing of interest here" +9099 PRINT:RETURN +9100 GOSUB10000 +9101 IF(AV=1)AND(DB=0) THEN PRINT:PRINT"AAAAAARRRGGGHHHH - he got you":KD=1:GOTO30000 +9102 PRINT:GOTO1202 +10000 IFAR=1 THEN PRINT:PRINTTAB(20)"ALARM RINGING":IFTM>19THEN32000 +10001 IFOT=1THEN31001 +10002 PRINT:PRINT"What are you going to do now ?":NM=NM+1:IFNM>NM499THENOT=1 +10003 AA$="":BB$="":A$="":B$="":PRINT:INPUTQ$:REM PAPER2 +10004 PRINTTAB(29);"Moves ";NM +10006 IFAR=1THENTM=TM+1:PRINTTAB(29);"Alarm ";20-TM +10007 XX=10 +10008 L=LEN(Q$) +10009 FORJ=1TOL +10010 IFMID$(Q$,J,1)=" "THENXX=J+1 +10012 NEXT +10014 BB$=MID$(Q$,XX,L):AA$=LEFT$(Q$,XX-2) +10015 B$=LEFT$(BB$,3):A$=LEFT$(AA$,3) +10016 IF(AA$="LOST")OR(BB$="LOST") THEN PRINT:PRINT"I'm fed up too":GOTO10000 +10017 IFAA$="SHOUT" THEN PRINT:PRINT"I've already got a headache":GOTO10000 +10018 IF(AA$="HOTWIRE")OR(AA$="STEAL") THEN PRINT"Let's keep it legal":GOTO10000 +10019 IFB$="OFF" THEN PRINT:PRINT"I'm going to ignore that":GOTO10000 +10050 IFA$="GET"THEN11000 +10051 IFA$="EMP" THEN PRINT:PRINT"Use the DROP command":GOTO10000 +10052 IFA$="SCO"THEN11800 +10053 IFA$="DRO"THEN11100 +10054 IFA$="THR"THEN11200 +10055 IFA$="KIL"THEN11350 +10056 IFA$="OPE"THEN11300 +10057 IFA$="CLI"THEN11320 +10058 IFA$="FRI"THEN11340 +10059 IFA$="MAK"THEN11400 +10060 IF(A$="SYP")OR(A$="SIP")THEN11450 +10061 IFA$="LOA"THEN11470 +10062 IF(A$="BLO")OR(A$="EXP")THEN11500 +10063 IFA$="USE"THEN11550 +10064 IF(A$="STA")AND(AZ=11) THEN PRINT:PRINT"How ?":GOTO10002 +10065 IFA$="REA"THEN11570 +10066 IFA$="QUI"THEN11600 +10067 IFA$="SHO"THEN11620 +10068 IFA$="PRE"THEN11700 +10069 IFA$="HEL" THEN PRINT:PRINT"It's no use shouting HELP":GOTO10000 +10070 IFA$="INV" THEN14000 +10072 IF(A$="RUN")OR(A$="JUM") THEN PRINT:PRINT"I'm too tired for athletics":GOTO10000 +10073 IFAA$="PANIC" THEN PRINT:PRINT"I'm inclined to agree":GOTO10000 +10090 IFL>1THEN10995 +10100 IFA$="L"THENRETURN +10101 IF(A$="N")AND(N=1)THEN15000 +10102 IF(A$="S")AND(S=1)THEN15000 +10103 IF(A$="E")AND(E=1)THEN15000 +10104 IF(A$="W")AND(W=1)THEN15000 +10105 IF(A$="U")AND(U=1)THEN15000 +10106 IF(A$="D")AND(D=1)THEN15000 +10107 IF A$="I" THEN14000 +10990 IFL=1THEN10998 +10995 PRINT:PRINT"I don't know how to ";AA$;" something":GOTO10000 +10998 PRINT:PRINT"Sorry, can't do that":GOTO10000 +11000 GOSUB15100:IFD9=1THEND9=0:GOTO10000 +11001 IF(B$="BAG")AND(PL=AZ)THENPL=0:GOTO15000 +11002 IF(B$="DUS")AND(BD=AZ)THEN13000 +11004 IF(B$="KEY")AND(KY=AZ)THENKY=0:GOTO15000 +11006 IF(B$="POW")AND(YP=AZ)THEN13000 +11008 IF(B$="BUC")AND(BU=AZ)THENBU=0:GOTO15000 +11010 IF(B$="ROP")AND(RO=AZ)THENRO=0:GOTO15000 +11012 IF(B$="WAT")AND(WA=AZ)THEN13000 +11014 IF(B$="DOV")AND(PG=AZ)THEN13000 +11016 IF(B$="BOX")AND(BX=AZ)THENBX=0:GOTO15000 +11018 IF(B$="TWI")AND(TW=AZ)THENTW=0:GOTO15000 +11020 IF(B$="KNI")AND(KN=AZ)THENKN=0:GOTO15000 +11022 IF(B$="NET")AND(NE=AZ)THENNE=0:GOTO15000 +11024 IF(B$="LAD")AND(LD=AZ)THENLD=0:GOTO15000 +11026 IF(B$="HOS")AND(HP=AZ)THENHP=0:GOTO15000 +11030 IF(B$="PIS")AND(PU=AZ)THENPU=0:GOTO15000 +11032 IF(B$="BUL")AND(BL=AZ)THENBL=0:GOTO15000 +11034 IF(B$="MEA")AND(ME=AZ)THENME=0:GOTO15000 +11038 IF(B$="NOT")AND(NO=AZ)THENNO=0:GOTO15000 +11040 IF(B$="MAT")AND(MA=AZ)THENMA=0:GOTO15000 +11044 IF(B$="CUE")AND(CU=AZ)THENCU=0:GOTO15000 +11046 IF(B$="BOO")AND(BK=AZ)THENBK=0:GOTO15000 +11048 IF(B$="BRE")AND(BR=AZ)THENBR=0:GOTO15000 +11052 IF(B$="TAP")AND(TP=AZ)THENTP=0:GOTO15000 +11057 IFQ$="BAG" THEN PRINT:PRINT"Sorry, it will suffocate":GOTO10000 +11058 IF(B$="GUN")AND(GP=AZ)THEN13000 +11060 IF(B$="TIS")AND(TT=AZ)THENTT=0:GOTO15000 +11062 IF(B$="PET")AND(PT=AZ)THEN13000 +11064 IF(B$="GIR")AND(GF=AZ)THENGL=0:GOTO15000 +11066 IF(B$="BOT")AND(SB=AZ)THENSB=0:GOTO15000 +11068 IF(B$="TIN")AND(TN=AZ)THENTN=0:GOTO15000 +11070 IF(B$="SAF")AND(SA=AZ) THEN PRINT:PRINT"It weighs too much":GOTO10000 +11071 IF(B$="GRE")AND(AZ=14) THEN PRINT:PRINT"Don't be daft":GOTO10000 +11072 IF(B$="CAR")AND(CR=AZ) THEN PRINT:PRINT"It's too heavy":GOTO10000 +11073 IF(B$="BED")AND((AZ=32)OR(AZ=33)OR(AZ=34)) THEN PRINT:PRINT"It's too heavy":GOTO10000 +11074 IF(B$="THU")AND(TG=AZ)AND(AL=O) THEN PRINT:PRINT"He's too heavy":GOTO10000 +11075 IF(B$="THU")AND(TG=AZ)AND(AL=1) THEN PRINT +11077 IF(B$="DOG")AND(DG=AZ)AND(AV=0)THENDG=0:GOTO15000 +11078 IF(B$="DOG")AND(DG=AZ)AND(AV=1) THEN PRINT:PRINT"Not a good idea":GOTO10000 +11079 IF(B$="LIG")AND(AZ=20)AND(PO=AZ) THEN PRINT:PRINT"Bulb's too hot":GOTO10000 +11080 IF(B$="GLA")AND(BB=AZ)THENBB=0:GOTO15000 +11082 IF(B$="FUS")AND(FU=AZ)THENFU=0:GOTO15000 +11083 IF(BB$="STUFFED")OR(BB$="KNOTTED")THEN19050 +11084 IF(B$="BUT")AND(AZ=20) THEN PRINT:PRINT"Try pressing it":GOTO10000 +11085 IF(B$="WIN")AND(AZ=18) THEN PRINT:PRINT"It's a bit too high":GOTO10000 +11086 IF(B$="PAN")AND(AZ=20) THEN PRINT:PRINT"It's fixed to the wall"GOTO15000 +11087 IF(B$="BOM")AND(BM=AZ)THENBM=0:GOTO15000 +11099 GOTO19020 +11100 IF(B$="BAG")AND(PL=0)THENPL=AZ:GOTO13700 +11102 IF(B$="DUS")AND(BD=0)THEN13530 +11104 IF(B$="KEY")AND(KY=0)THENKY=AZ:GOTO13700 +11106 IF(B$="POW")AND(YP=0)THEN13520 +11108 IF(B$="BUC")AND(BU=0)THENBU=AZ:GOTO13710 +11110 IF(B$="ROP")AND(RO=0)THENRO=AZ:GOTO15000 +11112 IF(B$="WAT")AND(WA=0) THEN PRINT:PRINT"The water drains away":GOTO13500 +11114 IF(B$="DOV")AND(PG=0)THEN13510 +11118 IF(B$="TWI")AND(TW=0)THENTW=AZ:GOTO15000 +11120 IF(B$="KNI")AND(KN=0)THENKN=AZ:GOTO15000 +11122 IF(B$="NET")AND(NE=0)THENNE=AZ:GOTO15000 +11124 IF(B$="LAD")AND(LD=0)THENLD=AZ:GOTO15000 +11125 IF(B$="PIS")AND(LP=0)THENLP=AZ:GOTO15000 +11126 IF(B$="PIS")AND(PU=0)THENPU=AZ:GOTO15000 +11130 IF(B$="BUL")AND(BL=0)THENBL=AZ:GOTO15000 +11132 IF(B$="MEA")AND(ME=0)THENME=AZ:GOTO15000 +11134 IF(B$="NOT")AND(NO=0)THENNO=AZ:GOTO15000 +11136 IF(B$="MAT")AND(MA=0)THENMA=AZ:GOTO15000 +11138 IF(B$="CUE")AND(CU=0)THENCU=AZ:GOTO15000 +11140 IF(B$="BOO")AND(BK=0)THENBK=AZ:GOTO15000 +11142 IF(B$="BRE")AND(BR=0)THENBR=AZ:GOTO15000 +11144 IF(B$="TAP")AND(TP=0)THENTP=AZ:GOTO15000 +11146 IF(B$="GUN")AND(GP=0)THENGP=AZ:GOTO13540 +11148 IF(B$="TIS")AND(TT=0)THENTT=AZ:GOTO15000 +11150 IF(B$="PET")AND(PT=0) THEN PRINT:PRINT"The petrol evaporates":GOTO 13500 +11152 IF(B$="HOS")AND(HP=0)THENHP=AZ:GOTO15000 +11154 IF(B$="GIR")AND(GL=0)THENGL=AZ:GOTO15000 +11156 IF(B$="BOX")AND(BX=0)THENBX=AZ:GOTO13720 +11158 IF(B$="DOG")AND(DG=0)THENDG=AZ:GOTO15000 +11160 IF(B$="TIN")AND(TN=0)THENTN=AZ:GOTO13740 +11162 IF(B$="BOT")AND(SB=0)THENGOSUB19000:GOTO10000 +11164 IF(B$="FUS")AND(FU=0)THENFU=AZ:GOTO1OOOO +11199 GOTO19030 +11200 IF(B$="MEA")AND(ME=0)THEN11210 +11201 IF(B$="BRE")AND(BR=0)THEN11220 +11202 IF(B$="CUE")AND(CU=0)THEN11230 +11203 IF(B$="BOT")AND(SB=0)THEN11240 +11204 IF(B$="KNI")AND(KN=0)THEN11250 +11205 IF(B$="ROP")AND(RO=0)THEN11260 +11206 IF(B$="GLA")AND(BB=0)THEN11280 +11208 PRINT:PRINT"Use the DROP command":GOTO10000 +11210 IF(DG=AZ)AND(AV=1) THEN PRINT:PRINT"Dog eats meat":ME=99:DB=99:P=P+25:GOTO15000 +11211 ME=AZ:GOTO15000 +11220 IFPG=AZ THEN PRINT:PRINT"Dove eats the bread":BR=99:GOTO15000 +11221 IF(DG=AZ)AND(AV=1) THEN PRINT:PRINT"Dog sniffs bread - he is not happy" +11222 BR=AZ:GOTO15000 +11230 IFDG=AZ THEN PRINT:PRINT"You have speared the dog":CU=AZ:AV=0:P=P+50:GOTO15000 +11231 IF(AZ=18)AND(WB=18)THEN11233 +11232 IF AZ=18 THEN PRINT:PRINT"The cue smashes the window":CU=39:WB=18:AR=1:GOTO14999 +11233 CU=AZ:GOTO15000 +11240 IFAZ<>39THENGOSUB19000:GOTO10000 +11241 PRINT:PRINT"Acid in the bottle burns small hole in the door":P=P+200 +11242 SB=99:GL=39:HD=39:BB=39:GOTO15000 +11250 IFDG=AZ THEN PRINT:PRINT"You have killed the dog":KN=AZ:AV=0:GOTO15000 +11251 IF(GL=AZ)AND(HD=AZ) THEN PRINT:PRINT"Girl cuts her bonds":KN=AZ:GL=99:GF=AZ +11255 KN=AZ:IC=IC-1 +11256 IFRO=39THEN11264 +11259 IC=IC+1:GOTO15000 +11260 IF(AZ<>39)AND(HD<>39)THENRIO=AZ:GOTO15000 +11262 IFGF<>39THENRO=AZ:GOTO15000 +11264 IFWB=0 THEN PRINT:PRINT"Girl breaks window and slides down rope" +11265 IFWB=0 THEN PRINT:PRINT"Alarm starts ringing":WB=18:POKE 49200,0:GOTO11270 +11266 IFWB=8 THEN PRINT:PRINT"Girl climbs out of window and down rope":GOTO10000 +11268 RO=39:GOTO15000 +11270 GF=18:RH=18:RO=18:IC=IC-1:AR=1:P=P+100:GOTO10000 +11275 GF=18:RH=18:RO=18:IC=IC-1:P=P+100:GOTO10000 +11280 PRINT:PRINT"The fragments are too small to throw":GOTO10000 +11300 IF(B$="DOO")AND(AZ=39) THEN PRINT:PRINT"It's locked, remember":GOTO10000 +11301 IF(B$="WIN")AND(AZ=18) THEN PRINT:PRINT"It's thirty feet up:GOTO10000 +11302 IF(B$="SAF")AND(AZ=21)AND(OS=99) THEN PRINT:PRINT"It's locked":GOTO10000 +11303 IF(B$="BOT")AND(SB=0) THEN PRINT:PRINT"The screw cap is stuck":GOTO10000 +11304 IF(B$="CAR")AND(AZ=11) THEN PRINT:PRINT"Nothing. Try the trunk":GOTO10000 +11305 IF(B$="TRU")AND(AZ=11) THEN PRINT:PRINT"Nothing here, either":GOTO10000 +11306 IF(B$="TIN")AND(TF=0)AND(TN=0) THEN PRINT:PRINT"Nothing inside":GOSUB10000 +11307 IF(B$="TIN")AND(TF=1)AND(TN=0) THEN PRINT:PRINT"Okay, it's open":GOSUB10000 +11308 IF(B$="TAN")AND(AZ=11)AND(PA=1) THEN PRINT:PRINT"It's already open":GOSUB10000 +11309 IF(B$="TAN")AND(AZ=11)THENPA=1:PRINT:PRINT"Okay, it's open":GOTO10000 +11310 IF(B$="SAF")AND(AZ=21)AND(OS=21) THEN PRINT:PRINT"It is open":GOTO10000 +11311 IF(B$="PAN")AND(AZ=20)AND(PO=20) THEN PRINT:PRINT"It is open"GOSUB10000 +11312 IF(B$="PAN")AND(AZ=20) THEN PRINT:PRINT"It's locked":GOTO10000 +11313 IF(B$="BOX")AND(XF=0)AND(BX=0) THEN PRINT:PRINT"Nothing inside":GOTO10000 +11314 IF(B$="BOX")AND(XF=1)AND(BX=0) THEN PRINT:PRINT"Okay, it's open":GOTO10000 +11315 GOTO19010 +11320 IF(B$="WAL")AND(AZ=18) THEN PRINT:PRINT"It's too steep":GOTO10000 +11321 IF(B$="WAL")AND(AZ=7) THEN PRINT:PRINT"It's too steep":GOTO10000 +11322 IF(B$="LAD")AND(AD<>0) THEN PRINT:PRINT"You have no ladder":GOTO10000 +11323 IF(B$="LAD")AND(AZ=18) THEN PRINT:PRINT"Ladder is too short":GOTO10000 +11324 IF(B$="LAD")AND(AZ=7) THEN PRINT:PRINT"You are out":LD=7:IC=IC-1:OP=1 +11325 IFOP=1THENAZ=6:RETURN +11326 GOTO10998 +11340 IF(B$="GIR")AND(GL=0) THEN PRINT:PRINT"Shame on you":GOTO10000 +11341 IFB$="THU"THEN11343 +11342 PRINT:PRINT"I don't understand":GOTO10000 +11343 IFFK=1 THEN PRINT:PRINT"You've already frisked him":GOTO10000 +11344 IFAL=1 THEN PRINT:PRINT"I should subdue him first":GOTO10000 +11345 PRINT"I've found a pistol.It is not loaded":PU=AZ:FK=1:P=P+50:GOTO10000 +11350 IF(B$="DOG")AND(AZ=24)AND(AV=1) THEN PRINT:PRINT"Good idea":GOTO10000 +11352 IF(B$="GIR")AND(GL=0) THEN PRINT:PRINT"N, I don't think so":GOTO10000 +11354 IF(B$="DOV")AND(DV=0) THEN PRINT:PRINT"No needless violence":GOTO10000 +11356 IF(B$="THU")AND(AZ=34)AND(AL=1) THEN PRINT:PRINT"I'm game. How?":GOTO11360 +11358 GOTO19010 +11360 PRINT:INPUTRR$:R$=LEFT$(RR$,3) +11361 PRINT:PRINT"With what ?":PRINT:INPUTSS$:S$=LEFT$(SS$,3) +11362 IFR$="STR"THEN11370 +11364 IFR$="STA"THEN11380 +11366 IFR$="HIT"THEN11390 +11368 IFR$="SUF"THEN11395 +11369 PRINT:PRINT"Come again ?":GOTO10000 +11370 IF(S$="TWI")AND(TW=0) THEN PRINT:PRINT"CROAK":AL=0:TW=AZ:IC=IC-1:P=P+50:GOTO10000 +11371 IF(S$="TWI")AND(TW<>0) THEN PRINT:PRINT"You don't have any":GOTO10000 +11372 IF(S$="ROP")AND(RO=0) THEN PRINT:PRINT"CROAK":AL=0:TW=AZ:IC=IC-1:P=P+50:GOTO10000 +11373 IF(S$="ROP")AND(RO<>0) THEN PRINT:PRINT"You don't have any":GOTO10000 +11374 IF(S$="HOS")AND(HP=0) THEN PRINT:PRINT"CROAK":AL=0:HP=AZ:IC=IC-1:P=P+50:GOTO10000 +11375 IF(S$="HOS")AND(HP<>0) THEN PRINT:PRINT"You don't have one":GOTO10000 +11376 PRINT:PRINT"Come again ?":GOTO10000 +11380 IF(S$="KNI")AND(KN=0) THEN PRINT:PRINT"Messy":AL=0:KN=AZ:IC=IC-1:P=P+50:GOTO10000 +11381 IF(S$="KNI")AND(KN<>0) THEN PRINT:PRINT"You don't have one":GOTO10000 +11382 PRINT:PRINT"Come again ?":GOTO10000 +11390 IF(S$="CUE")AND(CU=0) THEN PRINT:PRINT"KRUNCH":AL=0:CU=0:IC=IC+1:P=P+50:GOTO10000 +11391 IF(S$="CUE")AND(CU<>0) THEN PRINT:PRINT"You don't have one":GOTO10000 +11392 PRINT:PRINT"You managed to wake him - he's not happy- he approaches......." +11393 FORT=1TO500:NEXT:PRINT"**BANG** you are dead":POKE 49200,0:KT=1:GOTO30000 +11395 IF(S$="BAG")AND(PL=0)THEN1398 +11396 IF(S$="BAG")AND(PL<>0) THEN PRINT:PRINT"You don't have one":GOTO10000 +11397 PRINT:PRINT"What ???":GOTO10000 +11398 IFPF=1 THEN PRINT:PRINT"Your bag is full":GOTO10000 +11399 PRINT:PRINT"G-A-S-P !!!":AL=0:PL=AZ:IC=IC-1:P=P+50:GOTO10000 +11400 IFB$="GUN"THEN11410 +11401 IFB$="FUS"THEN11420 +11402 IFB$="BOM"THEN11430 +11403 IFB$="NOI" THEN PRINT"I'd keep quiet if I were you":GOTO10000 +11404 IF(B$="GIR")AND(GF=AZ) THEN PRINT:PRINT"Later, later":GOTO10000 +11405 IF(B$="GIR")AND(GF=0) THEN PRINT:PRINT"Later, later":GOTO10000 +11406 GOTO10998 +11410 IF(YP=0)AND(BD=0) THEN PRINT:PRINT"Okay, gunpowder ready":P=P+100:GOTO13600 +11411 IF(YP<>0)AND(BD<>0) THEN PRINT:PRINT"Sorry, can't do that": GOTO10000 +11420 IF(TT=0)AND(PT=0) THEN PRINT:PRINT"Okay, fuse ready":P=P+100:GOTO13670 +11421 GOTO10998 +11430 IF(FU=0)AND(GP=0)AND(TN=0) THEN PRINT:PRINT"Bomb ready":FU=99:GP=99:TN=99:GOTO11432 +11431 GOTO10998 +11432 BM=AZ:IC=IC-2:EE=0:P=P+200:GOTO10000 +11450 IFB$="PET"THEN11452 +11451 GOTO19010 +11452 IF(PA=0)OR(AZ<>11)THEN10998 +11453 PRINT:PRINT"What shall I use?" +11454 PRINT:INPUTS$:IFLEFT$(S$,3)="HOS"THEN11456 +11455 GOTO10998 +11456 IFHP<>0 THEN PRINT:PRINT"You don't have one":GOTO10000 +11457 PRINT:PRINT"Okay":PT=AZ:HP=AZ:GOTO13000 +11470 IFB$="PIS"THEN11472 +11471 GOTO10998 +11472 IF(PU<>0)OR(BL<>0)THEN10998 +11473 IFLP=0 THEN PRINT:PRINT"It's already loaded":GOTO10000 +11474 LP=0:PU=99:BL=99:PRINT:PRINT"Okay":IC=IC-1:GOTO10000 +11500 IF(B$="SAF")AND(OS=21) THEN PRINT:PRINT"It's already open":GOTO10000 +11501 IF(B$="SAF")OR(B$="DOO")THEN11503 +11502 GOTO10998 +11503 IF(B$="SAF")AND(AZ<>21) THEN PRINT:PRINT"I can't see a safe":GOTO10000 +11504 IF(B$="DOO")AND(AZ<>39) THEN PRINT:PRINT"I can't see a door":GOTO10000 +11506 PRINT:PRINT"Using what ?":PRINT:INPUTZZ$:Z$=LEFT$(ZZ$,3) +11507 IFZ$="GUN"THEN11510 +11508 IFZ$="BOM"THEN11530 +11509 GOTO19010 +11510 IFGP<>0 THEN PRINT:PRINT"You don't have any":GOTO10000 +11512 PRINT:PRINT"Okay, how shall we light it?" +11514 PRINT:INPUTXX$:X$=LEFT$(XX$,3) +11516 IF(X$="MAT")AND(MA=0)THENMA=99:GP=99:GOTO11525 +11518 IF(X$="PIS")AND(LP=0)THENLP=99:PI=0:GP=99:GOTO11525 +11520 IF(X$="PIS")AND(PI=0) THEN PRINT:PRINT"CLICK it isn't loaded":GOTO10000 +11522 PRINT:PRINT"Let's try again, eh":GOTO10000 +11525 PRINT:PRINT"****B*O*O*O*M*M*M****":POKE 49200,0 +11527 IFX$="MAT" THEN PRINT:PRINT"You have been blown to bits":KE=1:GOTO30000 +11528 IFX$="PIS" THEN PRINT:PRINT"Lots of smoke but unsuccessful":GOTO30000 +11530 IFBM<>0 THEN PRINT:PRINT"You don't have a bomb":GOTO10000 +11532 PRINT:PRINT"Okay, how shall we light it?" +11534 PRINT:INPUTXX$:X$=LEFT$(XX$,3) +11536 IF(X$="MAT")AND(MA=0)THENMA=99:BM=99:GOTO11545 +11538 IF(X$="PIS")AND(LP=0)THENLP=99:PU=0:BM=99:QZ=1 +11539 IFQZ=1THENQZ=0:PRINT:PRINT"*BANG*BANG*BANG*":GOTO11545 +11540 IF(X$="PIS")AND(PU=0) THEN PRINT:PRINT"CLICK it isn't loaded":GOTO10000 +11542 PRINT:PRINT"Let's try again, eh":GOTO10000 +11545 PRINT:PRINT"****B*O*O*O*M*M*M****":POKE 49200,0 +11546 IFB$="DOO" THEN PRINT:PRINT"The door is untouched":GOTO10000 +11547 PRINT:PRINT"The safe is open":SB=AZ:SA=99:OS=21:P=P+200:GOTO10000 +11550 IFB$="KEY"THEN11552 +11551 GOTO10998 +11552 IFKY<>0THEN19030 +11553 IF(AZ=39)OR(AZ=21)OR(AZ=11)THEN11556 +11554 IFAZ=20THEN11560 +11555 PRINT:PRINT"I don't understand":GOTO10000 +11556 PRINT:PRINT"The keys don't fit":GOTO10000 +11560 PRINT:PRINT"It's open" +11562 PRINT:PRINT"I see lots of lights and a red button" +11564 KY=20:IC=IC-1:CP=99:PO=20:GOTO10000 +11570 IFB$="NOT"THEN11572 +11571 GOTO11580 +11572 IFN0<>0THEN19030 +11573 PRINT:PRINT"It says":PRINT:PRINT"For the best computer games" +11574 PRINT:PRINT" SEVERN SOFTWARE" +11575 PRINT" 5, SCHOOL CRESCENT" +11576 PRINT" LYDNEY" +11577 PRINT" GLOS GL15 5TA" +11578 PRINT:PRINT" TEL(0594) 43352":GOTO10000 +11580 IFB$="BOO"THEN11582 +11581 GOTO19010 +11582 IFBK<>0THEN19030 +11583 PRINT:PRINT"I shouldn't bother":GOTO10000 +11600 PRINT:PRINT"Giving up ???? - are you sure ? "; +11602 GET K$:IFK$="Y"THENGU=1:GOTO30001 +11604 IFK$="N"THEN15000 +11606 GOTO11602 +11620 IFPU=0 THEN PRINT:PRINT"CLICK it isn't loaded":GOTO10000 +11622 IF(PU<>0)AND(LP<>0) THEN PRINT:PRINT"You have no gun":GOTO10000 +11623 PRINT:PRINT"*BANG*BANG*BANG*":LP=99:PU=0:GOSUB16000 +11624 IF(AZ=24)AND(AV=1) THEN PRINT:PRINT"The dog is dead":P=P+50:AV=0 +11626 GOTO10000 +11700 IFB$="BUT"THENGOTO11702 +11701 PRINT:PRINT"Press what ?":GOTO10000 +11702 IF(PO<>20)OR(AZ<>20)THEN19020 +11704 IFAR=1 THEN PRINT:PRINT"Alarm stops ringing":POKE 49200,0::AR=0:P=P+200:GOTO10000 +11706 PRINT:PRINT"Oh - nothing happened":GOTO10000 +11800 PRINT:PRINT"Your score is ";P-NM;" points":GOTO10000 +12000 IF(GL=39)OR(GF=39) THEN PRINT:PRINT"She cannot get through the hole":GOTO10000 +12004 GF=0:GOTO15000 +13000 PRINT:PRINT"Carry it in what?":PRINT:INPUTQQ$:Q$=LEFT$(QQ$,3):IFQ$="IN "THEN13002 +13001 GOTO13004 +13002 XX=10:L=LEN(QQ$):FORJ=1TOL:IFMID$(QQ$,J,1)=" "THENXX=J+1 +13003 NEXT:J$=MID$(QQ$,XX,L):Q$=LEFT$(J$,3) +13004 IF(Q$="BUC")AND(BU<>0)THEN13012 +13005 IF(Q$="BOX")AND(BX<>0)THEN13012 +13006 IF(Q$="BOT")AND(SB<>0)THEN13012 +13007 IF(Q$="BAG")AND(PL<>0)THEN13012 +13008 IF(Q$="TIN")AND(TN<>0)THEN13012 +13009 IF(Q$="NET")AND(NE<>0)THEN13012 +13010 IF(Q$="BOT")AND(SB=0) THEN PRINT:PRINT"Your bottle is full:GOTO10000 +13011 GOTO13014 +13012 PRINT:PRINT"You aren't carrying one":GOTO10000 +13014 IFB$="GUN"THEN13250 +13015 IFB$="WAT"THEN13020 +13016 IFB$="DOV"THEN13050 +13017 IFB$="POW"THEN13100 +13018 IFB$="DUS"THEN13150 +13019 IFB$="PET"THEN13200 +13020 IF(Q$="BUC")AND(BF=0)THENWA=0:BF=1:WW=1:GOTO15000 +13021 IF(Q$="BUC")AND(BF=1) THEN PRINT:PRINT"Your bucket is full":GOTO10000 +13022 IF(Q$="BAG")AND(PF=0)THENWA=0:PF=1:WW=5:GOTO15000 +13023 IF(Q$="BAG")AND(PF=1)THEN19060 +13028 IF(Q$="TIN")AND(TF=0)THENWA=0:TF=1:WW=6:GOTO15000 +13029 IF(Q$="TIN")AND(TF=1)THEN19060 +13050 IF(Q$="BUC")AND(BF=0)THENPG=0:BF=1:PP=1:GOTO15000 +13051 IF(Q$="BUC")AND(BF=1)THEN19060 +13052 IF(Q$="BOX")AND(XF=0)THENPG=0:XF=1:PP=2:GOTO15000 +13053 IF(Q$="BOX")AND(XF=1)THEN19060 +13054 IF(Q$="NET")AND(NF=0)THENPG=0:NF=1:PP=3:GOTO15000 +13055 IF(Q$="NET")AND(NF=1)THEN19060 +13065 GOTO19040 +13100 IF(Q$="BUC")AND(BF=0)THENYP=0:BF=1:Y=1:GOTO15000 +13101 IF(Q$="BUC")AND(BF=1)THEN19060 +13102 IF(Q$="BOX")AND(XF=0)THENYP=0:XF=1:Y=2:GOTO15000 +13103 IF(Q$="BOX")AND(XF=1)THEN19060 +13108 IF(Q$="BAG")AND(PF=0)THENYP=0:PF=1:Y=5:GOTO15000 +13109 IF(Q$="BAG")AND(PF=1)THEN19060 +13110 IF(Q$="TIN")AND(TF=0)THENYP=0:TF=1:Y=6:GOTO15000 +13111 IF(Q$="TIN")AND(TF=1)THEN19060 +13115 GOTO19040 +13150 IF(Q$="BUC")AND(BF=0)THENBD=0:BF=1:B=1:GOTO15000 +13151 IF(Q$="BUC")AND(BF=1)THEN19060 +13152 IF(Q$="BOX")AND(XF=0)THENBD=0:XF=1:B=2:GOTO15000 +13153 IF(Q$="BOX")AND(XF=1)THEN19060 +13158 IF(Q$="BAG")AND(PF=0)THENBD=0:PF=1:B=5:GOTO15000 +13159 IF(Q$="BAG")AND(PF=1)THEN19060 +13160 IF(Q$="TIN")AND(TF=0)THENBD=0:TF=1:B=6:GOTO15000 +13161 IF(Q$="TIN")AND(TF=1)THEN19060 +13165 GOTO19040 +13200 IF(Q$="BUC")AND(BF=0)THENPT=0:BF=1:G=1:GOTO13240 +13201 IF(Q$="BUC")AND(BF=1)THEN19060 +13202 IF(Q$="BAG")AND(PF=0)THENPT=0:PF=1:G=5:GOTO13240 +13203 IF(Q$="BAG")AND(PF=1)THEN19060 +13208 IF(Q$="TIN")AND(TF=0)THENPT=0:TF=1:G=6:GOTO13240 +13209 IF(Q$="TIN")AND(TF=1)THEN19060 +13210 GOTO19040 +13240 PRINT:PRINT"Okay":GOTO10000 +13250 IF(Q$="BUC")AND(BF=0)THENBF=1:EE=1:GP=0:IC=IC+1:GOTO13240 +13251 IF(Q$="BUC")AND(BF=1)THEN19060 +13252 IF(Q$="BAG")AND(PF=0)THENPF=1:EE=5:GP=0:IC=IC+1:GOTO13240 +13253 IF(Q$="BAG")AND(PF=1)THEN19060 +13254 IF(Q$="BOX")AND(XF=0)THENXF=1:EE=2:GP=0:IC=IC+1:GOTO13240 +13255 IF(Q$="BOX")AND(XF=1)THEN19060 +13258 IF(Q$="TIN")AND(TF=0)THENTF=1:EE=6:GP=0:IC=IC+1:GOTO13240 +13259 IF(Q$="TIN")AND(TF=1)THEN19060 +13260 GOTO19040 +13500 IFWW=1THENBF=0:WW=0 +13502 IFWW=5THENPF=0:WW=0 +13503 IFWW=6THENTF=0:WW=0 +13505 WA=99:GOTO15000 +13510 IFPP=1THENBF=0:PP=0 +13511 IFPP=2THENXF=0:PP=0 +13512 IFPP=3THENNF=0:PP=0 +13515 PG=AZ:GOTO15000 +13520 IFY=1THENBF=0:Y=0 +13521 IFY=2THENXF=0:Y=0 +13523 IFY=5THENPF=0:Y=0 +13524 IFY=6THENTF=0:Y=0 +13525 YP=AZ:GOTO15000 +13530 IFB=1THENBF=0:B=0 +13531 IFB=2THENXF=0:B=0 +13533 IFB=5THENPF=0:B=0 +13534 IFB=6THENTF=0:B=0 +13535 BD=AZ:GOTO15000 +13540 IFEE=1THENBF=0:EE=0 +13541 IFEE=2THENXF=0:EE=0 +13542 IFEE=5THENPF=0:EE=0 +13544 IFEE=6THENTF=0:EE=0 +13545 GP=AZ:GOTO15000 +13550 IFG=1THENBF=0:G=0 +13553 IFG=5THENPF=0:G=0 +13554 IFG=6THENTF=0:G=0 +13555 PT=99:GOTO15000 +13600 IF(Y=1)OR(B=1)THENBF=0 +13601 IF(Y=2)OR(B=2)THENXF=0 +13602 IF(Y=5)OR(B=5)THENPF=0 +13603 IF(Y=6)OR(B=6)THENTF=0 +13604 YP=99:BD=99:Y=0:B=0:GP=AZ:IC=IC-2:GOTO10000 +13660 BM=0 +13661 IFEE=1THENBF=0:EE=0 +13662 IFEE=2THENXF=0:EE=0 +13663 IFEE=5THENPF=0:EE=0 +13664 IFEE=6THENTF=0:EE=0 +13669 GOTO10000 +13670 IFG=1THENBF=0:G=0 +13671 IFG=5THENPF=0:G=0 +13672 IFG=6THENTF=0:G=0 +13674 TT=99:PT=99:G=0:FU=AZ:IC=IC-1:GOTO10000 +13700 IFWW=5THENWA=99:WW=0:GOSUB13800 +13701 IFB=5THENBD=AZ:B=0 +13702 IFY=5THENYP=AZ:Y=0 +13703 IFG=5THENPT=99:G=0:GOSUB13810 +13704 IFEE=5THENGP=AZ:EE=0 +13705 IFPF=1THENPF=0:IC=IC-1 +13706 GOTO15000 +13710 IFWW=1THENWA=99:WW=0:GOSUB13800 +13711 IFB=1THENBD=AZ:B=0 +13712 IFY=1THENYP=AZ:Y=0 +13713 IFG=1THENPT=99:G=0:GOSUB13810 +13714 IFEE=1THENGP=AZ:EE=0 +13715 IFPP=1THENPG=AZ +13716 IFBF=1THENBF=0:IC=IC-1 +13717 GOTO15000 +13720 IFB=2THENBD=AZ:B=0 +13721 IFY=2THENYP=AZ:Y=0 +13722 IFPP=2THENPG=AZ:PP=0 +13723 IFEE=2THENGP=AZ:EE=0 +13724 IFXF=1THENXF=0:IC=IC-1 +13725 GOTO15000 +13730 IFPP=3THENPG=AZ:PP=0 +13731 IFNF=1THENNF=0:IC=IC-1 +13732 GOTO15000 +13740 IFWW=6THENWA=99:WW=0:GOSUB13800 +13741 IFB=6THENBD=AZ:B=0 +13742 IFY=6THENYP=AZ:Y=0 +13743 IFG=6THENPT=99:G=0:GOSUB13810 +13744 IFEE=6THENGP=AZ:EE=0 +13745 IFTF=1THENTF=0:IC=IC-1 +13746 GOTO15000 +13800 PRINT:PRINT"The water spills out and drains away":RETURN +13810 PRINT:PRINT"The petrol spills out and evaporates":RETURN +14000 HOME:PRINTTAB(15);" Inventory" +14001 PRINT"***********************************" +14002 IFPL=0 THEN PRINTTAB(13);"A plasic bag" +14003 IFBD=0 THEN PRINTTAB(13);"Some black dust" +14004 IFKY=0 THEN PRINTTAB(13);"A set of keys" +14005 IFPU=0 THEN PRINTTAB(13);"A pistol" +14006 IFYP=0 THEN PRINTTAB(13);"Some gritty yellow powder" +14007 IFBU=0 THEN PRINTTAB(13);"A wooden bucket" +14008 IFRO=0 THEN PRINTTAB(13);"A length of rope" +14009 IFWA=0 THEN PRINTTAB(13);"Some water" +14010 IFPG=0 THEN PRINTTAB(13);"A large dove" +14011 IFBL=0 THEN PRINTTAB(13);"3 bullets" +14012 IFKN=0 THEN PRINTTAB(13);"A silver knife" +14013 IFTW=0 THEN PRINTTAB(13);"Some twine" +14014 IFME=0 THEN PRINTTAB(13);"Some meat" +14015 IFNO=0 THEN PRINTTAB(13);"A printed note" +14016 IFMA=0 THEN PRINTTAB(13);"A box of matches" +14017 IFCU=0 THEN PRINTTAB(13);"A snooker cue" +14018 IFBK=0 THEN PRINTTAB(13);"A large book" +14019 IFLD=0 THEN PRINTTAB(13);"A ladder" +14020 IFBR=0 THEN PRINTTAB(13);"Some brown bread" +14021 IFTP=0 THEN PRINTTAB(13);"a roll of sticky tape" +14022 IFGP=0 THEN PRINTTAB(13);"Some gunpowder" +14023 IFTT=0 THEN PRINTTAB(13);"Some toilet tissue" +14024 IFPT=0 THEN PRINTTAB(13);"Some petrol" +14025 IFHP=0 THEN PRINTTAB(13);"A hose-pipe" +14026 IFGL=0 THEN PRINTTAB(13);"A girl" +14027 IFDG=0 THEN PRINTTAB(13);"A dead dog" +14028 IFBB=0 THEN PRINTTAB(13);"Some broken glass" +14029 IFBX=0 THEN PRINTTAB(13);"A cardboard box" +14030 IFNE=0 THEN PRINTTAB(13);"A fishing net" +14031 IFSB=0 THEN PRINTTAB(13);"A small bottle" +14032 IFTN=0 THEN PRINTTAB(13);"A tobacco tin" +14034 IFBM=0 THEN PRINTTAB(13);"A bomb" +14035 IFLP=0 THEN PRINTTAB(13);"A loaded pistol" +14036 IFFU=0 THEN PRINTTAB(13);"A fuse" +14100 PRINT"***********************************":RETURN +14999 PRINT:PRINT"Alarm starts ringing" +15000 IFA$="GET"THENIC=IC+1 +15001 IFA$="MAK"THENIC=IC-2 +15002 IFA$="DRO"THENIC=IC-1:PRINT:PRINT"Okay":GOTO10000 +15003 IFA$="THR"THENIC=IC-1 +15005 N=0:S=0:E=0:W=0:U=0:D=0:PRINT:PRINT"Okay":IT=0:RETURN +15100 IFIC>7 THEN PRINT:PRINT"You will have to DROP something":D9=1 +15101 RETURN +16000 POKE 49200,0:FORZZ=1TO25:NEXT:POKE 49200,0:FORZZ=1TO25:NEXT:POKE 49200,0:RETURN +17000 POKE 49200,0 +19000 PRINT:PRINT"*CRASH*TINKLE* There is a funny smell.":AB=AZ +19005 BB=AZ:SB=99:RETURN +19010 PRINT:PRINT"Eh ??":GOTO10000 +19020 PRINT:PRINT"I can't see ";BB$;" anywhere":GOTO10000 +19030 PRINT:PRINT"Don't have ";BB$;" - check inventory":GOTO10000 +19040 PRINT:PRINT"Don't be ridiculous" +19041 IFPT=AZ THENPT=99 +19042 GOTO10000 +19050 PRINT:PRINT"Abuse will get you nowhere":GOTO10000 +19060 PRINT:PRINT"Sorry, that's full":GOTO10000 +30000 FORT=1TO500:NEXT +30001 FORLF=1TO24:PRINT:NEXT +30002 IFKD=1THENKL$="dog":NM=NM*5 +30003 IFKT=1THENKL$="thug":NM=NM*4 +30004 IFKE=1THENKL$="explosion":NM=NM*3 +30005 IFGU=1 THEN PRINT:PRINT"You were unable to complete your task":NM=NM*10 +30006 IF(GU=1)AND(NM<502)THENNM=502 +30007 IFGU=1THEN30020 +30008 IFOT=1 THEN PRINT:PRINT"You have made your 500 moves":GOTO30020 +30010 HOME:PRINT:PRINT"You have been killed by the ";KL$:GOTO30020 +30020 PRINT:PRINT:PRINT"Game score ";P-NM;" points" +30030 PRINT:PRINT:PRINT"Do you want to try again ?" +30032 FORT=1TO15:PRINT:NEXT +30035 GET K$:IFK$="Y"THENRUN:GOTO100 +30036 IFK$="N"THEN40000 +30037 GOTO30035 +31000 FORT=1TO250:NEXT:FORT=1TO22:PRINT:NEXT +31002 PRINT:PRINT:PRINT"and you have made it - WELL DONE":P=P+200:GOTO30020 +32000 FORT=1TO500:NEXT +32001 FORLF=1TO24:PRINT:PRINT:NEXT +32005 PRINT"You failed to silence the alarm" +32006 PRINT"in time and have been captured.":NM=NM*2:GOTO30020 +40000 HOME:PRINT:PRINT:PRINT"If you have enjoyed this game, why not" +40001 PRINT" send for our list" +40002 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT" SEVERN SOFTWARE" +40003 PRINT" 5, SCHOOL CRESCENT" +40004 PRINT" LYDNEY" +40005 PRINT" GLOS GL15 5TA" +40006 PRINT" TEL(0594) 43352" +40018 FORT=1TO1000:NEXT:POKE 49200,0 +40019 PRINT:PRINT:PRINT:PRINT:PRINT"***********************************" +40020 PRINT"Any key to clear or 'R' to re-start "; +40021 GETK$ +40022 IFK$="R"THENRUN +40023 HOME:END + \ No newline at end of file diff --git a/encounter/hello.bas b/encounter/hello.bas new file mode 100644 index 0000000..88e605d --- /dev/null +++ b/encounter/hello.bas @@ -0,0 +1,8 @@ +10 HOME +20 HGR2 +30 PRINT CHR$ (4)"BLOAD TITLE,A$4000" +40 WAIT 49152,128 +50 POKE 49168,0 +60 TEXT +70 PRINT CHR$ (4)"RUN ENCOUNTER" +80 END diff --git a/encounter/solution.txt b/encounter/solution.txt new file mode 100644 index 0000000..c84edde --- /dev/null +++ b/encounter/solution.txt @@ -0,0 +1,278 @@ +ENCOUNTER +Severn Software, 1984 +===================== + +Solution by Exemptus - June 2020 +Fix by Antoine Vignau - November 2024 + +Overview and general hints: +--------------------------- +In this adventure you have to rescue a young girl who has been kidnapped by a +gang of thugs and kept in a house. There is a limit of 500 moves to achieve this +and a score will be given based on the number of actions taken to complete the +game (some of them completely optional) and the moves taken. The game has no +random elements so a given solution will always work. + +We are also told that is we trigger the alarm at the house we have 20 seconds to +turn it off. Of course, we are not told how this is done or what activates the +alarm in the first place. Also it is given that we can manufacture some items +and a knowledge of chemistry will be useful. In practice this will be only +limited to making gunpowder and a fuse from components in order to build a bomb. + +Some objects require a container to be put into: the black and yellow dusts, the +water and the petrol. There are several containers, such as the box, bag, tin or +bucket, but they are not operated like true containers - they are just a device +to be able to carry the mentioned items, taking additional inventory slots. + +Although the limit seems tight, the game can be finished in as few as 120 moves. +The problem is that some versions are bugged and the game will crash in some +circumstances. In the Spectrum version labelled as 1.1, frisking the thug after +killing him will crash the game with a "Variable not found" report. Indeed, one +of the game's internal flags is not initialised correctly. Although it is +possible to finish the game without the mentioned action, points are awarded for +it. It is possible to patch the Spectrum version with the following POKEs: + +POKE 23759,241 +POKE 23760,102 +POKE 23761,107 +POKE 23762,61 +POKE 23763,176 +POKE 23764,34 +POKE 23765,48 +POKE 23766,34 +POKE 23767,58 +POKE 23768,234 + +The POKEs need to be executed before the game runs, for those using an emulator. +With this patch the game will run as intended. + +Points are given for the following actions: + +Action Points +-------------------------------------------- +Feeding the meat to the dog 20 +Killing the dog with the snooker cue 50 +Opening the steel door 200 +Breaking the upstairs window 100 +Killing the thug 50 +Frisking the thug 50 +Making the gunpowder 100 +Making the fuse 100 +Making the bomb 200 +Opening the safe 200 +Stopping the alarm after triggered 200 +Completing the adventure 200 + +This gives a maximum possible score of 1,470 points minus the number of moves +taken. Scores into the 1,200 are perfectly possible. The walkthrough below does +not try to minimise moves but follows a reasonable, logical sequence. It is +based on the Spectrum version, although I'm not aware of any significant +differences with other versions. + + +Walkthrough: +------------ +[We begin at the market square.] + +E +N +GET KEYS [Keys are always useful] +N +N +E +N [If we go N we will be confronted by the dog, which we are not yet ready for] +GET KNIFE +N +W [Note a barred window can be seen from here] +S +W +GET CUE [This will be extremely useful] +S +GET MEAT + +[The bread can also be used to feed the dove. However, the dove has no real use +so we can ignore it.] + +S +GET TIN +E +THROW MEAT + +[The dog eats the meat. This does not have any effect - we still have to kill +it. We did it for the points. Until we kill the dog, we are unable to move in +other directions.] + +THROW CUE [We spear the dog this way - there are other ways to kill it though] +GET CUE +N +N +N +THROW CUE [This smashes the upstairs window] + +[The alarm has been activated. We have 20 moves to turn it off, but fortunately +we can do it, as the mechanism is hidden behind a panel in the cellar, which the +keys will open.] + +S +E +D +D [Note there is a heavy safe here] +S [Fix by Antoine Vignau: move was missing] +USE KEYS [A red button appears] +PRESS BUTTON + +[The alarm is now off. One could have though that the alarm might alert the +thugs in the house, but it turns out there is only one and he's fast asleep, so +there is nothing to be concerned about. By the way, we have dropped the keys +automatically on using them, so we just have the knife and tin in our inventory. +We will need other components, which we will retrieve now.] + +N +U +U +GET MATCHES +W +N +E +GET LADDER + +[We may think that the ladder is a good option to reach the broken window, but +it turns out it is too short. The only real use of the ladder is to escape the +pit where the yellow powder is.] + +S +S +S [Note the abandoned car] +S +S +GET BAG [To put the yellow powder in] +N +E +GET POWDER [Carry it where?] +BAG +CLIMB LADDER + +[We are out. The ladder remains in the pit.] + +W +S +W +N +GET DUST [Carry it where?] +TIN +MAKE GUNPOWDER [From the carbon and brimstone] +GET GUNPOWDER [Carry it where?] +BAG [Which was emptied after making the gunpowder] + +[Now we need some petrol and tissue in order to make a fuse. The petrol can be +siphoned from the abandoned car and the tissue is upstairs in the house.] + +N +N +GET HOSE +E +E +S + +[We can OPEN CAR or OPEN TRUNK if we wish, but that achieves nothing. The game +tells us to try the trunk, so we can assume other parts of the car are there as +well.] + +OPEN TANK +SIPHON PETROL [What shall we use?] +HOSE [Carry it where?] +TIN +N +W +N +U +U + +[We are now upstairs, so far unexplored. To the West and North of here there is +a padlocked steel door, which we can correctly assume holds the kidnapped girl. +We can also assume the bomb is for opening the door, but this would be a flawed +assumption, because it is not.] + +E +E + +[There is an asleep thug here. If we FRISK THUG the game tells us that we should +subdue him first, so we may think of tying him up using the rope, the twine, or +the hose. The game clearly favours more violent approaches, though.] + +KILL THUG [I'm game. How?] +STAB HIM [With what?] +KNIFE [Messy] + +[But effective - the thug is now dead. It also would have worked to STRANGLE him +using the rope, twine or hose, HIT him with the cue, or even SUFFOCATE him with +the bag. No comment.] + +GET KNIFE +FRISK THUG + +[We find a pistol, but we are not going to use it, so we'll leave it here. If we +wanted to, we could LOAD it with the three bullets we found in the cellar.] + +N +GET TISSUE +MAKE FUSE [Using the tissue and petrol] +GET FUSE [Now we can make the bomb] +MAKE BOMB +GET BOMB +S +W +W +D +D +N +N +E +D +D + +[We have to open the safe with the bomb, as it has an object that will allow us +to deal with the steel door upstairs.] + +BLOW UP SAFE [Using what?] +BOMB [How shall we light it?] +MATCHES + +[The safe is open now. We would have to re-enter the room in order to refresh +the description, but no need: it contains a bottle.] + +GET BOTTLE + +[Finding out what is in the bottle is not difficult; if we THROW it we will be +told that there is a funny smell and afterwards there will be an acid burn in +the location. So the bottle holds a corrosive acid, which is what we need.] + +U +U +W +S +S +U +U +W +N + +[Here is the famous door, impregnable to everything but the acid. Actually there +are other possible ways to rescue the girl, such as using the rope to facilitate +her climbing down the window, but I won't go into them. Feel free to investigate +if you please.] + +THROW BOTTLE [The acid melts a hole and we can see the girl now] +THROW KNIFE [The girl cuts her bonds] +GET GIRL [She is carryable] +S +E +D +D +S +S +S +S +W + +[End of game, with 1262 points if all went well.]