alias logdj msg x@channels.undernet.org login djquazar sl1107

alias nnick {
  set %fuckthat $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) | //nick %fuckthat $+ %fuckthat $+ %fuckthat $+ %fuckthat | //set %fuckthat $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)
}

alias vme msg x voice $chan $me

alias dvme msg x devoice $chan $me

alias v {
  msg x voice $chan $1 $2 $3 $4 $5
}

alias dv {
  msg x devoice $chan $1 $2 $3 $4 $5
}

alias xva {
  var %z = 0
  var %y
  var %x = 1
  while (%z <= $nick($chan,0)) {
    inc %z
    if ($nick($chan,%z) isreg $chan) {
      %y = %y $nick($chan,%z)
    }
    if ($numtok(%y,32) >= 20) {
      if (%x < 3) {
        .msg x voice # %y
        set -u %y
        inc %x
      }
      else {
        if (%x == 3) {
          .timer -m 1 500 echo -a $timestamp 40 voices a la fois sinon le x va m'ignorer.
          goto :end
        }
      }
    }
  }
  if (%y) {
    .msg x voice # %y
  }
  :end
}



alias xdva {
  var %z = 0
  var %y
  var %x = 1
  while (%z <= $nick($chan,0)) {
    inc %z
    if ($nick($chan,%z) isvoice $chan) {
      %y =  %y $nick($chan,%z)
    }
    if ($numtok(%y,32) >= 20) {
      if (%x < 3) {
        msg x devoice $chan %y
        set -u %y
        inc %x
      }
      else {
        if (%x == 3) {
          .timer -m 1 500 echo -a $timestamp mystic's Script: Too many nicks. I will voice only 40 nicks so X will not ignore you.
          goto :end
        }
      }
    }
  }
  if (%y) {
    msg x devoice $chan %y
  }
  :end
}


alias op {
  msg x@channels.undernet.org op $chan $1 $2 $3 $4 $5
}

alias dop {
  msg x@channels.undernet.org deop $chan $1 $2 $3 $4 $5
}

alias opme {
  msg x@channels.undernet.org op $chan $me
}

alias dopme {
  msg x@channels.undernet.org deop $chan $me
}

alias k msg x@channels.undernet.org kick $chan $1 $2-

alias kkkk {
  if ( $len($1) >= 2) {
    msg x@channels.undernet.org kick $chan $1 tu tu tu on se calme !
  }
  if ( $len($2) >= 2) {
    msg x@channels.undernet.org kick $chan $2 tu tu tu on se calme !
  }
  if ( $len($3) >= 2) {
    msg x@channels.undernet.org kick $chan $3 tu tu tu on se calme !
  }
  if ( $len($4) >= 2) {
    msg x@channels.undernet.org kick $chan $4 tu tu tu on se calme !
  }
}

alias kbh msg x ban $chan $address($1,2) 1 75 $2-

alias kbh1 msg x ban $chan $address($1,2) 1 100 $2- .. prend une pause et reviens dans une heure pas avant.

alias kbh2 msg x ban $chan $address($1,2) 2 75 $2- .. prend une pause et reviens dans deux heures pas avant.

alias kbh3 msg x ban $chan $address($1,2) 3 75 $2- .. prend une pause et reviens dans trois heures pas avant.

alias kbh5 msg x@channels.undernet.org ban $chan $address($1,2) 5 75 $2- .. prend une pause et reviens dans cinq heures pas avant.

alias kbh10 msg x@channels.undernet.org ban $chan $address($1,2) 10 75 $2- .. prend une pause et reviens dans dix heures pas avant.

alias kbhvie msg x@channels.undernet.org ban $chan $address($1,2) 2400 75 Banni [MAN] $2- : Mauvais comportement ..  exclus du chan quelques temps


alias kbp msg x@channels.undernet.org ban $chan $1 2400 100 Adresse IP non-acceptée !

alias kbpt msg x@channels.undernet.org ban $chan $1 24 100 $2- Host Open / Proxy

