Kappa Counter

on *:TEXT:!kappacount:#: {
  if (%kappa. $+ $nick >= 1) {
    msg $chan $nick your Kappa count is %kappa. [ $+ [ $nick ] ]
  }
  if (%kappa. $+ $nick == 0) {
    msg $chan Oh dear, you have never Kappa'd before
  }
}

on *:TEXT:!unkappa *:#: {
  if ($nick isop $chan) {
    set %reservenaam $2
    set %reservekaps %kappa. [ $+ [ $2 ] ]
    msg $chan %reservekaps Kappa's died that day BibleThump
    unset %kappa. [ $+ [ $2 ] ]
    dec %totalkappa %reservekaps
    /write -c kaps.txt %totalkappa

  }
}

on *:TEXT:!restorekappa:#: {
  if ($nick isop $chan) {
    set %kappa. [ $+ [ %reservenaam ] ] %reservekaps
    inc %totalkappa %reservekaps
    /write -c kaps.txt %totalkappa
    msg $chan The twitch gods has listened to your request
    unset %reservenaam
    unset %reservekaps
  }
}

on *:TEXT:*Kappa*:#: {
  if ($1 == !kappacount) { /halt }
  if ($1 == !unkappa) { /halt }
  if ($1 == !restorekappa) { /halt }
  inc %kappa. $+ $nick 1
  inc %totalkappa 1
  /write -c kaps.txt %totalkappa
}