rendered paste body
alias afk {
set %ltime $asctime
set %lnick $me
set %bnick $1
set %lrsn $2-
set %away on
.nick %bnick
amsg 11(14Away11)14 »» 11R14eason:11 %lrsn $+ 14. 11L14eft 11A14t:11 %ltime $+ 14.
.away 11(14Away11)14 »» 11R14eason:11 %lrsn $+ 14. 11L14eft 11A14t:11 %ltime $+ 14.
}
alias back {
amsg 11(14Back11)14 »» 11F14rom:11 %lrsn $+ 14. 11G14one 11F14or:11 $duration($calc(($ctime - $ctime(%ltime)))) $+ 14.
set %away off
remove away.txt
nick %lnick
away
}
on $*:TEXT:/(Yournick|Yournick|Yournick)/Si:#:{
if (%away == on) {
if ($nick == $read(away.txt,w,$nick)) { halt }
write away.txt $nick
notice $nick 11(14Away11)14 »» 11R14eason:11 %lrsn $+ 14. 11L14eft 11A14t:11 %ltime $+ 14. 11I14f 11I14mportant:11 /ms send %lnick 11m14sg.
}
}
on *:OPEN:*:*:{ if (%away == on) { set %anick $nick | inc %acount }
if (%anick == $nick) && (%acount == 1) { msg $nick 11(14Away11)14 »» I am not on the computer now please try again later! 11(14 Daft Script 11) | close -m $nick }
if (%anick == $nick) && (%acount == 2) { msg $nick 11(14Away11)14 »» I am not on the computer now please try again later! 11(14 Daft Script 11) | close -m $nick }
if (%anick == $nick) && (%acount == 3) { msg $nick 11(14Away11)14 »» $nick $+ , Pm me again and you will be auto-ignored. 11(14 Daft Script 11) | close -m $nick }
if (%anick == $nick) && (%acount > 3) { msg $nick 11(14Ignored11)14 »» You've been ignored for 60 seconds. 11(14 Daft Script 11) | close -m $nick | timer 1 60 unset %acount | ignore $nick | timer 1 60 ignore -r $nick }
}