ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 18:12:47 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'radio' of https://github.com/urbit/urbit into radio

Browse Source
This commit is contained in:
Philip C Monk 2014-12-16 21:08:10 -05:00
commit 9e55c9d245
1 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
main/app/radio/core.hook
View File

@ -1,4 +1,4 @@
/- mess,user,users,zing,zong /- mess,user,users,zing,zong,*radio
!: !:
=> |% => |%
++ axle ++ axle
@ -53,6 +53,25 @@
== ==
== ==
:: ::
++ mamed
^- (map span (list telegram))
%- mo %+ turn (~(tap by p.vat))
|= [a=path b=(list zong) c=(map ship ,?)]
=+ =+ (turn a |=(d=span leaf/(trip d)))
par=(crip ~(ram re %rose ["_" ~ ~] -))
:- par
=+ aud=`audience`[[[%& our.hid par] %received] `~]
=+ ^= spe
|= r=_r:*zong ^- speech
?- -.r
%say [%say p.r]
%do [%own p.r]
%exp [%exp p.r [~ q.r]]
==
%+ turn b
|= d=zong ^- telegram
[q.d (sham eny.hid d) aud p.d (spe r.d)]
::
++ poke-zing ++ poke-zing
|= [ost=bone you=ship zig=zing] |= [ost=bone you=ship zig=zing]
^- [(list move) _+>] ^- [(list move) _+>]
@ -69,6 +88,7 @@
|= [ost=bone you=ship ~] |= [ost=bone you=ship ~]
^- [(list move) _+>] ^- [(list move) _+>]
:_ +>.$ :_ +>.$
~& mamed
%+ turn (~(tap by sup.hid)) %+ turn (~(tap by sup.hid))
|= [ost=bone her=ship pax=path] |= [ost=bone her=ship pax=path]
[ost %give %mean ~ %reload leaf/"please quit chat and re-enter" ~] [ost %give %mean ~ %reload leaf/"please quit chat and re-enter" ~]