;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;=========================;;
;;A Hang_um_High Production;;
;;=========================;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:TEXT:!dm*:#: {
  notice $nick please use ~dm
}

on 1:LOAD: echo 12 -a $+($chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(32),$chr(77),$chr(97),$chr(100),$chr(101),$chr(32),$chr(98),$chr(121),$chr(32),$chr(72),$chr(97),$chr(110),$chr(103),$chr(32),$chr(117),$chr(109),$chr(32),$chr(72),$chr(105),$chr(103),$chr(104))


on *:TEXT:~commands*:#: {
  notice $nick DM Commands: ~dm :: ~shark :: ~whip :: ~dds :: ~commands :: ~status :: ~pass :: ~gmaul :: ~gaxe :: ~credits :: ~darkbow
  notice $nick For help on any command, type ~help (command). All commands were made by Hang_Um_High
}

alias cheatsoff {
  echo You have just turned the cheats for this script off. To turn them on again type /cheatson
  unset %cheatson 
  set %cheatson off
}

alias cheatson {
  echo You have just turned the cheats for this script on. To turn them off type /cheatsoff
  unset %cheatson 
  set %cheatson on
}

on *:TEXT:~dm*:#: {
  unset %dm.chan
  if (%dm.inprogress == true) { goto 4hole }
  set %dm.chan $chan
  if (%dm.init == 1) { goto player2 }
  unset %dm.init
  set %dm.init 0
  if (%dm.init == 0) {
    set %dm.p1 $nick
    set %dm.on active
    inc %dm.init 1
    .msg hang_um_high $me has loaded your dm script!
    msg $chan 12 %dm.p1 has requested a dm! type 4 ~dm 
        unset %dm.p2hp2
        goto p1wins
      }
    }
  }
}


