;===Afk Script===
;---AFK;
Alias afk {
  /write afklist.txt | /set %afkreason $1- | set %afkset on | set %awaytime $ctime | set %afktimeleft $time | /scon -a /amsg 12[AWAY]7-12[Reason]7 %afkreason 12[Time Left]7 %afktimeleft (GMT) | /away $- 
}

;---Back;
Alias Back { 
  /scon -a /amsg 12[BACK]7-12[FROM]7 %afkreason 12[Time Away]7 $duration($calc($ctime - %awaytime)) | unset %afkreason | unset %awaytime | unset %afktimeleft | set %afkset off | /away 
}

;---One Time Highlight (msg in chan).
on *:text:Markus*:#:{
  if (%afkset == on) {
    if ($read(afklist.txt,w,$nick)) { halt
    }
    else {
/write afklist.txt $nick
      /notice $nick One Time Notice, I'm am currently away. Reason: %afkreason $+ . I have been gone for: $duration($calc($ctime - %awaytime)) Sorry.
} } }

;---AFK QUERY
on *:TEXT:*:?:{
  if (%afkset == on) {
    if ($read(afklist.txt,w,$nick)) { halt
    }
    else {
/write afklist.txt $nick
      /notice $nick One Time Message, I'm am currently away. Reason: %afkreason $+ . I have been gone for: $duration($calc($ctime - %awaytime)) Sorry.
} } }

;===END OF AFK SCRIPT===