MultiUserSlap

#NewScriptBegin BannScript
 
Sub Load()
  MakeShortcut "", "Bann", "/call BannScript.BannByMask $(room) $1 $(userid) $(useradr)", 1
End Sub
 
Sub BannByMask(Channel, Nick, UserID, UserAdr)
  Mask = Input("Hostmask:", Nick & "!" & UserID & "@" & UserAdr)
  if len(Mask) > 0 Then
    Send "/mode " & Channel & " +b " & Mask, FrontFrameID
  end if
End Sub