aqua: update and add new generators

This commit is contained in:
Isaac Visintainer 2020-11-30 00:00:58 -08:00
parent 94bb140448
commit e03a18bad3
6 changed files with 16 additions and 4 deletions

View File

@ -0,0 +1,4 @@
:- %say
|= [* [her=ship ~] ~]
:- %azimuth-action
[%breach her]

View File

@ -0,0 +1,4 @@
:- %say
|= [* ~ ~]
:- %azimuth-action
[%init-azimuth ~]

View File

@ -3,4 +3,4 @@
:- %say
|= [* [her=ship ~] ~]
:- %aqua-events
[%init-ship her ~]~
[%init-ship her `*dawn-event:able:jael]~

View File

@ -1,6 +1,6 @@
/- aquarium
=, aquarium
:- %say
|= [* [label=@ta] ~]
|= [* [label=@ta ~] ~]
:- %aqua-events
[%snap-ships label]~
[%restore-snap label]~

View File

@ -1,7 +1,7 @@
/- aquarium
=, aquarium
:- %say
|= [[now=@da eny=@uvJ bec=beak] [label=@ta] ships=(list ship)]
|= [[now=@da eny=@uvJ bec=beak] [label=@ta ships=(list ship)] ~]
:- %aqua-events
=? ships ?=(~ ships)
.^((list ship) %gx /(scot %p p.bec)/aqua/(scot %da now)/ships/noun)

View File

@ -0,0 +1,4 @@
:- %say
|= [* [her=ship ~] ~]
:- %azimuth-action
[%spawn her]