settings: add tutorial settings to enable it
/- *settings
-/+ verb, dbug, default-agent
+/+ verb, dbug, default-agent, agentio
|%
+$ card card:agent:gall
+$ versioned-state
$% state-0
+ state-1
==
+$ state-0
$: %0
=settings
==
+::
++$ state-1
+ $: %1
+ =settings
+ ==
+
--
-=| state-0
+=| state-1
=* state -
::
%- agent:dbug
+* this .
do ~(. +> bol)
def ~(. (default-agent this %|) bol)
+ io ~(. agentio bol)
::
++ on-init
^- (quip card _this)
- `this
+ =^ cards state
+ (put-entry:do %tutorial %seen b+|)
+ [cards this]
+
::
++ on-save !>(state)
::
|= =old=vase
^- (quip card _this)
=/ old !<(versioned-state old-vase)
+ =| cards=(list card)
+ |-
?- -.old
- %0 [~ this(state old)]
+ %1 [cards this(state old)]
+ ::
+ %0
+ %_ $
+ -.old %1
+ ::
+ cards
+ :_ cards
+ (poke-self:pass:io settngs-event+!>([%put-entry %tutorial %seen b+|]))
+ ==
==
::
++ on-poke
