treaty: hardcode default ally

This commit is contained in:
Liam Fitzgerald 2021-09-21 14:52:54 +10:00
parent e8148f20dd
commit f6b5377d8f
2 changed files with 9 additions and 5 deletions

View File

@ -1,6 +1,9 @@
/- docket, *treaty /- docket, *treaty
/+ default-agent, agentio, verb, dbug /+ default-agent, agentio, verb, dbug
|% |%
:: TODO: update before livenet deploy
++ default-ally ~zod
::
+$ card card:agent:gall +$ card card:agent:gall
+$ state-0 +$ state-0
$: treaties=(map [=ship =desk] treaty) $: treaties=(map [=ship =desk] treaty)
@ -23,9 +26,8 @@
pass pass:io pass pass:io
cc ~(. +> bowl) cc ~(. +> bowl)
++ on-init ++ on-init
=/ sponsor=ship (sein:title [our now our]:bowl) ?: =(our.bowl default-ally) `this
?: =(our.bowl sponsor) `this (on-poke %ally-update-0 !>([%add default-ally]))
(on-poke %ally-update-0 !>([%add sponsor]))
++ on-save !>(state) ++ on-save !>(state)
++ on-load ++ on-load
|= =vase |= =vase
@ -120,8 +122,9 @@
|= =path |= =path
^- (unit (unit cage)) ^- (unit (unit cage))
?+ path (on-peek:def path) ?+ path (on-peek:def path)
[%x %alliance ~] ``(alliance-update:cg:ca %ini entente) [%x %alliance ~] ``(alliance-update:cg:ca %ini entente)
[%x %allies ~] ``(ally-update:cg:ca %ini allies) [%x %default-ally ~] ``ship+!>(default-ally)
[%x %allies ~] ``(ally-update:cg:ca %ini allies)
:: ::
[%x %treaties @ ~] [%x %treaties @ ~]
=/ =ship (slav %p i.t.t.path) =/ =ship (slav %p i.t.t.path)

1
pkg/garden/mar/ship.hoon Symbolic link
View File

@ -0,0 +1 @@
../../base-dev/mar/ship.hoon