identify nickserv raw jammypear

on *:TEXT:*:#S.War: {
  var %nick $nick
  if ($regex($1,/^!war$/Si)) && ($nick isvoice #) {
    set %cbalance. [ $+ [ $nick ] ] $balchips($nick)
    if (%cbalance. [ $+ [ $nick ] ] < $2) msg # 2 $+ $nick $+ , you cannot wager that much as you only have %cbalance. [ $+ [ $nick ] ] chips
    elseif (!$balchips($nick)) msg # 2 $+ $nick $+ , you don't have any chips to play with. Please contact an operator to purchase some.
    elseif ($2 == $null) || ($2 !isnum) msg # 2 $+ $nick $+ , please use the correct syntax: !war <amount of chips>
    elseif ($2 <= 0) msg # 2 $+ $nick $+ , please use a positive number to bet with.
    elseif ($2 > 500) { msg $chan 2The maximum bet is 500 chips. | halt }
    elseif ($2 < 10) { msg # 2The minimum bet is 10 chips. | halt }
    else {
      .whois $nick
      set -u5 %warNick $nick
    }
  }
}
raw 307:*: {
  ;$2 in this case will be the identified nick. this section of the script
  ;will trigger EVERYTIME a nick is whoised.
  if ($2 == %warNick) {
    set %1roll $rand(0,100)
    set %2roll $rand(10,100)
    msg $chan 2 $+ $nick rolled a1 %1roll 2and $me rolled a1 %2roll $+ 2.
    {
      if ( %1roll > %2roll ) {
        msg # 2Well done %nick $+ , you have won $2 chips!
        set %outval $calc( %cbalance. [ $+ [ $nick ] ] + $2 )
        /savechips $nick %outval
      }
    }
    if ( %2roll >= %1roll ) {
      msg # 2Sorry %nick $+ , you have lost $2 chips
      set %outval $calc( %cbalance. [ $+ [ $nick ] ] - $2 )
      /savechips $nick %outval
    }
  }
}