on *:TEXT:*craig*:#: {
if (%away != on) { | halt }
if $read(messagednicks.txt, w, $nick) { | halt }
else {
write messagednicks.txt $nick
notice $nick 14I am currently set to "Away". Left at: %awaytime for %awayreason $+ .
Window @Messages
echo @Messages ( $+ $time $+ )< $$+ $nick $$+ > $1-
}
}
on 10:TEXT:!away *:#: {
if (%away == on) { notice $nick 14You are already set to away.
halt
}
set %away on
set %awayreason $2-
set %awaytime $time
notice $nick 14You are now set to away. }
on 10:TEXT:!back:#: {
if (%away == off) { notice $nick 14You are already set to back.
halt
}
set %away off
write -c messagednicks.txt
unset %awayreason
unset %awaytime
notice $nick 14You are now set to back. }