;##########################################
; 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) }


alias SAFE_CRACK2_MENU {
  writeini players\ $+ $1 $+ .ini $1 STAT SAFES2
  msg = $+ $1  $space
  msg = $+ $1 7CRACK THE SAFE 2
  msg = $+ $1  $space
  msg = $+ $1 10You have3 $getinfo2($1,ENERGY) Energy
  msg = $+ $1 10It will cost you3 3 ENERGY10 to attempt!
  msg = $+ $1 10You have3 $calc( 5 - $getinfo2($1,SAFE)) 10safe crack attempts left!
  msg = $+ $1  $space
  msg = $+ $1 [1]:10 Crack a small safe (60% chance)
  msg = $+ $1 [2]:10 Crack a medium safe (50% chance)
  msg = $+ $1 [3]:10 Crack a large safe (40% chance)
  msg = $+ $1  $space
  msg = $+ $1 10[3X10]: Go back
  halt

}

alias SAFE_CRACK2_SMALL {
  msg = $+ $1 10You take out your safe cracking toolkit and attempt to crack the safe ...
  %player.safe = $getinfo2($1,SAFE)
  if %player.safe == 5 { msg = $+ $1 10You may only attempt to crack the safe 5 times a day | halt }
  %player.eng = $getinfo2($1,ENERGY)
  if %player.eng == 0 { msg = $+ $1 10You have no energy left! | halt }
  if %player.eng < 3 { msg = $+ $1 10You do not have enough energy to attempt to crack the safe! | halt }
  inc %player.safe 1
  writeini players\ $+ $1 $+ .ini $1 SAFE %player.safe
  %player.eng = $calc( %player.eng - 3)
  writeini Players\ $+ $1 $+ .ini $1 ENERGY %player.eng

  :battlesafe
  %attack.roll = $rand(1,10)
  if %attack.roll == 1 {
    msg = $+ $1 10You have cracked the safe! You gain3 $ $+ 500 000!
    %player.bank = $getinfo2($1,BANK)
    %player.bank = $calc( %player.bank + 500000)
    writeini Players\ $+ $1 $+ .ini $1 BANK %player.bank
  }
  if %attack.roll == 2 {
    msg = $+ $1 10You have cracked the safe! You gain3 $ $+ 500 000!
    %player.bank = $getinfo2($1,BANK)
    %player.bank = $calc( %player.bank + 500000)
    writeini Players\ $+ $1 $+ .ini $1 BANK %player.bank
  }
  if %attack.roll == 3 {
    msg = $+ $1 10You have cracked the safe! You gain3 $ $+ 500 000!
    %player.bank = $getinfo2($1,BANK)
    %player.bank = $calc( %player.bank + 500000)
    writeini Players\ $+ $1 $+ .ini $1 BANK %player.bank
  }
  if %attack.roll == 4 {
    msg = $+ $1 10You have cracked the safe! You gain3 $ $+ 500 000!
    %player.bank = $getinfo2($1,BANK)
    %player.bank = $calc( %player.bank + 500000)
    writeini Players\ $+ $1 $+ .ini $1 BANK %player.bank
  }
  if %attack.roll == 5 {
    msg = $+ $1 10You have cracked the safe! You gain3 $ $+ 500 000!
    %player.bank = $getinfo2($1,BANK)
    %player.bank = $calc( %player.bank + 500000)
    writeini Players\ $+ $1 $+ .ini $1 BANK %player.bank
  }
  if %attack.roll == 6 {
    msg = $+ $1 10You have cracked the safe! You gain3 $ $+ 500 000!
    %player.bank = $getinfo2($1,BANK)
    %player.bank = $calc( %player.bank + 500000)
    writeini Players\ $+ $1 $+ .ini $1 BANK %player.bank
  }
  if %attack.roll == 7 { msg = $+ $1 10You failed to crack the safe! Better luck next time }
  if %attack.roll == 8 { msg = $+ $1 10You failed to crack the safe! Better luck next time }
  if %attack.roll == 9 { msg = $+ $1 10You failed to crack the safe! Better luck next time }
  if %attack.roll == 10 {
    msg = $+ $1 10You have been bust by the police and fined3 $ $+ 10000!
    %player.bank = $getinfo2($1,BANK)
    %player.bank = $calc( %player.bank - 10000)
    writeini Players\ $+ $1 $+ .ini $1 BANK %player.bank
    halt
  }
}

