WantiBNCflood V1.1

;______________________________Menu_____________________________

menu status,nicklist,menubar {
  -
  WantiBNCflood V1.1
  .Configurer:wf
  .Désinstaller:dwf
}

;_____________________________Alias______________________________

alias wf dialog $iif($dialog(wantibncfloodlog),-v,-m wantibncfloodlog) wantibncfloodlog
alias dwf {
  var %s $input(Attention!! Cette action désinstalle l’addon $crlf $+ voulez-vous désinstaller cet addon?,iy,WorldDMT - WantiBNCflood v1.1)
  if (%s) .unload -rs $qt($scriptdirWantibncflood.mrc) $input(Désinstallation de l'Addon terminé avec succes. $crlf $+ Merci d'avoir utilisé Worlddmt WantiBNCflood,oik7,WorldDMT - WantiBNCflood v1.1)
}
alias -l wbnc.info {
  if ($did(5) != %wbnc.5) {
    if ($did(5) isnum) && ($chr(46) !isin $did(5)) { var %edit.5 Modification de mode +i $iif(%wbnc.5,de $v1,0) à $did(5) sec. $crlf $+ | set %wbnc.5 $did(5) }
    else var %edit.5 Erreur mode +i numéro non valide $crlf $+
  }
  if ($did(8) != %wbnc.8) {
    if ($did(8) isnum) && ($chr(46) !isin $did(8)) { var %edit.8 Modification de mode +m $iif(%wbnc.8,de $v1,0) à $did(8) sec. $crlf $+ | set %wbnc.8 $did(8) }
    else var %edit.5 Erreur mode +m numéro non valide $crlf $+
  }
  if ($did(11) != %wbnc.11) {
    if ($did(11) isnum) && ($chr(46) !isin $did(11)) { var %edit.11 Modification de mode +R $iif(%wbnc.11,de $v1,0) à $did(11) sec. $crlf $+ | set %wbnc.11 $did(11) }
    else var %edit.5 Erreur mode +R numéro non valide $crlf $+
  }
  if ($did(16) != %wbnc.16) { var %edit.16 Modification du message raison de kick. | set %wbnc.16 $v1 }
  var %x %edit.5 $+ %edit.8 $+ %edit.11 $+ %edit.16
  if (%x) did -ra wantibncfloodlog 15 %x
  else did -ra wantibncfloodlog 15 Aucune modification n'a été effectuée
}
alias wantibncflood {
  var %tk $strip($1-),%x $modespl,%i,%b,%ban
  if ($hfind(fld $+ #,%tk,0).data) {
    %i = $v1
    notice # 4flood detectée 1by WorldDMT Script
    .raw mode # +imR
    while (%i) var %host %host $hfind(fld $+ #,%tk,%i).data,%i %i - 1
    tokenize 32 %host
    %i = $numtok(%host,32)
    while %i {
      %b = $+(+,$str(b,%x))
      %ban = $iif($eval(%i,2) > $eval(%x,2),$eval($+($,$calc($eval(%i,2) - $eval(%x,2) + 1),-,$eval(%i,2)),2),$eval($+($,1-,$eval(%i,2)),2))
      .raw mode # %b %ban
      dec %i $numtok(%ban,32)
    }
    if (%wbnc.5) .timer1 1 $v1 mode # -i
    if (%wbnc.8) .timer2 1 $v1 mode # -m
    if (%wbnc.11) .timer3 1 $v1 mode # -R
  }
  else if ($len($1-) > 110) hadd -mu1 fld $+ # $wildsite $1-
}

;_____________________________Dialog______________________________

dialog wantibncfloodlog {
  title WorldDMT Anti BNC Flood
  size -1 -1 109 136
  option dbu
  text WorldDMT™ © 2009 v1.1, 1, 73 3 32 14, disable
  check Activer Anti BNC Flood, 2, 3 4 65 9
  box Désactivation des modes, 3, 2 16 105 41
  text Désactiver mode +i après, 4, 7 25 65 8
  edit %wbnc.5, 5, 76 24 15 9, limit 2
  text Sec., 6, 92 25 10 8
  text Désactiver mode +m après, 7, 7 35 65 8
  edit %wbnc.8, 8, 76 34 15 9, limit 2
  text Sec., 9, 92 35 10 8
  text Désactiver mode +R après, 10, 7 45 65 8
  edit %wbnc.11, 11, 76 44 15 9, limit 2
  text Sec., 12, 92 45 10 8
  box , 13, 2 56 105 34
  text Message après kick pour $crlf $+ les pseudos banni, 14, 5 61 100 15, center
  text info status et modifications..., 15, 6 92 100 27
  edit %wbnc.16, 16, 4 78 101 9, autohs
  button Enregistrer, 17, 2 122 52 12
  box , 18, 2 88 105 32
  button info versions, 19, 55 122 52 12
}
on *:dialog:wantibncfloodlog:*:*: {
  if ($devent == init) if (%wbnc.wp) did -c $dname 2
  elseif ($devent == sclick) {
    if ($did == 2) set %wbnc.wp $did(2).state
    elseif ($did == 17) wbnc.info
    elseif ($did == 19) var %x $input(WorldDMT - WantiBNCflood $crlf $+ Version 1.0 © 2008 $crlf $+ Version 1.1 © 2009 $crlf $crlf $+ World Design Multi Technology $crlf $+ E-mail: worlddmt@hotmail.com,io,WorldDMT - WantiBNCflood  v1.1)
  }
}

;_____________________________Event______________________________

on @*:NOTICE:*:#:if (%wbnc.wp) wantibncflood
on @*:ACTION:*:#:if (%wbnc.wp) wantibncflood
on @*:TEXT:*:#:if (%wbnc.wp) wantibncflood
on @*:ban:#:{
  if ($nick == $me) {
    var %i $ialchan($banmask,#,0).nick,%ban
    while (%i) {
      %ban = $ialchan($banmask,#,%i).nick
      if (%ban != $me) kick # %ban %wbnc.16 1WorldDMT Script
      dec %i
    }
  }
}
on *:load: {
  set %wbnc.5 0
  set %wbnc.8 0
  set %wbnc.11 0
  var %s $input(WorldDMT - WantiBNCflood a été bien installé. $crlf $+ Voulez-vous ouvrir l'addon?,iy,WorldDMT - WantiBNCflood v1.1)
  if (%s) wf
}
on *:unload:unset %wbnc.*