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
}