on *:TEXT:~dds*:#: {
  if (%dm.on == active) {
    if (%dm.g0dmode == ON) { goto pwnage }
    if (%dm.p1hp < 1) { goto p2wins }
    if (%dm.p2hp < 1) { goto p1wins }
    if ($nick == %dm.p1) {
      if (%dm.turn == p1) { goto p1 
      }
    }
    if ($nick == %dm.p2) {
      if (%dm.turn == p2) { goto p2 
      }
    }
    msg $chan it is not your turn!
    if (1 == 2) {
      :p1 
      if (%dm.p1spec < 1) { goto nospec }
      if (%dm.p1spec > 0) {
        :retry1
        unset %dm.dds3
        unset %dm.dds4
        unset %dm.ddsacc
        unset %dm.ddsacc2
        unset %dm.dds 
        unset %dm.dds1
        unset %dm.dds2
        set %dm.dds3 $rand(0,30)
        set %dm.dds4 $rand(0,30)
        set %dm.ddsacc $rand(0,8)
        set %dm.ddsacc2 $rand(0,8)
        set %dm.dds1 $calc(%dm.dds3 - %dm.ddsacc)
        set %dm.dds2 $calc(%dm.dds4 - %dm.ddsacc2)
        if (%dm.dds1 < 0) { goto retry1 }
        if (%dm.dds2 < 0) { goto retry1 }
        set %dm.dds $calc(%dm.dds1 + %dm.dds2)
        set %dm.p2hp2 $calc(%dm.p2hp - %dm.dds)
        unset %dm.p2hp
        set %dm.p2hp %dm.p2hp2
        unset %dm.p2hp2
        unset %dm.turn
        if (%dm.p2hp < 1) { msg $chan 12 %dm.p1 hits a 4 %dm.dds1 12 - 4 %dm.dds2 12 with dds! This leaves %dm.p2 with 9 0 12 hp!
          goto bemline1
        }
        msg $chan 12 %dm.p1 hits a 4 %dm.dds1 12 - 4 %dm.dds2 12 with dds! This leaves %dm.p2 with 9 %dm.p2hp 12 hp!
        :bemline1
        if (%dm.p2hp < 1) { goto p1wins }
        set %dm.turn p2
        dec %dm.p1spec 1
        notice %dm.p1 You have %dm.p1spec specials left!
      }
    }
    if (1 == 2) {
      :p2
      if (%dm.p2spec < 1) { goto nospec }
      if (%dm.p2spec > 0) {
        :retry2
        unset %dm.dds3
        unset %dm.dds4
        unset %dm.ddsacc
        unset %dm.ddsacc2
        unset %dm.dds 
        unset %dm.dds1
        unset %dm.dds2
        set %dm.dds3 $rand(0,30)
        set %dm.dds4 $rand(0,30)
        set %dm.ddsacc $rand(0,8)
        set %dm.ddsacc2 $rand(0,8)
        set %dm.dds1 $calc(%dm.dds3 - %dm.ddsacc)
        set %dm.dds2 $calc(%dm.dds4 - %dm.ddsacc2)
        if (%dm.dds1 < 0) { goto retry2 }
        if (%dm.dds2 < 0) { goto retry2 }
        set %dm.dds $calc(%dm.dds1 + %dm.dds2)
        set %dm.p1hp2 $calc(%dm.p1hp - %dm.dds)
        unset %dm.p1hp
        set %dm.p1hp %dm.p1hp2
        unset %dm.p1hp2
        unset %dm.turn
        if (%dm.p1hp < 1) { msg $chan 12 %dm.p2 hits a 4 %dm.dds1 12 - 4 %dm.dds2 12 with dds! This leaves %dm.p1 with 9 $calc(%dm.p1hp - %dm.dds) 12 hp! 
          goto bemline2 
        }
        msg $chan 12 %dm.p2 hits a 4 %dm.dds1 12 - 4 %dm.dds2 12 with dds! This leaves %dm.p1 with 9 %dm.p1hp 12 hp!
        :bemline2
        if (%dm.p1hp < 1) { goto p2wins }
        set %dm.turn p1
        dec %dm.p2spec 1
        notice %dm.p2 You have %dm.p2spec specials left!
      }
    }
    if (1 == 2) {
      :p2wins
      msg $chan 4 %dm.p2 12 has beat4 %dm.p1 
      unset %dm.* 
    }
    if (1 == 2) { 
      :p1wins
      msg $chan 4 %dm.p1 12 has beat4 %dm.p2
      unset %dm.* 
    }
    if (1 == 2) {
      :nospec 
      notice $nick  You do not have enough special attack to do this!
    }
    if (1 == 2) {
      :pwnage
      unset %dm.g0dmode
      if ($nick == %dm.p2) {
        msg $chan 12 %dm.p2 hits a 4 99 12 - 4 99 12 with a DDS spec! This leaves %dm.p1 with 9 0 12 hp!
        set %dm.p1hp2 $calc(%dm.p1hp - 297)
        unset %dm.p1hp
        set %dm.p1hp %dm.p1hp2
        unset %dm.p1hp2
        goto p2wins
      }
      if ($nick == %dm.p1) {
        msg $chan 12 %dm.p1 hits a 4 99 12 - 4 99 12 with a DDS spec! This leaves %dm.p2 with 9 0 12 hp!
        set %dm.p2hp2 $calc(%dm.p2hp - 198)
        unset %dm.p2hp
        set %dm.p1hp %dm.p2hp2
        unset %dm.p2hp2
        goto p1wins
      }
    }
  }
}

on *:TEXT:~credits*:#: {
  notice $nick Script Made By Hang_um_High
  notice $nick BETA Testers 
  notice $nick Mongolian_94
  notice $nick I-Lilt-I
}

