mirror of
https://github.com/historicalsource/enchanter
synced 2024-05-05 02:18:23 +03:00
24 lines
424 B
Plaintext
24 lines
424 B
Plaintext
|
|
||
|
|
|
||
|
|
.FUNCT THIS-IT?,OBJ,TBL,SYNS,?TMP1
|
||
|
|
FSET? OBJ,INVISIBLE /FALSE
|
||
|
|
ZERO? P-NAM /?ELS5
|
||
|
|
GETPT OBJ,P?SYNONYM >SYNS
|
||
|
|
PTSIZE SYNS
|
||
|
|
DIV STACK,2
|
||
|
|
SUB STACK,1
|
||
|
|
CALL ZMEMQ,P-NAM,SYNS,STACK
|
||
|
|
ZERO? STACK /FALSE
|
||
|
|
?ELS5: ZERO? P-ADJ /?ELS9
|
||
|
|
GETPT OBJ,P?ADJECTIVE >SYNS
|
||
|
|
ZERO? SYNS /FALSE
|
||
|
|
PTSIZE SYNS
|
||
|
|
SUB STACK,1
|
||
|
|
CALL ZMEMQB,P-ADJ,SYNS,STACK
|
||
|
|
ZERO? STACK /FALSE
|
||
|
|
?ELS9: ZERO? P-GWIMBIT /TRUE
|
||
|
|
FSET? OBJ,P-GWIMBIT /TRUE
|
||
|
|
RFALSE
|
||
|
|
|
||
|
|
.ENDI
|