;##########################################
; spuzzy2@hotmail.com
;##########################################

alias getinfo { return 3 $+ $readini(Players\ $+ $1 $+ .ini,$1,$2) $+ 10 }
alias getinfo2 { return $readini(Players\ $+ $1 $+ .ini,$1,$2) }
alias getinfo3 { return $readini(PlayerLogs\ $+ $1 $+ .ini,$1,$2) }
alias getinfo4 { return $readini(GangLogs\ $+ $1 $+ .ini,$1,$2) }
alias getstat { return $readini(players\ $+ $1 $+ .ini,$1,STAT) }

;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
;                CAGE FIGHTING
;            Implemented: 28-03-06
;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

alias CAGE_MENU {
  writeini players\ $+ $nick $+ .ini $nick STAT CAGE
  msg = $+ $1  $space
  msg = $+ $1 7CAGED FIGHTING
  msg = $+ $1  $space
  msg = $+ $1 10Next caged fight will be in3 $duration($calc(3600-%cage.time))
  msg = $+ $1  $space
  if %cage.time >= 3000 {
    msg = $+ $1 3Players deemed to fight in the next battle:10 %cage.player1 3and10 %cage.player2
    msg = $+ $1  $space
    msg = $+ $1 [1]:3 %cage.player1
    msg = $+ $1 [2]:3 %cage.player2
    msg = $+ $1  $space
    msg = $+ $1 10Type 3BET AMOUNT NUMBER10 to place your bets. 3Eg: Bet 1500000 1
    msg = $+ $1  $space

  }
  if %cage.time < 3000  {
    msg = $+ $1 10No players have been selected to fight yet.
    msg = $+ $1  $space
  }
  msg = $+ $1 10[3X10]: Go back
}
alias CAGE_PLACE_BET {
  if ( %cage.time <= 3000 ) { msg = $+ $1 10No fighters have been chosen yet! | Halt }
  ;if ( $calc( 0+ $2 ) > 15000000000000 ) { msg = $+ $1 10You cannot bet that much! Max is3 R1,500000,000000 | halt }
  if - isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if + isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if * isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if + isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if a isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if b isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if c isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if d isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if e isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if f isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if g isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if h isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if i isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if j isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if k isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if l isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if m isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if n isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if o isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if p isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if q isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if r isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if s isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if t isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if u isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if v isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if w isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if x isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if y isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  if z isin $2 { msg = $+ $1 dont try to be a smartass... | halt }
  %player.cash.h = $getinfo2($1,CASH)
  if ( %player.cash.h < $calc( 0 +$2 ) ) { msg = $+ $nick 10You do not have that much cash on you! | halt }
  %player.bets = $getinfo2($1,CAGE)
  if %player.bets != $null { msg = $+ $1 10you have placed a bet already! | halt }
  if $3 == 1 { %p.b = %cage.player1 }
  if $3 == 2 { %p.b = %cage.player2 }
  if $3 !isnum { msg = $+ $1 10error: you did not specify a correct fighter! | halt }
  if $3 > 2 { msg = $+ $1 10error: you did not specify a correct fighter! | halt }
  if $2 <= 0 { msg = $+ $1 10error: you must bet something more then $ $+ 0! | halt }

  writeini players\ $+ $1 $+ .ini $1 CAGE %p.b

  writeini players\ $+ $1 $+ .ini $1 CAGEBET $calc( 0 + $2 )
  inc %total.bets 1
  writeini Players\ $+ $1 $+ .ini $1 CASH $calc(%player.cash.h - $calc( 0 + $2 ) )
  msg = $+ $1 10You have bet3 $cash($2) 10on3 %p.b $+ ! 10Good luck!
  aamsg 7[Bet]3 $1 10Has placed a bet on3 %p.b 10Amount: 3$ $+ $xcomma($2)  
}
alias CAGE_TIME {
  inc %cage.time 1
  if %cage.time == 3000 {
    if $chat(0) < 2 { aamsg 7[CAGED FIGHTING]10 there are not enough players online. Caged Fighting has been postponed. | %cage.time = 1 | halt }

    :checkplayer
    %cage.player1 = $chat($rand(1,$chat(0)))
    %cage.player2 = $chat($rand(1,$chat(0)))
    if %cage.player2 == %cage.player1 { inc %tries 1 | goto checkplayer }
    aamsg 7[CAGED FIGHTING]10 Contestants Chosen:3 %cage.player1 10vs3 %cage.player2 10[You have 10 minutes to place your bets!]
  }
  if %cage.time == 3600 {
    %cage.time = 1
    aamsg 7[CAGED FIGHTING]10 Bets have been stopped. The fight will now start!
    .timerCAGE2 0 1 CAGE_TIME2
    %cage.time2 = 1
  }

}

