AFK [BOT]

By SRU
Platform:  mIRC
Published  Apr 10, 2011
Updated  Apr 28, 2012

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),))
}
;************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
}

Comments

Sign in to comment.
SRU   -  Jun 16, 2012
Glad you finding it useful and thanks for the like <3 @Aqoure
 Respond  
Aqoure   -  Jun 15, 2012
Great AFK script
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.