AnGelBot-Portal²

Normale Version: Unban
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Ich hab versucht mir ein Script zu basteln das jeweils immer den zuletzt gesetzten Ban removed. Also wenn ich undo eintippe dass der den letzten ban removed. Habs so versucht, dass der bei einem ban die banmask sich "merkt" und die dann versucht zu entbannen. Aber anscheinend muss ma die irgendwie speziell übergeben lassen. Hat da jemand nen Tip für mich oder vielleicht sogar ein ganzes Script? Wäre cool :D
Einen Hook auf "Ban" setzten und sobald ein Ban gesetzt wird, die Hostmask (letzte Variable vom Hook 'HMask') in eine globale Variable packen oder irgendwo speichern.

Globale Variablen erstellst du, in dem du ganz oben vor der Sub Init() in etwa folgendes schreibst:

Code:
Dim MeineVariable

Du kannst dann auf den Inhalt von 'MeineVariable' überall im Code zugreifen.
Cool geht. Vielen Dank Wink
Hab nochma ne Frage dazu:

Bei mIRC gibts für die banlist einen Befehl, dass der immer den ersten ban, der im Channel ist, nimmt. "$ibl(#,1)" Gibts bei AngelBot auch eine ähnliche Möglichkeit, dass der immer den zuletzt gesetzten Ban löscht?
vielleicht könntest Dein Script dann ma posten, damit alle was von haben Wink
Code:
Dim lastban

Sub Init
  Script "Undo Script"
  Hook "Ban"
  Hook "Chan_Msg"
End Sub

Sub Ban(Nick, RegUser, Chan, HMask)
  lastban = HMask
  SendLine "PrivMsg" & Chan & " " & HMask ,1
End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)
  Select Case LCase(Param(Line, 1))
    Case "undo"
      SendLine "Mode " & Chan & " -b " & lastban ,1
  End Select
End Sub
So is das jetz im Moment und läuft ziemlich gut. Hab noch keine Fehler entdeckt.
Referenz-URLs