2014-09-23 21:11:59 +04:00
|
|
|
:: %kahn, social state
|
|
|
|
|
::
|
|
|
|
|
:::: /hoon/kahn
|
|
|
|
|
::
|
|
|
|
|
!? 164
|
|
|
|
|
::::
|
|
|
|
|
|= pit=vase
|
|
|
|
|
=> =~
|
|
|
|
|
:: structures
|
|
|
|
|
|%
|
|
|
|
|
++ axle :: %kahn state
|
|
|
|
|
$: %0 ::
|
2014-11-02 01:13:18 +03:00
|
|
|
big=(unit ship) :: main ship, freeze
|
|
|
|
|
all=(unit axel) :: state once big
|
2014-09-23 21:11:59 +04:00
|
|
|
== ::
|
|
|
|
|
++ axel :: all social state
|
2014-11-02 01:13:18 +03:00
|
|
|
$: rod=(list ship) :: leadership upward
|
|
|
|
|
myn=(map ship girl) :: contacts
|
|
|
|
|
cir=(map ,@tas clan) :: contact groups
|
|
|
|
|
nac=(map narc ship) :: foreign to home
|
|
|
|
|
wyl=will :: cryptowill
|
|
|
|
|
== ::
|
2014-09-23 21:11:59 +04:00
|
|
|
++ axon :: all descendants
|
2014-11-02 01:13:18 +03:00
|
|
|
$: [%a p=hulk q=hulk r=hulk s=hulk t=hulk] :: zeppelin
|
|
|
|
|
[%b p=hulk q=hulk r=hulk s=hulk] :: blimp
|
|
|
|
|
[%c p=hulk q=hulk r=hulk] :: balloon
|
|
|
|
|
[%d p=hulk q=hulk] :: drone
|
|
|
|
|
[%e p=hulk] :: bird
|
2014-09-23 21:11:59 +04:00
|
|
|
== ::
|
|
|
|
|
++ clan :: ranked group
|
2014-11-02 01:13:18 +03:00
|
|
|
$: pec=rank :: rank conferred
|
2014-09-23 21:11:59 +04:00
|
|
|
who=(set ship) :: members
|
|
|
|
|
== ::
|
|
|
|
|
++ gift :: out result <-$
|
2014-11-02 01:13:18 +03:00
|
|
|
$: [%step p=ship q=girl] :: change contact
|
|
|
|
|
== ::
|
2014-09-23 21:11:59 +04:00
|
|
|
++ girl :: daughter record
|
|
|
|
|
$: hop=pony :: status
|
|
|
|
|
tip=rank :: rank
|
2014-11-02 01:13:18 +03:00
|
|
|
fig=(set narc) :: home to foreign
|
|
|
|
|
gor=(set ,@tas) :: in groups
|
|
|
|
|
out=(unit ship) :: exported to
|
|
|
|
|
wyl=will :: cryptowill
|
2014-09-23 21:11:59 +04:00
|
|
|
== ::
|
2014-11-02 01:13:18 +03:00
|
|
|
++ hulk (map ship girl) :: social state
|
2014-09-23 21:11:59 +04:00
|
|
|
++ kiss :: change
|
2014-11-02 01:13:18 +03:00
|
|
|
$: [%lead p=(list ship)] :: set leadership
|
|
|
|
|
[%tact p=ship q=girl] :: set contact
|
|
|
|
|
[%will p=will] :: set will
|
|
|
|
|
== ::
|
|
|
|
|
++ mojo ?(%a %b %c %d %e) :: ship rank
|
2014-09-23 21:11:59 +04:00
|
|
|
++ trigger
|
|
|
|
|
$: (set ship)
|
|
|
|
|
(set clan)
|
|
|
|
|
(set rank)
|
|
|
|
|
(set pony)
|
|
|
|
|
==
|
|
|
|
|
++ action
|
|
|
|
|
$: %warm -> %cold
|
|
|
|
|
%cold -> %here
|
|
|
|
|
%cold -> %fake
|
|
|
|
|
%cold -> %free
|
|
|
|
|
* -> %dead
|
|
|
|
|
* -> %left
|
|
|
|
|
*: tip
|
|
|
|
|
*: add, subtract fig
|
|
|
|
|
*: add, subtract gor
|
|
|
|
|
adopt: external to free
|
|
|
|
|
==
|
|
|
|
|
++ narc path :: contact path
|
2014-11-02 01:13:18 +03:00
|
|
|
++ pony :: contacts status
|
2014-09-23 21:11:59 +04:00
|
|
|
$? %cold :: virginal
|
|
|
|
|
%dead :: inoperative
|
|
|
|
|
%fake :: virtual
|
|
|
|
|
%free :: exported
|
|
|
|
|
%here :: hosted
|
|
|
|
|
%left :: divorced
|
|
|
|
|
%warm :: reserved
|
|
|
|
|
== ::
|
2014-11-02 01:13:18 +03:00
|
|
|
++ rank :: privilege ring
|
2014-09-23 21:11:59 +04:00
|
|
|
$? %0 :: enemy
|
|
|
|
|
%1 :: guest
|
|
|
|
|
%2 :: customer/vendor
|
|
|
|
|
%3 :: member/employee
|
|
|
|
|
%4 :: admin/officer
|
|
|
|
|
%5 :: self/god
|
|
|
|
|
== ::
|
|
|
|
|
-- ::
|
|
|
|
|
. ==
|
|
|
|
|
=| axle
|
|
|
|
|
=* lex -
|
|
|
|
|
|= [now=@da eny=@ ski=sled] :: activate
|
|
|
|
|
^? :: opaque core
|
|
|
|
|
|% ::
|
|
|
|
|
++ call :: request
|
|
|
|
|
|= [hen=duct hic=(hypo (hobo kiss))]
|
|
|
|
|
^- [p=(list move) q=_..^$]
|
|
|
|
|
=> .(q.hic ?.(?=(%soft -.q.hic) q.hic ((hard kiss) p.q.hic)))
|
|
|
|
|
!!
|
|
|
|
|
::
|
|
|
|
|
++ doze
|
|
|
|
|
|= [now=@da hen=duct]
|
|
|
|
|
^- (unit ,@da)
|
|
|
|
|
~
|
|
|
|
|
::
|
|
|
|
|
++ load :: highly forgiving
|
|
|
|
|
|= old=*
|
|
|
|
|
=+ lox=((soft axle) old)
|
|
|
|
|
^+ ..^$
|
|
|
|
|
?~ lox
|
|
|
|
|
~& %lunt-reset
|
|
|
|
|
..^$
|
|
|
|
|
..^$(+>- u.lox)
|
|
|
|
|
::
|
|
|
|
|
++ scry
|
|
|
|
|
|= [fur=(unit (set monk)) ren=@tas who=ship syd=desk lot=coin tyl=path]
|
|
|
|
|
^- (unit (unit (pair mark ,*)))
|
|
|
|
|
~
|
|
|
|
|
::
|
|
|
|
|
++ stay :: save w/o cache
|
|
|
|
|
`axle`+>-.$
|
|
|
|
|
::
|
|
|
|
|
++ take :: response
|
|
|
|
|
|= [tea=wire hen=duct hin=(hypo noun)]
|
|
|
|
|
!!
|
|
|
|
|
--
|
|
|
|
|
|
