Scripting a TwitchTV bot / Link time-out code - 21/01/14 04:22 PM
Ok, just wanted to let everyone know this is for a TwitchTV bot, which should help for responses.
I am having a bit of trouble getting the link time out code to work.. basically want it to work similar to nightbot, ironbot, moobot, etc.. when someone posts a link in chat, for the bot to time them out for 1 second to remove the link.. unless they have permission from a mod or myself to post the link.
I don't know what I did wrong for this code to not work, so any help would be appreciated.. but here is the code:
I am having a bit of trouble getting the link time out code to work.. basically want it to work similar to nightbot, ironbot, moobot, etc.. when someone posts a link in chat, for the bot to time them out for 1 second to remove the link.. unless they have permission from a mod or myself to post the link.
I don't know what I did wrong for this code to not work, so any help would be appreciated.. but here is the code:
Code:
on @*:text:*:#:linkpost $1- on @*:action:*:#:linkpost $1- on @*:notice:*:#:linkpost $1- alias -l linkpost { if ((!%p) && (!$hfind(permit,$nick))) { inc -u4 %p var %purge /^!(link\so(n|ff)|(permit))\b/iS var %domain com|edu|gov|mil|net|org|biz|info|name|museum|us|ca|uk var %link /(?<=^|\s)((?>\S{3,8}:\/\/|w{3}\56)\S+)|\56( $+ %domain $+ )\b/iS if ($findtok(%chanon1,#,1,32)) && ($nick(#,$nick,vr)) && ($regex($1-,%link)) { timeout # $nick | /mode # -b $nick msg # $nick You did not have permission to post a link ask a mod to !permit you msg # /timeout $nick 1 } elseif (($regex($1-,%purge)) && ($regml(1) = permit) && ($nick isop #) && ($$2 ison #)) { hadd -mz permit $v1 30 | notice $v1 You have 30 seconds to post a link. Starting now! msg # You now have 30 seconds to post a link! } elseif (($regml(1) = link on) && ($nick isop #)) { goto $iif(!$istok(%chanon1,#,32),a,b) | :a | set %chanon1 $addtok(%chanon,#,32) .msg # My Link Protection Is Now on in: $+($chr(2),#) halt | :b | .msg # $nick $+ , my link protection is already on in $& $+($chr(2),#,$chr(2)) ! } elseif (($regml(1) = link off) && ($nick isop #)) { goto $iif($istok(%chanon1,#,32),c,d) | :c | set %chanon1 $remtok(%chanon,#,1,32) .msg # My Link Protection Is Now off in: $+($chr(2),#) halt | :d | .msg # $nick $+ , My link protection is already off . $& ! } }