View

Mass join/part protection!

Rated:

Snippet Description: This is a snippet I made, mostly to get used to dialogs (Which wasnt that hard) and for a few issues in some of my channels. just right click the channel, find the menu and voila. Or you can use the alias itself, by typing /chan_flood If any bugs are found, PM me or post a comment here. And please, do not ripp or modify this script w/o my permission. Also, thanks to xDaemon for pointing a few things out. A script to prevent massive join/part flood in a channel. GL & HF with the script!

on *:START: {
  if ($version < 6.16) {
    echo -st You are running a version below 6.16 which might cause troubble!
    echo -st I highly advice you to download the newest mIRC client from http://www.mirc.com
    .disable #channel.flood
  }
  else {
    echo -st Channel flood protection by Lindrian!
    echo -st Find me at irc.deltaanime.net @ #L2Forever or #Lindrian / irc.ungowa.org @ #Ungowa
    echo -st Report any bugs if found, and enjoy!
    echo -st Remeber, ripping is lame!
    unset $+(%,flood,.%chan)
  }
}
on *:LOAD: {
  if ($version < 6.16) {
    echo -st You are running a version below 6.16 which might cause troubble!
    echo -st I highly advice you to download the newest mIRC client from http://www.mirc.com
  }
}
#Channel.flood on
on !*:JOIN:%chan: {
  if ($nick !isop %chan) || ($nick !ishop %chan) {
    inc $($+(%,flood,.,%chan))
    if ($($+(%,flood,.,%chan),2) > %c) {
      $+(,.timer,.unset,.flood) 1 %timeout unset $($+(%,flood,.,%chan),2)
      if ($me isop %chan) || ($me ishop %chan) {
        msg %chan Join flood detected at $fulldate on %chan $+ .
        msg %chan Locking channel for $duration(%fl.reset) $+ !
        mode %chan +i
        if (!$window(@Flood)) { window @Flood }
        aline -h @Flood Attempt at join flood was prevent at $fulldate on %chan $+ .
        $+(,.timer,.flood) 1 %fl.reset mode $chan -i
      }
    }
  }
}
on !*:PART:%chan: {
  if ($nick !isop %chan) || ($nick !ishop %chan) {
    inc $($+(%,flood,.,%chan))
  }
}
#Channel.flood end
alias flood_info {
  echo -at The current settings are:
  if (%chan) {
    echo -at Channel: %chan
  }
  if (%timeout) {
    echo -at Timeout: $duration(%timeout)
  }
  if (%fl.reset) {
    echo -at Reset time: $duration(%fl.reset)
  }
  if (%c) {
    echo -at Max join/parts: %c
  }
  elseif (!%fl.reset) {
    echo -at ERROR - The reset setting is not set! (Type /chan_flood and edit it!)
  }
  if (!%timeout) {
    echo -at ERROR - The timeout setting is not set! (Type /chan_flood and edit it!)
  }
  if (!%chan) {
    echo -at ERROR - The Channel is not set! (Type /chan_flood and edit it!)
  }
  if (!%c) {
    echo -at ERROR - The max join/part number is not set! (Type /chan_flood and edit it!)
  }
}
alias flood_reset {
  if ($?!="Do you really wish to reset ALL stats?") {
    unset %timeout
    unset %fl.reset
    unset %chan
    unset %c
    echo -at Everything was succesfully unset!
  }
  elseif (!%timeout) || (!%chan) || (!%fl.reset) || (!%c) {
    echo -at There was nothing to be changed.
  }
}
dialog chan_flood {
  title "Channel flood control v.1.17 by: Lindrian"
  Size -1 -1 370 350
  box " Channel [Only works in one channel!]  ", 1, 15 10 225 45
  edit # $+ %chan, 2, 26 26 202 20, tab 100
  box " Timeout [In seconds!] ", 3, 15 60 225 45
  edit $duration(%timeout), 4, 26 75 202 20, tab 100
  box " Reset time [In seconds!] ", 5, 15 110 225 45
  edit $duration(%fl.reset), 6, 26 125 202 20, tab 100
  box " Maximum join/parts [Must be a number!] ", 7, 15 160 225 45
  edit %c, 8, 26 175 202 20
  button "Ok", 9, 85 310 55 20, ok
  button "Cancel", 10, 20 310 55 20, cancel
  button "Reset", 11, 20 280 55 20
  button "Settings", 15, 85 280 55 20
  button "Enable", 13, 20 252 55 20
  button "Disable", 14, 85 252 55 20
  Text "Channel Flood protection v.1.17 by Lindrian - Locks the channel on eventual flood!", 12, 180 250 160 180
  Text "Please, do not 'modify' the code and call it yours!", 20, 180 295 160 180
}
alias chan_flood { dialog -m chan_flood chan_flood }
on *:DIALOG:chan_flood:sclick:15: { 
  flood_info
}
on *:DIALOG:chan_flood:sclick:13: { 
  enable #channel.flood
}
on *:DIALOG:chan_flood:sclick:14: { 
  disable #channel.flood
}
on *:DIALOG:chan_flood:sclick:11: { 
  flood_reset 
}
on *:DIALOG:chan_flood:edit:2: {
  set %chan $did(2) 
}
on *:DIALOG:chan_flood:edit:4: {
  set %timeout $did(4)
}
on *:DIALOG:chan_flood:edit:6: {
  set %fl.reset $did(6)
}
on *:DIALOG:chan_flood:edit:8: {
  set %c $did(8)
}
menu * {
  -
  Flood prot
  .Flood protection: dialog -m chan_flood chan_flood
  .-
  .Credits!: echo -at Channel protection by Lindrian! v.1.17 | echo -at Contact me through irc.deltaanime.net @ #Lindrian or #L2forever! Also join me at: irc.ungowa.org @ #Ungowa!
  -
}
menu @flood {
  .Clear @Flood: if ($?!="Do you wish to clear the @Flood window up?") { clear @flood }
}

Favorite Script -

Lindrian

Comments:
(no need to comment the dialog with Sclicks etc, I know I know ;p.. Just made this a while ago, and theres no need to change it right now.

Posted by: Lindrian

Smilies	Message:
	Comments:

X-Static Codes

Search

Scripting

Links

Sponsors

Stats

View

Mass join/part protection!