Add/Rem/Give Points and Raffle system

TO EDIT THE TIMER POINTS YOU LOOK FOR THE FOLLOWING:  $+(.timerpoints.,#,.,$nick) 0 600 add.pts $+(#,.,$nick)
  AND EDIT THE "600" TO HOWEVER MANY SECONDS YOU WANT
TO EDIT THE AMOUNT OF POINTS FOR THE TIMER, YOU LOOK FOR: writeini -n Points.ini $1 Points $calc($readini(Points.ini,$1,Points) + 10)
  AND EDIT THE +1O TO HOWEVER MANY POINTS YOU WANT TO BE ADDED FOR THE AMOUNT OF TIME YOU'VE INPUTTED.
CREDITS TO darkestginge and afterburn1000 THAT HAD ORIGINAL SCRIPTS OUT THERE.
ALL I DID WAS EDIT PARTS OF THE SCRIPT SUCH AS ADDING THE OPTION TO LET VIEWERS FEED CARROTS FROM THEIR OWN ADDED UP POINTS (GIVING POINTS) AND OTHER MISC. MINOR THINGS TO MY LIKING.
** IF YOU'D LIKE TO SEE IT WORKS, YOU CAN CHECK IT OUT AT:
WWW.TWITCH.TV/JALLY511
********************************************************************************************************************************

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 feedPoints {
  if ($4 !isnum) { echo 2 -st $4 is not a number. It needs to be a number. | halt }
  var %topic $+($chan,.,$nick)
  var %points $calc($readini(Points.ini,%topic,Points) + $4)
  var %remove = %user - $4
  writeini -n Points.ini %user Points %points
  writeini -n Points.ini %topic Points %remove
  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:!carrots:#:{ msg # $nick has $readini(Points.ini,$+(#,.,$nick),Points) total carrots. }

on $*:TEXT:/!carrots (add|remove)/Si:#:{
  if ($nick = Jally511) {
    if ($0 < 3) { msg # Insufficient parameters: Use !carrots <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 carrots. }
  }
  else { msg $chan /me Only Jally can give you more carrots! Slaps $nick }
}
on *:text:!carrots feed*:#: {
  if ($0 != 4) || ($4 !isnum) {
    msg $chan Insufficient or incorrect parameters: use !carrots feed [user] [number]
    Halt
  }
  if ($4 <= 0) {
    msg $chan $nick you cannot give someone less than 1 carrot.
    halt
  }
  if ($readini(Points.ini,$+(#,.,$3),Points) = $null) {
    msg $chan $nick That person isn't registered to Jally's Empire, please check your spelling or that you have the correct name and try again.
    Halt
  }
  else {
    if ($readini(Points.ini,$+(#,.,$nick),Points) >= $4) {
      writeini -n Points.ini $+(#,.,$3) Points $calc($readini(Points.ini,$+(#,.,$3),Points) + $4)
      writeini -n Points.ini $+(#,.,$nick) Points $calc($readini(Points.ini,$+(#,.,$nick),Points) - $4)
      msg $chan $nick has given $4 of their carrots to $3, $3 now has $readini(Points.ini,$+(#,.,$3),Points) carrots and $nick now has $readini(Points.ini,$+(#,.,$nick),Points).
      halt
    }
    elseif ($readini(Points.ini,$+(#,.,$nick),Points) < $4) {
      msg $chan $nick you do not have that many carrots to give.
      halt
    }
  }
}



ON !*:join:#:{
  $+(.timerpoints.,#,.,$nick) 0 600 add.pts $+(#,.,$nick)
  add.pts $+(#,.,$nick)
  if ((%floodjoin) || ($($+(%,floodjoin.,$nick),2))) { return }
  set -u10 %floodjoin On
  set -u30 %floodjoin. $+ $nick On
  msg $chan /ME WELCOME $nick !!! you have just joined Jally's Empire and will start earning carrots.
}
ON !*:part:#:$+(.timerpoints.,#,.,$nick) off
alias -l add.pts {
  writeini -n Points.ini $1 Points $calc($readini(Points.ini,$1,Points) + 10)
}


on *:TEXT:!getbunnies &:#:{
  if (%open == 1) {
    if ($2 > 10) {
      msg $chan $nick $+ , you can only have a max of 10 bunnies!
    }
    if ($2 < 11) {
      var %i = 0
      var %count = $2
      var %topic = $+(#,.,$nick)
      var %user = $readini(Points.ini,%topic,Points)
      var %final = 88 * %count
      var %remove = %user - %final
      if (%remove > 0) {
        writeini -n Points.ini %topic Points %remove
        while (%i < %count) {
          write Raffle.txt $nick
          %i = %i + 1
        }
        msg $chan $nick $+ , just got %count bunnies using %final carrots! Find out how many bunnies are in the raffle right now by typing !bunnies
      }
      if (%remove < 0) {
        msg $chan Sorry $nick but you don't have enough carrots to get %count bunnies!
      }
    }
  }
}
on *:TEXT:*:#:{
  if ($nick = Jally511) {
    if ($1 == !bunny) {
      if ($2 == hopin) {
        msg $chan /me Wiggle your noses and FLUFF your tails! The RAFFLE BUNNY JUST HOPPED IN, type !getbunnies <amount> to join in!
        set %open 1
        write -c Raffle.txt
        echo -a Raffle Started
      }
      if ($2 == hopout) {
        msg $chan /me [RAFFLE CLOSED]
        set %open 0
        write -c Raffle.txt
        echo -a Raffle Closed
      }
    }
    if ($1 == !wiggles) {
      if (%open == 1) {
        var %user = $read(Raffle.txt,n)
        write -c Raffle.txt
        set %open 0
        msg $chan /me And the winner is... %user $+ !!! Grats!
        echo -a Raffle Closed
      }
    }
  }
  if ($1 == !bunnies) {
    if (%open == 1) {
      msg $chan There are currently $lines(Raffle.txt) bunnies entered into the raffle!
    }
  }
}