saybermDmrc

;script pour auto-voice with mode +mD
raw 355:*:{
  if ($4 != $null) {
    set %chandeaf $3
    userhost $4-6
  }
  halt
}
raw 366:*:{ halt }
;script pour activation/d�sactivation auto du timer deaf si les modes +mD set/unset par un Op ( modif: 10 janvier 2010 � 22:25 )
on 1:MODE:#:{
  if (mn !isin $chan($chan).mode) {
    if (Dm isin $chan($chan).mode && $timer(deaf $+ $chan) == $null) {
      if ($me isop $chan) { .timerdeaf $+ $chan 0 12 .names -d $chan | msg $chan * autovoice ON (deaf) }
      elseif ($eval($+(%,acc.,$chan),2) >= 25) { .timerdeaf $+ $chan 0 12 .names -d $chan | msg $chan * autovoice ON (deaf) }
      else { notice @ $+ $chan ATTENTION: le chan $chan est en mode Deaf! }
    }
    elseif ($timer(deaf $+ $chan) != $null && Dm !isin $chan($chan).mode) { .timerdeaf $+ $chan off | msg $chan * autovoice OFF (no deaf) }
  }
  elseif ($timer(deaf $+ $chan) != $null) { .timerdeaf $+ $chan off | msg $chan * autovoice OFF (Max modesC exceeded) }
}
raw 302:*:{
  if (%chandeaf != $null) {
    var %i = 1, %voicenick
    while (%i < $0) {
      inc %i
      if (+ isin $eval($+($,%i),2)) { var %z = $replace($eval($+($,%i),2),=+,!) }
      else { var %z = $replace($eval($+($,%i),2),=-,!) }
      var %nname = $gettok(%z,1,33)
      if ($level(%z) == 4) {
        if (x ison %chandeaf && $eval($+(%,acc.,%chandeaf),2) >= 75) { .msg x ban %chandeaf $mask(%z,2) 40D 100 Proxy blacklisted -sayber script- }
        elseif ($me isop %chandeaf) {
          timer 1 0 .raw kick %chandeaf %nname Proxy
          if ($mask(%z,4) !isban %chandeaf) { .ban -u3600 %chandeaf $mask(%z,4) | set -u10 $+(%,$mask(%z,4)) %chandeaf }
        }
      }
      elseif ($level(%z) == 6) {
        if (x ison %chandeaf && $eval($+(%,acc.,%chandeaf),2) >= 100) { .msg x ban %chandeaf $mask(%z,2) 6 100 blacklisted -sayber script- }
        elseif ($me isop %chandeaf) { timer 1 0 .raw kick %chandeaf %nname blacklisted | .ban -u3600 %chandeaf $address(%n.name,2) }
      }
      else { set %voicenick %voicenick %nname }
    }
    if ($me isop %chandeaf) { .mode %chandeaf +vvvvvv %voicenick }
    elseif ($eval($+(%,acc.,%chandeaf),2) >= 25) { .msg x voice %chandeaf %voicenick }
    unset %chandeaf
  }
}