;##########################################
; spuzzy2@hotmail.com
;##########################################
alias getinfo { return 4 $+ $readini(Players\ $+ $1 $+ .ini,$1,$2) $+ 14 }
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) }


alias WAR_SIM_MENU {
  writeini players\ $+ $1 $+ .ini $1 STAT SIM
  var %expp = $getinfo2($1,EXP)
  var %expp = $round( %expp ,0)
  var %e = $calc($getinfo2($1,NEXTEXP))
  var %e2 = $round($calc(($getinfo2($1,EXP) / %e)*100),2)

  var %factor = $calc($getinfo2($1,LEVEL) * .65 )
  var %exp = $calc(50 + (17 * %factor))

  var %tto = $calc(%e - %expp)
  var %tto2 = $calc(%tto / %exp)


  msg = $+ $1 7SIMULATOR
  msg = $+ $1  $space
  msg = $+ $1 10Experience: 3 $+ %expp $+ / $+ $getinfo($1,NEXTEXP) ( $+ %e2 $+ % $+ )  10Approx. number of fights till level:3 $round(%tto2,2)
  msg = $+ $1  $space
  msg = $+ $1 10You have3 $getinfo2($1,ENERGY) 10energy remaining
  msg = $+ $1 10HP3 $round($getinfo2($1,CURHP),0) $+ / $+ $round($getinfo2($1,HP),0)
  msg = $+ $1 10HP Bar: $hpbar($1)
  msg = $+ $1  $space
  msg = $+ $1 10Defence:3 $getinfo2($1,DEFENSE)
  msg = $+ $1 10Strength:3 $getinfo2($1,STRENGTH)
  msg = $+ $1  $space
  msg = $+ $1 [1]:10 Battle the cash simulator
  msg = $+ $1 [2]:10 Battle the strength simulator
  msg = $+ $1 [3]:10 Battle the defense simulator
  msg = $+ $1  $space
  msg = $+ $1 [X]:10 Go back
  halt
}
alias Debug_Sim {
  %p.g = $getinfo2($1,GANGNAME)
  %g.war = $gi( %p.g,GangWAR)
  %p.war = $getinfo2($1,INWAR)
  if %g.war == YES { msg = $+ $1 10There is nothing wrong with the simulator, you are at war! | halt }
  if %g.war == NO {
    if %p.war == NO { msg = $+ $1 10There is nothing wrong with the simulator! | halt }
    if %p.war == YES { 
      writeini players\ $+ $1 $+ .ini $1 INWAR NO
      msg = $+ $1 10The simulator has been debugged, we apologise for this issue, we are trying to resolve it.
    }
  }
}
alias WAR_BATTLE {
  %player.eng = $getinfo2($1,ENERGY)
  if %player.eng == 0 { msg = $+ $1 You have no energy left! | halt }
  var %gang = $getinfo2($1,INWAR)
  if %gang == YES { msg = $+ $1 10You are currently in a war and cannot use the simulator! | halt }
  %player.hp = $getinfo2($1,CURHP)
  if %player.hp <= 0 { msg = $+ $1 You are dead. go to the hospital! | halt }


  %player.hit = $calc($getinfo2($1,STRENGTH) * .4 +( $getinfo2($1,ATT) * .2)))
  %sim.HP = $calc($getinfo2($1,HP) * 1.6)
  %player.hp = $getinfo2($1,CURHP)
  var %p.lvl = $getinfo2($1,level)
  if %p.lvl < 10 { %player.hit = $calc( %player.hit +( %p.lvl * 3.5 )) }

  :battlesimstart
  %sim.hit = $calc( %player.hit * .07)
  if %sim.hit < 5 { %sim.hit = $calc( %player.hit * 0.5 ) }
  %attack.roll = $rand(1,5)
  %sim.attack.roll = $rand(1,3)
  if %attack.roll > 1 {
    %sim.hp = $calc( %sim.hp - %player.hit )
    msg = $+ $1 You hit the simulator! ( $+ %player.hit Dmg)
    if %sim.hp < 1 { msg = $+ $1 10You have killed the simulator! | goto killedsim }
  }
  if %attack.roll < 2 { msg = $+ $1 You miss! }

  if %sim.attack.roll == 4 {
    msg = $+ $1 The simulator attacks you! ( $+ %sim.hit Dmg)
    %player.hp = $calc( %player.hp - %sim.hit )
    writeini players\ $+ $1 $+ .ini $1 CURHP %player.hp
    if %player.hp < 1 { writeini players\ $+ $1 $+ .ini $1 CURHP 0 | msg = $+ $1 4You have been killed! | goto killedplayer }
  }
  if %sim.attack.roll == 1 || %sim.attack.roll == 2 || %sim.attack.roll == 3 { msg = $+ $1 The simulator misses! }
  goto battlesimstart

  :killedsim
  %exp = $calc($rand(55,100) + (15 * $getinfo2($1,LEVEL)))
  %cur.exp = $getinfo2($1,EXP)
  %cur.exp = $calc( %cur.exp + %exp )
  msg = $+ $1 10You have gained3 %exp 10experience points
  writeini players\ $+ $1 $+ .ini $1 EXP %cur.exp
  %cash.scored = $rand(300,1500)
  %player.cash = $calc($getinfo2($1,CASH) + %cash.scored )
  writeini Players\ $+ $1 $+ .ini $1 CASH %player.cash
  msg = $+ $1 10You score3 %cash.scored cash
  if %cur.exp >= $getinfo2($1,NEXTEXP) {
    msg = $+ $1 10You have gained a level!
    %ne = $getinfo2($1,NEXTEXP)
    %ne2 = $calc($getinfo2($1,LEVEL) + 1)
    if $getinfo2($1,LEVEL) >= 250 { %ne2 = $calc( %ne2 * 6000 ) | goto gh2 }
    if $getinfo2($1,LEVEL) < 50 { %ne2 = $calc( %ne2 * 1100 ) }
    if $getinfo2($1,LEVEL) >= 100 { %ne2 = $calc( %ne2 * 3500 ) | goto gh2 }
    if $getinfo2($1,LEVEL) >= 50 { %ne2 = $calc( %ne2 * 2800 ) }
    :gh2
    %ne2 = $calc( %ne2 / 2 )
    %ne2 = $round($calc( %ne2 + %ne ),0)
    writeini players\ $+ $1 $+ .ini $1 NEXTEXP %ne2
    aamsg 7 $+ $1 10has levelled up! Now level3 $calc($getinfo2($1,LEVEL) + 1)
    writeini players\ $+ $1 $+ .ini $1 LEVEL $calc($getinfo2($1,LEVEL) + 1)
    writeini players\ $+ $1 $+ .ini $1 HP $calc($getinfo2($1,HP) + 25)
    writeini players\ $+ $1 $+ .ini $1 PRACS $calc($getinfo2($1,PRACS) + 4)
    if 10 // $getinfo2($1,LEVEL) { writeini players\ $+ $1 $+ .ini $1 MAXENERGY $calc($getinfo2($1,MAXENERGY) + 1) }

  }
  %get.player.wins = $getinfo2($1,WINS)
  inc %get.player.wins 1
  writeini Players\ $+ $1 $+ .ini $1 WINS %get.player.wins
  unset %get.player.wins

  goto end3

  :killedplayer
  %get.player.loss = $getinfo2($1,LOSS)
  inc %get.player.loss 1
  writeini Players\ $+ $1 $+ .ini $1 LOSS %get.player.loss
  unset %get.player.loss



  :end3
  %player.eng = $getinfo2($1,ENERGY)
  %player.eng = $calc( %player.eng - 1 )
  writeini players\ $+ $1 $+ .ini $1 ENERGY %player.eng
  war_sim_menu $1
  halt
}

