make disable chat

This commit is contained in:
Philip C Monk 2014-12-17 19:22:15 -05:00
parent 4371a216d1
commit ee81f83526
2 changed files with 16 additions and 14 deletions

View File

@ -59,6 +59,7 @@
$% [%mess p=hapt q=ship r=cage]
[%nuke p=hapt q=ship]
[%show p=hapt q=ship r=path]
[%cide p=span]
== == ==
++ sign
$? $: %g
@ -328,13 +329,14 @@
?: ?=(%radi-a i.pax) ~
[ost %give +.sih]~
?: ?=(%mean +<.sih)
:_ +>.$ :_ ~
=- ~& [%trying-again -] -
:* ost %pass pax %g %show
[pad.fal /radio] our.hid
?-(i.pax %radi-a %amigos, %radi-m %mensajes)
sat.fal
==
~& ':chat is no more, please use :talk'
[[ost %pass / %g %cide %$]~ +>.$]
:: =- ~& [%trying-again -] -
:: :* ost %pass pax %g %show
:: [pad.fal /radio] our.hid
:: ?-(i.pax %radi-a %amigos, %radi-m %mensajes)
:: sat.fal
:: ==
=+ ya=(grab t.pax)
=. ya
?- i.pax

View File

@ -28,7 +28,7 @@
$% $: %mess p=@da q=ship ::
$= r ::
$% [%do p=@t] ::
[%exp p=@t q=tank ::
[%exp p=@t q=tank] ::
[%say p=@t] ::
== == == ::
++ party :: a conversation
@ -763,6 +763,12 @@
ra-abet:(~(ra-repeat ra ost ~) num her man sih)
==
::
++ pull
|= ost=bone
^- [(list move) _+>]
~& [%rodeo-pull ost]
ra-abet:~(ra-cancel ra ost ~)
::
++ prep
|= old=(unit (unit house-any))
^- [(list move) _+>]
@ -778,12 +784,6 @@
%0 $(u.u.old [%1 (house-0-to-house-1 +.u.u.old)])
==
::
++ pull
|= ost=bone
^- [(list move) _+>]
~& [%rodeo-pull ost]
ra-abet:~(ra-cancel ra ost ~)
::
++ house-0-to-house-1
|= vat=house-0
^- house-1