AllDayGrinding's Chat bot code

on $*:text:/^!commandadd !?(\S+)/iS:#test:{
  if ($nick !isop #) return
  writeini commands.ini commands $regml(1) $$3-
}

on $*:text:/^!commandremove !?(\S+)/iS:#test:{
  if ($nick !isop #) return
  remini commands.ini commands $regml(1)
}

on $*:text:/^!repeat !?(\S+) (off|\d+)/iS:#test:{
  if ($nick !isop #) return

  var %command = $regml(1), %interval = $regml(2)

  if ($timer(command. $+ %command)) {
    if (%interval == off) .timercommand. $+ %command off
    else msg # ! $+ %command is already repeating
  }
  elseif ($readini(commands.ini,n,commands,%command)) {
    var %response = $v1
    .timercommand. $+ %command 0 $iif(%interval < 5,5,%interval) msg # $safe(%response)
    msg # %response
  }
}

on $*:text:/^!(\S+)/:#test:{
  if ($nick !isop #) return
  if ($readini(commands.ini,n,commands,$regml(1))) msg # $v1
}

alias safe return $!decode( $encode($1,m) ,m)
on *:TEXT:!roulette*:#: {
  if ((%floodroulette) || ($($+(%,floodroulette.,$nick),2))) { return }
  set -u10 %floodroulette On
  set -u30 %floodroulette. $+ $nick On
  var %rr = $rand(1,3)
  msg $chan $nick spins the chamber and squeezes the trigger...!
  if (%rr == 1) .timer 1 3 msg $chan CLICK! $nick got lucky.
  if (%rr == 2) .timer 1 3 msg $chan BANG! $chan watches $nick $+ 's brain splatter all over the wall.
  if (%rr == 3) .timer 1 3 msg $chan The gun jammed, $nick got lucky.
}
on *:TEXT:!permit*:#: {
  if ($nick isop #) && ($2) {
    write reglist.txt $2
    msg # $2 has been permited to post a link for 20 seconds
    .timerRemovePermit 1 20 RemovePermit # $2
  }
  if ($read(sreglist.txt,nw,$nick)) && ($2) {
    write reglist.txt $2
    msg # $2 has been permited to post a link for 20 seconds
    .timerRemovePermit 1 20 RemovePermit # $2
  }
}
on *:TEXT:!reg add*:#: {
  if ($nick isop #) {
    write reglist.txt $$3
    msg $chan $$3 has been added to the regular list!
  }
  if ($read(reglist.txt,nw,$nick)) {
    write reglist.txt $$3
    msg $chan $$3 has been added to the regular list!
  }
}
on *:TEXT:!reg del*:#: {
  if ($nick isop #) {
    if ($read(reglist.txt,nw,$3)) write -dl $+ $readn reglist.txt
    msg # $$3 has been removed from the regular list!
  }
  if ($read(reglist.txt,nw,$nick)) {
    if ($read(reglist.txt,nw,$3)) write -dl $+ $readn reglist.txt
    msg # $$3 has been removed from the regular list!
  }
}
on *:JOIN:#AllDayGrinding:{
  if %join. [ $+ [ $nick ] ] { return }
  set -u86400 %join. [ $+ [ $nick ] ] $true
  .timer 1 2 msg # Welcome to the stream $nick have a great time! c: OpieOP new viewer.
}
on *:TEXT:!better:#: {
  if ((%floodbetter) || ($($+(%,floodbetter.,$nick),2))) { return }
  set -u10 %floodbetter On
  set -u30 %floodbetter. $+ $nick On
  msg $chan  Get Better Twitch TV here (all browsers): http://nightdev.com/betterttv/ $+
}
on *:TEXT:!youtube:#: {
  if ((%floodyoutube) || ($($+(%,floodyoutube.,$nick),2))) { return }
  set -u10 %floodyoutube On
  set -u30 %floodyoutube. $+ $nick On
  msg $chan My youtube is http://www.youtube.com/user/AllDayGrinding Don't forget to subscribe! $+
}
on *:TEXT:!twitter:#: {
  if ((%floodtwitter) || ($($+(%,floodtwitter.,$nick),2))) { return }
  set -u10 %floodtwitter On
  set -u30 %floodtwitter. $+ $nick On
  msg $chan  Follow Grinding On Twitter -->> Twitter.com/IGrindDailyx $+
}
on *:TEXT:hello:#: {
  if ((%floodhello) || ($($+(%,floodhello.,$nick),2))) { return }
  set -u10 %floodhello On
  set -u30 %floodhello. $+ $nick On
  msg $chan Welcome $nick to Grinding's live show! $+
}
on *:TEXT:!Links:#: {
  if ((%floodlinks) || ($($+(%,floodlinks.,$nick),2))) { return }
  set -u10 %floodlinks On
  set -u30 %floodlinks. $+ $nick On
  msg $chan YT -->> Youtube.com/user/AllDayGrinding - Twitter -->> Twitter.com/IGrindDaily $+
}
on *:TEXT:!Tweet:#: {
  if ((%floodtweet) || ($($+(%,floodtweet.,$nick),2))) { return }
  set -u10 %floodtweet On
  set -u30 %floodtweet. $+ $nick On
  msg $chan Want to help the cast? There are many ways, like following Grinding's Twitter! Once you follow you can receive tweets for when he is going online or changing games, and then retweet them out to all your friends! Thanks guys! https://twitter.com/IGrindDailyx $+
}
on *:TEXT:!follow:#: {
  if ((%floodfollow) || ($($+(%,floodfollow.,$nick),2))) { return }
  set -u10 %floodfollow On
  set -u30 %floodfollow. $+ $nick On
  msg $chan Follow Me for more entertaining stuff! You really want to - http://i.imgur.com/U9S8omA.gif $+
}
on *:TEXT:!english:#: {
  if ((%floodenglish) || ($($+(%,floodenglish.,$nick),2))) { return }
  set -u10 %floodenglish On
  set -u30 %floodenglish. $+ $nick On
  msg $chan English Please, S'il vous plaît Anglais, Inglés Por Favor, Englisch Bitte, Inglese Per favore, English Zaloguj, Engels Gelieve, Engelska tack  $+
}
on *:TEXT:!Caps:#: {
  if ((%floodcaps) || ($($+(%,floodcaps.,$nick),2))) { return }
  set -u10 %floodcaps On
  set -u30 %floodcaps. $+ $nick On
  msg $chan Do NOT use FULL caps in chat as it is considered shouting and is quite rude. Using FULL CAPS Repeatedly will result in a Time Out. *This is a Warning* $+
}
on *:TEXT:!Rules:#: {
  if ((%floodrules) || ($($+(%,floodrules.,$nick),2))) { return }
  set -u10 %floodrules On
  set -u30 %floodrules$nick On
  msg $chan Rules: 1. Be nice and respectful of others. 2. Get permission from a moderator prior to posting any links. 3. No discussions encouraging illegal acts. 4. NO ABUSE OF CAPS. 5. Wait several minutes before repeating your questions/comments. 6. Speak in English please. 7. Feedback on Forum. 8. Make some friends and have a good time! 9. Follow Mod Guidance. $+
}
on *:TEXT:!AddMe:#: {
  if ((%floodAddMe) || ($($+(%,floodAddMe.,$nick),2))) { return }
  set -u10 %floodAddMe On
  set -u9999999999999999999999 %floodAddMe. $+ $nick On
  msg $chan !points add $nick 1, $nick you have been added to the point system! $+
}
on *:TEXT:!Commands:#: {
  if ((%floodCommands) || ($($+(%,floodCommands.,$nick),2))) { return }
  set -u10 %floodcommands On
  set -u30 %floodcommands. $+ $nick On
  msg $chan Commands are:  $+
}
on *:TEXT:!Turbo:#: {
  if ((%floodturbo) || ($($+(%,floodturbo.,$nick),2))) { return }
  set -u10 %floodturbo On
  set -u30 %floodturbo. $+ $nick On
  msg $chan Twitch Turbo is $8.99 a month, and gives you a fancy badge before your name, exclusive chat colors, custom emoticons, no ads, and other awesome things! It directly supports Twitch to keep the website running and fully functioning! Click the "Go Turbo" button on the front of the Twitch page. https://secure.twitch.tv/products/turbo/ticket/new?ref=header $+
}
alias -l addPoints {
  if ($1 !isnum) { echo 2 -st $1 is not a number. It needs to be a number. | halt }
  var %topic $+($chan,.,$nick)
  var %points $calc($readini(Points.ini,%topic,Points) + $1)
  writeini -n Points.ini %topic Points %points
  return %points
}
alias -l lookUpPoints {
  var %topic $+($chan,.,$nick)
  var %points $readini(Points.ini,%topic,Points)
  return %points
}
alias doaddpoints {
  if ($3 !isnum) { echo 2 -st $3 is not a number. It needs to be a number. | halt }
  var %topic $+($1,.,$2)
  var %points $calc($readini(Points.ini,%topic,Points) + $3)
  writeini -n Points.ini %topic Points %points
  echo -a Added points for %topic
}

