Mine

on *:TEXT:!dm:#:{
  if (%player1  == $null) && (%player2  == $null) {
    msg $chan 14A dm has been initiated! Type7 !dm14 to dm7 $nick $+ 14
    set %player1  $nick
  }
  elseif (%player1  != $null) && (%player2  == $null) {
    if ($nick != %player1 ) {
      msg $chan 14The Dm is set! The dm is between7 %player1  14and7 $nick
      set %player2 $nick
      set %health1 99
      set %health2 99 
      set %turn %player1 
      set %dds1 100
      set %dds2 100
      set %shark1 20
      set %shark2 20
      notice %player1  14You go first! Type7 !cmddm14 to see DM commands You have7 9914 Health
      notice %player2  14You go second Type7 !cmddm14 to see DM commands You have7 9914 Health
    }
    else { notice $nick 14You are already in the DM! }
  }
  elseif (%player1  != $null) && (%player2  != $null) {
    notice $nick 14There is already a Dm taking place
  }
}
on *:TEXT:!stopdm:#:{
  if (%player1  != $null) {
    if (%player1  != $null && $nick isop $chan || $nick ishop $chan || %player1  == $nick || %player1  == $nick) {
      msg $chan 14Dm has been stopped by7 $nick $+ 14
      unset %player1  | unset %player2  | unset %health1  | unset %health2  | unset %turn 
    }
    else { notice $nick 14You cannot end this Dm! }
  }
  else { notice $nick 14There is no DM currently taking place! }
}

