Talk beeps when your ship's "first name" is mentioned while the %notify flag is set.

This commit is contained in:
Fang 2016-12-10 00:09:05 +01:00
parent fa797a9907
commit 8f3dc7445f

View File

@ -289,6 +289,7 @@
%- perk :~ %- perk :~
%noob %noob
%quiet %quiet
%notify
== ==
++ work ++ work
%+ knee *^work |. ~+ %+ knee *^work |. ~+
@ -437,7 +438,15 @@
++ sh-rend :: print on one line ++ sh-rend :: print on one line
|= gam/telegram |= gam/telegram
=+ lin=~(tr-line tr man.she settings.she gam) =+ lin=~(tr-line tr man.she settings.she gam)
(sh-pass:(sh-fact %txt lin) q.q.gam) =+ nom=(scag 7 (cite our.hid))
%. q.q.gam
=< sh-pass
%. [%txt lin]
?: ?& (~(has in settings.she) %notify)
(gth (fall (find nom lin) 0) 15)
==
sh-fact:(sh-fact %bel ~)
sh-fact
:: ::
++ sh-numb :: print msg number ++ sh-numb :: print msg number
|= num/@ud |= num/@ud