Someone

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 07 $+ $nick 14has 07initiated 14a 07duel14, 07type 14!join 07to 14duel07 $nick $+ 14.
  }
}

on *:TEXT:!join*:#:{
  if ($me == [W]Bot) { 
    if (%aduel == on) {
      if ($nick == %dnick) { halt }
      msg $chan 07 $+ %dnick 14and07 $nick $+ 14, 07you 14have 07 $+ 4 14dds 07spec's14, 07good 14luck 07to 14both 07of 14you 07(14!whip07,14!dds07)      
      set %jnick $nick
      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) {       
      set %dds1 $rand(1,30)
      set %dds2 $rand(1,30)     
      if (%spec1 == 0) { notice $nick Your out of special attack energy | halt }
      msg $chan 07 $+ $nick 14hit07 %dds1 14 $+ %dds2 07on14 %jnick 
      dec %hp2 $calc(%dds1 + %dds2)
      dec %spec1 25
      msg $chan 07 $+ %jnick 14has 07 $+ %hp2 14left      
      if (%hp2 == 0) { msg $chan 07 $+ $nick 14has 07beaten14 %jnick $+ 07! | 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) {      
        set %dds1 $rand(1,30)
        set %dds2 $rand(1,30)          
        msg $chan 07 $+ $nick 14hit07 %dds1 14 $+ %dds2 07on14 %dnick 
        dec %hp1 $calc(%dds1 + %dds2)
        dec %spec2 25
        msg $chan 07 $+ %dnick 14has 07 $+ %hp1 14left         
        if (%hp1 == 0) { msg $chan 07 $+ $nick 14has 07beaten14 %dnick $+ 07! | 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 }
      set %whip $rand(1,38)     
      msg $chan 07 $+ $nick 14hit07 %whip 14on07 %jnick 
      dec %hp2 %whip
      msg $chan 07 $+ %jnick 14has 07 $+ %hp2 14left      
      if (%hp2 == 0) { msg $chan 07 $+ $nick 14has 07beaten14 %jnick $+ 07! | 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) {      
        set %whip $rand(1,38)      
        msg $chan 07 $+ $nick 14hit07 %whip 14on07 %dnick 
        dec %hp1 %whip
        msg $chan 07 $+ %dnick 14has 07 $+ %hp1 14left        
        if (%hp2 == 0) { msg $chan 07 $+ $nick 14has 07beaten14 %jnick $+ 07! | 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 07Your 14hp 07is14 %hp1 
    }
    else {
      if ($nick == %jnick) {
        if ($me == [W]Bot) {      
          notice $nick 07Your 14hp 07is14 %hp2 
        }
      }
    }
  }
}

on *:!end*:#:{
  if ($me == [W]Bot) {
    if ($nick isop $chan) {   
      msg $chan 07Duel 14ended 07by 14 $+ $nick $+ 14.      
      unset %dds1
      unset %dds2 
      unset %whip 
      unset %hp1 
      unset %hp2
      unset %spec1
      unset %spec2 
      unset %dnick
      unset %jnick
      set %aduel off
    }
  }
}

on *:TEXT:!duelhelp*:#:{
  msg $nick 07Duel 14Commands
  msg $nick 07!duel 14- 07Starts 14a 07duel14.
  msg $nick 07!join 14- 07Joins 14in 07a 14duel07.
  msg $nick 07!dds 14- 07Specs 14oppenent 07twice14,07 4 14specs07.
  msg $nick 07!whip 14- 07Attacks 14oppenent 07with 14whip07.
  msg $nick 07!hp 14- 07tells 14you 07your 14hp07.
  msg $nick 07End 14of 07Duel 14Commands
}