on *:TEXT:!whip:#:{
  if (%player1  != $null) {
    if (%turn  == $nick) {
      set %hit  $r(1,35)
      dec %health [ $+ [ $iif(%turn  == %player1 ,2,1) ] ] %hit 
      msg $chan 7 $+ $nick 14hits7 %hit  14on7 $iif(%turn  == %player1 ,%player2 ,%player1 ) $+ 14 with his whip7 $iif(%turn  == %player1 ,%player2 ,%player1 ) 14has7 $iif($iif(%turn  == %player1 ,%health2 ,%health1 ) <= 0,0,$iif(%turn  == %player1 ,%health2 ,%health1 )) 14hp left
      if (%health [ $+ [ $iif(%turn  == %player1 ,2,1) ] ] <= 0) {
        msg $chan 7 $+ %turn  14wins!7 $iif(%turn  == %player1 ,%player2 ,%player1 ) 14is the loser! | unset %player1  | unset %player2  | unset %health1  | unset %health2  | unset %turn 
      }
      set %turn  $iif(%turn  == %player1 ,%player2 ,%player1 )
    }
    else { notice $nick 14It's not your turn! }
  }
  else { notice $nick 14There currently isn't a DM in progress }
}

on *:TEXT:!dh:#:{
  if (%player1  != $null) {
    if (%turn  == $nick) {
      set %hit  $r(1,40)
      dec %health [ $+ [ $iif(%turn  == %player1 ,2,1) ] ] %hit 
      msg $chan 7 $+ $nick 14hits7 %hit  14on7 $iif(%turn  == %player1 ,%player2 ,%player1 ) $+ 14 with his dragon hally7 $iif(%turn  == %player1 ,%player2 ,%player1 ) 14has7 $iif($iif(%turn  == %player1 ,%health2 ,%health1 ) <= 0,0,$iif(%turn  == %player1 ,%health2 ,%health1 )) 14hp left
      if (%health [ $+ [ $iif(%turn  == %player1 ,2,1) ] ] <= 0) {
        msg $chan 7 $+ %turn  14wins!7 $iif(%turn  == %player1 ,%player2 ,%player1 ) 14is the loser! | unset %player1  | unset %player2  | unset %health1  | unset %health2  | unset %turn 
      }
      set %turn  $iif(%turn  == %player1 ,%player2 ,%player1 )
    }
    else { notice $nick 14It's not your turn! }
  }
  else { notice $nick 14There currently isn't a DM in progress }
}

on *:TEXT:!dscim:#:{
  if (%player1  != $null) {
    if (%turn  == $nick) {
      set %hit  $r(1,34)
      dec %health [ $+ [ $iif(%turn  == %player1 ,2,1) ] ] %hit 
      msg $chan 7 $+ $nick 14hits7 %hit  14on7 $iif(%turn  == %player1 ,%player2 ,%player1 ) $+ 14 with his dragon scimmy7 $iif(%turn  == %player1 ,%player2 ,%player1 ) 14has7 $iif($iif(%turn  == %player1 ,%health2 ,%health1 ) <= 0,0,$iif(%turn  == %player1 ,%health2 ,%health1 )) 14hp left
      if (%health [ $+ [ $iif(%turn  == %player1 ,2,1) ] ] <= 0) {
        msg $chan 7 $+ %turn  14wins!7 $iif(%turn  == %player1 ,%player2 ,%player1 ) 14is the loser! | unset %player1  | unset %player2  | unset %health1  | unset %health2  | unset %turn 
      }
      set %turn  $iif(%turn  == %player1 ,%player2 ,%player1 )
    }
    else { notice $nick 14It's not your turn! }
  }
  else { notice $nick 14There currently isn't a DM in progress }
}

on *:TEXT:!dds:#:{
  if (%player1  != $null) {
    if (%turn  == $nick) {
      if ($iif(%turn  == %player1,%dds1,%dds2) == 0) { msg $chan 14You have no spec left! Miss a turn! | goto missaturn }
      set %hit $r(1,28)
      set %hit2 $r(1,27) 
      dec %health [ $+ [ $iif(%turn == %player1,2,1) ] ] $calc(%hit + %hit2)
      dec %dds [ $+ [ $iif(%turn == %player1,1,2) ] ] 25
      notice $nick 14You have7 %dds [ $+ [ $iif(%turn == %player1,1,2) ] ] $+ 14% of your spec left    
      msg $chan 7 $+ $nick 14hits7 %hit  14and7 %hit2  14on7 $iif(%turn  == %player1 ,%player2 ,%player1 ) $+ 14 with his dds7 $iif(%turn  == %player1 ,%player2 ,%player1 ) 14has7 $iif($iif(%turn  == %player1 ,%health2 ,%health1 ) <= 0,0,$iif(%turn  == %player1 ,%health2 ,%health1 )) 14hp left
      if (%health [ $+ [ $iif(%turn  == %player1 ,2,1) ] ] <= 0) {
        msg $chan 7 $+ %turn  14wins!7 $iif(%turn  == %player1 ,%player2 ,%player1 ) 14is the loser! | unset %player1  | unset %player2  | unset %health1  | unset %health2  | unset %turn      
      }
      :missaturn
      set %turn $iif(%turn  == %player1 ,%player2 ,%player1 )
    }
    else { notice $nick 14It's not your turn! }
  }
  else { notice $nick 14There currently isn't a DM in progress }
}

on *:TEXT:!eat:#:{
  if (%player1  != $null) {
    if (%turn  == $nick) {
      if (%shark [ $+ [ $iif(%turn  == %player1 ,1,2) ] ] == 0) { msg $chan 14You have no sharks left! Miss a turn! | goto missaturn } 
      inc %health [ $+ [ $iif(%turn  == %player1 ,1,2) ] ] 20
      msg $chan 7 $+ $nick 14has chosen to eat! They now have7 %health [ $+ [ $iif(%turn  == %player1 ,1,2) ] ] 14hp
      :missaturn
      set %turn  $iif(%turn  == %player1 ,%player2 ,%player1 )
    }
    else { notice $nick 14It's not your turn! }
  }
  else { notice $nick 14There currently isn't a DM in progress }
}

on *:TEXT:!dlong:#:{
  if (%player1  != $null) {
    if (%turn  == $nick) {
      set %hit  $r(1,32)
      dec %health [ $+ [ $iif(%turn  == %player1 ,2,1) ] ] %hit 
      msg $chan 7 $+ $nick 14hits7 %hit  14on7 $iif(%turn  == %player1 ,%player2 ,%player1 ) $+ 14 with his drag long7 $iif(%turn  == %player1 ,%player2 ,%player1 ) 14has7 $iif($iif(%turn  == %player1 ,%health2 ,%health1 ) <= 0,0,$iif(%turn  == %player1 ,%health2 ,%health1 )) 14hp left
      if (%health [ $+ [ $iif(%turn  == %player1 ,2,1) ] ] <= 0) {
        msg $chan 7 $+ %turn  14wins!7 $iif(%turn  == %player1 ,%player2 ,%player1 ) 14is the loser! | unset %player1  | unset %player2  | unset %health1  | unset %health2  | unset %turn 
      }
      set %turn  $iif(%turn  == %player1 ,%player2 ,%player1 )
    }
    else { notice $nick 14It's not your turn! }
  }
  else { notice $nick 14There currently isn't a DM in progress }
}

on *:TEXT:!gmaul:#:{
  if (%player1  != $null) {
    if (%turn  == $nick) {
      if ($iif(%turn  == %player1,%dds1,%dds2) == 0) { msg $chan 14You have no spec left! Miss a turn! | goto missaturn }
      set %hit $r(1,28)
      set %hit2 $r(1,27) 
      set %hit3 $r(1,23)
      dec %health [ $+ [ $iif(%turn == %player1,2,1) ] ] $calc((%hit + %hit2) + %hit3)
      dec %dds [ $+ [ $iif(%turn == %player1,1,2) ] ] 100
      notice $nick 14You have7 %dds [ $+ [ $iif(%turn == %player1,1,2) ] ] $+ 14% of your spec left    
      msg $chan 7 $+ $nick 14hits7 %hit $+ 14,7 %hit2 14and7 %hit3 14on7 $iif(%turn  == %player1 ,%player2 ,%player1 ) $+ 14 with his dds7 $iif(%turn  == %player1 ,%player2 ,%player1 ) 14has7 $iif($iif(%turn  == %player1 ,%health2 ,%health1 ) <= 0,0,$iif(%turn  == %player1 ,%health2 ,%health1 )) 14hp left
      if (%health [ $+ [ $iif(%turn  == %player1 ,2,1) ] ] <= 0) {
        msg $chan 7 $+ %turn  14wins!7 $iif(%turn  == %player1 ,%player2 ,%player1 ) 14is the loser! | unset %player1  | unset %player2  | unset %health1  | unset %health2  | unset %turn      
      }
      :missaturn
      set %turn $iif(%turn  == %player1 ,%player2 ,%player1 )
    }
    else { notice $nick 14It's not your turn! }
  }
  else { notice $nick 14There currently isn't a DM in progress }
}