mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-23 23:12:04 +03:00
34 lines
677 B
Plaintext
34 lines
677 B
Plaintext
|
!:
|
||
|
|_ [hid=hide ~]
|
||
|
++ poke-ticket-args
|
||
|
|= [ost=bone you=ship her=@p num=?(~ [p=@ud ~])]
|
||
|
:_ +>.$
|
||
|
=+ n=?~(num 1 p.num)
|
||
|
=+ ^= sep ^- @
|
||
|
=+ mir=(clan her)
|
||
|
?+ mir ~|(%ticket-clan !!)
|
||
|
%king (bex 8)
|
||
|
%duke (bex 16)
|
||
|
%earl (bex 32)
|
||
|
==
|
||
|
:- [ost %give %nice ~]
|
||
|
|-
|
||
|
?: ?=(0 n) ~
|
||
|
=+ ^= tic
|
||
|
(,@p .^(%a (scot %p our.hid) %tick (scot %da lat.hid) (scot %p her) ~))
|
||
|
%+ welp
|
||
|
(spam ost "{<her>}: {<tic>}")
|
||
|
$(her (add sep her), n (dec n))
|
||
|
++ spam
|
||
|
|= [ost=bone msg=tape]
|
||
|
%+ turn (~(tap by sup.hid))
|
||
|
|= [ost=bone *]
|
||
|
:^ ost %give %rush
|
||
|
:- %tang :_ ~
|
||
|
leaf/msg
|
||
|
++ peer
|
||
|
|=
|
||
|
*
|
||
|
`+>
|
||
|
--
|