on *:TEXT:!*:#: {
  if ($1- == !dm) {
    if ((%dmstatus. [ $+ [ $chan ] ] != on) && (%dmstatus. [ $+ [ $chan ] ] != waiting)) {
      set $+(%,dmstatus.,$chan) waiting
      set $+(%,nick1.,$chan) $nick
      msg $chan A DM has been started! To DM $nick type !dm.
    }
    else {
      if (%dmstatus. [ $+ [ $chan ] ] == waiting) {
        timerwait1 off
        set $+(%,dmstatus.,$chan) on
        set $+(%,nick2.,$chan) $nick
        set $+(%,nick1hp.,$chan) 99
        set $+(%,nick2hp.,$chan) 99
        set $+(%,nick1spec.,$chan) 4
        set $+(%,nick2spec.,$chan) 4
        set $+(%,nick1shark.,$chan) 10
        set $+(%,nick2shark.,$chan) 10
        msg $chan The DM has begun! It is currently %nick1. [ $+ [ $chan ] ] VS. %nick2. [ $+ [ $chan ] ] $+ .
        msg $chan type !dmcommands to see the command list.
        if ($rand(1,2) == 2) {
          set $+(%,turn.,$chan) $nick
        }
        else {
          set $+(%,turn.,$chan) %nick1. [ $+ [ $chan ] ]
        }
        msg $chan It's %turn. [ $+ [ $chan ] ] $+ 's turn first!
      }
    }
    else {
      if ((%dmstatus. [ $+ [ $chan ] ] == on) || (%dmstatus. [ $+ [ $chan ] ] == waiting)) { {
          msg $chan A dm is currently in progress, please wait for this to finish.
        }
      }
    }
  }
  if ($1- == !dmcommands) {
    privmsg $nick DM commands:
    privmsg $nick !whip
    privmsg $nick !dds
    privmsg $nick !dh
    privmsg $nick !eat
    privmsg $nick !enddm
    privmsg $nick Written by [Adam]
  }
  if ($1- == !whip) {
    if (%dmstatus. [ $+ [ $chan ] ] == on) {
      if (%justdh. [ $+ [ $chan ] ] == $nick) {
        notice $nick You can only eat, due to the slowness of the axe, if you don't want to eat type !pass.
        halt
      }
      if (%turn. [ $+ [ $chan ] ] == $nick) {
        set $+(%,whiphit.,$chan) $rand(0,42)
        if (%turn. [ $+ [ $chan ] ] == %nick1. [ $+ [ $chan ] ]) {
          set $+(%,turnatm.,$chan) %turn. [ $+ [ $chan ] ]
          set $+(%,turnnotatm.,$chan) %nick2. [ $+ [ $chan ] ]
        }
        else {
          set $+(%,turnatm.,$chan) %turn. [ $+ [ $chan ] ]
          set $+(%,turnnotatm.,$chan) %nick1. [ $+ [ $chan ] ]
        }
        if ($rand(1,6) > 1) {
          msg $chan %turnatm. [ $+ [ $chan ] ] hits %whiphit. [ $+ [ $chan ] ] on %turnnotatm. [ $+ [ $chan ] ] $+ !
          if (%turnatm. [ $+ [ $chan ] ] == %nick1. [ $+ [ $chan ] ]) {
            set $+(%,nick2hp.,$chan) $calc( %nick2hp. [ $+ [ $chan ] ] - %whiphit. [ $+ [ $chan ] ] ) 
            if (%nick2hp. [ $+ [ $chan ] ] > 0) {
              msg $chan They now have %nick2hp. [ $+ [ $chan ] ] HP left.
            }
            else {
              set $+(%,enddm.,$chan) yes
            }
          }
          else {
            set $+(%,nick1hp.,$chan) $calc( %nick1hp. [ $+ [ $chan ] ] - %whiphit. [ $+ [ $chan ] ] )
            if (%nick1hp. [ $+ [ $chan ] ] > 0) {
              msg $chan They now have %nick1hp. [ $+ [ $chan ] ] HP left.
            }
            else {
              set $+(%,enddm.,$chan) yes
            }
          }
        }
        else {
          msg $chan You whip a 0, HAHA you miss!
        }
        set $+(%,temp1.,$chan) %turnatm. [ $+ [ $chan ] ]
        set $+(%,turnatm.,$chan) %turnnotatm. [ $+ [ $chan ] ]
        set $+(%,turnnotatm.,$chan) %temp1. [ $+ [ $chan ] ]
        set $+(%,turn.,$chan) %turnatm. [ $+ [ $chan ] ]
        unset %temp1. [ $+ [ $chan ] ]
      }
    }
  }
  if ($1- == !dds) {
    if (%dmstatus. [ $+ [ $chan ] ] == on) {
      if (%justdh. [ $+ [ $chan ] ] == $nick) {
        notice $nick You can only eat, due to the slowness of the axe, if you don't want to eat type !pass.
        halt
      }
      if (%turn. [ $+ [ $chan ] ] == $nick) {
        set $+(%,ddshit1.,$chan) $rand(0,31)
        set $+(%,ddshit2.,$chan) $rand(0,31)
        if ($rand(1,7) > 3) {
          set $+(%,ddshit1.,$chan) 0
        }
        if ($rand(1,7) > 3) {
          set $+(%,ddshit2.,$chan) 0
        }
        if (%turn. [ $+ [ $chan ] ] == %nick1. [ $+ [ $chan ] ]) {
          set $+(%,turnatm.,$chan) %turn. [ $+ [ $chan ] ]
          set $+(%,turnnotatm.,$chan) %nick2. [ $+ [ $chan ] ]
          if (%nick1spec. [ $+ [ $chan ] ] > 0) {
            dec %nick1spec. [ $+ [ $chan ] ]
          }
          else {
            notice $nick You have no more specs.
            halt
          }
        }
        else {
          set $+(%,turnatm.,$chan) %turn. [ $+ [ $chan ] ]
          set $+(%,turnnotatm.,$chan) %nick1. [ $+ [ $chan ] ]
          if (%nick2spec. [ $+ [ $chan ] ] > 0) {
            dec %nick2spec. [ $+ [ $chan ] ]
          }
          else {
            notice $nick You have no more specs.
            halt
          }
        }
        if (nothing == nothing) {
          msg $chan %turnatm. [ $+ [ $chan ] ] specs %ddshit1. [ $+ [ $chan ] ] $+ - $+ %ddshit2. [ $+ [ $chan ] ] on %turnnotatm. [ $+ [ $chan ] ] $+ !
          if (%turnatm. [ $+ [ $chan ] ] == %nick1. [ $+ [ $chan ] ]) {
            set $+(%,nick2hp.,$chan) $calc( %nick2hp. [ $+ [ $chan ] ] - %ddshit1. [ $+ [ $chan ] ] - %ddshit2. [ $+ [ $chan ] ] ) 
            if (%nick2hp. [ $+ [ $chan ] ] > 0) {
              msg $chan They now have %nick2hp. [ $+ [ $chan ] ] HP left.
              notice $nick You now have %nick1spec. [ $+ [ $chan ] ] specs left.
            }
            else {
              set $+(%,enddm.,$chan) yes
            }
          }
          else {
            set $+(%,nick1hp.,$chan) $calc( %nick1hp. [ $+ [ $chan ] ] - %ddshit1. [ $+ [ $chan ] ] - %ddshit2. [ $+ [ $chan ] ] )
            if (%nick1hp. [ $+ [ $chan ] ] > 0) {
              msg $chan They now have %nick1hp. [ $+ [ $chan ] ] HP left.
              notice $nick You now have %nick2spec. [ $+ [ $chan ] ] specs left.
            }
            else {
              set $+(%,enddm.,$chan) yes
            }
          }
        }
        else {
          ;msg $chan HAHA you miss!
        }
        set $+(%,temp1.,$chan) %turnatm. [ $+ [ $chan ] ]
        set $+(%,turnatm.,$chan) %turnnotatm. [ $+ [ $chan ] ]
        set $+(%,turnnotatm.,$chan) %temp1. [ $+ [ $chan ] ]
        set $+(%,turn.,$chan) %turnatm. [ $+ [ $chan ] ]
        unset %temp1. [ $+ [ $chan ] ]
      }
    }
  }
  if ($1- == !eat) {
    if (%dmstatus. [ $+ [ $chan ] ] == on) {
      if (%turn. [ $+ [ $chan ] ] == $nick) {
        if (%turn. [ $+ [ $chan ] ] == %nick1. [ $+ [ $chan ] ] ) {
          set $+(%,turnatm.,$chan) %nick1. [ $+ [ $chan ] ]
          set $+(%,turnnotatm.,$chan) %nick2. [ $+ [ $chan ] ]
          if (%nick1shark. [ $+ [ $chan ] ] > 0) {
            dec %nick1shark. [ $+ [ $chan ] ]
            set $+(%,nick1hp.,$chan) $calc( %nick1hp. [ $+ [ $chan ] ] + 20 )
            msg $chan $nick eats a shark.
            msg $chan $nick has %nick1hp. [ $+ [ $chan ] ] HP.
            notice $nick You have %nick1shark. [ $+ [ $chan ] ] sharks left.
          }
          else {
            notice $nick You have no more sharks.
          }
        }
        else {
          set $+(%,turnatm.,$chan) %nick2. [ $+ [ $chan ] ] 
          set $+(%,turnnotatm.,$chan) %nick1. [ $+ [ $chan ] ]
          if (%nick2shark. [ $+ [ $chan ] ] > 0) {
            dec %nick2shark. [ $+ [ $chan ] ]
            set $+(%,nick2hp.,$chan) $calc( %nick2hp. [ $+ [ $chan ] ] + 20 )
            msg $chan $nick eats a shark.
            msg $chan $nick has %nick2hp. [ $+ [ $chan ] ] HP.
            notice $nick You have %nick2shark. [ $+ [ $chan ] ] sharks left.
          }
          else {
            notice $nick You have no more sharks.
          }
        }
        set $+(%,temp1.,$chan) %turnatm. [ $+ [ $chan ] ]
        set $+(%,turnatm.,$chan) %turnnotatm. [ $+ [ $chan ] ]
        set $+(%,turnnotatm.,$chan) %temp1. [ $+ [ $chan ] ]
        set $+(%,turn.,$chan) %turnatm. [ $+ [ $chan ] ]
        unset %temp1. [ $+ [ $chan ] ]
      }
    }
    if (%justdh. [ $+ [ $chan ] ] == $nick) {
      unset %justdh. [ $+ [ $chan ] ]
    }
  }
  if ($1- == !dh) {
    if (%dmstatus. [ $+ [ $chan ] ] == on) {
      if (%justdh. [ $+ [ $chan ] ] == $nick) {
        notice $nick You can only eat, due to the slowness of the axe, if you don't want to eat type !pass.
        halt
      }
      if (%turn. [ $+ [ $chan ] ] == $nick) {
        if (%turn. [ $+ [ $chan ] ] == %nick1. [ $+ [ $chan ] ]) {
          set $+(%,turnatm.,$chan) %turn. [ $+ [ $chan ] ]
          set $+(%,turnnotatm.,$chan) %nick2. [ $+ [ $chan ] ]
          set $+(%,dhvar1.,$chan) $calc( 99 - %nick1hp. [ $+ [ $chan ] ] )
          if (%dhvar1. [ $+ [ $chan ] ] < 45) {
            set $+(%,dhmax.,$chan) $rand(0,45)
          }
          else {
            set $+(%,dhmax.,$chan) $rand(0,%dhvar1. [ $+ [ $chan ] ] )
          }
        }
        else {
          set $+(%,turnatm.,$chan) %turn. [ $+ [ $chan ] ]
          set $+(%,turnnotatm.,$chan) %nick1. [ $+ [ $chan ] ]
          set $+(%,dhvar1.,$chan) $calc( 99 - %nick2hp. [ $+ [ $chan ] ] )
          if (%dhvar1. [ $+ [ $chan ] ] < 45) {
            set $+(%,dhmax.,$chan) $rand(0,45)
          }
          else {
            set $+(%,dhmax.,$chan) $rand(0,%dhvar1. [ $+ [ $chan ] ] )
          }
        }
        if ($rand(1,5) > 1) {
          msg $chan %turnatm. [ $+ [ $chan ] ] slashes a %dhmax. [ $+ [ $chan ] ] on %turnnotatm. [ $+ [ $chan ] ] $+ !
          if (%turnatm. [ $+ [ $chan ] ] == %nick1. [ $+ [ $chan ] ]) {
            set $+(%,nick2hp.,$chan) $calc( %nick2hp. [ $+ [ $chan ] ] - %dhmax. [ $+ [ $chan ] ] ) 
            if (%nick2hp. [ $+ [ $chan ] ] > 0) {
              msg $chan They now have %nick2hp. [ $+ [ $chan ] ] HP left.
            }
            else {
              set $+(%,enddm.,$chan) yes
            }
          }
          else {
            set $+(%,nick1hp.,$chan) $calc( %nick1hp. [ $+ [ $chan ] ] - %dhmax. [ $+ [ $chan ] ] )
            if (%nick1hp. [ $+ [ $chan ] ] > 0) {
              msg $chan They now have %nick1hp. [ $+ [ $chan ] ] HP left.
            }
            else {
              set $+(%,enddm.,$chan) yes
            }
          }
        }
        else {
          msg $chan You slash a 0, HAHA you miss!
        }
        set $+(%,temp1.,$chan) %turnatm. [ $+ [ $chan ] ]
        set $+(%,turnatm.,$chan) %turnnotatm. [ $+ [ $chan ] ]
        set $+(%,turnnotatm.,$chan) %temp1. [ $+ [ $chan ] ]
        set $+(%,turn.,$chan) %turnatm. [ $+ [ $chan ] ]
        unset %temp1. [ $+ [ $chan ] ]
        set $+(%,justdh.,$chan) $nick
      }
    }
  }
  if ($1- == !pass) {
    if (%dmstatus. [ $+ [ $chan ] ] == on) {
      if (%turn. [ $+ [ $chan ] ] == $nick) {
        unset %justdh. [ $+ [ $chan ] ]
        set $+(%,temp1.,$chan) %turnatm. [ $+ [ $chan ] ]
        set $+(%,turnatm.,$chan) %turnnotatm. [ $+ [ $chan ] ]
        set $+(%,turnnotatm.,$chan) %temp1. [ $+ [ $chan ] ]
        set $+(%,turn.,$chan) %turnatm. [ $+ [ $chan ] ]
        unset %temp1. [ $+ [ $chan ] ]
        msg $chan $nick has just passed their turn.
      }
    }
  }
  if ((%enddm. [ $+ [ $chan ] ] == yes) || ($1 == !enddm)) {
    unset %*. [ $+ [ $chan ] ]
    msg $chan Game over.
  }
}