2013-10-16 06:24:12 +04:00
|
|
|
!:
|
2013-11-26 23:28:15 +04:00
|
|
|
:: /=main=/bin/tach/hoon
|
2013-10-16 06:24:12 +04:00
|
|
|
::
|
2013-11-26 23:28:15 +04:00
|
|
|
=> %= .
|
|
|
|
+
|
|
|
|
=> +
|
|
|
|
=> ^/===/lib/pony
|
|
|
|
=> ^/===/lib/chat
|
|
|
|
=> |%
|
|
|
|
++ chat
|
|
|
|
%+ cook |=(a=^chat a)
|
|
|
|
;~ pose
|
|
|
|
(cold [%how ~] wut)
|
|
|
|
(cold [%who ~] tis)
|
|
|
|
(cold [%out ~] zap)
|
|
|
|
;~(pfix pam (stag %all (stag %& mess)))
|
|
|
|
;~(pfix bar (stag %all (stag %| mess)))
|
|
|
|
(stag %say ;~(plug ;~(pfix sig fed:ag) ;~(pfix ace mess)))
|
|
|
|
(stag %def mess)
|
|
|
|
==
|
|
|
|
::
|
|
|
|
++ expn
|
|
|
|
%- sear
|
|
|
|
:_ text
|
|
|
|
|= a=@t
|
|
|
|
^- (unit ,[p=@t q=tank])
|
|
|
|
=+ hun=(rush a wide:vast)
|
2013-12-26 21:12:07 +04:00
|
|
|
?~ hun ~
|
2013-11-26 23:28:15 +04:00
|
|
|
?~(a ~ [~ a (sell (slap seed u.hun))])
|
|
|
|
::
|
|
|
|
++ mess
|
|
|
|
%+ cook |=(a=^mess a)
|
|
|
|
;~ pose
|
|
|
|
(stag %do ;~(pfix pat text))
|
|
|
|
(stag %ex ;~(pfix hax expn))
|
|
|
|
(stag %qu text)
|
|
|
|
==
|
|
|
|
++ text (boss 256 (star ;~(pose (shim 32 126) (shim 128 255))))
|
|
|
|
--
|
|
|
|
|%
|
|
|
|
++ 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}{nym} {(trip p.dum)}"] q.dum ~]
|
|
|
|
%qu [%leaf "{chr}{nym}: {(trip p.dum)}"]
|
|
|
|
==
|
|
|
|
--
|
|
|
|
==
|
|
|
|
=> %= .
|
|
|
|
-
|
|
|
|
:- :* bud=(sein `@p`-<) :: chat server
|
2013-12-21 06:45:17 +04:00
|
|
|
oot=_@ud :: outstanding, server
|
2013-11-26 23:28:15 +04:00
|
|
|
tod=*(map ,@p ,@ud) :: outstanding, friend
|
|
|
|
giz=*(list gift) :: stuff to send
|
|
|
|
sad=`sand`[%& &] :: default state
|
2013-12-21 06:45:17 +04:00
|
|
|
wak=_@da :: next wakeup
|
2013-11-26 23:28:15 +04:00
|
|
|
dun=| :: done
|
|
|
|
==
|
|
|
|
[who=`@p`-< how=`path`->]
|
|
|
|
==
|
2013-10-16 06:24:12 +04:00
|
|
|
|= [est=time *]
|
|
|
|
|= ~
|
2013-11-26 23:28:15 +04:00
|
|
|
=. wak est
|
|
|
|
|- ^- bowl
|
|
|
|
=< abet:init
|
|
|
|
|%
|
|
|
|
++ abet `bowl`[(flop giz) ?:(dun ~ [~ hope vent(giz ~)])]
|
|
|
|
++ hope :: wait for events
|
|
|
|
=< apex
|
|
|
|
|% ++ apex ^- (list slip)
|
|
|
|
;: weld
|
|
|
|
buds
|
|
|
|
pals
|
|
|
|
regs
|
|
|
|
==
|
|
|
|
::
|
|
|
|
++ buds ^- (list slip)
|
|
|
|
?: =(0 oot) ~
|
|
|
|
[[/re [%ow ~]] ~]
|
|
|
|
::
|
|
|
|
++ pals ^- (list slip)
|
|
|
|
=| alx=(list slip)
|
|
|
|
|- ^+ alx
|
|
|
|
?~ tod alx
|
|
|
|
%= $
|
|
|
|
tod r.tod
|
|
|
|
alx %= $
|
2013-12-09 01:23:03 +04:00
|
|
|
tod l.tod
|
2013-11-26 23:28:15 +04:00
|
|
|
alx :_(alx [[%ra (scot %p p.n.tod) ~] [%ow ~]])
|
|
|
|
==
|
|
|
|
==
|
|
|
|
::
|
|
|
|
++ regs ^- (list slip)
|
|
|
|
:~ [/oy [%lq %oy]]
|
|
|
|
[/wa [%wa wak]]
|
|
|
|
[/ya [%lq %ya]]
|
|
|
|
^- slip
|
|
|
|
:- /up
|
|
|
|
:+ %up %text
|
|
|
|
:_ ""
|
|
|
|
=+ wyt=?:(?=(& -.sad) !=(0 oot) (~(has by tod) p.sad))
|
|
|
|
%+ weld
|
|
|
|
?:(?=(& -.sad) ?:(p.sad "&" "|") (scow %p p.sad))
|
|
|
|
?:(wyt "... " " ")
|
|
|
|
==
|
|
|
|
--
|
|
|
|
::
|
|
|
|
++ init (joke:(joke ~ [%who ~]) ~ [%ego est]) :: initial actions
|
|
|
|
++ joke :: send message
|
|
|
|
|= [hur=(unit ,@p) msg=*]
|
|
|
|
^+ +>
|
|
|
|
?~ hur
|
|
|
|
+>(oot +(oot), giz :_(giz [%sq bud %yo /re msg]))
|
|
|
|
%= +>
|
|
|
|
giz :_(giz [%sq u.hur %ya [%ra (scot %p u.hur) ~] msg])
|
|
|
|
tod =+ dut=(~(get by tod) u.hur)
|
|
|
|
(~(put by tod) u.hur ?~(dut 1 +(u.dut)))
|
|
|
|
==
|
|
|
|
::
|
|
|
|
++ nice :: got response
|
|
|
|
|= [hur=(unit ,@p) kay=cape]
|
|
|
|
^+ +>
|
|
|
|
=. +>
|
|
|
|
?~ hur
|
|
|
|
+>(oot (dec oot))
|
|
|
|
=+ dyt=(need (~(get by tod) u.hur))
|
|
|
|
%_ +>.$
|
2013-12-09 01:23:03 +04:00
|
|
|
tod
|
|
|
|
?: =(1 dyt)
|
|
|
|
(~(del by tod) u.hur)
|
2013-11-26 23:28:15 +04:00
|
|
|
(~(put by tod) u.hur (dec dyt))
|
|
|
|
==
|
|
|
|
?- kay
|
|
|
|
%good +>
|
|
|
|
%dead (show %leaf "server {(scow %p ?~(hur bud u.hur))} choked")
|
|
|
|
==
|
|
|
|
::
|
|
|
|
++ priv :: private message
|
2013-12-09 01:23:03 +04:00
|
|
|
|= [her=@p mes=^mess]
|
2013-11-26 23:28:15 +04:00
|
|
|
^+ +>
|
|
|
|
(show (rend "" (trip (numb her est)) mes))
|
|
|
|
::
|
|
|
|
++ said :: server message
|
|
|
|
|= [her=@p duz=(list zong)]
|
|
|
|
^+ +>
|
|
|
|
?~ duz +>
|
|
|
|
%= $
|
|
|
|
duz t.duz
|
|
|
|
+>
|
|
|
|
%- show
|
|
|
|
?- -.i.duz
|
|
|
|
%all (rend ?:(=(%white p.i.duz) "& " "| ") (trip q.q.i.duz) r.i.duz)
|
|
|
|
%new [%leaf "{(trip q.p.i.duz)} is in the building"]
|
|
|
|
%out [%leaf "{(trip q.p.i.duz)} has left the building"]
|
|
|
|
%who [%rose [", " "" ""] (turn p.i.duz |=(a=user [%leaf (trip q.a)]))]
|
2013-10-16 06:24:12 +04:00
|
|
|
==
|
2013-11-26 23:28:15 +04:00
|
|
|
==
|
|
|
|
::
|
|
|
|
++ shew |=(tax=(list tank) +>(giz [[%lo tax] giz])) :: print to screen
|
2013-12-09 01:23:03 +04:00
|
|
|
++ show |=(tan=tank +>(giz [[%la tan] giz])) :: print to screen
|
2013-11-26 23:28:15 +04:00
|
|
|
++ take :: alarm event
|
|
|
|
|- ^+ +
|
|
|
|
=. wak (add ~m1 (max wak est))
|
|
|
|
?.(=(0 oot) + (joke ~ `zing`[%ego est]))
|
|
|
|
::
|
|
|
|
++ toke :: user action
|
|
|
|
|= txt=@t
|
|
|
|
^+ +>
|
|
|
|
?: =(0 txt) +>
|
|
|
|
=+ rey=(rush txt chat)
|
2013-12-09 01:23:03 +04:00
|
|
|
?~ rey
|
2013-11-26 23:28:15 +04:00
|
|
|
(show %leaf "invalid input")
|
2013-12-09 01:23:03 +04:00
|
|
|
?- -.u.rey
|
2013-11-26 23:28:15 +04:00
|
|
|
%all (joke(sad [%& p.u.rey]) ~ `zing`u.rey)
|
|
|
|
%def %- joke
|
|
|
|
?: ?=(& -.sad)
|
|
|
|
[~ `zing`[%all p.sad p.u.rey]]
|
|
|
|
[[~ p.sad] `^mess`p.u.rey]
|
|
|
|
%how (shew (turn (lore ^:@/===doc%/help/txt) |=(a=@t [%leaf (trip a)])))
|
|
|
|
%out (show(dun &) %leaf "thanks for chatting yo")
|
|
|
|
%say (joke(sad [%| p.u.rey]) [~ p.u.rey] `^mess`q.u.rey)
|
|
|
|
%who (joke ~ `zing`u.rey)
|
|
|
|
==
|
|
|
|
::
|
|
|
|
++ vent :: handle event
|
|
|
|
|= [now=@da pax=path nut=note]
|
|
|
|
^- bowl
|
|
|
|
:: ~& [%vent now pax nut]
|
|
|
|
=. est now
|
|
|
|
=< abet
|
|
|
|
?+ -.pax +>
|
|
|
|
%oy ?>(?=(%lq -.nut) (said p.nut ((hard (list zong)) r.nut)))
|
|
|
|
%re ?>(?=(%ow -.nut) (nice ~ p.nut))
|
2014-03-14 21:49:21 +04:00
|
|
|
%ra ?> &(?=(%ow -.nut) ?=(^ t.pax))
|
2013-12-26 21:12:07 +04:00
|
|
|
(nice [~ (need (slaw %p i.t.pax))] p.nut)
|
2013-11-26 23:28:15 +04:00
|
|
|
%up ?>(?=(%up -.nut) (toke p.nut))
|
|
|
|
%wa ?>(?=(%wa -.nut) take)
|
|
|
|
%ya ?>(?=(%lq -.nut) (priv p.nut ((hard ^mess) r.nut)))
|
|
|
|
==
|
|
|
|
--
|