!away reason
!back
!@check nick
!@listaway
**credit goes to Pariah for the entire listaway section :)
on *:text:!away*:#:{
if (%away == $null) {
set %away. [ $+ [ $nick ] ] $2-
set %awaytm. [ $+ [ $nick ] ] $ctime
set %awaynick. [ $+ [ $nick ] ] $nick
msg $chan 4 $nick 10is now away at:4 $2- $+ 10.
}
else notice $nick your away :l
}
on *:text:!back:#:{
if (%away. [ $+ [ $nick ] ] != $null) {
msg $chan 4 $nick 10back from:4 %away. [ $+ [ $nick ] ] $+ 10. Time away:4 $duration($calc($ctime - $eval($+(%,awaytm.,$nick),2))) $+ 10.
unset %away. [ $+ [ $nick ] ]
unset %awaynick. [ $+ [ $nick ] ]
unset %awaytm. [ $+ [ $nick ] ]
}
else notice $nick your not away
}
on $*:TEXT:/^(!|@)(listaway)/Si:#: {
var %output = $iif($left($1,1) == !,.notice $nick,.msg $chan)
var %i = 1,%x
while $var(%awaynick.*,%i) {
%x = $addtok(%x,$gettok($v1,2,46),44)
if ($numtok(%x,44) == 20) {
%output 10Users marked as away:4 %x
%x = ""
}
inc %i
}
if (%x) %output 10Users marked as away:4 %x
}
on $*:TEXT:/^(!|@)(check) */Si:#: {
var %output = $iif($left($1,1) == !,.notice $nick,.msg $chan)
if (%away. [ $+ [ $2- ] ] != $null) {
%output 4 $2- 10is away, reason:4 %away. [ $+ [ $2- ] ] $+ 10. Away for:4 $duration($calc($ctime - $eval($+(%,awaytm.,$nick),2))) $+ 10.
}
else %output 4 $2- 10is not away.
}