on *:TEXT!dm:#: {
  if (!%dm [ $+ [ $chan ] ]) {
    if (!%player1 [ $+ [ $chan ] ]) {
      set %player1 [ $+ [ $chan ] ] $nick
      set %sharks [ $+ [ $nick ] ] 10
      set %lobs [ $+ [ $nick ] ] 5
      set %spec [ $+ [ $nick ] ] 100
      set %runes [ $+ [ $nick ] ] 100
      set %hp [ $+ [ $nick ] ] 200
      set %turn [ $+ [ $chan ] ] $nick
      timerdm [ $+ [ $chan ] ] 1 60 unset %player1 
      timerdm2 [ $+ [ $chan ] ] 1 60 unset %dm [ $+ [ $chan ] ]
      timerdm4 [ $+ [ $chan ] ] 1 60 msg $chan Deathmatch ended
      msg $chan *^* [ DM ] You have 60 seconds to death match Demon. Type !DM if you're not a sissy!
    }
    else {
      set %player2 [ $+ [ $chan ] ] $nick
      set %sharks [ $+ [ $nick ] ] 10
      set %lobs [ $+ [ $nick ] ] 5
      set %spec [ $+ [ $nick ] ] 100
      set %runes [ $+ [ $nick ] ] 100
      set %hp [ $+ [ $nick ] ] 200
      timerdm [ $+ [ $chan ] ] off 
      timerdm2 [ $+ [ $chan ] ] off
      timerdm3 [ $+ [ $chan ] ] off
      msg $chan *^* [ DM ] Battle - %player1 Vs. %player2
      msg $chan *^* [ DM ] %player1 Go first! !DmCommands to see combat commands!
      notice %player1 You have 10 Sharks and 5 Lobbies. Use !shark or !lob to eat.
      notice %player1 You have 10 Sharks and 5 Lobbies. Use !shark or !lob to eat.
    }
  }
  else { 
    notice $nick DM already in progress.
  }
}

on *:TEXT:!shark:#: {
  if (%dm [ $+ [ $chan ] ]) {
    if ($nick == %turn [ $+ [ $chan ] ]) {
      if (%sharks [ $+ [ $nick ] ]) {
        inc %hp [ $+ [ $nick ] ] 25
        dec %sharks [ $+ [ $nick ] ]
        msg $chan $nick Ate a shark! New health - %hp [ $+ [ $nick ] ]
        if ($ nick == %player1 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] }
        if ($ nick == %player2 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] }
      }
      else { 
        notice $nick You have no sharks left!!
      }
    }
    else {
      notice $nick Its not your turn!!
    }
  }
  else {
    notice $nick There is no DM going on!!
  }
}

on *:TEXT:!lob:#: {
  if (%dm [ $+ [ $chan ] ]) {
    if ($nick == %turn [ $+ [ $chan ] ]) {
      if (%lobs [ $+ [ $nick ] ]) {
        inc %hp [ $+ [ $nick ] ] 12
        dec %lobs [ $+ [ $nick ] ]
        msg $chan $nick Ate a lobster! New health - %hp [ $+ [ $nick ] ]
        if ($ nick == %player1 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] }
        if ($ nick == %player2 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] }
      }
      else { 
        notice $nick You have no lobsters left!!
      }
    }
    else {
      notice $nick Its not your turn!!
    }
  }
  else {
    notice $nick There is no DM going on!!
  }
}

on *:TEXT:!daxe:#: {
  if (%dm [ $+ [ $chan ] ]) {
    if ($nick == %turn [ $+ [ $chan ] ]) {
      if (%freeze [ $+ [ $nick ] ]) { notice $nick You are frozen! Type !pass }
      if (%spec [ $+ [ $nick ] ] != 0) {
        set %damage [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,70),$rand(0,50))
        dec %hp [ $+ [ $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) ] ] %damage [ $+ [ $chan ] ]
        dec %spec [ $+ [ $nick ] ] 50
        msg $chan $nick hit $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) %damage [ $+ [ $chan ] ] with Dragon Axe! New health - %hp [ $+ [ $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) ] ]
        notice $nick Special remaining - %spec [ $+ [ $nick ] ]
        if ($ nick == %player1 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] }
        if ($ nick == %player2 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] }
      }
      else { 
        notice $nick You have no special left!!
      }
    }
    else {
      notice $nick Its not your turn!!
    }
  }
  else {
    notice $nick There is no DM going on!!
  }
}

on *:TEXT:!mage:#: {
  if (%dm [ $+ [ $chan ] ]) {
    if ($nick == %turn [ $+ [ $chan ] ]) {
      if (%freeze [ $+ [ $nick ] ]) { notice $nick You are frozen! Type !pass }
      if (%runes [ $+ [ $nick ] ] != 0) {
        set %damage [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,50),$rand(0,35))
        dec %hp [ $+ [ $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) ] ] %damage [ $+ [ $chan ] ]
        dec %runes [ $+ [ $nick ] ] 10
        msg $chan $nick hit $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) %damage [ $+ [ $chan ] ] with $read(spells.txt) $+ ! New health - %hp [ $+ [ $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) ] ]
        notice $nick Runes remaining - %runes [ $+ [ $nick ] ]
        if ($ nick == %player1 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] }
        if ($ nick == %player2 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] }
      }
      else { 
        notice $nick You have no runes left!!
      }
    }
    else {
      notice $nick Its not your turn!!
    }
  }
  else {
    notice $nick There is no DM going on!!
  }
}

