Home » Archimedes archive » Archimedes World » AW-1991-12.adf » December91 » !AWDec91/Goodies/AdvSystem/!AdvSystem/!GamePlay
!AWDec91/Goodies/AdvSystem/!AdvSystem/!GamePlay
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Archimedes World » AW-1991-12.adf » December91 |
| Filename: | !AWDec91/Goodies/AdvSystem/!AdvSystem/!GamePlay |
| Read OK: | ✔ |
| File size: | 4981 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > !GamePlay
20REM Version 2.55 of The Adventure System game player.
30REM 29-07-90: Trial parser and input routine {0.10)
40REM 30-07-90: Location description, text printing, movement, look and help
50REM Refinements to parser, tidying of procedures, first level of
60REM array/database installation {1.00)
70REM 31-07-90: Addition of primary object handling and arrays (get, drop
80REM and inventory). Listing of objects present added to
90REM location description {1.10}
100REM 01-08-90: Refinement of "IT" handling, bug-fix to drop routine
110REM Further updates to input formatting. {1.12}
120REM 02-80-90: Placing of locations and objects into files.
130REM Addition of examine messages for objects {1.27}
140REM 03-08-90: Object status variables defined and incorporated. Wearing of
150REM objects added. Vocab transferred to file. Primary puzzle
160REM system handling, message input {1.90}
170REM 04-08-90: Addition of win & lose signalling. Addition of scoring
180REM system. Modification to examine. Tidying up of after-game
190REM with finishing and rerun {2.10}
200REM 05-08-90: Various debugging and tidying up (2.15}
210REM 14-08-90: Beginning of Load and Save routines {2.20}
220REM 20-08-90: Full implementation of Load and Save routines {2.25}
230REM 21-08-90: Refinements to text printing {2.28}
240REM 28-08-90: Start message and update to puzzle system {2.31}
250REM 02-09-90: Synonym numbering for vocabulary {2.35}
260REM 03-09-90: Update of puzzle system {2.37}
270REM 15-11-90: Combining of data directory and files into one file {2.50}
280REM 19-11-90: Slight tweaking to vocab analyser {2.55}
290REM written by G West 29-07-90 -
295REM Copyright Archimedes World 1991
300:
310MODE12
320PROCinitialise_arrays
330PROCinitialise_variables
340X=OPENIN"ADVS":FOR I%=1 TO Z%:INPUT#X,S$:NEXT
350COLOUR 6:PRINT'"Welcome to ";S$'
360COLOUR 6:PROCwrap_print(text$(startmess%),2,1)
370PROCdescribe
380REPEAT
390 inp$=FNstrip(FNinput)
400 clause$=FNclause(inp$)
410 PRINT
420 WHILE clause$<>""
430 PROCanalyse_clause(clause$)
440 PROCact_on_clause
450 IF finished_playing THEN
460 clause$=""
470 ELSE
480 clause$=FNclause(inp$)
490 ENDIF
500 ENDWHILE
510UNTIL finished_playing
520IF win%=-1 THEN score%+=swin%:COLOUR 7:PROCwrap_print("Congratulations! - You won !!",2,1)
530IF win%=0 THEN COLOUR 7:PROCwrap_print("Hard luck - You lost",2,1)
540PROCscore
550COLOUR 7
560PRINT"Do you want to play again?";
570REPEAT
580 A$=GET$
590UNTIL A$="Y" OR A$="y" OR A$="N" OR A$="n"
600PRINT A$
610IF A$="N" OR A$="n" THEN PRINT'''"Goodbye from the Adventure System.":CHAIN"!RunImage"
620RUN
630:
640DEFPROCinitialise_arrays
650advf%=OPENUP("ADV"+STR$Z%)
660INPUT#advf%,startloc%,startmess%,roomnum%,carrylimit%,objnum%
670INPUT#advf%,vnum%,lnum%,anum%,nnum%
680DIM verb$(vnum%),link$(lnum%),action$(anum%),noun$(nnum%)
690DIM verb%(vnum%),link%(lnum%),action%(anum%),noun%(nnum%)
700FOR I%=1 TO vnum%:INPUT#advf%,verb$(I%),verb%(I%):NEXT
710FOR I%=1 TO lnum%:INPUT#advf%,link$(I%),link%(I%):NEXT
720FOR I%=1 TO anum%:INPUT#advf%,action$(I%),action%(I%):NEXT
730FOR I%=1 TO nnum%:INPUT#advf%,noun$(I%),noun%(I%):NEXT
740INPUT#advf%,pnum%,mnum%,sobj%,sflg%,swin%
750DIM sobj%(sobj%),sobjsc%(sobj%),sflg%(sflg%),sflgsc%(sflg%)
760FOR I%=1 TO sobj%
770 INPUT#advf%,sobj%(I%),sobjsc%(I%)
780NEXT
790FOR I%=1 TO sflg%
800 INPUT#advf%,sflg%(I%),sflgsc%(I%)
810NEXT
820DIM room$(roomnum%),room%(roomnum%,6)
830FOR I%=1 TO roomnum%:INPUT#advf%,room$(I%)
840 FOR J%=1 TO 6:INPUT#advf%,room%(I%,J%):NEXT
850NEXT
860DIM objcar%(carrylimit%),carstat%(carrylimit%),objloc%(objnum%)
870DIM objstat%(objnum%),objdesc$(objnum%),examine$(objnum%)
880DIM objact%(objnum%),objnoun%(objnum%)
890FOR I%=1 TO objnum%
900 INPUT#advf%,objloc%(I%),objstat%(I%),objdesc$(I%),examine$(I%)
910 INPUT#advf%,objact%(I%),objnoun%(I%)
920NEXT
930DIM flag% 253,puzloc% 36*pnum%,text$(mnum%)
940FOR I%=0 TO 253:flag%?I%=0:NEXT
950FOR I%=0 TO pnum%-1
960 FOR J%=0 TO 35
970 puzloc%?(I%*36+J%)=BGET#advf%
980 NEXT
990NEXT
1000FOR I%=1 TO mnum%
1010 INPUT#advf%,text$(I%)
1020NEXT
1030CLOSE#advf%
1040ENDPROC
1050:
1060DEFPROCinitialise_variables
1070n%=0:a%=0:itn%=0:ita%=0:curloc%=startloc%:carried%=0:finished_playing=0
1080win%=0:score%=0
1090ENDPROC
1100:
1110DEFPROCdescribe
1120COLOUR 6
1130PROCwrap_print(room$(curloc%),2,1)
1140COLOUR 3
1150e$="You can go ":fe%=-1
1160IF room%(curloc%,1)>0 THEN
1170 e$+="North":fe%=0
1180ENDIF
1190IF room%(curloc%,2)>0 THEN
1200 IF fe%=0 e$+=", "
1210 e$+="South":fe%=0
1220ENDIF
1230IF room%(curloc%,3)>0 THEN
1240 IF fe%=0 e$+=", "
1250 e$+="East":fe%=0
1260ENDIF
1270IF room%(curloc%,4)>0 THEN
1280 IF fe%=0 e$+=", "
1290 e$+="West":fe%=0
1300ENDIF
1310IF room%(curloc%,5)>0 THEN
1320 IF fe%=0 e$+=", "
1330 e$+="Up":fe%=0
1340ENDIF
1350IF room%(curloc%,6)>0 THEN
1360 IF fe%=0 e$+=", "
1370 e$+="Down":fe%=0
1380ENDIF
1390PRINT e$'
1400COLOUR 5
1410FOR I%=1 TO objnum%
1420 IF objloc%(I%)=curloc% THEN PRINT"You can see ";objdesc$(I%)
1430NEXT
1440PRINT
1450
1460ENDPROC
1470:
1480DEFPROCact_on_clause
1490PROCchksc
1500puzdone%=FNpuzzle
1510IF NOT puzdone% THEN
1520 IF v%>0 AND (v%<7 OR (v%=7 AND n%<7)) THEN PROCmovement:ENDPROC
1530 IF v%=8 AND n%=0 THEN PROCdescribe:ENDPROC
1540 IF v%=9 AND n%<>0 THEN PROCget:ENDPROC
1550 IF v%=10 AND n%<>0 THEN PROCdrop:ENDPROC
1560 IF v%=11 THEN PROCinventory:ENDPROC
1570 IF v%=12 AND n%<>0 THEN PROCexamine:ENDPROC
1580 IF v%=13 THEN PROChelp:ENDPROC
1590 IF v%=14 THEN PROCwear:ENDPROC
1600 IF v%=15 THEN PROCquit:ENDPROC
1610 IF v%=16 THEN PROCscore:ENDPROC
1620 IF v%=17 THEN PROCsave:ENDPROC
1630 IF v%=18 THEN PROCrestore:ENDPROC
1640 COLOUR 6:PROCwrap_print("You can't do that.",2,1)
1650ENDIF
1660ENDPROC
1670:
1680DEFPROCget
1690here%=0
1700FOR I%=1 TO objnum%
1710 IF objloc%(I%)=curloc% AND objnoun%(I%)=n% THEN
1720 IF (a%>0 AND objact%(I%)=a%) OR a%=0 THEN
1730 here%=-1:obj%=I%:I%=objnum%
1740 ENDIF
1750 ENDIF
1760NEXT
1770IF NOT here% THEN COLOUR 6:PROCwrap_print("You can't see that here.",2,1):ENDPROC
1780IF objstat%(obj%)=0 THEN
1790 COLOUR 6:PROCwrap_print("That's too heavy to lift.",2,1):ENDPROC
1800ENDIF
1810IF carried%<carrylimit% THEN
1820 objloc%(obj%)=0:carstat%(carried%+1)=0
1830 objcar%(carried%+1)=obj%:carried%+=1
1840 COLOUR 6:PROCwrap_print("Ok.",2,1)
1850ELSE
1860 COLOUR 6:PROCwrap_print("You can't carry any more.",2,1)
1870ENDIF
1880ENDPROC
1890:
1900DEFPROCdrop
1910IF carried%=0 THEN
1920 COLOUR 6:PROCwrap_print("You're not carrying anything !",2,1)
1930ELSE
1940 obj%=0
1950 FOR I%=1 TO carried%
1960 IF objnoun%(objcar%(I%))=n% THEN
1970 IF (a%>0 AND objact%(objcar%(I%))=a%) OR a%=0 THEN
1980 obj%=I%:I%=carried%
1990 ENDIF
2000 ENDIF
2010 NEXT
2020 IF obj%>0 THEN
2030 objloc%(objcar%(obj%))=curloc%:carried%-=1
2040 IF obj%<>carrylimit% THEN
2050 FOR I%=obj% TO carried%
2060 objcar%(I%)=objcar%(I%+1)
2070 carstat%(I%)=carstat%(I%+1)
2080 NEXT
2090 ENDIF
2100 COLOUR 6:PROCwrap_print("Ok.",2,1)
2110 ELSE
2120 COLOUR 6:PROCwrap_print("You're not carrying that.",2,1)
2130 ENDIF
2140ENDIF
2150ENDPROC
2160:
2170DEFPROCinventory
2180COLOUR 6
2190PRINT'"You are carrying:"
2200COLOUR 3
2210IF carried%=0 THEN
2220 PRINT" Nothing !!"
2230 PRINT:
2240 ENDPROC
2250ELSE
2260 FOR I%=1 TO carried%
2270 PRINT" ";objdesc$(objcar%(I%));
2280 IF carstat%(I%)=1 THEN
2290 PRINT" (worn)"
2300 ELSE
2310 PRINT
2320 ENDIF
2330 NEXT
2340ENDIF
2350PRINT
2360ENDPROC
2370:
2380DEFPROCexamine
2390obj%=0
2400IF carried%>0 THEN
2410 FOR I%=1 TO carried%
2420 IF objnoun%(objcar%(I%))=n% THEN
2430 IF (a%>0 AND objact%(objcar%(I%))=a%) OR a%=0 THEN
2440 obj%=objcar%(I%):I%=carried%
2450 ENDIF
2460 ENDIF
2470 NEXT
2480ENDIF
2490IF obj%=0 THEN
2500 FOR I%=1 TO objnum%
2510 IF objloc%(I%)=curloc% AND objnoun%(I%)=n% THEN
2520 IF a%>0 AND objact%(I%)=a% THEN
2530 obj%=I%:I%=objnum%
2540 ENDIF
2550 IF a%=0 THEN
2560 obj%=I%:I%=objnum%
2570 ENDIF
2580 ENDIF
2590 NEXT
2600ENDIF
2610IF obj%=0 THEN
2620 COLOUR 6
2630 PROCwrap_print("You're not carrying that.",2,1)
2640ELSE
2650 COLOUR 3
2660 PROCwrap_print(examine$(obj%),2,1)
2670ENDIF
2680ENDPROC
2690:
2700DEFPROCmovement
2710IF v%<7 THEN d%=v% ELSE d%=n%
2720IF room%(curloc%,d%)=0 THEN
2730 COLOUR 6
2740 PROCwrap_print("You can't go that way.",2,1)
2750ELSE
2760 curloc%=room%(curloc%,d%)
2770 PROCdescribe
2780ENDIF
2790ENDPROC
2800:
2810DEFPROChelp
2820COLOUR 2
2830PROCwrap_print("I can understand quite complex sentences (eg. Creep under the metal railing) as well as simple one and two word commands (eg. Kill troll).",1,1)
2840COLOUR 2
2850PROCwrap_print("Multiple commands (eg. Get the key, Unlock the door and then run north) are also understood. If you are not being understood, then try using different words. Trying a different line of thought can also help.",1,1)
2860COLOUR 2
2870PROCwrap_print("It also helps to keep the commands fairly simple where you can, as there are fewer words to confuse me.",2,1)
2880ENDPROC
2890:
2900DEFPROCwear
2910obj%=0
2920FOR I%=1 TO objnum%
2930 IF objnoun%(I%)=n% THEN
2940 IF (a%>0 AND objact%(I%)=a%) OR a%=0 THEN
2950 obj%=I%:I%=objnum%
2960 ENDIF
2970 ENDIF
2980NEXT
2990IF obj%=0 OR objstat%(obj%)<>2 THEN
3000 COLOUR 6:PROCwrap_print("You can't wear that.",2,1)
3010 ENDPROC
3020ENDIF
3030car%=0
3040here%=FALSE
3050IF objloc%(obj%)=curloc% THEN
3060 here%=TRUE
3070ELSE
3080 IF carried%>0 THEN
3090 FOR I%=1 TO carried%
3100 IF objnoun%(objcar%(I%))=n% THEN
3110 IF (a%>0 AND objact%(objcar%(I%))=a%) OR a%=0 THEN
3120 car%=I%:here%=TRUE:I%=carried%
3130 ENDIF
3140 ENDIF
3150 NEXT
3160 ENDIF
3170ENDIF
3180IF NOT here% THEN
3190 COLOUR 6:PROCwrap_print("That isn't available to wear at the moment.",2,1)
3200ELSE
3210 IF car%>0 THEN
3220 carstat%(car%)=1:COLOUR 6
3230 PROCwrap_print("Ok.",2,1)
3240 ELSE
3250 IF carried%<carrylimit% THEN
3260 objloc%(obj%)=0:carstat%(carried%+1)=1
3270 objcar%(carried%+1)=obj%:carried%+=1
3280 COLOUR 6:PROCwrap_print("Ok.",2,1)
3290 ELSE
3300 COLOUR 6:PROCwrap_print("You're carrying too much to wear that.",2,1)
3310 ENDIF
3320 ENDIF
3330ENDIF
3340ENDPROC
3350:
3360DEFFNpuzzle
3370puzdone%=0
3380FOR pzn%=0 TO pnum%-1
3390 pbyte%=pzn%*36+puzloc%
3400 cond%=-1
3410 IF ?pbyte%>0 AND ?pbyte%<>v% THEN cond%=0:GOTO 3820
3420 IF pbyte%?1>0 AND pbyte%?1<>l% THEN cond%=0:GOTO 3820
3430 IF pbyte%?2>0 AND pbyte%?5<>255 THEN
3440 IF a%>0 AND a%<>pbyte%?2 THEN cond%=0
3450 ELSE
3460 IF a%<>pbyte%?2 THEN cond%=0
3470 ENDIF:IF cond%=0 THEN GOTO 3820
3480 IF pbyte%?3>0 AND pbyte%?3<>n% THEN cond%=0:GOTO 3820
3490 IF pbyte%?4>0 AND pbyte%?4<>curloc% THEN cond%=0:GOTO 3820
3500 IF pbyte%?5>0 AND pbyte%?5<255 AND flag%?(pbyte%?5)<>pbyte%?6 THEN cond%=0:GOTO 3820
3510 IF pbyte%?7>0 AND flag%?(pbyte%?7)<>pbyte%?8 THEN cond%=0:GOTO 3820
3520 IF pbyte%?9>0 AND FNobjtest(pbyte%?9,pbyte%?10,pbyte%?11)=0 THEN cond%=0:GOTO 3820
3530 IF pbyte%?12>0 AND FNobjtest(pbyte%?12,pbyte%?13,pbyte%?14)=0 THEN cond%=0:GOTO 3820
3540 IF pbyte%?15>0 AND FNobjtest(pbyte%?15,pbyte%?16,pbyte%?17)=0 THEN cond%=0:GOTO 3820
3550 IF cond% THEN
3560 IF pbyte%?18>0 AND pbyte%?18<254 THEN
3570 IF pbyte%?19<2 THEN
3580 flag%?(pbyte%?18)=pbyte%?19
3590 ELSE
3600 flag%?(pbyte%?18)=1-flag%?(pbyte%?18)
3610 ENDIF
3620 ENDIF
3630 IF pbyte%?18=254 THEN finished_playing=TRUE:win%=TRUE
3640 IF pbyte%?18=255 THEN finished_playing=TRUE:win%=0
3650 IF pbyte%?20>0 AND pbyte%?20<254 THEN
3660 IF pbyte%?21<2 THEN
3670 flag%?(pbyte%?20)=pbyte%?21
3680 ELSE
3690 flag%?(pbyte%?20)=1-flag%?(pbyte%?20)
3700 ENDIF
3710 ENDIF
3720 IF pbyte%?22>0 THEN room%(pbyte%?22,pbyte%?23)=pbyte%?24
3730 IF pbyte%?25>0 THEN room%(pbyte%?25,pbyte%?26)=pbyte%?27
3740 IF pbyte%?28>0 AND pbyte%?20<255 THEN COLOUR 6:PROCwrap_print(text$(pbyte%?28),2,1)
3750 IF pbyte%?30>0 THEN PROCmanipobj(pbyte%?30,pbyte%?31,pbyte%?32)
3760 IF pbyte%?33>0 THEN PROCmanipobj(pbyte%?33,pbyte%?34,pbyte%?35)
3770 IF pbyte%?29>0 THEN curloc%=pbyte%?29:PROCdescribe
3780 IF pbyte%?28>0 AND pbyte%?20=255 THEN COLOUR 6:PROCwrap_print(text$(pbyte%?28),2,1)
3790 IF pbyte%?20<>254 THEN puzdone%=-1
3800 IF pbyte%?20<>254 THEN pzn%=pnum%-1
3810 ENDIF
3820NEXT
3830=puzdone%
3840:
3850DEFFNobjtest(pon%,poa%,por%)
3860ok%=0
3870IF por%=0 THEN por%=curloc%
3880IF poa%=1 THEN
3890 FOR J%=1 TO carried%
3900 IF objcar%(J%)=pon% AND carstat%(J%)=0 THEN
3910 ok%=-1:J%=carried%
3920 ENDIF
3930 NEXT
3940ENDIF
3950IF poa%=2 THEN
3960 FOR J%=1 TO carried%
3970 IF objcar%(J%)=pon% AND carstat%(J%)=1 THEN
3980 ok%=-1:J%=carried%
3990 ENDIF
4000 NEXT
4010ENDIF
4020IF poa%=3 THEN
4030 IF objloc%(pon%)=curloc% OR objloc%(pon%)=por% THEN
4040 ok%=-1
4050 ENDIF
4060ENDIF
4070IF poa%=4 THEN
4080 IF por%=0 OR objloc%(pon%)=por% THEN
4090 IF objstat%(pon%)=0 THEN
4100 ok%=-1
4110 ENDIF
4120 ENDIF
4130ENDIF
4140IF poa%=5 THEN
4150 here%=0
4160 IF carried%>0 THEN
4170 FOR J%=1 TO carried%
4180 IF objcar%(J%)=pon% THEN
4190 here%=-1:J%=carried%
4200 ENDIF
4210 NEXT
4220 ENDIF
4230 IF here% OR objloc%(pon%)=por% THEN
4240 ok%=-1
4250 ENDIF
4260ENDIF
4270=ok%
4280:
4290DEFPROCmanipobj(pon%,poa%,pod%)
4300IF poa%=3 THEN poa%=1:pod%=curloc%
4310IF poa%=2 THEN objstat%(pon%)=pod%
4320IF poa%=1 THEN
4330 IF carried%>0 THEN
4340 obj%=0
4350 FOR I%=1 TO carried%
4360 IF objcar%(I%)=pon% THEN
4370 obj%=I%:I%=carried%
4380 ENDIF
4390 NEXT
4400 IF obj%>0 THEN
4410 objloc%(pon%)=pod%:carried%-=1
4420 IF obj%<>carrylimit% THEN
4430 FOR I%=obj% TO carried%
4440 objcar%(I%)=objcar%(I%+1)
4450 carstat%(I%)=carstat%(I%+1)
4460 NEXT
4470 ENDIF
4480 ELSE
4490 objloc%(pon%)=pod%
4500 ENDIF
4510 ELSE
4520 objloc%(pon%)=pod%
4530 ENDIF
4540ENDIF
4550ENDPROC
4560:
4570DEFPROCquit
4580COLOUR 6:PRINT'"Do you really want to quit?";
4590REPEAT
4600 A$=GET$
4610UNTIL A$="Y" OR A$="y" OR A$="N" OR A$="n"
4620PRINT A$
4630IF A$="Y" OR A$="y" THEN
4640 PROCwrap_print("Ok.",2,1)
4650 finished_playing=TRUE:win%=1
4660ELSE
4670 PROCwrap_print("Well get on with the game then.",2,1)
4680ENDIF
4690ENDPROC
4700:
4710DEFPROCscore
4720COLOUR 6:PROCwrap_print("You have scored "+STR$score%+" points.",2,1)
4730ENDPROC
4740:
4750DEFPROCchksc
4760FOR flgchk%=1 TO sflg%
4770 IF flag%?sflg%(flgchk%)=1 THEN
4780 score%+=sflgsc%(flgchk%):sflg%(flgchk%)=0
4790 ENDIF
4800NEXT
4810IF carried%>0 THEN
4820 FOR objchk%=1 TO sobj%
4830 car%=0
4840 FOR carloop%=1 TO carried%
4850 IF objcar%(carloop%)=sobj%(objchk%) THEN
4860 car%=-1:carloop%=carried%
4870 ENDIF
4880 NEXT carloop%
4890 IF car% THEN score%+=sobjsc%(objchk%):sobj%(objchk%)=0
4900 NEXT objchk%
4910ENDIF
4920ENDPROC
4930:
4940DEFPROCsave
4950ON ERROR LOCAL COLOUR6:PROCwrap_print("Invalid filename entered.",2,1):ENDPROC
4960COLOUR 6:PROCwrap_print("Do you really want to save the game? (y/n) ",0,1)
4970REPEAT
4980 A$=GET$
4990UNTIL A$="Y" OR A$="y" OR A$="N" OR A$="n"
5000PRINT A$
5010IF A$="Y" OR A$="y" THEN
5020 REPEAT
5030 COLOUR 6:PROCwrap_print("Please enter a filename (max. 10 characters): ",0,1)
5040 COLOUR 3:INPUT""fname$
5050 UNTIL LEN(fname$)<10
5060 IF fname$<>"" THEN
5070 sv%=OPENOUT(fname$)
5080 IF sv%<>0 THEN
5090 PRINT#sv%,curloc%,carried%,score%
5100 FOR I%=1 TO 253
5110 BPUT#sv%,flag%?I%
5120 NEXT
5130 FOR I%=1 TO roomnum%
5140 FOR J%=1 TO 6
5150 PRINT#sv%,room%(I%,J%)
5160 NEXT
5170 NEXT
5180 FOR I%=1 TO objnum%
5190 PRINT#sv%,objloc%(I%),objstat%(I%)
5200 NEXT
5210 FOR I%=1 TO carried%
5220 PRINT#sv%,objcar%(I%),carstat%(I%)
5230 NEXT
5240 FOR I%=1 TO sobj%
5250 PRINT#sv%,sobj%(I%),sobjsc%(I%)
5260 NEXT
5270 FOR I%=1 TO sflg%
5280 PRINT#sv%,sflg%(I%),sflgsc%(I%)
5290 NEXT
5300 CLOSE#sv%
5310 OSCLI"SETTYPE "+fname$+" 7FD"
5320 COLOUR6:PROCwrap_print("Game saved Ok.",2,1)
5330 ELSE
5340 COLOUR6:PROCwrap_print("Unable to save the game with that filename.",2,1)
5350 ENDIF
5360 ELSE
5370 COLOUR6:PROCwrap_print("The game has not been saved.",2,1)
5380 ENDIF
5390ELSE
5400 COLOUR 6:PROCwrap_print("Well, get on with the game then!",2,1)
5410ENDIF
5420ENDPROC
5430:
5440DEFPROCrestore
5450ON ERROR LOCAL COLOUR6:PROCwrap_print("Invalid filename specified.",2,1):ENDPROC
5460COLOUR 6:PROCwrap_print("Do you really want to restore a saved game? (y/n) ",0,1)
5470REPEAT
5480 A$=GET$
5490UNTIL A$="Y" OR A$="y" OR A$="N" OR A$="n"
5500PRINT A$
5510IF A$="Y" OR A$="y" THEN
5520 REPEAT
5530 COLOUR 6:PROCwrap_print("Please enter a filename (max. 10 characters): ",0,1)
5540 COLOUR 3:INPUT""fname$
5550 UNTIL LEN(fname$)<10
5560 IF fname$<>"" THEN
5570 sv%=OPENIN(fname$)
5580 IF sv%<>0 THEN
5590 INPUT#sv%,curloc%,carried%,score%
5600 FOR I%=1 TO 253
5610 flag%?I%=BGET#sv%
5620 NEXT
5630 FOR I%=1 TO roomnum%
5640 FOR J%=1 TO 6
5650 INPUT#sv%,room%(I%,J%)
5660 NEXT
5670 NEXT
5680 FOR I%=1 TO objnum%
5690 INPUT#sv%,objloc%(I%),objstat%(I%)
5700 NEXT
5710 FOR I%=1 TO carried%
5720 INPUT#sv%,objcar%(I%),carstat%(I%)
5730 NEXT
5740 FOR I%=1 TO sobj%
5750 INPUT#sv%,sobj%(I%),sobjsc%(I%)
5760 NEXT
5770 FOR I%=1 TO sflg%
5780 INPUT#sv%,sflg%(I%),sflgsc%(I%)
5790 NEXT
5800 CLOSE#sv%
5810 PROCdescribe
5820 ELSE
5830 COLOUR6:PROCwrap_print("Unable to load a position of that filename.",2,1)
5840 ENDIF
5850 ENDIF
5860ELSE
5870 COLOUR 6:PROCwrap_print("Well, get on with the game then!",2,1)
5880ENDIF
5890ENDPROC
5900:
5910DEFPROCwrap_print(r$,l%,n%)
5920IF n%=1 THEN PRINT
5930p%=POS
5940REPEAT
5950 sp%=INSTR(r$," ")
5960 IF sp%=0 THEN w$=r$ ELSE w$=LEFT$(r$,sp%-1)
5970 IF p%+LENw$<80 THEN
5980 PRINT w$;" ";:p%+=1+LENw$
5990 ELSE
6000 PRINT'w$;" ";:p%=1+LENw$
6010 ENDIF
6020 IF sp%=0 THEN r$="" ELSE r$=RIGHT$(r$,LENr$-sp%)
6030UNTIL r$=""
6040IF l%>0 THEN
6050 FOR I%=1 TO l%
6060 PRINT
6070 NEXT
6080ENDIF
6090ENDPROC
6100:
6110DEFFNinput
6120COLOUR 7
6130inp$="":lngth%=0:fin%=0
6140PRINTTAB(0,VPOS);"==>";
6150REPEAT
6160 REPEAT
6170 a$=GET$
6180 IF a$=CHR$8 THEN a$=CHR$127
6190 UNTIL (a$>="A" AND a$<="Z") OR (a$>="a" AND a$<="z") OR (a$>="0" AND a$<="9") OR a$=" " OR a$=CHR$13 OR a$=CHR$127 OR a$=","
6200 IF lngth%=0 THEN
6210 IF a$<>CHR$13 AND a$<>CHR$127 THEN
6220 inp$+=a$
6230 lngth%+=1
6240 PRINT a$;
6250 ENDIF
6260 ELSE
6270 IF lngth%>0 AND lngth%<75 THEN
6280 IF a$=CHR$13 THEN
6290 fin%=-1
6300 ELSE
6310 IF a$=CHR$127 THEN
6320 inp$=LEFT$(inp$,lngth%-1)
6330 lngth%-=1
6340 PRINT CHR$(8);" ";CHR$8;
6350 ELSE
6360 lngth%+=1
6370 inp$+=a$
6380 PRINT a$;
6390 ENDIF
6400 ENDIF
6410 ELSE
6420 IF a$=CHR$13 THEN
6430 fin%=-1
6440 ELSE
6450 IF a$=CHR$127 THEN
6460 lngth%-=1
6470 inp$=LEFT$(inp$,lngth%)
6480 PRINT CHR$(8);" ";CHR$(8);
6490 ENDIF
6500 ENDIF
6510 ENDIF
6520 ENDIF
6530UNTIL fin%
6540=inp$
6550:
6560DEFFNstrip(inp$)
6570op$="":lword$=""
6580SWAP op$,inp$
6590FOR I%=1 TO LENop$
6600 IF MID$(op$,I%,1)="," THEN
6610 IF MID$(op$,I%+1,1)<>" " THEN
6620 inp$+=", "
6630 ELSE
6640 inp$+=","
6650 ENDIF
6660 ELSE
6670 inp$+=MID$(op$,I%,1)
6680 ENDIF
6690NEXT
6700op$=""
6710REPEAT
6720 word$=FNucase(FNword(inp$))
6730 IF lastword% THEN UNTIL TRUE:=op$
6740 IF word$="AND" AND INSTR(lword$,",")=0 THEN word$=","
6750 IF word$="AND" THEN word$="A"
6760 IF word$="THEM" OR word$="HIM" OR word$="HER" THEN word$="IT"
6770 IF word$="A" OR word$="AN" OR word$="THE" OR word$="TEH" OR word$="THEN" THEN
6780 ELSE
6790 op$+=word$+" "
6800 ENDIF
6810 lword$=word$
6820UNTIL FALSE
6830:
6840DEFFNucase(word$)
6850uword$=""
6860FOR I%=1 TO LEN(word$)
6870w$=MID$(word$,I%,1)
6880IF w$>="a" AND w$<="z" THEN w$=CHR$(ASC(w$)-32)
6890uword$+=w$
6900NEXT I%
6910=uword$
6920:
6930DEFFNword(RETURN inp$)
6940lastword%=0
6950IF inp$="" lastword%=-1:=""
6960sp%=INSTR(inp$," ")
6970IF sp%=0 THEN
6980 word$=inp$
6990 inp$=""
7000ELSE
7010 word$=LEFT$(inp$,sp%-1)
7020 inp$=MID$(inp$,sp%+1,LENinp$-sp%)
7030ENDIF
7040=word$
7050:
7060DEFFNclause(RETURN inp$)
7070clause$=""
7080clause%=INSTR(inp$,",")
7090IF clause%=0 AND inp$<>"" clause$=inp$:inp$="":=clause$
7100IF clause%=0 AND inp$="" THEN =""
7110clause$=LEFT$(inp$,clause%-1)
7120inp$=RIGHT$(inp$,LENinp$-clause%-1)
7130=clause$
7140:
7150DEFPROCanalyse_clause(clause$)
7160itn%=0:ita%=0
7170IF n%>0 itn%=n%
7180IF a%>0 ita%=a%
7190v%=0:l%=0:a%=0:n%=0:action$="":noun$=""
7200SWAP inp$,clause$
7210word$=FNword(inp$)
7220v%=FNcheck_verb(word$)
7230IF v%=0 THEN SWAP inp$,clause$:ENDPROC
7240word$=FNword(inp$)
7250WHILE word$<>""
7260 n%=FNcheck_noun(word$)
7270 a%=FNcheck_action(word$)
7280 l%=FNcheck_link(word$)
7290 v%=FNcheck_verb(word$)
7300 word$=FNword(inp$)
7310ENDWHILE
7320inp$=clause$
7330IF action$=noun$ THEN a%=0
7340ENDPROC
7350:
7360DEFFNcheck_noun(word$)
7370nn%=0
7380lngthword%=LEN(word$)
7390FOR I%=1 TO nnum%
7400 IF LEFT$(noun$(I%),lngthword%)=word$ noun$=noun$(I%):nn%=noun%(I%):I%=nnum%
7410NEXT
7420IF word$="IT" THEN nn%=itn%
7430IF nn%<>0 THEN =nn% ELSE =n%
7440:
7450DEFFNcheck_action(word$)
7460IF l%<>0 AND a%<>0 THEN =a%
7470na%=0
7480lngthword%=LEN(word$)
7490FOR I%=1 TO anum%
7500 IF LEFT$(action$(I%),lngthword%)=word$ action$=action$(I%):na%=action%(I%):I%=anum%
7510NEXT
7520IF word$="IT" THEN na%=ita%
7530IF na%<>0 THEN =na% ELSE =a%
7540:
7550DEFFNcheck_link(word$)
7560nl%=0
7570lngthword%=LEN(word$)
7580FOR I%=1 TO lnum%
7590 IF LEFT$(link$(I%),lngthword%)=word$ nl%=link%(I%):I%=lnum%
7600NEXT
7610IF nl%<>0 THEN =nl% ELSE =l%
7620:
7630DEFFNcheck_verb(word$)
7640nv%=0
7650lngthword%=LEN(word$)
7660FOR I%=1 TO vnum%
7670 IF LEFT$(verb$(I%),lngthword%)=word$ nv%=verb%(I%):I%=vnum%
7680NEXT
7690IF action$(a%)=word$ THEN =v%
7700IF nv%<>0 THEN =nv% ELSE =v%
� > !GamePlay
7� Version 2.55 of The Adventure System game player.
5� 29-07-90: Trial parser and input routine {0.10)
(L� 30-07-90: Location description, text printing, movement, look and help
2L� Refinements to parser, tidying of procedures, first level of
<2� array/database installation {1.00)
FI� 31-07-90: Addition of primary object handling and arrays (get, drop
PC� and inventory). Listing of objects present added to
Z+� location description {1.10}
dD� 01-08-90: Refinement of "IT" handling, bug-fix to drop routine
n;� Further updates to input formatting. {1.12}
x<� 02-80-90: Placing of locations and objects into files.
�?� Addition of examine messages for objects {1.27}
�L� 03-08-90: Object status variables defined and incorporated. Wearing of
�H� objects added. Vocab transferred to file. Primary puzzle
�5� system handling, message input {1.90}
�F� 04-08-90: Addition of win & lose signalling. Addition of scoring
�I� system. Modification to examine. Tidying up of after-game
�/� with finishing and rerun {2.10}
�7� 05-08-90: Various debugging and tidying up (2.15}
�:� 14-08-90: Beginning of Load and Save routines {2.20}
�D� 20-08-90: Full implementation of Load and Save routines {2.25}
�3� 21-08-90: Refinements to text printing {2.28}
�@� 28-08-90: Start message and update to puzzle system {2.31}
�7� 02-09-90: Synonym numbering for vocabulary {2.35}
.� 03-09-90: Update of puzzle system {2.37}
J� 15-11-90: Combining of data directory and files into one file {2.50}
8� 19-11-90: Slight tweaking to vocab analyser {2.55}
""� written by G West 29-07-90 -
'%� Copyright Archimedes World 1991
,:
6�12
@�initialise_arrays
J�initialise_variables
T"X=�"ADVS":� I%=1 � Z%:�#X,S$:�
^� 6:�'"Welcome to ";S$'
h*� 6:�wrap_print(text$(startmess%),2,1)
r
�describe
|�
� inp$=�strip(�input)
� clause$=�clause(inp$)
� �
� ȕ clause$<>""
� �analyse_clause(clause$)
� �act_on_clause
� � finished_playing �
� clause$=""
� �
� clause$=�clause(inp$)
� �
� �
�� finished_playing
R� win%=-1 � score%+=swin%:� 7:�wrap_print("Congratulations! - You won !!",2,1)
:� win%=0 � � 7:�wrap_print("Hard luck - You lost",2,1)
�score
&� 7
0"�"Do you want to play again?";
:�
D
A$=�
N'� A$="Y" � A$="y" � A$="N" � A$="n"
X� A$
bM� A$="N" � A$="n" � �'''"Goodbye from the Adventure System.":�"!RunImage"
l�
v:
���initialise_arrays
�advf%=�("ADV"+�Z%)
�=�#advf%,startloc%,startmess%,roomnum%,carrylimit%,objnum%
�#�#advf%,vnum%,lnum%,anum%,nnum%
�;� verb$(vnum%),link$(lnum%),action$(anum%),noun$(nnum%)
�;� verb%(vnum%),link%(lnum%),action%(anum%),noun%(nnum%)
�0� I%=1 � vnum%:�#advf%,verb$(I%),verb%(I%):�
�0� I%=1 � lnum%:�#advf%,link$(I%),link%(I%):�
�4� I%=1 � anum%:�#advf%,action$(I%),action%(I%):�
�0� I%=1 � nnum%:�#advf%,noun$(I%),noun%(I%):�
�)�#advf%,pnum%,mnum%,sobj%,sflg%,swin%
�=� sobj%(sobj%),sobjsc%(sobj%),sflg%(sflg%),sflgsc%(sflg%)
�� I%=1 � sobj%
# �#advf%,sobj%(I%),sobjsc%(I%)
�
� I%=1 � sflg%
# �#advf%,sflg%(I%),sflgsc%(I%)
*�
4'� room$(roomnum%),room%(roomnum%,6)
>'� I%=1 � roomnum%:�#advf%,room$(I%)
H' � J%=1 � 6:�#advf%,room%(I%,J%):�
R�
\A� objcar%(carrylimit%),carstat%(carrylimit%),objloc%(objnum%)
f;� objstat%(objnum%),objdesc$(objnum%),examine$(objnum%)
p(� objact%(objnum%),objnoun%(objnum%)
z� I%=1 � objnum%
�@ �#advf%,objloc%(I%),objstat%(I%),objdesc$(I%),examine$(I%)
�& �#advf%,objact%(I%),objnoun%(I%)
��
�-� flag% 253,puzloc% 36*pnum%,text$(mnum%)
� � I%=0 � 253:flag%?I%=0:�
�� I%=0 � pnum%-1
� � J%=0 � 35
�" puzloc%?(I%*36+J%)=�#advf%
� �
��
�� I%=1 � mnum%
� �#advf%,text$(I%)
��
�#advf%
�
:
$��initialise_variables
.Kn%=0:a%=0:itn%=0:ita%=0:curloc%=startloc%:carried%=0:finished_playing=0
8win%=0:score%=0
B�
L:
V��describe
`� 6
j#�wrap_print(room$(curloc%),2,1)
t� 3
~e$="You can go ":fe%=-1
�� room%(curloc%,1)>0 �
� e$+="North":fe%=0
��
�� room%(curloc%,2)>0 �
� � fe%=0 e$+=", "
� e$+="South":fe%=0
��
�� room%(curloc%,3)>0 �
� � fe%=0 e$+=", "
� e$+="East":fe%=0
��
�� room%(curloc%,4)>0 �
� fe%=0 e$+=", "
e$+="West":fe%=0
�
� room%(curloc%,5)>0 �
( � fe%=0 e$+=", "
2 e$+="Up":fe%=0
<�
F� room%(curloc%,6)>0 �
P � fe%=0 e$+=", "
Z e$+="Down":fe%=0
d�
n � e$'
x� 5
�� I%=1 � objnum%
�: � objloc%(I%)=curloc% � �"You can see ";objdesc$(I%)
��
��
�
��
�:
���act_on_clause
�
�chksc
�puzdone%=�puzzle
�� � puzdone% �
�3 � v%>0 � (v%<7 � (v%=7 � n%<7)) � �movement:�
�! � v%=8 � n%=0 � �describe:�
� v%=9 � n%<>0 � �get:�
� v%=10 � n%<>0 � �drop:�
� v%=11 � �inventory:�
"" � v%=12 � n%<>0 � �examine:�
, � v%=13 � �help:�
6 � v%=14 � �wear:�
@ � v%=15 � �quit:�
J � v%=16 � �score:�
T � v%=17 � �save:�
^ � v%=18 � �restore:�
h/ � 6:�wrap_print("You can't do that.",2,1)
r�
|�
�:
� ��get
� here%=0
�� I%=1 � objnum%
�/ � objloc%(I%)=curloc% � objnoun%(I%)=n% �
�* � (a%>0 � objact%(I%)=a%) � a%=0 �
�% here%=-1:obj%=I%:I%=objnum%
� �
� �
��
�A� � here% � � 6:�wrap_print("You can't see that here.",2,1):�
�� objstat%(obj%)=0 �
�8 � 6:�wrap_print("That's too heavy to lift.",2,1):�
�
� carried%<carrylimit% �
, objloc%(obj%)=0:carstat%(carried%+1)=0
&* objcar%(carried%+1)=obj%:carried%+=1
0 � 6:�wrap_print("Ok.",2,1)
:�
D6 � 6:�wrap_print("You can't carry any more.",2,1)
N�
X�
b:
l
��drop
v� carried%=0 �
�; � 6:�wrap_print("You're not carrying anything !",2,1)
��
� obj%=0
� � I%=1 � carried%
�$ � objnoun%(objcar%(I%))=n% �
�5 � (a%>0 � objact%(objcar%(I%))=a%) � a%=0 �
� obj%=I%:I%=carried%
� �
� �
� �
� � obj%>0 �
�2 objloc%(objcar%(obj%))=curloc%:carried%-=1
� � obj%<>carrylimit% �
� I%=obj% � carried%
% objcar%(I%)=objcar%(I%+1)
' carstat%(I%)=carstat%(I%+1)
�
* �
4" � 6:�wrap_print("Ok.",2,1)
> �
H8 � 6:�wrap_print("You're not carrying that.",2,1)
R �
\�
f�
p:
z��inventory
�� 6
��'"You are carrying:"
�� 3
�� carried%=0 �
� �" Nothing !!"
� �:
� �
��
� � I%=1 � carried%
�$ �" ";objdesc$(objcar%(I%));
� � carstat%(I%)=1 �
� �" (worn)"
� �
�
�
�
$�
.�
8�
B:
L
��examine
V
obj%=0
`� carried%>0 �
j � I%=1 � carried%
t$ � objnoun%(objcar%(I%))=n% �
~5 � (a%>0 � objact%(objcar%(I%))=a%) � a%=0 �
�( obj%=objcar%(I%):I%=carried%
� �
� �
� �
��
�� obj%=0 �
� � I%=1 � objnum%
�1 � objloc%(I%)=curloc% � objnoun%(I%)=n% �
�# � a%>0 � objact%(I%)=a% �
� obj%=I%:I%=objnum%
� �
� � a%=0 �
obj%=I%:I%=objnum%
�
�
�
(�
2� obj%=0 �
< � 6
F2 �wrap_print("You're not carrying that.",2,1)
P�
Z � 3
d% �wrap_print(examine$(obj%),2,1)
n�
x�
�:
���movement
�� v%<7 � d%=v% � d%=n%
�� room%(curloc%,d%)=0 �
� � 6
�/ �wrap_print("You can't go that way.",2,1)
��
� curloc%=room%(curloc%,d%)
� �describe
��
��
�:
�
��help
� 2
��wrap_print("I can understand quite complex sentences (eg. Creep under the metal railing) as well as simple one and two word commands (eg. Kill troll).",1,1)
� 2
"��wrap_print("Multiple commands (eg. Get the key, Unlock the door and then run north) are also understood. If you are not being understood, then try using different words. Trying a different line of thought can also help.",1,1)
,� 2
6~�wrap_print("It also helps to keep the commands fairly simple where you can, as there are fewer words to confuse me.",2,1)
@�
J:
T
��wear
^
obj%=0
h� I%=1 � objnum%
r � objnoun%(I%)=n% �
|* � (a%>0 � objact%(I%)=a%) � a%=0 �
� obj%=I%:I%=objnum%
� �
� �
��
�"� obj%=0 � objstat%(obj%)<>2 �
�1 � 6:�wrap_print("You can't wear that.",2,1)
� �
��
�
car%=0
� here%=�
� � objloc%(obj%)=curloc% �
�
here%=�
��
� carried%>0 �
� I%=1 � carried%
& � objnoun%(objcar%(I%))=n% �
&7 � (a%>0 � objact%(objcar%(I%))=a%) � a%=0 �
0) car%=I%:here%=�:I%=carried%
:
�
D �
N �
X �
b�
l� � here% �
vH � 6:�wrap_print("That isn't available to wear at the moment.",2,1)
��
� � car%>0 �
� carstat%(car%)=1:� 6
� �wrap_print("Ok.",2,1)
� �
� � carried%<carrylimit% �
�0 objloc%(obj%)=0:carstat%(carried%+1)=1
�. objcar%(carried%+1)=obj%:carried%+=1
�$ � 6:�wrap_print("Ok.",2,1)
� �
�G � 6:�wrap_print("You're carrying too much to wear that.",2,1)
� �
� �
�
�
:
ݤpuzzle
*puzdone%=0
4� pzn%=0 � pnum%-1
> pbyte%=pzn%*36+puzloc%
H cond%=-1
R0 � ?pbyte%>0 � ?pbyte%<>v% � cond%=0:� �dlN
\2 � pbyte%?1>0 � pbyte%?1<>l% � cond%=0:� �dlN
f$ � pbyte%?2>0 � pbyte%?5<>255 �
p' � a%>0 � a%<>pbyte%?2 � cond%=0
z �
� � a%<>pbyte%?2 � cond%=0
� �:� cond%=0 � � �dlN
�2 � pbyte%?3>0 � pbyte%?3<>n% � cond%=0:� �dlN
�7 � pbyte%?4>0 � pbyte%?4<>curloc% � cond%=0:� �dlN
�O � pbyte%?5>0 � pbyte%?5<255 � flag%?(pbyte%?5)<>pbyte%?6 � cond%=0:� �dlN
�@ � pbyte%?7>0 � flag%?(pbyte%?7)<>pbyte%?8 � cond%=0:� �dlN
�N � pbyte%?9>0 � �objtest(pbyte%?9,pbyte%?10,pbyte%?11)=0 � cond%=0:� �dlN
�P � pbyte%?12>0 � �objtest(pbyte%?12,pbyte%?13,pbyte%?14)=0 � cond%=0:� �dlN
�P � pbyte%?15>0 � �objtest(pbyte%?15,pbyte%?16,pbyte%?17)=0 � cond%=0:� �dlN
� � cond% �
�' � pbyte%?18>0 � pbyte%?18<254 �
� � pbyte%?19<2 �
�' flag%?(pbyte%?18)=pbyte%?19
�
1 flag%?(pbyte%?18)=1-flag%?(pbyte%?18)
�
$ �
.3 � pbyte%?18=254 � finished_playing=�:win%=�
83 � pbyte%?18=255 � finished_playing=�:win%=0
B' � pbyte%?20>0 � pbyte%?20<254 �
L � pbyte%?21<2 �
V' flag%?(pbyte%?20)=pbyte%?21
` �
j1 flag%?(pbyte%?20)=1-flag%?(pbyte%?20)
t �
~ �
�< � pbyte%?22>0 � room%(pbyte%?22,pbyte%?23)=pbyte%?24
�< � pbyte%?25>0 � room%(pbyte%?25,pbyte%?26)=pbyte%?27
�M � pbyte%?28>0 � pbyte%?20<255 � � 6:�wrap_print(text$(pbyte%?28),2,1)
�@ � pbyte%?30>0 � �manipobj(pbyte%?30,pbyte%?31,pbyte%?32)
�@ � pbyte%?33>0 � �manipobj(pbyte%?33,pbyte%?34,pbyte%?35)
�3 � pbyte%?29>0 � curloc%=pbyte%?29:�describe
�M � pbyte%?28>0 � pbyte%?20=255 � � 6:�wrap_print(text$(pbyte%?28),2,1)
�& � pbyte%?20<>254 � puzdone%=-1
�' � pbyte%?20<>254 � pzn%=pnum%-1
� �
��
�
=puzdone%
:
ݤobjtest(pon%,poa%,por%)
ok%=0
� por%=0 � por%=curloc%
(� poa%=1 �
2 � J%=1 � carried%
<- � objcar%(J%)=pon% � carstat%(J%)=0 �
F ok%=-1:J%=carried%
P �
Z �
d�
n� poa%=2 �
x � J%=1 � carried%
�- � objcar%(J%)=pon% � carstat%(J%)=1 �
� ok%=-1:J%=carried%
� �
� �
��
�� poa%=3 �
�4 � objloc%(pon%)=curloc% � objloc%(pon%)=por% �
� ok%=-1
� �
��
�� poa%=4 �
�% � por%=0 � objloc%(pon%)=por% �
� � objstat%(pon%)=0 �
ok%=-1
�
�
"�
,� poa%=5 �
6
here%=0
@ � carried%>0 �
J � J%=1 � carried%
T � objcar%(J%)=pon% �
^ here%=-1:J%=carried%
h �
r �
| �
�$ � here% � objloc%(pon%)=por% �
� ok%=-1
� �
��
�=ok%
�:
� ��manipobj(pon%,poa%,pod%)
�"� poa%=3 � poa%=1:pod%=curloc%
�"� poa%=2 � objstat%(pon%)=pod%
�� poa%=1 �
� � carried%>0 �
� obj%=0
� � I%=1 � carried%
� objcar%(I%)=pon% �
obj%=I%:I%=carried%
�
& �
0 � obj%>0 �
:( objloc%(pon%)=pod%:carried%-=1
D � obj%<>carrylimit% �
N � I%=obj% � carried%
X' objcar%(I%)=objcar%(I%+1)
b) carstat%(I%)=carstat%(I%+1)
l
�
v �
� �
� objloc%(pon%)=pod%
� �
� �
� objloc%(pon%)=pod%
� �
��
��
�:
�
��quit
�(� 6:�'"Do you really want to quit?";
��
�
A$=�
'� A$="Y" � A$="y" � A$="N" � A$="n"
� A$
� A$="Y" � A$="y" �
�wrap_print("Ok.",2,1)
* finished_playing=�:win%=1
4�
>8 �wrap_print("Well get on with the game then.",2,1)
H�
R�
\:
f ��score
p>� 6:�wrap_print("You have scored "+�score%+" points.",2,1)
z�
�:
� ��chksc
�� flgchk%=1 � sflg%
� � flag%?sflg%(flgchk%)=1 �
�1 score%+=sflgsc%(flgchk%):sflg%(flgchk%)=0
� �
��
�� carried%>0 �
� � objchk%=1 � sobj%
� car%=0
� � carloop%=1 � carried%
�. � objcar%(carloop%)=sobj%(objchk%) �
�% car%=-1:carloop%=carried%
�
� carloop%
: � car% � score%+=sobjsc%(objchk%):sobj%(objchk%)=0
$ � objchk%
.�
8�
B:
L
��save
V;� � � �6:�wrap_print("Invalid filename entered.",2,1):�
`F� 6:�wrap_print("Do you really want to save the game? (y/n) ",0,1)
j�
t
A$=�
~'� A$="Y" � A$="y" � A$="N" � A$="n"
�� A$
�� A$="Y" � A$="y" �
� �
�M � 6:�wrap_print("Please enter a filename (max. 10 characters): ",0,1)
� � 3:�""fname$
� � �(fname$)<10
� � fname$<>"" �
� sv%=�(fname$)
� � sv%<>0 �
�' �#sv%,curloc%,carried%,score%
� � I%=1 � 253
� �#sv%,flag%?I%
�
� I%=1 � roomnum%
� J%=1 � 6
�#sv%,room%(I%,J%)
(
�
2 �
< � I%=1 � objnum%
F* �#sv%,objloc%(I%),objstat%(I%)
P �
Z � I%=1 � carried%
d* �#sv%,objcar%(I%),carstat%(I%)
n �
x � I%=1 � sobj%
�' �#sv%,sobj%(I%),sobjsc%(I%)
� �
� � I%=1 � sflg%
�' �#sv%,sflg%(I%),sflgsc%(I%)
� �
� �#sv%
�# �"SETTYPE "+fname$+" 7FD"
�. �6:�wrap_print("Game saved Ok.",2,1)
� �
�K �6:�wrap_print("Unable to save the game with that filename.",2,1)
� �
� �
�: �6:�wrap_print("The game has not been saved.",2,1)
�
�
= � 6:�wrap_print("Well, get on with the game then!",2,1)
"�
,�
6:
@
��restore
J=� � � �6:�wrap_print("Invalid filename specified.",2,1):�
TM� 6:�wrap_print("Do you really want to restore a saved game? (y/n) ",0,1)
^�
h
A$=�
r'� A$="Y" � A$="y" � A$="N" � A$="n"
|� A$
�� A$="Y" � A$="y" �
� �
�M � 6:�wrap_print("Please enter a filename (max. 10 characters): ",0,1)
� � 3:�""fname$
� � �(fname$)<10
� � fname$<>"" �
� sv%=�(fname$)
� � sv%<>0 �
�' �#sv%,curloc%,carried%,score%
� � I%=1 � 253
� flag%?I%=�#sv%
� �
� � I%=1 � roomnum%
� J%=1 � 6
�#sv%,room%(I%,J%)
�
& �
0 � I%=1 � objnum%
:* �#sv%,objloc%(I%),objstat%(I%)
D �
N � I%=1 � carried%
X* �#sv%,objcar%(I%),carstat%(I%)
b �
l � I%=1 � sobj%
v' �#sv%,sobj%(I%),sobjsc%(I%)
� �
� � I%=1 � sflg%
�' �#sv%,sflg%(I%),sflgsc%(I%)
� �
� �#sv%
� �describe
� �
�K �6:�wrap_print("Unable to load a position of that filename.",2,1)
� �
� �
��
�= � 6:�wrap_print("Well, get on with the game then!",2,1)
��
�
:
��wrap_print(r$,l%,n%)
� n%=1 � �
*p%=�
4�
> sp%=�r$," ")
H% � sp%=0 � w$=r$ � w$=�r$,sp%-1)
R � p%+�w$<80 �
\ � w$;" ";:p%+=1+�w$
f �
p �'w$;" ";:p%=1+�w$
z �
�' � sp%=0 � r$="" � r$=�r$,�r$-sp%)
� � r$=""
� � l%>0 �
� � I%=1 � l%
� �
� �
��
��
�:
� ݤinput
�� 7
�inp$="":lngth%=0:fin%=0
��0,�);"==>";
�
�
a$=�
$ � a$=�8 � a$=�127
.l � (a$>="A" � a$<="Z") � (a$>="a" � a$<="z") � (a$>="0" � a$<="9") � a$=" " � a$=�13 � a$=�127 � a$=","
8 � lngth%=0 �
B � a$<>�13 � a$<>�127 �
L inp$+=a$
V lngth%+=1
` � a$;
j �
t �
~ � lngth%>0 � lngth%<75 �
� � a$=�13 �
� fin%=-1
� �
� � a$=�127 �
�" inp$=�inp$,lngth%-1)
� lngth%-=1
� � �(8);" ";�8;
�
�
� lngth%+=1
� inp$+=a$
� � a$;
�
�
�
�
� a$=�13 �
fin%=-1
( �
2 � a$=�127 �
< lngth%-=1
F inp$=�inp$,lngth%)
P � �(8);" ";�(8);
Z
�
d �
n �
x �
�
� fin%
� =inp$
�:
�ݤstrip(inp$)
�op$="":lword$=""
�Ȕ op$,inp$
�� I%=1 � �op$
� � �op$,I%,1)="," �
� � �op$,I%+1,1)<>" " �
� inp$+=", "
� �
� inp$+=","
� �
�
inp$+=�op$,I%,1)
�
"�
,
op$=""
6�
@ word$=�ucase(�word(inp$))
J � lastword% � � �:=op$
T0 � word$="AND" � �lword$,",")=0 � word$=","
^ � word$="AND" � word$="A"
h= � word$="THEM" � word$="HIM" � word$="HER" � word$="IT"
rK � word$="A" � word$="AN" � word$="THE" � word$="TEH" � word$="THEN" �
| �
� op$+=word$+" "
� �
� lword$=word$
�� �
�:
�ݤucase(word$)
�
uword$=""
�� I%=1 � �(word$)
�w$=�word$,I%,1)
�(� w$>="a" � w$<="z" � w$=�(�(w$)-32)
�uword$+=w$
�� I%
� =uword$
:
ݤword(� inp$)
lastword%=0
& � inp$="" lastword%=-1:=""
0sp%=�inp$," ")
:
� sp%=0 �
D word$=inp$
N
inp$=""
X�
b word$=�inp$,sp%-1)
l! inp$=�inp$,sp%+1,�inp$-sp%)
v�
�
=word$
�:
�ݤclause(� inp$)
�clause$=""
�clause%=�inp$,",")
�8� clause%=0 � inp$<>"" clause$=inp$:inp$="":=clause$
� � clause%=0 � inp$="" � =""
� clause$=�inp$,clause%-1)
� inp$=�inp$,�inp$-clause%-1)
� =clause$
�:
� ��analyse_clause(clause$)
�itn%=0:ita%=0
� n%>0 itn%=n%
� a%>0 ita%=a%
+v%=0:l%=0:a%=0:n%=0:action$="":noun$=""
Ȕ inp$,clause$
*word$=�word(inp$)
4v%=�check_verb(word$)
> � v%=0 � Ȕ inp$,clause$:�
Hword$=�word(inp$)
Rȕ word$<>""
\ n%=�check_noun(word$)
f a%=�check_action(word$)
p l%=�check_link(word$)
z v%=�check_verb(word$)
� word$=�word(inp$)
��
�inp$=clause$
�� action$=noun$ � a%=0
��
�:
�ݤcheck_noun(word$)
� nn%=0
�lngthword%=�(word$)
�� I%=1 � nnum%
�K � �noun$(I%),lngthword%)=word$ noun$=noun$(I%):nn%=noun%(I%):I%=nnum%
��
�� word$="IT" � nn%=itn%
� nn%<>0 � =nn% � =n%
:
ݤcheck_action(word$)
$� l%<>0 � a%<>0 � =a%
. na%=0
8lngthword%=�(word$)
B� I%=1 � anum%
LS � �action$(I%),lngthword%)=word$ action$=action$(I%):na%=action%(I%):I%=anum%
V�
`� word$="IT" � na%=ita%
j� na%<>0 � =na% � =a%
t:
~ݤcheck_link(word$)
� nl%=0
�lngthword%=�(word$)
�� I%=1 � lnum%
�; � �link$(I%),lngthword%)=word$ nl%=link%(I%):I%=lnum%
��
�� nl%<>0 � =nl% � =l%
�:
�ݤcheck_verb(word$)
� nv%=0
�lngthword%=�(word$)
�� I%=1 � vnum%
�; � �verb$(I%),lngthword%)=word$ nv%=verb%(I%):I%=vnum%
�
� action$(a%)=word$ � =v%
� nv%<>0 � =nv% � =v%
� 00000000 0d 00 0a 11 f4 20 3e 20 21 47 61 6d 65 50 6c 61 |..... > !GamePla|
00000010 79 0d 00 14 37 f4 20 56 65 72 73 69 6f 6e 20 32 |y...7. Version 2|
00000020 2e 35 35 20 6f 66 20 54 68 65 20 41 64 76 65 6e |.55 of The Adven|
00000030 74 75 72 65 20 53 79 73 74 65 6d 20 67 61 6d 65 |ture System game|
00000040 20 70 6c 61 79 65 72 2e 0d 00 1e 35 f4 20 32 39 | player....5. 29|
00000050 2d 30 37 2d 39 30 3a 20 54 72 69 61 6c 20 70 61 |-07-90: Trial pa|
00000060 72 73 65 72 20 61 6e 64 20 69 6e 70 75 74 20 72 |rser and input r|
00000070 6f 75 74 69 6e 65 20 7b 30 2e 31 30 29 0d 00 28 |outine {0.10)..(|
00000080 4c f4 20 33 30 2d 30 37 2d 39 30 3a 20 4c 6f 63 |L. 30-07-90: Loc|
00000090 61 74 69 6f 6e 20 64 65 73 63 72 69 70 74 69 6f |ation descriptio|
000000a0 6e 2c 20 74 65 78 74 20 70 72 69 6e 74 69 6e 67 |n, text printing|
000000b0 2c 20 6d 6f 76 65 6d 65 6e 74 2c 20 6c 6f 6f 6b |, movement, look|
000000c0 20 61 6e 64 20 68 65 6c 70 0d 00 32 4c f4 20 20 | and help..2L. |
000000d0 20 20 20 20 20 20 20 20 20 52 65 66 69 6e 65 6d | Refinem|
000000e0 65 6e 74 73 20 74 6f 20 70 61 72 73 65 72 2c 20 |ents to parser, |
000000f0 74 69 64 79 69 6e 67 20 6f 66 20 70 72 6f 63 65 |tidying of proce|
00000100 64 75 72 65 73 2c 20 66 69 72 73 74 20 6c 65 76 |dures, first lev|
00000110 65 6c 20 6f 66 0d 00 3c 32 f4 20 20 20 20 20 20 |el of..<2. |
00000120 20 20 20 20 20 61 72 72 61 79 2f 64 61 74 61 62 | array/datab|
00000130 61 73 65 20 69 6e 73 74 61 6c 6c 61 74 69 6f 6e |ase installation|
00000140 20 7b 31 2e 30 30 29 0d 00 46 49 f4 20 33 31 2d | {1.00)..FI. 31-|
00000150 30 37 2d 39 30 3a 20 41 64 64 69 74 69 6f 6e 20 |07-90: Addition |
00000160 6f 66 20 70 72 69 6d 61 72 79 20 6f 62 6a 65 63 |of primary objec|
00000170 74 20 68 61 6e 64 6c 69 6e 67 20 61 6e 64 20 61 |t handling and a|
00000180 72 72 61 79 73 20 28 67 65 74 2c 20 64 72 6f 70 |rrays (get, drop|
00000190 0d 00 50 43 f4 20 20 20 20 20 20 20 20 20 20 20 |..PC. |
000001a0 61 6e 64 20 69 6e 76 65 6e 74 6f 72 79 29 2e 20 |and inventory). |
000001b0 4c 69 73 74 69 6e 67 20 6f 66 20 6f 62 6a 65 63 |Listing of objec|
000001c0 74 73 20 70 72 65 73 65 6e 74 20 61 64 64 65 64 |ts present added|
000001d0 20 74 6f 0d 00 5a 2b f4 20 20 20 20 20 20 20 20 | to..Z+. |
000001e0 20 20 20 6c 6f 63 61 74 69 6f 6e 20 64 65 73 63 | location desc|
000001f0 72 69 70 74 69 6f 6e 20 7b 31 2e 31 30 7d 0d 00 |ription {1.10}..|
00000200 64 44 f4 20 30 31 2d 30 38 2d 39 30 3a 20 52 65 |dD. 01-08-90: Re|
00000210 66 69 6e 65 6d 65 6e 74 20 6f 66 20 22 49 54 22 |finement of "IT"|
00000220 20 68 61 6e 64 6c 69 6e 67 2c 20 62 75 67 2d 66 | handling, bug-f|
00000230 69 78 20 74 6f 20 64 72 6f 70 20 72 6f 75 74 69 |ix to drop routi|
00000240 6e 65 0d 00 6e 3b f4 20 20 20 20 20 20 20 20 20 |ne..n;. |
00000250 20 20 46 75 72 74 68 65 72 20 75 70 64 61 74 65 | Further update|
00000260 73 20 74 6f 20 69 6e 70 75 74 20 66 6f 72 6d 61 |s to input forma|
00000270 74 74 69 6e 67 2e 20 7b 31 2e 31 32 7d 0d 00 78 |tting. {1.12}..x|
00000280 3c f4 20 30 32 2d 38 30 2d 39 30 3a 20 50 6c 61 |<. 02-80-90: Pla|
00000290 63 69 6e 67 20 6f 66 20 6c 6f 63 61 74 69 6f 6e |cing of location|
000002a0 73 20 61 6e 64 20 6f 62 6a 65 63 74 73 20 69 6e |s and objects in|
000002b0 74 6f 20 66 69 6c 65 73 2e 0d 00 82 3f f4 20 20 |to files....?. |
000002c0 20 20 20 20 20 20 20 20 20 41 64 64 69 74 69 6f | Additio|
000002d0 6e 20 6f 66 20 65 78 61 6d 69 6e 65 20 6d 65 73 |n of examine mes|
000002e0 73 61 67 65 73 20 66 6f 72 20 6f 62 6a 65 63 74 |sages for object|
000002f0 73 20 7b 31 2e 32 37 7d 0d 00 8c 4c f4 20 30 33 |s {1.27}...L. 03|
00000300 2d 30 38 2d 39 30 3a 20 4f 62 6a 65 63 74 20 73 |-08-90: Object s|
00000310 74 61 74 75 73 20 76 61 72 69 61 62 6c 65 73 20 |tatus variables |
00000320 64 65 66 69 6e 65 64 20 61 6e 64 20 69 6e 63 6f |defined and inco|
00000330 72 70 6f 72 61 74 65 64 2e 20 57 65 61 72 69 6e |rporated. Wearin|
00000340 67 20 6f 66 0d 00 96 48 f4 20 20 20 20 20 20 20 |g of...H. |
00000350 20 20 20 20 6f 62 6a 65 63 74 73 20 61 64 64 65 | objects adde|
00000360 64 2e 20 56 6f 63 61 62 20 74 72 61 6e 73 66 65 |d. Vocab transfe|
00000370 72 72 65 64 20 74 6f 20 66 69 6c 65 2e 20 50 72 |rred to file. Pr|
00000380 69 6d 61 72 79 20 70 75 7a 7a 6c 65 0d 00 a0 35 |imary puzzle...5|
00000390 f4 20 20 20 20 20 20 20 20 20 20 20 73 79 73 74 |. syst|
000003a0 65 6d 20 68 61 6e 64 6c 69 6e 67 2c 20 6d 65 73 |em handling, mes|
000003b0 73 61 67 65 20 69 6e 70 75 74 20 7b 31 2e 39 30 |sage input {1.90|
000003c0 7d 0d 00 aa 46 f4 20 30 34 2d 30 38 2d 39 30 3a |}...F. 04-08-90:|
000003d0 20 41 64 64 69 74 69 6f 6e 20 6f 66 20 77 69 6e | Addition of win|
000003e0 20 26 20 6c 6f 73 65 20 73 69 67 6e 61 6c 6c 69 | & lose signalli|
000003f0 6e 67 2e 20 41 64 64 69 74 69 6f 6e 20 6f 66 20 |ng. Addition of |
00000400 73 63 6f 72 69 6e 67 0d 00 b4 49 f4 20 20 20 20 |scoring...I. |
00000410 20 20 20 20 20 20 20 73 79 73 74 65 6d 2e 20 4d | system. M|
00000420 6f 64 69 66 69 63 61 74 69 6f 6e 20 74 6f 20 65 |odification to e|
00000430 78 61 6d 69 6e 65 2e 20 54 69 64 79 69 6e 67 20 |xamine. Tidying |
00000440 75 70 20 6f 66 20 61 66 74 65 72 2d 67 61 6d 65 |up of after-game|
00000450 0d 00 be 2f f4 20 20 20 20 20 20 20 20 20 20 20 |.../. |
00000460 77 69 74 68 20 66 69 6e 69 73 68 69 6e 67 20 61 |with finishing a|
00000470 6e 64 20 72 65 72 75 6e 20 7b 32 2e 31 30 7d 0d |nd rerun {2.10}.|
00000480 00 c8 37 f4 20 30 35 2d 30 38 2d 39 30 3a 20 56 |..7. 05-08-90: V|
00000490 61 72 69 6f 75 73 20 64 65 62 75 67 67 69 6e 67 |arious debugging|
000004a0 20 61 6e 64 20 74 69 64 79 69 6e 67 20 75 70 20 | and tidying up |
000004b0 28 32 2e 31 35 7d 0d 00 d2 3a f4 20 31 34 2d 30 |(2.15}...:. 14-0|
000004c0 38 2d 39 30 3a 20 42 65 67 69 6e 6e 69 6e 67 20 |8-90: Beginning |
000004d0 6f 66 20 4c 6f 61 64 20 61 6e 64 20 53 61 76 65 |of Load and Save|
000004e0 20 72 6f 75 74 69 6e 65 73 20 7b 32 2e 32 30 7d | routines {2.20}|
000004f0 0d 00 dc 44 f4 20 32 30 2d 30 38 2d 39 30 3a 20 |...D. 20-08-90: |
00000500 46 75 6c 6c 20 69 6d 70 6c 65 6d 65 6e 74 61 74 |Full implementat|
00000510 69 6f 6e 20 6f 66 20 4c 6f 61 64 20 61 6e 64 20 |ion of Load and |
00000520 53 61 76 65 20 72 6f 75 74 69 6e 65 73 20 7b 32 |Save routines {2|
00000530 2e 32 35 7d 0d 00 e6 33 f4 20 32 31 2d 30 38 2d |.25}...3. 21-08-|
00000540 39 30 3a 20 52 65 66 69 6e 65 6d 65 6e 74 73 20 |90: Refinements |
00000550 74 6f 20 74 65 78 74 20 70 72 69 6e 74 69 6e 67 |to text printing|
00000560 20 7b 32 2e 32 38 7d 0d 00 f0 40 f4 20 32 38 2d | {2.28}...@. 28-|
00000570 30 38 2d 39 30 3a 20 53 74 61 72 74 20 6d 65 73 |08-90: Start mes|
00000580 73 61 67 65 20 61 6e 64 20 75 70 64 61 74 65 20 |sage and update |
00000590 74 6f 20 70 75 7a 7a 6c 65 20 73 79 73 74 65 6d |to puzzle system|
000005a0 20 7b 32 2e 33 31 7d 0d 00 fa 37 f4 20 30 32 2d | {2.31}...7. 02-|
000005b0 30 39 2d 39 30 3a 20 53 79 6e 6f 6e 79 6d 20 6e |09-90: Synonym n|
000005c0 75 6d 62 65 72 69 6e 67 20 66 6f 72 20 76 6f 63 |umbering for voc|
000005d0 61 62 75 6c 61 72 79 20 7b 32 2e 33 35 7d 0d 01 |abulary {2.35}..|
000005e0 04 2e f4 20 30 33 2d 30 39 2d 39 30 3a 20 55 70 |... 03-09-90: Up|
000005f0 64 61 74 65 20 6f 66 20 70 75 7a 7a 6c 65 20 73 |date of puzzle s|
00000600 79 73 74 65 6d 20 7b 32 2e 33 37 7d 0d 01 0e 4a |ystem {2.37}...J|
00000610 f4 20 31 35 2d 31 31 2d 39 30 3a 20 43 6f 6d 62 |. 15-11-90: Comb|
00000620 69 6e 69 6e 67 20 6f 66 20 64 61 74 61 20 64 69 |ining of data di|
00000630 72 65 63 74 6f 72 79 20 61 6e 64 20 66 69 6c 65 |rectory and file|
00000640 73 20 69 6e 74 6f 20 6f 6e 65 20 66 69 6c 65 20 |s into one file |
00000650 7b 32 2e 35 30 7d 0d 01 18 38 f4 20 31 39 2d 31 |{2.50}...8. 19-1|
00000660 31 2d 39 30 3a 20 53 6c 69 67 68 74 20 74 77 65 |1-90: Slight twe|
00000670 61 6b 69 6e 67 20 74 6f 20 76 6f 63 61 62 20 61 |aking to vocab a|
00000680 6e 61 6c 79 73 65 72 20 7b 32 2e 35 35 7d 0d 01 |nalyser {2.55}..|
00000690 22 22 f4 20 77 72 69 74 74 65 6e 20 62 79 20 47 |"". written by G|
000006a0 20 57 65 73 74 20 32 39 2d 30 37 2d 39 30 20 2d | West 29-07-90 -|
000006b0 0d 01 27 25 f4 20 43 6f 70 79 72 69 67 68 74 20 |..'%. Copyright |
000006c0 41 72 63 68 69 6d 65 64 65 73 20 57 6f 72 6c 64 |Archimedes World|
000006d0 20 31 39 39 31 0d 01 2c 05 3a 0d 01 36 07 eb 31 | 1991..,.:..6..1|
000006e0 32 0d 01 40 16 f2 69 6e 69 74 69 61 6c 69 73 65 |2..@..initialise|
000006f0 5f 61 72 72 61 79 73 0d 01 4a 19 f2 69 6e 69 74 |_arrays..J..init|
00000700 69 61 6c 69 73 65 5f 76 61 72 69 61 62 6c 65 73 |ialise_variables|
00000710 0d 01 54 22 58 3d 8e 22 41 44 56 53 22 3a e3 20 |..T"X=."ADVS":. |
00000720 49 25 3d 31 20 b8 20 5a 25 3a e8 23 58 2c 53 24 |I%=1 . Z%:.#X,S$|
00000730 3a ed 0d 01 5e 1b fb 20 36 3a f1 27 22 57 65 6c |:...^.. 6:.'"Wel|
00000740 63 6f 6d 65 20 74 6f 20 22 3b 53 24 27 0d 01 68 |come to ";S$'..h|
00000750 2a fb 20 36 3a f2 77 72 61 70 5f 70 72 69 6e 74 |*. 6:.wrap_print|
00000760 28 74 65 78 74 24 28 73 74 61 72 74 6d 65 73 73 |(text$(startmess|
00000770 25 29 2c 32 2c 31 29 0d 01 72 0d f2 64 65 73 63 |%),2,1)..r..desc|
00000780 72 69 62 65 0d 01 7c 05 f5 0d 01 86 19 20 20 69 |ribe..|...... i|
00000790 6e 70 24 3d a4 73 74 72 69 70 28 a4 69 6e 70 75 |np$=.strip(.inpu|
000007a0 74 29 0d 01 90 1b 20 20 63 6c 61 75 73 65 24 3d |t).... clause$=|
000007b0 a4 63 6c 61 75 73 65 28 69 6e 70 24 29 0d 01 9a |.clause(inp$)...|
000007c0 07 20 20 f1 0d 01 a4 14 20 20 c8 95 20 63 6c 61 |. ..... .. cla|
000007d0 75 73 65 24 3c 3e 22 22 0d 01 ae 20 20 20 20 20 |use$<>""... |
000007e0 f2 61 6e 61 6c 79 73 65 5f 63 6c 61 75 73 65 28 |.analyse_clause(|
000007f0 63 6c 61 75 73 65 24 29 0d 01 b8 16 20 20 20 20 |clause$).... |
00000800 f2 61 63 74 5f 6f 6e 5f 63 6c 61 75 73 65 0d 01 |.act_on_clause..|
00000810 c2 1c 20 20 20 20 e7 20 66 69 6e 69 73 68 65 64 |.. . finished|
00000820 5f 70 6c 61 79 69 6e 67 20 8c 0d 01 cc 14 20 20 |_playing ..... |
00000830 20 20 20 20 63 6c 61 75 73 65 24 3d 22 22 0d 01 | clause$=""..|
00000840 d6 09 20 20 20 20 cc 0d 01 e0 1f 20 20 20 20 20 |.. ..... |
00000850 20 63 6c 61 75 73 65 24 3d a4 63 6c 61 75 73 65 | clause$=.clause|
00000860 28 69 6e 70 24 29 0d 01 ea 09 20 20 20 20 cd 0d |(inp$).... ..|
00000870 01 f4 07 20 20 ce 0d 01 fe 16 fd 20 66 69 6e 69 |... ...... fini|
00000880 73 68 65 64 5f 70 6c 61 79 69 6e 67 0d 02 08 52 |shed_playing...R|
00000890 e7 20 77 69 6e 25 3d 2d 31 20 8c 20 73 63 6f 72 |. win%=-1 . scor|
000008a0 65 25 2b 3d 73 77 69 6e 25 3a fb 20 37 3a f2 77 |e%+=swin%:. 7:.w|
000008b0 72 61 70 5f 70 72 69 6e 74 28 22 43 6f 6e 67 72 |rap_print("Congr|
000008c0 61 74 75 6c 61 74 69 6f 6e 73 21 20 2d 20 59 6f |atulations! - Yo|
000008d0 75 20 77 6f 6e 20 21 21 22 2c 32 2c 31 29 0d 02 |u won !!",2,1)..|
000008e0 12 3a e7 20 77 69 6e 25 3d 30 20 8c 20 fb 20 37 |.:. win%=0 . . 7|
000008f0 3a f2 77 72 61 70 5f 70 72 69 6e 74 28 22 48 61 |:.wrap_print("Ha|
00000900 72 64 20 6c 75 63 6b 20 2d 20 59 6f 75 20 6c 6f |rd luck - You lo|
00000910 73 74 22 2c 32 2c 31 29 0d 02 1c 0a f2 73 63 6f |st",2,1).....sco|
00000920 72 65 0d 02 26 07 fb 20 37 0d 02 30 22 f1 22 44 |re..&.. 7..0"."D|
00000930 6f 20 79 6f 75 20 77 61 6e 74 20 74 6f 20 70 6c |o you want to pl|
00000940 61 79 20 61 67 61 69 6e 3f 22 3b 0d 02 3a 05 f5 |ay again?";..:..|
00000950 0d 02 44 0a 20 20 41 24 3d be 0d 02 4e 27 fd 20 |..D. A$=...N'. |
00000960 41 24 3d 22 59 22 20 84 20 41 24 3d 22 79 22 20 |A$="Y" . A$="y" |
00000970 84 20 41 24 3d 22 4e 22 20 84 20 41 24 3d 22 6e |. A$="N" . A$="n|
00000980 22 0d 02 58 08 f1 20 41 24 0d 02 62 4d e7 20 41 |"..X.. A$..bM. A|
00000990 24 3d 22 4e 22 20 84 20 41 24 3d 22 6e 22 20 8c |$="N" . A$="n" .|
000009a0 20 f1 27 27 27 22 47 6f 6f 64 62 79 65 20 66 72 | .'''"Goodbye fr|
000009b0 6f 6d 20 74 68 65 20 41 64 76 65 6e 74 75 72 65 |om the Adventure|
000009c0 20 53 79 73 74 65 6d 2e 22 3a d7 22 21 52 75 6e | System.":."!Run|
000009d0 49 6d 61 67 65 22 0d 02 6c 05 f9 0d 02 76 05 3a |Image"..l....v.:|
000009e0 0d 02 80 17 dd f2 69 6e 69 74 69 61 6c 69 73 65 |......initialise|
000009f0 5f 61 72 72 61 79 73 0d 02 8a 16 61 64 76 66 25 |_arrays....advf%|
00000a00 3d ad 28 22 41 44 56 22 2b c3 5a 25 29 0d 02 94 |=.("ADV"+.Z%)...|
00000a10 3d e8 23 61 64 76 66 25 2c 73 74 61 72 74 6c 6f |=.#advf%,startlo|
00000a20 63 25 2c 73 74 61 72 74 6d 65 73 73 25 2c 72 6f |c%,startmess%,ro|
00000a30 6f 6d 6e 75 6d 25 2c 63 61 72 72 79 6c 69 6d 69 |omnum%,carrylimi|
00000a40 74 25 2c 6f 62 6a 6e 75 6d 25 0d 02 9e 23 e8 23 |t%,objnum%...#.#|
00000a50 61 64 76 66 25 2c 76 6e 75 6d 25 2c 6c 6e 75 6d |advf%,vnum%,lnum|
00000a60 25 2c 61 6e 75 6d 25 2c 6e 6e 75 6d 25 0d 02 a8 |%,anum%,nnum%...|
00000a70 3b de 20 76 65 72 62 24 28 76 6e 75 6d 25 29 2c |;. verb$(vnum%),|
00000a80 6c 69 6e 6b 24 28 6c 6e 75 6d 25 29 2c 61 63 74 |link$(lnum%),act|
00000a90 69 6f 6e 24 28 61 6e 75 6d 25 29 2c 6e 6f 75 6e |ion$(anum%),noun|
00000aa0 24 28 6e 6e 75 6d 25 29 0d 02 b2 3b de 20 76 65 |$(nnum%)...;. ve|
00000ab0 72 62 25 28 76 6e 75 6d 25 29 2c 6c 69 6e 6b 25 |rb%(vnum%),link%|
00000ac0 28 6c 6e 75 6d 25 29 2c 61 63 74 69 6f 6e 25 28 |(lnum%),action%(|
00000ad0 61 6e 75 6d 25 29 2c 6e 6f 75 6e 25 28 6e 6e 75 |anum%),noun%(nnu|
00000ae0 6d 25 29 0d 02 bc 30 e3 20 49 25 3d 31 20 b8 20 |m%)...0. I%=1 . |
00000af0 76 6e 75 6d 25 3a e8 23 61 64 76 66 25 2c 76 65 |vnum%:.#advf%,ve|
00000b00 72 62 24 28 49 25 29 2c 76 65 72 62 25 28 49 25 |rb$(I%),verb%(I%|
00000b10 29 3a ed 0d 02 c6 30 e3 20 49 25 3d 31 20 b8 20 |):....0. I%=1 . |
00000b20 6c 6e 75 6d 25 3a e8 23 61 64 76 66 25 2c 6c 69 |lnum%:.#advf%,li|
00000b30 6e 6b 24 28 49 25 29 2c 6c 69 6e 6b 25 28 49 25 |nk$(I%),link%(I%|
00000b40 29 3a ed 0d 02 d0 34 e3 20 49 25 3d 31 20 b8 20 |):....4. I%=1 . |
00000b50 61 6e 75 6d 25 3a e8 23 61 64 76 66 25 2c 61 63 |anum%:.#advf%,ac|
00000b60 74 69 6f 6e 24 28 49 25 29 2c 61 63 74 69 6f 6e |tion$(I%),action|
00000b70 25 28 49 25 29 3a ed 0d 02 da 30 e3 20 49 25 3d |%(I%):....0. I%=|
00000b80 31 20 b8 20 6e 6e 75 6d 25 3a e8 23 61 64 76 66 |1 . nnum%:.#advf|
00000b90 25 2c 6e 6f 75 6e 24 28 49 25 29 2c 6e 6f 75 6e |%,noun$(I%),noun|
00000ba0 25 28 49 25 29 3a ed 0d 02 e4 29 e8 23 61 64 76 |%(I%):....).#adv|
00000bb0 66 25 2c 70 6e 75 6d 25 2c 6d 6e 75 6d 25 2c 73 |f%,pnum%,mnum%,s|
00000bc0 6f 62 6a 25 2c 73 66 6c 67 25 2c 73 77 69 6e 25 |obj%,sflg%,swin%|
00000bd0 0d 02 ee 3d de 20 73 6f 62 6a 25 28 73 6f 62 6a |...=. sobj%(sobj|
00000be0 25 29 2c 73 6f 62 6a 73 63 25 28 73 6f 62 6a 25 |%),sobjsc%(sobj%|
00000bf0 29 2c 73 66 6c 67 25 28 73 66 6c 67 25 29 2c 73 |),sflg%(sflg%),s|
00000c00 66 6c 67 73 63 25 28 73 66 6c 67 25 29 0d 02 f8 |flgsc%(sflg%)...|
00000c10 12 e3 20 49 25 3d 31 20 b8 20 73 6f 62 6a 25 0d |.. I%=1 . sobj%.|
00000c20 03 02 23 20 20 e8 23 61 64 76 66 25 2c 73 6f 62 |..# .#advf%,sob|
00000c30 6a 25 28 49 25 29 2c 73 6f 62 6a 73 63 25 28 49 |j%(I%),sobjsc%(I|
00000c40 25 29 0d 03 0c 05 ed 0d 03 16 12 e3 20 49 25 3d |%).......... I%=|
00000c50 31 20 b8 20 73 66 6c 67 25 0d 03 20 23 20 20 e8 |1 . sflg%.. # .|
00000c60 23 61 64 76 66 25 2c 73 66 6c 67 25 28 49 25 29 |#advf%,sflg%(I%)|
00000c70 2c 73 66 6c 67 73 63 25 28 49 25 29 0d 03 2a 05 |,sflgsc%(I%)..*.|
00000c80 ed 0d 03 34 27 de 20 72 6f 6f 6d 24 28 72 6f 6f |...4'. room$(roo|
00000c90 6d 6e 75 6d 25 29 2c 72 6f 6f 6d 25 28 72 6f 6f |mnum%),room%(roo|
00000ca0 6d 6e 75 6d 25 2c 36 29 0d 03 3e 27 e3 20 49 25 |mnum%,6)..>'. I%|
00000cb0 3d 31 20 b8 20 72 6f 6f 6d 6e 75 6d 25 3a e8 23 |=1 . roomnum%:.#|
00000cc0 61 64 76 66 25 2c 72 6f 6f 6d 24 28 49 25 29 0d |advf%,room$(I%).|
00000cd0 03 48 27 20 20 e3 20 4a 25 3d 31 20 b8 20 36 3a |.H' . J%=1 . 6:|
00000ce0 e8 23 61 64 76 66 25 2c 72 6f 6f 6d 25 28 49 25 |.#advf%,room%(I%|
00000cf0 2c 4a 25 29 3a ed 0d 03 52 05 ed 0d 03 5c 41 de |,J%):...R....\A.|
00000d00 20 6f 62 6a 63 61 72 25 28 63 61 72 72 79 6c 69 | objcar%(carryli|
00000d10 6d 69 74 25 29 2c 63 61 72 73 74 61 74 25 28 63 |mit%),carstat%(c|
00000d20 61 72 72 79 6c 69 6d 69 74 25 29 2c 6f 62 6a 6c |arrylimit%),objl|
00000d30 6f 63 25 28 6f 62 6a 6e 75 6d 25 29 0d 03 66 3b |oc%(objnum%)..f;|
00000d40 de 20 6f 62 6a 73 74 61 74 25 28 6f 62 6a 6e 75 |. objstat%(objnu|
00000d50 6d 25 29 2c 6f 62 6a 64 65 73 63 24 28 6f 62 6a |m%),objdesc$(obj|
00000d60 6e 75 6d 25 29 2c 65 78 61 6d 69 6e 65 24 28 6f |num%),examine$(o|
00000d70 62 6a 6e 75 6d 25 29 0d 03 70 28 de 20 6f 62 6a |bjnum%)..p(. obj|
00000d80 61 63 74 25 28 6f 62 6a 6e 75 6d 25 29 2c 6f 62 |act%(objnum%),ob|
00000d90 6a 6e 6f 75 6e 25 28 6f 62 6a 6e 75 6d 25 29 0d |jnoun%(objnum%).|
00000da0 03 7a 14 e3 20 49 25 3d 31 20 b8 20 6f 62 6a 6e |.z.. I%=1 . objn|
00000db0 75 6d 25 0d 03 84 40 20 20 e8 23 61 64 76 66 25 |um%...@ .#advf%|
00000dc0 2c 6f 62 6a 6c 6f 63 25 28 49 25 29 2c 6f 62 6a |,objloc%(I%),obj|
00000dd0 73 74 61 74 25 28 49 25 29 2c 6f 62 6a 64 65 73 |stat%(I%),objdes|
00000de0 63 24 28 49 25 29 2c 65 78 61 6d 69 6e 65 24 28 |c$(I%),examine$(|
00000df0 49 25 29 0d 03 8e 26 20 20 e8 23 61 64 76 66 25 |I%)...& .#advf%|
00000e00 2c 6f 62 6a 61 63 74 25 28 49 25 29 2c 6f 62 6a |,objact%(I%),obj|
00000e10 6e 6f 75 6e 25 28 49 25 29 0d 03 98 05 ed 0d 03 |noun%(I%).......|
00000e20 a2 2d de 20 66 6c 61 67 25 20 32 35 33 2c 70 75 |.-. flag% 253,pu|
00000e30 7a 6c 6f 63 25 20 33 36 2a 70 6e 75 6d 25 2c 74 |zloc% 36*pnum%,t|
00000e40 65 78 74 24 28 6d 6e 75 6d 25 29 0d 03 ac 1d e3 |ext$(mnum%).....|
00000e50 20 49 25 3d 30 20 b8 20 32 35 33 3a 66 6c 61 67 | I%=0 . 253:flag|
00000e60 25 3f 49 25 3d 30 3a ed 0d 03 b6 14 e3 20 49 25 |%?I%=0:...... I%|
00000e70 3d 30 20 b8 20 70 6e 75 6d 25 2d 31 0d 03 c0 11 |=0 . pnum%-1....|
00000e80 20 20 e3 20 4a 25 3d 30 20 b8 20 33 35 0d 03 ca | . J%=0 . 35...|
00000e90 22 20 20 20 20 70 75 7a 6c 6f 63 25 3f 28 49 25 |" puzloc%?(I%|
00000ea0 2a 33 36 2b 4a 25 29 3d 9a 23 61 64 76 66 25 0d |*36+J%)=.#advf%.|
00000eb0 03 d4 07 20 20 ed 0d 03 de 05 ed 0d 03 e8 12 e3 |... ...........|
00000ec0 20 49 25 3d 31 20 b8 20 6d 6e 75 6d 25 0d 03 f2 | I%=1 . mnum%...|
00000ed0 17 20 20 e8 23 61 64 76 66 25 2c 74 65 78 74 24 |. .#advf%,text$|
00000ee0 28 49 25 29 0d 03 fc 05 ed 0d 04 06 0b d9 23 61 |(I%)..........#a|
00000ef0 64 76 66 25 0d 04 10 05 e1 0d 04 1a 05 3a 0d 04 |dvf%.........:..|
00000f00 24 1a dd f2 69 6e 69 74 69 61 6c 69 73 65 5f 76 |$...initialise_v|
00000f10 61 72 69 61 62 6c 65 73 0d 04 2e 4b 6e 25 3d 30 |ariables...Kn%=0|
00000f20 3a 61 25 3d 30 3a 69 74 6e 25 3d 30 3a 69 74 61 |:a%=0:itn%=0:ita|
00000f30 25 3d 30 3a 63 75 72 6c 6f 63 25 3d 73 74 61 72 |%=0:curloc%=star|
00000f40 74 6c 6f 63 25 3a 63 61 72 72 69 65 64 25 3d 30 |tloc%:carried%=0|
00000f50 3a 66 69 6e 69 73 68 65 64 5f 70 6c 61 79 69 6e |:finished_playin|
00000f60 67 3d 30 0d 04 38 13 77 69 6e 25 3d 30 3a 73 63 |g=0..8.win%=0:sc|
00000f70 6f 72 65 25 3d 30 0d 04 42 05 e1 0d 04 4c 05 3a |ore%=0..B....L.:|
00000f80 0d 04 56 0e dd f2 64 65 73 63 72 69 62 65 0d 04 |..V...describe..|
00000f90 60 07 fb 20 36 0d 04 6a 23 f2 77 72 61 70 5f 70 |`.. 6..j#.wrap_p|
00000fa0 72 69 6e 74 28 72 6f 6f 6d 24 28 63 75 72 6c 6f |rint(room$(curlo|
00000fb0 63 25 29 2c 32 2c 31 29 0d 04 74 07 fb 20 33 0d |c%),2,1)..t.. 3.|
00000fc0 04 7e 1b 65 24 3d 22 59 6f 75 20 63 61 6e 20 67 |.~.e$="You can g|
00000fd0 6f 20 22 3a 66 65 25 3d 2d 31 0d 04 88 1a e7 20 |o ":fe%=-1..... |
00000fe0 72 6f 6f 6d 25 28 63 75 72 6c 6f 63 25 2c 31 29 |room%(curloc%,1)|
00000ff0 3e 30 20 8c 0d 04 92 17 20 20 65 24 2b 3d 22 4e |>0 ..... e$+="N|
00001000 6f 72 74 68 22 3a 66 65 25 3d 30 0d 04 9c 05 cd |orth":fe%=0.....|
00001010 0d 04 a6 1a e7 20 72 6f 6f 6d 25 28 63 75 72 6c |..... room%(curl|
00001020 6f 63 25 2c 32 29 3e 30 20 8c 0d 04 b0 16 20 20 |oc%,2)>0 ..... |
00001030 e7 20 66 65 25 3d 30 20 65 24 2b 3d 22 2c 20 22 |. fe%=0 e$+=", "|
00001040 0d 04 ba 17 20 20 65 24 2b 3d 22 53 6f 75 74 68 |.... e$+="South|
00001050 22 3a 66 65 25 3d 30 0d 04 c4 05 cd 0d 04 ce 1a |":fe%=0.........|
00001060 e7 20 72 6f 6f 6d 25 28 63 75 72 6c 6f 63 25 2c |. room%(curloc%,|
00001070 33 29 3e 30 20 8c 0d 04 d8 16 20 20 e7 20 66 65 |3)>0 ..... . fe|
00001080 25 3d 30 20 65 24 2b 3d 22 2c 20 22 0d 04 e2 16 |%=0 e$+=", "....|
00001090 20 20 65 24 2b 3d 22 45 61 73 74 22 3a 66 65 25 | e$+="East":fe%|
000010a0 3d 30 0d 04 ec 05 cd 0d 04 f6 1a e7 20 72 6f 6f |=0.......... roo|
000010b0 6d 25 28 63 75 72 6c 6f 63 25 2c 34 29 3e 30 20 |m%(curloc%,4)>0 |
000010c0 8c 0d 05 00 16 20 20 e7 20 66 65 25 3d 30 20 65 |..... . fe%=0 e|
000010d0 24 2b 3d 22 2c 20 22 0d 05 0a 16 20 20 65 24 2b |$+=", ".... e$+|
000010e0 3d 22 57 65 73 74 22 3a 66 65 25 3d 30 0d 05 14 |="West":fe%=0...|
000010f0 05 cd 0d 05 1e 1a e7 20 72 6f 6f 6d 25 28 63 75 |....... room%(cu|
00001100 72 6c 6f 63 25 2c 35 29 3e 30 20 8c 0d 05 28 16 |rloc%,5)>0 ...(.|
00001110 20 20 e7 20 66 65 25 3d 30 20 65 24 2b 3d 22 2c | . fe%=0 e$+=",|
00001120 20 22 0d 05 32 14 20 20 65 24 2b 3d 22 55 70 22 | "..2. e$+="Up"|
00001130 3a 66 65 25 3d 30 0d 05 3c 05 cd 0d 05 46 1a e7 |:fe%=0..<....F..|
00001140 20 72 6f 6f 6d 25 28 63 75 72 6c 6f 63 25 2c 36 | room%(curloc%,6|
00001150 29 3e 30 20 8c 0d 05 50 16 20 20 e7 20 66 65 25 |)>0 ...P. . fe%|
00001160 3d 30 20 65 24 2b 3d 22 2c 20 22 0d 05 5a 16 20 |=0 e$+=", "..Z. |
00001170 20 65 24 2b 3d 22 44 6f 77 6e 22 3a 66 65 25 3d | e$+="Down":fe%=|
00001180 30 0d 05 64 05 cd 0d 05 6e 09 f1 20 65 24 27 0d |0..d....n.. e$'.|
00001190 05 78 07 fb 20 35 0d 05 82 14 e3 20 49 25 3d 31 |.x.. 5..... I%=1|
000011a0 20 b8 20 6f 62 6a 6e 75 6d 25 0d 05 8c 3a 20 20 | . objnum%...: |
000011b0 e7 20 6f 62 6a 6c 6f 63 25 28 49 25 29 3d 63 75 |. objloc%(I%)=cu|
000011c0 72 6c 6f 63 25 20 8c 20 f1 22 59 6f 75 20 63 61 |rloc% . ."You ca|
000011d0 6e 20 73 65 65 20 22 3b 6f 62 6a 64 65 73 63 24 |n see ";objdesc$|
000011e0 28 49 25 29 0d 05 96 05 ed 0d 05 a0 05 f1 0d 05 |(I%)............|
000011f0 aa 04 0d 05 b4 05 e1 0d 05 be 05 3a 0d 05 c8 13 |...........:....|
00001200 dd f2 61 63 74 5f 6f 6e 5f 63 6c 61 75 73 65 0d |..act_on_clause.|
00001210 05 d2 0a f2 63 68 6b 73 63 0d 05 dc 14 70 75 7a |....chksc....puz|
00001220 64 6f 6e 65 25 3d a4 70 75 7a 7a 6c 65 0d 05 e6 |done%=.puzzle...|
00001230 12 e7 20 ac 20 70 75 7a 64 6f 6e 65 25 20 8c 0d |.. . puzdone% ..|
00001240 05 f0 33 20 20 e7 20 76 25 3e 30 20 80 20 28 76 |..3 . v%>0 . (v|
00001250 25 3c 37 20 84 20 28 76 25 3d 37 20 80 20 6e 25 |%<7 . (v%=7 . n%|
00001260 3c 37 29 29 20 8c 20 f2 6d 6f 76 65 6d 65 6e 74 |<7)) . .movement|
00001270 3a e1 0d 05 fa 21 20 20 e7 20 76 25 3d 38 20 80 |:....! . v%=8 .|
00001280 20 6e 25 3d 30 20 8c 20 f2 64 65 73 63 72 69 62 | n%=0 . .describ|
00001290 65 3a e1 0d 06 04 1d 20 20 e7 20 76 25 3d 39 20 |e:..... . v%=9 |
000012a0 80 20 6e 25 3c 3e 30 20 8c 20 f2 67 65 74 3a e1 |. n%<>0 . .get:.|
000012b0 0d 06 0e 1f 20 20 e7 20 76 25 3d 31 30 20 80 20 |.... . v%=10 . |
000012c0 6e 25 3c 3e 30 20 8c 20 f2 64 72 6f 70 3a e1 0d |n%<>0 . .drop:..|
000012d0 06 18 1c 20 20 e7 20 76 25 3d 31 31 20 8c 20 f2 |... . v%=11 . .|
000012e0 69 6e 76 65 6e 74 6f 72 79 3a e1 0d 06 22 22 20 |inventory:..."" |
000012f0 20 e7 20 76 25 3d 31 32 20 80 20 6e 25 3c 3e 30 | . v%=12 . n%<>0|
00001300 20 8c 20 f2 65 78 61 6d 69 6e 65 3a e1 0d 06 2c | . .examine:...,|
00001310 17 20 20 e7 20 76 25 3d 31 33 20 8c 20 f2 68 65 |. . v%=13 . .he|
00001320 6c 70 3a e1 0d 06 36 17 20 20 e7 20 76 25 3d 31 |lp:...6. . v%=1|
00001330 34 20 8c 20 f2 77 65 61 72 3a e1 0d 06 40 17 20 |4 . .wear:...@. |
00001340 20 e7 20 76 25 3d 31 35 20 8c 20 f2 71 75 69 74 | . v%=15 . .quit|
00001350 3a e1 0d 06 4a 18 20 20 e7 20 76 25 3d 31 36 20 |:...J. . v%=16 |
00001360 8c 20 f2 73 63 6f 72 65 3a e1 0d 06 54 17 20 20 |. .score:...T. |
00001370 e7 20 76 25 3d 31 37 20 8c 20 f2 73 61 76 65 3a |. v%=17 . .save:|
00001380 e1 0d 06 5e 1a 20 20 e7 20 76 25 3d 31 38 20 8c |...^. . v%=18 .|
00001390 20 f2 72 65 73 74 6f 72 65 3a e1 0d 06 68 2f 20 | .restore:...h/ |
000013a0 20 fb 20 36 3a f2 77 72 61 70 5f 70 72 69 6e 74 | . 6:.wrap_print|
000013b0 28 22 59 6f 75 20 63 61 6e 27 74 20 64 6f 20 74 |("You can't do t|
000013c0 68 61 74 2e 22 2c 32 2c 31 29 0d 06 72 05 cd 0d |hat.",2,1)..r...|
000013d0 06 7c 05 e1 0d 06 86 05 3a 0d 06 90 09 dd f2 67 |.|......:......g|
000013e0 65 74 0d 06 9a 0b 68 65 72 65 25 3d 30 0d 06 a4 |et....here%=0...|
000013f0 14 e3 20 49 25 3d 31 20 b8 20 6f 62 6a 6e 75 6d |.. I%=1 . objnum|
00001400 25 0d 06 ae 2f 20 20 e7 20 6f 62 6a 6c 6f 63 25 |%.../ . objloc%|
00001410 28 49 25 29 3d 63 75 72 6c 6f 63 25 20 80 20 6f |(I%)=curloc% . o|
00001420 62 6a 6e 6f 75 6e 25 28 49 25 29 3d 6e 25 20 8c |bjnoun%(I%)=n% .|
00001430 0d 06 b8 2a 20 20 20 20 e7 20 28 61 25 3e 30 20 |...* . (a%>0 |
00001440 80 20 6f 62 6a 61 63 74 25 28 49 25 29 3d 61 25 |. objact%(I%)=a%|
00001450 29 20 84 20 61 25 3d 30 20 8c 0d 06 c2 25 20 20 |) . a%=0 ....% |
00001460 20 20 20 20 68 65 72 65 25 3d 2d 31 3a 6f 62 6a | here%=-1:obj|
00001470 25 3d 49 25 3a 49 25 3d 6f 62 6a 6e 75 6d 25 0d |%=I%:I%=objnum%.|
00001480 06 cc 09 20 20 20 20 cd 0d 06 d6 07 20 20 cd 0d |... ..... ..|
00001490 06 e0 05 ed 0d 06 ea 41 e7 20 ac 20 68 65 72 65 |.......A. . here|
000014a0 25 20 8c 20 fb 20 36 3a f2 77 72 61 70 5f 70 72 |% . . 6:.wrap_pr|
000014b0 69 6e 74 28 22 59 6f 75 20 63 61 6e 27 74 20 73 |int("You can't s|
000014c0 65 65 20 74 68 61 74 20 68 65 72 65 2e 22 2c 32 |ee that here.",2|
000014d0 2c 31 29 3a e1 0d 06 f4 18 e7 20 6f 62 6a 73 74 |,1):...... objst|
000014e0 61 74 25 28 6f 62 6a 25 29 3d 30 20 8c 0d 06 fe |at%(obj%)=0 ....|
000014f0 38 20 20 fb 20 36 3a f2 77 72 61 70 5f 70 72 69 |8 . 6:.wrap_pri|
00001500 6e 74 28 22 54 68 61 74 27 73 20 74 6f 6f 20 68 |nt("That's too h|
00001510 65 61 76 79 20 74 6f 20 6c 69 66 74 2e 22 2c 32 |eavy to lift.",2|
00001520 2c 31 29 3a e1 0d 07 08 05 cd 0d 07 12 1c e7 20 |,1):........... |
00001530 63 61 72 72 69 65 64 25 3c 63 61 72 72 79 6c 69 |carried%<carryli|
00001540 6d 69 74 25 20 8c 0d 07 1c 2c 20 20 6f 62 6a 6c |mit% ...., objl|
00001550 6f 63 25 28 6f 62 6a 25 29 3d 30 3a 63 61 72 73 |oc%(obj%)=0:cars|
00001560 74 61 74 25 28 63 61 72 72 69 65 64 25 2b 31 29 |tat%(carried%+1)|
00001570 3d 30 0d 07 26 2a 20 20 6f 62 6a 63 61 72 25 28 |=0..&* objcar%(|
00001580 63 61 72 72 69 65 64 25 2b 31 29 3d 6f 62 6a 25 |carried%+1)=obj%|
00001590 3a 63 61 72 72 69 65 64 25 2b 3d 31 0d 07 30 20 |:carried%+=1..0 |
000015a0 20 20 fb 20 36 3a f2 77 72 61 70 5f 70 72 69 6e | . 6:.wrap_prin|
000015b0 74 28 22 4f 6b 2e 22 2c 32 2c 31 29 0d 07 3a 05 |t("Ok.",2,1)..:.|
000015c0 cc 0d 07 44 36 20 20 fb 20 36 3a f2 77 72 61 70 |...D6 . 6:.wrap|
000015d0 5f 70 72 69 6e 74 28 22 59 6f 75 20 63 61 6e 27 |_print("You can'|
000015e0 74 20 63 61 72 72 79 20 61 6e 79 20 6d 6f 72 65 |t carry any more|
000015f0 2e 22 2c 32 2c 31 29 0d 07 4e 05 cd 0d 07 58 05 |.",2,1)..N....X.|
00001600 e1 0d 07 62 05 3a 0d 07 6c 0a dd f2 64 72 6f 70 |...b.:..l...drop|
00001610 0d 07 76 12 e7 20 63 61 72 72 69 65 64 25 3d 30 |..v.. carried%=0|
00001620 20 8c 0d 07 80 3b 20 20 fb 20 36 3a f2 77 72 61 | ....; . 6:.wra|
00001630 70 5f 70 72 69 6e 74 28 22 59 6f 75 27 72 65 20 |p_print("You're |
00001640 6e 6f 74 20 63 61 72 72 79 69 6e 67 20 61 6e 79 |not carrying any|
00001650 74 68 69 6e 67 20 21 22 2c 32 2c 31 29 0d 07 8a |thing !",2,1)...|
00001660 05 cc 0d 07 94 0c 20 20 6f 62 6a 25 3d 30 0d 07 |...... obj%=0..|
00001670 9e 17 20 20 e3 20 49 25 3d 31 20 b8 20 63 61 72 |.. . I%=1 . car|
00001680 72 69 65 64 25 0d 07 a8 24 20 20 20 20 e7 20 6f |ried%...$ . o|
00001690 62 6a 6e 6f 75 6e 25 28 6f 62 6a 63 61 72 25 28 |bjnoun%(objcar%(|
000016a0 49 25 29 29 3d 6e 25 20 8c 0d 07 b2 35 20 20 20 |I%))=n% ....5 |
000016b0 20 20 20 e7 20 28 61 25 3e 30 20 80 20 6f 62 6a | . (a%>0 . obj|
000016c0 61 63 74 25 28 6f 62 6a 63 61 72 25 28 49 25 29 |act%(objcar%(I%)|
000016d0 29 3d 61 25 29 20 84 20 61 25 3d 30 20 8c 0d 07 |)=a%) . a%=0 ...|
000016e0 bc 1f 20 20 20 20 20 20 20 20 6f 62 6a 25 3d 49 |.. obj%=I|
000016f0 25 3a 49 25 3d 63 61 72 72 69 65 64 25 0d 07 c6 |%:I%=carried%...|
00001700 0b 20 20 20 20 20 20 cd 0d 07 d0 09 20 20 20 20 |. ..... |
00001710 cd 0d 07 da 07 20 20 ed 0d 07 e4 10 20 20 e7 20 |..... ..... . |
00001720 6f 62 6a 25 3e 30 20 8c 0d 07 ee 32 20 20 20 20 |obj%>0 ....2 |
00001730 6f 62 6a 6c 6f 63 25 28 6f 62 6a 63 61 72 25 28 |objloc%(objcar%(|
00001740 6f 62 6a 25 29 29 3d 63 75 72 6c 6f 63 25 3a 63 |obj%))=curloc%:c|
00001750 61 72 72 69 65 64 25 2d 3d 31 0d 07 f8 1d 20 20 |arried%-=1.... |
00001760 20 20 e7 20 6f 62 6a 25 3c 3e 63 61 72 72 79 6c | . obj%<>carryl|
00001770 69 6d 69 74 25 20 8c 0d 08 02 1e 20 20 20 20 20 |imit% ..... |
00001780 20 e3 20 49 25 3d 6f 62 6a 25 20 b8 20 63 61 72 | . I%=obj% . car|
00001790 72 69 65 64 25 0d 08 0c 25 20 20 20 20 20 20 20 |ried%...% |
000017a0 20 6f 62 6a 63 61 72 25 28 49 25 29 3d 6f 62 6a | objcar%(I%)=obj|
000017b0 63 61 72 25 28 49 25 2b 31 29 0d 08 16 27 20 20 |car%(I%+1)...' |
000017c0 20 20 20 20 20 20 63 61 72 73 74 61 74 25 28 49 | carstat%(I|
000017d0 25 29 3d 63 61 72 73 74 61 74 25 28 49 25 2b 31 |%)=carstat%(I%+1|
000017e0 29 0d 08 20 0b 20 20 20 20 20 20 ed 0d 08 2a 09 |).. . ...*.|
000017f0 20 20 20 20 cd 0d 08 34 22 20 20 20 20 fb 20 36 | ...4" . 6|
00001800 3a f2 77 72 61 70 5f 70 72 69 6e 74 28 22 4f 6b |:.wrap_print("Ok|
00001810 2e 22 2c 32 2c 31 29 0d 08 3e 07 20 20 cc 0d 08 |.",2,1)..>. ...|
00001820 48 38 20 20 20 20 fb 20 36 3a f2 77 72 61 70 5f |H8 . 6:.wrap_|
00001830 70 72 69 6e 74 28 22 59 6f 75 27 72 65 20 6e 6f |print("You're no|
00001840 74 20 63 61 72 72 79 69 6e 67 20 74 68 61 74 2e |t carrying that.|
00001850 22 2c 32 2c 31 29 0d 08 52 07 20 20 cd 0d 08 5c |",2,1)..R. ...\|
00001860 05 cd 0d 08 66 05 e1 0d 08 70 05 3a 0d 08 7a 0f |....f....p.:..z.|
00001870 dd f2 69 6e 76 65 6e 74 6f 72 79 0d 08 84 07 fb |..inventory.....|
00001880 20 36 0d 08 8e 19 f1 27 22 59 6f 75 20 61 72 65 | 6.....'"You are|
00001890 20 63 61 72 72 79 69 6e 67 3a 22 0d 08 98 07 fb | carrying:".....|
000018a0 20 33 0d 08 a2 12 e7 20 63 61 72 72 69 65 64 25 | 3..... carried%|
000018b0 3d 30 20 8c 0d 08 ac 15 20 20 f1 22 20 20 4e 6f |=0 ..... ." No|
000018c0 74 68 69 6e 67 20 21 21 22 0d 08 b6 08 20 20 f1 |thing !!".... .|
000018d0 3a 0d 08 c0 07 20 20 e1 0d 08 ca 05 cc 0d 08 d4 |:.... .........|
000018e0 17 20 20 e3 20 49 25 3d 31 20 b8 20 63 61 72 72 |. . I%=1 . carr|
000018f0 69 65 64 25 0d 08 de 24 20 20 20 20 f1 22 20 20 |ied%...$ ." |
00001900 22 3b 6f 62 6a 64 65 73 63 24 28 6f 62 6a 63 61 |";objdesc$(objca|
00001910 72 25 28 49 25 29 29 3b 0d 08 e8 1a 20 20 20 20 |r%(I%));.... |
00001920 e7 20 63 61 72 73 74 61 74 25 28 49 25 29 3d 31 |. carstat%(I%)=1|
00001930 20 8c 0d 08 f2 14 20 20 20 20 20 20 f1 22 20 28 | ..... ." (|
00001940 77 6f 72 6e 29 22 0d 08 fc 09 20 20 20 20 cc 0d |worn)".... ..|
00001950 09 06 0b 20 20 20 20 20 20 f1 0d 09 10 09 20 20 |... ..... |
00001960 20 20 cd 0d 09 1a 07 20 20 ed 0d 09 24 05 cd 0d | ..... ...$...|
00001970 09 2e 05 f1 0d 09 38 05 e1 0d 09 42 05 3a 0d 09 |......8....B.:..|
00001980 4c 0d dd f2 65 78 61 6d 69 6e 65 0d 09 56 0a 6f |L...examine..V.o|
00001990 62 6a 25 3d 30 0d 09 60 12 e7 20 63 61 72 72 69 |bj%=0..`.. carri|
000019a0 65 64 25 3e 30 20 8c 0d 09 6a 17 20 20 e3 20 49 |ed%>0 ...j. . I|
000019b0 25 3d 31 20 b8 20 63 61 72 72 69 65 64 25 0d 09 |%=1 . carried%..|
000019c0 74 24 20 20 20 20 e7 20 6f 62 6a 6e 6f 75 6e 25 |t$ . objnoun%|
000019d0 28 6f 62 6a 63 61 72 25 28 49 25 29 29 3d 6e 25 |(objcar%(I%))=n%|
000019e0 20 8c 0d 09 7e 35 20 20 20 20 20 20 e7 20 28 61 | ...~5 . (a|
000019f0 25 3e 30 20 80 20 6f 62 6a 61 63 74 25 28 6f 62 |%>0 . objact%(ob|
00001a00 6a 63 61 72 25 28 49 25 29 29 3d 61 25 29 20 84 |jcar%(I%))=a%) .|
00001a10 20 61 25 3d 30 20 8c 0d 09 88 28 20 20 20 20 20 | a%=0 ....( |
00001a20 20 20 20 6f 62 6a 25 3d 6f 62 6a 63 61 72 25 28 | obj%=objcar%(|
00001a30 49 25 29 3a 49 25 3d 63 61 72 72 69 65 64 25 0d |I%):I%=carried%.|
00001a40 09 92 0b 20 20 20 20 20 20 cd 0d 09 9c 09 20 20 |... ..... |
00001a50 20 20 cd 0d 09 a6 07 20 20 ed 0d 09 b0 05 cd 0d | ..... .......|
00001a60 09 ba 0e e7 20 6f 62 6a 25 3d 30 20 8c 0d 09 c4 |.... obj%=0 ....|
00001a70 16 20 20 e3 20 49 25 3d 31 20 b8 20 6f 62 6a 6e |. . I%=1 . objn|
00001a80 75 6d 25 0d 09 ce 31 20 20 20 20 e7 20 6f 62 6a |um%...1 . obj|
00001a90 6c 6f 63 25 28 49 25 29 3d 63 75 72 6c 6f 63 25 |loc%(I%)=curloc%|
00001aa0 20 80 20 6f 62 6a 6e 6f 75 6e 25 28 49 25 29 3d | . objnoun%(I%)=|
00001ab0 6e 25 20 8c 0d 09 d8 23 20 20 20 20 20 20 e7 20 |n% ....# . |
00001ac0 61 25 3e 30 20 80 20 6f 62 6a 61 63 74 25 28 49 |a%>0 . objact%(I|
00001ad0 25 29 3d 61 25 20 8c 0d 09 e2 1e 20 20 20 20 20 |%)=a% ..... |
00001ae0 20 20 20 6f 62 6a 25 3d 49 25 3a 49 25 3d 6f 62 | obj%=I%:I%=ob|
00001af0 6a 6e 75 6d 25 0d 09 ec 0b 20 20 20 20 20 20 cd |jnum%.... .|
00001b00 0d 09 f6 12 20 20 20 20 20 20 e7 20 61 25 3d 30 |.... . a%=0|
00001b10 20 8c 0d 0a 00 1e 20 20 20 20 20 20 20 20 6f 62 | ..... ob|
00001b20 6a 25 3d 49 25 3a 49 25 3d 6f 62 6a 6e 75 6d 25 |j%=I%:I%=objnum%|
00001b30 0d 0a 0a 0b 20 20 20 20 20 20 cd 0d 0a 14 09 20 |.... ..... |
00001b40 20 20 20 cd 0d 0a 1e 07 20 20 ed 0d 0a 28 05 cd | ..... ...(..|
00001b50 0d 0a 32 0e e7 20 6f 62 6a 25 3d 30 20 8c 0d 0a |..2.. obj%=0 ...|
00001b60 3c 09 20 20 fb 20 36 0d 0a 46 32 20 20 f2 77 72 |<. . 6..F2 .wr|
00001b70 61 70 5f 70 72 69 6e 74 28 22 59 6f 75 27 72 65 |ap_print("You're|
00001b80 20 6e 6f 74 20 63 61 72 72 79 69 6e 67 20 74 68 | not carrying th|
00001b90 61 74 2e 22 2c 32 2c 31 29 0d 0a 50 05 cc 0d 0a |at.",2,1)..P....|
00001ba0 5a 09 20 20 fb 20 33 0d 0a 64 25 20 20 f2 77 72 |Z. . 3..d% .wr|
00001bb0 61 70 5f 70 72 69 6e 74 28 65 78 61 6d 69 6e 65 |ap_print(examine|
00001bc0 24 28 6f 62 6a 25 29 2c 32 2c 31 29 0d 0a 6e 05 |$(obj%),2,1)..n.|
00001bd0 cd 0d 0a 78 05 e1 0d 0a 82 05 3a 0d 0a 8c 0e dd |...x......:.....|
00001be0 f2 6d 6f 76 65 6d 65 6e 74 0d 0a 96 1a e7 20 76 |.movement..... v|
00001bf0 25 3c 37 20 8c 20 64 25 3d 76 25 20 8b 20 64 25 |%<7 . d%=v% . d%|
00001c00 3d 6e 25 0d 0a a0 1b e7 20 72 6f 6f 6d 25 28 63 |=n%..... room%(c|
00001c10 75 72 6c 6f 63 25 2c 64 25 29 3d 30 20 8c 0d 0a |urloc%,d%)=0 ...|
00001c20 aa 09 20 20 fb 20 36 0d 0a b4 2f 20 20 f2 77 72 |.. . 6.../ .wr|
00001c30 61 70 5f 70 72 69 6e 74 28 22 59 6f 75 20 63 61 |ap_print("You ca|
00001c40 6e 27 74 20 67 6f 20 74 68 61 74 20 77 61 79 2e |n't go that way.|
00001c50 22 2c 32 2c 31 29 0d 0a be 05 cc 0d 0a c8 1f 20 |",2,1)......... |
00001c60 20 63 75 72 6c 6f 63 25 3d 72 6f 6f 6d 25 28 63 | curloc%=room%(c|
00001c70 75 72 6c 6f 63 25 2c 64 25 29 0d 0a d2 0f 20 20 |urloc%,d%).... |
00001c80 f2 64 65 73 63 72 69 62 65 0d 0a dc 05 cd 0d 0a |.describe.......|
00001c90 e6 05 e1 0d 0a f0 05 3a 0d 0a fa 0a dd f2 68 65 |.......:......he|
00001ca0 6c 70 0d 0b 04 07 fb 20 32 0d 0b 0e a1 f2 77 72 |lp..... 2.....wr|
00001cb0 61 70 5f 70 72 69 6e 74 28 22 49 20 63 61 6e 20 |ap_print("I can |
00001cc0 75 6e 64 65 72 73 74 61 6e 64 20 71 75 69 74 65 |understand quite|
00001cd0 20 63 6f 6d 70 6c 65 78 20 73 65 6e 74 65 6e 63 | complex sentenc|
00001ce0 65 73 20 28 65 67 2e 20 43 72 65 65 70 20 75 6e |es (eg. Creep un|
00001cf0 64 65 72 20 74 68 65 20 6d 65 74 61 6c 20 72 61 |der the metal ra|
00001d00 69 6c 69 6e 67 29 20 61 73 20 77 65 6c 6c 20 61 |iling) as well a|
00001d10 73 20 73 69 6d 70 6c 65 20 6f 6e 65 20 61 6e 64 |s simple one and|
00001d20 20 74 77 6f 20 77 6f 72 64 20 63 6f 6d 6d 61 6e | two word comman|
00001d30 64 73 20 28 65 67 2e 20 4b 69 6c 6c 20 74 72 6f |ds (eg. Kill tro|
00001d40 6c 6c 29 2e 22 2c 31 2c 31 29 0d 0b 18 07 fb 20 |ll).",1,1)..... |
00001d50 32 0d 0b 22 e6 f2 77 72 61 70 5f 70 72 69 6e 74 |2.."..wrap_print|
00001d60 28 22 4d 75 6c 74 69 70 6c 65 20 63 6f 6d 6d 61 |("Multiple comma|
00001d70 6e 64 73 20 28 65 67 2e 20 47 65 74 20 74 68 65 |nds (eg. Get the|
00001d80 20 6b 65 79 2c 20 55 6e 6c 6f 63 6b 20 74 68 65 | key, Unlock the|
00001d90 20 64 6f 6f 72 20 61 6e 64 20 74 68 65 6e 20 72 | door and then r|
00001da0 75 6e 20 6e 6f 72 74 68 29 20 61 72 65 20 61 6c |un north) are al|
00001db0 73 6f 20 75 6e 64 65 72 73 74 6f 6f 64 2e 20 49 |so understood. I|
00001dc0 66 20 79 6f 75 20 61 72 65 20 6e 6f 74 20 62 65 |f you are not be|
00001dd0 69 6e 67 20 75 6e 64 65 72 73 74 6f 6f 64 2c 20 |ing understood, |
00001de0 74 68 65 6e 20 74 72 79 20 75 73 69 6e 67 20 64 |then try using d|
00001df0 69 66 66 65 72 65 6e 74 20 77 6f 72 64 73 2e 20 |ifferent words. |
00001e00 54 72 79 69 6e 67 20 61 20 64 69 66 66 65 72 65 |Trying a differe|
00001e10 6e 74 20 6c 69 6e 65 20 6f 66 20 74 68 6f 75 67 |nt line of thoug|
00001e20 68 74 20 63 61 6e 20 61 6c 73 6f 20 68 65 6c 70 |ht can also help|
00001e30 2e 22 2c 31 2c 31 29 0d 0b 2c 07 fb 20 32 0d 0b |.",1,1)..,.. 2..|
00001e40 36 7e f2 77 72 61 70 5f 70 72 69 6e 74 28 22 49 |6~.wrap_print("I|
00001e50 74 20 61 6c 73 6f 20 68 65 6c 70 73 20 74 6f 20 |t also helps to |
00001e60 6b 65 65 70 20 74 68 65 20 63 6f 6d 6d 61 6e 64 |keep the command|
00001e70 73 20 66 61 69 72 6c 79 20 73 69 6d 70 6c 65 20 |s fairly simple |
00001e80 77 68 65 72 65 20 79 6f 75 20 63 61 6e 2c 20 61 |where you can, a|
00001e90 73 20 74 68 65 72 65 20 61 72 65 20 66 65 77 65 |s there are fewe|
00001ea0 72 20 77 6f 72 64 73 20 74 6f 20 63 6f 6e 66 75 |r words to confu|
00001eb0 73 65 20 6d 65 2e 22 2c 32 2c 31 29 0d 0b 40 05 |se me.",2,1)..@.|
00001ec0 e1 0d 0b 4a 05 3a 0d 0b 54 0a dd f2 77 65 61 72 |...J.:..T...wear|
00001ed0 0d 0b 5e 0a 6f 62 6a 25 3d 30 0d 0b 68 14 e3 20 |..^.obj%=0..h.. |
00001ee0 49 25 3d 31 20 b8 20 6f 62 6a 6e 75 6d 25 0d 0b |I%=1 . objnum%..|
00001ef0 72 19 20 20 e7 20 6f 62 6a 6e 6f 75 6e 25 28 49 |r. . objnoun%(I|
00001f00 25 29 3d 6e 25 20 8c 0d 0b 7c 2a 20 20 20 20 e7 |%)=n% ...|* .|
00001f10 20 28 61 25 3e 30 20 80 20 6f 62 6a 61 63 74 25 | (a%>0 . objact%|
00001f20 28 49 25 29 3d 61 25 29 20 84 20 61 25 3d 30 20 |(I%)=a%) . a%=0 |
00001f30 8c 0d 0b 86 1c 20 20 20 20 20 20 6f 62 6a 25 3d |..... obj%=|
00001f40 49 25 3a 49 25 3d 6f 62 6a 6e 75 6d 25 0d 0b 90 |I%:I%=objnum%...|
00001f50 09 20 20 20 20 cd 0d 0b 9a 07 20 20 cd 0d 0b a4 |. ..... ....|
00001f60 05 ed 0d 0b ae 22 e7 20 6f 62 6a 25 3d 30 20 84 |.....". obj%=0 .|
00001f70 20 6f 62 6a 73 74 61 74 25 28 6f 62 6a 25 29 3c | objstat%(obj%)<|
00001f80 3e 32 20 8c 0d 0b b8 31 20 20 fb 20 36 3a f2 77 |>2 ....1 . 6:.w|
00001f90 72 61 70 5f 70 72 69 6e 74 28 22 59 6f 75 20 63 |rap_print("You c|
00001fa0 61 6e 27 74 20 77 65 61 72 20 74 68 61 74 2e 22 |an't wear that."|
00001fb0 2c 32 2c 31 29 0d 0b c2 07 20 20 e1 0d 0b cc 05 |,2,1).... .....|
00001fc0 cd 0d 0b d6 0a 63 61 72 25 3d 30 0d 0b e0 0b 68 |.....car%=0....h|
00001fd0 65 72 65 25 3d a3 0d 0b ea 1d e7 20 6f 62 6a 6c |ere%=...... objl|
00001fe0 6f 63 25 28 6f 62 6a 25 29 3d 63 75 72 6c 6f 63 |oc%(obj%)=curloc|
00001ff0 25 20 8c 0d 0b f4 0d 20 20 68 65 72 65 25 3d b9 |% ..... here%=.|
00002000 0d 0b fe 05 cc 0d 0c 08 14 20 20 e7 20 63 61 72 |......... . car|
00002010 72 69 65 64 25 3e 30 20 8c 0d 0c 12 19 20 20 20 |ried%>0 ..... |
00002020 20 e3 20 49 25 3d 31 20 b8 20 63 61 72 72 69 65 | . I%=1 . carrie|
00002030 64 25 0d 0c 1c 26 20 20 20 20 20 20 e7 20 6f 62 |d%...& . ob|
00002040 6a 6e 6f 75 6e 25 28 6f 62 6a 63 61 72 25 28 49 |jnoun%(objcar%(I|
00002050 25 29 29 3d 6e 25 20 8c 0d 0c 26 37 20 20 20 20 |%))=n% ...&7 |
00002060 20 20 20 20 e7 20 28 61 25 3e 30 20 80 20 6f 62 | . (a%>0 . ob|
00002070 6a 61 63 74 25 28 6f 62 6a 63 61 72 25 28 49 25 |jact%(objcar%(I%|
00002080 29 29 3d 61 25 29 20 84 20 61 25 3d 30 20 8c 0d |))=a%) . a%=0 ..|
00002090 0c 30 29 20 20 20 20 20 20 20 20 20 20 63 61 72 |.0) car|
000020a0 25 3d 49 25 3a 68 65 72 65 25 3d b9 3a 49 25 3d |%=I%:here%=.:I%=|
000020b0 63 61 72 72 69 65 64 25 0d 0c 3a 0d 20 20 20 20 |carried%..:. |
000020c0 20 20 20 20 cd 0d 0c 44 0b 20 20 20 20 20 20 cd | ...D. .|
000020d0 0d 0c 4e 09 20 20 20 20 ed 0d 0c 58 07 20 20 cd |..N. ...X. .|
000020e0 0d 0c 62 05 cd 0d 0c 6c 0f e7 20 ac 20 68 65 72 |..b....l.. . her|
000020f0 65 25 20 8c 0d 0c 76 48 20 20 fb 20 36 3a f2 77 |e% ...vH . 6:.w|
00002100 72 61 70 5f 70 72 69 6e 74 28 22 54 68 61 74 20 |rap_print("That |
00002110 69 73 6e 27 74 20 61 76 61 69 6c 61 62 6c 65 20 |isn't available |
00002120 74 6f 20 77 65 61 72 20 61 74 20 74 68 65 20 6d |to wear at the m|
00002130 6f 6d 65 6e 74 2e 22 2c 32 2c 31 29 0d 0c 80 05 |oment.",2,1)....|
00002140 cc 0d 0c 8a 10 20 20 e7 20 63 61 72 25 3e 30 20 |..... . car%>0 |
00002150 8c 0d 0c 94 1c 20 20 20 20 63 61 72 73 74 61 74 |..... carstat|
00002160 25 28 63 61 72 25 29 3d 31 3a fb 20 36 0d 0c 9e |%(car%)=1:. 6...|
00002170 1e 20 20 20 20 f2 77 72 61 70 5f 70 72 69 6e 74 |. .wrap_print|
00002180 28 22 4f 6b 2e 22 2c 32 2c 31 29 0d 0c a8 07 20 |("Ok.",2,1).... |
00002190 20 cc 0d 0c b2 20 20 20 20 20 e7 20 63 61 72 72 | .... . carr|
000021a0 69 65 64 25 3c 63 61 72 72 79 6c 69 6d 69 74 25 |ied%<carrylimit%|
000021b0 20 8c 0d 0c bc 30 20 20 20 20 20 20 6f 62 6a 6c | ....0 objl|
000021c0 6f 63 25 28 6f 62 6a 25 29 3d 30 3a 63 61 72 73 |oc%(obj%)=0:cars|
000021d0 74 61 74 25 28 63 61 72 72 69 65 64 25 2b 31 29 |tat%(carried%+1)|
000021e0 3d 31 0d 0c c6 2e 20 20 20 20 20 20 6f 62 6a 63 |=1.... objc|
000021f0 61 72 25 28 63 61 72 72 69 65 64 25 2b 31 29 3d |ar%(carried%+1)=|
00002200 6f 62 6a 25 3a 63 61 72 72 69 65 64 25 2b 3d 31 |obj%:carried%+=1|
00002210 0d 0c d0 24 20 20 20 20 20 20 fb 20 36 3a f2 77 |...$ . 6:.w|
00002220 72 61 70 5f 70 72 69 6e 74 28 22 4f 6b 2e 22 2c |rap_print("Ok.",|
00002230 32 2c 31 29 0d 0c da 09 20 20 20 20 cc 0d 0c e4 |2,1).... ....|
00002240 47 20 20 20 20 20 20 fb 20 36 3a f2 77 72 61 70 |G . 6:.wrap|
00002250 5f 70 72 69 6e 74 28 22 59 6f 75 27 72 65 20 63 |_print("You're c|
00002260 61 72 72 79 69 6e 67 20 74 6f 6f 20 6d 75 63 68 |arrying too much|
00002270 20 74 6f 20 77 65 61 72 20 74 68 61 74 2e 22 2c | to wear that.",|
00002280 32 2c 31 29 0d 0c ee 09 20 20 20 20 cd 0d 0c f8 |2,1).... ....|
00002290 07 20 20 cd 0d 0d 02 05 cd 0d 0d 0c 05 e1 0d 0d |. .............|
000022a0 16 05 3a 0d 0d 20 0c dd a4 70 75 7a 7a 6c 65 0d |..:.. ...puzzle.|
000022b0 0d 2a 0e 70 75 7a 64 6f 6e 65 25 3d 30 0d 0d 34 |.*.puzdone%=0..4|
000022c0 16 e3 20 70 7a 6e 25 3d 30 20 b8 20 70 6e 75 6d |.. pzn%=0 . pnum|
000022d0 25 2d 31 0d 0d 3e 1c 20 20 70 62 79 74 65 25 3d |%-1..>. pbyte%=|
000022e0 70 7a 6e 25 2a 33 36 2b 70 75 7a 6c 6f 63 25 0d |pzn%*36+puzloc%.|
000022f0 0d 48 0e 20 20 63 6f 6e 64 25 3d 2d 31 0d 0d 52 |.H. cond%=-1..R|
00002300 30 20 20 e7 20 3f 70 62 79 74 65 25 3e 30 20 80 |0 . ?pbyte%>0 .|
00002310 20 3f 70 62 79 74 65 25 3c 3e 76 25 20 8c 20 63 | ?pbyte%<>v% . c|
00002320 6f 6e 64 25 3d 30 3a e5 20 8d 64 6c 4e 0d 0d 5c |ond%=0:. .dlN..\|
00002330 32 20 20 e7 20 70 62 79 74 65 25 3f 31 3e 30 20 |2 . pbyte%?1>0 |
00002340 80 20 70 62 79 74 65 25 3f 31 3c 3e 6c 25 20 8c |. pbyte%?1<>l% .|
00002350 20 63 6f 6e 64 25 3d 30 3a e5 20 8d 64 6c 4e 0d | cond%=0:. .dlN.|
00002360 0d 66 24 20 20 e7 20 70 62 79 74 65 25 3f 32 3e |.f$ . pbyte%?2>|
00002370 30 20 80 20 70 62 79 74 65 25 3f 35 3c 3e 32 35 |0 . pbyte%?5<>25|
00002380 35 20 8c 0d 0d 70 27 20 20 20 20 e7 20 61 25 3e |5 ...p' . a%>|
00002390 30 20 80 20 61 25 3c 3e 70 62 79 74 65 25 3f 32 |0 . a%<>pbyte%?2|
000023a0 20 8c 20 63 6f 6e 64 25 3d 30 0d 0d 7a 07 20 20 | . cond%=0..z. |
000023b0 cc 0d 0d 84 20 20 20 20 20 e7 20 61 25 3c 3e 70 |.... . a%<>p|
000023c0 62 79 74 65 25 3f 32 20 8c 20 63 6f 6e 64 25 3d |byte%?2 . cond%=|
000023d0 30 0d 0d 8e 1a 20 20 cd 3a e7 20 63 6f 6e 64 25 |0.... .:. cond%|
000023e0 3d 30 20 8c 20 e5 20 8d 64 6c 4e 0d 0d 98 32 20 |=0 . . .dlN...2 |
000023f0 20 e7 20 70 62 79 74 65 25 3f 33 3e 30 20 80 20 | . pbyte%?3>0 . |
00002400 70 62 79 74 65 25 3f 33 3c 3e 6e 25 20 8c 20 63 |pbyte%?3<>n% . c|
00002410 6f 6e 64 25 3d 30 3a e5 20 8d 64 6c 4e 0d 0d a2 |ond%=0:. .dlN...|
00002420 37 20 20 e7 20 70 62 79 74 65 25 3f 34 3e 30 20 |7 . pbyte%?4>0 |
00002430 80 20 70 62 79 74 65 25 3f 34 3c 3e 63 75 72 6c |. pbyte%?4<>curl|
00002440 6f 63 25 20 8c 20 63 6f 6e 64 25 3d 30 3a e5 20 |oc% . cond%=0:. |
00002450 8d 64 6c 4e 0d 0d ac 4f 20 20 e7 20 70 62 79 74 |.dlN...O . pbyt|
00002460 65 25 3f 35 3e 30 20 80 20 70 62 79 74 65 25 3f |e%?5>0 . pbyte%?|
00002470 35 3c 32 35 35 20 80 20 66 6c 61 67 25 3f 28 70 |5<255 . flag%?(p|
00002480 62 79 74 65 25 3f 35 29 3c 3e 70 62 79 74 65 25 |byte%?5)<>pbyte%|
00002490 3f 36 20 8c 20 63 6f 6e 64 25 3d 30 3a e5 20 8d |?6 . cond%=0:. .|
000024a0 64 6c 4e 0d 0d b6 40 20 20 e7 20 70 62 79 74 65 |dlN...@ . pbyte|
000024b0 25 3f 37 3e 30 20 80 20 66 6c 61 67 25 3f 28 70 |%?7>0 . flag%?(p|
000024c0 62 79 74 65 25 3f 37 29 3c 3e 70 62 79 74 65 25 |byte%?7)<>pbyte%|
000024d0 3f 38 20 8c 20 63 6f 6e 64 25 3d 30 3a e5 20 8d |?8 . cond%=0:. .|
000024e0 64 6c 4e 0d 0d c0 4e 20 20 e7 20 70 62 79 74 65 |dlN...N . pbyte|
000024f0 25 3f 39 3e 30 20 80 20 a4 6f 62 6a 74 65 73 74 |%?9>0 . .objtest|
00002500 28 70 62 79 74 65 25 3f 39 2c 70 62 79 74 65 25 |(pbyte%?9,pbyte%|
00002510 3f 31 30 2c 70 62 79 74 65 25 3f 31 31 29 3d 30 |?10,pbyte%?11)=0|
00002520 20 8c 20 63 6f 6e 64 25 3d 30 3a e5 20 8d 64 6c | . cond%=0:. .dl|
00002530 4e 0d 0d ca 50 20 20 e7 20 70 62 79 74 65 25 3f |N...P . pbyte%?|
00002540 31 32 3e 30 20 80 20 a4 6f 62 6a 74 65 73 74 28 |12>0 . .objtest(|
00002550 70 62 79 74 65 25 3f 31 32 2c 70 62 79 74 65 25 |pbyte%?12,pbyte%|
00002560 3f 31 33 2c 70 62 79 74 65 25 3f 31 34 29 3d 30 |?13,pbyte%?14)=0|
00002570 20 8c 20 63 6f 6e 64 25 3d 30 3a e5 20 8d 64 6c | . cond%=0:. .dl|
00002580 4e 0d 0d d4 50 20 20 e7 20 70 62 79 74 65 25 3f |N...P . pbyte%?|
00002590 31 35 3e 30 20 80 20 a4 6f 62 6a 74 65 73 74 28 |15>0 . .objtest(|
000025a0 70 62 79 74 65 25 3f 31 35 2c 70 62 79 74 65 25 |pbyte%?15,pbyte%|
000025b0 3f 31 36 2c 70 62 79 74 65 25 3f 31 37 29 3d 30 |?16,pbyte%?17)=0|
000025c0 20 8c 20 63 6f 6e 64 25 3d 30 3a e5 20 8d 64 6c | . cond%=0:. .dl|
000025d0 4e 0d 0d de 0f 20 20 e7 20 63 6f 6e 64 25 20 8c |N.... . cond% .|
000025e0 0d 0d e8 27 20 20 20 20 e7 20 70 62 79 74 65 25 |...' . pbyte%|
000025f0 3f 31 38 3e 30 20 80 20 70 62 79 74 65 25 3f 31 |?18>0 . pbyte%?1|
00002600 38 3c 32 35 34 20 8c 0d 0d f2 19 20 20 20 20 20 |8<254 ..... |
00002610 20 e7 20 70 62 79 74 65 25 3f 31 39 3c 32 20 8c | . pbyte%?19<2 .|
00002620 0d 0d fc 27 20 20 20 20 20 20 20 20 66 6c 61 67 |...' flag|
00002630 25 3f 28 70 62 79 74 65 25 3f 31 38 29 3d 70 62 |%?(pbyte%?18)=pb|
00002640 79 74 65 25 3f 31 39 0d 0e 06 0b 20 20 20 20 20 |yte%?19.... |
00002650 20 cc 0d 0e 10 31 20 20 20 20 20 20 20 20 66 6c | ....1 fl|
00002660 61 67 25 3f 28 70 62 79 74 65 25 3f 31 38 29 3d |ag%?(pbyte%?18)=|
00002670 31 2d 66 6c 61 67 25 3f 28 70 62 79 74 65 25 3f |1-flag%?(pbyte%?|
00002680 31 38 29 0d 0e 1a 0b 20 20 20 20 20 20 cd 0d 0e |18).... ...|
00002690 24 09 20 20 20 20 cd 0d 0e 2e 33 20 20 20 20 e7 |$. ....3 .|
000026a0 20 70 62 79 74 65 25 3f 31 38 3d 32 35 34 20 8c | pbyte%?18=254 .|
000026b0 20 66 69 6e 69 73 68 65 64 5f 70 6c 61 79 69 6e | finished_playin|
000026c0 67 3d b9 3a 77 69 6e 25 3d b9 0d 0e 38 33 20 20 |g=.:win%=...83 |
000026d0 20 20 e7 20 70 62 79 74 65 25 3f 31 38 3d 32 35 | . pbyte%?18=25|
000026e0 35 20 8c 20 66 69 6e 69 73 68 65 64 5f 70 6c 61 |5 . finished_pla|
000026f0 79 69 6e 67 3d b9 3a 77 69 6e 25 3d 30 0d 0e 42 |ying=.:win%=0..B|
00002700 27 20 20 20 20 e7 20 70 62 79 74 65 25 3f 32 30 |' . pbyte%?20|
00002710 3e 30 20 80 20 70 62 79 74 65 25 3f 32 30 3c 32 |>0 . pbyte%?20<2|
00002720 35 34 20 8c 0d 0e 4c 19 20 20 20 20 20 20 e7 20 |54 ...L. . |
00002730 70 62 79 74 65 25 3f 32 31 3c 32 20 8c 0d 0e 56 |pbyte%?21<2 ...V|
00002740 27 20 20 20 20 20 20 20 20 66 6c 61 67 25 3f 28 |' flag%?(|
00002750 70 62 79 74 65 25 3f 32 30 29 3d 70 62 79 74 65 |pbyte%?20)=pbyte|
00002760 25 3f 32 31 0d 0e 60 0b 20 20 20 20 20 20 cc 0d |%?21..`. ..|
00002770 0e 6a 31 20 20 20 20 20 20 20 20 66 6c 61 67 25 |.j1 flag%|
00002780 3f 28 70 62 79 74 65 25 3f 32 30 29 3d 31 2d 66 |?(pbyte%?20)=1-f|
00002790 6c 61 67 25 3f 28 70 62 79 74 65 25 3f 32 30 29 |lag%?(pbyte%?20)|
000027a0 0d 0e 74 0b 20 20 20 20 20 20 cd 0d 0e 7e 09 20 |..t. ...~. |
000027b0 20 20 20 cd 0d 0e 88 3c 20 20 20 20 e7 20 70 62 | ....< . pb|
000027c0 79 74 65 25 3f 32 32 3e 30 20 8c 20 72 6f 6f 6d |yte%?22>0 . room|
000027d0 25 28 70 62 79 74 65 25 3f 32 32 2c 70 62 79 74 |%(pbyte%?22,pbyt|
000027e0 65 25 3f 32 33 29 3d 70 62 79 74 65 25 3f 32 34 |e%?23)=pbyte%?24|
000027f0 0d 0e 92 3c 20 20 20 20 e7 20 70 62 79 74 65 25 |...< . pbyte%|
00002800 3f 32 35 3e 30 20 8c 20 72 6f 6f 6d 25 28 70 62 |?25>0 . room%(pb|
00002810 79 74 65 25 3f 32 35 2c 70 62 79 74 65 25 3f 32 |yte%?25,pbyte%?2|
00002820 36 29 3d 70 62 79 74 65 25 3f 32 37 0d 0e 9c 4d |6)=pbyte%?27...M|
00002830 20 20 20 20 e7 20 70 62 79 74 65 25 3f 32 38 3e | . pbyte%?28>|
00002840 30 20 80 20 70 62 79 74 65 25 3f 32 30 3c 32 35 |0 . pbyte%?20<25|
00002850 35 20 8c 20 fb 20 36 3a f2 77 72 61 70 5f 70 72 |5 . . 6:.wrap_pr|
00002860 69 6e 74 28 74 65 78 74 24 28 70 62 79 74 65 25 |int(text$(pbyte%|
00002870 3f 32 38 29 2c 32 2c 31 29 0d 0e a6 40 20 20 20 |?28),2,1)...@ |
00002880 20 e7 20 70 62 79 74 65 25 3f 33 30 3e 30 20 8c | . pbyte%?30>0 .|
00002890 20 f2 6d 61 6e 69 70 6f 62 6a 28 70 62 79 74 65 | .manipobj(pbyte|
000028a0 25 3f 33 30 2c 70 62 79 74 65 25 3f 33 31 2c 70 |%?30,pbyte%?31,p|
000028b0 62 79 74 65 25 3f 33 32 29 0d 0e b0 40 20 20 20 |byte%?32)...@ |
000028c0 20 e7 20 70 62 79 74 65 25 3f 33 33 3e 30 20 8c | . pbyte%?33>0 .|
000028d0 20 f2 6d 61 6e 69 70 6f 62 6a 28 70 62 79 74 65 | .manipobj(pbyte|
000028e0 25 3f 33 33 2c 70 62 79 74 65 25 3f 33 34 2c 70 |%?33,pbyte%?34,p|
000028f0 62 79 74 65 25 3f 33 35 29 0d 0e ba 33 20 20 20 |byte%?35)...3 |
00002900 20 e7 20 70 62 79 74 65 25 3f 32 39 3e 30 20 8c | . pbyte%?29>0 .|
00002910 20 63 75 72 6c 6f 63 25 3d 70 62 79 74 65 25 3f | curloc%=pbyte%?|
00002920 32 39 3a f2 64 65 73 63 72 69 62 65 0d 0e c4 4d |29:.describe...M|
00002930 20 20 20 20 e7 20 70 62 79 74 65 25 3f 32 38 3e | . pbyte%?28>|
00002940 30 20 80 20 70 62 79 74 65 25 3f 32 30 3d 32 35 |0 . pbyte%?20=25|
00002950 35 20 8c 20 fb 20 36 3a f2 77 72 61 70 5f 70 72 |5 . . 6:.wrap_pr|
00002960 69 6e 74 28 74 65 78 74 24 28 70 62 79 74 65 25 |int(text$(pbyte%|
00002970 3f 32 38 29 2c 32 2c 31 29 0d 0e ce 26 20 20 20 |?28),2,1)...& |
00002980 20 e7 20 70 62 79 74 65 25 3f 32 30 3c 3e 32 35 | . pbyte%?20<>25|
00002990 34 20 8c 20 70 75 7a 64 6f 6e 65 25 3d 2d 31 0d |4 . puzdone%=-1.|
000029a0 0e d8 27 20 20 20 20 e7 20 70 62 79 74 65 25 3f |..' . pbyte%?|
000029b0 32 30 3c 3e 32 35 34 20 8c 20 70 7a 6e 25 3d 70 |20<>254 . pzn%=p|
000029c0 6e 75 6d 25 2d 31 0d 0e e2 07 20 20 cd 0d 0e ec |num%-1.... ....|
000029d0 05 ed 0d 0e f6 0d 3d 70 75 7a 64 6f 6e 65 25 0d |......=puzdone%.|
000029e0 0f 00 05 3a 0d 0f 0a 1d dd a4 6f 62 6a 74 65 73 |...:......objtes|
000029f0 74 28 70 6f 6e 25 2c 70 6f 61 25 2c 70 6f 72 25 |t(pon%,poa%,por%|
00002a00 29 0d 0f 14 09 6f 6b 25 3d 30 0d 0f 1e 1b e7 20 |)....ok%=0..... |
00002a10 70 6f 72 25 3d 30 20 8c 20 70 6f 72 25 3d 63 75 |por%=0 . por%=cu|
00002a20 72 6c 6f 63 25 0d 0f 28 0e e7 20 70 6f 61 25 3d |rloc%..(.. poa%=|
00002a30 31 20 8c 0d 0f 32 17 20 20 e3 20 4a 25 3d 31 20 |1 ...2. . J%=1 |
00002a40 b8 20 63 61 72 72 69 65 64 25 0d 0f 3c 2d 20 20 |. carried%..<- |
00002a50 20 20 e7 20 6f 62 6a 63 61 72 25 28 4a 25 29 3d | . objcar%(J%)=|
00002a60 70 6f 6e 25 20 80 20 63 61 72 73 74 61 74 25 28 |pon% . carstat%(|
00002a70 4a 25 29 3d 30 20 8c 0d 0f 46 1c 20 20 20 20 20 |J%)=0 ...F. |
00002a80 20 6f 6b 25 3d 2d 31 3a 4a 25 3d 63 61 72 72 69 | ok%=-1:J%=carri|
00002a90 65 64 25 0d 0f 50 09 20 20 20 20 cd 0d 0f 5a 07 |ed%..P. ...Z.|
00002aa0 20 20 ed 0d 0f 64 05 cd 0d 0f 6e 0e e7 20 70 6f | ...d....n.. po|
00002ab0 61 25 3d 32 20 8c 0d 0f 78 17 20 20 e3 20 4a 25 |a%=2 ...x. . J%|
00002ac0 3d 31 20 b8 20 63 61 72 72 69 65 64 25 0d 0f 82 |=1 . carried%...|
00002ad0 2d 20 20 20 20 e7 20 6f 62 6a 63 61 72 25 28 4a |- . objcar%(J|
00002ae0 25 29 3d 70 6f 6e 25 20 80 20 63 61 72 73 74 61 |%)=pon% . carsta|
00002af0 74 25 28 4a 25 29 3d 31 20 8c 0d 0f 8c 1c 20 20 |t%(J%)=1 ..... |
00002b00 20 20 20 20 6f 6b 25 3d 2d 31 3a 4a 25 3d 63 61 | ok%=-1:J%=ca|
00002b10 72 72 69 65 64 25 0d 0f 96 09 20 20 20 20 cd 0d |rried%.... ..|
00002b20 0f a0 07 20 20 ed 0d 0f aa 05 cd 0d 0f b4 0e e7 |... ...........|
00002b30 20 70 6f 61 25 3d 33 20 8c 0d 0f be 34 20 20 e7 | poa%=3 ....4 .|
00002b40 20 6f 62 6a 6c 6f 63 25 28 70 6f 6e 25 29 3d 63 | objloc%(pon%)=c|
00002b50 75 72 6c 6f 63 25 20 84 20 6f 62 6a 6c 6f 63 25 |urloc% . objloc%|
00002b60 28 70 6f 6e 25 29 3d 70 6f 72 25 20 8c 0d 0f c8 |(pon%)=por% ....|
00002b70 0e 20 20 20 20 6f 6b 25 3d 2d 31 0d 0f d2 07 20 |. ok%=-1.... |
00002b80 20 cd 0d 0f dc 05 cd 0d 0f e6 0e e7 20 70 6f 61 | ........... poa|
00002b90 25 3d 34 20 8c 0d 0f f0 25 20 20 e7 20 70 6f 72 |%=4 ....% . por|
00002ba0 25 3d 30 20 84 20 6f 62 6a 6c 6f 63 25 28 70 6f |%=0 . objloc%(po|
00002bb0 6e 25 29 3d 70 6f 72 25 20 8c 0d 0f fa 1c 20 20 |n%)=por% ..... |
00002bc0 20 20 e7 20 6f 62 6a 73 74 61 74 25 28 70 6f 6e | . objstat%(pon|
00002bd0 25 29 3d 30 20 8c 0d 10 04 10 20 20 20 20 20 20 |%)=0 ..... |
00002be0 6f 6b 25 3d 2d 31 0d 10 0e 09 20 20 20 20 cd 0d |ok%=-1.... ..|
00002bf0 10 18 07 20 20 cd 0d 10 22 05 cd 0d 10 2c 0e e7 |... ..."....,..|
00002c00 20 70 6f 61 25 3d 35 20 8c 0d 10 36 0d 20 20 68 | poa%=5 ...6. h|
00002c10 65 72 65 25 3d 30 0d 10 40 14 20 20 e7 20 63 61 |ere%=0..@. . ca|
00002c20 72 72 69 65 64 25 3e 30 20 8c 0d 10 4a 19 20 20 |rried%>0 ...J. |
00002c30 20 20 e3 20 4a 25 3d 31 20 b8 20 63 61 72 72 69 | . J%=1 . carri|
00002c40 65 64 25 0d 10 54 1e 20 20 20 20 20 20 e7 20 6f |ed%..T. . o|
00002c50 62 6a 63 61 72 25 28 4a 25 29 3d 70 6f 6e 25 20 |bjcar%(J%)=pon% |
00002c60 8c 0d 10 5e 20 20 20 20 20 20 20 20 20 68 65 72 |...^ her|
00002c70 65 25 3d 2d 31 3a 4a 25 3d 63 61 72 72 69 65 64 |e%=-1:J%=carried|
00002c80 25 0d 10 68 0b 20 20 20 20 20 20 cd 0d 10 72 09 |%..h. ...r.|
00002c90 20 20 20 20 ed 0d 10 7c 07 20 20 cd 0d 10 86 24 | ...|. ....$|
00002ca0 20 20 e7 20 68 65 72 65 25 20 84 20 6f 62 6a 6c | . here% . objl|
00002cb0 6f 63 25 28 70 6f 6e 25 29 3d 70 6f 72 25 20 8c |oc%(pon%)=por% .|
00002cc0 0d 10 90 0e 20 20 20 20 6f 6b 25 3d 2d 31 0d 10 |.... ok%=-1..|
00002cd0 9a 07 20 20 cd 0d 10 a4 05 cd 0d 10 ae 08 3d 6f |.. ..........=o|
00002ce0 6b 25 0d 10 b8 05 3a 0d 10 c2 1e dd f2 6d 61 6e |k%....:......man|
00002cf0 69 70 6f 62 6a 28 70 6f 6e 25 2c 70 6f 61 25 2c |ipobj(pon%,poa%,|
00002d00 70 6f 64 25 29 0d 10 cc 22 e7 20 70 6f 61 25 3d |pod%)...". poa%=|
00002d10 33 20 8c 20 70 6f 61 25 3d 31 3a 70 6f 64 25 3d |3 . poa%=1:pod%=|
00002d20 63 75 72 6c 6f 63 25 0d 10 d6 22 e7 20 70 6f 61 |curloc%...". poa|
00002d30 25 3d 32 20 8c 20 6f 62 6a 73 74 61 74 25 28 70 |%=2 . objstat%(p|
00002d40 6f 6e 25 29 3d 70 6f 64 25 0d 10 e0 0e e7 20 70 |on%)=pod%..... p|
00002d50 6f 61 25 3d 31 20 8c 0d 10 ea 14 20 20 e7 20 63 |oa%=1 ..... . c|
00002d60 61 72 72 69 65 64 25 3e 30 20 8c 0d 10 f4 0e 20 |arried%>0 ..... |
00002d70 20 20 20 6f 62 6a 25 3d 30 0d 10 fe 19 20 20 20 | obj%=0.... |
00002d80 20 e3 20 49 25 3d 31 20 b8 20 63 61 72 72 69 65 | . I%=1 . carrie|
00002d90 64 25 0d 11 08 1e 20 20 20 20 20 20 e7 20 6f 62 |d%.... . ob|
00002da0 6a 63 61 72 25 28 49 25 29 3d 70 6f 6e 25 20 8c |jcar%(I%)=pon% .|
00002db0 0d 11 12 1f 20 20 20 20 20 20 20 20 6f 62 6a 25 |.... obj%|
00002dc0 3d 49 25 3a 49 25 3d 63 61 72 72 69 65 64 25 0d |=I%:I%=carried%.|
00002dd0 11 1c 0b 20 20 20 20 20 20 cd 0d 11 26 09 20 20 |... ...&. |
00002de0 20 20 ed 0d 11 30 12 20 20 20 20 e7 20 6f 62 6a | ...0. . obj|
00002df0 25 3e 30 20 8c 0d 11 3a 28 20 20 20 20 20 20 6f |%>0 ...:( o|
00002e00 62 6a 6c 6f 63 25 28 70 6f 6e 25 29 3d 70 6f 64 |bjloc%(pon%)=pod|
00002e10 25 3a 63 61 72 72 69 65 64 25 2d 3d 31 0d 11 44 |%:carried%-=1..D|
00002e20 1f 20 20 20 20 20 20 e7 20 6f 62 6a 25 3c 3e 63 |. . obj%<>c|
00002e30 61 72 72 79 6c 69 6d 69 74 25 20 8c 0d 11 4e 20 |arrylimit% ...N |
00002e40 20 20 20 20 20 20 20 20 e3 20 49 25 3d 6f 62 6a | . I%=obj|
00002e50 25 20 b8 20 63 61 72 72 69 65 64 25 0d 11 58 27 |% . carried%..X'|
00002e60 20 20 20 20 20 20 20 20 20 20 6f 62 6a 63 61 72 | objcar|
00002e70 25 28 49 25 29 3d 6f 62 6a 63 61 72 25 28 49 25 |%(I%)=objcar%(I%|
00002e80 2b 31 29 0d 11 62 29 20 20 20 20 20 20 20 20 20 |+1)..b) |
00002e90 20 63 61 72 73 74 61 74 25 28 49 25 29 3d 63 61 | carstat%(I%)=ca|
00002ea0 72 73 74 61 74 25 28 49 25 2b 31 29 0d 11 6c 0d |rstat%(I%+1)..l.|
00002eb0 20 20 20 20 20 20 20 20 ed 0d 11 76 0b 20 20 20 | ...v. |
00002ec0 20 20 20 cd 0d 11 80 09 20 20 20 20 cc 0d 11 8a | ..... ....|
00002ed0 1c 20 20 20 20 20 20 6f 62 6a 6c 6f 63 25 28 70 |. objloc%(p|
00002ee0 6f 6e 25 29 3d 70 6f 64 25 0d 11 94 09 20 20 20 |on%)=pod%.... |
00002ef0 20 cd 0d 11 9e 07 20 20 cc 0d 11 a8 1a 20 20 20 | ..... ..... |
00002f00 20 6f 62 6a 6c 6f 63 25 28 70 6f 6e 25 29 3d 70 | objloc%(pon%)=p|
00002f10 6f 64 25 0d 11 b2 07 20 20 cd 0d 11 bc 05 cd 0d |od%.... .......|
00002f20 11 c6 05 e1 0d 11 d0 05 3a 0d 11 da 0a dd f2 71 |........:......q|
00002f30 75 69 74 0d 11 e4 28 fb 20 36 3a f1 27 22 44 6f |uit...(. 6:.'"Do|
00002f40 20 79 6f 75 20 72 65 61 6c 6c 79 20 77 61 6e 74 | you really want|
00002f50 20 74 6f 20 71 75 69 74 3f 22 3b 0d 11 ee 05 f5 | to quit?";.....|
00002f60 0d 11 f8 0a 20 20 41 24 3d be 0d 12 02 27 fd 20 |.... A$=....'. |
00002f70 41 24 3d 22 59 22 20 84 20 41 24 3d 22 79 22 20 |A$="Y" . A$="y" |
00002f80 84 20 41 24 3d 22 4e 22 20 84 20 41 24 3d 22 6e |. A$="N" . A$="n|
00002f90 22 0d 12 0c 08 f1 20 41 24 0d 12 16 17 e7 20 41 |"..... A$..... A|
00002fa0 24 3d 22 59 22 20 84 20 41 24 3d 22 79 22 20 8c |$="Y" . A$="y" .|
00002fb0 0d 12 20 1c 20 20 f2 77 72 61 70 5f 70 72 69 6e |.. . .wrap_prin|
00002fc0 74 28 22 4f 6b 2e 22 2c 32 2c 31 29 0d 12 2a 1f |t("Ok.",2,1)..*.|
00002fd0 20 20 66 69 6e 69 73 68 65 64 5f 70 6c 61 79 69 | finished_playi|
00002fe0 6e 67 3d b9 3a 77 69 6e 25 3d 31 0d 12 34 05 cc |ng=.:win%=1..4..|
00002ff0 0d 12 3e 38 20 20 f2 77 72 61 70 5f 70 72 69 6e |..>8 .wrap_prin|
00003000 74 28 22 57 65 6c 6c 20 67 65 74 20 6f 6e 20 77 |t("Well get on w|
00003010 69 74 68 20 74 68 65 20 67 61 6d 65 20 74 68 65 |ith the game the|
00003020 6e 2e 22 2c 32 2c 31 29 0d 12 48 05 cd 0d 12 52 |n.",2,1)..H....R|
00003030 05 e1 0d 12 5c 05 3a 0d 12 66 0b dd f2 73 63 6f |....\.:..f...sco|
00003040 72 65 0d 12 70 3e fb 20 36 3a f2 77 72 61 70 5f |re..p>. 6:.wrap_|
00003050 70 72 69 6e 74 28 22 59 6f 75 20 68 61 76 65 20 |print("You have |
00003060 73 63 6f 72 65 64 20 22 2b c3 73 63 6f 72 65 25 |scored "+.score%|
00003070 2b 22 20 70 6f 69 6e 74 73 2e 22 2c 32 2c 31 29 |+" points.",2,1)|
00003080 0d 12 7a 05 e1 0d 12 84 05 3a 0d 12 8e 0b dd f2 |..z......:......|
00003090 63 68 6b 73 63 0d 12 98 17 e3 20 66 6c 67 63 68 |chksc..... flgch|
000030a0 6b 25 3d 31 20 b8 20 73 66 6c 67 25 0d 12 a2 20 |k%=1 . sflg%... |
000030b0 20 20 e7 20 66 6c 61 67 25 3f 73 66 6c 67 25 28 | . flag%?sflg%(|
000030c0 66 6c 67 63 68 6b 25 29 3d 31 20 8c 0d 12 ac 31 |flgchk%)=1 ....1|
000030d0 20 20 20 20 73 63 6f 72 65 25 2b 3d 73 66 6c 67 | score%+=sflg|
000030e0 73 63 25 28 66 6c 67 63 68 6b 25 29 3a 73 66 6c |sc%(flgchk%):sfl|
000030f0 67 25 28 66 6c 67 63 68 6b 25 29 3d 30 0d 12 b6 |g%(flgchk%)=0...|
00003100 07 20 20 cd 0d 12 c0 05 ed 0d 12 ca 12 e7 20 63 |. ........... c|
00003110 61 72 72 69 65 64 25 3e 30 20 8c 0d 12 d4 19 20 |arried%>0 ..... |
00003120 20 e3 20 6f 62 6a 63 68 6b 25 3d 31 20 b8 20 73 | . objchk%=1 . s|
00003130 6f 62 6a 25 0d 12 de 0e 20 20 20 20 63 61 72 25 |obj%.... car%|
00003140 3d 30 0d 12 e8 1f 20 20 20 20 e3 20 63 61 72 6c |=0.... . carl|
00003150 6f 6f 70 25 3d 31 20 b8 20 63 61 72 72 69 65 64 |oop%=1 . carried|
00003160 25 0d 12 f2 2e 20 20 20 20 20 20 e7 20 6f 62 6a |%.... . obj|
00003170 63 61 72 25 28 63 61 72 6c 6f 6f 70 25 29 3d 73 |car%(carloop%)=s|
00003180 6f 62 6a 25 28 6f 62 6a 63 68 6b 25 29 20 8c 0d |obj%(objchk%) ..|
00003190 12 fc 25 20 20 20 20 20 20 20 20 63 61 72 25 3d |..% car%=|
000031a0 2d 31 3a 63 61 72 6c 6f 6f 70 25 3d 63 61 72 72 |-1:carloop%=carr|
000031b0 69 65 64 25 0d 13 06 0b 20 20 20 20 20 20 cd 0d |ied%.... ..|
000031c0 13 10 12 20 20 20 20 ed 20 63 61 72 6c 6f 6f 70 |... . carloop|
000031d0 25 0d 13 1a 3a 20 20 20 20 e7 20 63 61 72 25 20 |%...: . car% |
000031e0 8c 20 73 63 6f 72 65 25 2b 3d 73 6f 62 6a 73 63 |. score%+=sobjsc|
000031f0 25 28 6f 62 6a 63 68 6b 25 29 3a 73 6f 62 6a 25 |%(objchk%):sobj%|
00003200 28 6f 62 6a 63 68 6b 25 29 3d 30 0d 13 24 0f 20 |(objchk%)=0..$. |
00003210 20 ed 20 6f 62 6a 63 68 6b 25 0d 13 2e 05 cd 0d | . objchk%......|
00003220 13 38 05 e1 0d 13 42 05 3a 0d 13 4c 0a dd f2 73 |.8....B.:..L...s|
00003230 61 76 65 0d 13 56 3b ee 20 85 20 ea 20 fb 36 3a |ave..V;. . . .6:|
00003240 f2 77 72 61 70 5f 70 72 69 6e 74 28 22 49 6e 76 |.wrap_print("Inv|
00003250 61 6c 69 64 20 66 69 6c 65 6e 61 6d 65 20 65 6e |alid filename en|
00003260 74 65 72 65 64 2e 22 2c 32 2c 31 29 3a e1 0d 13 |tered.",2,1):...|
00003270 60 46 fb 20 36 3a f2 77 72 61 70 5f 70 72 69 6e |`F. 6:.wrap_prin|
00003280 74 28 22 44 6f 20 79 6f 75 20 72 65 61 6c 6c 79 |t("Do you really|
00003290 20 77 61 6e 74 20 74 6f 20 73 61 76 65 20 74 68 | want to save th|
000032a0 65 20 67 61 6d 65 3f 20 28 79 2f 6e 29 20 22 2c |e game? (y/n) ",|
000032b0 30 2c 31 29 0d 13 6a 05 f5 0d 13 74 0a 20 20 41 |0,1)..j....t. A|
000032c0 24 3d be 0d 13 7e 27 fd 20 41 24 3d 22 59 22 20 |$=...~'. A$="Y" |
000032d0 84 20 41 24 3d 22 79 22 20 84 20 41 24 3d 22 4e |. A$="y" . A$="N|
000032e0 22 20 84 20 41 24 3d 22 6e 22 0d 13 88 08 f1 20 |" . A$="n"..... |
000032f0 41 24 0d 13 92 17 e7 20 41 24 3d 22 59 22 20 84 |A$..... A$="Y" .|
00003300 20 41 24 3d 22 79 22 20 8c 0d 13 9c 07 20 20 f5 | A$="y" ..... .|
00003310 0d 13 a6 4d 20 20 20 20 fb 20 36 3a f2 77 72 61 |...M . 6:.wra|
00003320 70 5f 70 72 69 6e 74 28 22 50 6c 65 61 73 65 20 |p_print("Please |
00003330 65 6e 74 65 72 20 61 20 66 69 6c 65 6e 61 6d 65 |enter a filename|
00003340 20 28 6d 61 78 2e 20 31 30 20 63 68 61 72 61 63 | (max. 10 charac|
00003350 74 65 72 73 29 3a 20 22 2c 30 2c 31 29 0d 13 b0 |ters): ",0,1)...|
00003360 15 20 20 20 20 fb 20 33 3a e8 22 22 66 6e 61 6d |. . 3:.""fnam|
00003370 65 24 0d 13 ba 14 20 20 fd 20 a9 28 66 6e 61 6d |e$.... . .(fnam|
00003380 65 24 29 3c 31 30 0d 13 c4 14 20 20 e7 20 66 6e |e$)<10.... . fn|
00003390 61 6d 65 24 3c 3e 22 22 20 8c 0d 13 ce 15 20 20 |ame$<>"" ..... |
000033a0 20 20 73 76 25 3d ae 28 66 6e 61 6d 65 24 29 0d | sv%=.(fname$).|
000033b0 13 d8 12 20 20 20 20 e7 20 73 76 25 3c 3e 30 20 |... . sv%<>0 |
000033c0 8c 0d 13 e2 27 20 20 20 20 20 20 f1 23 73 76 25 |....' .#sv%|
000033d0 2c 63 75 72 6c 6f 63 25 2c 63 61 72 72 69 65 64 |,curloc%,carried|
000033e0 25 2c 73 63 6f 72 65 25 0d 13 ec 16 20 20 20 20 |%,score%.... |
000033f0 20 20 e3 20 49 25 3d 31 20 b8 20 32 35 33 0d 13 | . I%=1 . 253..|
00003400 f6 1a 20 20 20 20 20 20 20 20 d5 23 73 76 25 2c |.. .#sv%,|
00003410 66 6c 61 67 25 3f 49 25 0d 14 00 0b 20 20 20 20 |flag%?I%.... |
00003420 20 20 ed 0d 14 0a 1b 20 20 20 20 20 20 e3 20 49 | ..... . I|
00003430 25 3d 31 20 b8 20 72 6f 6f 6d 6e 75 6d 25 0d 14 |%=1 . roomnum%..|
00003440 14 16 20 20 20 20 20 20 20 20 e3 20 4a 25 3d 31 |.. . J%=1|
00003450 20 b8 20 36 0d 14 1e 20 20 20 20 20 20 20 20 20 | . 6... |
00003460 20 20 f1 23 73 76 25 2c 72 6f 6f 6d 25 28 49 25 | .#sv%,room%(I%|
00003470 2c 4a 25 29 0d 14 28 0d 20 20 20 20 20 20 20 20 |,J%)..(. |
00003480 ed 0d 14 32 0b 20 20 20 20 20 20 ed 0d 14 3c 1a |...2. ...<.|
00003490 20 20 20 20 20 20 e3 20 49 25 3d 31 20 b8 20 6f | . I%=1 . o|
000034a0 62 6a 6e 75 6d 25 0d 14 46 2a 20 20 20 20 20 20 |bjnum%..F* |
000034b0 20 20 f1 23 73 76 25 2c 6f 62 6a 6c 6f 63 25 28 | .#sv%,objloc%(|
000034c0 49 25 29 2c 6f 62 6a 73 74 61 74 25 28 49 25 29 |I%),objstat%(I%)|
000034d0 0d 14 50 0b 20 20 20 20 20 20 ed 0d 14 5a 1b 20 |..P. ...Z. |
000034e0 20 20 20 20 20 e3 20 49 25 3d 31 20 b8 20 63 61 | . I%=1 . ca|
000034f0 72 72 69 65 64 25 0d 14 64 2a 20 20 20 20 20 20 |rried%..d* |
00003500 20 20 f1 23 73 76 25 2c 6f 62 6a 63 61 72 25 28 | .#sv%,objcar%(|
00003510 49 25 29 2c 63 61 72 73 74 61 74 25 28 49 25 29 |I%),carstat%(I%)|
00003520 0d 14 6e 0b 20 20 20 20 20 20 ed 0d 14 78 18 20 |..n. ...x. |
00003530 20 20 20 20 20 e3 20 49 25 3d 31 20 b8 20 73 6f | . I%=1 . so|
00003540 62 6a 25 0d 14 82 27 20 20 20 20 20 20 20 20 f1 |bj%...' .|
00003550 23 73 76 25 2c 73 6f 62 6a 25 28 49 25 29 2c 73 |#sv%,sobj%(I%),s|
00003560 6f 62 6a 73 63 25 28 49 25 29 0d 14 8c 0b 20 20 |objsc%(I%).... |
00003570 20 20 20 20 ed 0d 14 96 18 20 20 20 20 20 20 e3 | ..... .|
00003580 20 49 25 3d 31 20 b8 20 73 66 6c 67 25 0d 14 a0 | I%=1 . sflg%...|
00003590 27 20 20 20 20 20 20 20 20 f1 23 73 76 25 2c 73 |' .#sv%,s|
000035a0 66 6c 67 25 28 49 25 29 2c 73 66 6c 67 73 63 25 |flg%(I%),sflgsc%|
000035b0 28 49 25 29 0d 14 aa 0b 20 20 20 20 20 20 ed 0d |(I%).... ..|
000035c0 14 b4 0f 20 20 20 20 20 20 d9 23 73 76 25 0d 14 |... .#sv%..|
000035d0 be 23 20 20 20 20 20 20 ff 22 53 45 54 54 59 50 |.# ."SETTYP|
000035e0 45 20 22 2b 66 6e 61 6d 65 24 2b 22 20 37 46 44 |E "+fname$+" 7FD|
000035f0 22 0d 14 c8 2e 20 20 20 20 20 20 fb 36 3a f2 77 |".... .6:.w|
00003600 72 61 70 5f 70 72 69 6e 74 28 22 47 61 6d 65 20 |rap_print("Game |
00003610 73 61 76 65 64 20 4f 6b 2e 22 2c 32 2c 31 29 0d |saved Ok.",2,1).|
00003620 14 d2 09 20 20 20 20 cc 0d 14 dc 4b 20 20 20 20 |... ....K |
00003630 20 20 fb 36 3a f2 77 72 61 70 5f 70 72 69 6e 74 | .6:.wrap_print|
00003640 28 22 55 6e 61 62 6c 65 20 74 6f 20 73 61 76 65 |("Unable to save|
00003650 20 74 68 65 20 67 61 6d 65 20 77 69 74 68 20 74 | the game with t|
00003660 68 61 74 20 66 69 6c 65 6e 61 6d 65 2e 22 2c 32 |hat filename.",2|
00003670 2c 31 29 0d 14 e6 09 20 20 20 20 cd 0d 14 f0 07 |,1).... .....|
00003680 20 20 cc 0d 14 fa 3a 20 20 20 20 fb 36 3a f2 77 | ....: .6:.w|
00003690 72 61 70 5f 70 72 69 6e 74 28 22 54 68 65 20 67 |rap_print("The g|
000036a0 61 6d 65 20 68 61 73 20 6e 6f 74 20 62 65 65 6e |ame has not been|
000036b0 20 73 61 76 65 64 2e 22 2c 32 2c 31 29 0d 15 04 | saved.",2,1)...|
000036c0 07 20 20 cd 0d 15 0e 05 cc 0d 15 18 3d 20 20 fb |. .........= .|
000036d0 20 36 3a f2 77 72 61 70 5f 70 72 69 6e 74 28 22 | 6:.wrap_print("|
000036e0 57 65 6c 6c 2c 20 67 65 74 20 6f 6e 20 77 69 74 |Well, get on wit|
000036f0 68 20 74 68 65 20 67 61 6d 65 20 74 68 65 6e 21 |h the game then!|
00003700 22 2c 32 2c 31 29 0d 15 22 05 cd 0d 15 2c 05 e1 |",2,1).."....,..|
00003710 0d 15 36 05 3a 0d 15 40 0d dd f2 72 65 73 74 6f |..6.:..@...resto|
00003720 72 65 0d 15 4a 3d ee 20 85 20 ea 20 fb 36 3a f2 |re..J=. . . .6:.|
00003730 77 72 61 70 5f 70 72 69 6e 74 28 22 49 6e 76 61 |wrap_print("Inva|
00003740 6c 69 64 20 66 69 6c 65 6e 61 6d 65 20 73 70 65 |lid filename spe|
00003750 63 69 66 69 65 64 2e 22 2c 32 2c 31 29 3a e1 0d |cified.",2,1):..|
00003760 15 54 4d fb 20 36 3a f2 77 72 61 70 5f 70 72 69 |.TM. 6:.wrap_pri|
00003770 6e 74 28 22 44 6f 20 79 6f 75 20 72 65 61 6c 6c |nt("Do you reall|
00003780 79 20 77 61 6e 74 20 74 6f 20 72 65 73 74 6f 72 |y want to restor|
00003790 65 20 61 20 73 61 76 65 64 20 67 61 6d 65 3f 20 |e a saved game? |
000037a0 28 79 2f 6e 29 20 22 2c 30 2c 31 29 0d 15 5e 05 |(y/n) ",0,1)..^.|
000037b0 f5 0d 15 68 0a 20 20 41 24 3d be 0d 15 72 27 fd |...h. A$=...r'.|
000037c0 20 41 24 3d 22 59 22 20 84 20 41 24 3d 22 79 22 | A$="Y" . A$="y"|
000037d0 20 84 20 41 24 3d 22 4e 22 20 84 20 41 24 3d 22 | . A$="N" . A$="|
000037e0 6e 22 0d 15 7c 08 f1 20 41 24 0d 15 86 17 e7 20 |n"..|.. A$..... |
000037f0 41 24 3d 22 59 22 20 84 20 41 24 3d 22 79 22 20 |A$="Y" . A$="y" |
00003800 8c 0d 15 90 07 20 20 f5 0d 15 9a 4d 20 20 20 20 |..... ....M |
00003810 fb 20 36 3a f2 77 72 61 70 5f 70 72 69 6e 74 28 |. 6:.wrap_print(|
00003820 22 50 6c 65 61 73 65 20 65 6e 74 65 72 20 61 20 |"Please enter a |
00003830 66 69 6c 65 6e 61 6d 65 20 28 6d 61 78 2e 20 31 |filename (max. 1|
00003840 30 20 63 68 61 72 61 63 74 65 72 73 29 3a 20 22 |0 characters): "|
00003850 2c 30 2c 31 29 0d 15 a4 15 20 20 20 20 fb 20 33 |,0,1).... . 3|
00003860 3a e8 22 22 66 6e 61 6d 65 24 0d 15 ae 14 20 20 |:.""fname$.... |
00003870 fd 20 a9 28 66 6e 61 6d 65 24 29 3c 31 30 0d 15 |. .(fname$)<10..|
00003880 b8 14 20 20 e7 20 66 6e 61 6d 65 24 3c 3e 22 22 |.. . fname$<>""|
00003890 20 8c 0d 15 c2 15 20 20 20 20 73 76 25 3d 8e 28 | ..... sv%=.(|
000038a0 66 6e 61 6d 65 24 29 0d 15 cc 12 20 20 20 20 e7 |fname$).... .|
000038b0 20 73 76 25 3c 3e 30 20 8c 0d 15 d6 27 20 20 20 | sv%<>0 ....' |
000038c0 20 20 20 e8 23 73 76 25 2c 63 75 72 6c 6f 63 25 | .#sv%,curloc%|
000038d0 2c 63 61 72 72 69 65 64 25 2c 73 63 6f 72 65 25 |,carried%,score%|
000038e0 0d 15 e0 16 20 20 20 20 20 20 e3 20 49 25 3d 31 |.... . I%=1|
000038f0 20 b8 20 32 35 33 0d 15 ea 1a 20 20 20 20 20 20 | . 253.... |
00003900 20 20 66 6c 61 67 25 3f 49 25 3d 9a 23 73 76 25 | flag%?I%=.#sv%|
00003910 0d 15 f4 0b 20 20 20 20 20 20 ed 0d 15 fe 1b 20 |.... ..... |
00003920 20 20 20 20 20 e3 20 49 25 3d 31 20 b8 20 72 6f | . I%=1 . ro|
00003930 6f 6d 6e 75 6d 25 0d 16 08 16 20 20 20 20 20 20 |omnum%.... |
00003940 20 20 e3 20 4a 25 3d 31 20 b8 20 36 0d 16 12 20 | . J%=1 . 6... |
00003950 20 20 20 20 20 20 20 20 20 20 e8 23 73 76 25 2c | .#sv%,|
00003960 72 6f 6f 6d 25 28 49 25 2c 4a 25 29 0d 16 1c 0d |room%(I%,J%)....|
00003970 20 20 20 20 20 20 20 20 ed 0d 16 26 0b 20 20 20 | ...&. |
00003980 20 20 20 ed 0d 16 30 1a 20 20 20 20 20 20 e3 20 | ...0. . |
00003990 49 25 3d 31 20 b8 20 6f 62 6a 6e 75 6d 25 0d 16 |I%=1 . objnum%..|
000039a0 3a 2a 20 20 20 20 20 20 20 20 e8 23 73 76 25 2c |:* .#sv%,|
000039b0 6f 62 6a 6c 6f 63 25 28 49 25 29 2c 6f 62 6a 73 |objloc%(I%),objs|
000039c0 74 61 74 25 28 49 25 29 0d 16 44 0b 20 20 20 20 |tat%(I%)..D. |
000039d0 20 20 ed 0d 16 4e 1b 20 20 20 20 20 20 e3 20 49 | ...N. . I|
000039e0 25 3d 31 20 b8 20 63 61 72 72 69 65 64 25 0d 16 |%=1 . carried%..|
000039f0 58 2a 20 20 20 20 20 20 20 20 e8 23 73 76 25 2c |X* .#sv%,|
00003a00 6f 62 6a 63 61 72 25 28 49 25 29 2c 63 61 72 73 |objcar%(I%),cars|
00003a10 74 61 74 25 28 49 25 29 0d 16 62 0b 20 20 20 20 |tat%(I%)..b. |
00003a20 20 20 ed 0d 16 6c 18 20 20 20 20 20 20 e3 20 49 | ...l. . I|
00003a30 25 3d 31 20 b8 20 73 6f 62 6a 25 0d 16 76 27 20 |%=1 . sobj%..v' |
00003a40 20 20 20 20 20 20 20 e8 23 73 76 25 2c 73 6f 62 | .#sv%,sob|
00003a50 6a 25 28 49 25 29 2c 73 6f 62 6a 73 63 25 28 49 |j%(I%),sobjsc%(I|
00003a60 25 29 0d 16 80 0b 20 20 20 20 20 20 ed 0d 16 8a |%).... ....|
00003a70 18 20 20 20 20 20 20 e3 20 49 25 3d 31 20 b8 20 |. . I%=1 . |
00003a80 73 66 6c 67 25 0d 16 94 27 20 20 20 20 20 20 20 |sflg%...' |
00003a90 20 e8 23 73 76 25 2c 73 66 6c 67 25 28 49 25 29 | .#sv%,sflg%(I%)|
00003aa0 2c 73 66 6c 67 73 63 25 28 49 25 29 0d 16 9e 0b |,sflgsc%(I%)....|
00003ab0 20 20 20 20 20 20 ed 0d 16 a8 0f 20 20 20 20 20 | ..... |
00003ac0 20 d9 23 73 76 25 0d 16 b2 13 20 20 20 20 20 20 | .#sv%.... |
00003ad0 f2 64 65 73 63 72 69 62 65 0d 16 bc 09 20 20 20 |.describe.... |
00003ae0 20 cc 0d 16 c6 4b 20 20 20 20 20 20 fb 36 3a f2 | ....K .6:.|
00003af0 77 72 61 70 5f 70 72 69 6e 74 28 22 55 6e 61 62 |wrap_print("Unab|
00003b00 6c 65 20 74 6f 20 6c 6f 61 64 20 61 20 70 6f 73 |le to load a pos|
00003b10 69 74 69 6f 6e 20 6f 66 20 74 68 61 74 20 66 69 |ition of that fi|
00003b20 6c 65 6e 61 6d 65 2e 22 2c 32 2c 31 29 0d 16 d0 |lename.",2,1)...|
00003b30 09 20 20 20 20 cd 0d 16 da 07 20 20 cd 0d 16 e4 |. ..... ....|
00003b40 05 cc 0d 16 ee 3d 20 20 fb 20 36 3a f2 77 72 61 |.....= . 6:.wra|
00003b50 70 5f 70 72 69 6e 74 28 22 57 65 6c 6c 2c 20 67 |p_print("Well, g|
00003b60 65 74 20 6f 6e 20 77 69 74 68 20 74 68 65 20 67 |et on with the g|
00003b70 61 6d 65 20 74 68 65 6e 21 22 2c 32 2c 31 29 0d |ame then!",2,1).|
00003b80 16 f8 05 cd 0d 17 02 05 e1 0d 17 0c 05 3a 0d 17 |.............:..|
00003b90 16 1a dd f2 77 72 61 70 5f 70 72 69 6e 74 28 72 |....wrap_print(r|
00003ba0 24 2c 6c 25 2c 6e 25 29 0d 17 20 0e e7 20 6e 25 |$,l%,n%).. .. n%|
00003bb0 3d 31 20 8c 20 f1 0d 17 2a 08 70 25 3d b1 0d 17 |=1 . ...*.p%=...|
00003bc0 34 05 f5 0d 17 3e 12 20 20 73 70 25 3d a7 72 24 |4....>. sp%=.r$|
00003bd0 2c 22 20 22 29 0d 17 48 25 20 20 e7 20 73 70 25 |," ")..H% . sp%|
00003be0 3d 30 20 8c 20 77 24 3d 72 24 20 8b 20 77 24 3d |=0 . w$=r$ . w$=|
00003bf0 c0 72 24 2c 73 70 25 2d 31 29 0d 17 52 13 20 20 |.r$,sp%-1)..R. |
00003c00 e7 20 70 25 2b a9 77 24 3c 38 30 20 8c 0d 17 5c |. p%+.w$<80 ...\|
00003c10 1b 20 20 20 20 f1 20 77 24 3b 22 20 22 3b 3a 70 |. . w$;" ";:p|
00003c20 25 2b 3d 31 2b a9 77 24 0d 17 66 07 20 20 cc 0d |%+=1+.w$..f. ..|
00003c30 17 70 1a 20 20 20 20 f1 27 77 24 3b 22 20 22 3b |.p. .'w$;" ";|
00003c40 3a 70 25 3d 31 2b a9 77 24 0d 17 7a 07 20 20 cd |:p%=1+.w$..z. .|
00003c50 0d 17 84 27 20 20 e7 20 73 70 25 3d 30 20 8c 20 |...' . sp%=0 . |
00003c60 72 24 3d 22 22 20 8b 20 72 24 3d c2 72 24 2c a9 |r$="" . r$=.r$,.|
00003c70 72 24 2d 73 70 25 29 0d 17 8e 0b fd 20 72 24 3d |r$-sp%)..... r$=|
00003c80 22 22 0d 17 98 0c e7 20 6c 25 3e 30 20 8c 0d 17 |""..... l%>0 ...|
00003c90 a2 11 20 20 e3 20 49 25 3d 31 20 b8 20 6c 25 0d |.. . I%=1 . l%.|
00003ca0 17 ac 09 20 20 20 20 f1 0d 17 b6 07 20 20 ed 0d |... ..... ..|
00003cb0 17 c0 05 cd 0d 17 ca 05 e1 0d 17 d4 05 3a 0d 17 |.............:..|
00003cc0 de 0b dd a4 69 6e 70 75 74 0d 17 e8 07 fb 20 37 |....input..... 7|
00003cd0 0d 17 f2 1b 69 6e 70 24 3d 22 22 3a 6c 6e 67 74 |....inp$="":lngt|
00003ce0 68 25 3d 30 3a 66 69 6e 25 3d 30 0d 17 fc 11 f1 |h%=0:fin%=0.....|
00003cf0 8a 30 2c bc 29 3b 22 3d 3d 3e 22 3b 0d 18 06 05 |.0,.);"==>";....|
00003d00 f5 0d 18 10 07 20 20 f5 0d 18 1a 0c 20 20 20 20 |..... ..... |
00003d10 61 24 3d be 0d 18 24 19 20 20 20 20 e7 20 61 24 |a$=...$. . a$|
00003d20 3d bd 38 20 8c 20 61 24 3d bd 31 32 37 0d 18 2e |=.8 . a$=.127...|
00003d30 6c 20 20 fd 20 28 61 24 3e 3d 22 41 22 20 80 20 |l . (a$>="A" . |
00003d40 61 24 3c 3d 22 5a 22 29 20 84 20 28 61 24 3e 3d |a$<="Z") . (a$>=|
00003d50 22 61 22 20 80 20 61 24 3c 3d 22 7a 22 29 20 84 |"a" . a$<="z") .|
00003d60 20 28 61 24 3e 3d 22 30 22 20 80 20 61 24 3c 3d | (a$>="0" . a$<=|
00003d70 22 39 22 29 20 84 20 61 24 3d 22 20 22 20 84 20 |"9") . a$=" " . |
00003d80 61 24 3d bd 31 33 20 84 20 61 24 3d bd 31 32 37 |a$=.13 . a$=.127|
00003d90 20 84 20 61 24 3d 22 2c 22 0d 18 38 12 20 20 e7 | . a$=","..8. .|
00003da0 20 6c 6e 67 74 68 25 3d 30 20 8c 0d 18 42 1e 20 | lngth%=0 ...B. |
00003db0 20 20 20 e7 20 61 24 3c 3e bd 31 33 20 80 20 61 | . a$<>.13 . a|
00003dc0 24 3c 3e bd 31 32 37 20 8c 0d 18 4c 12 20 20 20 |$<>.127 ...L. |
00003dd0 20 20 20 69 6e 70 24 2b 3d 61 24 0d 18 56 13 20 | inp$+=a$..V. |
00003de0 20 20 20 20 20 6c 6e 67 74 68 25 2b 3d 31 0d 18 | lngth%+=1..|
00003df0 60 0f 20 20 20 20 20 20 f1 20 61 24 3b 0d 18 6a |`. . a$;..j|
00003e00 09 20 20 20 20 cd 0d 18 74 07 20 20 cc 0d 18 7e |. ...t. ...~|
00003e10 20 20 20 20 20 e7 20 6c 6e 67 74 68 25 3e 30 20 | . lngth%>0 |
00003e20 80 20 6c 6e 67 74 68 25 3c 37 35 20 8c 0d 18 88 |. lngth%<75 ....|
00003e30 14 20 20 20 20 20 20 e7 20 61 24 3d bd 31 33 20 |. . a$=.13 |
00003e40 8c 0d 18 92 13 20 20 20 20 20 20 20 20 66 69 6e |..... fin|
00003e50 25 3d 2d 31 0d 18 9c 0b 20 20 20 20 20 20 cc 0d |%=-1.... ..|
00003e60 18 a6 17 20 20 20 20 20 20 20 20 e7 20 61 24 3d |... . a$=|
00003e70 bd 31 32 37 20 8c 0d 18 b0 22 20 20 20 20 20 20 |.127 ...." |
00003e80 20 20 20 20 69 6e 70 24 3d c0 69 6e 70 24 2c 6c | inp$=.inp$,l|
00003e90 6e 67 74 68 25 2d 31 29 0d 18 ba 15 20 20 20 20 |ngth%-1).... |
00003ea0 20 20 20 20 6c 6e 67 74 68 25 2d 3d 31 0d 18 c4 | lngth%-=1...|
00003eb0 1c 20 20 20 20 20 20 20 20 20 20 f1 20 bd 28 38 |. . .(8|
00003ec0 29 3b 22 20 22 3b bd 38 3b 0d 18 ce 0d 20 20 20 |);" ";.8;.... |
00003ed0 20 20 20 20 20 cc 0d 18 d8 17 20 20 20 20 20 20 | ..... |
00003ee0 20 20 20 20 6c 6e 67 74 68 25 2b 3d 31 0d 18 e2 | lngth%+=1...|
00003ef0 16 20 20 20 20 20 20 20 20 20 20 69 6e 70 24 2b |. inp$+|
00003f00 3d 61 24 0d 18 ec 13 20 20 20 20 20 20 20 20 20 |=a$.... |
00003f10 20 f1 20 61 24 3b 0d 18 f6 0d 20 20 20 20 20 20 | . a$;.... |
00003f20 20 20 cd 0d 19 00 0b 20 20 20 20 20 20 cd 0d 19 | ..... ...|
00003f30 0a 09 20 20 20 20 cc 0d 19 14 14 20 20 20 20 20 |.. ..... |
00003f40 20 e7 20 61 24 3d bd 31 33 20 8c 0d 19 1e 13 20 | . a$=.13 ..... |
00003f50 20 20 20 20 20 20 20 66 69 6e 25 3d 2d 31 0d 19 | fin%=-1..|
00003f60 28 0b 20 20 20 20 20 20 cc 0d 19 32 17 20 20 20 |(. ...2. |
00003f70 20 20 20 20 20 e7 20 61 24 3d bd 31 32 37 20 8c | . a$=.127 .|
00003f80 0d 19 3c 17 20 20 20 20 20 20 20 20 20 20 6c 6e |..<. ln|
00003f90 67 74 68 25 2d 3d 31 0d 19 46 20 20 20 20 20 20 |gth%-=1..F |
00003fa0 20 20 20 20 20 69 6e 70 24 3d c0 69 6e 70 24 2c | inp$=.inp$,|
00003fb0 6c 6e 67 74 68 25 29 0d 19 50 1e 20 20 20 20 20 |lngth%)..P. |
00003fc0 20 20 20 20 20 f1 20 bd 28 38 29 3b 22 20 22 3b | . .(8);" ";|
00003fd0 bd 28 38 29 3b 0d 19 5a 0d 20 20 20 20 20 20 20 |.(8);..Z. |
00003fe0 20 cd 0d 19 64 0b 20 20 20 20 20 20 cd 0d 19 6e | ...d. ...n|
00003ff0 09 20 20 20 20 cd 0d 19 78 07 20 20 cd 0d 19 82 |. ...x. ....|
00004000 0a fd 20 66 69 6e 25 0d 19 8c 09 3d 69 6e 70 24 |.. fin%....=inp$|
00004010 0d 19 96 05 3a 0d 19 a0 11 dd a4 73 74 72 69 70 |....:......strip|
00004020 28 69 6e 70 24 29 0d 19 aa 14 6f 70 24 3d 22 22 |(inp$)....op$=""|
00004030 3a 6c 77 6f 72 64 24 3d 22 22 0d 19 b4 0f c8 94 |:lword$=""......|
00004040 20 6f 70 24 2c 69 6e 70 24 0d 19 be 11 e3 20 49 | op$,inp$..... I|
00004050 25 3d 31 20 b8 20 a9 6f 70 24 0d 19 c8 18 20 20 |%=1 . .op$.... |
00004060 e7 20 c1 6f 70 24 2c 49 25 2c 31 29 3d 22 2c 22 |. .op$,I%,1)=","|
00004070 20 8c 0d 19 d2 1d 20 20 20 20 e7 20 c1 6f 70 24 | ..... . .op$|
00004080 2c 49 25 2b 31 2c 31 29 3c 3e 22 20 22 20 8c 0d |,I%+1,1)<>" " ..|
00004090 19 dc 14 20 20 20 20 20 20 69 6e 70 24 2b 3d 22 |... inp$+="|
000040a0 2c 20 22 0d 19 e6 09 20 20 20 20 cc 0d 19 f0 13 |, ".... .....|
000040b0 20 20 20 20 20 20 69 6e 70 24 2b 3d 22 2c 22 0d | inp$+=",".|
000040c0 19 fa 09 20 20 20 20 cd 0d 1a 04 07 20 20 cc 0d |... ..... ..|
000040d0 1a 0e 18 20 20 20 20 69 6e 70 24 2b 3d c1 6f 70 |... inp$+=.op|
000040e0 24 2c 49 25 2c 31 29 0d 1a 18 07 20 20 cd 0d 1a |$,I%,1).... ...|
000040f0 22 05 ed 0d 1a 2c 0a 6f 70 24 3d 22 22 0d 1a 36 |"....,.op$=""..6|
00004100 05 f5 0d 1a 40 1f 20 20 77 6f 72 64 24 3d a4 75 |....@. word$=.u|
00004110 63 61 73 65 28 a4 77 6f 72 64 28 69 6e 70 24 29 |case(.word(inp$)|
00004120 29 0d 1a 4a 1c 20 20 e7 20 6c 61 73 74 77 6f 72 |)..J. . lastwor|
00004130 64 25 20 8c 20 fd 20 b9 3a 3d 6f 70 24 0d 1a 54 |d% . . .:=op$..T|
00004140 30 20 20 e7 20 77 6f 72 64 24 3d 22 41 4e 44 22 |0 . word$="AND"|
00004150 20 80 20 a7 6c 77 6f 72 64 24 2c 22 2c 22 29 3d | . .lword$,",")=|
00004160 30 20 8c 20 77 6f 72 64 24 3d 22 2c 22 0d 1a 5e |0 . word$=","..^|
00004170 1f 20 20 e7 20 77 6f 72 64 24 3d 22 41 4e 44 22 |. . word$="AND"|
00004180 20 8c 20 77 6f 72 64 24 3d 22 41 22 0d 1a 68 3d | . word$="A"..h=|
00004190 20 20 e7 20 77 6f 72 64 24 3d 22 54 48 45 4d 22 | . word$="THEM"|
000041a0 20 84 20 77 6f 72 64 24 3d 22 48 49 4d 22 20 84 | . word$="HIM" .|
000041b0 20 77 6f 72 64 24 3d 22 48 45 52 22 20 8c 20 77 | word$="HER" . w|
000041c0 6f 72 64 24 3d 22 49 54 22 0d 1a 72 4b 20 20 e7 |ord$="IT"..rK .|
000041d0 20 77 6f 72 64 24 3d 22 41 22 20 84 20 77 6f 72 | word$="A" . wor|
000041e0 64 24 3d 22 41 4e 22 20 84 20 77 6f 72 64 24 3d |d$="AN" . word$=|
000041f0 22 54 48 45 22 20 84 20 77 6f 72 64 24 3d 22 54 |"THE" . word$="T|
00004200 45 48 22 20 84 20 77 6f 72 64 24 3d 22 54 48 45 |EH" . word$="THE|
00004210 4e 22 20 8c 0d 1a 7c 07 20 20 cc 0d 1a 86 16 20 |N" ...|. ..... |
00004220 20 20 20 6f 70 24 2b 3d 77 6f 72 64 24 2b 22 20 | op$+=word$+" |
00004230 22 0d 1a 90 07 20 20 cd 0d 1a 9a 12 20 20 6c 77 |".... ..... lw|
00004240 6f 72 64 24 3d 77 6f 72 64 24 0d 1a a4 07 fd 20 |ord$=word$..... |
00004250 a3 0d 1a ae 05 3a 0d 1a b8 12 dd a4 75 63 61 73 |.....:......ucas|
00004260 65 28 77 6f 72 64 24 29 0d 1a c2 0d 75 77 6f 72 |e(word$)....uwor|
00004270 64 24 3d 22 22 0d 1a cc 15 e3 20 49 25 3d 31 20 |d$=""..... I%=1 |
00004280 b8 20 a9 28 77 6f 72 64 24 29 0d 1a d6 13 77 24 |. .(word$)....w$|
00004290 3d c1 77 6f 72 64 24 2c 49 25 2c 31 29 0d 1a e0 |=.word$,I%,1)...|
000042a0 28 e7 20 77 24 3e 3d 22 61 22 20 80 20 77 24 3c |(. w$>="a" . w$<|
000042b0 3d 22 7a 22 20 8c 20 77 24 3d bd 28 97 28 77 24 |="z" . w$=.(.(w$|
000042c0 29 2d 33 32 29 0d 1a ea 0e 75 77 6f 72 64 24 2b |)-32)....uword$+|
000042d0 3d 77 24 0d 1a f4 08 ed 20 49 25 0d 1a fe 0b 3d |=w$..... I%....=|
000042e0 75 77 6f 72 64 24 0d 1b 08 05 3a 0d 1b 12 12 dd |uword$....:.....|
000042f0 a4 77 6f 72 64 28 f8 20 69 6e 70 24 29 0d 1b 1c |.word(. inp$)...|
00004300 0f 6c 61 73 74 77 6f 72 64 25 3d 30 0d 1b 26 1e |.lastword%=0..&.|
00004310 e7 20 69 6e 70 24 3d 22 22 20 6c 61 73 74 77 6f |. inp$="" lastwo|
00004320 72 64 25 3d 2d 31 3a 3d 22 22 0d 1b 30 12 73 70 |rd%=-1:=""..0.sp|
00004330 25 3d a7 69 6e 70 24 2c 22 20 22 29 0d 1b 3a 0d |%=.inp$," ")..:.|
00004340 e7 20 73 70 25 3d 30 20 8c 0d 1b 44 10 20 20 77 |. sp%=0 ...D. w|
00004350 6f 72 64 24 3d 69 6e 70 24 0d 1b 4e 0d 20 20 69 |ord$=inp$..N. i|
00004360 6e 70 24 3d 22 22 0d 1b 58 05 cc 0d 1b 62 18 20 |np$=""..X....b. |
00004370 20 77 6f 72 64 24 3d c0 69 6e 70 24 2c 73 70 25 | word$=.inp$,sp%|
00004380 2d 31 29 0d 1b 6c 21 20 20 69 6e 70 24 3d c1 69 |-1)..l! inp$=.i|
00004390 6e 70 24 2c 73 70 25 2b 31 2c a9 69 6e 70 24 2d |np$,sp%+1,.inp$-|
000043a0 73 70 25 29 0d 1b 76 05 cd 0d 1b 80 0a 3d 77 6f |sp%)..v......=wo|
000043b0 72 64 24 0d 1b 8a 05 3a 0d 1b 94 14 dd a4 63 6c |rd$....:......cl|
000043c0 61 75 73 65 28 f8 20 69 6e 70 24 29 0d 1b 9e 0e |ause(. inp$)....|
000043d0 63 6c 61 75 73 65 24 3d 22 22 0d 1b a8 16 63 6c |clause$=""....cl|
000043e0 61 75 73 65 25 3d a7 69 6e 70 24 2c 22 2c 22 29 |ause%=.inp$,",")|
000043f0 0d 1b b2 38 e7 20 63 6c 61 75 73 65 25 3d 30 20 |...8. clause%=0 |
00004400 80 20 69 6e 70 24 3c 3e 22 22 20 63 6c 61 75 73 |. inp$<>"" claus|
00004410 65 24 3d 69 6e 70 24 3a 69 6e 70 24 3d 22 22 3a |e$=inp$:inp$="":|
00004420 3d 63 6c 61 75 73 65 24 0d 1b bc 1f e7 20 63 6c |=clause$..... cl|
00004430 61 75 73 65 25 3d 30 20 80 20 69 6e 70 24 3d 22 |ause%=0 . inp$="|
00004440 22 20 8c 20 3d 22 22 0d 1b c6 1c 63 6c 61 75 73 |" . =""....claus|
00004450 65 24 3d c0 69 6e 70 24 2c 63 6c 61 75 73 65 25 |e$=.inp$,clause%|
00004460 2d 31 29 0d 1b d0 1f 69 6e 70 24 3d c2 69 6e 70 |-1)....inp$=.inp|
00004470 24 2c a9 69 6e 70 24 2d 63 6c 61 75 73 65 25 2d |$,.inp$-clause%-|
00004480 31 29 0d 1b da 0c 3d 63 6c 61 75 73 65 24 0d 1b |1)....=clause$..|
00004490 e4 05 3a 0d 1b ee 1d dd f2 61 6e 61 6c 79 73 65 |..:......analyse|
000044a0 5f 63 6c 61 75 73 65 28 63 6c 61 75 73 65 24 29 |_clause(clause$)|
000044b0 0d 1b f8 11 69 74 6e 25 3d 30 3a 69 74 61 25 3d |....itn%=0:ita%=|
000044c0 30 0d 1c 02 12 e7 20 6e 25 3e 30 20 69 74 6e 25 |0..... n%>0 itn%|
000044d0 3d 6e 25 0d 1c 0c 12 e7 20 61 25 3e 30 20 69 74 |=n%..... a%>0 it|
000044e0 61 25 3d 61 25 0d 1c 16 2b 76 25 3d 30 3a 6c 25 |a%=a%...+v%=0:l%|
000044f0 3d 30 3a 61 25 3d 30 3a 6e 25 3d 30 3a 61 63 74 |=0:a%=0:n%=0:act|
00004500 69 6f 6e 24 3d 22 22 3a 6e 6f 75 6e 24 3d 22 22 |ion$="":noun$=""|
00004510 0d 1c 20 13 c8 94 20 69 6e 70 24 2c 63 6c 61 75 |.. ... inp$,clau|
00004520 73 65 24 0d 1c 2a 15 77 6f 72 64 24 3d a4 77 6f |se$..*.word$=.wo|
00004530 72 64 28 69 6e 70 24 29 0d 1c 34 19 76 25 3d a4 |rd(inp$)..4.v%=.|
00004540 63 68 65 63 6b 5f 76 65 72 62 28 77 6f 72 64 24 |check_verb(word$|
00004550 29 0d 1c 3e 1e e7 20 76 25 3d 30 20 8c 20 c8 94 |)..>.. v%=0 . ..|
00004560 20 69 6e 70 24 2c 63 6c 61 75 73 65 24 3a e1 0d | inp$,clause$:..|
00004570 1c 48 15 77 6f 72 64 24 3d a4 77 6f 72 64 28 69 |.H.word$=.word(i|
00004580 6e 70 24 29 0d 1c 52 10 c8 95 20 77 6f 72 64 24 |np$)..R... word$|
00004590 3c 3e 22 22 0d 1c 5c 1b 20 20 6e 25 3d a4 63 68 |<>""..\. n%=.ch|
000045a0 65 63 6b 5f 6e 6f 75 6e 28 77 6f 72 64 24 29 0d |eck_noun(word$).|
000045b0 1c 66 1d 20 20 61 25 3d a4 63 68 65 63 6b 5f 61 |.f. a%=.check_a|
000045c0 63 74 69 6f 6e 28 77 6f 72 64 24 29 0d 1c 70 1b |ction(word$)..p.|
000045d0 20 20 6c 25 3d a4 63 68 65 63 6b 5f 6c 69 6e 6b | l%=.check_link|
000045e0 28 77 6f 72 64 24 29 0d 1c 7a 1b 20 20 76 25 3d |(word$)..z. v%=|
000045f0 a4 63 68 65 63 6b 5f 76 65 72 62 28 77 6f 72 64 |.check_verb(word|
00004600 24 29 0d 1c 84 17 20 20 77 6f 72 64 24 3d a4 77 |$).... word$=.w|
00004610 6f 72 64 28 69 6e 70 24 29 0d 1c 8e 05 ce 0d 1c |ord(inp$).......|
00004620 98 10 69 6e 70 24 3d 63 6c 61 75 73 65 24 0d 1c |..inp$=clause$..|
00004630 a2 1a e7 20 61 63 74 69 6f 6e 24 3d 6e 6f 75 6e |... action$=noun|
00004640 24 20 8c 20 61 25 3d 30 0d 1c ac 05 e1 0d 1c b6 |$ . a%=0........|
00004650 05 3a 0d 1c c0 17 dd a4 63 68 65 63 6b 5f 6e 6f |.:......check_no|
00004660 75 6e 28 77 6f 72 64 24 29 0d 1c ca 09 6e 6e 25 |un(word$)....nn%|
00004670 3d 30 0d 1c d4 17 6c 6e 67 74 68 77 6f 72 64 25 |=0....lngthword%|
00004680 3d a9 28 77 6f 72 64 24 29 0d 1c de 12 e3 20 49 |=.(word$)..... I|
00004690 25 3d 31 20 b8 20 6e 6e 75 6d 25 0d 1c e8 4b 20 |%=1 . nnum%...K |
000046a0 20 e7 20 c0 6e 6f 75 6e 24 28 49 25 29 2c 6c 6e | . .noun$(I%),ln|
000046b0 67 74 68 77 6f 72 64 25 29 3d 77 6f 72 64 24 20 |gthword%)=word$ |
000046c0 6e 6f 75 6e 24 3d 6e 6f 75 6e 24 28 49 25 29 3a |noun$=noun$(I%):|
000046d0 6e 6e 25 3d 6e 6f 75 6e 25 28 49 25 29 3a 49 25 |nn%=noun%(I%):I%|
000046e0 3d 6e 6e 75 6d 25 0d 1c f2 05 ed 0d 1c fc 1b e7 |=nnum%..........|
000046f0 20 77 6f 72 64 24 3d 22 49 54 22 20 8c 20 6e 6e | word$="IT" . nn|
00004700 25 3d 69 74 6e 25 0d 1d 06 19 e7 20 6e 6e 25 3c |%=itn%..... nn%<|
00004710 3e 30 20 8c 20 3d 6e 6e 25 20 8b 20 3d 6e 25 0d |>0 . =nn% . =n%.|
00004720 1d 10 05 3a 0d 1d 1a 19 dd a4 63 68 65 63 6b 5f |...:......check_|
00004730 61 63 74 69 6f 6e 28 77 6f 72 64 24 29 0d 1d 24 |action(word$)..$|
00004740 19 e7 20 6c 25 3c 3e 30 20 80 20 61 25 3c 3e 30 |.. l%<>0 . a%<>0|
00004750 20 8c 20 3d 61 25 0d 1d 2e 09 6e 61 25 3d 30 0d | . =a%....na%=0.|
00004760 1d 38 17 6c 6e 67 74 68 77 6f 72 64 25 3d a9 28 |.8.lngthword%=.(|
00004770 77 6f 72 64 24 29 0d 1d 42 12 e3 20 49 25 3d 31 |word$)..B.. I%=1|
00004780 20 b8 20 61 6e 75 6d 25 0d 1d 4c 53 20 20 e7 20 | . anum%..LS . |
00004790 c0 61 63 74 69 6f 6e 24 28 49 25 29 2c 6c 6e 67 |.action$(I%),lng|
000047a0 74 68 77 6f 72 64 25 29 3d 77 6f 72 64 24 20 61 |thword%)=word$ a|
000047b0 63 74 69 6f 6e 24 3d 61 63 74 69 6f 6e 24 28 49 |ction$=action$(I|
000047c0 25 29 3a 6e 61 25 3d 61 63 74 69 6f 6e 25 28 49 |%):na%=action%(I|
000047d0 25 29 3a 49 25 3d 61 6e 75 6d 25 0d 1d 56 05 ed |%):I%=anum%..V..|
000047e0 0d 1d 60 1b e7 20 77 6f 72 64 24 3d 22 49 54 22 |..`.. word$="IT"|
000047f0 20 8c 20 6e 61 25 3d 69 74 61 25 0d 1d 6a 19 e7 | . na%=ita%..j..|
00004800 20 6e 61 25 3c 3e 30 20 8c 20 3d 6e 61 25 20 8b | na%<>0 . =na% .|
00004810 20 3d 61 25 0d 1d 74 05 3a 0d 1d 7e 17 dd a4 63 | =a%..t.:..~...c|
00004820 68 65 63 6b 5f 6c 69 6e 6b 28 77 6f 72 64 24 29 |heck_link(word$)|
00004830 0d 1d 88 09 6e 6c 25 3d 30 0d 1d 92 17 6c 6e 67 |....nl%=0....lng|
00004840 74 68 77 6f 72 64 25 3d a9 28 77 6f 72 64 24 29 |thword%=.(word$)|
00004850 0d 1d 9c 12 e3 20 49 25 3d 31 20 b8 20 6c 6e 75 |..... I%=1 . lnu|
00004860 6d 25 0d 1d a6 3b 20 20 e7 20 c0 6c 69 6e 6b 24 |m%...; . .link$|
00004870 28 49 25 29 2c 6c 6e 67 74 68 77 6f 72 64 25 29 |(I%),lngthword%)|
00004880 3d 77 6f 72 64 24 20 6e 6c 25 3d 6c 69 6e 6b 25 |=word$ nl%=link%|
00004890 28 49 25 29 3a 49 25 3d 6c 6e 75 6d 25 0d 1d b0 |(I%):I%=lnum%...|
000048a0 05 ed 0d 1d ba 19 e7 20 6e 6c 25 3c 3e 30 20 8c |....... nl%<>0 .|
000048b0 20 3d 6e 6c 25 20 8b 20 3d 6c 25 0d 1d c4 05 3a | =nl% . =l%....:|
000048c0 0d 1d ce 17 dd a4 63 68 65 63 6b 5f 76 65 72 62 |......check_verb|
000048d0 28 77 6f 72 64 24 29 0d 1d d8 09 6e 76 25 3d 30 |(word$)....nv%=0|
000048e0 0d 1d e2 17 6c 6e 67 74 68 77 6f 72 64 25 3d a9 |....lngthword%=.|
000048f0 28 77 6f 72 64 24 29 0d 1d ec 12 e3 20 49 25 3d |(word$)..... I%=|
00004900 31 20 b8 20 76 6e 75 6d 25 0d 1d f6 3b 20 20 e7 |1 . vnum%...; .|
00004910 20 c0 76 65 72 62 24 28 49 25 29 2c 6c 6e 67 74 | .verb$(I%),lngt|
00004920 68 77 6f 72 64 25 29 3d 77 6f 72 64 24 20 6e 76 |hword%)=word$ nv|
00004930 25 3d 76 65 72 62 25 28 49 25 29 3a 49 25 3d 76 |%=verb%(I%):I%=v|
00004940 6e 75 6d 25 0d 1e 00 05 ed 0d 1e 0a 1d e7 20 61 |num%.......... a|
00004950 63 74 69 6f 6e 24 28 61 25 29 3d 77 6f 72 64 24 |ction$(a%)=word$|
00004960 20 8c 20 3d 76 25 0d 1e 14 19 e7 20 6e 76 25 3c | . =v%..... nv%<|
00004970 3e 30 20 8c 20 3d 6e 76 25 20 8b 20 3d 76 25 0d |>0 . =nv% . =v%.|
00004980 ff |.|
00004981 
.