github.com/historicalsource.abyss
1
0
Fork 0
mirror of synced 2026-02-03 15:13:00 +00:00
Code Issues Releases Wiki Activity

Final Revision

Browse Source
This commit is contained in:
historicalsource
2019-04-14 16:25:39 -04:00
commit 2ac9da82cb
103 changed files with 54604 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

78
misc.zabstr Normal file
View File

@@ -0,0 +1,78 @@
<FLAGS-AND-DEFAULTS (("IN-ZILCH" T)) ()>
<OBJECT CH-PLAYER (LOC RM-COMMAND-MODULE) (DESC "yourself") (MENU "me") (
SYNONYM ME MYSELF SELF BUD BRIGMAN) (ADJECTIVE BUD) (FLAGS FL-ALIVE FL-NO-DESC
FL-NO-ARTICLE FL-OPEN FL-PERSON FL-SEARCH FL-SEEN FL-TOUCHED)>
<CONSTANT ME:OBJECT CH-PLAYER>
<GLOBAL GL-LOC-TRAIL:TABLE <ITABLE 8 0>>
<DEFINE-ROUTINE VISIBLE?>
<DEFINE-ROUTINE CLOSED?>
<DEFINE-ROUTINE ACCESSIBLE?>
<CONSTANT K-ART-A 1>
<CONSTANT K-ART-THE 2>
<CONSTANT K-ART-ANY 3>
<CONSTANT K-ART-HE 4>
<CONSTANT K-ART-HIM 5>
<CONSTANT K-ART-HIS 6>
<DEFINE-ROUTINE RT-PRINT-DESC>
<DEFINE-ROUTINE RT-PRINT-ARTICLE>
<DEFINE-ROUTINE RT-PRINT-OBJ>
<DEFINE-ROUTINE RT-PRINT-VERB>
<GLOBAL QCONTEXT:OBJECT <>>
<GLOBAL LIT:OBJECT <>>
<GLOBAL P-IT-OBJECT:OBJECT <>>
<GLOBAL P-THEM-OBJECT:OBJECT <>>
<GLOBAL P-HER-OBJECT:OBJECT <>>
<GLOBAL P-HIM-OBJECT:OBJECT <>>
<GLOBAL P-ONE-NOUN <>>
<CONSTANT K-DIROUT-TBL <ITABLE 255 (BYTE) 0>>
<DEFINE-ROUTINE THIS-IS-IT>
<DEFINE-ROUTINE RT-IN-ON-MSG>
<DEFINE-ROUTINE RT-OUT-OFF-MSG>
<DEFINE-ROUTINE RT-OPEN-MSG>
<DEFINE-ROUTINE TOUCH-VERB?>
<GLOBAL CLOCK-WAIT:FLAG <>>
<GLOBAL GL-CLK-RUN:FLAG <>>
<GLOBAL GL-Q-MAX 0 <> BYTE>
<CONSTANT K-Q-NUM 20>
<CONSTANT K-Q-SIZE <* ,K-Q-NUM 2>>
<GLOBAL GL-Q-TBL <ITABLE ,K-Q-SIZE 0>>
<GLOBAL GL-MOVES 360>
<GLOBAL GL-NEW-TIME 0>
<CONSTANT K-TIME-PASSES-MSG "Time passes...|">
<DEFINE-ROUTINE CLOCKER>
<DEFINE-ROUTINE RT-QUEUE>
<DEFINE-ROUTINE RT-DEQUEUE>
<DEFINE-ROUTINE RT-IS-QUEUED?>
<BIND () <ROUTINE C-PIXELS (X) <ADD #ZLOCAL!-IZILCH STACK 1>> <ROUTINE L-PIXELS
(Y) <ADD #ZLOCAL!-IZILCH STACK 1>> <ROUTINE PIXELS-C (X) <ADD #ZLOCAL!-IZILCH
STACK 1>> <ROUTINE PIXELS-L (Y) <ADD #ZLOCAL!-IZILCH STACK 1>> <ROUTINE CCURSET
(Y X "OPT" (W -3)) <CURSET #ZLOCAL!-IZILCH ?TMP1!-IZILCH #ZLOCAL!-IZILCH STACK
.W>> <ROUTINE CCURGET (TBL) <CURGET .TBL> <PUT .TBL 0 #ZLOCAL!-IZILCH STACK> <
PUT .TBL 1 #ZLOCAL!-IZILCH STACK> .TBL> <ROUTINE CSPLIT (Y) <SPLIT #
ZLOCAL!-IZILCH STACK>> <ROUTINE CWINPOS (W Y X) <WINPOS .W #ZLOCAL!-IZILCH
?TMP1!-IZILCH #ZLOCAL!-IZILCH STACK>> <ROUTINE CWINSIZE (W Y X) <WINSIZE .W #
ZLOCAL!-IZILCH ?TMP1!-IZILCH #ZLOCAL!-IZILCH STACK>> <ROUTINE CSCROLL (W "OPT"
(Y 1)) <SCROLL .W #ZLOCAL!-IZILCH STACK>> <ROUTINE RT-SCRIPT-INBUF ("OPT" (BUF
,P-INBUF) "AUX" (CNT 0) N CHR) <SET N <GETB .BUF 1>> <DIROUT ,D-SCREEN-OFF> <
SET BUF <ADD 1 .BUF>> <REPEAT () <COND (<GRTR? <SET CNT <ADD CNT 1>> .N> <
RETURN>) (ELSE <SET CHR <GETB .BUF .CNT>> <COND (<AND <NOT <LESS? .CHR !\a>> <
NOT <GRTR? .CHR !\z>>> <PRINTC #ZLOCAL!-IZILCH STACK>) (ELSE <PRINTC .CHR>)>)>>
<CRLF> <DIROUT ,D-SCREEN-ON>>>
<DEFINE-ROUTINE C-PIXELS>
<DEFINE-ROUTINE L-PIXELS>
<DEFINE-ROUTINE PIXELS-C>
<DEFINE-ROUTINE PIXELS-L>
<DEFINE-ROUTINE CCURSET>
<DEFINE-ROUTINE CCURGET>
<DEFINE-ROUTINE CSPLIT>
<DEFINE-ROUTINE CWINPOS>
<DEFINE-ROUTINE CWINSIZE>
<DEFINE-ROUTINE CSCROLL>
<DEFINE-ROUTINE RT-SCRIPT-INBUF>
<GLOBAL GL-SCR-WID:NUMBER 79>
<CONSTANT K-WIN-TBL <TABLE 0 0 0>>
<GLOBAL GL-FONT-X 7 <> BYTE>
<GLOBAL GL-FONT-Y 10 <> BYTE>
<GLOBAL GL-SPACE-WIDTH 0 <> BYTE>
<DEFINE-ROUTINE GO>