shrub/main/app/began/core.hook

49 lines
1.1 KiB
Plaintext
Raw Normal View History

2014-10-30 02:07:13 +03:00
|%
++ sign
$% $: %a
$% [%went p=ship q=cape]
[%init p=@p]
== == ==
2015-01-20 00:54:49 +03:00
++ began-args ,[his=@p tic=@p eny=@t ges=gens ~]
2014-10-30 02:07:13 +03:00
--
::
!:
2015-01-12 04:13:34 +03:00
::::
::
2014-10-30 02:07:13 +03:00
|_ [hid=hide %0 ust=bone his=@p mac=mace]
2015-01-10 05:21:25 +03:00
++ peer ,_`.
2014-11-01 03:53:11 +03:00
++ poke-began-args
|= [ost=bone you=ship began-args]
=+ bur=(shax :(mix (jam ges) eny))
2014-10-30 02:07:13 +03:00
=+ loy=(bruw 2.048 bur)
2014-11-01 03:53:11 +03:00
:_ +>.$(ust ost, his his, mac [0 sec:ex:loy]~)
2014-10-30 02:07:13 +03:00
:~ :* ost %pass /ticketing %a %want [our.hid (sein his)] /q/ta
2014-11-01 03:53:11 +03:00
his tic ges pub:ex:loy
2014-10-30 02:07:13 +03:00
==
==
::
++ poke-will
2014-11-21 05:17:05 +03:00
|= [ost=bone you=ship wil=(unit will)]
:_ +>.$
?~ wil
[ust %give %mean ~ %rejected ~]~
:~ [ust %pass / %a %cash his mac u.wil]
[ust %pass / %c %plug our.hid %main (sein our.hid) %main]
[ust %pass / %c %plug our.hid %arvo (sein our.hid) %arvo]
[ust %pass / %c %plug our.hid %try (sein our.hid) %try]
[ust %give %nice ~]
==
2014-10-30 02:07:13 +03:00
::
++ pour
|= [ost=bone pax=path sih=*]
=+ sih=((soft sign) sih) :: seem to get blits
?~ sih `+>.$
:_ +>.$
?- +<.u.sih
%init [ost %give +.u.sih]~
2014-11-21 05:17:05 +03:00
%went ~
2014-10-30 02:07:13 +03:00
==
::
--