rendered paste bodyalias c {
return $+($chr(3),10,$1-)
}
alias c2 {
return $+($chr(3),04,$1-)
}
alias enddm {
unset %Spec [ $+ [ %p1 ] ] %Spec [ $+ [ %p2 ] ]
unset %GetSpec [ $+ [ %p1 ] ] %GetSpec [ $+ [ %p2 ] ]
unset %Hp [ $+ [ %p1 ] ] %Hp [ $+ [ %p2 ] ]
unset %Food [ $+ [ %p1 ] ] %Food [ $+ [ %p2 ] ]
unset %Freeze [ $+ [ %p1 ] ] %Freeze [ $+ [ %p2 ] ]
unset %move [ $+ [ %p1 ] ] %move [ $+ [ %p2 ] ]
unset %p1 %p2
unset %DmChan [ $+ [ $chan ] ]
}
alias dmstats {
if ($1) {
if (%win [ $+ [ $1 ] ] == $null) { set %win [ $+ [ $1 ] ] 0 }
if (%loss [ $+ [ $1 ] ] == $null) { set %loss [ $+ [ $1 ] ] 0 }
return $c(Statistics for) $c2($1) $c(wins:) $c2(%win [ $+ [ $1 ] ]) $c(losses:) $c2(%loss [ $+ [ $1 ] ])
}
else {
if (%win [ $+ [ $nick ] ] == $null) { set %win [ $+ [ $nick ] ] 0 }
if (%loss [ $+ [ $nick ] ] == $null) { set %loss [ $+ [ $nick ] ] 0 }
return $c(Statistics for) $c2($nick) $c(wins:) $c2(%win [ $+ [ $nick ] ]) $c(losses:) $c2(%loss [ $+ [ $nick ] ])
}
}
on $*:TEXT:/^[!@\.]dmstat(s)?/Si:*:{
if ($chan isin $noscript) { halt }
var %iif $iif($left($1,1) == @, msg $chan, notice $nick)
if ($2) {
%iif $dmstats($2-)
}
else {
%iif $dmstats
}
}
on $*:TEXT:/^[!@\.]dmcommand(s)?/Si:#:{
$iif($left($1,1) == @, msg $chan , notice $nick) $c(The commands are:) $&
$c2(!Whip , !Dds , !Gmaul , !Dh , !Msb , !Cbow , !Xbow , !Dbow , !Barrage , !Eat , ![A,G,B,Z]gs , !Spec , !GetSpec , !Skip)
}
on *:TEXT:!dm*:#:{
if ($chan isin $noscript) { halt }
if ($chan == #3x) { halt }
if (%p1 != $null && %p2 != $null) { $c(Notice $nick theres already a game in progress!) | halt }
if (%p1 == $null && %p2 == $null) {
set %p1 $nick
msg $chan $c2($nick) $c(has intiated a dm!) $c2(!dm) $c(to accept his challenge!)
.timerDm 1 20 unset %p1
.timerDm2 1 20 msg $chan $c(no one has accepted) $c2($nick $+ 's) $c(challenge so the dm was cancelled!)
}
elseif (%p1 != $null && %p2 == $null) {
.timerDm off
.timerDm2 off
msg $chan $c2($nick) $c(has accepted!) $c2(%p1 $+ 's) $c(challenge!)
set %p2 $nick
set %Spec [ $+ [ %p1 ] ] 10
set %Spec [ $+ [ %p2 ] ] 10
set %GetSpec [ $+ [ %p1 ] ] 2
set %GetSpec [ $+ [ %p2 ] ] 2
set %Hp [ $+ [ %p1 ] ] 99
set %Hp [ $+ [ %p2 ] ] 99
set %Food [ $+ [ %p1 ] ] 15
set %Food [ $+ [ %p2 ] ] 15
set %DmChan [ $+ [ $chan ] ]
var %Start $rand(1,2)
if (%Start == 1) {
set %Move [ $+ [ %p1 ] ] on
msg $chan $c2(%p1) $c(starts!)
notice %p1 $c(its your turn!)
}
elseif (%Start == 2) {
set %Move [ $+ [ %p2 ] ] on
msg $chan $c2(%p2) $c(starts!)
notice %p2 $c(its your turn!)
}
}
}
on $*:TEXT:/^[!](end|halt)dm/Si:#:{
if ($chan isin $noscript) { halt }
if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2) || $nick == %p1 || $nick == %p2) {
msg $chan $c2($nick) $c(has stopped the dm!)
enddm
}
}
on *:PART:#:{
if ((%DmChan [ $+ [ $chan ] ] == $chan) && (%p1 == $nick || %p2 == $nick)) {
msg $chan $c2($nick) $c(has parted) $c2($chan) $c(so the dm has ended)
enddm
}
}
on *:TEXT:!whip*:#:{
if (%move [ $+ [ %p1 ] ] == on) {
if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { notice $nick $c(You are frozen!) | halt }
elseif ($nick == %p1) {
var %whip $rand(0,36)
dec %hp [ $+ [ %p2 ] ] %whip
if (%hp [ $+ [ %p2 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%whip) $c(with his) $c2(whip) $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p1 ] ] 1
inc %loss [ $+ [ %p2 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p2 ] ] > 0) {
msg $chan $c2($nick) $c(has hit) $c2(%whip $c(with his) $c2(whip) ) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
notice %p2 $c(its your turn!)
set %move [ $+ [ %p2 ] ] on
unset %move [ $+ [ %p1 ] ]
}
}
}
elseif (%move [ $+ [ %p2 ] ] == on) {
if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { notice $nick $c(You are frozen!) | halt }
elseif ($nick == %p2) {
var %whip $rand(0,36)
dec %hp [ $+ [ %p1 ] ] %whip
if (%hp [ $+ [ %p1 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%whip) $c(with his) $c2(whip) $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p2 ] ] 1
inc %loss [ $+ [ %p1 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p1 ] ] > 0) {
msg $chan $c2($nick) $c(has hit) $c2(%whip) $c(with his) $c2(whip) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
notice %p1 $c(its your turn!)
set %move [ $+ [ %p1 ] ] on
unset %move [ $+ [ %p2 ] ]
}
}
}
}
on $*:TEXT:/^[!](dds|drag dagger|dd)/Si:#:{
if (%move [ $+ [ %p1 ] ] == on) {
if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { notice $nick $c(You are frozen!) | halt }
if (%Spec [ $+ [ %p1 ] ] < 2.5 && $nick == %p1) { notice $nick $c(You dont have enough special left!) | halt }
elseif ($nick == %p1) {
var %dds $rand(0,27)
var %dds1 $rand(0,27)
dec %hp [ $+ [ %p2 ] ] $calc( %dds + %dds1 )
dec %Spec [ $+ [ %p1 ] ] 2.5
if (%hp [ $+ [ %p2 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%dds) $c(and) $c2(%dds1) $c(with his) $c2(dds) $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p1 ] ] 1
inc %loss [ $+ [ %p2 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p2 ] ] > 0) {
notice %p1 $c(you have) $c2($calc(10 * %Spec [ $+ [ %p1 ] ] ) $+ %) $c(Special left)
msg $chan $c2($nick) $c(has hit) $c2(%dds) $c(and) $c2(%dds1) $c(with his) $c2(dds) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
notice %p2 $c(its your turn!)
set %move [ $+ [ %p2 ] ] on
unset %move [ $+ [ %p1 ] ]
}
}
}
elseif (%move [ $+ [ %p2 ] ] == on) {
if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { notice $nick $c(You are frozen!) | halt }
if (%Spec [ $+ [ %p2 ] ] < 2.5 && $nick == %p2) { notice $nick $c(You dont have enough special left!) | halt }
elseif ($nick == %p2) {
var %dds $rand(0,27)
var %dds1 $rand(0,27)
dec %hp [ $+ [ %p1 ] ] $calc( %dds + %dds1 )
dec %Spec [ $+ [ %p2 ] ] 2.5
if (%hp [ $+ [ %p1 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%dds) $c(and) $c2(%dds1) $c(with his) $c2(dds) $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p2 ] ] 1
inc %loss [ $+ [ %p1 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p1 ] ] > 0) {
notice %p1 $c(you have) $c2($calc(10 * %Spec [ $+ [ %p2 ] ] ) $+ %) $c(Special left)
msg $chan $c2($nick) $c(has hit) $c2(%dds) $c(and) $c2(%dds1) $c(with his) $c2(dds) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
notice %p1 $c(its your turn!)
set %move [ $+ [ %p1 ] ] on
unset %move [ $+ [ %p2 ] ]
}
}
}
}
on $*:TEXT:/^[!](dh|gaxe|dharok)/Si:#:{
if (%move [ $+ [ %p1 ] ] == on) {
if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { notice $nick $c(You are frozen!) | halt }
elseif ($nick == %p1) {
if (%hp [ $+ [ %p1 ] ] > 25) {
var %dh $rand(0,35)
dec %hp [ $+ [ %p2 ] ] %dh
if (%hp [ $+ [ %p2 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%dh) $c(with his) $c2(dharoks) $c(on) $c2(%p2 , %p2) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p1 ] ] 1
inc %loss [ $+ [ %p2 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p1 ] ] > 0) {
msg $chan $c2($nick) $c(has hit) $c2(%dh) $c(with his) $c2(dharoks) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
notice %p2 $c(its your turn!)
set %move [ $+ [ %p2 ] ] on
unset %move [ $+ [ %p1 ] ]
}
}
elseif (%hp [ $+ [ %p1 ] ] < 25) {
var %dh $rand(0,65)
dec %hp [ $+ [ %p2 ] ] %dh
if (%hp [ $+ [ %p2 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%dh) $c(with his) $c2(dharoks) $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p1 ] ] 1
inc %loss [ $+ [ %p2 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p1 ] ] > 0) {
msg $chan $c2($nick) $c(has hit) $c2(%dh) $c(with his) $c2(dharoks) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
notice %p2 $c(its your turn!)
set %move [ $+ [ %p2 ] ] on
unset %move [ $+ [ %p1 ] ]
}
}
}
}
elseif (%move [ $+ [ %p2 ] ] == on) {
if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { notice $nick $c(You are frozen!) | halt }
elseif ($nick == %p2) {
if (%hp [ $+ [ %p2 ] ] > 25) {
var %dh $rand(0,35)
dec %hp [ $+ [ %p1 ] ] %dh
if (%hp [ $+ [ %p1 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%dh) $c(with his) $c2(dharoks) $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p2 ] ] 1
inc %loss [ $+ [ %p1 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p1 ] ] > 0) {
msg $chan $c2($nick) $c(has hit) $c2(%dh) $c(with his) $c2(dharoks) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
notice %p1 $c(its your turn!)
set %move [ $+ [ %p1 ] ] on
unset %move [ $+ [ %p2 ] ]
}
}
elseif (%hp [ $+ [ %p2 ] ] < 25) {
var %dh $rand(0,65)
dec %hp [ $+ [ %p1 ] ] %dh
if (%hp [ $+ [ %p1 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%dh) $c(with his) $c2(dharoks) $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p2 ] ] 1
inc %loss [ $+ [ %p1 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p2 ] ] > 0) {
msg $chan $c2($nick) $c(has hit) $c2(%dh) $c(with his) $c2(dharoks) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
notice %p1 $c(its your turn!)
set %move [ $+ [ %p1 ] ] on
unset %move [ $+ [ %p2 ] ]
}
}
}
}
}
on $*:TEXT:/^[!](msb|short|bow)/Si:#:{
if (%move [ $+ [ %p1 ] ] == on) {
if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
if (%Spec [ $+ [ %p1 ] ] < 5 && $nick == %p1) { notice $nick $c(You dont have enough special for that!) | halt }
if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) {
unset %Freeze [ $+ [ %p1 ] ]
notice $nick $c(You have been unfrozen!)
}
if ($nick == %p1) {
var %msb $rand(0,23)
var %msb1 $rand(0,23)
dec %hp [ $+ [ %p2 ] ] $calc( %msb + %msb1 )
dec %Spec [ $+ [ %p1 ] ] 5
if (%hp [ $+ [ %p2 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%msb) $c(and) $c2(%msb1) $c(with his) $c2(mage short bow) $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p1 ] ] 1
inc %loss [ $+ [ %p2 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p2 ] ] > 0) {
notice %p1 $c(you have) $c2($calc(10 * %Spec [ $+ [ %p1 ] ] ) $+ %) $c(Special left)
msg $chan $c2($nick) $c(has hit) $c2(%msb) $c(and) $c2(%msb1) $c(with his) $c2(mage short bow) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
notice %p2 $c(its your turn!)
set %move [ $+ [ %p2 ] ] on
unset %move [ $+ [ %p1 ] ]
}
}
}
elseif (%move [ $+ [ %p2 ] ] == on) {
if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
if (%Spec [ $+ [ %p2 ] ] < 5 && $nick == %p2) { notice $nick $c(You dont have enough special for that!) | halt }
if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) {
unset %Freeze [ $+ [ %p2 ] ]
notice $nick $c(You have been unfrozen!)
}
if ($nick == %p2) {
var %dbow $rand(0,23)
var %dbow1 $rand(0,23)
dec %hp [ $+ [ %p1 ] ] $calc( %msb + %msb1 )
dec %Spec [ $+ [ %p2 ] ] 5
if (%hp [ $+ [ %p1 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%msb) $c(and) $c2(%msb1) $c(with his) $c2(mage short bow) $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p2 ] ] 1
inc %loss [ $+ [ %p1 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p1 ] ] > 0) {
notice %p2 $c(you have) $c2($calc(10 * %Spec [ $+ [ %p2 ] ] ) $+ %) $c(Special left)
msg $chan $c2($nick) $c(has hit) $c2(%msb) $c(and) $c2(%msb1) $c(with his) $c2(mage short bow) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
notice %p1 $c(its your turn!)
set %move [ $+ [ %p1 ] ] on
unset %move [ $+ [ %p2 ] ]
}
}
}
}
on $*:TEXT:/^[!](dbow|darkbow)/Si:#:{
if (%move [ $+ [ %p1 ] ] == on) {
if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
if (%Spec [ $+ [ %p1 ] ] < 7.5 && $nick == %p1) { notice $nick $c(You dont have enough special for that!) | halt }
if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) {
unset %Freeze [ $+ [ %p1 ] ]
notice $nick $c(You have been unfrozen!)
}
if ($nick == %p1) {
var %dbow $rand(0,36)
var %dbow1 $rand(0,36)
dec %hp [ $+ [ %p2 ] ] $calc( %dbow + %dbow1 )
dec %Spec [ $+ [ %p1 ] ] 7.5
if (%hp [ $+ [ %p2 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%dbow) $c(and) $c2(%dbow1) $c(with his) $c2(dark bow) $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p1 ] ] 1
inc %loss [ $+ [ %p2 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p2 ] ] > 0) {
notice %p1 $c(you have) $c2($calc(10 * %Spec [ $+ [ %p1 ] ] ) $+ %) $c(Special left)
msg $chan $c2($nick) $c(has hit) $c2(%dbow) $c(and) $c2(%dbow1) $c(with his) $c2(dark bow) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
notice %p2 $c(its your turn!)
set %move [ $+ [ %p2 ] ] on
unset %move [ $+ [ %p1 ] ]
}
}
}
elseif (%move [ $+ [ %p2 ] ] == on) {
if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
if (%Spec [ $+ [ %p2 ] ] < 7.5 && $nick == %p2) { notice $nick $c(You dont have enough special for that!) | halt }
if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) {
unset %Freeze [ $+ [ %p2 ] ]
notice $nick $c(You have been unfrozen!)
}
if ($nick == %p2) {
var %dbow $rand(0,36)
var %dbow1 $rand(0,36)
dec %hp [ $+ [ %p1 ] ] $calc( %dbow + %dbow1 )
dec %Spec [ $+ [ %p2 ] ] 7.5
if (%hp [ $+ [ %p1 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%dbow) $c(and) $c2(%dbow1) $c(with his) $c2(dark bow) $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p2 ] ] 1
inc %loss [ $+ [ %p1 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p1 ] ] > 0) {
notice %p2 $c(you have) $c2($calc(10 * %Spec [ $+ [ %p2 ] ] ) $+ %) $c(Special left)
msg $chan $c2($nick) $c(has hit) $c2(%dbow) $c(and) $c2(%dbow1) $c(with his) $c2(dark bow) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
notice %p1 $c(its your turn!)
set %move [ $+ [ %p1 ] ] on
unset %move [ $+ [ %p2 ] ]
}
}
}
}
on $*:TEXT:/^[!](gmaul|maul)/Si:#:{
if (%move [ $+ [ %p1 ] ] == on) {
if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { notice $nick $c(You are frozen!) | halt }
if (%Spec [ $+ [ %p1 ] ] != 10 && %p1 == $nick) { notice $nick $c(You dont have enough special for that!) | halt }
elseif ($nick == %p1) {
var %gmaulx $rand(0,23)
var %gmauly $rand(0,23)
var %gmaulz $rand(0,23)
dec %hp [ $+ [ %p2 ] ] $calc( %gmaulx + %gmauly + %gmaulz )
dec %Spec [ $+ [ %p1 ] ] 10
if (%hp [ $+ [ %p2 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%gmaulx $chr(44) %gmauly) $c(and) $c2(%gmaulz) $c(with his) $c2(granite maul) $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p1 ] ] 1
inc %loss [ $+ [ %p2 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p2 ] ] > 0) {
notice %p1 $c(you have) $c2($calc(10 * %Spec [ $+ [ %p1 ] ] ) $+ %) $c(Special left)
msg $chan $c2($nick) $c(has hit) $c2(%gmaulx $chr(44) %gmauly) $c(and) $c2(%gmaulz) $c(with his) $c2(granite maul) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
notice %p2 $c(its your turn!)
set %move [ $+ [ %p2 ] ] on
unset %move [ $+ [ %p1 ] ]
}
}
}
elseif (%move [ $+ [ %p2 ] ] == on) {
if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { notice $nick $c(You are frozen!) | halt }
if (%Spec [ $+ [ %p2 ] ] != 10 && %p2 == $nick) { notice $nick $c(You dont have enough special for that!) | halt }
elseif ($nick == %p2) {
var %gmaulx $rand(0,23)
var %gmauly $rand(0,23)
var %gmaulz $rand(0,23)
dec %hp [ $+ [ %p1 ] ] $calc( %gmaulx + %gmauly + %gmaulz )
dec %Spec [ $+ [ %p2 ] ] 10
if (%hp [ $+ [ %p1 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%gmaulx $chr(44) %gmauly) $c(and) $c2(%gmaulz) $c(with his) $c2(granite maul) $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p2 ] ] 1
inc %loss [ $+ [ %p1 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p1 ] ] > 0) {
notice %p1 $c(you have) $c2($calc(10 * %Spec [ $+ [ %p2 ] ] ) $+ %) $c(Special left)
msg $chan $c2($nick) $c(has hit) $c2(%gmaulx $chr(44) %gmauly) $c(and) $c2(%gmaulz) $c(with his) $c2(granite maul) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
notice %p1 $c(its your turn!)
set %move [ $+ [ %p1 ] ] on
unset %move [ $+ [ %p2 ] ]
}
}
}
}
on $*:TEXT:/^[!](barrage|blitz|ice)/Si:#:{
if (%move [ $+ [ %p1 ] ] == on) {
if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
if (%Spec [ $+ [ %p1 ] ] < 7.5 && $nick == %p1) { notice $nick $c(You dont have enough special for that!) | halt }
if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) {
unset %Freeze [ $+ [ %p1 ] ]
notice $nick $c(You have been unfrozen!)
}
if ($nick == %p1) {
var %Barrage $rand(0,30)
var %bFreeze $rand(1,3)
dec %hp [ $+ [ %p2 ] ] %Barrage
if (%hp [ $+ [ %p2 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%barrage) $c(with) $c2($iif($1 == !ice , ice barrage,ice $remove($1,$left($1,1))) $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p1 ] ] 1
inc %loss [ $+ [ %p2 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p2 ] ] > 0) && (%bFreeze == 3) {
set %Freeze [ $+ [ %p2 ] ] on
msg $chan $c2($nick) $c(has hit) $c2(%barrage) $c(with) $c2($iif($1 == !ice , ice barrage,ice $remove($1,$left($1,1)))) $c(on) $c2(%p2 $chr(44) %p2 is frozen for one round!) $&
$c2($chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
notice %p2 $c(its your turn, and you are) $c2(frozen!)
set %move [ $+ [ %p2 ] ] on
unset %move [ $+ [ %p1 ] ]
}
elseif (%hp [ $+ [ %p2 ] ] > 0) && (%bFreeze != 3) {
msg $chan $c2($nick) $c(has hit) $c2(%barrage) $c(with) $c2($iif($1 == !ice , ice barrage,ice $remove($1,$left($1,1)))) $c(on) $c2(%p2 $chr(44) %p2 didnt get frozen!) $&
$c2($chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
notice %p2 $c(its your turn)
set %move [ $+ [ %p2 ] ] on
unset %move [ $+ [ %p1 ] ]
}
}
}
elseif (%move [ $+ [ %p2 ] ] == on) {
if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
if (%Spec [ $+ [ %p2 ] ] < 7.5 && $nick == %p2) { notice $nick $c(You dont have enough special for that!) | halt }
if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) {
unset %Freeze [ $+ [ %p2 ] ]
notice $nick $c(You have been unfrozen!)
}
if ($nick == %p2) {
var %Barrage $rand(0,30)
var %bFreeze $rand(1,3)
dec %hp [ $+ [ %p1 ] ] %Barrage
if (%hp [ $+ [ %p1 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%barrage) $c(with) $c2($iif($1 == !ice , ice barrage,ice $remove($1,$left($1,1)))) $c(on) $c1(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p2 ] ] 1
inc %loss [ $+ [ %p1 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p1 ] ] > 0) && (%bFreeze == 3) {
set %Freeze [ $+ [ %p1 ] ] on
msg $chan $c2($nick) $c(has hit) $c2(%barrage) $c(with) $c2($iif($1 == !ice , ice barrage,ice $remove($1,$left($1,1)))) $c(on) $c2(%p1 $chr(44) %p1 is frozen for one round!) $&
$c2($chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
notice %p1 $c(its your turn, and you are) $c2(frozen!)
set %move [ $+ [ %p1 ] ] on
unset %move [ $+ [ %p2 ] ]
}
elseif (%hp [ $+ [ %p1 ] ] > 0) && (%bFreeze != 3) {
msg $chan $c2($nick) $c(has hit) $c2(%barrage) $c(with) $c2($iif($1 == !ice , ice barrage,ice $remove($1,$left($1,1)))) $c(on) $c2(%p1 $chr(44) %p1 didnt get frozen!) $&
$c2($chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
notice %p1 $c(its your turn)
set %move [ $+ [ %p1 ] ] on
unset %move [ $+ [ %p2 ] ]
}
}
}
}
on $*:TEXT:/^[!](cbow|xbow)/Si:#:{
if (%move [ $+ [ %p1 ] ] == on) {
if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) {
notice $nick $c(You have been unfrozen!)
unset %Freeze [ $+ [ %p1 ] ]
}
elseif ($nick == %p1) {
var %xbow $rand(0,24)
dec %hp [ $+ [ %p2 ] ] %whip
if (%hp [ $+ [ %p2 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%xbow) $c(with his) $c2($remove($1,$left($1,1))) $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p1 ] ] 1
inc %loss [ $+ [ %p2 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p2 ] ] > 0) {
msg $chan $c2($nick) $c(has hit) $c2(%xbow) $c(with his) $c2($remove($1,$left($1,1))) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
notice %p2 $c(its your turn!)
set %move [ $+ [ %p2 ] ] on
unset %move [ $+ [ %p1 ] ]
}
}
}
elseif (%move [ $+ [ %p2 ] ] == on) {
if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) {
notice $nick $c(you been unfrozen)
unset %Freeze [ $+ [ %p2 ] ]
}
elseif ($nick == %p2) {
var %xbow $rand(0,24)
dec %hp [ $+ [ %p1 ] ] %whip
if (%hp [ $+ [ %p1 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%xbow) $c(with his) $c2($remove($1,$left($1,1))) $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p2 ] ] 1
inc %loss [ $+ [ %p1 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p1 ] ] > 0) {
msg $chan $c2($nick) $c(has hit) $c2(%xbow) $c(with his) $c2($remove($1,$left($1,1))) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
notice %p1 $c(its your turn!)
set %move [ $+ [ %p1 ] ] on
unset %move [ $+ [ %p2 ] ]
}
}
}
}
on $*:TEXT:/^[!](eat|food|shark)/Si:#:{
if (%move [ $+ [ %p1 ] ] == on) {
if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
if (%Food [ $+ [ %p1 ] ] == 0) { notice $nick $c(You are out of food!) | halt }
if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) {
notice $nick $c(You have been unfrozen!)
unset %Freeze [ $+ [ %p1 ] ]
}
elseif ($nick == %p1) {
inc %hp [ $+ [ %p1 ] ] 20
dec %Food [ $+ [ %p1 ] ] 1
if (%hp [ $+ [ %p1 ] ] > 99) { set %hp [ $+ [ %p1 ] ] 99 }
notice $nick $c(You have) $c2(%Food [ $+ [ %p1 ] ]) $c(Sharks left.)
msg $chan $c2($nick) $c(has eaten) $c(a shark! he now has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp)
notice %p2 $c(its your turn)
set %move [ $+ [ %p2 ] ] on
unset %move [ $+ [ %p1 ] ]
}
}
elseif (%move [ $+ [ %p2 ] ] == on) {
if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
if (%Food [ $+ [ %p2 ] ] == 0) { notice $nick $c(You are out of food!) | halt }
if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) {
notice $nick $c(You have been unfrozen!)
unset %Freeze [ $+ [ %p2 ] ]
}
elseif ($nick == %p2) {
inc %hp [ $+ [ %p2 ] ] 20
dec %Food [ $+ [ %p2 ] ] 1
if (%hp [ $+ [ %p2 ] ] > 99) { set %hp [ $+ [ %p2 ] ] 99 }
notice $nick $c(You have) $c2(%Food [ $+ [ %p2 ] ]) $c(Sharks left.)
msg $chan $c2($nick) $c(has eaten) $c(a shark! he now has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp)
notice %p2 $c(its your turn)
set %move [ $+ [ %p1 ] ] on
unset %move [ $+ [ %p2 ] ]
}
}
}
on *:TEXT:!sgs*:#:{
if (%move [ $+ [ %p1 ] ] == on) {
if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { notice $nick $c(You are frozen!) | halt }
if (%Spec [ $+ [ %p1 ] ] != 10 && $nick == %p1) { notice $nick $c(You dont have enough special!) | halt }
elseif ($nick == %p1) {
var %gs $rand(0,50)
dec %Spec [ $+ [ %p1 ] ] 10
dec %Hp [ $+ [ %p2 ] ] %gs
if (%hp [ $+ [ %p2 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Saradomin GodSword) $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p1 ] ] 1
inc %loss [ $+ [ %p2 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p2 ] ] > 0 && %gs < 4) {
notice $nick $c(You have) $c2(0%) $c(Special left.)
msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Saradomin GodSword) ) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left,) $&
$c2($nick) $c(Didnt heal at all!)
notice %p2 $c(its your turn!)
set %move [ $+ [ %p2 ] ] on
unset %move [ $+ [ %p1 ] ]
}
elseif (%hp [ $+ [ %p2 ] ] > 0 && %gs >= 4) {
notice $nick $c(You have) $c2(0%) $c(Special left.)
inc %hp [ $+ [ %p1 ] ] $floor($calc( %gs / 4))
if (%hp [ $+ [ %p1 ] ] > 99) { set %hp [ $+ [ %p1 ] ] 99 }
msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Saradomin GodSword) ) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left,) $&
$c2($nick) $c(Healed) $c2($floor($calc( %gs / 4)) $+ !)
notice %p2 $c(its your turn!)
set %move [ $+ [ %p2 ] ] on
unset %move [ $+ [ %p1 ] ]
}
}
}
elseif (%move [ $+ [ %p2 ] ] == on) {
if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { notice $nick $c(You are frozen!) | halt }
if (%Spec [ $+ [ %p2 ] ] != 10 && $nick == %p2) { notice $nick $c(You dont have enough special!) | halt }
elseif ($nick == %p2) {
var %gs $rand(0,50)
dec %Spec [ $+ [ %p2 ] ] 10
dec %Hp [ $+ [ %p1 ] ] %gs
if (%hp [ $+ [ %p1 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Saradomin GodSword) $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p2 ] ] 1
inc %loss [ $+ [ %p1 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p1 ] ] > 0 && %gs < 4) {
notice $nick $c(You have) $c2(0%) $c(Special left.)
msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Saradomin GodSword) ) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left,) $&
$c2($nick) $c(Didnt heal at all!)
notice %p1 $c(its your turn!)
set %move [ $+ [ %p1 ] ] on
unset %move [ $+ [ %p2 ] ]
}
elseif (%hp [ $+ [ %p1 ] ] > 0 && %gs >= 4) {
notice $nick $c(You have) $c2(0%) $c(Special left.)
inc %hp [ $+ [ %p2 ] ] $floor($calc( %gs / 4))
if (%hp [ $+ [ %p2 ] ] > 99) { set %hp [ $+ [ %p2 ] ] 99 }
msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Saradomin GodSword) ) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left,) $&
$c2($nick) $c(Healed) $c2($floor($calc( %gs / 4)) $+ !)
notice %p1 $c(its your turn !)
set %move [ $+ [ %p1 ] ] on
unset %move [ $+ [ %p2 ] ]
}
}
}
}
on *:TEXT:!zgs*:#:{
if (%move [ $+ [ %p1 ] ] == on) {
if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { notice $nick $c(You are frozen!) | halt }
if (%Spec [ $+ [ %p1 ] ] != 10 && $nick == %p1) { notice $nick $c(You dont have enough special!) | halt }
elseif ($nick == %p1) {
var %gs $rand(0,52)
var %zFreeze $rand(1,3)
dec %hp [ $+ [ %p2 ] ] %gs
dec %Spec [ $+ [ %p1 ] ] 10
if (%hp [ $+ [ %p2 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Zamorak GodSword) $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p1 ] ] 1
inc %loss [ $+ [ %p2 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p2 ] ] > 0 && %zFreeze == 3) {
notice $nick $c(You have) $c2(0%) $c(Special left)
set %Freeze [ $+ [ %p2 ] ] on
msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Zamorak GodSword) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left) $&
$c2(%p2) $c(is frozen for one round!)
notice %p2 $c(its your turn, and you are) $c2(frozen!)
set %move [ $+ [ %p2 ] ] on
unset %move [ $+ [ %p1 ] ]
}
elseif (%hp [ $+ [ %p2 ] ] > 0 && %zFreeze != 3) {
notice $nick $c(You have) $c2(0%) $c(Special left)
msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Zamorak GodSword) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left) $&
$c2(%p2) $c(didnt get frozen)
notice %p2 $c(its your turn)
set %move [ $+ [ %p2 ] ] on
unset %move [ $+ [ %p1 ] ]
}
}
}
elseif (%move [ $+ [ %p2 ] ] == on) {
if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { notice $nick $c(You are frozen!) | halt }
if (%Spec [ $+ [ %p2 ] ] != 10 && $nick == %p2) { notice $nick $c(You dont have enough special!) | halt }
elseif ($nick == %p2) {
var %gs $rand(0,52)
var %zFreeze $rand(1,3)
dec %hp [ $+ [ %p1 ] ] %gs
dec %Spec [ $+ [ %p2 ] ] 10
if (%hp [ $+ [ %p1 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Zamorak GodSword) $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p2 ] ] 1
inc %loss [ $+ [ %p1 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p2 ] ] > 0 && %zFreeze == 3) {
set %Freeze [ $+ [ %p1 ] ] on
notice $nick $c(You have) $c2(0%) $c(Special left)
msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Zamorak GodSword) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left) $&
$c2(%p1) $c(is frozen for one round!)
notice %p1 $c(its your turn, and you are) $c2(frozen!)
set %move [ $+ [ %p1 ] ] on
unset %move [ $+ [ %p2 ] ]
}
elseif (%hp [ $+ [ %p1 ] ] > 0 && %zFreeze != 3) {
notice $nick $c(You have) $c2(0%) $c(Special left)
msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Zamorak GodSword) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left) $&
$c2(%p1) $c(didnt get frozen)
notice %p1 $c(its your turn)
set %move [ $+ [ %p1 ] ] on
unset %move [ $+ [ %p2 ] ]
}
}
}
}
on *:TEXT:!bgs*:#:{
if (%move [ $+ [ %p1 ] ] == on) {
if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { notice $nick $c(You are frozen!) | halt }
if (%Spec [ $+ [ %p1 ] ] != 10 && $nick == %p1) { notice $nick $c(You dont have enough special!) | halt }
elseif ($nick == %p1) {
var %gs $rand(0,62)
dec %hp [ $+ [ %p2 ] ] %gs
dec %Spec [ $+ [ %p1 ] ] 10
if (%hp [ $+ [ %p2 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Bandos GodSword) $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p1 ] ] 1
inc %loss [ $+ [ %p2 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p2 ] ] > 0) {
notice $nick $c(You have) $c2(0%) $c(Special left)
msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Bandos GodSword) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
notice %p2 $c(its your turn!)
set %move [ $+ [ %p2 ] ] on
unset %move [ $+ [ %p1 ] ]
}
}
}
elseif (%move [ $+ [ %p2 ] ] == on) {
if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { notice $nick $c(You are frozen!) | halt }
if (%Spec [ $+ [ %p2 ] ] != 10 && $nick == %p2) { notice $nick $c(You dont have enough special!) | halt }
elseif ($nick == %p2) {
var %gs $rand(0,62)
dec %hp [ $+ [ %p1 ] ] %gs
dec %Spec [ $+ [ %p2 ] ] 10
if (%hp [ $+ [ %p1 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Bandos GodSword) $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p2 ] ] 1
inc %loss [ $+ [ %p1 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p1 ] ] > 0) {
notice $nick $c(You have) $c2(0%) $c(Special left)
msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Bandos GodSword) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
notice %p1 $c(its your turn!)
set %move [ $+ [ %p1 ] ] on
unset %move [ $+ [ %p2 ] ]
}
}
}
}
on *:TEXT:!ags*:#:{
if (%move [ $+ [ %p1 ] ] == on) {
if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) { notice $nick $c(You are frozen!) | halt }
if (%Spec [ $+ [ %p1 ] ] != 10 && $nick == %p1) { notice $nick $c(You dont have enough special!) | halt }
elseif ($nick == %p1) {
var %gs $rand(0,65)
dec %hp [ $+ [ %p2 ] ] %gs
dec %Spec [ $+ [ %p1 ] ] 10
if (%hp [ $+ [ %p2 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Armadyl GodSword) $c(on) $c2(%p2 $chr(44) %p2) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p1 ] ] 1
inc %loss [ $+ [ %p2 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p2 ] ] > 0) {
notice $nick $c(You have) $c2(0%) $c(Special left)
msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Armadyl GodSword) $c(on) $c2(%p2 $chr(44) %p2) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left.)
notice %p2 $c(its your turn!)
set %move [ $+ [ %p2 ] ] on
unset %move [ $+ [ %p1 ] ]
}
}
}
elseif (%move [ $+ [ %p2 ] ] == on) {
if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) { notice $nick $c(You are frozen!) | halt }
if (%Spec [ $+ [ %p2 ] ] != 10 && $nick == %p2) { notice $nick $c(You dont have enough special!) | halt }
elseif ($nick == %p2) {
var %gs $rand(0,62)
dec %hp [ $+ [ %p1 ] ] %gs
dec %Spec [ $+ [ %p2 ] ] 10
if (%hp [ $+ [ %p1 ] ] <= 0) {
msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Armadyl GodSword) $c(on) $c2(%p1 $chr(44) %p1) $c(has no hp left!) $c2($nick) $c(wins!)
inc %win [ $+ [ %p2 ] ] 1
inc %loss [ $+ [ %p1 ] ] 1
msg $chan $c(Statistics for) $c2(%p1 :) $c(Wins :) $c2(%win [ $+ [ %p1 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p1 ] ])
msg $chan $c(Statistics for) $c2(%p2 :) $c(Wins :) $c2(%win [ $+ [ %p2 ] ]) $c(Losses :) $c2(%loss [ $+ [ %p2 ] ])
enddm
}
elseif (%hp [ $+ [ %p1 ] ] > 0) {
notice $nick $c(You have) $c2(0%) $c(Special left)
msg $chan $c2($nick) $c(has hit) $c2(%gs) $c(with his) $c2(Armadyl GodSword) $c(on) $c2(%p1 $chr(44) %p1) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left.)
notice %p1 $c(its your turn!)
set %move [ $+ [ %p1 ] ] on
unset %move [ $+ [ %p2 ] ]
}
}
}
}
on $*:TEXT:/^[!](spec|restore)/Si:#:{
if (%move [ $+ [ %p1 ] ] == on) {
if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) {
if (%Spec [ $+ [ %p1 ] ] == 10) { notice $nick $c(Cant have more then 100% Spec!) | halt }
notice $nick $c(You have been unfrozen!)
unset %Freeze [ $+ [ %p1 ] ]
}
elseif ($nick == %p1) {
inc %Spec [ $+ [ %p1 ] ] 2.5
notice $nick $c(You now have) $c2($calc(%Spec [ $+ [ %p1 ] ] * 10) $+ %) $c(Special left)
msg $chan $c2($nick) $c(has restored) $c2(25% special!)
notice %p2 $c(its your turn)
set %move [ $+ [ %p2 ] ] on
unset %move [ $+ [ %p1 ] ]
}
}
elseif (%move [ $+ [ %p2 ] ] == on) {
if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) {
notice $nick $c(You have been unfrozen!)
}
if (%Spec [ $+ [ %p2 ] ] == 10) { notice $nick $c(Cant have more then 100% Spec!) | halt }
unset %Freeze [ $+ [ %p2 ] ]
elseif ($nick == %p2) {
inc %Spec [ $+ [ %p2 ] ] 2.5
notice $nick $c(You now have) $c2($calc(%Spec [ $+ [ %p2 ] ] * 10) $+ %) $c(Special left)
msg $chan $c2($nick) $c(has restored) $c2(25% special!)
notice %p1 $c(its your turn)
set %move [ $+ [ %p1 ] ] on
unset %move [ $+ [ %p2 ] ]
}
}
}
on $*:TEXT:/^[!]get(spec|special)/Si:#:{
if (%move [ $+ [ %p1 ] ] == on) {
if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) {
notice $nick $c(You have been unfrozen!)
unset %Freeze [ $+ [ %p1 ] ]
}
if (%Spec [ $+ [ %p1 ] ] == 10) { notice $nick $c(Cant have more then 100% Spec!) | halt }
elseif ($nick == %p1) {
dec %hp [ $+ [ %p1 ] ] $floor($calc(%hp [ $+ [ %p1 ] ] / 2))
set %Spec [ $+ [ %p1 ] ] 10
notice $nick $c(You now have) $c2(100%) $c(Special)
msg $chan $c2($nick) $c(has restored) $c2(100% special) $c(however) $c2(Half of his hp was lost! , $nick) $c(has) $c2(%hp [ $+ [ %p1 ] ]) $c(hp left)
notice %p2 $c(its your turn)
unset %move [ $+ [ %p1 ] ]
set %move [ $+ [ %p2 ] ] on
}
}
elseif (%move [ $+ [ %p2 ] ] == on) {
if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) {
notice $nick $c(You have been unfrozen!)
unset %Freeze [ $+ [ %p2 ] ]
}
if (%Spec [ $+ [ %p2 ] ] == 10) { notice $nick $c(Cant have more then 100% Spec!) | halt }
elseif ($nick == %p2) {
dec %hp [ $+ [ %p2 ] ] $floor($calc(%hp [ $+ [ %p2 ] ] / 2))
set %Spec [ $+ [ %p2 ] ] 10
notice $nick $c(You now have) $c2(100%) $c(Special)
msg $chan $c2($nick) $c(has restored) $c2(100% special) $c(however) $c2(Half of his hp was lost! , $nick) $c(has) $c2(%hp [ $+ [ %p2 ] ]) $c(hp left)
notice %p1 $c(its your turn)
set %move [ $+ [ %p1 ] ] on
unset %move [ $+ [ %p2 ] ]
}
}
}
on *:TEXT:!skip*:#:{
if (%move [ $+ [ %p1 ] ] == on) {
if ($nick != %p1) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p1 ] ] == on && $nick == %p1) {
notice $nick $c(You have been unfrozen!)
unset %Freeze [ $+ [ %p1 ] ]
}
if ($nick == %p1) {
msg $chan $c2($nick) $c(has skipped a turn!)
notice %p2 $c(its your turn)
set %move [ $+ [ %p2 ] ] on
unset %move [ $+ [ %p1 ] ]
}
}
elseif (%move [ $+ [ %p2 ] ] == on) {
if ($nick != %p2) { notice $nick $c(Not your turn!) | halt }
if (%Freeze [ $+ [ %p2 ] ] == on && $nick == %p2) {
notice $nick $c(You have been unfrozen!)
unset %Freeze [ $+ [ %p2 ] ]
}
if ($nick == %p2) {
msg $chan $c2($nick) $c(has skipped a turn!)
notice %p1 $c(its your turn)
set %move [ $+ [ %p1 ] ] on
unset %move [ $+ [ %p2 ] ]
}
}
}