Merge commit '98d9dc3' into relearning

This commit is contained in:
C. Guy Yarvin 2016-09-03 14:48:03 -07:00
commit 4235336985
2 changed files with 4 additions and 7 deletions

View File

@ -1595,7 +1595,7 @@
?- p.cordon.shape
$black &
$green &
$brown =(her our.hid)
$brown (team our.hid her)
$white (~(has in q.cordon.shape) her)
==
::
@ -2195,7 +2195,7 @@
~? !=(src.hid our.hid) [%peer-talk-stranger src.hid]
:: ~& [%talk-peer src.hid ost.hid pax]
?: ?=({$sole *} pax)
?> =(our.hid src.hid)
?> (team our.hid src.hid)
~? (~(has by shells) ost.hid) [%talk-peer-replaced ost.hid pax]
ra-abet:(ra-console:ra src.hid t.pax)
:: ~& [%talk-peer-data ost.hid src.hid pax]

View File

@ -174,11 +174,8 @@
++ peer ::
|= pax/path =< se-abet
^+ +>
?. ?| =(our src) :: ourself
&(=(%duke (clan our)) =(our (sein src))) :: or our own yacht
== ::
~| [%drum-unauthorized our+our src+src] :: very simplistic
!!
~| [%drum-unauthorized our+our src+src] :: ourself
?> (team our src) :: or our own moon
se-view:(se-text "[{<src>}, driving {<our>}]")
::
++ poke-dill-belt ::