lvlcheck {
  set %exp [ $readini user.ini $1 exp ]
  set %nexp [ $readini user.ini $1 nexp ]
  set %level [ $readini user.ini $1 lvl ]
  If (%exp >= %nexp) {
    var %lvls = $round($calc(%exp / %nexp),0)
    _msg %chan $1 grew %lvls $+(level,$iif(%lvls > 1,s!,!))
    var %bank = $round($calc($readini(user.ini,bank,pot) * .05),0)
    var %r1 = $calc(%bank -5),%r2 = $calc(%bank +5)
    var %_exp = $calc(%exp - %nexp)
    if (%_exp < 0) var %_exp = 0
    var %money = $r(%r1,%r2)
    if (%money < 0) var %money = 0
    var %_money = $calc(%money + $readini(user.ini,$1,money)),%money_ = $calc($readini(user.ini,bank,pot) - %money)
    Set %toughness $calc($r(1,4) * %lvls)
    Set %speed $calc($r(1,4) * %lvls)
    set %accuracy $calc($r(1,4) * %lvls)
    var %mhp $calc($r(10,20) * %lvls)
    writeini user.ini $1 lvl $calc(%level + %lvls)
    writeini user.ini $1 mhp $calc($readini(user.ini,$1,mhp) + %MHp)
    writeini user.ini $1 nexp $calc($readini(user.ini,$1,nexp) + $r(200,300))
    writeini user.ini $1 money %_money 
    writeini user.ini bank pot %money_
    writeini user.ini $1 exp %_exp
    writeini user.ini $1 toughness $calc($readini(user.ini,$1,toughness) + %toughness)
    writeini user.ini $1 speed $calc($readini(user.ini,$1,speed) + %speed)
    writeini user.ini $1 accuracy $calc($readini(user.ini,$1,accuracy) + %accuracy) 
    _notice $1 *** You've gained %lvls level(s); [Speed: + $+ %speed $+ ] [Max Health: + $+ %mhp $+ ] [Accuracy: + $+ %accuracy $+ ] [Toughness: + $+ %toughness $+ ] [Money: $+(+,$chr(36),$bytes(%money,bd)) $+ ]
    rankcheck $1
  }
}
overdose {
  var %_exp = $readini(user.ini,$1,exp),%_money = $readini(user.ini,$1,money)
  if ($timer(high_ $+ $1)) .timerhigh_ $+ $1 off
  if ($readini(user.ini,$1,fight)) {
    writeini user.ini $1 fight $false
    set %fighting $remtok(%fighting,$1,32)
    mode %chan -v $1
  } 
  var %exp_ = $r($calc(%_exp -5),$calc(%_exp +5)),%userexp = $calc($readini(user.ini,$1,exp) - %exp_) 
  if (%exp_ < 0) var %exp_ = 0
  var %mhp = $readini(user.ini,$1,mhp),var %r_mhp = $r($calc((%mhp *.25) + 5),$calc((%mhp * .25) - 5)),%umhp = $calc(%mhp - %r_mhp)
  if (%umhp < 0) var %umhp 0
  writeini user.ini $1 high 0
  writeini user.ini $1 exp %userexp
  writeini user.ini $1 hp 0 
  writeini user.ini $1 tolerence 0
  writeini user.ini $1 mhp %umhp
  _msg %chan [OVERDOSE] $1 overdosed and lost %exp_ exp and %r_mhp max health!
  if ($readini(user.ini,$1,mhp) > 0) {
    _notice $nick [OVERDOSE] You may not `fight, `heal, or `use for the next minute
    .timeroverdose_ $+ $1 1 60 _notice $nick [OVERDOSE] You're now ready to kickass again!
  }
  else end_check $1
}
DeadCheck {
  if ($readini(user.ini,$2,hp) <= 0) {
    if ($readini(user.ini,$2,fight)) { 
      var %mon = $readini(user.ini,$2,money)
      set %_money $iif($r($calc(%mon / 8),$calc(%mon / 4)) >= 0,$r($calc(%mon /8),$calc(%money /4)),0)
      var %damage = $3
      var %_exp = $round($calc($3 * .75),0)
      writeini user.ini $1 Exp $calc(%_exp + $readini(user.ini,$1,exp))
      writeini user.ini $1 wins $calc($readini(user.ini,$1,wins) + 1)  
      writeini user.ini $2 losses $calc($readini(user.ini,$2,losses) + 1) 
      writeini user.ini $1 money $calc($readini(user.ini,$1,money) + %_money) 
      writeini user.ini $2 fight $false
      set %fighting $remtok(%fighting,$2,1,32)     
      mode %chan -v $2
      _msg %chan $1 defeated $2 $+ ! $1 gains %_exp exp. $iif(%_money > 0,and jacks $+($chr(36),$bytes(%_money,bd),!))
      heal $2
    }    
  }
}
RankCheck {
  if ($readini(user.ini,$1,lvl) >= 25) {
    writeini user.ini $1 rank bully
    writeini user.ini $1 mhp $calc($readini(user.ini,$1,mhp) + $r(150,250))
    writeini user.ini $1 money $calc($readini(user.ini,$1,money) + $r(50,150))
    writeini user.ini $1 speed $calc($readini(user.ini,$1,speed) + $r(50,150))
    writeini user.ini $1 accuracy $calc($readini(user.ini,$1,accuracy) + $r(50,150))
    writeini user.ini $1 toughness $calc($readini(user.ini,$1,toughness) + $r(50,150))
    _notice $1 Congrats! You're now a bully! 
  }
  elseif ($readini(user.ini,$1,lvl) >= 50) {
    writeini user.ini $1 rank thug
    writeini user.ini $1 mhp $calc($readini(user.ini,$1,mhp) + $r(250,350))
    writeini user.ini $1 money $calc($readini(user.ini,$1,money) + $r(75,175))
    writeini user.ini $1 speed $calc($readini(user.ini,$1,speed) + $r(150,250))
    writeini user.ini $1 acurracy $calc($readini(user.ini,$1,accuracy) + $r(150,250))
    writeini user.ini $1 toughness $calc($readini(user.ini,$1,toughness) + $r(150,250))
    _notice $1 Congrats! You're now a thug!
  }
  elseif ($readini(user.ini,$1,lvl) >= 75) {
    writeini user.ini $1 rank gangster 
    writeini user.ini $1 mhp $calc($readini(user.ini,$1,mhp) + $r(350,450))
    writeini user.ini $1 money $calc($readini(user.ini,$1,money) + $r(100,200))
    writeini user.ini $1 speed $calc($readini(user.ini,$1,speed) + $r(250,350))
    writeini user.ini $1 acurracy $calc($readini(user.ini,$1,accuracy) + $r(250,350))
    writeini user.ini $1 toughness $calc($readini(user.ini,$1,toughness) + $r(250,350))
    _notice $1 Congrats! You're now a gangster!
  }
  elseif ($readini(user.ini,$1,lvl) >= 100) {
    writeini user.ini $1 rank badass
    writeini user.ini $1 mhp $calc($readini(user.ini,$1,mhp) + $r(450,550))
    writeini user.ini $1 money $calc($readini(user.ini,$1,money) + $r(125,225))
    writeini user.ini $1 speed $calc($readini(user.ini,$1,speed) + $r(350,450))
    writeini user.ini $1 acurracy $calc($readini(user.ini,$1,accuracy) + $r(350,450))
    writeini user.ini $1 toughness $calc($readini(user.ini,$1,toughness) + $r(350,450))
    _notice $1 Congrats! You're now a badass! 
  }
}