on *:TEXT:!dds:#: {
  if (%dm [ $+ [ $chan ] ]) {
    if ($nick == %turn [ $+ [ $chan ] ]) {
      if (%freeze [ $+ [ $nick ] ]) { notice $nick You are frozen! Type !pass }
      if (%spec [ $+ [ $nick ] ] != 0) {
        set %damage [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,50),$rand(0,45))
        set %damage2 [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,50),$rand(0,45))
        dec %hp [ $+ [ $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) ] ] $calc(%damage [ $+ [ $chan ] ] + %damage2 [ $+ [ $chan ] ])
        dec %spec [ $+ [ $nick ] ] 25
        msg $chan $nick hit $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) %damage [ $+ [ $chan ] ] & %damage2 [ $+ [ $chan ] ] with Dragon dagger! New health - %hp [ $+ [ $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) ] ]
        notice $nick Special remaining - %spec [ $+ [ $nick ] ]
        if ($ nick == %player1 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] }
        if ($ nick == %player2 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] }
      }
      else { 
        notice $nick You have no special left!!
      }
    }
    else {
      notice $nick Its not your turn!!
    }
  }
  else {
    notice $nick There is no DM going on!!
  }
}

on *:TEXT:!dbow:#: {
  if (%dm [ $+ [ $chan ] ]) {
    if ($nick == %turn [ $+ [ $chan ] ]) {
      if (%freeze [ $+ [ $nick ] ]) { notice $nick You are frozen! Type !pass }
      if (%spec [ $+ [ $nick ] ] != 0) {
        set %damage [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,45),$rand(0,35))
        set %damage2 [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,45),$rand(0,35))
        dec %hp [ $+ [ $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) ] ] $calc(%damage [ $+ [ $chan ] ] + %damage2 [ $+ [ $chan ] ])
        dec %spec [ $+ [ $nick ] ] 75
        msg $chan $nick hit $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) %damage [ $+ [ $chan ] ] & %damage2 [ $+ [ $chan ] ] with Dark Bow! New health - %hp [ $+ [ $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) ] ]
        notice $nick Special remaining - %spec [ $+ [ $nick ] ]
        if ($ nick == %player1 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] }
        if ($ nick == %player2 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] }
      }
      else { 
        notice $nick You have no special left!!
      }
    }
    else {
      notice $nick Its not your turn!!
    }
  }
  else {
    notice $nick There is no DM going on!!
  }
}

on *:TEXT:!barrage:#: {
  if (%dm [ $+ [ $chan ] ]) {
    if ($nick == %turn [ $+ [ $chan ] ]) {
      if (%freeze [ $+ [ $nick ] ]) { notice $nick You are frozen! Type !pass }
      if (%runes [ $+ [ $nick ] ] != 0) {
        set %damage [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,50),$rand(0,30))
        set %loss [ $+ [ $chan ] ] $read(yes.txt)
        dec %hp [ $+ [ $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) ] ] %damage [ $+ [ $chan ] ]
        dec %runes [ $+ [ $nick ] ] 20
        msg $chan $nick hit $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) %damage [ $+ [ $chan ] ] with Ice Barrage $+ ! New health - %hp [ $+ [ $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) ] ] $iif(%loss == yes,set %freeze [ $+ [ $nick ] ] $nick | You lose a turn!,$null | halt )
        notice $nick Runes remaining - %runes [ $+ [ $nick ] ]
        if ($ nick == %player1 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] }
        if ($ nick == %player2 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] }
      }
      else { 
        notice $nick You have no runes left!!
      }
    }
    else {
      notice $nick Its not your turn!!
    }
  }
  else {
    notice $nick There is no DM going on!!
  }
}

on *:TEXT:!bbarrage:#: {
  if (%dm [ $+ [ $chan ] ]) {
    if ($nick == %turn [ $+ [ $chan ] ]) {
      if (%freeze [ $+ [ $nick ] ]) { notice $nick You are frozen! Type !pass }
      if (%runes [ $+ [ $nick ] ] != 0) {
        set %damage [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,35),$rand(0,29))
        set %heal [ $+ [ $chan ] ] $rand(0,%damage [ $+ [ $chan ] ])
        set %loss [ $+ [ $chan ] ] $read(yes.txt)
        dec %hp [ $+ [ $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) ] ] %damage [ $+ [ $chan ] ]
        dec %runes [ $+ [ $nick ] ] 40
        msg $chan $nick hit $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) %damage [ $+ [ $chan ] ] with Blood Barrage and healed %heal [ $+ [ $chan ] ] $+ ! New health - %hp [ $+ [ $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) ] ] $iif(%loss == yes,set %freeze [ $+ [ $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) | You lose a turn!,$null | halt )
        notice $nick Runes remaining - %runes [ $+ [ $nick ] ]
        if ($ nick == %player1 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] }
        if ($ nick == %player2 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] }
      }
      else { 
        notice $nick You have no runes left!!
      }
    }
    else {
      notice $nick Its not your turn!!
    }
  }
  else {
    notice $nick There is no DM going on!!
  }
}

