Hi so I have this command about 3 out of 8 someone can catch a pokemon I want to give them 10 pebbles every time they catch a pokemon but I can't figure out how to do it.

Also is there A array type of command where when they caught someone it be !firestonetv Pikachu Charizard
Then they rolled an 8 they caught a Charmander can it update it like !firestonetv pikachu Charizard Charmander ect ect. as of right now I am putting them in Manually I want to improve it.


Pokemon Code
Code:
on *:TEXT:*:#:{
  var %pokemon $read(pokemon.txt), %p = $gettok(%pokemon,$rand(1,$numtok(%pokemon,124)),124), %chance = $rand(1,1)
  var %pS $read(pS.txt)
  if ($me == Firepebbles && Pokeball iswm $strip($1)) {
    if ((%flood) || ($($+(%,flood.,$nick),2))) { return }
    {
      set -zc %flood. $+ $nick 300
      set -zc %flood 1
      if (%chance == 8) { msg # $nick a Wild %pokemon $+ %pS Appeared and you use a Masterball! Congratulations!!! (5 minute Cool Down per User) | write pokeballpts.txt ! $+ $nick %p $+ %pS $2- | halt }
      if (%chance == 7) { msg # $nick a Wild %pokemon Appeared. Throw a Pokeball Rumble Once. Sorry please try again (5 minute Cool Down per User) | halt }
      if (%chance == 6) { msg # $nick a Wild %pokemon Appeared. Throw a Greatball Rumble twice. Sorry please try again (5 minute Cool Down per User) | halt }
      if (%chance == 5) { msg # $nick a Wild %pokemon Appeared. Throw a Ultraball Rumble three times. Congratulations!!!!! (5 minute Cool Down per User) | write pokeballpts.txt ! $+ $nick %p $2- | halt }
      if (%chance == 4) { msg # $nick Went to the  casino Try to get themself a %pokemon Spent over 5 hours but Lost everything! (5 minute Cool Down per User) | halt }
      if (%chance == 3) { msg # $nick went to the Casino Try to get themself a %pokemon After a few minutes they Won! Congratulations!!!! (5 Minute Cool Down per User) | write pokeballpts.txt ! $+ $nick %p $2- | halt }
      if (%chance == 2) { msg # $nick Slow Walked up to a %pokemon and it got scared and ran off! (5 Minute Cool Down per User) | halt }
      if (%chance == 1) { msg # $nick Saw a wild %pokemon and Ran like a baby! (5 Minute Cool Down per User) | halt }
    }
    else {
      msg # $nick please wait %flood. seconds to use another Pokeball
    }
  }
}


Point Code
Code:
on *:text:!pebbles:#:{
  if ((%floodpoints) || ($($+(%,floodpoints.,$nick),2))) { return }
  set -u1 %floodpoints On
  set -u30 %floodpoints. $+ $nick On
  msg # $nick has $readini(points.ini,$+(#,.,$nick),points) total points.
}

on $*:text:/!p (add|remove)/Si:#:{
  if ($nick == firestonetv ) {
    if ($0 < 3) { msg # Insufficient parameters: Use !pebbles <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 9000 add.pts $+(#,.,$nick)
  add.pts $+(#,.,$nick)
  set %nachrichten. $+ $nick = 0
}


on !*:part:#:$+(.timerpoints.,#,.,$nick) off
alias -l add.pts {
  writeini -n Points.ini $1 Points $calc($readini(Points.ini,$1,Points) + 1)
}

on *:TEXT:*:*: {
  if (%nachrichten. [ $+ [ $nick ] ] == 10) {
    set %nachrichten. $+ $nick 0
    add.pts $+(#,.,$nick)}
  }
  else { inc %nachrichten. $+ $nick }
  .timer $+ $nick 1 600 unset %nachrichten. [ $+ [ $nick ] ]
}


Alias Command
Code:
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
}