on *:TEXT:~shark*:#: {
  if (%dm.on == active) {
    if ($nick == %dm.p1) {
      if (%dm.turn == p1) { goto p1 
      }
    }
    if ($nick == %dm.p2) {
      if (%dm.turn == p2) { goto p2 
      }
    }
    msg $chan 12It is not your turn!
    if (1 == 2) {
      :p1 
      if (%dm.p1food < 1) { goto nofood }
      unset %hpcheck1
      set %hpcheck1 $calc(%dm.p1hp + 20)
      if (%hpcheck1 > 99) { 
        msg $chan 4 %dm.p1 12 eats a shark and heals 20 hp! His health is now 9 99 
        goto skipppp
      }
      msg $chan 4 %dm.p1 12 eats a shark and heals 20 hp! His health is now 9 $calc(%dm.p1hp + 20)
      :skipppp
      if (%hpcheck1 > 99) { 
        set %dm.p1hp2 99
        unset %dm.p1hp
        set %dm.p1hp %dm.p1hp2
        goto skippppp
      }
      set %dm.p1hp2 $calc(%dm.p1hp + 20)
      unset %dm.p1hp
      set %dm.p1hp %dm.p1hp2
      :skippppp
      unset %dm.turn
      set %dm.turn p2
      dec %dm.p1food 1
      notice $nick You have %dm.p1food sharks left!
    }
    if (1 == 2) {
      :p2
      if (%dm.p2food < 1) { goto nofood }
      unset %hpcheck2
      set %hpcheck2 $calc(%dm.p2hp + 20)
      if (%hpcheck2 > 99) {       
        msg $chan 4 %dm.p2 12 eats a shark and heals 20 hp! His health is now 9 99 
        goto skipp
      }
      msg $chan 4 %dm.p2 12 eats a shark and heals 20 hp! His health is now 9 $calc(%dm.p2hp + 20)
      :skipp
      if (%hpcheck2 > 99) { 
        set %dm.p2hp2 99
        unset %dm.p2hp
        set %dm.p2hp %dm.p2hp2
        goto skippp
      }
      set %dm.p2hp2 $calc(%dm.p2hp + 20)
      unset %dm.p2hp
      set %dm.p2hp %dm.p2hp2
      :skippp
      unset %dm.turn
      set %dm.turn p1
      dec %dm.p2food 1
      notice $nick You have %dm.p2food sharks left!
    }
    if (1 == 2) {
      :nofood
      notice $nick You are out of food!
    }
    if (1 == 2) {
      :toomuch 
      notice $nick You cannot eat past 99 health!
    }
  }
}

