alias np { /dde mplug announce }
alias kb {
  if ($2) { set %kreason $2- )
    if (!$2) { set %kreason fuck off }
  kick $chan $1 %kreason ( $+ %ks $+ }
  inc %ks
}
alias k {
  if ($2) { set %kreason $2- )
    if (!$2) { set %kreason fuck off }
    kick $chan $1 ( $+ %ks $+ )
    inc %ks
  }
  alias m {
    mode $active +b ~q: $+ $address($1,2)
    if ($2 == -t) {
      timer 1 $3 /mode $active -b ~q: $+ $address($1,2)
      .notice $1 I just muted you for $3 minutes for reason: $iif(!$4, No reason, $4-)
    }
    else { .notice $1 I just muted you for reason: $iif(!$2, No reason, $2-) }
  }


  on 1:INPUT:#: {
    if ($pos($1,+,1) == 1) || ($pos($1,-,1) == 1) && ($pos($1,b,1) != 2) && ($pos($1,m,1) != 2) && ($pos($1,t,1) != 2) {
      if ($2) {
        /mode $chan $1 $2- $2 $2 $2 $2
      }
      if (!$2) {
        /mode $chan $1 $me $me $me $me
      }
      halt
    }
    if (($pos($1,+,1) == 1) && ($pos($1,b,1) == 2)) {
      if ($2 ison $chan) {
        /mode $chan +b $address($2,2)
      }
      else {
        /mode $chan +b $2
      }
      if ($pos($1,k,1) == 3) {
        set %ban. $+ $2 $address($2,2)
        /kick $chan $2-
      }
      halt
    }
    if (($pos($1,-,1) == 1) && ($pos($1,b,1) == 2)) {
      if (%,ban.,$2) {
        /mode $chan -b $eval($+(%,ban.,$2),2)
        .notice $2 You have been unbaned from $chan
      }
      if (!%,ban.,$2) {
        if ($2 ison $chan) {
          /mode $chan -b $address($2,2)
        }
        else {
          mode $chan -b $2
        }
      }
      halt
    }
    if (($pos($1,+,1) == 1) && ($pos($1,m,1) == 2)) {
      if ($2) {
        if ($2 ison $chan) {
          /mode $chan +b ~q: $+ $address($2,2)
          /mode $chan -hov $2 $2 $2 $2
          set %muted. $+ $2 $eval($address($2,2))
        }
        else {
          /mode $chan +b ~q: $+ $2
        }
      }
      if (!$2) {
        /mode $chan +m
      }
      halt
    }
    if (($pos($1,-,1) == 1) && ($pos($1,m,1) == 2)) {
      if ($2) {
        if ((%,muted.,$2)) {
          /mode $chan -b ~q: $+ $eval($+(%,muted.,$2),2)
          .notice $2 You have been unmuted on $chan
          unset %muted. $+ $2
        }
        if (!(%,muted.,$2)) {
          if ($address($2,2)) {
            /mode $chan -b ~q: $+ $address($2,2)
          }
          if (!$address($2,2)) {
            /mode $chan -b ~q: $+ $2
          }
        }
      }
      if (!$2) {
        /mode $chan -m
      }
      halt
    }
    if (($pos($1,+,1) == 1) && ($pos($1,t,1) == 2)) {
      if (($pos($1,k,1) == 3) && ($pos($1,b,1) == 4)) {
        if ($3 ison $chan) {
          var %tkbtime = $calc(($2)*60)
          /mode $chan +b $address($3,2)
          .timer 1 %tkbtime mode $chan -b $address($3,2)
          set %ban. $+ $2 $address($3,2)
          if (!$4) {
            /kick $chan $3 Time out. $2 minute(s) ( $+ %tkbtime seconds)
          }
          if ($4) {
            /kick $chan $3 Time out. Reason: $4- ( $+ $2 minute(s) ( $+ %tkbtime seconds))
          }
        }
      }
      else {
        mode $chan +t
      }
      halt
    }
  }
  alias calc {
    var %calc = $replace($1,d,*60*60*24,m,*60,h,*60*60)
    if (!$1) { echo -a 14[ $+ $asctime(HH:nn) $+ ]7 Insufficient parameters.  }
    if ($1) { echo -a 14[ $+ $asctime(HH:nn) $+ ]7 $calc((%calc))  }
  }