Miscellany

on *:text:!away*:#: {
  set %reason [ $+ [ $nick ] ] $2-
  if (%weg [ $+ [ $nick ] ]) {
    msg $chan Huh? I thought $nick already was away?
  }
  elseif (%reason [ $+ [ $nick ] ] == $null) { halt }
  else { 
    set $+(%,weg,$nick) $ctime
    msg $chan $nick is now away for: %reason [ $+ [ $nick ] ]
  }
}
on *:text:!back:#: {
  if (%weg [ $+ [ $nick ] ] == $null) {
    msg $chan Did $nick left? Maybe you forget to type !back last time. First type !back than !away (reason)
  }
  else {
    set %verschil [ $+ [ $nick ] ] $duration($calc($ctime - $+(%,weg,$nick)),3)
    msg $chan $nick is back from: %reason [ $+ [ $nick ] ] $+ ! Time that $nick was away: %verschil [ $+ [ $nick ] ]
    unset %weg [ $+ [ $nick ] ] $ctime
    unset %verschil [ $+ [ $nick ] ]
  }
}