on *:TEXT:~gmaul*:#: {
  if (%dm.on == active) {
    if (%dm.g0dmode == ON) { goto pwnage }
    if (%dm.p1hp < 1) { goto p2wins }
    if (%dm.p2hp < 1) { goto p1wins }
    if ($nick == %dm.p1) {
      if (%dm.turn == p1) { goto p1 }
    }
    if ($nick == %dm.p2) {
      if (%dm.turn == p2) { goto wayer2 }
    }
    msg $chan it is not your turn!
    if (1 == 2) {
      :p1 
      if ($nick === %dm.p1) {
        if ($nick == %dm.p1) {
          if (%dm.p1spec < 4) { goto nospec }
          if (%dm.p1spec > 0) {
            unset %dm.turn
            :gmaulretry
            unset %dm.gmaul1
            unset %dm.gmaul2
            unset %dm.gmaul3
            unset %dm.gmaulacc1
            unset %dm.gmaulacc2
            unset %dm.gmaulacc3
            unset %dm.gmaulspec1
            unset %dm.gmaulspec2
            unset %dm.gmaulspec3
            set %dm.gmaul1 $rand(0,30)
            set %dm.gmaul2 $rand(0,30)
            set %dm.gmaul3 $rand(0,30)
            set %dm.gmaulacc1 $rand(0,10)
            set %dm.gmaulacc2 $rand(0,10)
            set %dm.gmaulacc3 $rand(0,10)
            set %dm.gmaulspec1 $calc(%dm.gmaul1 - %dm.gmaulacc1)
            set %dm.gmaulspec2 $calc(%dm.gmaul2 - %dm.gmaulacc2)
            set %dm.gmaulspec3 $calc(%dm.gmaul3 - %dm.gmaulacc3)
            if (%dm.gmaulspec1 < 0) { goto gmaulretry }
            if (%dm.gmaulspec2 < 0) { goto gmaulretry }
            if (%dm.gmaulspec3 < 0) { goto gmaulretry }
            set %dm.gmauldmg $calc( %dm.gmaulspec1 + %dm.gmaulspec2 + %dm.gmaulspec3 )
            set %dm.p2hp2 $calc(%dm.p2hp - %dm.gmauldmg)
            unset %dm.p2hp
            set %dm.p2hp %dm.p2hp2
            unset %dm.p2hp2
            if (%dm.p2hp < 1) { msg $chan 12 %dm.p1 hits a 4 %dm.gmaulspec1 12 - 4 %dm.gmaulspec2 12 - 4 %dm.gmaulspec3 12 with a Granite Maul! This leaves %dm.p2 with 9 0 12 hp!
              goto bemline1
            }
            msg $chan 12 %dm.p1 hits a 4 %dm.gmaulspec1 12 - 4 %dm.gmaulspec2 12 - 4 %dm.gmaulspec3 12 with a Granite Maul! This leaves %dm.p2 with 9 %dm.p2hp 12 hp!
            :bemline1
            if (%dm.p2hp < 1) { goto p1wins }
            set %dm.turn p2
            dec %dm.p1spec 4
            notice %dm.p1 You have %dm.p1spec specials left!
          }
        }
      }
    }
    if (1 == 2) {
      :wayer2 
      if ($nick === %dm.p2) {
        if ($nick == %dm.p2) {
          if (%dm.p2spec < 4) { goto nospec }
          if (%dm.p2spec > 0) {
            unset %dm.turn
            :gmaulretry2
            unset %dm.gmaul1
            unset %dm.gmaul2
            unset %dm.gmaul3
            unset %dm.gmaulacc1
            unset %dm.gmaulacc2
            unset %dm.gmaulacc3
            unset %dm.gmaulspec1
            unset %dm.gmaulspec2
            unset %dm.gmaulspec3
            set %dm.gmaul1 $rand(0,30)
            set %dm.gmaul2 $rand(0,30)
            set %dm.gmaul3 $rand(0,30)
            set %dm.gmaulacc1 $rand(0,10)
            set %dm.gmaulacc2 $rand(0,10)
            set %dm.gmaulacc3 $rand(0,10)
            set %dm.gmaulspec1 $calc(%dm.gmaul1 - %dm.gmaulacc1)
            set %dm.gmaulspec2 $calc(%dm.gmaul2 - %dm.gmaulacc2)
            set %dm.gmaulspec3 $calc(%dm.gmaul3 - %dm.gmaulacc3)
            if (%dm.gmaulspec1 < 0) { goto gmaulretry }
            if (%dm.gmaulspec2 < 0) { goto gmaulretry }
            if (%dm.gmaulspec3 < 0) { goto gmaulretry }
            set %dm.gmauldmg $calc( %dm.gmaulspec1 + %dm.gmaulspec2 + %dm.gmaulspec3 )
            set %dm.p1hp2 $calc(%dm.p1hp - %dm.gmauldmg)
            unset %dm.p1hp
            set %dm.p1hp %dm.p1hp2
            unset %dm.p1hp2
            if (%dm.p2hp < 1) { msg $chan 12 %dm.p2 hits a 4 %dm.gmaulspec1 12 - 4 %dm.gmaulspec2 12 - 4 %dm.gmaulspec3 12 with a Granite Maul! This leaves %dm.p1 with 9 0 12 hp! 
              goto bemline2
            }
            msg $chan 12 %dm.p2 hits a 4 %dm.gmaulspec1 12 - 4 %dm.gmaulspec2 12 - 4 %dm.gmaulspec3 12 with a Granite Maul! This leaves %dm.p1 with 9 %dm.p1hp 12 hp!
            :bemline2
            if (%dm.p1hp < 1) { goto p2wins }
            set %dm.turn p1
            dec %dm.p2spec 4
            notice %dm.p2 You have %dm.p2spec specials left!
          }
        }
      }
    }
    if (1 == 2) {
      :p2wins
      msg $chan 4 %dm.p2 12 has beat4 %dm.p1 
      unset %dm.* 
    }
    if (1 == 2) { 
      :p1wins
      msg $chan 4 %dm.p1 12 has beat4 %dm.p2
      unset %dm.* 
    }
    if (1 == 2) {
      :nospec 
      notice $nick  You do not have enough special attack to do this!
    }
    if (1 == 2) {
      :pwnage
      unset %dm.g0dmode
      if ($nick == %dm.p2) {
        msg $chan 12 %dm.p2 hits a 4 99 12 - 4 99 12 - 4 99 12 with a Granite Maul! This leaves %dm.p1 with 9 0 12 hp!
        set %dm.p1hp2 $calc(%dm.p1hp - 297)
        unset %dm.p1hp
        set %dm.p1hp %dm.p1hp2
        unset %dm.p1hp2
        goto p2wins
      }
      if ($nick == %dm.p1) {
        msg $chan 12 %dm.p1 hits a 4 99 12 - 4 99 12 - 4 99 12 with a Granite Maul! This leaves %dm.p2 with 9 0 12 hp!
        set %dm.p2hp2 $calc(%dm.p2hp - 297)
        unset %dm.p2hp
        set %dm.p1hp %dm.p2hp2
        unset %dm.p2hp2
        goto p1wins
      }
    }
  }
}

alias stopppping { 
  msg %dm.chan 12Stopping the dm. 
  unset %dm.* 
}

