Alias busy { set %busy $asctime set %vbusy [ $+ [ reason ] ] $1- set %vbusy [ $+ [ status ] ] ON nick Lil_Aziz1|Busy set %msgs 0 amsg 15[12» 4BuSy 12«15][12» 4Reason:13 %vbusy [ $+ [ reason ] ] 12«15][12» 4Started at:13 %busy 12«15] away $1- } Alias done { if (%vbusy [ $+ [ status ] ] == ON) { nick Lil_Aziz1 amsg 15[12» 4Now Available 12«15][12» 4From:13 %vbusy [ $+ [ reason ] ] 12«15][12» 4Time being Busy:13 $duration($calc(($ctime - $ctime(%busy)))) 12«15][12» 4Messaged Received:13 %msgs 12«15] set %msgs 0 unset %stopit* remove away.txt set %vbusy [ $+ [ status ] ] OFF } elseif (%vbusy [ $+ [ status ] ] == OFF) { echo I am not away! } } Alias afk { set %ltime $asctime set %away [ $+ [ reason ] ] $1- set %away [ $+ [ status ] ] ON nick Lil_Aziz1|AFK set %msgs 0 amsg 15[12» 4Away 12«15][12» 4Reason:13 %away [ $+ [ reason ] ] 12«15][12» 4Left at:13 %ltime 12«15] away $1- } Alias back { if (%away [ $+ [ status ] ] == ON) { nick Lil_Aziz1 amsg 15[12» 4Back 12«15][12» 4From:13 %away [ $+ [ reason ] ] 12«15][12» 4Time Gone:13 $duration($calc(($ctime - $ctime(%ltime)))) 12«15][12» 4Messaged Received:13 %msgs 12«15] set %msgs 0 unset %stopit* remove away.txt set %away [ $+ [ status ] ] OFF } elseif (%away [ $+ [ status ] ] == OFF) { echo I am not away! } } on $*:TEXT:/(Aziz|izz)/Si:#:{ if (%away [ $+ [ status ] ] == ON) { if ($nick == $read(away.txt,w,$nick)) { halt } write away.txt notice $nick 15[12» 4Away 12«15][12» 4Reason:13 %away [ $+ [ reason ] ] 12«15][12» 4Left at:13 %ltime 12«15][12»4 If important:13 /ms send Lil_Aziz1 message 12«15] inc %msgs window @AFK_Messages aline -a @AFK_Messages $time :: $nick :: $1- :: $chan on $network if (%responses < 1) { notice $nick 15[12» 4Away 12«15][12» 4Reason:13 %lrsn 12«15][12» 4Left at:13 %ltime 12«15][12»4 If important:13 /ms send Lil_Aziz1 message 12«15] } } elseif (%vbusy [ $+ [ status ] ] == ON) { if ($nick == $read(away.txt,w,$nick)) { halt } write away.txt notice $nick 15[12» 4BuSy 12«15][12» 4Reason:13 %vbusy [ $+ [ reason ] ] 12«15][12» 4Began:13 %busy 12«15][12»4 If important:13 /ms send Lil_Aziz1 message 12«15] inc %msgs window @AFK_Messages aline -a @AFK_Messages $time :: $nick :: $1- :: $chan on $network if (%responses < 1) { notice $nick 15[12» 4BuSy 12«15][12» 4Reason:13 %vbusy [ $+ [ reason ] ] 12«15][12» 4Began:13 %busy 12«15][12»4 If important:13 /ms send Lil_Aziz1 message 12«15] } } else { window @Needed aline -a @Needed $time :: $nick :: $1- :: $chan on $network } } on *:text:*:?:{ if (%away [ $+ [ status ] ] == ON) && (%stopit [ $+ [ $nick ] ] >= 1) { inc %msgs } elseif (%away [ $+ [ status ] ] == ON) { if ($nick == $read(away.txt,w,$nick)) { halt } write away.txt msg $nick 15[12» 4Away 12«15][12» 4Reason:13 %away [ $+ [ reason ] ] 12«15][12» 4Left at:13 %ltime 12«15][12»4 If important:13 /ms send Lil_Aziz1 message 12«15] inc %stopit [ $+ [ $nick ] ] inc %msgs window @AFK_Messages aline -a @AFK_Messages $time :: $nick :: $1- in $chan on $network if (%responses < 1) { msg $nick 15[12» 4Away 12«15][12» 4Reason:13 %lrsn 12«15][12» 4Left at:13 %ltime 12«15][12»4 If important:13 /ms send Lil_Aziz1 message 12«15] } } if (%vbusy [ $+ [ status ] ] == ON) && (%stopit [ $+ [ $nick ] ] >= 1) { inc %msgs } elseif (%vbusy [ $+ [ status ] ] == ON) { if ($nick == $read(away.txt,w,$nick)) { halt } write away.txt msg $nick 15[12» 4BuSy 12«15][12» 4Reason:13 %vbusy [ $+ [ reason ] ] 12«15][12» 4Began:13 %busy 12«15][12»4 If important:13 /ms send Lil_Aziz1 message 12«15] inc %stopit [ $+ [ $nick ] ] inc %msgs window @AFK_Messages aline -a @AFK_Messages $time :: $nick :: $1- in $chan on $network if (%responses < 1) { msg $nick 15[12» 4BuSy 12«15][12» 4Reason:13 %vbusy [ $+ [ reason ] ] 12«15][12» 4Began:13 %busy 12«15][12»4 If important:13 /ms send Lil_Aziz1 message 12«15] } } else { halt } }