Away system ( Intended for a bot... )

- Will work in any channel the BOT is OP'eD on...
- It's written ( and working ) on mIRC Ver. 6.35
- Will notice user of other user being AWAY
Meaning if anyone types a <NiCK> that's currently AWAY
the bot will tell you how long since he/she went AFK and why / reason ( if a reason is given that is )
NOTE: This doesn't work if your highlighting yourself... only works when other users "check"

Screenshots


NOTE:
When I say intended for a BOT I mean it only works for other people...
Will not work as a away system for you... but for the people using your BOT / rooms.

Install
1. ALT+R ( - in mIRC / Goto Remote )
2. Copy and paste the code below ( into a new file unless you know what you are doing )
3. Enjoy ?

Will activate on:
AFK - BRB - BBL - TTYL - AWAY
For example: AFK Sleeping aka dreaming about nature
DeActivate on:
BACK - BAK
For example: I'm back baby ! ? !
NOTE: It will deactivate automatically ( after 10 minutes aka 600 seconds )
if someone types during AWAY that is ;)

- If you find any problems... let Me know and I'll get right on it ;)

;****************************************************************************
If you are... A fellow stoner... Danish... Cultivator... Crazy about weed...
Got any pictures of your own strain / lovely females...
Got free weed... Want to chill... Wanna hang out...
Found bugs... Need help with one of My script...
- Feel free to drop by Stoners'R'Us :P
/server -m irc.P2P-Network.net
(^ +7000 for SSL ^)
/join #SRU
;****************************************************************************

This is the best AFK/AWAY script out there... on @*:TEXT:*:#:mAWAY_CMDS $strip($1-)
on @*:ACTiON:*:#:mAWAY_CMDS $strip($1-)
alias mReplaceStatsDB return $replace($remove($strip($1),[,],<,>,@,~,&,%,+),[,@,],~,|,-)
alias mAWAY_CMDS {
;*** AWAY SECTiON
if ($remove($strip($1),!,@,.,+,-) == AWAY) || ($remove($strip($1),!,@,.,+,-) == AFK) || ($remove($strip($1),!,@,.,+,-) == BBL) || ($remove($strip($1),!,@,.,+,-) == TTYL) { $iif($isdir($mircdir\TXT) == $false,mkDir $mircdir\TXT) | $iif(!$readini(TXT\StatsDB.ini,$replace($nick,[,@,],~,|,-),AWAY),msg # $+(13,$nick,) is now marked as $+(3,AWAY,) $+(15ooO,$chr(40),) As in not here... $+(15,$chr(41),),$iif(!$2,halt,.notice $nick Your $+(3,AWAY,) messages has been "updated" to -> $2-)) | writeini -n TXT\StatsDB.ini $replace($nick,[,@,],~,|,-) AWAY $ctime | writeini -n TXT\StatsDB.ini $replace($nick,[,@,],~,|,-) AWAYre $iif(!$2,N/A as in Not Available,$2-) }
;*** BACK / BaK
elseif ($readini(TXT\StatsDB.ini,$replace($nick,[,@,],~,|,-),AWAY)) && ((BACK isin $strip($1-)) || (BAK isin $strip($1-)) || ($calc($ctime -$readini(TXT\StatsDB.ini,$replace($nick,[,@,],~,|,-),AWAY)) >= 600)) { set -u1 %T $v1 | $iif(!$timer($+(Back,$network,$chan)),msg # $+(13,$nick,) is now $+(03,$iif(BaK isin $1-,BAK,BACK),) $+(15ooO,$chr(40),) As in back at keyboard... $+(15,$chr(41),),.notice $nick Welcome back $+(13$nick,) you're no longer marked as $+(3AWAY)) | remini TXT\StatsDB.ini $replace($nick,[,@,],~,|,-) AWAY | remini TXT\StatsDB.ini $replace($nick,[,@,],~,|,-) AWAYre | $+(.timer,Back,$network,$chan) 1 5 noop }
;*** NOTE <NiCK> is AWAY
elseif (!$timer($+(Away,$network,$chan))) && (($readini(TXT\StatsDB.ini,$mReplaceStatsDB($1),AWAYre)) || ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($2),AWAYre)) || ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($3),AWAYre)) || ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($4),AWAYre)) || ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($5),AWAYre)) || ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($6),AWAYre)) || ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($7),AWAYre)) || ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($8),AWAYre)) || ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($9),AWAYre)) || ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($10),AWAYre)) || ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($11),AWAYre)) || ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($12),AWAYre)) || ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($13),AWAYre)) || ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($14),AWAYre)) || ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($15),AWAYre)) || ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($16),AWAYre)) || ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($17),AWAYre)) || ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($18),AWAYre)) || ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($19),AWAYre)) || ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($20),AWAYre))) { $+(.timer,Away,$network,$chan) 1 4 noop | set -u1 %RE $v1
if ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($1),AWAY)) { set -u1 %X $1 } | elseif ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($2),AWAY)) { set -u1 %X $2 } | elseif ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($3),AWAY)) { set -u1 %X $3 } | elseif ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($4),AWAY)) { set -u1 %X $4 } | elseif ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($5),AWAY)) { set -u1 %X $5 } | elseif ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($6),AWAY)) { set -u1 %X $6 } | elseif ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($7),AWAY)) { set -u1 %X $7 } | elseif ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($8),AWAY)) { set -u1 %X $8 } | elseif ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($9),AWAY)) { set -u1 %X $9 } | elseif ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($10),AWAY)) { set -u1 %X $10 }
elseif ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($11),AWAY)) { set -u1 %X $11 } | elseif ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($12),AWAY)) { set -u1 %X $12 } | elseif ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($13),AWAY)) { set -u1 %X $13 } | elseif ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($14),AWAY)) { set -u1 %X $14 } | elseif ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($15),AWAY)) { set -u1 %X $15 } | elseif ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($16),AWAY)) { set -u1 %X $16 } | elseif ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($17),AWAY)) { set -u1 %X $17 } | elseif ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($18),AWAY)) { set -u1 %X $18 } | elseif ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($19),AWAY)) { set -u1 %X $19 } | elseif ($readini(TXT\StatsDB.ini,$mReplaceStatsDB($20),AWAY)) { set -u1 %X $20 }
$iif($strip(%X) != $nick,msg # [4NOTE] $+(13,$nick,) -> Currently $+(04,$replacex($duration($calc($ctime -$readini(TXT\StatsDB.ini,$mReplaceStatsDB(%X),AWAY))),WKS,weeks,WK,week,DAYS,days,DAY,day,MiNS,minutes,MiN,minute,SECS,seconds,SEC,second),)) since $+(13,$nick(#,$nick(#,%X)),) went $+(3AFK) $+(15ooO,$chr(40),) %RE $+(15,$chr(41),))
}
;************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
}