Mine

on $*:TEXT:/^[!@]A(rma(dyl)?)?( )?g(od)?s(word)?/Si:#: {
  if ($turn == $nick) && ($nick == $player1) {
    if ($readini(dm.ini,$player1,ags) != 1) || (!$readini(Dm.ini,$player1,ags)) { notice $nick $dmlogo $c2(You don't even have an) $c1(Armadyl godsword) | halt }
    if ($getlvl($readini(dmstats.ini,$player1,Attack)) < 70) { notice $nick $dmlogo $c2(You need) $c1(70) $c2(attack to use this weapon) | halt }
    if ($readini(dm.ini,$player1,spec) < 50) { notice $nick $dmlogo $c2(You don't have enough special) | halt }
    writeini Dm.ini $player1 Damage $readini(Dmdamage.ini,ags,$getlvl($readini(dmstats.ini,$player1,Strength)))
    writeini dmstats.ini $player1 Strength $calc($p1strength + $calc($p1damage * 200))
    writeini dm.ini $player1 spec $calc($readini(dm.ini,$player1,spec) - 50)
    if ($p1damage >= $p2hp) { writeini dm.ini $player1 Damage $p2hp }
    writeini dm.ini $player2 Hp $calc($p2hp - $p1damage)
    msg $chan $dmlogo $c2($player1) $c1(Hits) $c2($player2) $c1(With an) $c2(Armadyl Godsword) $c1(and hits a) $c2($readini(dm.ini,$player1,Damage)) $c1(leaving) $c2($player2) $c1(with) $hpbar($p2hp) $c2(hp)
    notice $nick $dmlogo $c2(You gain) $c1($bytes($calc($p1damage * 200),bd)) $c2(Strength exp)
    notice $nick You have $specbar($readini(dm.ini,$player1,spec)) special left
    if ($p2hp == 0) { 
      msg $chan $dmlogo $c1($player1) $c2(Won the dm) $iif($stake > 0,$c2(and the stake of) $c1($stake))
      writeini dmhighscores.ini $player1 Wins $calc($readini(Dmhighscores.ini,$player1,Wins) + 1)
      writeini dmhighscores.ini $player2 Loses $calc($readini(Dmhighscores.ini,$player2,Loses) + 1)
      writeini dm.ini $player1 gold $calc($stake + $p1gold)
      writeini dm.ini $player2 gold $calc($p2gold - $stake)
      if (!$stake) || ($stake == 0) {
        writeini dm.ini $player1 Gold $calc($p1gold + 50000)

        dmoff
        halt
      }
      writeini dm.ini turn [ $+ [ $chan ] ] turn $player2
      msg $chan $dmlogo $c1(It is now) $c2($turn $+ 's) $c1(turn)
    }


    if ($turn == $nick) && ($nick == $player2) {
      if ($readini(dm.ini,$player2,ags) != 1) || (!$readini(Dm.ini,$player2,ags)) { notice $nick $dmlogo $c2(You don't even have an) $c1(Armadyl godsword) | halt }
      if ($getlvl($readini(dmstats.ini,$player2,Attack)) < 70) { notice $nick $dmlogo $c2(You need) $c1(70) $c2(attack to use this weapon) | halt }
      if ($readini(dm.ini,$player2,spec) <= 50) { notice $nick you need more spec | halt }
      writeini Dm.ini $player2 Damage $readini(Dmdamage.ini,ags,$getlvl($readini(dmstats.ini,$player2,Strength)))
      writeini dmstats.ini $player1 strength $calc($p1strength + $calc($p2damage * 200))
      writeini dm.ini $player2 spec $calc($readini(dm.ini,$player2,spec) - 50)
      if ($p2damage >= $p1hp) { writeini dm.ini $player2 Damage $p1hp }
      writeini dm.ini $player1 Hp $calc($p1hp - $p2damage)
      msg $chan $dmlogo $c2($player2) $c1(Hits) $c2($player1) $c1(With an) $c2(Armadyl Godsword) $c1(and hits a) $c2($readini(dm.ini,$player2,Damage)) $c1(leaving) $c2($player1) $c1(with) $hpbar($p1hp) $c2(hp)
      notice $nick $dmlogo $c2(You gain) $c1($bytes($calc($p2damage * 200),bd)) $c2(Strength exp)
      notice $nick You have $specbar($readini(dm.ini,$player2,spec)) special left
      if ($p1hp == 0) { 
        msg $chan $dmlogo $c1($player2) $c2(Won the dm) $iif($stake > 0,$c2(and the stake of) $c1($stake))
        writeini dmhighscores.ini $player2 Wins $calc($readini(Dmhighscores.ini,$player1,Wins) + 1)
        writeini dmhighscores.ini $player1 Loses $calc($readini(Dmhighscores.ini,$player1,Loses) + 1)
        writeini dm.ini $player2 gold $calc($stake + $p2gold)
        writeini dm.ini $player1 gold $calc($p1gold - $stake)
        if (!$stake) || ($stake == 0) {
          writeini dm.ini $player2 Gold $calc($p2gold + 50000)
        }
        dmoff
        halt
      }

      writeini dm.ini turn [ $+ [ $chan ] ] turn $player1
      msg $chan $dmlogo $c1(It is now) $c2($turn $+ 's) $c1(turn)
    }
  }
}