alias SAFE_CRACK2_MEDIUM {
  msg = $+ $1 10You take out your safe cracking toolkit and attempt to crack the safe ...
  %player.safe = $getinfo2($1,SAFE)
  if %player.safe == 5 { msg = $+ $1 10You may only attempt to crack the safe 5 times a day | halt }
  %player.eng = $getinfo2($1,ENERGY)
  if %player.eng == 0 { msg = $+ $1 10You have no energy left! | halt }
  if %player.eng < 3 { msg = $+ $1 10You do not have enough energy to attempt to crack the safe! | halt }
  inc %player.safe 1
  writeini players\ $+ $1 $+ .ini $1 SAFE %player.safe
  %player.eng = $calc( %player.eng - 3)
  writeini Players\ $+ $1 $+ .ini $1 ENERGY %player.eng

  :battlesafe
  %attack.roll = $rand(1,10)
  if %attack.roll == 1 {
    msg = $+ $1 10You have cracked the safe! You gain3 $ $+ 80 000!
    %player.bank = $getinfo2($1,BANK)
    %player.bank = $calc( %player.bank + 800000)
    writeini Players\ $+ $1 $+ .ini $1 BANK %player.bank
  }
  if %attack.roll == 2 {
    msg = $+ $1 10You have cracked the safe! You gain3 $ $+ 800 000!
    %player.bank = $getinfo2($1,BANK)
    %player.bank = $calc( %player.bank + 80000)
    writeini Players\ $+ $1 $+ .ini $1 BANK %player.bank
  }
  if %attack.roll == 3 {
    msg = $+ $1 10You have cracked the safe! You gain3 $ $+ 800 000!
    %player.bank = $getinfo2($1,BANK)
    %player.bank = $calc( %player.bank + 800000)
    writeini Players\ $+ $1 $+ .ini $1 BANK %player.bank
  }
  if %attack.roll == 4 {
    msg = $+ $1 10You have cracked the safe! You gain3 $ $+ 800 000!
    %player.bank = $getinfo2($1,BANK)
    %player.bank = $calc( %player.bank + 800000)
    writeini Players\ $+ $1 $+ .ini $1 BANK %player.bank
  }
  if %attack.roll == 5 {
    msg = $+ $1 10You have cracked the safe! You gain3 $ $+ 80 0000!
    %player.bank = $getinfo2($1,BANK)
    %player.bank = $calc( %player.bank + 800000)
    writeini Players\ $+ $1 $+ .ini $1 BANK %player.bank
  }
  if %attack.roll == 6 { msg = $+ $1 10You failed to crack the safe! Better luck next time }
  if %attack.roll == 7 { msg = $+ $1 10You failed to crack the safe! Better luck next time }
  if %attack.roll == 8 { msg = $+ $1 10You failed to crack the safe! Better luck next time }
  if %attack.roll == 9 { msg = $+ $1 10You failed to crack the safe! Better luck next time }
  if %attack.roll == 10 {
    msg = $+ $1 10You have been bust by the police and fined3 $ $+ 10000!
    %player.bank = $getinfo2($1,BANK)
    %player.bank = $calc( %player.bank - 10000)
    writeini Players\ $+ $1 $+ .ini $1 BANK %player.bank
    halt
  }
}

alias SAFE_CRACK2_LARGE {
  msg = $+ $1 10You take out your safe cracking toolkit and attempt to crack the safe ...
  %player.safe = $getinfo2($1,SAFE)
  if %player.safe == 5 { msg = $+ $1 10You may only attempt to crack the safe 5 times a day | halt }
  %player.eng = $getinfo2($1,ENERGY)
  if %player.eng == 0 { msg = $+ $1 10You have no energy left! | halt }
  if %player.eng < 3 { msg = $+ $1 10You do not have enough energy to attempt to crack the safe! | halt }
  inc %player.safe 1
  writeini players\ $+ $1 $+ .ini $1 SAFE %player.safe
  %player.eng = $calc( %player.eng - 3)
  writeini Players\ $+ $1 $+ .ini $1 ENERGY %player.eng

  :battlesafe
  %attack.roll = $rand(1,10)
  if %attack.roll == 1 {
    msg = $+ $1 10You have cracked the safe! You gain3 $ $+ 1000 0000!
    %player.bank = $getinfo2($1,BANK)
    %player.bank = $calc( %player.bank + 10000000)
    writeini Players\ $+ $1 $+ .ini $1 BANK %player.bank
  }
  if %attack.roll == 2 {
    msg = $+ $1 10You have cracked the safe! You gain3 $ $+ 1000 0000!
    %player.bank = $getinfo2($1,BANK)
    %player.bank = $calc( %player.bank + 10000000)
    writeini Players\ $+ $1 $+ .ini $1 BANK %player.bank
  }
  if %attack.roll == 3 {
    msg = $+ $1 10You have cracked the safe! You gain3 $ $+ 2000 0000!
    %player.bank = $getinfo2($1,BANK)
    %player.bank = $calc( %player.bank + 20000000)
    writeini Players\ $+ $1 $+ .ini $1 BANK %player.bank
  }
  if %attack.roll == 4 {
    msg = $+ $1 10You have cracked the safe! You gain3 $ $+ 1000 0000!
    %player.bank = $getinfo2($1,BANK)
    %player.bank = $calc( %player.bank + 10000000)
    writeini Players\ $+ $1 $+ .ini $1 BANK %player.bank
  }
  if %attack.roll == 5 { msg = $+ $1 10You failed to crack the safe! Better luck next time }
  if %attack.roll == 6 { msg = $+ $1 10You failed to crack the safe! Better luck next time }
  if %attack.roll == 7 { msg = $+ $1 10You failed to crack the safe! Better luck next time }
  if %attack.roll == 8 { msg = $+ $1 10You failed to crack the safe! Better luck next time }
  if %attack.roll == 9 { msg = $+ $1 10You failed to crack the safe! Better luck next time }
  if %attack.roll == 10 {
    msg = $+ $1 10You have been bust by the police and fined3 $ $+ 10000!
    %player.bank = $getinfo2($1,BANK)
    %player.bank = $calc( %player.bank - 10000)
    writeini Players\ $+ $1 $+ .ini $1 BANK %player.bank
    halt
  }
}