Zr

on *:TEXT:!pj*:#:{

  inc %pjusedby [ $+ [ $nick ] ]
  inc %halfop
  inc %OP
  inc %voice

  If (%halfop == 1) msg $chan !halfop $nick 
  If (%halfop == 1) msg $nick 14Congratulations4 $nick  $+ 14! You have earned4 Half-op!14 Have fun ;) Also if you want the4 Halfop14 permed just PM4 Godlys0ldier14 --

  If (%voice == 1) msg $chan !voice $nick 
  If (%voice == 1) msg $nick 14Congratulations4 $nick  $+ 14! You have earned4 voice!14 Have fun ;) Also if you want the4 voice14 permed just PM4 Godlys0ldier14 --

  If (%OP == 2000) msg $chan !op $nick 
  If (%OP == 2000) msg $nick 14Congratulations4 $nick  $+ 14! You have earned4 op!14 Have fun ;) Also if you want the4 op14 permed just PM4 Godlys0ldier14 --



  if (%pj != $null) { notice $nick Sorry the Player Jump spot is taken, try again later! | halt }

  while (!%1) {
    if ($nick($chan,$rand(1,$nick($chan,0))) != $nick) var %1 = $v1
  }
  while (!%2) {
    if ($nick($chan,$rand(1,$nick($chan,0))) != %1) var %2 = $ifmatch
  }
  set %pj $nick
  timer 1 0 .msg $chan 4 $nick 14is on the level 3 hills watching4 %1 14and4 %2 14fighting.
  timer 1 1 .msg $chan 4 $nick 14 runs up to the winner of the fight,4 %1 $+ .
  timer 1 1 .msg $chan 4 $nick 14 hits a4 $rand(20,30) 14with14 whip14 and then 4 $rand(20,30) & $rand(20,30) 14with dds!


  var %loot1 = $read(loot.txt)
  var %loot2 = $read(loot.txt)
  var %loot3 = $read(loot.txt)

  tokenize 32 %loot1
  var %price1 = $gettok(%loot1,$0,32)
  tokenize 32 %loot2
  var %price2 = $gettok(%loot2,$0,32)
  tokenize 32 %loot3
  var %price3 = $gettok(%loot3,$0,32)

  timer 1 2 .msg $chan 14Loot : [4 $+ %loot1 $+ GP $+ 4( $+ $money(%price1) $+ )14] [4 $+ %loot2 $+ GP $+ 4( $+ $money(%price2) $+ )14] [4 $+ %loot3 $+ GP $+ 4( $+ $money(%price3) $+ )14]
  set -u15 %abc $bytes($floor($calc(%price1 + %price2 + %price3)))
  set -u15 %abcd $calc($numtok(%abc,44) -1)
  set -u15 %xyz $+($gettok(%abc,1,44),$str(000,%abcd))
  timer 1 2 .msg $chan 4 $nick 14, You made4 $money($calc(%price1 + %price2 + %price3)) 14on that PJ!
  set %allprice [ $+ [ $nick ] ] $calc(%price1 + %price2 + %price3 + %allprice [ $+ [ $nick ] ]) 
  timer 1 2 .msg $chan 14You can go for another4 PJ14 in a couple of4 seconds14!
  timer 1 2
  timer 1 11 .msg $chan 14You can now4 pj14 again!
  timer 1 11 /unset %pj $nick

}
alias -l Money {
  if ($len($1) > 9) {
    var %x = $remove($right($1,9),$right($1,7))
    return $+($remove($1,$right($1,9)),$chr(44),%x,B)
  }
  elseif ($len($1) > 6) {
    var %x = $remove($right($1,6),$right($1,5))
    return $+($remove($1,$right($1,6)),$chr(44),%x,M)
  }
  elseif ($len($1) > 3) {
    var %x = $remove($right($1,3),$right($1,2))
    return $+($remove($1,$right($1,3)),$chr(44),%x,K)
  }
  else return $+($1,GP)
}

on *:TEXT:!count:#:{ notice $nick 4 $nick 14you have Player jumped4 %pjusedby [ $+ [ $nick ] ] 14battles successfully!

}

on *:TEXT:@count:#:{ msg $chan 4 $nick 14has Player jumped4 %pjusedby [ $+ [ $nick ] ] 14battles successfully!

}

ON *:TEXT:!count*:#:{

  if ($2 == $null) {
    notice $nick $left($1,1) $+ its !count (Nick)
    halt
  }
  if ($2 ison $chan) {
    notice $nick 4 $2 14has Player jumped4 %pjusedby [ $+ [ $2 ] ] 14battles successfully!
    halt
  }
  else {
    notice $nick Sorry he/she must be on the channel
  }
}
on *:text:*:#:{ 
if ($1 == !cash) { notice $nick you have made a total of %allprice [ $+ [ $nick ] ] }
if ($1 == @cash) ( msg $chan you have made a total of %allprice [ $+ [ $nick ] ] }
}