WANTIBNCFLOOD V1.0

menu menubar { 
  -
  WantiBNCflood V1.0
  .Configurer:wf
  .Désinstaller:dwf
}
dialog wantibncfloodlog {
  title "WorldDMT Anti BNC Flood"
  size -1 -1 110 113
  option dbu
  text "Activation de Anti BNC Flood", 1, 5 5 75 8, left
  check "ON/OFF", 2, 76 4 30 9
  box "Désactivation de modes", 3, 2 15 75 41
  text "mode - i après", 4, 7 25 40 8, left
  edit %i, 5, 45 24 15 9, limit2
  text "Sec.", 6, 62 25 40 8, left
  text "mode - m après", 7, 7 35 40 8, left
  edit %m, 8, 45 34 15 9, limit2
  text "Sec.", 9, 62 35 40 8, left
  text "mode - R après", 10, 7 45 40 8, left
  edit %R, 11, 45 44 15 9, limit2
  text "Sec.", 12, 62 45 40 8, left
  box "kick banned nick", 13, 2 57 106 37
  text "Message de kick pour les nicks", 14, 5 65 100 7, center
  text "qui ont un ban sur le chan", 15, 5 71 100 7, center
  edit %kbmsg, 16, 5 80 100 9, autohs
  button "valide", 17, 2 95 106 12, ok
  box "info", 18, 78 15 30 41
  text "Pour plus", 19, 78 25 30 8, center
  text "d'info", 20, 78 32 30 8, center
  button "INFO", 21, 79 40 28 10
}
dialog winfo {
  title "Winfo"
  size -1 -1 120 56
  option dbu
  box "WorldDMT™- World Design Multi Technology", 22, 1 5 118 50
  text "WorldDMT Script - © 2008", 23, 5 15 77 8, left
  text "E-mail: worlddmt@hotmail.com Web/profile:", 24, 5 23 77 14, left
  link "www.ircfr.com/auteur/WORLDDMT/815724.aspx", 25, 5 37 100 18
}
dialog deswf {
  title "Désinstaller WantiBNCflood"
  size -1 -1 150 40
  option dbu
  box "ATTENTION!!", 16, 1 2 148 37
  text "Cette action supprime l’addon WantiBNCflood V1.0 voulez-vous désinstallé WantiBNCflood ?", 27, 12 9 125 24, Center
  button "Oui", 28, 45 25 30 12, ok
  button "Non", 29, 75 25 30 12, cancel
}
alias wf {
  if ($dialog(wantibncfloodlog)) echo -s la fenêtre WorldDMT Anti BNC Flood est déjà ouverte
  else dialog -m wantibncfloodlog wantibncfloodlog
}
alias wi {
  if ($dialog(winfo)) return
  else dialog -ma winfo winfo
}
alias dwf {
  if ($dialog(deswf)) return
  else dialog -ma deswf deswf
}
alias wantibncflood {
  tokenize 32 $strip($1-)
  if ($hfind(fld $+ $chan,$1-,0).data) {
    var %v $v1 
    while (%v) var %nick = %nick $hfind(fld $+ $chan,$1-,%v).data ,%v %v - 1
    inc %v
    raw mode # +imRbb %nick $address($nick,2)
    notice # 4flood detectée 1by WorldDMT Script
    if (%i) timer1 1 %i mode # -i
    if (%m) timer2 1 %m mode # -m
    if (%R) timer3 1 %R mode # -R
  } 
  else if ($len($1-) > 110) hadd -mu1 fld $+ $chan $address($nick,2) $1-
}
on *:dialog:deswf:sclick:28: unload -rs wantibncflood.mrc
on *:dialog:winfo:sclick:25:run www.ircfr.com/auteur/WORLDDMT/815724.aspx 
on *:dialog:wantibncfloodlog:sclick:21:wi
on *:dialog:wantibncfloodlog:*:*: {
  if ($devent == sclick) {
    if ($did(2).state) set %wp 1 | else unset %wp
    if ($did(17)) {
      if $did(16) != $null { set %kbmsg $did(16) } | else unset %kbmsg
      if $did(5) != $null { set %i $did(5) } | else unset %i 
      if $did(8) != $null { set %m $did(8) } | else unset %m
      if $did(11) != $null { set %R $did(11) } | else unset %R
    }    
  }
  elseif ($devent == init) {
    if (%wp) did -c $dname 2
  }
}
on @*:NOTICE:*:#: if (%wp) wantibncflood $1- 
on @*:ACTION:*:#: if (%wp) wantibncflood $1- 
on @*:TEXT:*:#: if (%wp) wantibncflood $1- 
on @*:ban:#: {
  var %b 0,%c $ialchan($banmask,#,0).nick,%ban 
  while %b < %c  { 
    inc %b 
    %ban = $ialchan($banmask,#,%b).nick
    if ($nick != $me) kick # %ban %kbmsg 1by WorldDMT Script
  } 
}
on *:load: {
  echo -a  - Chargement de l'Addon WantiBNCflood V1.0 réussit
  echo -a  - 
  echo -a  - Vous trouvez dans le menu bar WantiBNCflood
  echo -a  - 
  echo -a  - Cliquez dessus pour la configuration de l'Addon
}
on *:unload: {
  echo -a  - Désinstallation de l'Addon terminé avec succes
  echo -a  -
  echo -a  - merci d'avoir utilisé WantiBNCflood V1.0
  echo -a  - 
  echo -a  - WorldDMT
}

Télécharger le zip

18 juin 2008 10:32:41 :

j'avais oublié quelque chose dans l'explication "kick tout les clones a part les ops"

18 juin 2008 13:01:43 :

j'ai modifié .table ça peu allé sans ça

18 juin 2008 22:42:11 :

kick les ops aussi si ils font parti du banmask

19 juillet 2008 13:41:31 :

.

01 août 2008 19:38:57 :

.