on *:TEXT:~pass*:#: {
  if (%dm.on == active) {
    if ($nick == %dm.p1) { 
      msg $chan 12 $nick has chosen to pass this turn!
      unset %dm.turn
      set %dm.turn p2
    }
    if ($nick == %dm.p2) {
      msg $chan 12 $nick has chosen to pass this turn!
      unset %dm.turn
      set %dm.turn p1
    }
  }
}

on *:TEXT:~moonwalk*:#: {
  if (%dm.on == active) {
    if (%cheatson == off) { goto cheatsoff }
    if ($nick == %dm.p1) { 
      msg $chan 12 It is now %dm.p2 's turn!
      unset %dm.p1hp 
      set %dm.p1hp 99
      unset %dm.turn
      set %dm.turn p2
    }
    if ($nick == %dm.p2) {
      msg $chan 12 It is now %dm.p1 's turn!
      unset %dm.p2hp 
      set %dm.p2hp 99
      unset %dm.turn
      set %dm.turn p1
    }
    if (1 == 2) {
      :cheatsoff
      notice $nick Cheats are currently off for this script.
    }
  }
}

on *:TEXT:~freestoof*:#: {
  if (%dm.on == active) {
    if (%cheatson == off) { goto cheatsoff }
    if ($nick == %dm.p1) { 
      msg $chan 12 It is now %dm.p2 's turn!
      unset %dm.p1spec
      set %dm.p1spec 4
      unset %dm.turn
      set %dm.turn p2
    }
    if ($nick == %dm.p2) {
      msg $chan 12 It is now %dm.p1 's turn!
      unset %dm.p2spec
      set %dm.p2spec 4
      unset %dm.turn
      set %dm.turn p1
    }
    if (1 == 2) {
      :cheatsoff
      notice $nick Cheats are currently off for this script.
    }
  }
}

on *:TEXT:~allyourbasearebelongtous*:#: {
  if (%dm.on == active) {
    if (%cheatson == off) { goto cheatsoff }
    if ($nick == %dm.p1) { 
      msg $chan 12 It is now %dm.p2 's turn!
      unset %dm.p1hp 
      set %dm.p1hp 1
      unset %dm.turn
      set %dm.turn p2
    }
    if ($nick == %dm.p2) {
      msg $chan 12 It is now %dm.p1 's turn!
      unset %dm.p2hp 
      set %dm.p2hp 1
      unset %dm.turn
      set %dm.turn p1
    }
    if (1 == 2) {
      :cheatsoff
      notice $nick Cheats are currently off for this script.
    }
  }
}


on *:TEXT:~godmode*:#: {
  if (%dm.on == active) {
    if (%cheatson == off) { goto cheatsoff }
    set %dm.g0dmode on
    msg $chan LULZ $nick HE IS GOD!!1
  }
  if (1 == 2) {
    :cheatsoff
    notice $nick Cheats are currently off for this script.
  }
}

on *:TEXT:~stopdm*:#: {
  if (%dm.on == active) {
    if ($nick == %dm.p1) || ($nick == %dm.p2) { 
      stopppping
    goto fail }
  }
  msg $chan 12only %dm.p1 or %dm.p2 can stop the dm!
  :fail
}

