on *:TEXT:!dm*:#theblackdragons: {
  if (%p == $nick || %p2 == $nick) { notice $nick you are already in a dm! | HALT }
  if (%duel == on) { notice $nick there is already a dm running!
  HALT }
  else if (%duel2 == off) {
    msg $chan $nick has initiated a dm!
    set %p $nick
    set %duel2 on
  }
  else if (%duel2 == on) {
    set %dds 100
    set %dds2 100
    set %hp 99
    set %hp2 99
    set %duel on
    set %p2 $nick
    set %duel2 off
    set %duel on
    msg $chan %p2 has joined the dm against %p
    set %starter $rand(1,2)
    if (%starter == 1) { set %phit on | msg $chan %p may deal the first hit | unset %starter }
    if (%starter == 2) { set %p2hit on | msg $chan %p2 may deal the first hit | unset %starter }
  }
}
on *:TEXT:!unsetdm:#theblackdragons: { 
  if ($nick isop $chan) { msg $chan $nick has ended the dm!
    unset %p
    unset %p2
  set %duel off }
}
on $*:TEXT:/^]!@](flick|whip|flickeroo)/si:#theblackdragons: {
  if ($nick == %p && %phit == on) {
    set %hit $rand(0,30)
    dec %hp2 %hit
    if (%dds < 100) { inc %dds 5 }
    if (%hp2 <= 0) { goto dead2 }
    msg $chan %p has hit a %hit $+ ! %p2 has4 %hp2 left
    notice $nick you have %dds $+ % special left
    set %phit off
    set %p2hit on
    HALT
    :dead2
    msg $chan $nick has hit a %hit $+ ! %p2 has %hp2 left, 4 %p2 has won the dm
    unset %p
    unset %p2
    set %duel off
  }
  else if (%phit == off && $nick == %p1) { notice $nick it is %p2 $+ 's turn! | HALT }
  else if ($nick == %p2 && %p2hit == on) {
    set %hit $rand(0,30)
    dec %hp %hit
    if (%dds2 < 100) { inc %dds2 5 }
    if (%hp <= 0) { goto dead }
    msg $chan %p2 has hit a %hit $+ ! %p has4 %hp left
    notice $nick you have %dds2 $+ % special left
    set %phit on
    set %p2hit off
    HALT
    :dead 
    msg $chan $nick has hit a %hit $+ ! %p has3 %hp left, 4 %p2 has won the dm
    unset %p
    unset %p2
    set %duel off
  }
  else if (%p2hit == off) { notice $nick it is %p $+ 's turn! | HALT }
}
on $*:TEXT:/^[!@](ddp|dds|dd)/si:#theblackdragons: {
  if ($nick == %p && %phit == on) {
    if (%dds < 25) { goto ddsfail }
    dec %dds 25
    set %hit $rand(0,25)
    set %hit2 $rand(0,25)
    dec %hp2 %hit
    dec %hp2 %hit2
    inc %dds 5
    if (%hp2 <= 0) { goto dead }
    msg $chan %p has hit a %hit and a %hit2 with his dragon dagger $+ ! %p2 has4 %hp2 hp left
    notice $nick you have %dds $+ % special left
    set %phit off
    set %p2hit on
    HALT
    :dead
    msg $chan %p has hit a %hit and a %hit2 with his dragon dagger $+ ! %p2 has %hp2 left! %p has won the duel!
    unset %p
    unset %p2
    set %duel off
    HALT
    :ddsfail
    notice $nick you don't have enough special left!
    inc %dds 5
    msg $chan %p tries to dds special %p2 but doesn't have enough special left, it is now %p2 $+ 's turn
    set %phit off
    set %p2hit on
  }
  else if (%phit == off && $nick == %p1) { notice $nick it is %p2 $+ 's turn! | HALT }
  else if ($nick == %p2 && %p2hit == on) {
    if (%dds2 < 25) { goto ddsfail2 }
    dec %dds2 25
    set %hit $rand(0,25)
    set %hit2 $rand(0,25)
    dec %hp %hit
    dec %hp %hit2
    inc %dds2 5
    if (%hp <= 0) { goto dead2 }
    msg $chan %p2 has hit a %hit and a %hit2 with his dragon dagger $+ ! %p has4 %hp hp left
    notice $nick you have %dds2 $+ % special left
    set %p2hit off
    set %phit on
    HALT
    :dead2
    msg $chan %p2 has hit a %hit and a %hit2 with his dragon dagger $+ ! %p has %hp left! %p2 has won the duel!
    unset %p
    unset %p2
    set %duel off
    HALT
    :ddsfail2
    notice $nick you don't have enough special left!
    inc %dds2 5
    msg $chan %p2 tries to dds special %p but doesn't have enough special left, it is now %p $+ 's turn
    set %p2hit off
    set %phit on
  }
  else if (%p2hit == off) { notice $nick it is %p $+ 's turn! | HALT }
}