View source for Clear-Chanlev Script for QuakeNet

 ; ClearChanlev script by doomie
 ;   #help.script @ QuakeNet
 ;
 ;
 ; You can use this script by typing:
 ;
 ;        /clearchanlev [-c|-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.  
 ;           * -c ... If you use this flag, the script will remove you from the channel aswell. This means, that Q will leave the channel
 ;                    completly. Note that you can _NOT_ reverse 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.
 ;   -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 loops|while]] (%i [[If#.3C.3D|<=]] [[$0]]) {
     %c = $ [[Evaluation_brackets|[]] [[DollarPlus|$+]] [[Evaluation_brackets|[]] %i [[Evaluation_brackets|] ]]]
     [[if]] (%c [[If#.3D.3D|<=]] -c) [[If#Combining_comparisons|||]] (%c == --complete) {
       %ClearChanlev.Complete = 1
     }
     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
   }
 }
 
 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)
     }
   }
 }
 
 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 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) {
           write 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 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
   }
 }
[[Category:Script Archive]]
{{Author|Doomie}}