mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-17 11:51:32 +03:00
663 lines
21 KiB
Plaintext
663 lines
21 KiB
Plaintext
::
|
|
:::: /hook/core/talk/app
|
|
::
|
|
/? 314
|
|
/- *radio
|
|
/+ radio
|
|
::
|
|
::::
|
|
::
|
|
!:
|
|
=> |% :: structures
|
|
++ town :: all client state
|
|
$: live=(unit span) :: present story
|
|
console=terminal :: controlling terminal
|
|
stories=(map span story) :: all stories
|
|
== ::
|
|
++ grip :: subscription state
|
|
|* nub=$+(* *) :: wrapped state
|
|
$| $? %warm :: activated
|
|
%cool :: activating
|
|
%dead :: inoperative
|
|
%cold :: inactive
|
|
== [%live p=nub] :: operating
|
|
++ terminal :: terminal state
|
|
$: present=presence :: presence state
|
|
== ::
|
|
++ story :: persona
|
|
$: link=(grip bridge) :: connection
|
|
count=@ud :: message counter
|
|
mike=(pair ,? (set station)) :: passive/voice
|
|
quiet=? :: !verbose
|
|
past=(list station) :: past received auds
|
|
== ::
|
|
++ bridge :: remote state
|
|
$: xm=config :: configuration
|
|
am=register :: presence
|
|
== ::
|
|
++ work :: general action
|
|
$% [%ask (unit work)] :: help (about)
|
|
[%exp twig] :: compute
|
|
[%mor (list work)] :: sequence
|
|
[%rub work-adjust] :: configure story
|
|
[%say speech] :: publish in voice
|
|
[%who (unit station)] :: show presence
|
|
[%wry work-construct] :: configure system
|
|
== ::
|
|
++ work-adjust :: adjust story
|
|
$% [%dark p=(set ship)] :: toggle blacklist
|
|
[%lite p=(set ship)] :: toggle whitelist
|
|
[%love p=(set station)] :: toggle stations
|
|
[%whom p=? q=(set station)] :: active/voice
|
|
[%wind p=@dr] :: rewind by date
|
|
== ::
|
|
++ work-construct :: configure system
|
|
$% [%make p=span] :: create story
|
|
[%raze p=span] :: destroy story
|
|
[%tune p=span] :: switch to story
|
|
== ::
|
|
++ iron :: terminal output
|
|
$% [%prompt p=cord q=prom r=cord] :: prompt
|
|
[%tang p=(list tank)] :: prettyprintable
|
|
[%txt p=cord] :: simple text
|
|
==
|
|
++ gift
|
|
$% [%mean ares]
|
|
[%nice ~]
|
|
[%rush iron]
|
|
[%rust iron]
|
|
==
|
|
++ hapt ,[p=ship q=path]
|
|
++ move ,[p=bone q=(mold note gift)]
|
|
++ note
|
|
$? $: %g
|
|
$% [%mess p=hapt q=ship r=cage]
|
|
[%nuke p=hapt q=ship]
|
|
[%show p=hapt q=ship r=path]
|
|
== ==
|
|
$: %t
|
|
$% [%wait p=@da]
|
|
== == ==
|
|
++ gall-sign :: subscription result
|
|
$% [%mean p=ares]
|
|
[%nice ~]
|
|
$: %rush
|
|
$= p
|
|
$% [%txt p=cord] :: input text
|
|
[%type p=?] :: typing notify
|
|
== ==
|
|
$: %rust
|
|
$= p
|
|
$% [%txt p=cord]
|
|
[%radio-report p=report]
|
|
== ==
|
|
==
|
|
++ sign
|
|
$? [%g gall-sign] :: from %gall
|
|
$: %t :: from %time
|
|
$% [%wake ~] :: timer wakeup
|
|
== == ==
|
|
--
|
|
!:
|
|
::::
|
|
::
|
|
=> |% :: tools
|
|
++ parse :: command parser
|
|
|= our=ship
|
|
=+ vag=(vang | [&1:% &2:% '0' |3:%])
|
|
|%
|
|
++ come :: keyword command
|
|
|* [a=@tas b=_rule]
|
|
;~((glue (plus ace)) (cold a (jest a)) b)
|
|
::
|
|
++ gone :: parse unit
|
|
|* a=_rule
|
|
;~(pose (stag ~ a) (easy ~))
|
|
::
|
|
++ posh :: parse each
|
|
|* [a=_rule b=_rule]
|
|
;~(pose (stag %& a) (stag %| b))
|
|
::
|
|
++ ship ;~(pfix sig fed:ag) :: ship
|
|
++ shiz :: ship set
|
|
%+ cook
|
|
|=(a=(list ^ship) (~(gas in *(set ^ship)) a))
|
|
(most ;~(plug com (star ace)) ship)
|
|
::
|
|
++ stat :: station
|
|
%+ posh
|
|
;~ plug
|
|
ship
|
|
;~(pose ;~(pfix fas urs:ab) (easy (main our)))
|
|
==
|
|
;~ pfix ket
|
|
;~ pose
|
|
;~(pfix pat (stag %twitter urs:ab))
|
|
==
|
|
==
|
|
::
|
|
++ staz :: station set
|
|
%+ cook
|
|
|=(a=(list station) (~(gas in *(set station)) a))
|
|
(most ;~(plug com (star ace)) stat)
|
|
::
|
|
++ step :: rollback interval
|
|
%+ sear
|
|
|= a=coin
|
|
?. ?=([%$ %dr @] a) ~
|
|
(some `@dr`+>.a)
|
|
nuck:so
|
|
::
|
|
++ text (boss 256 (star prn)) :: utf8 text
|
|
++ tome
|
|
%+ stag %lin
|
|
;~ pose
|
|
(stag %| ;~(pfix pat text))
|
|
(stag %& text)
|
|
==
|
|
::
|
|
++ work :: all commands
|
|
%+ knee *^work |. ~+
|
|
;~ pose
|
|
;~ pfix zap
|
|
%+ stag %wry
|
|
;~ pose
|
|
(come %make urs:ab)
|
|
(come %raze urs:ab)
|
|
(come %tune urs:ab)
|
|
==
|
|
==
|
|
::
|
|
;~ pfix cen
|
|
%+ stag %rub
|
|
;~ pose
|
|
(come %dark shiz)
|
|
(come %lite shiz)
|
|
(come %whom (stag %& staz))
|
|
(come %wind step)
|
|
==
|
|
==
|
|
::
|
|
;~(pfix wut (stag %ask (gone work)))
|
|
;~(pfix tis (stag %who (gone stat)))
|
|
;~(pfix cen (stag %exp wide:vag))
|
|
::
|
|
%+ cook
|
|
|= [a=(set station) b=(unit ,[%lin p=? q=@t])]
|
|
^- ^work
|
|
=. b ?~(b ~ ?:(=(0 q.u.b) ~ b))
|
|
=+ c=[%rub %whom %& a]
|
|
?~(b c [%mor c [%say u.b] ~])
|
|
;~ plug
|
|
staz
|
|
(gone ;~(pfix (star ace) tome))
|
|
==
|
|
::
|
|
(stag %say tome)
|
|
==
|
|
--
|
|
::
|
|
++ swatch :: print station set
|
|
|= [our=ship tou=(set station)]
|
|
=+ tuo=(~(tap in tou))
|
|
|- ^- tape
|
|
?~ tuo ~
|
|
=+ ted=$(tuo t.tuo)
|
|
=+ ^= ind ^- tape
|
|
?- -.i.tuo
|
|
%& =+ sip=(scow %p p.p.i.tuo)
|
|
?: =((main p.p.i.tuo) q.p.i.tuo)
|
|
sip
|
|
:(welp sip "/" (trip q.p.i.tuo))
|
|
%| ['^' '@' (trip p.p.i.tuo)]
|
|
==
|
|
?~ ted ind
|
|
(welp ind `tape`[',' ' ' ted])
|
|
::
|
|
++ stog :: toggle set
|
|
|* [tog=(set) tag=(set)]
|
|
=+ got=(~(tap in tog))
|
|
|- ^+ tag
|
|
?~ got tag
|
|
%= $
|
|
got t.got
|
|
tag ?: (~(has in tag) i.got)
|
|
(~(del in tag) i.got)
|
|
(~(put in tag) i.got)
|
|
==
|
|
--
|
|
!:
|
|
::::
|
|
::
|
|
|_ [hid=hide town]
|
|
++ transmit :: radio command
|
|
|= [cod=command moz=(list move)]
|
|
^- (list move)
|
|
:_ moz
|
|
:* 0 %pass /command
|
|
%g %mess [our.hid /radio] our.hid
|
|
[%radio-command !>(cod)]
|
|
==
|
|
::
|
|
++ subscribe :: radio show
|
|
|= [way=path hoc=path moz=(list move)]
|
|
^- (list move)
|
|
:_(moz [0 %pass way %g %show [our.hid /radio] our.hid hoc])
|
|
::
|
|
++ unsubscribe :: radio nuke
|
|
|= [way=path moz=(list move)]
|
|
^- (list move)
|
|
:_(moz [0 %pass way %g %nuke [our.hid /radio] our.hid])
|
|
::
|
|
++ render :: send to console
|
|
|= [rod=iron moz=(list move)]
|
|
=+ oss=(~(tap in (~(get ju pus.hid) /out)))
|
|
|- ^- (list move)
|
|
?~ oss moz
|
|
[`move`[i.oss %give %rush rod] $(oss t.oss)]
|
|
::
|
|
++ display :: print to console
|
|
|= [tay=(list tank) moz=(list move)]
|
|
(render [%tang tay] moz)
|
|
::
|
|
++ show :: simple show
|
|
|= [tep=tape moz=(list move)]
|
|
(display [%leaf tep]~ moz)
|
|
::
|
|
++ accept :: set prompt
|
|
|= [asq=cord moz=(list move)]
|
|
(render [%prompt asq %text ''] moz)
|
|
::
|
|
++ sy
|
|
|_ $: $: man=span :: u.live
|
|
moz=(list move) :: pending moves
|
|
== ::
|
|
story :: current story
|
|
==
|
|
::
|
|
++ sy-abet :: resolve core
|
|
^- [(list move) _+>]
|
|
[(flop moz) +>(stories (~(put by stories) man +<+))]
|
|
::
|
|
++ sy-subscribe :: story subscribe
|
|
?> =(%cold link)
|
|
=+ cub=?.(=(0 count) (scot %ud count) (scot %da (sub lat.hid ~d1)))
|
|
=. + (sy-message "subscribe <{(trip cub)}>")
|
|
%_ +
|
|
link %cool
|
|
moz ^- (list move)
|
|
:: %^ subscribe /xm/[man] /xm/[man]
|
|
:: %^ subscribe /am/[man] /am/[man]
|
|
%^ subscribe /fm/[man]
|
|
:~ %fm
|
|
man
|
|
?: =(0 count)
|
|
~& [%story-init man `@da`(sub lat.hid ~d1)]
|
|
(scot %da (sub lat.hid ~d1))
|
|
(scot %ud count)
|
|
==
|
|
moz
|
|
==
|
|
::
|
|
++ sy-unsubscribe :: story unsubscribe
|
|
?: =(& ?=(?(%cold %dead) link)) .
|
|
%_ .
|
|
link %cold
|
|
moz :: %+ unsubscribe /xm/[man]
|
|
:: %+ unsubscribe /am/[man]
|
|
(unsubscribe /fm/[man] ~)
|
|
==
|
|
::
|
|
++ sy-serial :: make serial no
|
|
^- [serial _.]
|
|
[(shaf %serial eny.hid) .(eny.hid (shax eny.hid))]
|
|
::
|
|
++ sy-audience :: speech audience
|
|
%- ~(gas by *audience)
|
|
%+ turn `(list station)`[[%& our.hid man] (~(tap in q.mike))]
|
|
|=(a=station [a %pending])
|
|
::
|
|
++ sy-message :: print message
|
|
|= msg=tape
|
|
%_(+> moz (display [%leaf ":{(trip man)}: {msg}"]~ moz))
|
|
::
|
|
++ sy-present
|
|
|= [msg=tape tay=(list tank)]
|
|
=. tay (welp tay `(list tank)`[%leaf "::"]~)
|
|
=. tay :_(tay [%leaf ":{(trip man)}: {msg}:: "])
|
|
%_(+>.$ moz (display (flop tay) moz))
|
|
::
|
|
++ sy-prompt
|
|
|= tou=(set station)
|
|
^- tape
|
|
;: welp
|
|
(scow %p our.hid)
|
|
"/"
|
|
(trip man)
|
|
?~ tou "& "
|
|
:(welp "(" (swatch our.hid tou) ")& ")
|
|
==
|
|
::
|
|
++ sy-voice :: set targets
|
|
|= [pas=? tou=(set station)]
|
|
?: &(!p.mike pas) +>
|
|
%_(+>.$ mike [pas tou], moz (accept (crip (sy-prompt tou)) moz))
|
|
::
|
|
++ sy-rollback
|
|
|= lon=@dr
|
|
!!
|
|
::
|
|
++ sy-work :: run user command
|
|
|= job=work
|
|
^+ +>
|
|
?- -.job
|
|
%ask ~&(%sy-work-ask-stub !!)
|
|
%exp ~&(%sy-work-exp-stub !!)
|
|
%mor
|
|
|- ^+ +>.^$
|
|
?~ +.job +>.^$
|
|
$(+.job t.+.job, +>.^$ ^$(job i.+.job))
|
|
::
|
|
%rub
|
|
?: ?=(%whom +<.job)
|
|
(sy-voice +>.job)
|
|
?: ?=(%wind +<.job)
|
|
~& %rub-wind-stub
|
|
!!
|
|
=+ suz=sy-live
|
|
?~ suz (sy-message "not connected")
|
|
?- +<.job
|
|
%lite sz-abet:(sz-cordon:u.suz [%| +>.job])
|
|
%dark sz-abet:(sz-cordon:u.suz [%& +>.job])
|
|
%love sz-abet:(sz-sources:u.suz +>.job)
|
|
==
|
|
::
|
|
%say
|
|
=^ sir +>.$ sy-serial
|
|
+>.$(moz (transmit [%publish [[sir sy-audience [lat.hid +.job]] ~]] moz))
|
|
::
|
|
%wry ~&(%sy-work-wry !!)
|
|
%who ~&(%sy-work-who-stub !!)
|
|
==
|
|
::
|
|
++ sy-gram :: apply telegram
|
|
|= gam=telegram
|
|
^+ +>
|
|
%= +>
|
|
moz
|
|
%- render
|
|
:_ moz
|
|
^- iron
|
|
=* sta r.q.gam
|
|
?+ -.q.sta ~&([%strange-gram -.q.sta] !!)
|
|
::
|
|
%say [%txt (rap 3 (scot %p p.gam) ': ' p.q.sta ~)]
|
|
%own [%txt (rap 3 (scot %p p.gam) ' ' p.q.sta ~)]
|
|
%lin [%txt (rap 3 (scot %p p.gam) ?:(p.q.sta ': ' ' ') q.q.sta ~)]
|
|
%inv !!
|
|
%exp
|
|
:- %tang
|
|
:_ ~
|
|
:~ %rose
|
|
[" " "" ""]
|
|
[%leaf "{<p.gam>} {(trip p.q.sta)}"]
|
|
(need q.q.sta)
|
|
==
|
|
==
|
|
==
|
|
::
|
|
++ sy-grams :: apply telegrams
|
|
|= [num=@ud gaz=(list telegram)]
|
|
^+ +>
|
|
?: (gth num count)
|
|
(sy-message(count 0) "message gap: {<num>} at {<count>}")
|
|
=. .
|
|
?: =(num count) .
|
|
.(num count, gaz (slag (sub count num) gaz))
|
|
=+ las=(add count (lent gaz))
|
|
|- ^+ +>.^$
|
|
?~ gaz +>.^$(count las)
|
|
$(gaz t.gaz, count +(count), +>.^$ (sy-gram i.gaz))
|
|
::
|
|
++ sy-error :: report error
|
|
|= ars=ares
|
|
%= +>
|
|
moz
|
|
%- display :_ moz
|
|
?~ ars [%leaf "connection error"]~
|
|
[leaf/"disaster: (trip p.u.ars)" q.u.ars]
|
|
==
|
|
::
|
|
++ sy-sign :: subscription sign
|
|
|= res=gall-sign
|
|
^+ +>
|
|
:: ~& [%sy-sign res]
|
|
?- -.res
|
|
%mean
|
|
=. link %dead
|
|
(sy-error p.res)
|
|
::
|
|
%nice :: misordered, ignore
|
|
:: ?. ?=(%cool link)
|
|
:: ~& [%sy-sign-nice-bad link]
|
|
:: +>.$
|
|
::+>(link %warm)
|
|
+>.$
|
|
::
|
|
%rush :: should use, don't
|
|
~&(%sy-sign-rush !!)
|
|
::
|
|
%rust :: direct update
|
|
?: ?=(?(%cold %dead) link)
|
|
~& [%sy-sign-rust-bad `@tas`link]
|
|
+>.$
|
|
?> ?=(%radio-report +<.res)
|
|
?: ?=(%cool link)
|
|
:: XX workaround for inverted nice
|
|
$(link %warm)
|
|
=+ suz=sy-live
|
|
?~ suz (sy-message "not connected")
|
|
sz-abet:(sz-apply:u.suz +>.res)
|
|
==
|
|
::
|
|
++ sy-live :: as connected
|
|
^- (unit ,_sz)
|
|
?: ?=([%live *] link)
|
|
`~(. sz p.link)
|
|
?.(?=(%warm link) ~ `~(. sz *bridge))
|
|
::
|
|
++ sz :: story, connected
|
|
|_ big=bridge
|
|
++ sz-abet %_(+> link [%live big]) :: resolve to ++sy
|
|
++ sz-amok
|
|
|= why=?(%cold %cool %dead %warm)
|
|
%_(+>+> link why)
|
|
::
|
|
++ sz-cordon :: design cordon
|
|
|= con=(ache (set ship) (set ship))
|
|
^+ +>
|
|
=. cordon.xm.big
|
|
?- -.cordon.xm.big
|
|
%& ?- -.con
|
|
%& [%& (stog p.con p.cordon.xm.big)]
|
|
%| con
|
|
==
|
|
%| ?- -.con
|
|
%& con
|
|
%| [%| (stog p.con p.cordon.xm.big)]
|
|
==
|
|
==
|
|
+>.$(moz (transmit [%design man ~ xm.big] moz))
|
|
::
|
|
++ sz-sources :: design sources
|
|
|= src=(set station)
|
|
^+ +>
|
|
=. sources.xm.big (stog src sources.xm.big)
|
|
+>.$(moz (transmit [%design man ~ xm.big] moz))
|
|
::
|
|
++ sz-config :: apply config
|
|
|= cof=config
|
|
=. +>+> (sy-present "config" >cof< ~)
|
|
:: ~& [%sz-config cof]
|
|
%_(+> xm.big cof, +> (sy-voice %& sources.cof))
|
|
::
|
|
++ sz-group :: apply register
|
|
|= rex=register
|
|
%_(+> am.big rex)
|
|
::
|
|
++ sz-apply :: apply report
|
|
|= rad=report
|
|
^+ +>
|
|
?- -.rad
|
|
%house ~&(%sz-apply-house !!)
|
|
%grams +>(+> (sy-grams +.rad))
|
|
%config (sz-config +.rad)
|
|
%group (sz-group +.rad)
|
|
==
|
|
--
|
|
--
|
|
++ ny :: top configuration
|
|
|_ moz=(list move)
|
|
++ ny-abet :: resolve core
|
|
^- [(list move) _+>]
|
|
[(flop moz) +>]
|
|
::
|
|
++ ny-amid :: integrate story
|
|
|= nov=_sy
|
|
=^ zom +>+> sy-abet:nov
|
|
+>.$(moz (flop zom))
|
|
::
|
|
++ ny-tune :: connect to story
|
|
|= man=span
|
|
^+ +>
|
|
?: =(`man live)
|
|
+>(moz (show "already tuned to {(trip man)}" moz))
|
|
?. (~(has by stories) man)
|
|
+>(moz (show "no story {(trip man)}" moz))
|
|
=. +> ny-stop
|
|
=. live `man
|
|
:: ~& [%tune-start man]
|
|
(ny-amid sy-subscribe:(need (novel moz)))
|
|
::
|
|
++ ny-stop :: disconnect story
|
|
^+ .
|
|
?~ live .
|
|
(ny-amid(live ~) sy-unsubscribe:(need (novel moz)))
|
|
::
|
|
++ ny-tell :: hear from server
|
|
|= sap=(set span)
|
|
^+ +>
|
|
=. +> ?.(&(?=(^ live) !(~(has in sap) u.live)) +> ny-stop)
|
|
=. stories
|
|
=+ ros=(skim (~(tap by stories)) |=([a=span *] (~(has in sap) a)))
|
|
=+ pas=(~(tap in sap))
|
|
%- ~(gas by *(map span story))
|
|
|- ^- (list (pair span story))
|
|
?~ pas ros
|
|
=+ sor=$(pas t.pas)
|
|
?:((~(has by stories) i.pas) sor [[i.pas *story] sor])
|
|
?^ live +>.$
|
|
?~ stories +>.$
|
|
?: (~(has by `(map span story)`stories) (main our.hid))
|
|
(ny-tune (main our.hid))
|
|
(ny-tune p.n.stories)
|
|
::
|
|
++ ny-work :: user command
|
|
|= jaw=work-construct
|
|
^+ +>
|
|
?- -.jaw
|
|
%raze +>(moz (transmit [%design p.jaw ~] moz))
|
|
%make +>(moz (transmit [%design p.jaw [~ ~ %| ~]] moz))
|
|
%tune (ny-tune p.jaw)
|
|
==
|
|
--
|
|
::
|
|
++ novel :: live story
|
|
|= moz=(list move)
|
|
^- (unit ,_sy)
|
|
?~ live ~
|
|
`~(. sy [u.live moz] (~(got by stories) u.live))
|
|
::
|
|
++ peer
|
|
|= [ost=bone you=ship pax=path]
|
|
^- [(list move) _+>]
|
|
[~ +>.$]
|
|
::
|
|
++ pour-shell
|
|
|= txt=cord
|
|
^- [(list move) _+>]
|
|
=+ jub=(rush txt work:(parse our.hid))
|
|
?~ jub
|
|
[(display [%leaf "invalid input"]~ ~) +>.$]
|
|
?: ?=(%wry -.u.jub)
|
|
ny-abet:(ny-work:ny +.u.jub)
|
|
=+ nuv=(novel ~)
|
|
?~ nuv [(display [%leaf "not tuned to any story"]~ ~) +>.$]
|
|
sy-abet:(sy-work:u.nuv u.jub)
|
|
::
|
|
++ pour
|
|
|= [ost=bone pax=path sih=*]
|
|
^- [(list move) _+>]
|
|
=> .(sih ((hard sign) sih))
|
|
:: ~& talk-pour/sih
|
|
?~ pax ~& talk-pour-strange-path/pax !!
|
|
?+ i.pax ~& talk-pour-strange-path/pax
|
|
~& sign/sih
|
|
!!
|
|
%command
|
|
?+ +<.sih !!
|
|
%nice [~ +>.$]
|
|
%mean ~&([%pour-mean-cmd-in +>.sih] !!)
|
|
==
|
|
%cmd-in
|
|
?+ +<.sih !!
|
|
%nice [~ +>.$]
|
|
%mean ~&([%pour-mean-cmd-in +>.sih] !!)
|
|
?(%rush %rust)
|
|
?> ?=(%txt -.p.sih)
|
|
(pour-shell p.p.sih)
|
|
==
|
|
::
|
|
%cmd-ac
|
|
[~ +>.$]
|
|
::
|
|
%server
|
|
?+ +<.sih !!
|
|
%nice [~ +>.$]
|
|
%mean ~&(%talk-server-crash !!)
|
|
?(%rush %rust)
|
|
?> ?=([%radio-report %house *] p.sih)
|
|
ny-abet:(ny-tell:ny +.p.p.sih)
|
|
==
|
|
::
|
|
%time
|
|
:_ +>.$
|
|
:: ~& [%talk-pour-time lat.hid `@da`(add ~s10 lat.hid)]
|
|
:~ [0 %pass /time %t %wait (add ~s10 lat.hid)]
|
|
==
|
|
::
|
|
%fm
|
|
?> ?=([@ *] t.pax)
|
|
?. &(?=(^ live) =(u.live i.t.pax))
|
|
~& [%talk-wrong-story live i.t.pax]
|
|
[~ +>.$]
|
|
?> ?=(%g -.sih)
|
|
sy-abet:(sy-sign:(need (novel ~)) +.sih)
|
|
==
|
|
::
|
|
++ poke-talk-args
|
|
|= [ost=bone you=ship arg=~]
|
|
^- [(list move) _+>]
|
|
:_ +>
|
|
:~ [0 %pass /cmd-in %g %show [our.hid +.imp.hid] you /in/[-.imp.hid]]
|
|
[0 %pass /time %t %wait (add ~s10 lat.hid)]
|
|
[0 %pass /cmd-ac %g %show [our.hid +.imp.hid] you /active/[-.imp.hid]]
|
|
^- move
|
|
:* 0 %pass /server
|
|
%g %show
|
|
[our.hid /radio] our.hid
|
|
/
|
|
==
|
|
==
|
|
--
|