mirror of
https://github.com/historicalsource/cutthroats
synced 2024-06-28 20:45:03 +03:00
34 lines
436 B
Plaintext
34 lines
436 B
Plaintext
|
|
||
|
|
||
|
.FUNCT PICK-ONE,FROB
|
||
|
GET FROB,0
|
||
|
RANDOM STACK
|
||
|
GET FROB,STACK
|
||
|
RSTACK
|
||
|
|
||
|
|
||
|
.FUNCT DPRINT,OBJ
|
||
|
GETP OBJ,P?SDESC
|
||
|
ZERO? STACK /?ELS5
|
||
|
GETP OBJ,P?SDESC
|
||
|
PRINT STACK
|
||
|
RTRUE
|
||
|
?ELS5: PRINTD OBJ
|
||
|
RTRUE
|
||
|
|
||
|
|
||
|
.FUNCT APRINT,OBJ
|
||
|
FSET? OBJ,PERSON /?THN6
|
||
|
EQUAL? OBJ,PETES-PATCH \?ELS5
|
||
|
?THN6: CALL DPRINT,OBJ
|
||
|
RSTACK
|
||
|
?ELS5: FSET? OBJ,VOWELBIT \?ELS11
|
||
|
PRINTI "an "
|
||
|
CALL DPRINT,OBJ
|
||
|
RSTACK
|
||
|
?ELS11: PRINTI "a "
|
||
|
CALL DPRINT,OBJ
|
||
|
RSTACK
|
||
|
|
||
|
.ENDI
|