AFK [BOT]

By SRU on Apr 10, 2011

Image [size=14]Away system ( Intended for a bot... )[/size]

  • 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 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"

[size=14]Screenshots[/size] Image

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.

[size=14]Install[/size]

  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 ?

[size=14]Will activate on:[/size] AFK - BRB - BBL - TTYL - AWAY For example: AFK Sleeping aka dreaming about nature [size=14]DeActivate on:[/size] 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

More
 Respond  
Aqoure   -  Jun 15, 2012

Great AFK script

More
 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.