mirror of
https://github.com/historicalsource/minizork-1982
synced 2024-05-21 18:28:28 +03:00
29 lines
496 B
Plaintext
29 lines
496 B
Plaintext
|
|
||
|
.FUNCT THIS-IT?,OBJ,TBL,SYNS,?TMP1
|
||
|
FSET? OBJ,INVISIBLE /FALSE
|
||
|
ZERO? P-NAM /?THN3
|
||
|
GETPT OBJ,P?SYNONYM >SYNS
|
||
|
PTSIZE SYNS
|
||
|
DIV STACK,2
|
||
|
SUB STACK,1
|
||
|
CALL ZMEMQ,P-NAM,SYNS,STACK
|
||
|
ZERO? STACK /FALSE
|
||
|
?THN3: ZERO? P-ADJ /?ELS8
|
||
|
GETPT OBJ,P?ADJECTIVE >SYNS
|
||
|
ZERO? SYNS /FALSE
|
||
|
PTSIZE SYNS
|
||
|
SUB STACK,1
|
||
|
CALL ZMEMQB,P-ADJ,SYNS,STACK
|
||
|
ZERO? STACK /FALSE
|
||
|
?ELS8: ZERO? P-GWIMBIT /TRUE
|
||
|
FSET? OBJ,P-GWIMBIT /TRUE
|
||
|
RFALSE
|
||
|
|
||
|
|
||
|
.FUNCT I-LANTERN
|
||
|
CALL LIGHT-INT,LAMP,I-LANTERN,'LAMP-TABLE
|
||
|
RSTACK
|
||
|
|
||
|
|
||
|
.ENDI
|