alias WAR_BATTLE_DEF {
  var %gang = $getinfo2($1,INWAR)
  if %gang == YES { msg = $+ $1 10You are currently in a war and cannot use the simulator! | halt }
  %player.eng = $getinfo2($1,ENERGY)
  if %player.eng == 0 { msg = $+ $1 You have no energy left! | halt }
  %player.hp = $getinfo2($1,CURHP)
  if %player.hp <= 0 { msg = $+ $1 You are dead. go to the hospital! | halt }

  %player.hit = $calc($getinfo2($1,STRENGTH) * .4 +( $getinfo2($1,ATT) * .2)))
  %sim.HP = $calc($getinfo2($1,HP) * 1.6)
  %player.hp = $getinfo2($1,CURHP)
  var %p.lvl = $getinfo2($1,level)
  if %p.lvl < 10 { %player.hit = $calc( %player.hit +( %p.lvl * 3.5 )) }

  :battlesimstart
  %sim.hit = $calc( %player.hit * .07)
  if %sim.hit < 5 { %sim.hit = $calc( %player.hit * 0.5 ) }
  %attack.roll = $rand(1,3)
  %sim.attack.roll = $rand(1,4)
  if %attack.roll > 1 {
    %sim.hp = $calc( %sim.hp - %player.hit )
    msg = $+ $1 You hit the simulator! ( $+ %player.hit Dmg)
    if %sim.hp < 1 { msg = $+ $1 10You have killed the simulator! | goto killedsim }
  }
  if %attack.roll < 2 { msg = $+ $1 You miss! }

  if %sim.attack.roll == 4 {
    msg = $+ $1 The simulator attacks you! ( $+ %sim.hit Dmg)
    %player.hp = $calc( %player.hp - %sim.hit )
    writeini players\ $+ $1 $+ .ini $1 CURHP %player.hp
    if %player.hp < 1 { writeini players\ $+ $1 $+ .ini $1 CURHP 0 | msg = $+ $1 4You have been killed! | goto killedplayer }
  }
  if %sim.attack.roll == 1 || %sim.attack.roll == 2 || %sim.attack.roll == 3 { msg = $+ $1 The simulator misses! }
  goto battlesimstart


  :killedsim
  %exp = $calc($rand(1,100) + (15 * $getinfo2($1,LEVEL)))
  %cur.exp = $getinfo2($1,EXP)
  %cur.exp = $calc( %cur.exp + %exp )
  msg = $+ $1 10You have gained3 %exp 10experience points
  writeini players\ $+ $1 $+ .ini $1 EXP %cur.exp
  %player.str = $calc($getinfo2($1,DEFENSE) + 0.20 )
  writeini Players\ $+ $1 $+ .ini $1 DEFENSE %player.str
  msg = $+ $1 10You gain3 0.20 Defence
  if %cur.exp >= $getinfo2($1,NEXTEXP) {
    msg = $+ $1 10You have gained a level!
    %ne = $getinfo2($1,NEXTEXP)
    %ne2 = $calc($getinfo2($1,LEVEL) + 1)
    if $getinfo2($1,LEVEL) >= 250 { %ne2 = $calc( %ne2 * 6000 ) | goto gh }
    if $getinfo2($1,LEVEL) < 50 { %ne2 = $calc( %ne2 * 1100 ) }
    if $getinfo2($1,LEVEL) >= 100 { %ne2 = $calc( %ne2 * 3500 ) | goto gh }
    if $getinfo2($1,LEVEL) >= 50 { %ne2 = $calc( %ne2 * 2800 ) }
    :gh
    %ne2 = $calc( %ne2 / 2 )
    %ne2 = $round($calc( %ne2 + %ne ),0)
    writeini players\ $+ $1 $+ .ini $1 NEXTEXP %ne2
    aamsg 7 $+ $1 10has levelled up! Now level3 $calc($getinfo2($1,LEVEL) + 1)
    writeini players\ $+ $1 $+ .ini $1 LEVEL $calc($getinfo2($1,LEVEL) + 1)
    writeini players\ $+ $1 $+ .ini $1 HP $calc($getinfo2($1,HP) + 25)
    writeini players\ $+ $1 $+ .ini $1 PRACS $calc($getinfo2($1,PRACS) + 4)
    if 10 // $getinfo2($1,LEVEL) { writeini players\ $+ $1 $+ .ini $1 MAXENERGY $calc($getinfo2($1,MAXENERGY) + 1) }

  }
  %get.player.wins = $getinfo2($1,WINS)
  inc %get.player.wins 1
  writeini Players\ $+ $1 $+ .ini $1 WINS %get.player.wins
  unset %get.player.wins

  goto end3

  :killedplayer
  %get.player.loss = $getinfo2($1,LOSS)
  inc %get.player.loss 1
  writeini Players\ $+ $1 $+ .ini $1 LOSS %get.player.loss
  unset %get.player.loss



  :end3
  %player.eng = $getinfo2($1,ENERGY)
  %player.eng = $calc( %player.eng - 1 )
  writeini players\ $+ $1 $+ .ini $1 ENERGY %player.eng
  war_sim_menu $1
  halt
}
alias WAR_BATTLE_STR {
  var %gang = $getinfo2($1,INWAR)
  if %gang == YES { msg = $+ $1 10You are currently in a war and cannot use the simulator! | halt }
  %player.eng = $getinfo2($1,ENERGY)
  if %player.eng == 0 { msg = $+ $1 You have no energy left! | halt }
  %player.hp = $getinfo2($1,CURHP)
  if %player.hp <= 0 { msg = $+ $1 You are dead. go to the hospital! | halt }


  %player.hit = $calc($getinfo2($1,STRENGTH) * .4 +( $getinfo2($1,ATT) * .2)))
  %sim.HP = $calc($getinfo2($1,HP) * 1.6)
  %player.hp = $getinfo2($1,CURHP)
  var %p.lvl = $getinfo2($1,level)
  if %p.lvl < 10 { %player.hit = $calc( %player.hit +( %p.lvl * 3.5 )) }

  :battlesimstart
  %sim.hit = $calc( %player.hit * .07)
  if %sim.hit < 5 { %sim.hit = $calc( %player.hit * 0.5 ) }
  %attack.roll = $rand(1,3)
  %sim.attack.roll = $rand(1,4)
  if %attack.roll > 1 {
    %sim.hp = $calc( %sim.hp - %player.hit )
    msg = $+ $1 You hit the simulator! ( $+ %player.hit Dmg)
    if %sim.hp < 1 { msg = $+ $1 10You have killed the simulator! | goto killedsim }
  }
  if %attack.roll < 2 { msg = $+ $1 You miss! }

  if %sim.attack.roll == 4 {
    msg = $+ $1 The simulator attacks you! ( $+ %sim.hit Dmg)
    %player.hp = $calc( %player.hp - %sim.hit )
    writeini players\ $+ $1 $+ .ini $1 CURHP %player.hp
    if %player.hp < 1 { writeini players\ $+ $1 $+ .ini $1 CURHP 0 | msg = $+ $1 4You have been killed! | goto killedplayer }
  }
  if %sim.attack.roll == 1 || %sim.attack.roll == 2 || %sim.attack.roll == 3 { msg = $+ $1 The simulator misses! }
  goto battlesimstart


  :killedsim
  %exp = $calc($rand(1,100) + (15 * $getinfo2($1,LEVEL)))
  %cur.exp = $getinfo2($1,EXP)
  %cur.exp = $calc( %cur.exp + %exp )
  msg = $+ $1 10You have gained3 %exp 10experience points
  writeini players\ $+ $1 $+ .ini $1 EXP %cur.exp
  %player.str = $calc($getinfo2($1,STRENGTH) + 0.20)
  writeini Players\ $+ $1 $+ .ini $1 STRENGTH %player.str
  msg = $+ $1 10You gain3 0.20 Strength
  if %cur.exp >= $getinfo2($1,NEXTEXP) {
    msg = $+ $1 10You have gained a level!
    %ne = $getinfo2($1,NEXTEXP)
    %ne2 = $calc($getinfo2($1,LEVEL) + 1)
    if $getinfo2($1,LEVEL) < 50 { %ne2 = $calc( %ne2 * 1100 ) }
    if $getinfo2($1,LEVEL) >= 250 { %ne2 = $calc( %ne2 * 6000 ) | goto gh3 }
    if $getinfo2($1,LEVEL) >= 100 { %ne2 = $calc( %ne2 * 3500 ) | goto gh3 }
    if $getinfo2($1,LEVEL) >= 50 { %ne2 = $calc( %ne2 * 2800 ) }
    :gh3
    %ne2 = $calc( %ne2 / 2 )
    %ne2 = $round($calc( %ne2 + %ne ),0)
    writeini players\ $+ $1 $+ .ini $1 NEXTEXP %ne2
    aamsg 7 $+ $1 10has levelled up! Now level3 $calc($getinfo2($1,LEVEL) + 1)
    writeini players\ $+ $1 $+ .ini $1 LEVEL $calc($getinfo2($1,LEVEL) + 1)
    writeini players\ $+ $1 $+ .ini $1 HP $calc($getinfo2($1,HP) + 25)
    writeini players\ $+ $1 $+ .ini $1 PRACS $calc($getinfo2($1,PRACS) + 4)
    if 10 // $getinfo2($1,LEVEL) { writeini players\ $+ $1 $+ .ini $1 MAXENERGY $calc($getinfo2($1,MAXENERGY) + 1) }
  }
  %get.player.wins = $getinfo2($1,WINS)
  inc %get.player.wins 1
  writeini Players\ $+ $1 $+ .ini $1 WINS %get.player.wins
  unset %get.player.wins

  goto end3

  :killedplayer
  %get.player.loss = $getinfo2($1,LOSS)
  inc %get.player.loss 1
  writeini Players\ $+ $1 $+ .ini $1 LOSS %get.player.loss
  unset %get.player.loss



  :end3
  %player.eng = $getinfo2($1,ENERGY)
  %player.eng = $calc( %player.eng - 1 )
  writeini players\ $+ $1 $+ .ini $1 ENERGY %player.eng
  war_sim_menu $1
  halt
}