heist/points system

on *:text:!heist:#: {
  if ((%floodheist) || ($($+(%,floodheist.,$nick),2))) { return }
  set -u10 %floodheist On
  set -u30 %floodheist. $+ $nick On
  var %topic $+($chan,.,$nick)
  var %points $iif($readini(Points.ini,%topic,Points) == $null,0,$v1)
  var %rng $rand(1,10)
  if (%rng == 1) { .timer1 1 15 msg # $nick, the heist went well, you earned 100 points
  }
  if (%rng == 2) { .timer2 1 15 msg # $nick, the heist went bad, you lost 200 points
  }
  if (%rng == 3) { .timer3 1 15 msg # $nick, the heist went well, you earned 50 points
  }
  if (%rng == 4) { .timer4 1 15 msg # $nick, the heist went bad, you lost 100
  }
  if (%rng == 5) { .timer5 1 15 msg # $nick, the heist went well, you earned 300 points
  }
  if (%rng == 6) { .timer6 1 15 msg # $nick, the heist went bad, you lost 300 points
  }
  if (%rng == 7) { .timer7 1 15 msg # $nick, the heist went well, you earned 350 points
  }
  if (%rng == 8) { .timer8 1 15 msg # $nick, the heist went bad, you lost 50 points
  }
  if (%rng == 9) { .timer9 1 15 msg # $nick, the heist went well, you earned 400 points
  }
  if (%rng == 10) { .timer10 1 15 msg # $nick, the heist went bad, you lost 400 points
  }


  if (%points < 50) {
    msg $chan $nick you do not have enough points to start a heist.
    return
  }
  %points = $calc(%points - 50)
  msg $chan $nick has started a heist and it will last 15 seconds.  $+ . Removed 50 points from $nick (Had $calc(%points + 50) points and now has %points points).
  writeini -n Points.ini %topic Points %points
  return %points
}


on *:text:!areyouhere:#:{
  msg # Im here, now what do you want.
}

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)
}