Difference between revisions of "Clear-Chanlev Script for QuakeNet"

From Scriptwiki
Jump to: navigation, search
m (cc.remove explicitly set to $false at start now, thanks faile)
m (disable the removing of owners, so Q is not removed.)
 
(8 intermediate revisions by 3 users not shown)
Line 1: Line 1:
−
Clear-Chanlev Script by Kickchon (for Q and L on QuakeNet) (v2.0)
+
  ; ClearChanlev script by doomie
−
This script removes all known users on a #channel except owners or removes Q/L completely from #channel.
+
  ;   #help.script @ QuakeNet
−
 
 
−
  ; # Clear-Chanlev Script by Kickchon (for [[Q]] and [[L]] on QuakeNet) (v2.0)
 
−
  ; # This script removes all known users on a #channel except owners or removes Q/L completely from #channel.
 
−
; # Please do nothing after typing /clearchanlev until you get a finish/error message.
 
 
  ;
 
  ;
−
; # Needs Owner Access on specified #channel and you have to be authed.
 
−
; # It will not remove other Owners.
 
 
  ;
 
  ;
−
  ; # Use /clearchanlev #channel or /clearchanlev #channel -remove if you want to remove Q/L from a channel.
+
  ; You can use this script by typing:
 
  ;
 
  ;
−
  ; # Kickchon, staff member on Quakenet
+
  ;       /clearchanlev [-r] #channel
 +
;
 +
;  Note, that you must be authed and owner of #channel.
 +
;
 +
;  Flags:
 +
;          * -r ... Resets the script, i.e. cleans everything up. One usually doesn't need that flag, however, if something didn't work,
 +
;                    one can use it. 
 +
;
 +
;
 +
;  Example output:
 +
;
 +
;      ClearChanlev: -----------------------------
 +
;      ClearChanlev: Now beginning to remove all chanlevs from channel #channel except yours!
 +
;      ClearChanlev: Receiving own auth now!
 +
;      ClearChanlev: ...done.
 +
;      ClearChanlev: Saving chanlev now...
 +
;      ClearChanlev: ...done.
 +
;      ClearChanlev: There are 2 lines to send. This will take approximatly 4 seconds. Removing...
 +
;      ClearChanlev: ...done.
 +
;      ClearChanlev: Cleaned up!
 +
;      ClearChanlev: -----------------------------
 
  ;
 
  ;
−
; # If you think there's a bug in this Script, please contact someone in #help.script on Quakenet.
 
 
   
 
   