alias kbspam msg x@channels.undernet.org ban $chan $1 600 100  Banni [MAN] $2- : Spam/Pub non acceptée !

alias kbhspam msg x@channels.undernet.org ban $chan $address($1,2) 600 100 Spam/Pub non acceptée !

alias db msg x@channels.undernet.org unban $chan $1

alias dbme {
  msg x@channels.undernet.org unban $1 *!*@garfield33.users.undernet.org
  msg x@channels.undernet.org unban $1 *!*@24.122.144.*
}

alias kbh1 msg x ban $chan *!*@ $+ $1 1 75 $date $timestamp  Ban de $chan pour une heure : $2-

alias kbn1 {
  var %n = $1
  msg x@channels.undernet.org ban $chan  $address(%n,2)  1 75 $date $timestamp  Ban de $chan pour une heure : $2-
}

alias m {
  if ( $me isop $chan ) {
    mode $chan +m
  }
  else {
    %mode_demande_mettre = +m
    msg x@channels.undernet.org op $chan $me
    Seq_demande_de_mettre_un_mode
  }
}

alias dm {
  if ( $me isop $chan ) {
    mode $chan -m
  }
  else {
    %mode_demande_mettre = -m
    msg x@channels.undernet.org op $chan $me
    Seq_demande_de_mettre_un_mode
  }
}

alias D {
  if ( $me isop $chan ) {
    mode $chan +D
  }
  else {
    %mode_demande_mettre = +D
    msg x@channels.undernet.org op $chan $me
    Seq_demande_de_mettre_un_mode
  }
}

alias DD {
  if ( $me isop $chan ) {
    mode $chan -D
  }
  else {
    %mode_demande_mettre = -D
    msg x@channels.undernet.org op $chan $me
    Seq_demande_de_mettre_un_mode
  }
}

alias r {
  if ( $me isop $chan ) {
    mode $chan +r
  }
  else {
    %mode_demande_mettre = +r
    msg x@channels.undernet.org op $chan $me
    Seq_demande_de_mettre_un_mode
  }
}

alias dr {
  if ( $me isop $chan ) {
    mode $chan -r
  }
  else {
    %mode_demande_mettre = -r
    msg x@channels.undernet.org op $chan $me
    Seq_demande_de_mettre_un_mode
  }
}

alias i {
  if ( $me isop $chan ) {
    mode $chan +i
  }
  else {
    %mode_demande_mettre = +i
    msg x@channels.undernet.org op $chan $me
    Seq_demande_de_mettre_un_mode
  }
}

alias di {
  if ( $me isop $chan ) {
    mode $chan -i
  }
  else {
    %mode_demande_mettre = -i
    msg x@channels.undernet.org op $chan $me
    Seq_demande_de_mettre_un_mode
  }
}

alias mD {
  if ( $me isop $chan ) {
    mode $chan +mD
  }
  else {
    %mode_demande_mettre = +mD
    msg x@channels.undernet.org op $chan $me
    Seq_demande_de_mettre_un_mode
  }
}

alias dmD {
  if ( $me isop $chan ) {
    mode $chan -mD
  }
  else {
    %mode_demande_mettre = -mD
    msg x@channels.undernet.org op $chan $me
    Seq_demande_de_mettre_un_mode
  }
}

alias dmr {
  if ( $me isop $chan ) {
    mode $chan -mr
  }
  else {
    %mode_demande_mettre = -mr
    msg x@channels.undernet.org op $chan $me
    Seq_demande_de_mettre_un_mode
  }
}


alias Seq_demande_de_mettre_un_mode {
  %demande_mettre_un_mode = 1
  timer10 1 5 Seq_reset_demande_mettre_un_mode
}

alias Seq_reset_demande_mettre_un_mode {
  %demande_mettre_un_mode = 0
  %mode_demande_mettre = ""
}

on 1:OP:#: {
  if ( %demande_mettre_un_mode == 1 ) {
    if ( $opnick == $me ) {
      mode $chan %mode_demande_mettre
    }
  }
}