rendered paste bodyon *:text:!duel*:#:{
if (%duel.2 == active) {
msg $chan a duel is already active please wait for it to end.
halt
}
if (%duel == active) {
if ($nick == %duel.player1) { .notice $nick You can't duel yourself! | halt }
if (%duel.player1 !ison $chan) { .notice $nick You can't duel someone on another channel. | halt }
else {
set %duel.player2 $nick
msg $chan Now dueling: $c2(%duel.player1) $c1(vs) $c2($+(%duel.player2,.))
msg $chan $c1(Both players have been equipped with:) $c2(!Whip, !Gmaul, !dds, !eat (20 sharks), !ice barrage (20 casts), and !dh.)
msg $chan $c1(Type) $c2(!spec) $c1(to check your special bar, and) $c2(!food) $c1(to check how many sharks you have left.)
msg $chan $c1(Type) $c2(!stake) $c1(to stake items!)
set %duel.2 active
set %duel.p1hp 99
set %duel.p2hp 99
set %duel.spec1 0
set %duel.spec2 0
set %duel.turn 1
set %duel.sharks1 20
set %duel.sharks2 20
set %duel.barrage1 20
set %duel.barrage2 20
}
}
else {
set %duel active
set %duel.player1 $nick
msg $chan $c2($nick) $c1(has initiated a duel! type) $c2(!duel) $c1(to challenge them!)
}
}
on *:text:!eat*:#:{
if ($nick == %duel.player1) {
var %heal1 = $iif(%duel.p1hp <= 80, 20, $calc(99 - %duel.p1hp))
inc %duel.p1hp %heal1
dec %duel.sharks1 1
msg $chan $c2(%duel.player1) $c1(eats a shark and gains) $c2(%heal1 hp.)
msg $chan $c2(%duel.player1) $c1(has) $c2($iif(%duel.p1hp <= 0, 0, %duel.p1hp) hp) $c1(left.)
}
elseif ($nick == %duel.player2) {
var %heal2 = $iif(%duel.p2hp <= 80, 20, $calc(99 - %duel.p2hp))
inc %duel.p2hp %heal2
dec %duel.sharks2 1
msg $chan $c2(%duel.player2) $c1(eats a shark and gains) $c2(%heal2 hp.)
msg $chan $c2(%duel.player2) $c1(has) $c2($iif(%duel.p2hp <= 0, 0, %duel.p2hp) hp) $c1(left.)
}
}
on *:text:!dds*:#:{
if (%duel.accept1 == off) || (%duel.accept2 == off) { .msg $chan $c1(Both combatants must accept or decline stake conditions before continuing.) | halt }
if (%duel.turn == 1) {
if ($nick == %duel.player1) {
if (%duel.spec1 == 4) { .notice $nick $c2(You are out of) $c1(special attack.) }
if (%duel.spec1 < 4) {
var %hit1 = $rand(0,35)
var %hit2 = $rand(0,35)
inc %duel.spec1
msg $chan $c2(%duel.player1) $c1(has hit) $c2($iif(%hit1 > %duel.p2hp, %duel.p2hp, %hit1)) $c1(and) $c2($+($iif($calc(%duel.p2hp - %hit1) <= 0, 0, $iif(%hit2 > $calc(%duel.p2hp - %hit1), $calc(%duel.p2hp - %hit1), %hit2)),.))
dec %duel.p2hp $calc(%hit1 + %hit2)
msg $chan $c2(%duel.player2) $c1(has) $c2($iif(%duel.p2hp <= 0, 0, %duel.p2hp) hp) $c1(left.)
set %duel.turn 2
}
if (%duel.p2hp <= 0) {
msg $chan $c2(%duel.player1) $c1(has defeated) $c2($+(%duel.player2,.))
.msg $chan $iif(%duel.stake2 != $null,$c2(%duel.player1) $c1(has won) $c2($+(%duel.stake2,!)),$c1(No stake was set.))
unset $+(%,duel,.,*)
unset %duel
}
}
}
else {
if (%duel.turn == 2) {
if ($nick == %duel.player2) {
if (%duel.spec2 == 4) { .notice $nick $c1(You are out of) $c2(special attack.) }
if (%duel.spec2 < 4) {
var %hit1 = $rand(0,35)
var %hit2 = $rand(0,35)
inc %duel.spec2
msg $chan $c2(%duel.player2) $c1(has hit) $c2($iif(%hit1 > %duel.p1hp, %duel.p1hp, %hit1)) $c1(and) $c2($+($iif($calc(%duel.p1hp - %hit1) <= 0, 0, $iif(%hit2 > $calc(%duel.p1hp - %hit1), $calc(%duel.p1hp - %hit1), %hit2)),.))
dec %duel.p1hp $calc(%hit1 + %hit2)
msg $chan $c2(%duel.player1) $c1(has) $c2($iif(%duel.p1hp <= 0, 0, %duel.p1hp) hp) $c1(left.)
set %duel.turn 1
}
if (%duel.p1hp <= 0) {
msg $chan $c2(%duel.player2) $c1(has defeated) $c2($+(%duel.player1,.))
.msg $chan $iif(%duel.stake1 != $null,$c2(%duel.player2) $c1(has won) $c2($+(%duel.stake1,!)),$c1(No stake was set.))
unset $+(%,duel,.,*)
unset %duel
}
}
}
}
}
on *:TEXT:!gmaul*:#:{
if (%duel.accept1 == off) || (%duel.accept2 == off) { .msg $chan $c1(Both combatants must accept or decline stake conditions before continuing.) | halt }
if (%duel.turn == 1) {
if ($nick == %duel.player1) {
if (%duel.spec1 => 1) { .notice $nick $c1(You do not have enough) $c2(special attack) $c1(to do that.) }
if (%duel.spec1 == 0) {
var %hit1 = $rand(0,32)
var %hit2 = $rand(0,32)
var %hit3 = $rand(0,32)
inc %duel.spec1 4
msg $chan $c2(%duel.player1) $c1(has hit) $c2($+($iif(%hit1 > %duel.p2hp, %duel.p2hp, %hit1)),$chr(44))) $c2($+($iif($calc(%duel.p2hp - %hit1) <= 0, 0, $iif(%hit2 > $calc(%duel.p2hp - %hit1), $calc(%duel.p2hp - %hit1), %hit2)),$chr(44))) $c1(and) $c2($+($iif($calc(%duel.p2hp - (%hit1 + %hit2)) <= 0, 0, $iif(%hit3 > $calc(%duel.p2hp - (%hit1 + %hit2)), $calc(%duel.p2hp - (%hit1 + %hit2)), %hit3)),.))
dec %duel.p2hp $calc(%hit1 + %hit2 + %hit3)
msg $chan $c2(%duel.player2) $c1(has) $c2($iif(%duel.p2hp <= 0, 0, %duel.p2hp) hp) $c1(left.)
set %duel.turn 2
}
if (%duel.p2hp <= 0) {
msg $chan $c2(%duel.player1) $c1(has defeated) $c2($+(%duel.player2,.))
.msg $chan $iif(%duel.stake2 != $null,$c2(%duel.player1) $c1(has won) $c2($+(%duel.stake2,!)),$c1(No stake was set.))
unset $+(%,duel,.,*)
unset %duel
}
}
}
else {
if (%duel.turn == 2) {
if ($nick == %duel.player2) {
if (%duel.spec2 => 1) { .notice $nick $c1(You do not have enough) $c2(special attack) $c1(to do that.) }
if (%duel.spec2 == 0) {
var %hit1 = $rand(0,32)
var %hit2 = $rand(0,32)
var %hit3 = $rand(0,32)
inc %duel.spec2 4
msg $chan $c2(%duel.player2) $c1(has hit) $c2($+($iif(%hit1 > %duel.p1hp, %duel.p1hp, %hit1)),$chr(44))) $c2($+($iif($calc(%duel.p1hp - %hit1) <= 0, 0, $iif(%hit2 > $calc(%duel.p1hp - %hit1), $calc(%duel.p1hp - %hit1), %hit2)),$chr(44))) $c1(and) $c2($+($iif($calc(%duel.p1hp - (%hit1 + %hit2)) <= 0, 0, $iif(%hit3 > $calc(%duel.p1hp - (%hit1 + %hit2)), $calc(%duel.p1hp - (%hit1 + %hit2)), %hit3)),.))
dec %duel.p1hp $calc(%hit1 + %hit2 + %hit3)
msg $chan $c2(%duel.player1) $c1(has) $c2($iif(%duel.p1hp <= 0, 0, %duel.p1hp) hp) $c1(left.)
set %duel.turn 1
}
if (%duel.p1hp <= 0) {
msg $chan $c2(%duel.player2) $c1(has defeated) $c2($+(%duel.player1,.))
.msg $chan $iif(%duel.stake1 != $null,$c2(%duel.player2) $c1(has won) $c2($+(%duel.stake1,!)),$c1(No stake was set.))
unset $+(%,duel,.,*)
unset %duel
}
}
}
}
}
on *:text:!whip*:#:{
if (%duel.accept1 == off) || (%duel.accept2 == off) { .msg $chan $c1(Both combatants must accept or decline stake conditions before continuing.) | halt }
if (%duel.turn == 1) {
if ($nick == %duel.player1) {
set %duel.turn 2
var %hit = $rand(0,40)
msg $chan $c2(%duel.player1) $c1(has hit a) $c2($+($iif(%hit > %duel.p2hp, %duel.p2hp, %hit),.))
dec %duel.p2hp %hit
msg $chan $c2(%duel.player2) $c1(has) $c2($iif(%duel.p2hp <= 0, 0, %duel.p2hp) hp) $c1(left.)
if (%duel.p2hp <= 0) {
msg $chan $c2(%duel.player1) $c1(has defeated) $c2($+(%duel.player2,.))
.msg $chan $iif(%duel.stake2 != $null,$c2(%duel.player1) $c1(has won) $c2($+(%duel.stake2,!)),$c1(No stake was set.))
unset $+(%,duel,.,*)
unset %duel
}
}
}
else {
if (%duel.turn == 2) {
if ($nick == %duel.player2) {
set %duel.turn 1
var %hit = $rand(0,40)
msg $chan $c2(%duel.player2) $c1(has hit a) $c2($+($iif(%hit > %duel.p1hp, %duel.p1hp, %hit),.))
dec %duel.p1hp %hit
msg $chan $c2(%duel.player1) $c1(has) $c2($iif(%duel.p1hp <= 0, 0, %duel.p1hp) hp) $c1(left.)
if (%duel.p1hp <= 0) {
msg $chan $c2(%duel.player2) $c1(has defeated) $c2($+(%duel.player1,.))
.msg $chan $iif(%duel.stake1 != $null,$c2(%duel.player2) $c1(has won) $c2($+(%duel.stake1,!)),$c1(No stake was set.))
unset $+(%,duel,.,*)
unset %duel
}
}
}
}
}
on *:text:!dh*:#:{
if (%duel.accept1 == off) || (%duel.accept2 == off) { .msg $chan $c1(Both combatants must accept or decline stake conditions before continuing.) | halt }
if (%duel.turn == 1) {
if ($nick == %duel.player1) {
set %duel.turn 2
var %dh = $rand(0,$calc(100 - %duel.p1hp))
msg $chan $c2(%duel.player1) $c1(has hit a) $c2($+($iif(%duel.p2hp > %dh, %dh, %duel.p2hp),.))
dec %duel.p2hp %dh
msg $chan $c2(%duel.player2) $c1(has) $c2($iif(%duel.p2hp <= 0, 0, %duel.p2hp) hp) $c1(left.)
if (%duel.p2hp <= 0) {
msg $chan $c2(%duel.player1) $c1(has defeated) $c2($+(%duel.player2,.))
.msg $chan $iif(%duel.stake2 != $null,$c2(%duel.player1) $c1(has won) $c2($+(%duel.stake2,!)),$c1(No stake was set.))
unset $+(%,duel,.,*)
unset %duel
}
}
}
if (%duel.turn == 2) {
if ($nick == %duel.player2) {
set %duel.turn 1
var %dh = $rand(0,$calc(100 - %duel.p2hp))
msg $chan $c2(%duel.player2) $c1(has hit a) $c2($iif(%duel.p1hp > %dh, %dh, %duel.p1hp))
dec %duel.p1hp %dh
msg $chan $c2(%duel.player1) $c1(has) $c2($iif(%duel.p1hp <= 0, 0, %duel.p1hp) hp) $c1(left.)
if (%duel.p1hp <= 0) {
msg $chan $c2(%duel.player2) $c1(has defeated) $c2($+(%duel.player1,.))
.msg $chan $iif(%duel.stake1 != $null,$c2(%duel.player2) $c1(has won) $c2($+(%duel.stake1,!)),$c1(No stake was set.))
unset $+(%,duel,.,*)
unset %duel
}
}
}
}
on *:text:!ice*:#:{
if ($2 == barrage) {
if (%duel.accept1 == off) || (%duel.accept2 == off) { .msg $chan $c1(Both combatants must accept or decline stake conditions before continuing.) | halt }
if (%duel.turn == 1) {
if ($nick == %duel.player1) {
set %duel.turn 2
dec %duel.barrage1 1
var %hit = $rand(0,30)
msg $chan $c2(%duel.player1) $c1(has hit a) $c2($+($iif(%hit > %duel.p2hp, %duel.p2hp, %hit),.))
$barrage
dec %duel.p2hp %hit
msg $chan $c2(%duel.player2) $c1(has) $c2($iif(%duel.p2hp <= 0, 0, %duel.p2hp) hp) $c1(left.)
if (%duel.p2hp <= 0) {
msg $chan $c2(%duel.player1) $c1(has defeated) $c2($+(%duel.player2,.))
.msg $chan $iif(%duel.stake2 != $null,$c2(%duel.player1) $c1(has won) $c2($+(%duel.stake2,!)),$c1(No stake was set.))
unset $+(%,duel,.,*)
unset %duel
}
}
}
else {
if (%duel.turn == 2) {
if ($nick == %duel.player2) {
set %duel.turn 1
dec %duel.barrage2 1
var %hit = $rand(0,30)
msg $chan $c2(%duel.player2) $c1(has hit a) $c2($+($iif(%hit > %duel.p1hp, %duel.p1hp, %hit),.))
$barrage
dec %duel.p1hp %hit
msg $chan $c2(%duel.player1) $c1(has) $c2($iif(%duel.p1hp <= 0, 0, %duel.p1hp) hp) $c1(left.)
if (%duel.p1hp <= 0) {
msg $chan $c2(%duel.player2) $c1(has defeated) $c2($+(%duel.player1,.))
.msg $chan $iif(%duel.stake1 != $null,$c2(%duel.player2) $c1(has won) $c2($+(%duel.stake1,!)),$c1(No stake was set.))
unset $+(%,duel,.,*)
unset %duel
}
}
}
}
}
}
on *:TEXT:!spec*:#:{
if ($nick == %duel.player1) {
if (%duel.spec1 == 0) { .notice $nick $c1(You have) $c2(A full) $c1(Special Attack bar.) $c2((4 specs left)) }
if (%duel.spec1 == 1) { .notice $nick $c1(You have) $c2(75%) $c1(of your Special Attack bar.) $c2((3 specs left)) }
if (%duel.spec1 == 2) { .notice $nick $c1(You have) $c2(50%) $c1(of your Special Attack bar.) $c2((2 specs left)) }
if (%duel.spec1 == 3) { .notice $nick $c1(You have) $c2(25%) $c1(of your Special Attack bar.) $c2((1 spec left)) }
elseif (%duel.spec1 == 4) { .notice $nick $c1(You have) $c2(no) $c1(Special Attack left.) }
}
else {
if ($nick == %duel.player2) {
if (%duel.spec2 == 0) { .notice $nick $c1(You have) $c2(A full) $c1(Special Attack bar.) $c2((4 specs left)) }
if (%duel.spec2 == 1) { .notice $nick $c1(You have) $c2(75%) $c1(of your Special Attack bar.) $c2((3 specs left)) }
if (%duel.spec2 == 2) { .notice $nick $c1(You have) $c2(50%) $c1(of your Special Attack bar.) $c2((2 specs left)) }
if (%duel.spec2 == 3) { .notice $nick $c1(You have) $c2(25%) $c1(of your Special Attack bar.) $c2((1 spec left)) }
elseif (%duel.spec2 == 4) { .notice $nick $c1(You have) $c2(no) $c1(Special Attack left.) }
}
}
}
on *:TEXT:!food*:#:{
if ($nick == %duel.player1) {
.notice $nick $c1(You currently have) $c2(%duel.sharks1) $c1(Sharks left.)
}
else {
if ($nick == %duel.player2) {
.notice $nick $c2(You currently have) $c1(%duel.sharks2) $c2(Sharks left.)
}
}
}
on *:TEXT:!forfeit*:#:{
if ($nick == %duel.player1) {
.msg $chan $c1(The duel has been forfeit by) $c2($+($nick,.))
.msg $chan $iif(%duel.stake2 != $null,$c2(%duel.player1) $c1(has won) $c2($+(%duel.stake2,!)),$c1(No stake was set.))
unset $+(%,duel,.,*)
unset %duel
}
elseif ($nick == %duel.player2) {
.msg $chan $c1(The duel has been forfeit by) $c2($+($nick,.))
.msg $chan $iif(%duel.stake1 != $null,$c2(%duel.player2) $c1(has won) $c2($+(%duel.stake1,!)),$c1(No stake was set.))
unset $+(%,duel,.,*)
unset %duel
}
}
on *:TEXT:!stake*:#:{
if (%duel.turn == 1) {
if ($nick == %duel.player1) {
set %duel.stake1 $2-
set %duel.accept1 off
.msg $chan $c2(%duel.player1) $c1(has offered a stake of) $c2($+(%duel.stake1,.))
set %duel.turn 2
}
else { .notice $nick $c2(It is not your turn.) }
}
else {
if (%duel.turn == 2) {
if ($nick == %duel.player2) {
set %duel.stake2 $2-
set %duel.accept2 off
.msg $chan $c2(%duel.player2) $c1(has offered a stake of) $c2($+(%duel.stake2,.))
set %duel.turn 1
}
else { .notice $nick $c2(It is not your turn.) }
}
}
}
on *:TEXT:!accept*:#:{
if (!%duel.stake1) || (!%duel.stake2) { .msg $chan There is no stake set. Continue duel. | halt }
if ($nick == %duel.player1) && (%duel.2 == active) {
.msg $chan $c2(%duel.player1) $c1(has accepted) $c2(%duel.player2 $+ 's) $c1(stake offer!)
set %duel.accept1
}
elseif ($nick == %duel.player2) && (%duel.2 == active) {
.msg $chan $c2(%duel.player2) $c1(has accepted) $c2(%duel.player1 $+ 's) $c1(stake offer!)
set %duel.accept2 on
}
else { halt }
}
on *:TEXT:!decline*:#:{
if ($nick == %duel.player1) && (%duel.2 == active) {
.msg $chan $c2(%duel.player1) $c1(has declined) $c2(%duel.player2 $+ 's) $c1(stake offer!)
.msg $chan $c1(The duel has been ended due to decline of terms.)
unset $+(%,duel,.,*)
unset %duel
}
elseif ($nick == %duel.player2) && (%duel.2 == active) {
.msg $chan $c2(%duel.player1) $c1(has declined) $c2(%duel.player2 $+ 's) $c1(stake offer!)
.msg $chan $c1(The duel has been ended due to decline of terms.)
unset $+(%,duel,.,*)
unset %duel
}
}
alias -l barrage {
if (%duel.turn == 2) {
var %freeze = $rand(0,4)
if (%freeze == 0) { set %duel.freeze1 on }
if (%freeze == 1) { set %duel.freeze1 on }
if (%freeze == 2) { set %duel.freeze1 off }
if (%freeze == 3) { set %duel.freeze1 off }
if (%freeze == 4) { set %duel.freeze1 off }
if (%duel.freeze1 == on) { .msg $chan $c2(%duel.player2) $c1(has been frozen! They can't attack!) | .set %duel.turn 1 }
}
elseif (%duel.turn == 1) {
var %freeze = $rand(0,4)
if (%freeze == 0) { set %duel.freeze2 on }
if (%freeze == 1) { set %duel.freeze2 on }
if (%freeze == 2) { set %duel.freeze2 off }
if (%freeze == 3) { set %duel.freeze2 off }
if (%freeze == 4) { set %duel.freeze2 off }
if (%duel.freeze2 == on) { .msg $chan $c2(%duel.player1) $c1(has been frozen! They can't attack!) | .set %duel.turn 2 }
}
}
alias -l c1 {
return $+($chr(3),01,$1-,$chr(3))
}
alias -l c2 {
return $+($chr(3),10,$1-,$chr(3))
}