on *:TEXT:!idle*:#steve: {
  if ($nick isreg #) {
    set %idle [ $+ [ $nick ] ] $ctime
    timer $+ $nick $+ 1 1 360 mode # +v $nick $chr(124) cs access # add $nick 3 $chr(124) msg # Gratz $nick on the +v (voice)
    timer $+ $nick $+ 2 1 1440 mode # +h-v $nick $nick $chr(124) cs access # add $nick 4 $chr(124) msg # Gratz $nick on the +h (halfop)
    timer $+ $nick $+ 3 1 7200 mode # +o-vh $nick $nick $nick $chr(124) cs access # add $nick 5 $chr(124) msg # Gratz $nick on the +o (op)
    timer $+ $nick $+ 4 1 14400 mode # +ao-vh $nick $nick $nick $nick $chr(124) cs access # add $nick 10 $chr(124) msg # Gratz $nick on the +ao (protected op)
    msg # $nick is now idleing
  }
  if ($nick isvoice #) {
    set %idle [ $+ [ $nick ] ] $ctime
    timer $+ $nick $+ 2 1 1440 mode # +h-v $nick $nick $chr(124) cs access # add $nick 4 $chr(124) msg # Gratz $nick on the +h (halfop)
    timer $+ $nick $+ 3 1 7200 mode # +o-vh $nick $nick $nick $chr(124) cs access # add $nick 5 $chr(124) msg # Gratz $nick on the +o (op)
    timer $+ $nick $+ 4 1 14400 mode # +ao-vh $nick $nick $nick $nick $chr(124) cs access # add $nick 10 $chr(124) msg # Gratz $nick on the +ao (protected op)
    msg # $nick is now idleing
  }
  if ($nick ishop #) {
    set %idle [ $+ [ $nick ] ] $ctime
    timer $+ $nick $+ 3 1 7200 mode # +o-vh $nick $nick $nick $chr(124) cs access # add $nick 5 $chr(124) msg # Gratz $nick on the +o (op)
    timer $+ $nick $+ 4 1 14400 mode # +ao-vh $nick $nick $nick $nick $chr(124) cs access # add $nick 10 $chr(124) msg # Gratz $nick on the +ao (protected op)
    msg # $nick is now idleing
  }
  if ($nick isop #) {
    set %idle [ $+ [ $nick ] ] $ctime
    timer $+ $nick $+ 4 1 14400 mode # +ao-vh $nick $nick $nick $nick $chr(124) cs access # add $nick 10 $chr(124) msg # Gratz $nick on +ao (protected op) 
    msg # $nick is now idleing
  }
}

on *:PART:#steve: {
  unset %idle [ $+ [ $nick ] ]
  timer $+ $nick $+ 1 off
  timer $+ $nick $+ 2 off
  timer $+ $nick $+ 3 off
  timer $+ $nick $+ 4 off
}
on *:TEXT:!istats:#steve: {
  notice $nick the idleing stats for $nick are: $duration($calc($ctime - %idle [ $+ [ $nick ] ] ))
}
on *:TEXT:!clearidle*:#steve: {
  if ($address($nick,2) == $address($me,2)) {
    unset $iif($2,%idle [ $+ [ $2 ] ],%idle [ $+ [ $nick ] ])
    msg $chan $iif($2,$2,$nick) $+ 's idle status has been cleared
    timer $+ $iif($2,$2,$nick) $+ 1 off
    timer $+ $iif($2,$2,$nick) $+ 2 off
    timer $+ $iif($2,$2,$nick) $+ 3 off
    timer $+ $iif($2,$2,$nick) $+ 4 off
  }
  if (%idle [ $+ [ $nick ] ] != $null) {
    unset %idle [ $+ [ $nick ] ]
    notice $nick Your idle status has been cleared
    timer $+ $nick $+ 1 off
    timer $+ $nick $+ 2 off
    timer $+ $nick $+ 3 off
    timer $+ $nick $+ 4 off 
  }
}