Zr

on *:TEXT:!pj*:#:{
  inc %pjusedby [ $+ [ $nick ] ]
  inc %halfop

  If (%halfop == 5000) msg $chan 4 $nick 14 grats on getting 5000 Player jumps! You have now earned halfop and the rank, 4Master14 ! | mode $chan +h $nick | msg $chan 14To get Perm-halfop PM 4Godlys0ldier. 

  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!
  timer 1 2 .msg $chan 14You can go for another4 PJ14 in a couple of4 seconds14!
  timer 1 2
  timer 1 9 .msg $chan 14You can now4 pj14 again!
  timer 1 9 /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 you have used pj script %pjusedby [ $+ [ $nick ] ] times since you joined this channel 
}