Stuff

on *:TEXT:!dm:#: {
  if ($nick == %nickone) || (%dadm == fighting) { HALT }
  if (%dadm == $null) {
    msg $chan $nick has started a deathmatch type !dm to join. 
    set %nickone $nick
    set %dadm one
  }
  else {
    if ($nick == %nickone) || (%dadm == fighting) { HALT }
    msg $chan $nick has accepted %nickone $+ 's challange. %nickone will start.
    notice %nickone Its your go!
    set %nicktwo $nick
    set %shot %nickone
    set %dadm fighting
    set %hp1 99
    set %hp2 99
  }
}
on *:TEXT:!whip*:#: {
  if ($nick == %nickone) && (%shot == %nickone) {
    set %hit1 $rand(1,40)
    set %hp2 $calc(%hp2 - %hit1)
  }
  if (%hp2 => 0) {
    set %hp2 0
    msg $chan %nickone hits a %hit1 on %nicktwo who now has %hp2 hp left.
    msg $chan %nickone Wins!!
    dmoff
    else {
      msg $chan %nickone hits a %hit1 on %nicktwo who now has %hp2 hp left.
      set %shot %nicktwo
      notice %nicktwo Its your go
    }
  }
  else {
    if ($nick == %nicktwo) && (%shot == %nicktwo) {
      set %hit2 $rand(1,40)
      set %hp1 $calc(%hp1 - %hit2)
    }
  }
  if (%hp1 => 0) {
    set %hp1 0
    msg $chan %nicktwo hits a %hit2 on %nickone who now has %hp1 hp left.
    msg $chan %nicktwo Wins!!
    dmoff
    else {
      msg $chan %nicktwo hits a %hit2 on %nickone who now has %hp1 hp left.
      set %shot %nickone
      notice %nickone Its your go
    }
  }
}
on *:TEXT:!dmoff*:#: {
  if ($nick == jenno007) {
    unset %dadm
    unset %nickone
    unset %nicktwo
    unset %hp1
    unset %hp2
    unset %shot
    msg # Dm is off
  }
  else { HALT }
}
alias dmoff {
  unset %dadm
  unset %nickone
  unset %nicktwo
  unset %hp1
  unset %hp2
  unset %shot
}