Someone

The Problem:

(14:05:34) -DarkThunder- [Stats for Jollster24]:
(14:05:34) -DarkThunder- Total: 606 Att: 3 Def: 9 Str: 2 HP: 2 Range: 3 Prayer: 6 Magic: 9 Cook: 1 Woodcut: 4 Fletch: 0 Fish: 5 FM: 0 Craft: 4 Smith: 0 Mining: 6 Herblore: 4 Agility: 5 Thieve: 4 Slay: 0 Farm: 2 RC: 1 Hunt: 8 Con: 7 Summon: N/A Duel: 821 Bounty: N/A

Deletes the first number

The Scripts:

alias mycol { return $readini(defcol.ini,Defcol,$address($1,2)) }
alias mycol2 { return $readini(defcol2.ini,Defcol2,$address($1,2)) }

On $*:text:/^[!@](def|set)(color|colour|col)/Si:#:{ 
  if (!$2) { 
  Notice $Nick Error: No colors entered | Halt } 
  elseif ($2 !isnum 1-15) && ($3 == $null) {
  Notice $nick $s2(You gotta define a actual color (1-15)) }
  elseif ($2 isnum 1-15) && ($3 == $null) {
    set %color $2
    writeini defcol.ini Defcol $address($nick,2) $remove($replace($2,$chr(32),$chr(95)),$chr(36),$chr(37))
    notice $nick $s1(Your default color has been set to:)  $+ %color $+ this
  } 
  if ($3) {
    if ($2 !isnum 1-15) && ($3 !isnum 1-15) {
    Notice $nick $s2(You gotta define a actual color (1-15)) }
    elseif ($2 isnum 1-15) && ($3 isnum 1-15) {
      set %color1 $2
      set %color2 $3
      writeini defcol.ini Defcol $address($nick,2) $remove($replace($2,$chr(32),$chr(95)),$chr(36),$chr(37))
      writeini defcol2.ini Defcol2 $address($nick,2) $remove($replace($3,$chr(32),$chr(95)),$chr(36),$chr(37))
      notice $nick $s4(Your default colors has been set to:)  $+ %color $+ this $s4(&)  $+ %color2 $+ this
    } 
  }
}

alias s1 {
  if ($mycol($nick)) {
    return $+($chr(3),$mycol($nick),$1-) 
    else{
return $+($chr(3),10,$1-) } } 
alias s2 { 
  if ($mycol2($nick)) {
    return $+($chr(3),$mycol2($nick),$1-) 
    else{
return $+($chr(3),10,$1-) } }