SpaceTimeBot Code 2/27/2014 01

;-------------------
;| Trigger Commands |
;-------------------

on *:text:!*:#: {
  var %get $+(#,.,$1)
  var %name $1
  var %text $readini(cmds.ini,%get,text)
  else {
    if (%flood3) { return }
    set -u30 %flood3 On
    /msg # %text
  }
}

;----------------
;| Mod Commands |
;----------------
on *:text:#*:#: {
  if (ismod) {
    if ($1 == #add) {
      if ($0 < 3) { msg # Insufficient parameters: Use #add !<command name> <text> | return }
      writeini -n cmds.ini $+(#,.,$2) text $3-
      /msg # $2 command added as $3-
    }
    elseif ($1 == #edit) {
      if ($0 < 3) { msg # Insufficient parameters: Use #edit !<command name> <text> | return }
      writeini -n cmds.ini $+(#,.,$2) text $3-
      /msg # Edited $2 to $3-
    }
    elseif ($1 == #delete) {
      /remini cmds.ini $+(#,.,$2)
      /msg # Command $2 has been removed.
    }
  }
}
;------------------------------------
;| Moderator + Level Acess Comamands |
;------------------------------------
on *:TEXT:!teamspeak:#: {
  if ((%floodteamspeak) || ($($+(%,floodteamspeak.,$nick),2))) { return }
  set -u10 %teamspeak On
  set -u30 %teamspeak. $+ $nick On
  if ($nick isop #) { msg # The TeamSpeak server IP is: 5.175.161.118 }
  else { msg # Please ask a moderator to use this command. }
}
on *:TEXT:!tstutorial:#: {
  if ((%floodtstutorial) || ($($+(%,floodtstutorial.,$nick),2))) { return }
  set -u10 %getteamspeak On
  set -u30 %getteamspeak. $+ $nick On
  if ($nick isop #) { msg $chan This tutorial explains how to connect to a Team Speak server, just replace the ip with "5.175.161.118" http://tserverhq.com/clients/knowledgebase/99/How-to-connect-to-a-Teamspeak-3-server.html }
  else { msg # Please ask a moderator to use this command. }
}
on *:TEXT:!moderator:#: {
  if ((%moderator) || ($($+(%,moderator.,$nick),2))) { return }
  set -u10 %moderator On
  set -u30 %moderator. $+ $nick On
  if ($nick isop #) { msg $chan Thetechboy (Ryan) only selects former CIA agents that have a perfect eye, and can survive a bullet. So what are your chances? }
  else { msg # Please ask a moderator to use this command. }
}
;---------
;| Timers |
;---------
;---------------
;| Point System |
;---------------
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 60 add.pts $+(#,.,$nick)
  msg $chan Welcome $nick to Thetechboy's Stream, enjoy your stay!
  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 !*:part:#:{
  msg $chan Thanks for Watching the stream $nick , see you next time!
}