Antwort schreiben 
 
Themabewertung:
  • 0 Bewertungen - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
Unban
22.04.2003, 22:42 Uhr
Beitrag #1
Unban
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
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
23.04.2003, 16:46 Uhr
Beitrag #2
 
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.

Viele Grüße
Laurens "Sp33d" Stötzel
Webseite des Benutzers besuchen Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
23.04.2003, 22:40 Uhr
Beitrag #3
 
Cool geht. Vielen Dank Wink
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
24.04.2003, 09:47 Uhr
Beitrag #4
 
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?
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
24.04.2003, 14:00 Uhr
Beitrag #5
 
vielleicht könntest Dein Script dann ma posten, damit alle was von haben Wink

führt endlich Internetführerscheine und Alterskontrollen fürs Inet ein...
Webseite des Benutzers besuchen Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
25.04.2003, 07:34 Uhr
Beitrag #6
 
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.
Alle Beiträge dieses Benutzers finden
Diese Nachricht in einer Antwort zitieren
Antwort schreiben 


Möglicherweise verwandte Themen...
Thema: Verfasser Antworten: Ansichten: Letzter Beitrag
  !kick !ban !unban u.s.w sunny-boy 3 1.182 06.08.2006 17:55 Uhr
Letzter Beitrag: love_m
  unban-script für AB (z.B. im euIRC) Looop 2 484 21.06.2003 05:44 Uhr
Letzter Beitrag: Looop

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste