SYSTEM DE PROTECTIONS PERSONNELLES - ANTIFLOOD

Menu menubar,channel,query {
  -
  Protections Perso:/dia protect
}

dialog protect {
  title "Protections"
  size -1 -1 170 108
  option dbu
  tab "Flood Pvs / Notices", 1, 2 0 165 91
  box "Flood Pvs :", 2, 7 16 72 69, tab 1
  box "Flood Notices :", 3, 81 16 80 69, tab 1
  check "Activé", 4, 12 73 50 10, tab 1
  text "Nombre max de Pvs :", 5, 10 25 53 8, tab 1
  edit "", 6, 65 24 10 10, tab 1
  text "Nombre de Notice :", 7, 85 25 48 8, tab 1
  edit "", 8, 147 24 10 10, tab 1
  text "Limite de temps (sec) :", 9, 85 37 56 8, tab 1
  check "Activé", 11, 86 73 50 10, tab 1
  edit "", 10, 147 36 10 10, tab 1
  tab "Flood CTCP / Invitations", 12
  box "Flood CTCP :", 13, 8 16 71 69, tab 12
  box "Flood Invitations :", 14, 81 16 80 69, tab 12
  text "Nombre de CTCP :", 15, 11 25 46 8, tab 12
  edit "", 16, 66 24 10 10, tab 12
  text "Limite de temps (sec) :", 17, 11 37 54 8, tab 12
  check "Activé", 19, 12 73 50 10, tab 12
  text "Nombre d'invitations :", 20, 85 25 53 8, tab 12
  edit "", 21, 148 24 10 10, tab 12
  text "Limite de temps (sec) :", 22, 85 37 58 8, tab 12
  edit "", 23, 148 36 10 10, tab 12
  check "Activé", 24, 86 73 50 10, tab 12
  edit "", 18, 66 36 10 10, tab 12
  tab "Divers", 25
  box "Flood DCCs :", 26, 8 16 78 69, tab 25
  text "Nombre de DCCs :", 27, 12 26 46 8, tab 25
  edit "", 28, 73 25 10 10, tab 25
  text "Limite de temps (sec) :", 29, 12 37 54 8, tab 25
  edit "", 30, 73 36 10 10, tab 25
  check "Activé", 31, 12 72 50 10, tab 25
  text "Temps général d'ignore :", 33, 92 20 64 8, tab 25
  edit "", 34, 92 30 20 10, tab 25 limit 15
  text "secondes.", 35, 114 31 25 8, tab 25
  button "Valider", 32, 131 94 37 12, ok
}

on *:dialog:protect:init:0:{
  if (%noon != $null) { did -c protect 4 }
  if (%pvon != $null) { did -c protect 11 }
  if (%ctcpon != $null) { did -c protect 19 }
  if (%invon != $null) { did -c protect 24 }
  if (%dccon != $null) { did -c protect 31 }
  did -a protect 6 %nb.pv
  did -a protect 8 %nb.no
  did -a protect 10 %no.tps
  did -a protect 16 %nb.ctcp
  did -a protect 18 %ctcp.tps
  did -a protect 21 %nb.inv
  did -a protect 23 %inv.tps
  did -a protect 28 %nb.dcc
  did -a protect 30 %dcc.tps
  did -a protect 34 %i.tps
}

on *:dialog:protect:sclick:32:{
  if ($did(4).state == 1) { set %noon on }
  if ($did(11).state == 1) { set %pvon on }
  if ($did(19).state == 1) { set %ctcpon on }
  if ($did(24).state == 1) { set %invon on }
  if ($did(31).state == 1) { set %dccon on }
  if ($did(4).state == 0) { unset %noon }
  if ($did(11).state == 0) { unset %pvon }
  if ($did(18).state == 0) { unset %ctcpon }
  if ($did(24).state == 0) { unset %invon }
  if ($did(31).state == 0) { unset %dccon }
  set %nb.pv $did(6)
  set %nb.no $did(8)
  set %no.tps $did(10)
  set %nb.ctcp $did(16)
  set %ctcp.tps $did(18)
  set %nb.inv $did(21)
  set %inv.tps $did(23)
  set %nb.dcc $did(28)
  set %dcc.tps $did(30)
  set %i.tps $did(34)
}

on 1:open:?:{
  if (%pvon == on) {
    if ($query(0) > %nb.pv) {
      ignore -pu $+ %i.tps *!*@*
      /eprotect
    }
    else { halt }
  }
}

on *:notice:*:*:{
  if ((IriX isin $nick) || (systak isin $nick)) { goto end }
  else {
    inc -u $+ [ %no.tps ] %floodnoti
    if (%floodnoti > %nb.no) {
      ignore -nu $+ %i.tps *!*@
      /eprotect
    }
  }
  :end
}

on *:ctcp:*:*:{
  inc -u $+ [ %ctcp.tps ] %floodctcp
  if (%floodctcp > %nb.ctcp) {
    ignore -tu $+ %i.tps *!*@*
    /eprotect
  }
}

on *:invite:#:{
  inc -u $+ [ %inv.pts ] %floodinv
  if (%floodinv > %nb.inv) {
    ignore -iu $+ %i.tps *!*@*
    /eprotect
  }
}

on *:dccserver:*:{
  inc -u [ %inv.tps ] %flooddcc
  if (%flooddcc > %nb.dcc) {
    ignore -iu $+ %i.tps *!*@
    /eprotect
  }
}

Alias dia { dialog -m $$1 $$1 }
Alias eprotect { echo 4 -a  $+ $timestamp [ Flood Protection ]7 $nick 4tente de te flooder (ignoré %i.tps secondes) - 3F124 Pour enlever l'ignore ! }
Alias F12 { .ignore -r *!*@* | /perso Toutes les ignores sont enlevées }
Alias perso { echo 12 -a $timestamp 14[ Info ]4 $1- }