on *:text:!dm*:#: {
  if ($nick == %p1 [ $+ [ $chan ] ] || $nick == %p2 [ $+ [ $chan ] ] ) { notice $nick You are already in a dm! | HALT }
  if (%duel [ $+ [ $chan ] ] == ON) { notice $nick There is already running a dm!
  HALT }
  elseif (%duel2 [ $+ [ $chan ] ] == OFF) {
    msg $chan $nick has initiated a dm!
    set %p1 [ $+ [ $chan ] ] $nick
    set %duel2 [ $+ [ $chan ] ] on
  }
  elseif (%duel2 [ $+ [ $chan ] ] == ON) {
    set %shark1 [ $+ [ $chan ] ] 28
    set %shark2 [ $+ [ $chan ] ] 28
    set %hp1 [ $+ [ $chan ] ] 99
    set %hp2 [ $+ [ $chan ] ] 99
    set %dds1 [ $+ [ $chan ] ] 100
    set %dds2 [ $+ [ $chan ] ] 100
    set %p2 [ $+ [ $chan ] ] $nick
    set %duel2 [ $+ [ $chan ] ] OFF
    set %duel [ $+ [ $chan ] ] ON
    msg $chan $nick has joined the dm against %p1 [ $+ [ $chan ] ] $+ !
    set %starter [ $+ [ $chan ] ] $rand(1,2)
    if (%starter [ $+ [ $chan ] ] == 1) { set %p1hit [ $+ [ $chan ] ] on | msg $chan %p1 [ $+ [ $chan ] ] may deal the first hit! }
    if (%starter [ $+ [ $chan ] ] == 2) { set %p2hit [ $+ [ $chan ] ] on | msg $chan %p2 [ $+ [ $chan ] ] may deal the first hit! }
  }
}
on *:text:!stopdm:#: {
  if ($nick isop $chan) {
    if (%duel [ $+ [ $chan ] ] == off || !%p1 [ $+ [ $chan ] ] || !%p2 [ $+ [ $chan ] ]) {
      msg $chan There is no duel on or there are no players active at dm!
    }
    else {
      unset %p1 [ $+ [ $chan ] ] 
      unset %p2 [ $+ [ $chan ] ] 
      set %duel [ $+ [ $chan ] ] OFF
      msg $chan Dm has been stopped by $nick $+ !
    }
  }
}
on *:part:#: {
  if ($nick == $me || $nick == %p2 [ $+ [ $chan ] ] || $nick == %p1 [ $+ [ $chan ] ]) {
    set %duel [ $+ [ $chan ] ] off
    unset %p1 [ $+ [ $chan ] ]
    unset %p2 [ $+ [ $chan ] ]
  }
}
on *:text:!cbow*:#: {
  if  (%p1hit [ $+ [ $chan ] ] == on && $nick == %p1 [ $+ [ $chan ] ]) {
    set %hit [ $+ [ $chan ] ] $rand(0,25)
    dec %hp2 [ $+ [ $chan ] ] %hit [ $+ [ $chan ] ]
    if (%hp2 [ $+ [ $chan ] ] <= 0) { goto dead2 }
    msg $chan $nick has hit 9,0 %hit [ $+ [ $chan ] ] $+ 1,0! %p2 [ $+ [ $chan ] ] has 4,0 %hp2 [ $+ [ $chan ] ] 1,0hp left!
    set %p1hit [ $+ [ $chan ] ] off
    set %p2hit [ $+ [ $chan ] ] on
    HALT
    :dead2
    msg $chan $nick has hit 9,0 %hit [ $+ [ $chan ] ] $+ 1,0! %p2 [ $+ [ $chan ] ] has 0 HP left! %p1 [ $+ [ $chan ] ] won the dm! End of dm!
    set %p1 [ $+ [ $chan ] ] off
    set %p2 [ $+ [ $chan ] ] off
    set %duel [ $+ [ $chan ] ] off
  }
  elseif (%p2hit [ $+ [ $chan ] ] == off && $nick == %p2 [ $+ [ $chan ] ]) { msg $chan It's %p1 [ $+ [ $chan ] ] $+ 's turn! | HALT }
  elseif (%p2hit [ $+ [ $chan ] ] == on && $nick == %p2 [ $+ [ $chan ] ]) {
    set %hit [ $+ [ $chan ] ] $rand(0,25)
    dec %hp1 [ $+ [ $chan ] ] %hit [ $+ [ $chan ] ]
    if (%hp1 [ $+ [ $chan ] ] <= 0) { goto dead1 }
    msg $chan $nick has hit 9,0 %hit [ $+ [ $chan ] ] $+ 1,0! %p1 [ $+ [ $chan ] ] has 4,0 %hp1 [ $+ [ $chan ] ] 1,0hp left!
    set %p2hit [ $+ [ $chan ] ] off
    set %p1hit [ $+ [ $chan ] ] on
    HALT
    :dead1
    msg $chan $nick has hit 9,0 %hit [ $+ [ $chan ] ] $+ 1,0! %p1 [ $+ [ $chan ] ] has 0 HP left! %p2 [ $+ [ $chan ] ] won the dm! End of dm!
    set %p1 [ $+ [ $chan ] ] off
    set %p2 [ $+ [ $chan ] ] off
    set %duel [ $+ [ $chan ] ] off
  }
  elseif (%p1hit [ $+ [ $chan ] ] == off && $nick == %p1 [ $+ [ $chan ] ]) { msg $chan It's %p2 [ $+ [ $chan ] ] $+ 's turn! | HALT }
}
on *:text:!barrage*:#: {
  if  (%p1hit [ $+ [ $chan ] ] == on && $nick == %p1 [ $+ [ $chan ] ]) {
    set %splash1 [ $+ [ $chan ] ] $rand(1,4)
    if (%splash1 [ $+ [ $chan ] ] == 1) { goto splash1 | HALT }    
    set %hit [ $+ [ $chan ] ] $rand(0,30)
    dec %hp2 [ $+ [ $chan ] ] %hit [ $+ [ $chan ] ]
    if (%hp2 [ $+ [ $chan ] ] <= 0) { goto dead2 }
    set %frozen2 [ $+ [ $chan ] ] $rand(1,3)
    if (%frozen2 [ $+ [ $chan ] ] == 2) { goto frozen2 }
    msg $chan $nick has hit 9,0 %hit [ $+ [ $chan ] ] $+ 1,0! %p2 [ $+ [ $chan ] ] has 4,0 %hp2 [ $+ [ $chan ] ] 1,0hp left!
    set %p1hit [ $+ [ $chan ] ] off
    set %p2hit [ $+ [ $chan ] ] on
    HALT
    :dead2
    msg $chan $nick has hit 9,0 %hit [ $+ [ $chan ] ] $+ 1,0! %p2 [ $+ [ $chan ] ] has 0 HP left! %p1 [ $+ [ $chan ] ] won the dm! End of dm!
    set %p1 [ $+ [ $chan ] ] off
    set %p2 [ $+ [ $chan ] ] off
    set %duel [ $+ [ $chan ] ] off
    HALT
    :frozen2
    if (%hp2 [ $+ [ $chan ] ] <= 0) { goto dead2 | HALT }
    msg $chan $nick $nick casts an ice barrage, hit 9,0 %hit [ $+ [ $chan ] ] $+ 1,0 , freezes %p2 [ $+ [ $chan ] ] and may attack once again! %p2 [ $+ [ $chan ] ] has 4,0 %hp2 [ $+ [ $chan ] ] 1,0hp left!
    HALT
    :splash1
    msg $chan $nick casts a ice barrage and...... it splashes! %p2 [ $+ [ $chan ] ] has 4,0 %hp2 [ $+ [ $chan ] ] 1,0hp left!
    set %plhit off
    set %p2hit [ $+ [ $chan ] ] on
  }
  elseif (%p2hit [ $+ [ $chan ] ] == off && $nick == %p2 [ $+ [ $chan ] ]) { msg $chan It's %p1 [ $+ [ $chan ] ] $+ 's turn! | HALT }
  elseif (%p2hit [ $+ [ $chan ] ] == on && $nick == %p2 [ $+ [ $chan ] ]) {
    set %splash2 [ $+ [ $chan ] ] $rand(1,4)
    if (%splash2 [ $+ [ $chan ] ] == 1) { goto splash2 | HALT }
    set %hit [ $+ [ $chan ] ] $rand(0,30)
    dec %hp1 [ $+ [ $chan ] ] %hit [ $+ [ $chan ] ] 
    if (%hp1 [ $+ [ $chan ] ] <= 0) { goto dead1 }
    set %frozen1 [ $+ [ $chan ] ] $rand(1,3)
    if (%frozen1 [ $+ [ $chan ] ] == 2) { goto frozen1 }
    msg $chan $nick has hit 9,0 %hit [ $+ [ $chan ] ] $+ 1,0! %p1 [ $+ [ $chan ] ] has 4,0 %hp1 [ $+ [ $chan ] ] 1,0hp left!
    set %p2hit [ $+ [ $chan ] ] off
    set %p1hit [ $+ [ $chan ] ] on
    HALT
    :dead1
    msg $chan $nick has hit 9,0 %hit [ $+ [ $chan ] ] $+ 1,0! %p1 [ $+ [ $chan ] ] has 0 HP left! %p2 [ $+ [ $chan ] ] won the dm! End of dm!
    set %p1 [ $+ [ $chan ] ] off
    set %p2 [ $+ [ $chan ] ] off
    set %duel [ $+ [ $chan ] ] off
    HALT
    :frozen1
    if (%hp1 [ $+ [ $chan ] ] <= 0) { goto dead1 | HALT }
    msg $chan $nick casts an ice barrage, hit 9,0 %hit [ $+ [ $chan ] ] $+ 1,0 , freezes %p1 [ $+ [ $chan ] ] and may attack once again! %p1 [ $+ [ $chan ] ] has 4,0 %hp1 [ $+ [ $chan ] ] 1,0hp left!
    HALT
    :splash2
    msg $chan $nick casts a ice barrage and...... it splashes! %p1 [ $+ [ $chan ] ] has 4,0 %hp1 [ $+ [ $chan ] ] 1,0hp left!
    set %p2hit [ $+ [ $chan ] ] off
    set %p1hit [ $+ [ $chan ] ] on
  }
  elseif (%p1hit [ $+ [ $chan ] ] == off && $nick == %p1 [ $+ [ $chan ] ]) { msg $chan It's %p2 [ $+ [ $chan ] ] [ $+ [ $chan ] ] $+ 's turn! | HALT }
}