shea.asm

来自「一个RPG术语查询器」· 汇编 代码 · 共 110 行

;API routines
:installmessage "installmessage"
:say "say"
:move "move"
:random "random"
:mutter "mutter"

:main

 push &handler
 push &installmessage
 api

 push &mutterthread
 push sys_thread
 sys
 pop

 :heh
 push -1
 push 1
 push &random
 api
 
 push -1
 push 1
 push &random
 api
 
 push &move
 api
 
 
 
 push 50
 push 200
 push &random
 api
 push sys_yield
 sys
 
 push &heh
 jmp


exit


:mutterance "mumble"
:mutterance2 "MAYA IS ELITE"


:mutterthread


 :loops

 push 1000
 push sys_yield
 sys


 push &mutterance
 push 100
 push &mutter
 api
 push 1000
 push sys_yield
 sys


 push &mutterance2
 push 150
 push &mutter
 api
 push 1000
 push sys_yield
 sys

 push &loops
 jmp

exit




:mymessage "DO NOT BOTHER ME WHEN I'M MUTTERING/nABOUT MAYA!"


:handler

 push 2
 cmp
 push &saysmth
 jme

 :back
 exit


 :saysmth
 push &mymessage
 push &say
 api


 push &back
 jmp