on *:TEXT:!duel*:#:{
  if ($me == [W]Bot) {
    if (%aduel == on) { halt | notice $nick I already have a duel active, sorry. }
    set %dnick $nick
    set %aduel On
    msg $chan $nick has initiated a duel, type !join to duel $nick
  }
}

on *:TEXT:!join*:#:{
  if ($me == [W]Bot) { 
    if (%aduel == on) {
      if ($nick == %dnick) { halt }
      set %jnick $nick
      set %dds1 $rand(1,30) 
      set %dds2 $rand(1,30)
      set %whip $rand(1,42)
      set %hp1 99
      set %hp2 99
      set %spec1 100
      set %spec2 100
    }
  }
}

on *:TEXT:!dds*:#:{
  if ($me == [W]Bot) {
    if (%aduel == off) { halt }    
    if ($nick == %dnick) {       
      if (%spec1 == 0) { notice $nick Your out of special attack energy | halt }
      msg $chan $nick hit %dds1 %dds2 on %jnick
      dec %hp2 $calc(%dds1 + %dds2)
      dec %spec1 25
      if (%hp2 == 0) { msg $chan $nick has beaten %jnick $+ ! | unset %dds1 | unset %dds2 | unset %whip | unset %hp1 | unset %hp2 | unset %spec1 | unset %spec2 | unset %dnick | unset %jnick | set %aduel off }
    }      
    else {
      if ($spec2 == 0) { notice $nick Your out of special attack energy | halt }
      if ($me == [W]Bot) {      
        msg $chan $nick hit %dds1 %dds2 on %jnick
        dec %hp1 $calc(%dds1 + %dds2)
        dec %spec2 25
        if (%hp1 == 0) { msg $chan $nick has beaten %dnick $+ ! | unset %dds1 | unset %dds2 | unset %whip | unset %hp1 | unset %hp2 | unset %spec1 | unset %spec2 | unset %dnick | unset %jnick | set %aduel off }
      }
    }
  }
}

on *:TEXT:!whip*:#:{
  if ($me == [W]Bot) {
    if ($nick == %dnick) { 
      if (%aduel == off) { halt }
      msg $chan $nick hit %whip on %jnick
      dec %hp2 %whip
      if (%hp2 == 0) { msg $chan $nick has beaten %jnick $+ ! | unset %dds1 | unset %dds2 | unset %whip | unset %hp1 | unset %hp2 | unset %spec1 | unset %spec2 | unset %dnick | unset %jnick | set %aduel off }
    }
    else {
      if (%aduel == off) { halt }
      if ($me == [W]Bot) {      
        msg $chan $nick hit %whip on %dnick
        dec %hp1 %whip
        if (%hp2 == 0) { msg $chan $nick has beaten %jnick $+ ! | unset %dds1 | unset %dds2 | unset %whip | unset %hp1 | unset %hp2 | unset %spec1 | unset %spec2 | unset %dnick | unset %jnick | set %aduel off }
      }
    }
  }
}

on *:TEXT:!hp*:#:{
  if ($nick == %dnick) {
    if ($me == [W]Bot) {    
      notice $nick Your hp is %hp1
    }
    else {
      if ($nick == %jnick) {
        if ($me == [W]Bot) {      
          notice $nick Your hp is %hp2
        }
      }
    }
  }
}

on *:TEXT:!duelhelp*:#:{
  msg $nick Duel Commands
  msg $nick !duel - Starts a duel
  msg $nick !join - Joins in a duel
  msg $nick !dds - Specs oppenent twice, 4 specs
  msg $nick !whip - Attacks oppenent with whip
  msg $nick !hp - tells you your hp
  msg $nick End of Duel Commands
}