Adjust %sith card for secret/ticket.

This commit is contained in:
C. Guy Yarvin 2017-06-10 22:40:47 -07:00
parent ad2aa8b197
commit 8b93357182
3 changed files with 8 additions and 8 deletions

View File

@ -1183,15 +1183,15 @@
==
:: :: user:am
++ user :: instantiate citizen
|= {hen/duct her/ship ges/gens tic/@uw ger/@uw}
|= {hen/duct her/ship ges/gens tic/@uw sec/@uw}
^- {p/(list boon) q/fort}
::
:: fak: fake network
:: loy: keypair core
::
=/ fak =(0 `@`ger)
~& [%user fak ger]
=+ loy=(pit:nu:crub 512 ?:(fak our ger))
=/ fak =(0 `@`sec)
~& [%user fak sec]
=+ loy=(pit:nu:crub 512 ?:(fak our sec))
=+ pub=`pass`pub:ex:loy
:: ?< &(!fak !=((zeno her) fig:ex:loy))
=+ mac=`mace`[[0 sec:ex:loy] ~]
@ -1211,7 +1211,7 @@
::
=+ key=(shax tic) :: XX real stretch
=+ dad=(sein:title her)
~& [%user-auth her `@p`ger `@p`(mug key)]
~& [%user-auth her `@p`sec `@p`(mug key)]
=+ gus=(need (~(us go ton.fox) her))
=+ diz=(wasc:(myx:gus dad) key)
=. gus (nux:gus diz)
@ -2043,7 +2043,7 @@
%king [%king (scot %p p.kyz)]
%pawn [%pawn ~]
==
(~(user am [now fox]) hen p.kyz ges q.kyz q.kyz)
(~(user am [now fox]) hen p.kyz ges q.kyz r.kyz)
::
$wake
(~(wake am [now fox]) hen)

View File

@ -43,7 +43,7 @@
++ move {p/duct q/(wind note gift:able)} :: local move
++ note-ames :: weird ames move
$% {$make p/(unit @t) q/@ud r/@ s/?} ::
{$sith p/@p q/@uw r/?} ::
{$sith p/@p q/@uw r/@uw} ::
== ::
++ note-clay ::
$% {$merg p/@p q/@tas r/@p s/@tas t/case u/germ:clay}:: merge desks

View File

@ -129,7 +129,7 @@
{$junk p/@} :: entropy
{$kick p/@da} :: wake up
{$make p/(unit @t) q/@ud r/@ s/?} :: wild license
{$sith p/@p q/@uw r/?} :: imperial generator
{$sith p/@p q/@uw r/@uw} :: user/ticket/secret
{$wake $~} :: timer activate
{$want p/sock q/path r/*} :: send message
{$wegh $~} :: report memory