mirror of
https://github.com/historicalsource/zork3.git
synced 2026-01-11 23:53:17 +00:00
20 lines
220 B
Plaintext
20 lines
220 B
Plaintext
|
|
|
|
.FUNCT ZPROB,BASE
|
|
ZERO? LUCKY /?ELS5
|
|
RANDOM 100
|
|
GRTR? BASE,STACK /TRUE
|
|
RFALSE
|
|
?ELS5: RANDOM 300
|
|
GRTR? BASE,STACK /TRUE
|
|
RFALSE
|
|
|
|
|
|
.FUNCT PICK-ONE,FROB
|
|
GET FROB,0
|
|
RANDOM STACK
|
|
GET FROB,STACK
|
|
RSTACK
|
|
|
|
.ENDI
|