historicalsource/amfv
1
0
Fork 0
mirror of https://github.com/historicalsource/amfv synced 2024-04-26 14:19:56 +03:00
Code Issues Releases Wiki Activity

Final Revision

Browse source
This commit is contained in:
historicalsource 2019-04-14 15:47:20 -04:00
parent c7d6edc25a
commit 6d740ac492
9 changed files with 270 additions and 37 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
apartment.zil
View file

@ -369,7 +369,7 @@ street are off to the east.">)>>
(<EQUAL? ,HERE ,LIVING-ROOM>
<TELL
"You don't need the key to open the door from the inside!">
<COND (<IN? ,HERE ,JILL>
<COND (<IN? ,JILL ,HERE>
<TELL
" Jill gives you a funny look as you try.">)>
<CRLF>)
@ -1656,6 +1656,7 @@ so as not to wake him." CR>)
<TELL
"As Jill has reminded you many times, babies need their sleep." CR>)
(<AND <VERB? PUT PUT-ON>
<PRSO? ,BABY>
<NOT <PRSI? ,CRIB>>>
<NO-PLACE-FOR-BABY ,PRSI>)
(<VERB? DROP>

18
globals.zil
View file

@ -126,7 +126,7 @@
<OR <EQUAL? ,PRSA ,V?FIND ,V?FOLLOW ,V?BUY>
<EQUAL? ,PRSA ,V?WHAT ,V?WHERE ,V?WHO>
<EQUAL? ,PRSA ,V?BUY-WITH ,V?WALK-TO ,V?WAIT-FOR>
<EQUAL? ,PRSA ,V?CALL ,V?PAY-FOR>>>
<EQUAL? ,PRSA ;,V?CALL ,V?PAY-FOR>>>
<ROUTINE PRSI-VERB? ()
<EQUAL? ,PRSA ,V?ASK-ABOUT ,V?ASK-FOR ,V?TELL-ABOUT>>
@ -337,7 +337,7 @@ separate this entrance area from the prison proper." CR>)>>
(LOC GLOBAL-OBJECTS)
(DESC "sleep")
(SYNONYM SLEEP NAP)
(ADJECTIVE NARTICLEBIT)
(FLAGS NARTICLEBIT)
(ACTION SLEEP-F)>
<ROUTINE SLEEP-F ()
@ -2015,7 +2015,7 @@ background of the city's oldest park." CR>)
<COND (<EQUAL? ,HERE ,KITCHEN>
<TELL
"There's no room on the counter. Maybe you should try the table." CR>)
(<PRSI? ,COUNTER>
;(<PRSI? ,COUNTER>
<PERFORM ,V?DROP ,BEER>
<RTRUE>)
(<NOT <EQUAL? ,HERE ,EPILOGUE-KITCHEN>>
@ -2741,7 +2741,9 @@ to the Devil's Tower region of Wyoming. ">
<CURSET .LINE-NUMBER 1>)>
<HLIGHT 1>
<REPEAT ()
;<BUFOUT T> ;"only use for (speeding up) Amiga"
<TELL " ">
;<BUFOUT <>> ;"only use for (speeding up) Amiga"
<COND (.CENTER-HALF
<RETURN>)
(T
@ -2755,8 +2757,14 @@ to the Devil's Tower region of Wyoming. ">
(T
<PRINTC 32>)>>>
<ROUTINE CONTINUE ("AUX" (CURRENTLY-SCRIPTING <>))
<CRLF> <CRLF> <CRLF>
<ROUTINE CONTINUE ("AUX" (CURRENTLY-SCRIPTING <>) CNT)
<COND (<G? <GETB 0 32> 21> ;"is screen more than 21 lines tall?"
<SET CNT <- <GETB 0 32> 21>>
<REPEAT ()
<SET CNT <- .CNT 1>>
<CRLF>
<COND (<EQUAL? .CNT 0>
<RETURN>)>>)>
<COND (<BTST <GET 0 8> 1> ;"turn scripting off so [MORE] won't print"
<SET CURRENTLY-SCRIPTING T>
<DIROUT ,D-PRINTER-OFF>)>

2
parser.zil
View file

@ -714,7 +714,7 @@ OOPS-INBUF, leaving the appropriate pointers in AGAIN-LEXV"
<TELL "[I don't know the word \"">
<WORD-PRINT <GETB <REST ,P-LEXV <SET BUF <* .PTR 2>>> 2>
<GETB <REST ,P-LEXV .BUF> 3>>
<TELL "\".]" CR>
<TELL ".\"]" CR>
<SETG QUOTE-FLAG <>>
;<SETG P-OFLAG <>>>

28
prism.zil
View file

@ -93,7 +93,7 @@ everything's there this time.\"" CR>
<QUEUE I-MESSAGE-E 14>>
<ROUTINE I-MESSAGE-M ()
;<COND (<OR ,SIMULATING ;"let I-SIMULATION disable I-MESSAGE-M"
;<COND (<OR ,SIMULATING ;"let SIMULATION-ACTION disable I-MESSAGE-M"
<QUEUED? ,I-FIRST-SIMULATION-RESULT>>
<RFALSE>)>
<COND (<EQUAL? <GETP ,MESSAGE-M ,P?CAPACITY> 0>
@ -1343,8 +1343,10 @@ theoretically fit in a space no larger than a pack of cigarettes.")>
(<EQUAL? .CNT 0>
<RETURN>)>>
<INCREMENT-TIME <- 360 .CNT>>
<PUT-PERELMAN-IN-THE-RIGHT-PLACE>
<QUEUE I-PERELMAN -1>
<COND (<L? ,PART-FLAG 3>
<PUT-PERELMAN-IN-THE-RIGHT-PLACE>
<QUEUE I-PERELMAN -1>
<SETG LAST-ABE-TIME <- ,TIME 1>>)>
<COND (<EQUAL? .CNT 0>
<TELL
"Some time later, you awake feeling relaxed and notice that about
@ -1385,7 +1387,7 @@ six hours have passed." CR>)>
<COND (<EQUAL? ,PART-FLAG 4>
<TELL "There are currently no active outlets." CR>)
(T
<TELL " ">
<TELL " ">
<PRINTD ,CONTROL-CENTER>
<TELL " (PPCC)| ">
<PRINTD ,ROOFTOP>
@ -1634,8 +1636,7 @@ holding a woman.">)>
<ROOM OFFICE
(LOC ROOMS)
(DESC "Dr. Perelman's Office")
(FLAGS ONBIT)
(FLAGS NARTICLEBIT)
(FLAGS ONBIT NARTICLEBIT)
(GLOBAL SHELVES OUTLETS PEOPLE)
(ACTION OFFICE-F)>
@ -2086,7 +2087,8 @@ paperwork you could lose a skybus in.\"" CR>
<RTRUE>)
(T
<TELL "\"You don't have to thank me!\"" CR>)>)
(<VERB? CALL>
(<AND <VERB? CALL>
<VISIBLE? ,PERELMAN>>
<PERFORM ,V?TELL ,PERELMAN>
<RTRUE>)
;(<VERB? HELLO>
@ -3975,10 +3977,8 @@ hadn't been caught in time.">)>
<PRINTD ,SIMULATION-MODE>
<TELL ". Please await approval." CR>)
(<SECURITY-CHECK>
<SETG MODE ,SIMULATION-MODE>
<TURN-RECORD-OFF T>
<GOTO ,SIMULATION-ROOM>
<I-SIMULATION>)
<SIMULATION-ACTION>)
(T
<SETG MODE ,COMM-MODE>
<GOTO ,COMM-ROOM>
@ -3990,6 +3990,9 @@ hadn't been caught in time.">)>
<V-ABORT>)>>
<ROUTINE SECURITY-CHECK ("AUX" (CHANCES 0) (X <>) COLOR INNERNUM OUTERNUM)
<SETG MODE ,SIMULATION-MODE>
<GOTO ,SIMULATION-ROOM>
<STATUS-LINE>
<COND (<EQUAL? ,PART-FLAG 4>
<RTRUE>)>
<SET COLOR <- <RANDOM 16> 1>>
@ -4080,7 +4083,7 @@ and so on. Here's a list of the minimum times before advancement is possible:
<ROUTINE SIMULATION-BASED (NUM)
<TELL "This simulation is based " N .NUM " years hence." CR CR>>
<ROUTINE I-SIMULATION ()
<ROUTINE SIMULATION-ACTION ()
<COND (<EQUAL? ,PART-FLAG 4>
<TELL "Class One Security: waived. ">
<SIMULATION-BASED 60>
@ -5060,7 +5063,8 @@ car!\" He yanks open the door and snaps a finger at one of the Guardsmen,
ending the snap by pointing at Perelman. Ryder stomps away as the guard drags
Perelman out of the office." CR>
<CLEAR-BUF>)
(<VERB? CALL>
(<AND <VERB? CALL>
<VISIBLE? ,RYDER>>
<PERFORM ,V?TELL ,RYDER>
<RTRUE>)
(<VERB? EXAMINE>

2
rockvil.zil
View file

@ -7528,7 +7528,7 @@ Symphony Hall, and next to it is a car lot.")
(EAST PER RIVER-ENTER-F)
(SE SORRY "There's no entrance into Symphony Hall in that direction.")
(SOUTH PER SYMPHONY-HALL-ENTER-F)
(SW SKYCAR-LOT-7)
(SW TO SKYCAR-LOT-7)
(WEST TO AIRPORTWAY-AND-RIVER)
(NW SORRY "There's no entrance to the base in that direction.")
(IN PER SYMPHONY-HALL-ENTER-F)

BIN
s5.amiga Normal file
View file

Binary file not shown.

28
s5.xzap Normal file
View file

@ -0,0 +1,28 @@
.NEW ; NEW ZIP INTERPRETER
.INSERT "S5FREQ"
.INSERT "S5DAT" ; DATA IS IN THIS FILE
.INSERT "MISC"
.INSERT "PARSER"
.INSERT "INTERRUPTS"
.INSERT "VERBS"
.INSERT "GLOBALS"
.INSERT "SYNTAX"
.INSERT "ROCKVIL"
.INSERT "PRISM"
.INSERT "APARTMENT"
.INSERT "S5STR"
.END

200
s5freq.xzap Normal file
View file

@ -0,0 +1,200 @@
.FSTR FSTR?1,"the " ;5154 2578
.FSTR FSTR?2,", " ;2230 2231
.FSTR FSTR?3,"and " ;1874 938
.FSTR FSTR?4,"The " ;1785 596
.FSTR FSTR?5,". " ;1226 1227
.FSTR FSTR?6,"of " ;1128 1129
.FSTR FSTR?7,"You " ;1017 340
.FSTR FSTR?8,"you " ;906 454
.FSTR FSTR?9,"to " ;905 906
.FSTR FSTR?10,"that " ;870 291
.FSTR FSTR?11,"with " ;726 243
.FSTR FSTR?12,"your " ;696 233
.FSTR FSTR?13,"is " ;692 693
.FSTR FSTR?14,"from " ;612 205
.FSTR FSTR?15,"for " ;602 302
.FSTR FSTR?16,"There's " ;568 72
.FSTR FSTR?17,"are " ;546 274
.FSTR FSTR?18,"Perelman " ;520 66
.FSTR FSTR?19,"in " ;469 470
.FSTR FSTR?20,"This " ;468 118
.FSTR FSTR?21,"entrance " ;462 67
.FSTR FSTR?22,"can't " ;400 81
.FSTR FSTR?23,"into " ;384 129
.FSTR FSTR?24,"have " ;378 127
.FSTR FSTR?25,"Jill " ;296 75
.FSTR FSTR?26,"Church " ;288 49
.FSTR FSTR?27,"southwest" ;280 41
.FSTR FSTR?28,"this " ;279 94
.FSTR FSTR?29,"Street " ;276 47
.FSTR FSTR?30,"There " ;275 56
.FSTR FSTR?31,"through " ;270 46
.FSTR FSTR?32,"direction" ;259 38
.FSTR FSTR?33,"It's " ;255 52
.FSTR FSTR?34,"been " ;252 85
.FSTR FSTR?35,"which " ;252 64
.FSTR FSTR?36,"building " ;252 37
.FSTR FSTR?37,"has " ;250 126
.FSTR FSTR?38,"don't " ;250 51
.FSTR FSTR?39,"on " ;245 246
.FSTR FSTR?40,"around " ;240 49
.FSTR FSTR?41,"northwest" ;238 35
.FSTR FSTR?42,"out " ;228 115
.FSTR FSTR?43,"already " ;228 39
.FSTR FSTR?44,"Rockvil " ;224 33
.FSTR FSTR?45,"about " ;220 56
.FSTR FSTR?46,"street " ;220 45
.FSTR FSTR?47,"A " ;219 220
.FSTR FSTR?48,"some " ;219 74
.FSTR FSTR?49,"can " ;212 107
.FSTR FSTR?50,"southeast" ;210 31
.FSTR FSTR?51,"but " ;204 103
.FSTR FSTR?52,"northeast " ;200 26
.FSTR FSTR?53,"Perelman" ;196 29
.FSTR FSTR?54,"here" ;192 97
.FSTR FSTR?55,"building" ;192 33
.FSTR FSTR?56,"his " ;190 96
.FSTR FSTR?57,"northeast" ;189 28
.FSTR FSTR?58,"northwest " ;184 24
.FSTR FSTR?59,"down " ;180 61
.FSTR FSTR?60,"one " ;178 90
.FSTR FSTR?61,"looks " ;176 45
.FSTR FSTR?62,"southwest " ;176 23
.FSTR FSTR?63,"apartment " ;176 23
.FSTR FSTR?64,"begins " ;170 35
.FSTR FSTR?65,"You're " ;168 25
.FSTR FSTR?66,"be " ;162 163
.FSTR FSTR?67,"you're " ;162 28
.FSTR FSTR?68,"leads " ;160 41
.FSTR FSTR?69,"would " ;156 40
.FSTR FSTR?70,"toward " ;155 32
.FSTR FSTR?71,"as " ;154 155
.FSTR FSTR?72,"not " ;154 78
.FSTR FSTR?73,"just " ;153 52
.FSTR FSTR?74,"PRISM" ;152 39
.FSTR FSTR?75,"southeast " ;152 20
.FSTR FSTR?76,"I'm " ;148 38
.FSTR FSTR?77,"will " ;147 50
.FSTR FSTR?78,"more " ;147 50
.FSTR FSTR?79,"at " ;146 147
.FSTR FSTR?80,"was " ;146 74
.FSTR FSTR?81,"all " ;146 74
.FSTR FSTR?82,"He " ;146 74
.FSTR FSTR?83,"only " ;144 49
.FSTR FSTR?84,"current " ;144 25
.FSTR FSTR?85,"by " ;143 144
.FSTR FSTR?86,"an " ;142 143
.FSTR FSTR?87,"PRISM " ;140 29
.FSTR FSTR?88,"several " ;138 24
.FSTR FSTR?89,"Mitchell " ;136 18
.FSTR FSTR?90,"last " ;135 46
.FSTR FSTR?91,"Halley " ;132 23
.FSTR FSTR?92,"see " ;130 66
.FSTR FSTR?93,"people " ;130 27
.FSTR FSTR?94,"door " ;129 44
.FSTR FSTR?95,"National " ;128 17
.FSTR FSTR?96,"without " ;126 22
;word frequency table of 96 most common words
WORDS:: .TABLE
FSTR?1
FSTR?2
FSTR?3
FSTR?4
FSTR?5
FSTR?6
FSTR?7
FSTR?8
FSTR?9
FSTR?10
FSTR?11
FSTR?12
FSTR?13
FSTR?14
FSTR?15
FSTR?16
FSTR?17
FSTR?18
FSTR?19
FSTR?20
FSTR?21
FSTR?22
FSTR?23
FSTR?24
FSTR?25
FSTR?26
FSTR?27
FSTR?28
FSTR?29
FSTR?30
FSTR?31
FSTR?32
FSTR?33
FSTR?34
FSTR?35
FSTR?36
FSTR?37
FSTR?38
FSTR?39
FSTR?40
FSTR?41
FSTR?42
FSTR?43
FSTR?44
FSTR?45
FSTR?46
FSTR?47
FSTR?48
FSTR?49
FSTR?50
FSTR?51
FSTR?52
FSTR?53
FSTR?54
FSTR?55
FSTR?56
FSTR?57
FSTR?58
FSTR?59
FSTR?60
FSTR?61
FSTR?62
FSTR?63
FSTR?64
FSTR?65
FSTR?66
FSTR?67
FSTR?68
FSTR?69
FSTR?70
FSTR?71
FSTR?72
FSTR?73
FSTR?74
FSTR?75
FSTR?76
FSTR?77
FSTR?78
FSTR?79
FSTR?80
FSTR?81
FSTR?82
FSTR?83
FSTR?84
FSTR?85
FSTR?86
FSTR?87
FSTR?88
FSTR?89
FSTR?90
FSTR?91
FSTR?92
FSTR?93
FSTR?94
FSTR?95
FSTR?96
.ENDT
.ENDI

26
verbs.zil
View file

@ -363,19 +363,6 @@ Release " N .V " / Serial number ">
(T
<SETG DEBUG T>
<TELL "Debugging on." CR>)>>
;<ROUTINE V-$TABLE ("AUX" CNT)
<SET CNT ,P-NUMBER>
<REPEAT ()
<TELL S .CNT " = " S <+ 1000 <RANDOM 8999>> " ">
<TELL S <+ .CNT 40> " = " S <+ 1000 <RANDOM 8999>> " ">
<TELL S <+ .CNT 80> " = " S <+ 1000 <RANDOM 8999>> " ">
<TELL S <+ .CNT 120> " = " S <+ 1000 <RANDOM 8999>> " ">
<TELL S <+ .CNT 160> " = " S <+ 1000 <RANDOM 8999>> " " CR>
<SET CNT <+ .CNT 1>>
<COND (<EQUAL? .CNT 40>
<CRLF>
<RETURN>)>>>
;"subtitle real verbs"
@ -599,9 +586,14 @@ Release " N .V " / Serial number ">
<ROUTINE V-CALL ()
<COND (<FSET? ,PRSO ,ACTORBIT>
<TELL "You do so, but">
<ARTICLE ,PRSO>
<TELL " doesn't seem to hear you." CR>)
<COND (<VISIBLE? ,PRSO>
<TELL "You do so, but">
<ARTICLE ,PRSO>
<TELL " doesn't seem to hear you." CR>)
(T
<TELL "But">
<ARTICLE ,PRSO>
<TELL " isn't within earshot." CR>)>)
(T
<TELL "That's an odd thought." CR>)>>
@ -2765,7 +2757,7 @@ long description (fdesc or ldesc), otherwise will print short."
<CONSTANT NEXITSTR 0>
<CONSTANT FEXITFCN 0>
<CONSTANT CEXITFLAG 4>
<CONSTANT CEXITFLAG 1>
<CONSTANT CEXITSTR 1>
<CONSTANT DEXITOBJ 1>
<CONSTANT DEXITSTR 2>