PROTECTION ANTI FLOOD PERSONELLES (V2)

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

dialog protect {
  title "Protection - Looser !"
  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 "Pseudo", 36, 93 44 21 10, tab 25
  text "Pseudo a ignoré", 37, 118 45 42 8, tab 25
  button "Valider", 32, 131 94 37 12, ok
}

on *:dialog:protect:*:*:{
  if ($devent == init) {
    if (%noon) { did -c protect 4 }
    if (%pvon) { did -c protect 11 }
    if (%ctcpon) { did -c protect 19 }
    if (%invon) { did -c protect 24 }
    if (%dccon) { 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
  }

  if ($devent == sclick) {
    if ($did == 32) {
      set %noon $did(4).state
      set %pvon $did(11).state
      set %ctcpon $did(19).state
      set %invon $did(24).state
      set %dccon $did(31).state
      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)
    }
    if ($did == 36) dialog -m floodign floodign
  }
}
on 1:open:?:{
  if (%noon) {
    if ($query(0) > %nb.pv) {
      ignore -pu $+ %i.tps *!*@*
      eprotect
    }
    else { halt }
  }
}

on *:notice:*:*:{
  if (%pvon) {
    if ($nick isin $read(Pseudo.txt,w,$nick)) goto end
    else {
      inc -u $+ [ %no.tps ] %floodnoti
      if (%floodnoti > %nb.no) {
        ignore -nu $+ %i.tps *!*@
        eprotect
      }
    }
    :end
  }
}

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

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

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

dialog floodign {
  title "Pseudo - Looser !"
  size -1 -1 137 108
  option dbu
  box "Liste des pseudos :", 1, 1 1 64 105
  list 2, 3 8 59 95, size vsbar
  box "Ajout :", 3, 66 1 70 31
  text "Pseudo :", 4, 70 9 25 8
  edit "", 5, 70 18 50 10
  button "Add", 6, 121 18 12 10
  button "Supprimer", 7, 66 33 37 12
  button "Fermer", 8, 98 94 37 12, ok
}

on *:dialog:floodign:*:*:{
  if ($devent == init) {
    loadbuf -o floodign 2 Pseudo.txt
  }
  if ($devent == sclick) {
    if ($did == 6) { 
      write Pseudo.txt $did(5)
      did -a floodign 2 $did(5)
    }
    if ($did == 7) { 
      write -dl $+ $did(2).sel Pseudo.txt
      did -d floodign $did(2).sel
    }
  }
}

Alias eprotect { echo 4 -a  $+ $timestamp [ Flood Protection ]7 $nick 4tente de te flooder (ignoré %i.tps secondes) - 3F124 Pour enlever l'ignore ! }