52 lines
792 B
Plaintext
52 lines
792 B
Plaintext
|
:: Similar to default-agent except crashes everywhere
|
||
|
|
^- agent:gall
|
||
|
|
|_ bowl:gall
|
||
|
|
++ on-init
|
||
|
|
^- (quip card:agent:gall agent:gall)
|
||
|
|
!!
|
||
|
|
::
|
||
|
|
++ on-save
|
||
|
|
^- vase
|
||
|
|
!!
|
||
|
|
::
|
||
|
|
++ on-load
|
||
|
|
|~ old-state=vase
|
||
|
|
^- (quip card:agent:gall agent:gall)
|
||
|
|
!!
|
||
|
|
::
|
||
|
|
++ on-poke
|
||
|
|
|~ in-poke-data=cage
|
||
|
|
^- (quip card:agent:gall agent:gall)
|
||
|
|
!!
|
||
|
|
::
|
||
|
|
++ on-watch
|
||
|
|
|~ path
|
||
|
|
^- (quip card:agent:gall agent:gall)
|
||
|
|
!!
|
||
|
|
::
|
||
|
|
++ on-leave
|
||
|
|
|~ path
|
||
|
|
^- (quip card:agent:gall agent:gall)
|
||
|
|
!!
|
||
|
|
::
|
||
|
|
++ on-peek
|
||
|
|
|~ path
|
||
|
|
^- (unit (unit cage))
|
||
|
|
!!
|
||
|
|
::
|
||
|
|
++ on-agent
|
||
|
|
|~ [wire sign:agent:gall]
|
||
|
|
^- (quip card:agent:gall agent:gall)
|
||
|
|
!!
|
||
|
|
::
|
||
|
|
++ on-arvo
|
||
|
|
|~ [wire =sign-arvo]
|
||
|
|
^- (quip card:agent:gall agent:gall)
|
||
|
|
!!
|
||
|
|
::
|
||
|
|
++ on-fail
|
||
|
|
|~ [term tang]
|
||
|
|
^- (quip card:agent:gall agent:gall)
|
||
|
|
!!
|
||
|
|
--
|