(Kick-)Bann-Shortcut

Ein (Kick-)Bann-Shortcut mit Hilfe. Im Textfeld erscheint die ganze Hostmask vom gewählten Nick, die man schnell und einfach beliebig ändern kann um so den (fast) perfekten Bann zu setzen.

#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

Zusatzfunktion für einen Kickbann:

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