mirror of
https://github.com/historicalsource/journey
synced 2024-05-04 09:58:28 +03:00
192 lines
6.3 KiB
Plaintext
192 lines
6.3 KiB
Plaintext
|
<FLAGS-AND-DEFAULTS (("DEBUGGING" %<>)) ()>
|
||
|
|
||
|
<BEGIN-SEGMENT 0>
|
||
|
<CONSTANT THICK-V-LINE 57>
|
||
|
<CONSTANT THIN-V-LINE 41>
|
||
|
<CONSTANT H-LINE 39>
|
||
|
<CONSTANT D-RECORD-ON 4>
|
||
|
<CONSTANT D-RECORD-OFF -4>
|
||
|
<CONSTANT D-COMMAND-FILE 1>
|
||
|
<CONSTANT DELETE-KEY 127>
|
||
|
<CONSTANT BACK-SPACE 8>
|
||
|
<CONSTANT SPACE-BAR 32>
|
||
|
<CONSTANT UP-ARROW 129>
|
||
|
<CONSTANT DOWN-ARROW 130>
|
||
|
<CONSTANT LEFT-ARROW 131>
|
||
|
<CONSTANT RIGHT-ARROW 132>
|
||
|
<CONSTANT SINGLE-CLICK 254>
|
||
|
<CONSTANT DOUBLE-CLICK 253>
|
||
|
<GLOBAL COMMAND-WIDTH-PIX 0>
|
||
|
<GLOBAL NAME-WIDTH-PIX 0>
|
||
|
<GLOBAL NAME-RIGHT 0>
|
||
|
<GLOBAL LONG-ARROW-WIDTH 0>
|
||
|
<GLOBAL SHORT-ARROW-WIDTH 0>
|
||
|
<GLOBAL NO-ARROW-WIDTH 0>
|
||
|
<SETG COMPADSTR <ISTRING <- ,COMMAND-WIDTH 1> !\ >>
|
||
|
<SETG NAMPADSTR <ISTRING <- ,NAME-WIDTH 1> !\ >>
|
||
|
<DEFINE COMPAD (STR "OPTIONAL" (PSTR ,COMPADSTR) "AUX" (LEN <LENGTH .STR>) (
|
||
|
CLEN <LENGTH .PSTR>)) <COND (<G? .LEN .CLEN> <SET STR <SUBSTRUC .STR 0 .CLEN>>
|
||
|
<SET LEN .CLEN>)> <STRING .STR <REST .PSTR .LEN>>>
|
||
|
<ZSTART GO>
|
||
|
<CONSTANT MINUS-ONE -1>
|
||
|
<GLOBAL DAY 0>
|
||
|
<DEFINE-ROUTINE NEXT-DAY>
|
||
|
<OBJECT TRAVEL-MODE (ACTION P?TRAVEL-COMMANDS)>
|
||
|
<OBJECT PROVISION-MODE (ACTION P?PROVISION-COMMANDS)>
|
||
|
<OBJECT FIGHT-MODE (ACTION P?FIGHT-COMMANDS) (MODE-COMMANDS COMBAT-COMMAND
|
||
|
RETREAT-COMMAND PARLEY-COMMAND NUL-COMMAND)>
|
||
|
<OBJECT OPTION-MODE (ACTION P?OPTION-COMMANDS) (MODE-COMMANDS NUL-COMMAND
|
||
|
NUL-COMMAND NUL-COMMAND NUL-COMMAND)>
|
||
|
<GLOBAL PARTY-MODE 0>
|
||
|
<GLOBAL PARTY-MODE-PROPERTY 0>
|
||
|
<GLOBAL NUL-CHARACTER-INPUT <TABLE NUL-COMMAND NUL-COMMAND NUL-COMMAND>>
|
||
|
<GLOBAL CHARACTER-INPUT-TBL <LTABLE <TABLE 0 0 0> <TABLE 0 0 0> <TABLE 0 0 0> <
|
||
|
TABLE 0 0 0> <TABLE 0 0 0>>>
|
||
|
<GLOBAL SUBGROUP-MODE <>>
|
||
|
<GLOBAL MODE-ENTRANCE-FLAG <>>
|
||
|
<DEFINE-ROUTINE FILL-CHARACTER-TBL>
|
||
|
<DEFINE-ROUTINE VALID-OPTION>
|
||
|
<DEFINE-ROUTINE MODE>
|
||
|
<DEFINE-ROUTINE INIT-SCREEN>
|
||
|
<DEFINE-ROUTINE TEXT-WIDTH>
|
||
|
<DEFINE-ROUTINE BLANK-LINE>
|
||
|
<DEFINE-ROUTINE FONT3-LINE>
|
||
|
<CONSTANT CURGET-TABLE <TABLE 0 0>>
|
||
|
<DEFINE-ROUTINE REFRESH-CHARACTER-COMMAND-AREA>
|
||
|
<DEFINE-ROUTINE FIXED-SPACE>
|
||
|
<GLOBAL MAC-SPECIAL-MENU <LTABLE <TABLE (STRING LENGTH) "Journey"> <TABLE (
|
||
|
STRING LENGTH) "Essences"> <TABLE (STRING LENGTH) "No Defaults">>>
|
||
|
<CONSTANT MSM-NO-DEFAULTS <TABLE (STRING LENGTH) "No Defaults">>
|
||
|
<CONSTANT MSM-DEFAULTS <TABLE (STRING LENGTH) "Defaults">>
|
||
|
<DEFINE-ROUTINE GET-CURSOR>
|
||
|
<DEFINE-ROUTINE ERASE-COMMAND>
|
||
|
<DEFINE-ROUTINE BOLD-CURSOR>
|
||
|
<DEFINE-ROUTINE NORMAL-ALL>
|
||
|
<DEFINE-ROUTINE NORMAL-CURSOR>
|
||
|
<GLOBAL MOUSETBL <TABLE 0 0>>
|
||
|
<DEFINE-ROUTINE GMSLOCX>
|
||
|
<LOWCORE MSLOCX %<> T>
|
||
|
<LOWCORE MSLOCX %<> T>
|
||
|
<DEFINE-ROUTINE GMSLOCY>
|
||
|
<LOWCORE MSLOCY %<> T>
|
||
|
<LOWCORE MSLOCY %<> T>
|
||
|
<DEFINE-ROUTINE LOCATE-MOUSE>
|
||
|
<DEFINE-ROUTINE PARTY-INPUT>
|
||
|
<DEFINE-ROUTINE F-P-C>
|
||
|
<DEFINE-ROUTINE FIRST-PARTY>
|
||
|
<DEFINE-ROUTINE FIRST-SUBGROUP>
|
||
|
<DEFINE-ROUTINE PARTY-KBD-COMMAND?>
|
||
|
<DEFINE-ROUTINE CHARACTER-KBD-COMMAND?>
|
||
|
<DEFINE-ROUTINE OBJECT-KBD-COMMAND?>
|
||
|
<GLOBAL SAVED-PCM 0>
|
||
|
<GLOBAL SAVED-PCF 0>
|
||
|
<GLOBAL SAVED-CLICK 0>
|
||
|
<CONSTANT DEFAULT-CHR 2>
|
||
|
<GLOBAL NEW-DEFAULT-FLAG <>>
|
||
|
<GLOBAL F-KEY-TBL <LTABLE V-SAVE V-RESTORE V-SAFE-START-OVER V-SAFE-QUIT
|
||
|
V-SCRIPT V-REFRESH V-VERSION>>
|
||
|
<GLOBAL MOUSE-MENU-TBL <LTABLE MOUSE-SAVE MOUSE-RESTORE V-NUL V-SCRIPT V-NUL
|
||
|
V-RESTART V-QUIT V-NUL>>
|
||
|
<GLOBAL MOUSE-JOURNEY-MENU-TBL <LTABLE MENU-ESSENCES MENU-NO-DEFAULTS>>
|
||
|
<GLOBAL NO-DEFAULTS <>>
|
||
|
<DEFINE-ROUTINE MENU-NO-DEFAULTS>
|
||
|
<DEFINE-ROUTINE MENU-DEFAULTS>
|
||
|
<DEFINE-ROUTINE MENU-ESSENCES>
|
||
|
<DEFINE-ROUTINE MOUSE-SAVE>
|
||
|
<DEFINE-ROUTINE MOUSE-RESTORE>
|
||
|
<DEFINE-ROUTINE V-SCRIPT>
|
||
|
<CONSTANT F-KEY-START 132>
|
||
|
<CONSTANT F1 133>
|
||
|
<CONSTANT F2 134>
|
||
|
<CONSTANT F3 135>
|
||
|
<CONSTANT F4 136>
|
||
|
<CONSTANT F5 137>
|
||
|
<CONSTANT F6 138>
|
||
|
<CONSTANT F7 139>
|
||
|
<CONSTANT F-KEY-END 140>
|
||
|
<CONSTANT CONFIRM-STR "? Hit same key again to confirm]">
|
||
|
<DEFINE-ROUTINE V-SAFE-START-OVER>
|
||
|
<DEFINE-ROUTINE V-SAFE-QUIT>
|
||
|
<GLOBAL MOUSE-INFO-TBL <TABLE 0 0 0 0>>
|
||
|
<DEFINE-ROUTINE GETCHR>
|
||
|
<DEFINE-ROUTINE GO-TO-GAME-MODE>
|
||
|
<DEFINE-ROUTINE SCREEN-NEEDS-INIT>
|
||
|
<DEFINE-ROUTINE REFRESH-CHECK>
|
||
|
<DEFINE-ROUTINE REFRESH-SCREEN>
|
||
|
<DEFINE-ROUTINE CHARACTER-INPUT>
|
||
|
<DEFINE-ROUTINE C-N-D>
|
||
|
<DEFINE-ROUTINE CLEAR-FIELDS>
|
||
|
<DEFINE-ROUTINE PRINT-CHARACTER-COMMANDS>
|
||
|
<GLOBAL ACTOR <>>
|
||
|
<GLOBAL ACTION <>>
|
||
|
<DEFINE-ROUTINE SCENE>
|
||
|
<OBJECT DEFAULT-SCENE (ACTION V-NUL)>
|
||
|
<GLOBAL SCENE-OBJECT 0>
|
||
|
<DEFINE-ROUTINE PERFORM>
|
||
|
<GLOBAL MOVE-NUMBER 0>
|
||
|
<DEFINE-ROUTINE FAKE-COMMAND?>
|
||
|
<DEFINE-ROUTINE GAME-COMMAND?>
|
||
|
<DEFINE-ROUTINE PROCESS-COMMAND>
|
||
|
<DEFINE-ROUTINE PREP-CHECK>
|
||
|
<OBJECT CANCEL-OBJECT (SDESC "[cancel]") (KBD BACK-SPACE)>
|
||
|
<GLOBAL UPDATE-FLAG <>>
|
||
|
<DEFINE-ROUTINE FIND-OBJECTS>
|
||
|
<DEFINE-ROUTINE FIND-OBJECT>
|
||
|
<DEFINE-ROUTINE PRINT-COLUMNS>
|
||
|
<CONSTANT 12-WIDTH 71>
|
||
|
<CONSTANT 8-WIDTH 50>
|
||
|
<DEFINE-ROUTINE TAG-ROUTE-PRINT>
|
||
|
<DEFINE-ROUTINE ILLEGAL-COMMAND-OBJECT?>
|
||
|
<GLOBAL INHIBIT-MOUSE-COMMANDS <>>
|
||
|
<DEFINE-ROUTINE COMMAND-OBJECT-INPUT>
|
||
|
<GLOBAL ACTION-OBJECT <>>
|
||
|
<DEFINE-ROUTINE PROCESS-COMMAND-OBJECT>
|
||
|
<DEFINE-ROUTINE BOLD-OBJECT-CURSOR>
|
||
|
<DEFINE-ROUTINE NORMAL-OBJECT-CURSOR>
|
||
|
<DEFINE-ROUTINE BOLD-PARTY-CURSOR>
|
||
|
<DEFINE-ROUTINE NORMAL-PARTY-CURSOR>
|
||
|
<GLOBAL OPTION-ACTOR 0>
|
||
|
<GLOBAL OPTION-OLD-MODE 0>
|
||
|
<DEFINE-ROUTINE CIT>
|
||
|
<DEFINE-ROUTINE CHANGE-CIT>
|
||
|
<DEFINE-ROUTINE PARTY-PCM>
|
||
|
<DEFINE-ROUTINE OPTION>
|
||
|
<DEFINE-ROUTINE END-OPTION>
|
||
|
<GLOBAL O-TABLE <TABLE 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0>>
|
||
|
<DEFINE-ROUTINE CHARACTER-HERE?>
|
||
|
<OBJECT INVENTORY>
|
||
|
<GLOBAL HERE <>>
|
||
|
<DEFINE-ROUTINE MAKE-SUBGROUP>
|
||
|
<DEFINE-ROUTINE CLEAR-SUBGROUP>
|
||
|
<DEFINE-ROUTINE MOVE-TO>
|
||
|
<DEFINE-ROUTINE SMART-DEFAULT>
|
||
|
<DEFINE-ROUTINE FILL-PARTY-COMMANDS>
|
||
|
<DEFINE-ROUTINE ADD-PARTY-COMMAND>
|
||
|
<DEFINE-ROUTINE NUL-PARTY-COMMAND>
|
||
|
<DEFINE-ROUTINE CHANGE-PARTY-COMMAND>
|
||
|
<DEFINE-ROUTINE REMOVE-PARTY-COMMAND>
|
||
|
<DEFINE-ROUTINE NEW-DEFAULT>
|
||
|
<DEFINE-ROUTINE TRAVEL-COMMANDS>
|
||
|
<DEFINE-ROUTINE PROVISION-COMMANDS>
|
||
|
<DEFINE-ROUTINE UPDATE-CHECK>
|
||
|
<DEFINE-ROUTINE SAVE-PROVISION-COMMANDS>
|
||
|
<DEFINE-ROUTINE SAVE-TRAVEL-COMMANDS>
|
||
|
<DEFINE-ROUTINE RESTORE-PROVISION-COMMANDS>
|
||
|
<DEFINE-ROUTINE RESTORE-TRAVEL-COMMANDS>
|
||
|
<DEFINE-ROUTINE CHANGE-TRAVEL-COMMAND>
|
||
|
<DEFINE-ROUTINE CHANGE-PROVISION-COMMAND>
|
||
|
<DEFINE-ROUTINE ADD-PROVISION-COMMAND>
|
||
|
<DEFINE-ROUTINE ADD-TRAVEL-COMMAND>
|
||
|
<DEFINE-ROUTINE FORCE-TRAVEL-COMMAND>
|
||
|
<DEFINE-ROUTINE TRAVEL-COMMAND?>
|
||
|
<DEFINE-ROUTINE REMOVE-PROVISION-COMMAND>
|
||
|
<DEFINE-ROUTINE REMOVE-TRAVEL-COMMAND>
|
||
|
<GLOBAL ACTION-PRSI <>>
|
||
|
<GLOBAL PRSI-PREP <>>
|
||
|
<DEFINE-ROUTINE PRSI-INPUT>
|
||
|
<OBJECT CLOCK-QUEUE>
|
||
|
<DEFINE-ROUTINE RUN-CLOCK>
|
||
|
<DEFINE-ROUTINE QUEUE>
|
||
|
<DEFINE-ROUTINE ADD-TO-LTABLE>
|
||
|
<DEFINE-ROUTINE TURN-ON-CURSOR>
|
||
|
<DEFINE-ROUTINE TURN-OFF-CURSOR>
|