alias dorempoints {
  var %topic $+($1,.,$2)
  remini -n Points.ini %topic Points
  echo -a Removed points for %topic
}

on *:text:!points:#:{
  if ((%floodpoints) || ($($+(%,floodpoints.,$nick),2))) { return }
  set -u10 %floodpoints On
  set -u30 %floodpoints. $+ $nick On
  msg # $nick has $readini(Points.ini,$+(#,.,$nick),Points) total points.
}

on $*:text:/!points (add|remove)/Si:#:{
  if ($nick isop #) {
    if ($0 < 3) { msg # Insufficient parameters: Use !points <add|remove> <user> [number] | return }
    writeini -n Points.ini $+(#,.,$3) Points $calc($readini(Points.ini,$+(#,.,$3),Points) $iif($2 == add,+,-) $iif($4 isnum,$4,1))
    { msg $chan $3 now has $readini(Points.ini,$+(#,.,$3),Points) total points. }
  }
  else { msg $chan This command is only available to moderators. }
}
on !*:join:#:{
  $+(.timerpoints.,#,.,$nick) 0 300 add.pts $+(#,.,$nick)
  add.pts $+(#,.,$nick)
}
on !*:part:#:$+(.timerpoints.,#,.,$nick) off
alias -l add.pts {
  writeini -n Points.ini $1 Points $calc($readini(Points.ini,$1,Points) + 1)
}
on *:text:!winner:#:{
  var %nick1 = $nick(#,$rand(1,$nick(#,0)))
  while (%nick1 == $me) { %nick1 = $nick(#,$r(1,$nick(#,0))) }
  msg # Randomly selected winner is %nick1 $+ ! Congratulations %nick1 you win... $eval($+(%,prize.,$network,.,#),2)
}
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|ly|gl|gd|do|ai|be
    var %link /(?<=^|\s)((?>\S{3,8}:\/\/|w{3}\56)\S+)|\56( $+ %domain $+ )\b/iS
    if ($findtok(%chanon,#,1,32)) && ($nick(#,$nick,vr)) && ($regex($1-,%link)) {
      msg # .timeout $nick 1
      msg # Bad $nick $+ ! Ask a moderator to permit you before posting links.
    }
    elseif (($regex($1-,%purge)) && ($regml(1) = permit) && ($nick isop #) && ($$2 ison #)) {
      hadd -mz permit $v1 60 | notice $v1 You have 60 seconds to post a link. Starting now!
    }
    elseif (($regml(1) = link on) && ($nick isop #)) {
      goto $iif(!$istok(%chanon,#,32),a,b) | :a | set %chanon $addtok(%chanon,#,32) | msg # My Link Protection Is Now on in: $+($chr(2),#)
      halt | :b | msg # $nick $+ , link protection is already on.
    }
    elseif (($regml(1) = link off) && ($nick isop #)) {
      goto $iif($istok(%chanon,#,32),c,d) | :c | set %chanon $remtok(%chanon,#,1,32) | msg # My Link Protection Is Now off in: $+($chr(2),#)
      halt | :d | msg # $nick $+ , link protection is already off.
    }
  }
}
}