Fixed multiple entrance/exit notice bug.

This commit is contained in:
pcmonk 2014-05-31 14:46:10 -07:00
parent 7eea04ce1e
commit 9b523d1767
2 changed files with 15 additions and 2 deletions

View File

@ -175,7 +175,9 @@
|=(a=room (lien p.zig |=(a=room =(a ^a))))
:_ abet:pof(roo.ful (weld p.zig oldroo))
%- ~(gas by m)
(turn p.zig |=(r=room [r ~[[%new now r call:pof]]]))
%+ turn
(skip p.zig |=(a=room (lien roo.ful:pof |=(a=room =(a ^a)))))
|=(r=room [r ~[[%new now r call:pof]]])
::
%hep
=+ ^= oldroo
@ -183,7 +185,9 @@
|=(a=room (lien p.zig |=(a=room =(a ^a))))
:_ abet:pof(roo.ful oldroo)
%- ~(gas by m)
(turn p.zig |=(r=room [r ~[[%out now r call:pof]]]))
%+ turn
(skip p.zig |=(a=room (levy roo.ful:pof |=(a=room =(a ^a)))))
|=(r=room [r ~[[%out now r call:pof]]])
==
(tilt zew)
::

View File

@ -22,3 +22,12 @@ list vessels:
=== show ships in haus (all rooms)
=%mars [%urf ...] show ships in specified room(s)
command-line parameters:
[%haus ~hoclur-bicrel] select haus server (default: ticketing ship)
%time display timestamps for messages
%elvis always display entrance and exit notices
%quiet never display entrance and exit notices
Only one of %elvis and %quiet may be specfied. Default behavior does not
display entrance and exit notices in :chat backlog.