alias CAGE_TIME2 {
  inc %cage.time2 1
  if %cage.time2 == 10 {
    %cage.player1.sc = 0
    %cage.player2.sc = 0
    %cage.r = $rand(1,4)
    if %cage.r == 1 { inc %cage.player1.sc 1 | aamsg 3 $+ %cage.player1 10pokes3 %cage.player2 10in the eye! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }
    if %cage.r == 2 { inc %cage.player2.sc 1 | aamsg 3 $+ %cage.player2 10pokes3 %cage.player1 10in the eye! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }
    if %cage.r == 3 { inc %cage.player1.sc 1 | aamsg 3 $+ %cage.player1 10stabs3 %cage.player2 10in the face! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }
    if %cage.r == 4 { inc %cage.player2.sc 1 | aamsg 3 $+ %cage.player2 10stabs3 %cage.player1 10in the face! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }

  }

  if %cage.time2 == 20 {
    %cage.r = $rand(1,4)
    if %cage.r == 1 { inc %cage.player1.sc 1 | aamsg 3 $+ %cage.player1 10bicycle kicks3 %cage.player2 10in the jaw! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }
    if %cage.r == 2 { inc %cage.player2.sc 1 | aamsg 3 $+ %cage.player2 10bicycle kicks3 %cage.player1 10in the jaw! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }
    if %cage.r == 3 { inc %cage.player1.sc 1 | aamsg 3 $+ %cage.player1 10bicycle kicks3 %cage.player2 10in the jaw! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }
    if %cage.r == 4 { inc %cage.player2.sc 1 | aamsg 3 $+ %cage.player2 10bicycle kicks3 %cage.player1 10in the jaw! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }


  }
  if %cage.time2 == 30 {
    %cage.r = $rand(1,4)
    if %cage.r == 1 { inc %cage.player1.sc 1 | aamsg 3 $+ %cage.player1 10pounds3 %cage.player2 10with a baseball bat! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }
    if %cage.r == 2 { inc %cage.player2.sc 1 | aamsg 3 $+ %cage.player2 10pounds3 %cage.player1 10with a baseball bat! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }
    if %cage.r == 3 { inc %cage.player1.sc 1 | aamsg 3 $+ %cage.player1 10kicks3 %cage.player2 10in the nads! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }
    if %cage.r == 4 { inc %cage.player2.sc 1 | aamsg 3 $+ %cage.player2 10kicks3 %cage.player1 10in the nads! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }


  }
  if %cage.time2 == 40 {
    %cage.r = $rand(1,2)
    if %cage.r == 1 { inc %cage.player1.sc 1 | aamsg 3 $+ %cage.player1 10bites3 %cage.player2 10on the ear! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }
    if %cage.r == 2 { inc %cage.player2.sc 1 | aamsg 3 $+ %cage.player2 10bites3 %cage.player1 10on the ear! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }
  }
  if %cage.time2 == 50 {
    %cage.r = $rand(1,2)
    if %cage.r == 1 { inc %cage.player1.sc 1 | aamsg 3 $+ %cage.player1 10rips3 %cage.player2 $+ 's 10arm off! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }
    if %cage.r == 2 { inc %cage.player2.sc 1 | aamsg 3 $+ %cage.player2 10rips3 %cage.player1 $+ 's 10arm off! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }
    if %cage.player1.sc >= 5 { aamsg 3 $+ %cage.player2 10has been knocked out!7 %cage.player1 wins! | %cage.winner = %cage.player1 | goto win }
    if %cage.player2.sc >= 5 { aamsg 3 $+ %cage.player1 10has been knocked out!7 %cage.player2 wins! | %cage.winner = %cage.player2 | goto win }
  }
  if %cage.time2 == 60 {
    %cage.r = $rand(1,2)
    if %cage.r == 1 { inc %cage.player1.sc 1 | aamsg 3 $+ %cage.player1 10twists3 %cage.player2 $+ 's 10nipples 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }
    if %cage.r == 2 { inc %cage.player2.sc 1 | aamsg 3 $+ %cage.player2 10twists3 %cage.player1 $+ 's 10nipples 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }
    if %cage.player1.sc >= 5 { aamsg 3 $+ %cage.player2 10has been knocked out!7 %cage.player1 wins! | %cage.winner = %cage.player1 | goto win }
    if %cage.player2.sc >= 5 { aamsg 3 $+ %cage.player1 10has been knocked out!7 %cage.player2 wins! | %cage.winner = %cage.player2 | goto win }
  }
  if %cage.time2 == 70 {
    %cage.r = $rand(1,2)
    if %cage.r == 1 { inc %cage.player1.sc 1 | aamsg 3 $+ %cage.player1 10headbutts3 %cage.player2 10dizzy! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }
    if %cage.r == 2 { inc %cage.player2.sc 1 | aamsg 3 $+ %cage.player2 10headbutts3 %cage.player1 10dizzy! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }
    if %cage.player1.sc >= 5 { aamsg 3 $+ %cage.player2 10has been knocked out!7 %cage.player1 wins! | %cage.winner = %cage.player1 | goto win }
    if %cage.player2.sc >= 5 { aamsg 3 $+ %cage.player1 10has been knocked out!7 %cage.player2 wins! | %cage.winner = %cage.player2 | goto win }
  }
  if %cage.time2 == 80 {
    %cage.r = $rand(1,2)
    if %cage.r == 1 { inc %cage.player1.sc 1 | aamsg 3 $+ %cage.player1 10uppercuts3 %cage.player2 10right in the belly! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }
    if %cage.r == 2 { inc %cage.player2.sc 1 | aamsg 3 $+ %cage.player2 10uppercuts3 %cage.player1 10right in the belly! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }
    if %cage.player1.sc >= 5 { aamsg 3 $+ %cage.player2 10has been knocked out!7 %cage.player1 wins! | %cage.winner = %cage.player1 | goto win }
    if %cage.player2.sc >= 5 { aamsg 3 $+ %cage.player1 10has been knocked out!7 %cage.player2 wins! | %cage.winner = %cage.player2 | goto win }
  }
  if %cage.time2 == 90 {
    %cage.r = $rand(1,2)
    if %cage.r == 1 { inc %cage.player1.sc 1 | aamsg 3 $+ %cage.player1 10gets3 %cage.player2 10in a headlock! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }
    if %cage.r == 2 { inc %cage.player2.sc 1 | aamsg 3 $+ %cage.player2 10gets3 %cage.player1 10in a headlock! 3[ $+ %cage.player1 %cage.player1.sc %cage.player2 %cage.player2.sc $+ ] }
    if %cage.player1.sc >= 5 { aamsg 3 $+ %cage.player2 10has been knocked out!7 %cage.player1 wins! | %cage.winner = %cage.player1 | set %cage.loser433 %cage.player2 | goto win }
    if %cage.player2.sc >= 5 { aamsg 3 $+ %cage.player1 10has been knocked out!7 %cage.player2 wins! | %cage.winner = %cage.player2 | set %cage.loser433 %cage.player1 | goto win }
  }

  if %cage.time2 < 90 { goto end2 }

  :win
  %old.cage.player1 = %cage.player1
  %old.cage.player2 = %cage.player2
  if %cage.player1 == %cage.winner { %old.cage.winner = %cage.winner | %old.cage.looser = %cage.player2 }
  if $cage.player2 == %cage.winner { %old.cage.winner = %cage.winner | %old.cage.looser = %cage.player1 }
  %cage.time2 = 0
  timerCAGE2 off
  if %total.bets < 1 { 
    aamsg 10No-one placed a bet! Therefore there are no winners or losers!
    %prizes.r = $rand(1,5)
    if %prizes.r == 1 { 
      %cur.exp = $getinfo2(%cage.winner,EXP)
      inc %cur.exp 15000
      writeini players\ $+ %cage.winner $+ .ini %cage.winner EXP %cur.exp
      aamsg 7 $+ %cage.winner 10Has gained3 1500010 XP for winning the fight!
    }
    if %prizes.r == 2 {
      %cur.factorz = $getinfo2(%cage.winner,FACTNUM)
      inc %cur.factorz 1
      writeini players\ $+ %cage.winner $+ .ini %cage.winner FACTNUM %cur.factorz
      aamsg 7 $+ %cage.winner 10Has won3 1 Factory10 for winning the fight!
      ADD_LOG %cage.winner You won 1 factory for winning the cage fight!
    }
    if %prizes.r == 3 {
      %cur.factorz = $getinfo2(%cage.winner,FACTNUM)
      inc %cur.factorz 2
      writeini players\ $+ %cage.winner $+ .ini %cage.winner FACTNUM %cur.factorz
      aamsg 7 $+ %cage.winner 10Has won3 2 Factories10 for winning the fight!
      ADD_LOG %cage.winner You won 2 factories for winning the cage fight!
    }
    if %prizes.r == 4 { 
      %cur.exp = $getinfo2(%cage.winner,EXP)
      inc %cur.exp 15000
      writeini players\ $+ %cage.winner $+ .ini %cage.winner EXP %cur.exp
      writeini players\ $+ %cage.winner $+ .ini %cage.winner BANK $calc($getinfo2(%cage.winner,BANK) + 50000)
      aamsg 7 $+ %cage.winner 10Has gained3 1500010 XP and received 3$50,00010 for winning the fight!
      ADD_LOG %cage.winner You won 50,000 for winning the cage fight!
    }
    if %prizes.r == 5 {
      %cur.hackerz = $getinfo2(%cage.winner,HACKNUM)
      inc %cur.hackerz 1
      writeini players\ $+ %cage.winner $+ .ini %cage.winner HACKNUM %cur.hackerz
      aamsg 10A nearby hacker has watched the fight and has decided to join7 %cage.winner $+ 's10 team.7 %cage.winner 10has gained3 1 hacker10 for winning the fight!
      ADD_LOG %cage.winner A hacker has joined your team!
    }




    if %cur.exp >= $getinfo2(%cage.winner,NEXTEXP) {
      ADD_LOG %cage.winner You gained a level!

      %energy.amount3 = $calc($getinfo2(%cage.winner,ENERGY) + 3 )
      if %energy.amount3 > $getinfo2(%cage.winner,MAXENERGY) { %energy.amount3 = $getinfo2(%cage.winner,MAXENERGY) }
      writeini players\ $+ %cage.winner $+ .ini %cage.winner ENERGY %energy.amount3

      %ne = $getinfo2(%cage.winner,NEXTEXP)
      %ne2 = $calc($getinfo2(%cage.winner,LEVEL) + 1)
      if $getinfo2(%cage.winner,LEVEL) < 50 { %ne2 = $calc( %ne2 * 1100 ) }
      if $getinfo2(%cage.winner,LEVEL) >= 50 { %ne2 = $calc( %ne2 * 2800 ) }
      if $chat(%cage.winner).status == active {
        msg = $+ %cage.winner -
        msg = $+ %cage.winner -
        msg = $+ %cage.winner 10You have levelled up!
        msg = $+ %cage.winner -
        msg = $+ %cage.winner -
      }

      %ne2 = $calc( %ne2 / 2 )
      %ne2 = $round($calc( %ne2 + %ne ),0)
      aamsg 7 $+ %cage.winner 10has levelled up! Now level3 $calc($getinfo2(%cage.winner,LEVEL) + 1)

      writeini players\ $+ %cage.winner $+ .ini %cage.winner LEVEL $calc($getinfo2(%cage.winner,LEVEL) + 1)
      writeini players\ $+ %cage.winner $+ .ini %cage.winner NEXTEXP %ne2
      writeini players\ $+ %cage.winner $+ .ini %cage.winner HP $calc($getinfo2(%cage.winner,HP) + 100)
      writeini players\ $+ %cage.winner $+ .ini %cage.winner PRACS $calc($getinfo2(%cage.winner,PRACS) + 4)
    }

    halt

  }

  %prizes.r = $rand(1,10)
  if %prizes.r == 1 { 
    %cur.exp = $getinfo2(%cage.winner,EXP)
    inc %cur.exp 15000
    writeini players\ $+ %cage.winner $+ .ini %cage.winner EXP %cur.exp
    aamsg 7 $+ %cage.winner 10Has gained3 1500010 XP for winning the fight!
  }
  if %prizes.r == 2 { 
    %cur.exp = $getinfo2(%cage.winner,EXP)
    inc %cur.exp 15000
    writeini players\ $+ %cage.winner $+ .ini %cage.winner EXP %cur.exp
    aamsg 7 $+ %cage.winner 10Has gained3 1500010 XP for winning the fight!
  }

  if %prizes.r == 3 {
    %cur.factorz = $getinfo2(%cage.winner,FACTNUM)
    inc %cur.factorz 1
    writeini players\ $+ %cage.winner $+ .ini %cage.winner FACTNUM %cur.factorz
    aamsg 7 $+ %cage.winner 10Has won3 1 Factory10 for winning the fight!
    ADD_LOG %cage.winner You won 1 factory for winning the cage fight!
  }
  if %prizes.r == 4 { 
    %cur.exp = $getinfo2(%cage.winner,EXP)
    inc %cur.exp 15000
    writeini players\ $+ %cage.winner $+ .ini %cage.winner EXP %cur.exp
    aamsg 7 $+ %cage.winner 10Has gained3 1500010 XP for winning the fight!
  }

  if %prizes.r == 5 {
    %cur.factorz = $getinfo2(%cage.winner,FACTNUM)
    inc %cur.factorz 2
    writeini players\ $+ %cage.winner $+ .ini %cage.winner FACTNUM %cur.factorz
    aamsg 7 $+ %cage.winner 10Has won3 2 Factories10 for winning the fight!
    ADD_LOG %cage.winner You won 2 factories for winning the cage fight!
  }
  if %prizes.r == 6 { 
    %cur.exp = $getinfo2(%cage.winner,EXP)
    inc %cur.exp 15000
    writeini players\ $+ %cage.winner $+ .ini %cage.winner EXP %cur.exp
    aamsg 7 $+ %cage.winner 10Has gained3 1500010 XP for winning the fight!
  }

  if %prizes.r == 7 { 
    %cur.exp = $getinfo2(%cage.winner,EXP)
    inc %cur.exp 15000
    writeini players\ $+ %cage.winner $+ .ini %cage.winner EXP %cur.exp
    writeini players\ $+ %cage.winner $+ .ini %cage.winner BANK $calc($getinfo2(%cage.winner,BANK) + 50000)
    aamsg 7 $+ %cage.winner 10Has gained3 1500010 XP and received 3$50,00010 for winning the fight!
    ADD_LOG %cage.winner You won 50,000 for winning the cage fight!
  }
  if %prizes.r == 8 { 
    %cur.exp = $getinfo2(%cage.winner,EXP)
    inc %cur.exp 15000
    writeini players\ $+ %cage.winner $+ .ini %cage.winner EXP %cur.exp
    aamsg 7 $+ %cage.winner 10Has gained3 1500010 XP for winning the fight!
  }

  if %prizes.r == 9 {
    %cur.hackerz = $getinfo2(%cage.winner,HACKNUM)
    inc %cur.hackerz 1
    writeini players\ $+ %cage.winner $+ .ini %cage.winner HACKNUM %cur.hackerz
    aamsg 10A nearby hacker has watched the fight and has decided to join7 %cage.winner $+ 's10 team.7 %cage.winner 10has gained3 1 hacker10 for winning the fight!
    ADD_LOG %cage.winner A hacker has joined your team!
  } 
  if %prizes.r == 10 { 
    %cur.exp = $getinfo2(%cage.winner,EXP)
    inc %cur.exp 15000
    writeini players\ $+ %cage.winner $+ .ini %cage.winner EXP %cur.exp
    aamsg 7 $+ %cage.winner 10Has gained3 1500010 XP for winning the fight!
  }



  %blehh = $findfile(players\,*.ini,0,inc %nof 1)
  %x = 1
  while %x <= %nof {
    %file1 = $findfile(players\,*.ini,%x)
    %ttt = $right(%file1,$calc($len(%file1) - $pos(%file1,\players\) - 8))
    %ttt2 = $calc($len(%ttt) - 4)
    %ttt3 = $left(%ttt,%ttt2)
    %player.bet = $getinfo2(%ttt3,CAGE)
    if %player.bet != $null {
      if %player.bet != %cage.winner { 
        aamsg 7[Loser]:3 %ttt3 10has Lost3 $cash2($getinfo2(%ttt3,CAGEBET))
        if $getinfo2(%ttt3,PREF) == YES {
          if $chat(%ttt3).status == waiting { close -c %ttt3 }
          if $chat(%ttt3).status == active { msg = $+ %ttt3 7[Cage Fight]:10 You have lost3 $cash2($getinfo2(%ttt3,CAGEBET)) 10for betting on3 %player.bet }
        }
      }
      if %player.bet == %cage.winner {
        aamsg 7[Winner]:3 %ttt3 10has won3 $cash2($calc($getinfo2(%ttt3,CAGEBET) * 2))
        if $getinfo2(%ttt3,PREF) == YES {
          if $chat(%ttt3) != $null {
            if $chat(%ttt3).status == waiting { echo lol }
            if $chat(%ttt3).status == active { msg = $+ %ttt3 7[Cage Fight]:10 You have won3 $cash2($calc($getinfo2(%ttt3,CAGEBET) * 2)) 10for betting on3 %cage.winner }
          }
        }
        %winning = $calc($getinfo2(%ttt3,CAGEBET) * 2))
        writeini Players\ $+ %ttt3 $+ .ini %ttt3 CASH $calc($getinfo2(%ttt3,CASH) + %winning)
      }
      remini Players\ $+ %ttt3 $+ .ini %ttt3 CAGE
      remini Players\ $+ %ttt3 $+ .ini %ttt3 CAGEBET
    }
    inc %x

  }
  %total.bets = 0

  %cur.exp = $getinfo2(%cage.winner,EXP)
  inc %cur.exp 1500
  writeini players\ $+ %cage.winner $+ .ini %cage.winner EXP %cur.exp

  if %cur.exp >= $getinfo2(%cage.winner,NEXTEXP) {
    ADD_LOG %cage.winner You gained a level!

    %energy.amount3 = $calc($getinfo2(%cage.winner,ENERGY) + 3 )
    if %energy.amount3 > $getinfo2(%cage.winner,MAXENERGY) { %energy.amount3 = $getinfo2(%cage.winner,MAXENERGY) }
    writeini players\ $+ %cage.winner $+ .ini %cage.winner ENERGY %energy.amount3

    %ne = $getinfo2(%cage.winner,NEXTEXP)
    %ne2 = $calc($getinfo2(%cage.winner,LEVEL) + 1)
    if $getinfo2(%cage.winner,LEVEL) < 50 { %ne2 = $calc( %ne2 * 1100 ) }
    if $getinfo2(%cage.winner,LEVEL) >= 50 { %ne2 = $calc( %ne2 * 2800 ) }
    if $getinfo2(%cage.winner,PREF) == YES {
      if $chat(%cage.winner).status == active {
        msg = $+ %cage.winner -
        msg = $+ %cage.winner -
        msg = $+ %cage.winner 10You have levelled up!
        msg = $+ %cage.winner -
        msg = $+ %cage.winner -
      }
    }
    %ne2 = $calc( %ne2 / 2 )
    %ne2 = $round($calc( %ne2 + %ne ),0)
    aamsg 3 $+ %cage.winner 10has levelled up! Now level3 $calc($getinfo2(%cage.winner,LEVEL) + 1)

    writeini players\ $+ %cage.winner $+ .ini %cage.winner LEVEL $calc($getinfo2(%cage.winner,LEVEL) + 1)
    writeini players\ $+ %cage.winner $+ .ini %cage.winner NEXTEXP %ne2
    writeini players\ $+ %cage.winner $+ .ini %cage.winner HP $calc($getinfo2(%cage.winner,HP) + 100)
    writeini players\ $+ %cage.winner $+ .ini %cage.winner PRACS $calc($getinfo2(%cage.winner,PRACS) + 4)
  }

  :end2
}