on *:TEXT:!rc:#: {
  if (%dm [ $+ [ $chan ] ]) {
    if ($nick == %turn [ $+ [ $chan ] ]) {
      if (%freeze [ $+ [ $nick ] ]) { notice $nick You are frozen! Type !pass }
      if (%spec [ $+ [ $nick ] ] != 0) {
        set %damage [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,100),$rand(0,50))
        dec %hp [ $+ [ $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) ] ] %damage [ $+ [ $chan ] ]
        dec %spec [ $+ [ $nick ] ] 5
        msg $chan $nick hit $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) %damage [ $+ [ $chan ] ] with Rubber Chicken! New health - %hp [ $+ [ $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) ] ]
        notice $nick Special remaining - %spec [ $+ [ $nick ] ]
        if ($ nick == %player1 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] }
        if ($ nick == %player2 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] }
      }
      else { 
        notice $nick You have no special left!!
      }
    }
    else {
      notice $nick Its not your turn!!
    }
  }
  else {
    notice $nick There is no DM going on!!
  }
}

on *:TEXT:!guthan:#: {
  if (%dm [ $+ [ $chan ] ]) {
    if ($nick == %turn [ $+ [ $chan ] ]) {
      if (%freeze [ $+ [ $nick ] ]) { notice $nick You are frozen! Type !pass }
      if (%spec [ $+ [ $nick ] ] != 0) {
        set %damage [ $+ [ $chan ] ] $iif(%charge [ $+ [ $nick ] ],$rand(0,80),$rand(0,65))
        set %heal [ $+ [ $nick ] ] $rand(0,%damage [ $+ [ $chan ] ])
        dec %hp [ $+ [ $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) ] ] %damage [ $+ [ $chan ] ]
        dec %spec [ $+ [ $nick ] ] 50
        msg $chan $nick hit $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) %damage [ $+ [ $chan ] ] with Guthans and healed %heal [ $+ [ $chan ] ] $+ !! New health - %hp [ $+ [ $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) ] ] $iif(%loss == yes,set %freeze [ $+ [ $iif($nick == %player1 [ $+ [ $chan ] ],%player2 [ $+ [ $chan ] ],%player1 [ $+ [ $chan ] ]) | You lose a turn!,$null | halt )
        notice $nick Spec remaining - %runes [ $+ [ $nick ] ] | New health - %hp [ $+ [ $nick ] ]
        if ($ nick == %player1 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] }
        if ($ nick == %player2 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] }
      }
      else { 
        notice $nick You have no runes left!!
      }
    }
    else {
      notice $nick Its not your turn!!
    }
  }
  else {
    notice $nick There is no DM going on!!
  }
}

on *:TEXT:!charge:#: {
  if (%dm [ $+ [ $chan ] ]) {
    if ($nick == %turn [ $+ [ $chan ] ]) {
      set %charge [ $+ [ $nick ] ]
      inc %spec [ $+ [ $nick ] ] $rand(10,30)
      inc %hp [ $+ [ $nick ] ] $rand(5,20)
      msg $chan $nick is charging!  New health - %hp [ $+ [ $nick ] ]
      notice $nick Special remaining - %spec [ $+ [ $nick ] ]
      if ($ nick == %player1 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] }
      if ($ nick == %player2 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] }
    }
    else {
      notice $nick Its not your turn!!
    }
  }
  else {
    notice $nick There is no DM going on!!
  }
}

on *:TEXT:!pass:#: {
  if (%dm [ $+ [ $chan ] ]) {
    if ($nick == %turn [ $+ [ $chan ] ]) {
      if (%freeze [ $+ [ $nick ] ]) {
        msg $chan $nick is frozen and passed their turn!  Current health - %hp [ $+ [ $nick ] ]
        if ($ nick == %player1 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player2 [ $+ [ $chan ] ] }
        if ($ nick == %player2 [ $+ [ $chan ] ]) { set %turn [ $+ [ $chan ] ] %player1 [ $+ [ $chan ] ] }
      }
      else {
        notice $nick Its not your turn!!
      }
    }
    else { 
      notice $nick You are not frozen!
    }
  }
  else {
    notice $nick There is no DM going on!!
  }
}

on *:TEXT:!dmcommands:#: {
  if ($nick !isreg $chan) {
    msg $nick !shark - !lob - !dds - !mage - !barrage - !bbarrage - !daxe - !guth - !charge - !rc - !dbow - !babby - !love - !ch33t
  }
}