| |
|
| script? [IF] |
script? [IF] |
| warnings off |
warnings off |
| require extend.fs |
|
| require search.fs |
require search.fs |
| |
require extend.fs |
| require glocals.fs |
require glocals.fs |
| require float.fs |
require float.fs |
| require struct.fs |
require struct.fs |
| create |
create |
| last @ name>string skip-prefix 2, \ name |
last @ name>string skip-prefix 2, \ name |
| [char] ) parse save-mem 2, \ stack-effect |
[char] ) parse save-mem 2, \ stack-effect |
| bl parse-word condition-wordset 2, \ wordset |
bl sword condition-wordset 2, \ wordset |
| bl parse-word dup \ pronounciation |
bl sword dup \ pronounciation |
| if |
if |
| condition-pronounciation |
condition-pronounciation |
| else |
else |
