;############################################################################
; حمايه من قويه الكلون والماس جوين
;############################################################################

on 5:JOIN:* {
  set %Var.Temp $address($nick,2)
  if (%Var.Temp iswm $address($me,5)) { unset %Var.Temp.* | halt }
  if (%Group.MassJoin == On) && ($me isop $chan) {
    if ([ %Join. [ $+ [ $site ] ] ] == $null) { set %Join. [ $+ [ $site ] ] 1 | .timer 1 30 /unset %Join. [ $+ [ $site ] ] | set %Join.Time [ $+ [ $site ] ] $ctime | .timer 1 30 /unset %Join.Time [ $+ [ $site ] ] ] }
    if ([ %Join. [ $+ [ $site ] ] ] > 3) { 
      %Join.Temp. [ $+ [ $site ] ] = [ [ $ctime ] - [ %Join.Time [ $+ [ $site ] ] ] ]
      ban $chan $nick 2 | kick $chan $nick Mass Join Detected Join In %Join.Temp. [ $+ [ $site ] ] Sec Of 430. %ver2 | unset %Join. [ $+ [ $site ] ] | echo Complete Kicking $nick from $chan for Mass Join Protection | halt 
    }
    inc %Join. [ $+ [ $site ] ] 1
  }
  if ($ial(%Var.Temp,0) > 1) {
    set %Var.Index 1
    :getnick
    set %Clone.Nick $ial(%Var.Temp,%Var.Index).nick | if (%Clone.Nick == $null) { goto check }
    if (%Clone.Nick ison $chan) {
      if (%Clone.List == $null) { set %Clone.List %Clone.Nick | inc %Var.Index | goto getnick }
      set %Clone.List [ %Clone.List ] --> %Clone.Nick | inc %Var.Index | goto getnick
    } inc %Var.Index | goto getnick
    :check
    if ($gettok(%Clone.List,3,32) == $null) { goto end }
    set %Var.LastClone %Var.Temp
    if (%Group.Clones != On) || ($ial(%Var.Temp,0) < %Var.Max) { goto end } 
    if ($me !isop $chan) { goto end }
    set %Var.Index 1 | set %Clone.List $remove(%Clone.List,-->) | mode $chan +b %Var.Temp
    .notice $chan Warning Clone IP: %Var.Temp
    :kickclone
    set %Var.Temp $gettok(%Clone.List,%Var.Index,32) 
    if (%Var.Temp == $null) { goto end }
    kick $chan %Var.Temp Clone Detected. | inc %Var.Index | goto kickclone
    :end
    unset %Clone.* | unset %Var.Temp | halt
  }
}

alias thank dialog -mo thank thank
dialog thank {
  title "Add-ons By CoteDor"
  size -1 -1 200 180
  box "",1,5 0 190 70
  text "Thank you for loading this Add-on written by CoteDor. Please visit my website for more add-ons and other IRC tools. Have fun.",2,10 12 180 50,left
  box "",3,5 68 190 86
  text "Banned@LoveMaiL.Com",4,10 80 180 15,center
  edit "http://Chan-Scripts.Cjb.Net",5,33 100 130 22,center,read
  button "Visit",6,70 127 50 20
  button "Close",7,5 158 190 20,ok
}
on *:dialog:thank:init:0:/did -f thank 6
on *:dialog:thank:sclick:6:/run http://chan-scripts.cjb.net 
on *:load:{ thank } }