−
  [[Aliases|alias]] clearchanlev {
+
; Returns the milliseconds between every message sent to Q
−
   [[if-Then-Else|if]] (!$1) {
+
; If you excess flood, you should increase this value to 4000 or even 5000.
−
    [[echo]] [[$color]](info) -at *** Clear-Chanlev: You need to specify the channel.
+
  [[alias]] -l ClearChanlev.Delay { [[return]] 3000 }
−
  }
+
−
  [[if-Then-Else|elseif]] (Q !ison $1) && (L !ison $1) {
+
; $1 = #channel
−
    echo $color(info) -at *** Clear-Chanlev: There is no Q or L bot on $1 $+ .
+
;
−
  }
+
; flags:
−
  [[if-Then-Else|else]] {
+
;  -c --complete = deletes the complete chanlev, inclusive owner. This will
−
    set %cc.what getlname
+
;                  result in Q parting. This option is disabled.
−
    set %cc.bot $iif(Q ison $1,Q,L)
+
;   -r --reset    = resets the scripts in case something didn't work the last time.
−
    set %cc.chan $1
+
alias ClearChanlev {
−
    if ($2 == -remove) { [[set]] %cc.remove $true }
+
  [[echo]] -s ClearChanlev: -----------------------------
−
    else { [[set]] %cc.remove $false }
+
  [[var]] %i = 1, %c, %ClearChanlev.Complete = 0, %r, %ClearChanlev.Force = 0, %ClearChanlev.Channel
−
    echo $color(info) -at *** Clear-Chanlev: Getting your %cc.bot $+ -Account Name.
+
  [[While loops|while]] (%i [[If#.3C.3D|<=]] [[$0]]) {
−
    .enable #clearchanlev
+
    %c = $ [[Evaluation_brackets|[]] [[DollarPlus|$+]] [[Evaluation_brackets|[]] %i [[Evaluation_brackets|] ]]]
−
    .[[msg]] %cc.bot whois [[$me]]
+
    [[if]] (%c [[If#.3D.3D|==]] -c) [[If#Combining_comparisons|||]] (%c == --complete) {
−
  }
+
      echo -s ClearChanlev: The %c option to remove Q is disabled, it is ignored.
 +
      ; %ClearChanlev.Complete = 0
 +
    }
 +
    elseif (%c == -r) || (%c == --reset) {
 +
      %ClearChanlev.Force = 1
 +
    }
 +
    elseif ([[$left]](%c, 1) == [[$chr]](35)) {
 +
      %ClearChanlev.Channel = %c
 +
    }
 +
    [[inc]] %i
 +
  }
 +
  if (%ClearChanlev.Global) {
 +
    if (%ClearChanlev.Force == 0) {
 +
      echo -s ClearChanlev: ClearChanlev is currently running. If this is not the case, please use the -r flag (i.e. /clearchanlev -r #channel)
 +
      echo -s ClearChanlev: -----------------------------
 +
      return
 +
    }
 +
    else {
 +
      [[unset]] %ClearChanlev.Global
 +
      echo -s ClearChanlev: ClearChanlev reseted.
 +
    }
 +
  }
 +
  if (!%ClearChanlev.Channel) {
 +
    echo -s ClearChanlev: No channel specified.
 +
    return
 +
  }
 +
  %r = [[$rand]](1,1000)
 +
  [[set]] %ClearChanlev.Global %ClearChanlev.Channel %ClearChanlev.Complete %r
 +
  echo -s ClearChanlev: Now beginning to remove all chanlevs from channel %ClearChanlev.Channel [[$iif]](%ClearChanlev.Complete, inclusive, except) yours!
 +
  echo -s ClearChanlev: Receiving own auth now!
 +
  .[[timer]]ClearChanlevCleanUp 1 60 ClearChanlev.CleanUp
 +
  .[[who]] [[$me]] n%nat, $+ %r
 +
}
 +
 +
[[:Category:Raws|raw]] [[Raw_354|354]]:*: {
 +
  if ([[$1-|$2]] == [[$gettok]](%ClearChanlev.Global, 3, 32)) && ($3 == $me) {
 +
    haltdef
 +
    set %ClearChanlev.Global %ClearChanlev.Global $4
 +
  }
 
  }
 
  }
 
   
 
   
−
  #[[Creating Groups|clearchanlev]] off
+
  raw [[Raw_315|315]]:*: {
 +
  if (%ClearChanlev.Global) && ($2 == $me) {
 +
    [[haltdef]]
 +
    if ($gettok(%ClearChanlev.Global, 4, 32) == 0) {
 +
      echo -s ClearChanlev: You are NOT authed.
 +
      ClearChanlev.CleanUp
 +
    }
 +
    else {
 +
      echo -s ClearChanlev: ...done.
 +
      set %ClearChanlev.Global %ClearChanlev.Global 0
 +
      .[[msg]] Q chanlev $gettok(%ClearChanlev.Global, 1, 32)
 +
    }
 +
  }
 +
}
 
   
 
   
−
  [[On_notice|on ^*:NOTICE]]:*:*:{
+
  alias -l ClearChanlev.GotMessages {
−
  if ($nick == %cc.bot) {
+
  if (![[$exists]](ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt)) {
−
    if (%cc.what == getlname) {
+
    echo -s ClearChanlev: File does not exist!
−
      if ($1 == $me) && ($3 == authed) {
+
    ClearChanlev.CleanUp
−
        set %cc.account $left($5,-1)
+
    return
−
      }
+
  }
−
      if ($1- == End of list.) {
+
  if ([[$lines]](ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt) == 0) {
−
        if (%cc.account) {
+
    echo -s ClearChanlev: No chanlev to remove!
−
          echo $color(info) -at *** Clear-Chanlev: Getting Userlist of %cc.chan $+ .
+
    ClearChanlev.CleanUp
−
          set %cc.what getchanlev
+
    return
−
          .msg %cc.bot chanlev %cc.chan
+
  }
−
        }
+
  if ($gettok(%ClearChanlev.Global, 5, 32) == 0) {
−
        else {
+
    echo -s ClearChanlev: You are NOT owner of this channel. Aborting!
−
          echo $color(info) -at *** Clear-Chanlev: You are not authed. Please auth before trying to clear a chanlev-list.
+
    ClearChanlev.CleanUp
−
          unset %cc.*
+
    return
−
          .[[disable]] #clearchanlev
+
  }
−
        }
+
  echo -s ClearChanlev: There are $lines(ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt) lines to send. This will take [[$&]]
−
      }
+
    approximatly $calc($lines(ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt) * $ClearChanlev.Delay / 1000) seconds. Removing...  
−
    }
+
  .[[play]] Q ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt $ClearChanlev.Delay
−
    elseif (%cc.what == getchanlev) {
 
−
    if ($1 != %cc.account) && (End of* !iswm $1-) && (Users for channel* !iswm $1-) && (Authname* !iswm $1-) && ($1- != $str(-,29)) && $&
 
−
        ($1 != Channeltype:) && (Known users* !iswm $1-) {
 
−
        if (n !isin $iif(%cc.bot == Q,$3,$2)) {
 
−
          [[write]] clearchanlev.txt CHANLEV %cc.chan # [ $+ [ $1 ] ] $iif(%cc.bot == Q,-amotv,-amovg)
 
−
        }
 
−
        elseif (n isin $iif(%cc.bot == Q,$3,$2)) {
 
−
          set %cc.noremove $true
 
−
        }
 
−
      }
 
−
      elseif ($1 == %cc.account) && (n !isin [[$iif]](%cc.bot == Q,$3,$2)) {
 
−
        .[[remove]] "clearchanlev.txt"
 
−
        [[unset]] %cc.*
 
−
        .disable #clearchanlev
 
−
        echo $color(info) -at *** Clear-Chanlev: You are not the owner of that channel. Halting...
 
−
      }
 
−
      elseif (End* [[If-Then-Else#The_Operators|iswm]] $1-) {
 
−
        if (%cc.remove) {
 
−
          if (%cc.noremove) {
 
−
            echo $color(info) -at *** Clear-Chanlev: You may not remove %cc.bot $+ . You are not the only owner on %cc.chan $+ .
 
−
            .remove "clearchanlev.txt"
 
−
            unset %cc.*
 
−
            .disable #clearchanlev
 
−
            [[halt]]
 
−
          }
 
−
          else {
 
−
            write clearchanlev.txt CHANLEV %cc.chan # [ $+ [ %cc.account ] ] $iif(%cc.bot == Q,-amnotv,-amnovg)
 
−
          }
 
−
        }
 
−
        set %cc.what removeusers
 
−
        echo $color(info) -at *** Clear-Chanlev: There are $lines(clearchanlev.txt) Users to remove. It will take about $&
 
−
          [[$calc]]([[$lines]](clearchanlev.txt)*2) seconds. Removing...
 
−
        .[[play]] %cc.bot clearchanlev.txt 2000
 
−
      }
 
−
    }
 
−
    [[haltdef]]
 
−
  }
 
 
  }
 
  }
 
   
 
   
−
  [[On_playend|on *:PLAYEND]]:{
+
  alias -l ClearChanlev.CleanUp {
−
  if ([[$nopath]]([[$filename]]) == clearchanlev.txt) {
+
  .[[remove]] ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt
−
    echo $color(info) -at *** Clear-Chanlev: Successfully Removed $iif(%cc.remove,$iif(%cc.bot == Q,Q,L) from,all Non-Owners on) %cc.chan $+ .
+
  unset %ClearChanlev.*
−
    if (!%cc.remove) { .msg %cc.bot chanlev %cc.chan }
+
  .timerClearChanlevCleanUp off
−
    unset %cc.*
+
  echo -s ClearChanlev: Cleaned up!
−
    .remove "clearchanlev.txt"
+
  echo -s ClearChanlev: -----------------------------
−
    .disable #clearchanlev
 
−
  }
 
 
  }
 
  }
 
   
 
   
−
  #clearchanlev end
+
  ; $1- = message from Q
−
 
+
alias -l ClearChanlev.Interpret {
 +
  if (%ClearChanlev.Global) {
 +
    if (Username*Flags*Last join*Last changed iswm $1-) {
 +
      echo -s ClearChanlev: Saving chanlev now...
 +
      set %ClearChanlev.Global %ClearChanlev.Global 1
 +
    }
 +
    elseif (You do not have sufficient access on* iswm $1-) {
 +
      echo -s ClearChanlev: You do not have sufficied access on the specified channel!
 +
      ClearChanlev.CleanUp
 +
    }
 +
    elseif (End of list. == $1-) {
 +
      echo -s ClearChanlev: ...done.
 +
      set %ClearChanlev.Global [[$puttok]](%ClearChanlev.Global, 0, 6, 32)
 +
      if ([[$numtok]](%ClearChanLev.Users,32)) {
 +
        [[write]] -il1 ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt REMOVEUSER $gettok(%ClearChanlev.Global, 1, 32) %ClearChanLev.Users
 +
        unset %ClearChanlev.Users
 +
      }
 +
      ClearChanlev.GotMessages
 +
    }
 +
    elseif (Channel * is unknown or suspended. iswm $1-) {
 +
      echo -s ClearChanlev: Channel is not known or suspended. Aborting.
 +
      ClearChanlev.CleanUp
 +
    }
 +
    elseif ($gettok(%ClearChanlev.Global, 6, 32) == 1) {
 +
      if ($1 == $gettok(%ClearChanlev.Global, 4, 32)) {
 +
        if (n !isin $2) {
 +
          set %ClearChanlev.Global $puttok(%ClearChanlev.Global, 0, 5, 32)
 +
          return
 +
        }
 +
        else {
 +
          set %ClearChanlev.Global $puttok(%ClearChanlev.Global, 1, 5, 32)
 +
        }
 +
 +
        if ($gettok(%ClearChanlev.Global, 2, 32) == 0) {
 +
          return
 +
        }
 +
        else {
 +
          write ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt CHANLEV $gettok(%ClearChanlev.Global, 1, 32) $chr(35) $+ $1 [[$replace]]($2,+,-)
 +
          return
 +
        }
 +
      }
 +
      else {
 +
        if (n isin $2) {
 +
          ; do not remove owners - do not change unless you know what you are doing!
 +
          return
 +
          ; write -il1 ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt CHANLEV $gettok(%ClearChanlev.Global, 1, 32) $chr(35) $+ $1 $replace($2,+,-)
 +
        }
 +
        else {
 +
          set %ClearChanlev.Users $addtok(%ClearChanLev.users,$chr(35) $+ $1,32)
 +
          if ($numtok(%ClearChanlev.Users,32) == 18) {
 +
            write -il1 ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt REMOVEUSER $gettok(%ClearChanlev.Global, 1, 32) %ClearChanlev.Users
 +
            unset %ClearChanlev.Users
 +
          }
 +
        }
 +
      }
 +
    }
 +
  }
 +
}
 +
 +
on ^*:[[On_notice|Notice]]:*:?: {
 +
  if ([[$nick]] == Q) && (%ClearChanlev.Global) {
 +
    haltdef
 +
    ClearChanlev.Interpret $1-
 +
  }
 +
}
 +
 +
on ^*:[[On_text|Text]]:*:?: {
 +
  if ($nick == Q) && (%ClearChanlev.Global) {
 +
    haltdef
 +
    ClearChanlev.Interpret $1-
 +
  }
 +
}
 +
 +
on *:[[On_playend|PLAYEND]]:{
 +
  if ([[$nopath]]([[$filename]]) == ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt) {
 +
    echo -s ClearChanlev: ...done.
 +
    ClearChanlev.Cleanup
 +
  }
 +
}
 
[[Category:Script Archive]]
 
[[Category:Script Archive]]
−
{{Author|Kickchon}}
+
{{Author|Doomie}}

Latest revision as of 23:24, 9 April 2010

; ClearChanlev script by doomie
;   #help.script @ QuakeNet
;
;
; You can use this script by typing:
;
;        /clearchanlev [-r] #channel
; 
;   Note, that you must be authed and owner of #channel. 
;
;   Flags:
;           * -r ... Resets the script, i.e. cleans everything up. One usually doesn't need that flag, however, if something didn't work,
;                    one can use it.  
;
;
;   Example output:
;
;      ClearChanlev: -----------------------------
;      ClearChanlev: Now beginning to remove all chanlevs from channel #channel except yours!
;      ClearChanlev: Receiving own auth now!
;      ClearChanlev: ...done.
;      ClearChanlev: Saving chanlev now...
;      ClearChanlev: ...done.
;      ClearChanlev: There are 2 lines to send. This will take approximatly 4 seconds. Removing...
;      ClearChanlev: ...done.
;      ClearChanlev: Cleaned up!
;      ClearChanlev: -----------------------------
;

; Returns the milliseconds between every message sent to Q
; If you excess flood, you should increase this value to 4000 or even 5000.
alias -l ClearChanlev.Delay { return 3000 } 

; $1 = #channel
;
; flags:
;   -c --complete = deletes the complete chanlev, inclusive owner. This will
;                   result in Q parting. This option is disabled.
;   -r --reset    = resets the scripts in case something didn't work the last time.
alias ClearChanlev {
  echo -s ClearChanlev: -----------------------------
  var %i = 1, %c, %ClearChanlev.Complete = 0, %r, %ClearChanlev.Force = 0, %ClearChanlev.Channel
  while (%i <= $0) {
    %c = $ [ $+ [ %i ] ]
    if (%c == -c) || (%c == --complete) {
      echo -s ClearChanlev: The %c option to remove Q is disabled, it is ignored.
      ; %ClearChanlev.Complete = 0
    }
    elseif (%c == -r) || (%c == --reset) {
      %ClearChanlev.Force = 1
    }
    elseif ($left(%c, 1) == $chr(35)) {
      %ClearChanlev.Channel = %c
    }
    inc %i
  }
  if (%ClearChanlev.Global) {
    if (%ClearChanlev.Force == 0) {
      echo -s ClearChanlev: ClearChanlev is currently running. If this is not the case, please use the -r flag (i.e. /clearchanlev -r #channel)
      echo -s ClearChanlev: -----------------------------
      return
    }
    else {
      unset %ClearChanlev.Global
      echo -s ClearChanlev: ClearChanlev reseted.
    }
  }
  if (!%ClearChanlev.Channel) {
    echo -s ClearChanlev: No channel specified.
    return
  }
  %r = $rand(1,1000)
  set %ClearChanlev.Global %ClearChanlev.Channel %ClearChanlev.Complete %r
  echo -s ClearChanlev: Now beginning to remove all chanlevs from channel %ClearChanlev.Channel $iif(%ClearChanlev.Complete, inclusive, except) yours!
  echo -s ClearChanlev: Receiving own auth now!
  .timerClearChanlevCleanUp 1 60 ClearChanlev.CleanUp
  .who $me n%nat, $+ %r
}

raw 354:*: {
  if ($2 == $gettok(%ClearChanlev.Global, 3, 32)) && ($3 == $me) {
    haltdef
    set %ClearChanlev.Global %ClearChanlev.Global $4
  }
}

raw 315:*: {
  if (%ClearChanlev.Global) && ($2 == $me) {
    haltdef
    if ($gettok(%ClearChanlev.Global, 4, 32) == 0) {
      echo -s ClearChanlev: You are NOT authed.
      ClearChanlev.CleanUp
    } 
    else {
      echo -s ClearChanlev: ...done.
      set %ClearChanlev.Global %ClearChanlev.Global 0
      .msg Q chanlev $gettok(%ClearChanlev.Global, 1, 32)
    }
  }
}

alias -l ClearChanlev.GotMessages {
  if (!$exists(ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt)) {
    echo -s ClearChanlev: File does not exist!
    ClearChanlev.CleanUp
    return
  }
  if ($lines(ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt) == 0) {
    echo -s ClearChanlev: No chanlev to remove!
    ClearChanlev.CleanUp
    return
  }
  if ($gettok(%ClearChanlev.Global, 5, 32) == 0) {
    echo -s ClearChanlev: You are NOT owner of this channel. Aborting!
    ClearChanlev.CleanUp
    return
  }
  echo -s ClearChanlev: There are $lines(ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt) lines to send. This will take $&
    approximatly $calc($lines(ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt) * $ClearChanlev.Delay / 1000) seconds. Removing... 
  .play Q ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt $ClearChanlev.Delay
}

alias -l ClearChanlev.CleanUp {
  .remove ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt
  unset %ClearChanlev.*
  .timerClearChanlevCleanUp off
  echo -s ClearChanlev: Cleaned up!
  echo -s ClearChanlev: -----------------------------
}

; $1- = message from Q
alias -l ClearChanlev.Interpret {
  if (%ClearChanlev.Global) {
    if (Username*Flags*Last join*Last changed iswm $1-) {
      echo -s ClearChanlev: Saving chanlev now...
      set %ClearChanlev.Global %ClearChanlev.Global 1
    }
    elseif (You do not have sufficient access on* iswm $1-) {
      echo -s ClearChanlev: You do not have sufficied access on the specified channel!
      ClearChanlev.CleanUp
    }
    elseif (End of list. == $1-) { 
      echo -s ClearChanlev: ...done.
      set %ClearChanlev.Global $puttok(%ClearChanlev.Global, 0, 6, 32)
      if ($numtok(%ClearChanLev.Users,32)) {
        write -il1 ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt REMOVEUSER $gettok(%ClearChanlev.Global, 1, 32) %ClearChanLev.Users
        unset %ClearChanlev.Users
      }
      ClearChanlev.GotMessages
    }
    elseif (Channel * is unknown or suspended. iswm $1-) {
      echo -s ClearChanlev: Channel is not known or suspended. Aborting.
      ClearChanlev.CleanUp
    }
    elseif ($gettok(%ClearChanlev.Global, 6, 32) == 1) {
      if ($1 == $gettok(%ClearChanlev.Global, 4, 32)) {
        if (n !isin $2) {
          set %ClearChanlev.Global $puttok(%ClearChanlev.Global, 0, 5, 32)
          return
        }
        else {
          set %ClearChanlev.Global $puttok(%ClearChanlev.Global, 1, 5, 32)
        }

        if ($gettok(%ClearChanlev.Global, 2, 32) == 0) {
          return
        }
        else {
          write ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt CHANLEV $gettok(%ClearChanlev.Global, 1, 32) $chr(35) $+ $1 $replace($2,+,-)
          return
        }
      }
      else {
        if (n isin $2) {
          ; do not remove owners - do not change unless you know what you are doing!
          return
          ; write -il1 ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt CHANLEV $gettok(%ClearChanlev.Global, 1, 32) $chr(35) $+ $1 $replace($2,+,-)
        }
        else {
          set %ClearChanlev.Users $addtok(%ClearChanLev.users,$chr(35) $+ $1,32)
          if ($numtok(%ClearChanlev.Users,32) == 18) {
            write -il1 ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt REMOVEUSER $gettok(%ClearChanlev.Global, 1, 32) %ClearChanlev.Users
            unset %ClearChanlev.Users
          }
        }
      }
    }
  }
}

on ^*:Notice:*:?: {
  if ($nick == Q) && (%ClearChanlev.Global) {
    haltdef
    ClearChanlev.Interpret $1-
  }
}

on ^*:Text:*:?: {
  if ($nick == Q) && (%ClearChanlev.Global) {
    haltdef
    ClearChanlev.Interpret $1-
  }
}

on *:PLAYEND:{
  if ($nopath($filename) == ClearChanlev $+ $gettok(%ClearChanlev.Global, 3, 32) $+ .txt) {
    echo -s ClearChanlev: ...done.
    ClearChanlev.Cleanup
  }
}
Contributed by Doomie
Retrieved from "https://script.quakenet.org/wiki/index.php?title=Clear-Chanlev_Script_for_QuakeNet&oldid=3792"