Global Bann

#NewScriptBegin gbann
 
Sub Load()
  MakeShortcut "Global Bann", "gbann", "/call gban $1 $2", 2
  CurFrameIndex=0
End Sub
 
Sub gban(user,reason)
  i=1
  do until i > FrameCount
    FrID=GetFrameByIndex(i)
    if GetFrameType(FrID)=0 and len(GetCaption(FrID)) > 0 Then kickbann user,reason,FrID
    i=i+1
  loop
End Sub
 
 
Function kickbann(user,reason,FrameID)
  Frame = getcaption(FrameID)
  ConnID = GetConn(FrameID)
  send "/bann "+user, FrameID
  send "/kick "+Frame+" "+ user +" "+reason,FrameID
End Function