mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-15 18:12:47 +03:00
100 lines
2.3 KiB
Plaintext
100 lines
2.3 KiB
Plaintext
!:
|
|
:: /=main=/bin/chat/hoon
|
|
::
|
|
=> %= .
|
|
-
|
|
:- :* bud=(sein `@p`-<)
|
|
pig=@da
|
|
==
|
|
[who=`@p`-< how=`path`->]
|
|
::
|
|
+
|
|
=> +
|
|
=> ^/===/lib/pony
|
|
=> ^/===/lib/chat
|
|
=> |%
|
|
++ text (boss 256 (star qit))
|
|
++ mess
|
|
%+ cook |=(a=^mess a)
|
|
;~ pose
|
|
(stag %do ;~(pfix pat text))
|
|
(stag %qu text)
|
|
==
|
|
++ chat
|
|
%+ cook |=(a=^chat a)
|
|
;~ pose
|
|
(cold [%how ~] wut)
|
|
(cold [%who ~] tis)
|
|
(stag %say ;~(plug ;~(pfix sig fed:ag) ;~(pfix ace mess)))
|
|
(stag %all (stag %& mess))
|
|
==
|
|
--
|
|
|%
|
|
++ rend
|
|
|= [chr=tape nym=tape dum=^mess]
|
|
^- tank
|
|
?- -.dum
|
|
%do =+ msg=?:(=(0 p.dum) "remains quietly present" (trip p.dum))
|
|
[%leaf "{chr}{nym} {(trip p.dum)}"]
|
|
%ex [%rose [" " "" ""] [%leaf "{chr}{(trip p.dum)}"] q.dum ~]
|
|
%qu [%leaf "{chr}{nym}: {(trip p.dum)}"]
|
|
==
|
|
--
|
|
==
|
|
|= [est=time *]
|
|
|= ~
|
|
=. pig est
|
|
|- ^- bowl
|
|
:- ~ :- ~
|
|
:- ^- (list slip)
|
|
:~ [/oy [%lq %oy]]
|
|
[/re [%ow ~]]
|
|
[/up [%up %text ": " ""]]
|
|
[/wa [%wa pig]]
|
|
[/ya [%lq %ya]]
|
|
==
|
|
|= [now=@da pax=path nut=note]
|
|
^- bowl
|
|
%- pogo
|
|
:_ ?.(=(/wa pax) ^$ ^$(pig (add ~s10 pig)))
|
|
^- bowl
|
|
?+ pax !!
|
|
/oy
|
|
?> ?=(%lq -.nut)
|
|
=+ duz=((hard (list zong)) r.nut)
|
|
:_ ~
|
|
%+ turn duz
|
|
|= dum=zong
|
|
:- %la
|
|
^- tank
|
|
?- -.dum
|
|
%all (rend ?:(=(%white p.dum) "& " "| ") (trip q.q.dum) r.dum)
|
|
%new [%leaf "{(trip q.p.dum)} is in the building"]
|
|
%out [%leaf "{(trip q.p.dum)} has left the building"]
|
|
%who [%palm [" " "" "" ""] (turn p.dum |=(a=user [%leaf (trip q.a)]))]
|
|
==
|
|
::
|
|
/re ?>(?=(%ow -.nut) [~ ~])
|
|
::
|
|
/up
|
|
?> ?=(%up -.nut)
|
|
=+ ^= rey ^- (unit ^chat)
|
|
(rush p.nut chat)
|
|
?~ rey
|
|
[[[%la %leaf "invalid command"] ~] ~]
|
|
?: ?=(%how -.u.rey)
|
|
[[[%la %leaf "help file goes here :-|"] ~] ~]
|
|
:_ ~ :_ ~
|
|
^- gift
|
|
:- %sq
|
|
?: ?=(%say -.u.rey)
|
|
[p.u.rey %ya /re q.u.rey]
|
|
[bud %yo /re ^-(zing u.rey)]
|
|
::
|
|
/wa [[`gift`[%sq bud %yo /re `zing`[%ego now]] ~] ~]
|
|
::
|
|
/ya
|
|
?> ?=(%lq -.nut)
|
|
[[[%la (rend "> " (trip (numb p.nut now)) ((hard ^mess) r.nut))] ~] ~]
|
|
==
|