Something

on *:TEXT:!idle*:#steve: {
  if ($nick isreg #) {
    set %idle [ $+ [ $nick ] ] $ctime
    set %deidle %deidle $chr(124) unset %idle [ $+ [ $nick ] ]
    timer $+ $nick $+ 1 1 21600 mode # +v $nick $chr(124) cs access # add $nick 3 $chr(124) msg # Gratz $nick on the +v (voice)
    timer $+ $nick $+ 2 1 86400 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 345600 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 604800 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
    notice $nick You are now Idleing in # $+ .
    notice $nick If you part the channel ur idleing will be reset.
  }
  if ($nick isvoice #) {
    set %idle [ $+ [ $nick ] ] $ctime
    set %deidle %deidle $chr(124) unset %idle [ $+ [ $nick ] ]
    timer $+ $nick $+ 2 1 86400 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 345600 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 604800 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
    notice $nick You are now Idleing in # $+ .
    notice $nick If you part the channel ur idleing will be reset.
  }
  if ($nick ishop #) {
    set %idle [ $+ [ $nick ] ] $ctime
    set %deidle %deidle $chr(124) unset %idle [ $+ [ $nick ] ]
    timer $+ $nick $+ 3 1 345600 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 604800 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
    notice $nick You are now Idleing in # $+ .
    notice $nick If you part the channel ur idleing will be reset.
  }
  if ($nick isop #) {
    set %idle [ $+ [ $nick ] ] $ctime
    set %deidle %deidle $chr(124) unset %idle [ $+ [ $nick ] ]
    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
    notice $nick You are now Idleing in # $+ .
    notice $nick If you part the channel ur idleing will be reset.
  }
}

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: $iif(%idle [ $+ [ $nick ] ],$duration($calc($ctime - %idle [ $+ [ $nick ] ] )), You Are Not Idleing)
}
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 
  }
}
on *:TEXT:!clearall*:#steve: {
  if ($address($nick,2) == $address($me,2)) || ($nick == `_Steve) || ($nick == `Steve``) {
    unset %deidle
    msg $chan ALL idles have been cleared
    timers off
  }
}