Unnamed

alias startdm {
  if ($1 != $null) {
    set %dmchan $chan
    set %1 $me
    set %2 $1
    set % $+ $me $+ .hp 99
    set % $+ $1 $+ .hp 99
    set % $+ $me $+ .specs 2
    set % $+ $1 $+ .specs 2
    set %turn % $+ $r(1,2)
    msg $chan A deathmatch has started between $me and $1 $+ ! [ [ %turn ] ] gets to attack first!
    Halt
  }
  echo 4ERROR: No nick specified. DM has been cancelled.
}

alias enddm {
  if (%dmchan != $null) {
    unset %dmchan
    unset %turn
    unset %*.hp
    unset %*.specs
    unset %1
    unset %2
    msg $chan The current deathmatch has been terminated.
    Halt
  }
  echo There is currently no deathmatch in progress
}

alias dds {
  if (%turn == $chr(37) $+ 1) {

    if ([ % $+ [ $me $+ .specs ] ] == 0) {
      set %dds1 $r(0,30)
      if (%dds1 >= [ % $+ [ %2 $+ .hp ] ]) {
        set %dds1 [ % $+ [ %2 $+ .hp ] ]
        dec [ % $+ [ %2 $+ .hp ] ] %dds1
        goto dead
      }
      dec [ % $+ [ %2 $+ .hp ] ] %dds1
      goto notdead


      if ([ % $+ [ %2 $+ .hp ] ] <= 0) {
        :dead
        action has no more special attacks left! $me stabs %2 $+ , Doing %dds1 damage! %2 now has 0 hp left! 4Oh dear, %2 has died!
        unset %*.hp
        unset %*.specs
        unset %dds1
        unset %dds2
        unset %turn
        unset %dmchan
        unset %1
        unset %2
        Halt
      }

      :notdead
      action has no more special attacks left! $me stabs %2 $+ , Doing %dds1 damage! %2 now has [ % $+ [ %2 $+ .hp ] ] HP left!
      set %turn $chr(37) $+ 2
      Halt
    }
    if ([ % $+ [ $me $+ .specs ] ] > 0) {
      set %dds1 $r(0,40)
      set %dds2 $r(0,40)

      if ([ % $+ [ %2 $+ .hp ] ] < $calc(%dds1 + %dds2)) {
        set %dds1 $round($calc($r([ % $+ [ %2 $+ .hp ] ],[ % $+ [ %2 $+ .hp ] ])/ 2),U)
        set %dds2 $round($calc($r([ % $+ [ %2 $+ .hp ] ],[ % $+ [ %2 $+ .hp ] ])/ 2),D)
        dec [ % $+ [ %2 $+ .hp ] ] %dds1
        dec [ % $+ [ %2 $+ .hp ] ] %dds2
        dec [ % $+ [ $me $+ .specs ] ] 1

        if ([ % $+ [ %2 $+ .hp ] ] > 0) {
          goto notdead1
        }
        if ([ % $+ [ %2 $+ .hp ] ] <= 0) {
          goto dead1
        }
      }

      dec [ % $+ [ %2 $+ .hp ] ] %dds1
      dec [ % $+ [ %2 $+ .hp ] ] %dds2
      dec [ % $+ [ $me $+ .specs ] ] 1

      if ([ % $+ [ %2 $+ .hp ] ] <= 0) {
        :dead1
        action hit %2 with a dragon dagger special attack, hitting %dds1 - %dds2 $+ ! %2 now has 0 hp left! 4Oh dear, %2 has died!
        unset %*.hp
        unset %*.specs
        unset %dds1
        unset %dds2
        unset %turn
        unset %dmchan
        unset %1
        unset %2
        Halt
      }
      :notdead1
      action hit %2 with a dragon dagger special attack, hitting %dds1 - %dds2 $+ ! %2 now has [ % $+ [ %2 $+ .hp ] ] HP left!
      set %turn $chr(37) $+ 2
    }
  }
}

on *:TEXT:*:#: {
  if ($1 == `dds) {
    if ($chan == %dmchan) {
      if (%turn == $chr(37) $+ 2) && ($nick == %2) {
        if ([ % $+ [ $nick $+ .specs ] ] == 0) {
          set %dds1 $r(0,30)
          if (%dds1 >= [ % $+ [ $me $+ .hp ] ]) {
            set %dds1 [ % $+ [ $me $+ .hp ] ]
            dec [ % $+ [ $me $+ .hp ] ] %dds1
            goto dead2
          }
          dec [ % $+ [ $me $+ .hp ] ] %dds1
          goto notdead2


          if ([ % $+ [ $me $+ .hp ] ] <= 0) {
            :dead2
            msg $chan $nick has no more special attacks left! $nick stabs $me $+ , Doing %dds1 damage! $me now has 0 hp left! 4Oh dear, $me has died!
            unset % $+ $nick $+ .hp
            unset % $+ $nick $+ .specs
            unset %dds1
            unset %dds2
            unset %whip
            unset % $+ $me $+ .hp
            unset % $+ $me $+ .specs
            unset %turn
            unset %dmchan
            unset %1
            unset %2
            Halt
          }

          :notdead2
          msg $chan $nick has no more special attacks left! $nick stabs $me $+ , Doing %dds1 damage! $me now has [ % $+ [ $me $+ .hp ] ] HP left!
          set %turn $chr(37) $+ 1
          Halt
        }
        if ([ % $+ [ $nick $+ .specs ] ] > 0) {
          set %dds1 $r(0,40)
          set %dds2 $r(0,40)

          if ([ % $+ [ $me $+ .hp ] ] < $calc(%dds1 + %dds2)) {
            set %dds1 $round($calc($r([ % $+ [ $me $+ .hp ] ],[ % $+ [ $me $+ .hp ] ])/ 2),U)
            set %dds2 $round($calc($r([ % $+ [ $me $+ .hp ] ],[ % $+ [ $me $+ .hp ] ])/ 2),D)
            dec [ % $+ [ $me $+ .hp ] ] %dds1
            dec [ % $+ [ $me $+ .hp ] ] %dds2
            dec [ % $+ [ $nick $+ .specs ] ] 1

            if ([ % $+ [ $me $+ .hp ] ] > 0) {
              goto notdead3
            }
            if ([ % $+ [ $me $+ .hp ] ] <= 0) {
              goto dead3
            }
          }

          dec [ % $+ [ $me $+ .hp ] ] %dds1
          dec [ % $+ [ $me $+ .hp ] ] %dds2
          dec [ % $+ [ $nick $+ .specs ] ] 1

          if ([ % $+ [ $me $+ .hp ] ] <= 0) {
            :dead3
            msg $chan $nick hit $me with a dragon dagger special attack, hitting %dds1 - %dds2 $+ ! $me now has 0 hp left! 4Oh dear, $me has died!
            unset % $+ $me $+ .hp
            unset % $+ $me $+ .specs
            unset %dds1
            unset %dds2
            unset % $+ $nick $+ .hp
            unset % $+ $nick $+ .specs
            unset %turn
            unset %dmchan
            unset %1
            unset %2
            Halt
          }
          :notdead3
          set %turn $chr(37) $+ 1
          msg $chan $nick hit $me with a dragon dagger special attack, hitting %dds1 - %dds2 $+ ! $me now has [ % $+ [ $me $+ .hp ] ] HP left!
        }
      }
    }
  }
}