Mattie

on *:text:,attack*:#gangster:{
  if !$hget($nick) {
    .notice $nick ,gangster <name> <password>
    halt
  }
  if $hget($nick,jail) {
    .notice $nick You cannot do that while in jail.
    halt
  }
  if $hget($nick,attack) {
    halt
  }
  if !$2 || !$gettok($read(gangster.txt,w,$+(*,$2)),2,32) {
    .notice $nick ,attack <name>
    halt
  }
  else {
    var %def $gettok($read(gangster.txt,w,$+(*,$2)),1,32)
    var %atk.calc $calc(($hget($nick,atk) * $hget($nick,def)) + ($hget($nick,atk_mod) * $hget($nick,def_mod)) + ($hget($nick,level) * 1.5)) * $+(1.,$rand(1,9)))
    var %def.calc $calc((($hget(%def,atk) * $hget(%def,def)) + ($hget(%def,atk_mod) * $hget(%def,def_mod)) + ($hget(%def,level) * 1.5)) * $+(1.,$rand(1,9)))
    hadd -z $nick attack 10
    if %atk.calc > %def.calc {
      var %a $hget(%def,cash)
      var %b $floor($rand($calc(%a/2),%a))
      hadd %def cash $calc($hget(%def,cash) - %b)
      hadd $nick cash $calc($hget($nick,cash) + %b)
      .msg # $hget($nick,name) defeats $hget(%def,name) in battle, stealing $+($chr(36),$bytes(%b,b),.)
    }
    else {
      var %c $hget($nick,cash)
      var %d $floor($rand($calc(%c/2),%c))
      hadd $nick cash $calc($hget($nick,cash) - %d)
      hadd %def cash $calc($hget(%def,cash) + %d)
      .msg # $hget(%def,name) defeats $hget($nick,name) in battle, stealing $+($chr(36),$bytes(%d,b),.)
    }
  }
}