1
0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-22 14:21:34 +03:00
urbit/gen/hood/begin.hoon

56 lines
1.1 KiB
Plaintext
Raw Normal View History

2015-05-12 03:31:37 +03:00
::
2016-02-05 06:05:37 +03:00
:::: /hoon/begin/hood/gen
2015-05-12 03:31:37 +03:00
::
/? 310
/- sole
2015-05-12 03:31:37 +03:00
::
::::
!:
=> |%
++ begs {his/@p tic/@p yen/@t ges/gens}
++ scug |*({a/@ b/(pole)} ?~(b ~ ?~(a ~ [-.b $(b +.b, a (dec a))])))
2015-05-12 03:31:37 +03:00
--
[sole .]
2015-09-12 03:24:51 +03:00
:- %ask
|= $: {now/@da eny/@uvI bec/beak}
2016-02-17 04:35:52 +03:00
{arg/_(scug *@ *{his/@p tic/@p $~})}
safety/?($on $off)
2015-05-12 03:31:37 +03:00
==
^- (sole-result (cask begs))
2015-11-20 01:29:54 +03:00
?. =(safety %off)
%+ sole-yo
:- %leaf
"|begin is deprecated, please invoke urbit with -w [name] -t [ticket]"
2015-11-20 01:29:54 +03:00
sole-no
=- -
2015-05-12 03:31:37 +03:00
%+ sole-lo
[%& %helm-begin "your urbit: ~"]
2015-05-12 03:31:37 +03:00
%+ sole-go fed:ag
|= his/@p
2015-05-12 03:31:37 +03:00
%+ sole-lo
2015-06-24 21:01:25 +03:00
[%& %helm-ticket "your ticket: ~"]
2015-05-12 03:31:37 +03:00
%+ sole-go fed:ag
|= tic/@p
2015-05-12 03:31:37 +03:00
%+ sole-lo
2015-06-24 21:01:25 +03:00
[%& %helm-entropy "some entropy: "]
2015-05-12 03:31:37 +03:00
%+ sole-go (boss 256 (more gon qit))
|= yen/@t
2015-05-12 03:31:37 +03:00
=+ ney=(shax yen)
%+ sole-yo `tank`[%leaf "entropy check: {(scow %p `@p`(mug ney))}"]
2015-06-24 21:01:25 +03:00
%+ sole-so %helm-begin
2015-05-12 03:31:37 +03:00
:* his
tic
ney
::
^- gens
:- %en
=+ can=(clan his)
?- can
$czar [%czar ~]
$duke [%duke %anon ~]
$earl [%earl (scot %p his)]
$king [%king ?:(=(~doznec his) 'Urban Republic' (scot %p his))]
$pawn [%pawn ~]
2015-05-12 03:31:37 +03:00
==
==