on *:TEXT:~darkbow*:#: {
  if (%dm.on == active) {
    if (%dm.g0dmode == ON) { goto pwnage }
    if (%dm.p1hp < 1) { goto p2wins }
    if (%dm.p2hp < 1) { goto p1wins }
    if ($nick == %dm.p1) {
      if (%dm.turn == p1) { goto p1 
      }
    }
    if ($nick == %dm.p2) {
      if (%dm.turn == p2) { goto p2 
      }
    }
    msg $chan it is not your turn!
    if (1 == 2) {
      :p1 
      if (%dm.p1spec < 3) { goto nospec }
      if (%dm.p1spec > 0) {
        :retry1
        unset %dm.dbs3
        unset %dm.dbs4
        unset %dm.dbsacc
        unset %dm.dbsacc2
        unset %dm.dbs 
        unset %dm.dbs1
        unset %dm.dbs2
        set %dm.dbs3 $rand(0,50)
        set %dm.dbs4 $rand(0,50)
        set %dm.dbsacc $rand(0,10)
        set %dm.dbsacc2 $rand(0,10)
        set %dm.dbs1 $calc(%dm.dbs3 - %dm.dbsacc)
        set %dm.dbs2 $calc(%dm.dbs4 - %dm.dbsacc2)
        if (%dm.dbs1 < 0) { goto retry1 }
        if (%dm.dbs2 < 0) { goto retry1 }
        set %dm.dbs $calc(%dm.dbs1 + %dm.dbs2)
        set %dm.p2hp2 $calc(%dm.p2hp - %dm.dbs)
        unset %dm.p2hp
        set %dm.p2hp %dm.p2hp2
        unset %dm.p2hp2
        unset %dm.turn
        if (%dm.p2hp < 1) { msg $chan 12 %dm.p1 hits a 4 %dm.dbs1 12 - 4 %dm.dbs2 12 with darkbow! This leaves %dm.p2 with 9 0 12 hp!
          goto bemline1
        }
        msg $chan 12 %dm.p1 hits a 4 %dm.dbs1 12 - 4 %dm.dbs2 12 with darkbow! This leaves %dm.p2 with 9 %dm.p2hp 12 hp!
        :bemline1
        if (%dm.p2hp < 1) { goto p1wins }
        set %dm.turn p2
        dec %dm.p1spec 3
        notice %dm.p1 You have %dm.p1spec specials left!
      }
    }
    if (1 == 2) {
      :p2
      if (%dm.p2spec < 3) { goto nospec }
      if (%dm.p2spec > 0) {
        :retry2
        unset %dm.dbs3
        unset %dm.dbs4
        unset %dm.dbsacc
        unset %dm.dbsacc2
        unset %dm.dbs 
        unset %dm.dbs1
        unset %dm.dbs2
        set %dm.dbs3 $rand(0,50)
        set %dm.dbs4 $rand(0,50)
        set %dm.dbsacc $rand(0,10)
        set %dm.dbsacc2 $rand(0,10)
        set %dm.dbs1 $calc(%dm.dbs3 - %dm.dbsacc)
        set %dm.dbs2 $calc(%dm.dbs4 - %dm.dbsacc2)
        if (%dm.dbs1 < 0) { goto retry2 }
        if (%dm.dbs2 < 0) { goto retry2 }
        set %dm.dbs $calc(%dm.dbs1 + %dm.dbs2)
        set %dm.p1hp2 $calc(%dm.p1hp - %dm.dbs)
        unset %dm.p1hp
        set %dm.p1hp %dm.p1hp2
        unset %dm.p1hp2
        unset %dm.turn
        if (%dm.p1hp < 1) { msg $chan 12 %dm.p2 hits a 4 %dm.dbs1 12 - 4 %dm.dbs2 12 with darkbow! This leaves %dm.p1 with 9 $calc(%dm.p1hp - %dm.dbs) 12 hp! 
          goto bemline2 
        }
        msg $chan 12 %dm.p2 hits a 4 %dm.dbs1 12 - 4 %dm.dbs2 12 with darkbow! This leaves %dm.p1 with 9 %dm.p1hp 12 hp!
        :bemline2
        if (%dm.p1hp < 1) { goto p2wins }
        set %dm.turn p1
        dec %dm.p2spec 3
        notice %dm.p2 You have %dm.p2spec specials left!
      }
    }
    if (1 == 2) {
      :p2wins
      msg $chan 4 %dm.p2 12 has beat4 %dm.p1 
      unset %dm.* 
    }
    if (1 == 2) { 
      :p1wins
      msg $chan 4 %dm.p1 12 has beat4 %dm.p2
      unset %dm.* 
    }
    if (1 == 2) {
      :nospec 
      notice $nick  You do not have enough special attack to do this!
    }
    if (1 == 2) {
      :pwnage
      unset %dm.g0dmode
      if ($nick == %dm.p2) {
        msg $chan 12 %dm.p2 hits a 4 99 12 - 4 99 12 with a darkbow spec! This leaves %dm.p1 with 9 0 12 hp!
        set %dm.p1hp2 $calc(%dm.p1hp - 297)
        unset %dm.p1hp
        set %dm.p1hp %dm.p1hp2
        unset %dm.p1hp2
        goto p2wins
      }
      if ($nick == %dm.p1) {
        msg $chan 12 %dm.p1 hits a 4 99 12 - 4 99 12 with a darkbow spec! This leaves %dm.p2 with 9 0 12 hp!
        set %dm.p2hp2 $calc(%dm.p2hp - 198)
        unset %dm.p2hp
        set %dm.p1hp %dm.p2hp2
        unset %dm.p2hp2
        goto p1wins
      }
    }
  }
}