points system

alias doaddpoints {
  if ($3 !isnum) { echo 2 -st $3 is not a number. it needs to be a number. | halt }
  var %topic $+(,.,$2)
  var %points $calc($readini(points.ini,%topic,points) + $3 )
  writeini -n points.ini %topic points %points
  echo -a added points for %topic
}
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 == probablepanic ) {
    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) points. }
  }
  else { msg $chan YOU ARE NOT WORTHY. }
}

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