ANTI INSULTES EN HASHTABLE

dialog badwords {
  title "©         •anti-insultes•"
  size -1 -1 152 190
  option dbu
  list 2, 21 44 110 125, size
  button "Nouveau", 1, 22 27 37 12
  button "Supprimer", 3, 93 27 37 12
  button "OK", 5, 57 176 37 12, ok
  text "choisis le canal d'action", 8, 48 5 55 8
  edit "", 9, 51 12 50 10
  box "", 10, 18 39 116 133
  menu "activation", 24
  item "on", 25, 24
  item "off", 27, 24
  menu "protection", 28
  item "op", 29, 28
  item "halfop", 13, 28
  item "voice", 30, 28
  menu "sentence", 31
  item "avertir", 34, 31
  item "kick", 35, 31
  item "kickban", 36, 31
}



alias badwords { dialog -m badwords badwords }

alias ap {
  if ($isid) return $hget(badwords,$1)
  else hadd badwords $1-
}

on *:text:*:%wordchan:{
  if ((($nick isop #) && ($ap(op) == on)) || (($nick isvoice #) && ($ap(voice) == on)) || (($nick($chan,$nick,h)) && ($ap(halfop))) || ($ap(actif) != on) || ($me !isop #)) { halt }
  else {
    var %i 1
    while (%i <= $0) {
      if ($istok($ap(list),$strip($gettok($1-,%i,32)),182) == $true) && ($ap(sent) == a) { /msg # Le mot  $gettok($1-,%i,32)  est interdit | .halt }
      if ($istok($ap(list),$strip($gettok($1-,%i,32)),182) == $true) && ($ap(sent) == k) { /msg # Le mot  $gettok($1-,%i,32)  est interdit | /kick # $nick | .halt }
      if ($istok($ap(list),$strip($gettok($1-,%i,32)),182) == $true) && ($ap(sent) == kb) { /msg # Le mot  $gettok($1-,%i,32)  est interdit | ban # $nick 2 | /kick # $nick | .halt } 
      inc %i
    }
  }
}


on *:action:*:%wordchan:{
  if ((($nick isop #) && ($ap(op) == on)) || (($nick isvoice #) && ($ap(voice) == on)) || (($nick($chan,$nick,h)) && ($ap(halfop))) || ($ap(actif) != on) || ($me !isop #)) { halt }
  else {
    var %i 1
    while (%i <= $0) {
      if ($istok($ap(list),$strip($gettok($1-,%i,32)),182) == $true) && ($ap(sent) == a) { /msg # Le mot  $gettok($1-,%i,32)  est interdit | .halt }
      if ($istok($ap(list),$strip($gettok($1-,%i,32)),182) == $true) && ($ap(sent) == k) { /msg # Le mot  $gettok($1-,%i,32)  est interdit | /kick # $nick | .halt }
      if ($istok($ap(list),$strip($gettok($1-,%i,32)),182) == $true) && ($ap(sent) == kb) { /msg # Le mot  $gettok($1-,%i,32)  est interdit | ban # $nick 2 | /kick # $nick | .halt }
      inc %i
    }
  }
}

on *:exit:{ hsave -o badwords badwords }

on *:start:{
  if ($ap(badwords)) .hfree badwords | hmake badwords 200
  if ($exists(badwords) = $true) .hload badwords badwords
  else { ap badwords off }
}

on *:DIALOG:badwords:*:*:{
  if ($devent == init) {
    did -r $dname 2
    if ($ap(actif) == on) { did -c $dname 25 | did -u $dname 27 }
    else { did -c $dname 27 | did -u $dname 25 }
    didtok $dname 2 182 $ap(list)
    did -a $dname 9 %wordchan
    $iif($ap(op) == on,did -c $dname 29,did -u $dname 29)
    $iif($ap(halfop),did -c $dname 13,did -u $dname 13)
    $iif($ap(voice) == on,did -c $dname 30,did -u $dname 30)
    if ($ap(sent) == a) { did -c $dname 34 | did -u $dname 35 | did -u $dname 36 }
    elseif ($ap(sent) == k) { did -u $dname 34 | did -c $dname 35 | did -u $dname 36 }
    else { did -u $dname 34 | did -u $dname 35 | did -c $dname 36 }
  }
  elseif ($devent == sclick) {
    if ($did == 1) {
      var %tps = $$?="Entrer le mot a kicker"
      if (%tps == $null) halt
      elseif ($count(%z,¶) != 0) { var %tps = $input(Ne peut pas contenir  ce caractaire : ¶,-o,ERREUR) | halt }
      elseif ($istok($ap(list),%tps,182) == $true) { var %tps = $input(Désolé mais ce mot est déjà dans la liste !,-o,ERREUR) | halt }
      ap list $addtok($ap(list),%tps,182)
      did -r $dname 2
      didtok $dname 2 182 $ap(list)
    }
    elseif ($did == 3) {
      ap list $deltok($ap(list),$did(2).sel,182)
      did -r $dname 2
      didtok $dname 2 182 $ap(list)
    }
    elseif ($did == 9) {  $did($dname,9) badwords  %wordchan }
    elseif ($did == 5) { set %wordchan $did($dname,9) }
  }
  elseif ($devent == menu) {
    if ($did == 25) { ap actif on
      did -c $dname 25
      did -u $dname 27
    }
    elseif ($did == 27) { ap actif off
      did -c $dname 27
      did -u $dname 25
    }
    elseif ($did = 29) { $iif($ap(op) == off,ap op on,ap op off)
      $iif($ap(op) == on,did -c $dname 29,did -u $dname 29)
    }
    elseif ($did = 13) { $iif($ap(halfop) == 0,ap halfop 1,ap halfop 0)
      $iif($ap(halfop),did -c $dname 13,did -u $dname 13)
    }
    elseif ($did = 30) { $iif($ap(voice) == off,ap voice on,ap voice off)
      $iif($ap(voice) == on,did -c $dname 30,did -u $dname 30)
    }
    elseif ($did = 34) { ap sent a
      did -c $dname 34 | did -u $dname 35 | did -u $dname 36
    }
    elseif ($did = 35) { ap sent k
      did -u $dname 34 | did -c $dname 35 | did -u $dname 34
    }
    elseif ($did = 36) { ap sent kb
      did -u $dname 34 | did -u $dname 35 | did -c $dname 36
    }
  }
}