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

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 :
  notice $nick ~dm Starts the DM. Will accept it if your the second player.
  notice $nick ~shark Uses a shark. You start with 20.
  notice $nick ~whip Attacks with whip. The most this can hit is 45.
  notice $nick ~dds Attacks with a DDS special. You start out with 4 special attacks, use them wiseley. The most this can hit is 30-30.
  notice $nick ~commands Shows the current command list.
  notice $nick ~status Shows your current hp, your opponets hp, how many sharks you have, and your special attack bar.
  notice $nick ~pass Will pass your turn onto the other player.
  notice $nick ~gmaul Uses 3 Granite Maul Special Attacks. This will use your full special attack bar.
}

on *:TEXT:~dm*:#: {
  unset %dm.chan
  if (%dm.inprogress == true) { goto ahole }
  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 $chan 12 %dm.p1 has requested a dm! type 4 ~dm 12 within 20 seconds to fight him!
    timer1 1 20 stopppping
  }
  if (1 == 2) {
    :player2
    if ($nick == %dm.p1) { goto owned }
    set %dm.p2 $nick 
    msg $chan 12 %dm.p2 has accepted %dm.p1 request for a deathmatch!
    /timer1 off
    begindm 
    set %dm.inprogress true
  }
  if (2 == 1) {
    :owned 
    msg $chan 12You can not fight yourself!
  }
  if (2 == 1) {
    :ahole
    notice $nick There is a dm already in progress!
  }
}

alias begindm { 
  set %dm.p1hp 99
  set %dm.p2hp 99
  set %dm.p1spec 4
  set %dm.p2spec 4
  set %dm.p1food 20
  set %dm.p2food 20
  msg %dm.chan 12Now randomly choosing who will go first! for DM commands type 4~commands
  set %chooseplayer $rand(1,2)
  if (%chooseplayer == 1) { goto p1starts }
  if (%chooseplayer == 2) { goto p2starts }
  if (1 == 2) {
    :p1starts
    msg $chan 4 %dm.p1 12 will go first!
    unset %dm.turn
    set %dm.turn p1 
  }
  if (1 == 2) {
    :p2starts
    msg $chan 4 %dm.p2 12 will go first!
    unset %dm.turn
    set %dm.turn p2 
  }
}

on *:TEXT:~status*:#: {
  if (%dm.on == active) {
    if ($nick == %dm.p1) { goto p1stats }
    if ($nick == %dm.p2) { goto p2stats }
    notice $nick you are not in the dm! 
    if {1 == 2) {
      :p1stats
      notice $nick ~stats for the current dm ~
      notice $nick Your health is %dm.p1hp
      notice $nick Your opponets health is %dm.p2hp
      notice $nick You have %dm.p1spec special attacks left
      notice $nick You have %dm.p1food sharks left.
    }
    if {1 == 2) {
      :p2stats
      notice $nick ~stats for the current dm ~
      notice $nick Your health is %dm.p2hp
      notice $nick Your opponets health is %dm.p1hp
      notice $nick You have %dm.p2spec special attacks left
      notice $nick You have %dm.p2food sharks left.
    }
  }
}


on *:TEXT:~whip*:#: {
  if (%dm.on == active) {
    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 
      :retrywhip
      unset %dm.whip1
      unset %dm.whipacc
      unset %dm.whip
      set %dm.whipacc $rand(0,15)
      set %dm.whip1 $rand(0,45)
      set %dm.whip $calc(%dm.whip1 - %dm.whipacc)
      if (%dm.whip < 0) { goto retrywhip }
      msg $chan 12 %dm.p1 hits a 4 %dm.whip  12with whip! This leaves %dm.p2 with 9 $calc(%dm.p2hp - %dm.whip) 12 hp!
      set %dm.p2hp2 $calc(%dm.p2hp - %dm.whip)
      unset %dm.p2hp
      set %dm.p2hp %dm.p2hp2
      unset %dm.p2hp2
      unset %dm.turn
      if (%dm.p2hp < 1) { goto p1wins }
      set %dm.turn p2
    }
    if (1 == 2) {
      :p2
      :retrywhip2
      unset %dm.whip1
      unset %dm.whipacc
      unset %dm.whip
      set %dm.whipacc $rand(0,15)
      set %dm.whip1 $rand(0,45)
      set %dm.whip $calc(%dm.whip1 - %dm.whipacc)
      if (%dm.whip < 0) { goto retrywhip2 }
      msg $chan 12 %dm.p2 hits a 4 %dm.whip  12with whip! This leaves %dm.p1 with 9 $calc(%dm.p1hp - %dm.whip) 12 hp!
      set %dm.p1hp2 $calc(%dm.p1hp - %dm.whip)
      unset %dm.p1hp
      set %dm.p1hp %dm.p1hp2
      unset %dm.p1hp2
      unset %dm.turn 
      if (%dm.p1hp < 1) { goto p2wins }
      set %dm.turn p1
    }
    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.* 
    }
  }
}

on *:TEXT:~dds*:#: {
  if (%dm.on == active) {
    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,15)
        set %dm.ddsacc2 $rand(0,15)
        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)
        msg $chan 12 %dm.p1 hits a 4 %dm.dds1 12 - 4 %dm.dds2 12 with dds! This leaves %dm.p2 with 9 $calc(%dm.p2hp - %dm.dds) 12 hp!
        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) { 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,15)
        set %dm.ddsacc2 $rand(0,15)
        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)
        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!
        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) { 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!
    }
  }
}

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) { goto toomuch }
      msg $chan 4 %dm.p1 12 eats a shark and heals 20 hp! His health is now 9 $calc(%dm.p1hp + 20)
      set %dm.p1hp2 $calc(%dm.p1hp + 20)
      unset %dm.p1hp
      set %dm.p1hp %dm.p1hp2
      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) { goto toomuch }
      msg $chan 4 %dm.p2 12 eats a shark and heals 20 hp! His health is now 9 $calc(%dm.p2hp + 20)
      set %dm.p2hp2 $calc(%dm.p2hp + 20)
      unset %dm.p2hp
      set %dm.p2hp %dm.p2hp2
      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.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) {
        :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 )
        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 $calc(%dm.p2hp - %dm.gmauldmg) 12 hp!
        set %dm.p2hp2 $calc(%dm.p2hp - %dm.gmauldmg)
        unset %dm.p2hp
        set %dm.p2hp %dm.p2hp2
        unset %dm.p2hp2
        unset %dm.turn
        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) {
      :p2 
      if (%dm.p2spec < 1) { goto nospec }
      if (%dm.p2spec > 0) {
        :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 )
        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 $calc(%dm.p1hp - %dm.gmauldmg) 12 hp!
        set %dm.p1hp2 $calc(%dm.p1hp - %dm.gmauldmg)
        unset %dm.p1hp
        set %dm.p1hp %dm.p1hp2
        unset %dm.p1hp2
        unset %dm.turn
        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!
    }
  }
}

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

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

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