Miscellany

on *:TEXT:!dds:#: {
  if ($dm(settings,status) == $null) { notice $nick 12There is currently no DM for this channel. | halt }
  if ($dm(settings,status) == ON) {
    notice $nick 12You need someone to attack.
    halt
  }
  if (($dm(settings,status) == ON2) && ($dm(turn,turn) == 1) && ($player(1) == $nick)) {
    if (%dmbarrage. [ $+ [ $player(1) ] ] != $null) { notice $nick 12You were barraged and can't attack until 20 seconds is up | halt }
    var %r1 = $r(0,20)
    var %r2 = $r(0,20)
    var %dds = $calc(%r1 + %r2)
    hadd -m dmhp. [ $+ [ $chan ] ] Player2 $calc($dm(hp,player2) - %dds)
    hadd -m dmspec. [ $+ [ $chan ] ] Player1 $calc($dm(spec,player1) - 20)
    if ($dm(hp,player2) <= 0) {
      .msg $chan $x2($player(1)) $x1(DDS specs) $x2($player(2)) $x1(and hits %r1 and %r2 and KO's) $x2($player(2) $+ .)
      .timer 1 2 .msg $chan $x2($player(1)) $x1(has defeated) $x2($player(2) $+ !)
      .timer 1 3 .msg $chan [GAME OVER]
      hfree -w dm*. [ $+ [ $chan ] ]
      halt
    }
    else {
      .msg chan $x2($player(1)) $x1(DDS specs) $x2($player(2)) and hits $x2(%r1) $x1(and) $x2(%r2) $x1(leaving) $x2($player(2)) $x1(with $dm(hp,player2) HP.)
      .notice $nick $x1(That attack cost you 20% special. You know have) $x2($dm(spec,player1) $+ $chr(37) special remaining.)
      hadd -m dmturn. [ $+ [ $chan ] ] turn 2
      halt
    }
  }
  if (($dm(settings,status) == ON2) && ($dm(turn,turn) == 1) && ($player(1) == $nick)) {
    if (%dmbarrage. [ $+ [ $player(2) ] ] != $null) { notice $nick 12You were barraged and can't attack until 20 seconds is up | halt }
    var %r1 = $r(0,20)
    var %r2 = $r(0,20)
    var %dds = $calc(%r1 + %r2)
    hadd -m dmhp. [ $+ [ $chan ] ] Player2 $calc($dm(hp,player1) - %dds)
    hadd -m dmspec. [ $+ [ $chan ] ] Player1 $calc($dm(spec,player2) - 20)
    if ($dm(hp,player1) <= 0) {
      .msg $chan $x2($player(2)) $x1(DDS specs) $x2($player(1)) $x1(and hits %r1 and %r2 and KO's) $x2($player(1) $+ .)
      .timer 1 2 .msg $chan $x2($player(2)) $x1(has defeated) $x2($player(1) $+ !)
      .timer 1 3 .msg $chan [GAME OVER]
      hfree -w dm*. [ $+ [ $chan ] ]
      halt
    }
    else {
      .msg chan $x2($player(2)) $x1(DDS specs) $x2($player(1)) and hits $x2(%r1) $x1(and) $x2(%r2) $x1(leaving) $x2($player(1)) $x1(with $dm(hp,player1) HP.)
      .notice $nick $x1(That attack cost you 20% special. You know have) $x2($dm(spec,player2) $+ $chr(37) special remaining.)
      hadd -m dmturn. [ $+ [ $chan ] ] turn 1
      halt
    }
  }
  else { notice $nick 12It is not your turn. | halt }
}