Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:gbann [2006/06/26 15:37]
84.150.110.180
nettalk:scripting:gbann [2006/12/09 20:21] (aktuell)
192.168.0.50
Zeile 1: Zeile 1:
 +====== Global Bann======
  
 +<code vb>
 +
 +#​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
 +</​code>​

Eigene Werkzeuge