Someone

on *:TEXT:!dm*:#: {  
  if (%dm == active) { msg $chan $nick $+ , There is already a active dm on, please wait and try again. | halt } else {
    set %p1 $nick | msg $chan A dm has been set by $nick $+ , to join in please type !accept
    set %dm active | set %p1 $nick | set %p1hp 99 | set %p2hp 99 | set %spec1 4 | set %spec2 4
  }
}
on *:TEXT:!accept*:#: { 
  if (%dm == $null) { msg $chan there is no dm running please type !dm to start | halt }
  if ($nick == %p1) { msg $chan $nick $+ , Why play you'reself, iam not letting you =p | halt }
  if (%p1 == $null) || (%p2 == $null) { There is no game currently running please type !dm to start one | halt }
  if (%p1) && (%p2 == $null) { set %p2 $nick 
    msg $chan %player2 has accepted the challenge! get ready to dm with 20 sharks, DDS , lash attack , flick attack , range ! some weps have special so !DDS spec
    msg $chan %p1 VS %p2 | set %go $rand(1,2)
    if (%nick == %p1) {  msg $chan $nick $+ , Why play you'reself, iam not letting you =p }
    if (%go == 1) { msg $chan %p1 You go first }
    if (%go == 2) { msg %chan %p2 You go first | halt } 
    if (%p1) && (%p2) { msg $chan There is already max 2 people playing | halt }
  }
} 
on *:TEXT:!end*:#: {
  if ($nick == %p1) { msg $chan Congratulations %p2 You won %p1 Gave Up. | unset %dm | unset %p1 | unset %p2 | halt } 
  if ($nick == %p2) { msg $chan Congratulations %p1 You won %p2 Gave Up. | unset %dm | unset %p1 | unset %p2 | halt } else {
    msg $chan You are not %p1 or %p2 you are not allowed to stop it
  }
}
on *:TEXT:*:#: {
  if (%dm == $null) { msg $chan $nick $+ , there is currently no game running, !dm to start it | halt }
  if ($1 == !dds) && (%go == 1) && ($nick == %p1) && (%spec1 => 1) && ($2 == spec) && (%hp > 1) {
    set %hit1 $rand(0,28) | set %hit2 $rand(0,28) | msg $chan %p1 Hit a %hit1 and %hit2 | set %p2hp $calc(%p2hp - %hit1 - %hit2) | set %spec1 $calc(%spec1 - 1)
  msg $chan %p2 $+ 's HP is now %p2hp %p2 It is now you're go | set %go 2 | halt }
  if ($1 == !dds) && (%go == 1) && ($nick == %p1) && ($2 == spec) && (%spec == 0) || (%hp1 < 1) { 
  msg $chan You do not have any spec left, or you have died. | halt }
  if ($1 == !dds) && (%go == 1) && ($nick == %p1) && ($2 == $null) { 
  set %hit1 $rand(0,28) | set %p2hp $calc(%p2hp - %hit1) | msg $chan %p2 $+ 's HP is now %p2hp %p2 it is now you're go | set %go 2 | halt }
  if ($1 == !dds) && (%go == 2) && ($nick == %p2) && (%spec1 => 1) && ($2 == spec) && (%hp > 1) {
    set %hit1 $rand(0,28) | set %hit2 $rand(0,28) | msg $chan %p2 Hit a %hit1 and %hit2 | set %p1hp $calc(%p1hp - %hit1 - %hit2) | set %spec2 $calc(%spec1 - 1)
  msg $chan %p1 $+ 's HP is now %p1hp %p1 It is now you're go | set %go 1 | halt }
  if ($1 == !dds) && (%go == 2) && ($nick == %p2) && ($2 == spec) && (%spec == 0) || (%hp2 < 1) { 
  msg $chan You do not have any spec left, or you have died. | halt }
  if ($1 == !dds) && (%go == 2) && ($nick == %p2) && ($2 == $null) { 
  set %hit1 $rand(0,28) | set %p1hp $calc(%p1hp - %hit1) | msg $chan %p1 $+ 's HP is now %p1hp %p1 it is now you're go | set %go 1 | halt }
}