homsar.asm

一个RPG术语查询器

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

:main

 push &handler
 push &installmessage
 api

 :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

:mymessage "OHHHHHHHH NOOOOOO! YOU SHANKED MY/nJENGA SHIP!/n/nVisit homestarrunner.com!"
:goal "homsar.wav"

:handler


 push 2
 cmp
 push &saysmth
 jme
 exit


 :saysmth

 push &goal
 push &playwav
 api


 push &mymessage
 push &say
 api

 exit