on *:TEXT:!dm*:#:{ if (%duel2 == active) {
    notice $nick .-* a DM is already initated and running. please wait. *-.
    else { 
      set %duel active
      msg $chan .-* $nick has initated a duel! type !dm to fight $nick. *-.
      set %dmnick $nick
      set %hp 99
      if (%duel == active)
      msg $chan .-* $nick has come to fight! *-.
      set %dmnick2 $nick
      set %hp 99
      msg $chan %dmnick 4(VS) %dmnick2
    }
  }

  ;; ######################################
  ;; # Upcoming part is in another script #
  ;; ######################################

  on 1:TEXT:!gmaul*:#:{ 
    if (%turn == 1) {
      if ($nick == %dmnick) {
        set %gmaul1 $rand(0,20)
        set %gmaul2 $rand(0,20)
        set %gmaul3 $rand(0,20)
        dec %dmnick2 %gmaul1
        dec %dmnick2 %gmaul2
        dec %dmnick2 %gmaul3
        msg $chan .-* %dmnick has spec'd at %dmnick2 and hits %gmaul1 $+ , $+ %gmaul2 $+ , $+ %gmaul3 *-.
        if (%hp > 0)
        msg $chan %dmnick dies! %dmnick2 wins!!
        else {
          msg $nick Youre not playing.
          if (%turn == 2) {
            if ($nick == %dmnick2) {
              set %gmaul1 $rand(0,20)
              set %gmaul2 $rand(0,20)
              set %gmaul3 $rand(0,20)
              dec %dmnick %gmaul1
              dec %dmnick %gmaul2
              dec %dmnick %gmaul3
              msg $chan .-* %dmnick2 has spec'd at %dmnick and hits %gmaul1 $+ , $+ %gmaul2 $+ , $+ %gmaul3 *-.
              if (%hp > 0)
              msg $chan %dmnick2 dies! %dmnick wins!!
            }
          }
        }
      }

      ;; ######################################
      ;; # Upcoming part is in another script #
      ;; ######################################

      on *:text:!eat*:#: { 
        if (%turn == 1) { 
          if ($nick == %dmnick) { 
            set %turn 2 
            inc %hp 20 
            msg $chan .-* %player1 eats a shark and gains 20 hp. *-.
          } 
        } 
        else if (%turn == 2) { 
          if ($nick == %dmnick2) { 
            set %turn 1 
            inc %hp2 20 
            msg $chan .-* %player2 eats a shark and gains 20 hp. *-.
          } 
        } 
      } 

      on 1:TEXT:!tele*:#:{ if ($nick == %dmnick) 
        msg $chan %dmnick surrenders! %dmnick2 wins!
        unset %turn
        unset %duel
        unset %duel2
        unset %hp
        unset %hp2 
        else {
          msg $chan %dmnick2 surrenders! %dmnick1 wins!
          unset %turn
          unset %duel
          unset %duel2
          unset %hp
          unset %hp2 
        }
      }

      ;; ######################################
      ;; # Upcoming part is in another script #
      ;; ######################################

on *:TEXT:!dds*:#:{ 
  if (%turn == 1) {
    if ($nick == %dmnick) {
      set %hit $rand(0,25)
      set %hit2 $rand(0,25)
      dec %dmnick2 %hit
      dec %dmnick2 %hit2
      msg $chan .-* %dmnick has spec'd at %dmnick2 and hits %hit $+ , $+ %hit2 *-.
      set %turn 2
      if (%hp > 0)
      msg $chan %dmnick dies! %dmnick2 wins!!
      else {
        msg $nick Youre not playing.
        if (%turn == 2)
        if (%dm == %dmnick2)
        set %hit $rand(0,25)
        set %hit2 $rand(0,25)
        dec %dmnick %hit
        dec %dmnick %hit2
        msg $chan .-* %dmnick2 has spec'd at %dmnick and hits %hit $+ , $+ %hit2 *-.
        if (%hp2 > 0)
        msg $chan %dmnick2 dies! %dmnick2 wins!!
        set %turn 1
      }
    }
  }
}


;; END OF SCRIPT