' --------------------------------------------
' Alias to gag players automatically
'
'  Call from the alias: GAG *
'
'   eg. GAG twerp
'
'  It maintains a list of gagged players in the
'   variable "gaglist" (which you can edit in the
'   world configuration screen if you need)
'
'  You may need to change the text of the trigger
'  match slightly. (eg. add "tells")
'
' --------------------------------------------

sub OnGag (thename, theoutput, thewildcards)
dim sName
dim sList
dim flags

sName = Trim (thewildcards (1))

' do nothing if no name
if sName = "" then exit sub

' get existing list
sList = world.GetVariable ("gaglist")

' if empty create new one, otherwise add to end
if IsEmpty (sList) then
  sList = sName
else
  slist = sList + "|" + sName
end if

' remember gag list for next time
world.SetVariable "gaglist", sList

' addtrigger flags
'    1 = enabled
'    2 = omit from log file
'    4 = omit from output
'   16 = ignore case
'   32 = regular expression
' 1024 = replace existing trigger of same name

flags = 1 + 2 + 4 + 16 + 32 + 1024

World.addtrigger "gag", "^(" + sList + ") (says|pages)", _
                 "", flags, -1, 0, "", ""

End Sub

<triggers>
  <trigger
   custom_colour="2"
   enabled="y"
   match="[*(#*)] * pages: *"
   omit_from_output="y"
   script="OnPage"
   sequence="100"
  >
  </trigger>
</triggers>

sub OnPage (name, line, wildcards)

  select case wildcards (2)

'
'  list the ones you want to suppress here
'
    case "666"
    case "777"
    case "888"

'
'  others will get echoed to the screen
'
    case else

      world.colournote "white", "black", _
             wildcards (3) & " pages: " & _
             wildcards (4)

  end select

end sub