Test Bot - Various sources - credit when finished

on *:TEXT:!follow:#: {
  if ((%floodfollow) || ($($+(%,floodfollow.,$nick),2))) { return }
  set -u10 %floodfollow On
  set -u30 %floodfollow. $+ $nick On
  msg $chan /me Do you like what you see? Want to see more? Hit that follow button and get notified when I go live! $+
}
on *:TEXT:!Ria:#: {
  msg $chan /me Go check out Ria's stream over at www.twitch.tv/ria_gaming she plays all types of games from emulated classics to the latest alpha releases. $+
}
on *:TEXT:!GG:#: {
  msg $chan /me BOOM your dead!! $+
}
on *:TEXT:!lag:#: {
  msg $chan /me The Lag is due to the imense amount of parts in the main ship - The LAG is pure game-only lag, It will improve as 11 individual vessels un-dock! $+
}
on *:TEXT:!helproulette:#: {
  msg $chan /me If the chat is a little quiet why not take a game of chance? Type !Roulette into the chat and see if you get a 1 in 6 chance of a 2 minute time-out (just for fun!)(MODs need not apply) $+
}
on *:TEXT:!Sfail:#: {
  msg $chan /me This was not one of my greatest Landings! - http://www.twitch.tv/spurgurgle/c/4534992 $+
}
on *:TEXT:!SEve:#: {
  msg $chan /me checkout my highlight of my Eve landing - http://www.twitch.tv/spurgurgle/c/4934674 $+
}
on *:TEXT:#A:#: {
  msg $chan /me That looks hard, do better! $+
}
on *:TEXT:#B:#: {
  msg $chan /me That defiantly looks too easy, wish I could make it harder! $+
}
on *:TEXT:!BOT:#: {
  msg $chan /me Warfare points are a sytem for playing games and for future raffles/giveaways,  I am being written and coded as this stream is live (type !commands for a list of my commands) $+
}
on *:TEXT:!thanks:#: {
  msg $chan /me Thanks for watching - If you don't already please hit the follow button and get notified when I go live! $+
}
on *:TEXT:!hype:#: {
  msg $chan /me #IKEBIKEHYPE $+
}
on *:TEXT:!multi:#: {
  msg $chan /me Go check out the multi stream over at multitwitch.tv/drummist/spurgurgle $+
}
on *:TEXT:!mods:#: {
  msg $chan /me Currently I am only using Kerbal Engineer everything else is STOCK $+
}
on *:TEXT:!lurkon:#: {
  msg $chan /me $nick - LURK MODE engaged $+
}
on *:TEXT:!lurkoff:#: {
  msg $chan /me $nick - LURK MODE disengaged $+
}
on *:TEXT:!commands:#: {
  msg $chan /me !follow, !GG, !multi, !mods, !lurkon, !lurkoff, !lag, ,!SEve, !SFail, !helproulette, !Giveaway, !Roulette, !Chuck, !BOT, !points, !Thanks, #A, #B, !hype $+
}
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 # /me $nick has $readini(Points.ini,$+(#,.,$nick),Points) Warfare 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 120 add.pts $+(#,.,$nick)
  add.pts $+(#,.,$nick)
  if ((%floodjoin) || ($($+(%,floodpoints.,$nick),2))) { return }
  set -u10 %floodjoin On
  set -u30 %floodjoin. $+ $nick On
  msg $chan /me Welcome $nick to the channel you are now earning Warfare points (I am a WIP Bot and may be a bit quirky - Enjoy the Stream! $+
}
on !*:part:#:$+(.timerpoints.,#,.,$nick) off
alias -l add.pts {
  writeini -n Points.ini $1 Points $calc($readini(Points.ini,$1,Points) + 1)
}
On *:TEXT:!Roulette:#: {
  if ((%floodroulette) || ($($+(%,floodroulette.,$nick),2))) { return }
  set -u1 %floodroulette On
  set -u5 %floodroulette. $+ $nick On
  if ($nick isop #) msg $chan $nick should know MOD's can't play this game
  else {
    var %randnumber = $rand(1,6)
    if (%randnumber == 1) {
      msg $chan BANG!... The gun Fires! and a bullet goes off... $nick is shaking so badly that it MISSES him but hits some metal and reflects back into $nick's head.
      msg $chan /timeout $nick 120
    }
    elseif (%randnumber == 2) {
      msg $chan *Click* ...Empty...You live to see another day $nick
    }
    elseif (%randnumber == 3) {
      msg $chan ..... BANG! ... Luckily it was only a blank!
    }
    elseif (%randnumber == 4) {
      msg $chan $nick starts to shake, $nick tries to pull the trigger but can't. $nick drops the gun, $nick isn't up for the challenge...
    }
    elseif (%randnumber == 5) {
      msg $chan *Click* - O_o you got away this time $nick
    }
    elseif (%randnumber == 6) {
      msg $chan *Click* - Fate is on your side today $nick
    }
  }
}
on *:text:!Giveaway:#:{
  if ((%floodGiveaway) || ($($+(%,floodGiveaway.,$nick),2))) { return }
  set -u10 %floodGiveaway On
  set -u30 %floodGiveaway. $- $nick On
  if ($nick isop #) { msg # /me Looking for a winner. }
  if ($nick isop #) { .timer 1 5 msg # /me Still shuffling the files }
  if ($nick isop #) { .timer 1 10 msg # /me $nick(#,$rand(1,$nick(#,0))) Just won a prize, I will be sending you a PM via Twitch. }
  if ($nick isop #) { .timer 1 15 msg # /me Congratulations! }
  else { msg # $nick you do not have permission to use this command! }
}
on *:TEXT:!top10:#:{
  if  ($nick isop #) { top10 # }
  else { msg # You are not allowed to use !top10. }
}

alias -l top10 {
  window -h @. | var %i 1
  while $gettok($remove($read(points.ini,w,$+(*,$1,*),%i),[,]),2,46) {
    var %n $v1, %p $gettok($read(points.ini,$calc($readn + 1)),2,61)
    aline @. %n %p
    var %i $calc($readn + 1)
  }
  filter -cetuww 2 32 @. @.
  var %i 1 | while %i <= 10 {
    var %list $addtok(%list,$line(@.,%i),44)
    inc %i
  }
  msg $1 Top 10 point are: $replace(%list,$chr(44),$+($chr(44),$chr(32)))
  window -c @.
}
alias addchuck {
  write chuck.txt $$?=\"Add a chucky joke here XD.\"
}
alias remchuck {
  write -d chuck.txt $$?=\"Remove a chucky joke X<\"
}
on *:text:*:#: {
  if ($strip($1) == !chuck) { .msg $chan $read(chuck.txt) }
  if ($strip($1) == !addchuck) { write chuck.txt $2- | .notice $nick Your chucky joke \" $+ $2- $+ \" has been added! }
  if ($strip($1) == !remchuck) {
    if ($2- == $read(chuck.txt)) {
      write -d chuck.txt
      .notice $nick Your chucky joke \" $+ $2- $+ \" has been removed!
    }
  }
}