rendered paste bodyon *:TEXT:!Dm*:#:{
if ($1 == !dmace) { halt }
if ($1 == !dmcommands) {
msg $nick 7!Dm (off)
msg $nick 14!Whip
msg $nick 7!Dds
msg $nick 14!Dh
msg $nick 7!Guthans - (Must Buy with D-Coins)
msg $nick 14!DMace - (Must Buy with D-Coins)
msg $nick 7!Ice
msg $nick 14!Karils
msg $nick 7!Msb
msg $nick 14!Shark
msg $nick 7!MyStats 7- Tells you your stats in the Dm
msg $nick 14!TheirStats 7- Tells you your opponents stats in the Dm
msg $nick 7!Hiscores *NICK* 14- Shows wins and losses of a nick. If you don't supply a nick then it'll tell you your stats
msg $nick 12For the D-Coin Commands, type !Dcoin Commands
halt
}
if ($2 == $null) {
if ($readini(Dm.ini,$chan,Status) == On) {
notice $nick 14There is already a DM currently in $+ 7 $chan $+ 14.
halt
}
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 7 $+ $nick ( $+ $iif($readini(D-Coins.ini,$nick,BPhat) == Sold, $+(12\ ,$chr(124), /), 10§) $+ $iif($readini(D-Coins.ini,$nick,RPhat) == Sold, $+(4\ ,$chr(124), /), 10§) $+ $iif($readini(D-Coins.ini,$nick,GPhat) == Sold, $+(3\ ,$chr(124), /), 10§) W: $iif($readini(Dm.Hiscores.ini,$nick,Wins) != $null, $readini(Dm.Hiscores.ini,$nick,Wins), 0) L: $iif($readini(Dm.Hiscores.ini,$nick,Losses) != $null, $readini(Dm.Hiscores.ini,$nick,Losses), 0) T: $calc( $iif($readini(Dm.Hiscores.ini,$nick,Wins) == $null, 0, $v1) + $iif($readini(Dm.Hiscores.ini,$nick,Losses) == $null, 0, $v1)) D-Coins: $iif($readini(D-Coins.ini,$nick,Coins) == $null, 0, $v1) $+ ) 14has initicated a DM! Ready to fight? To join just type 7!DM14.
writeini Dm.ini $chan Status Start
writeini Dm.Players.ini $chan Player-1 $nick
writeini Dm.Hp.ini $chan Player-1 99
writeini Dm.Sharks.ini $chan Player-1 15
writeini Dm.Spec.ini $chan Player-1 100
.timerdmoff $+ $chan 1 30 dmtimerend $chan
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
if ($readini(Dm.ini,$chan,Status) == Start) {
.timerdmoff $+ $chan off
set %who.goes.first. [ $+ [ $chan ] ] $rand(1,2)
writeini Dm.Turn.ini $chan Turn Player- $+ %who.goes.first. [ $+ [ $chan ] ]
writeini Dm.ini $chan Status On
writeini Dm.Players.ini $chan Player-2 $nick
writeini Dm.Hp.ini $chan Player-2 99
writeini Dm.Sharks.ini $chan Player-2 15
writeini Dm.Spec.ini $chan Player-2 100
msg $chan 14The DM has STARTED! $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14VS $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 99 14Hitpoints and $+ 12 15 14Sharks!
.timer 1 2 msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player- $+ %who.goes.first. [ $+ [ $chan ] ]) 14goes first!
.timerdmnextturn $+ $chan 1 30 dmnextturn $chan $iif(%who.goes.first. [ $+ [ $chan ] ] == 1, Player-2, Player-1) $iif(%who.goes.first. [ $+ [ $chan ] ] == 1, Player-1, Player-2)
unset %who.goes.first. [ $+ [ $chan ] ]
halt
}
}
}
if ($2 == off) {
if ($readini(Dm.ini,$chan,Status) == On) || ($readini(Dm.ini,$chan,Status) == Start) && ($nick isop $chan || $nick ishop $chan || $readini(Dm.Players.ini,$chan,Player-1) == $nick || $readini(Dm.Players.ini,$chan,Player-2) == $nick) || ($address($me,2) == $address($nick,2)) {
enddm $chan
msg $chan 7 $+ $nick 14has stopped the DM for $+ 7 $chan $+ 14.
halt
}
if ($readini(Dm.ini,$chan,Status) == $null) && ($nick isop $chan || $nick ishop $chan) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14.
halt
}
}
}
on $*:TEXT:/!(Whip|flick|lash)/Si:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14.
halt
}
if ($readini(Dm.ini,$chan,Status) == Start) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
notice $nick 14You don't have anyone to face!
halt
}
}
if ($readini(Dm.ini,$chan,Status) == On) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
if ($readini(Dm.Turn.ini,$chan,Turn) != Player-1) {
notice $nick 14It's not your turn!
halt
}
if ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2) {
notice $nick 14You can only Eat, Mage, or Range when your are frozen!
halt
}
if ($readini(Dm.Turn.ini,$chan,Turn) == Player-1) {
.timerdmnextturn $+ $chan off
writeini Dm.Hits.ini $chan Hit $rand(0,40)
$iif($readini(Dm.Spec.ini,$chan,Player-1) < 100, writeini Dm.Spec.ini $chan Player-1 $calc( $readini(Dm.Spec.ini,$chan,Player-1) + 5))
writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) - $readini(Dm.Hits.ini,$chan,Hit) )
if ($readini(Dm.Hp.ini,$chan,Player-2) > 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14swings a whip at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-2) 14Hitpoints.
msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ 's 14Turn.
writeini Dm.Turn.ini $chan Turn Player-2
.timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-1 Player-2
halt
}
}
}
if ($readini(Dm.Hp.ini,$chan,Player-2) <= 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14swings a whip at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 0 14Hitpoints.
dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Wins
dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Losses
dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) + 60
dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) - 10
.timer 1 2 dmwinner $chan Player-1
halt
}
}
if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
if ($readini(Dm.Turn.ini,$chan,Turn) != Player-2) {
notice $nick 14It's not your turn!
halt
}
if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2) {
notice $nick 14You can only Eat, Mage, or Range when your are frozen!
halt
}
if ($readini(Dm.Turn.ini,$chan,Turn) == Player-2) {
.timerdmnextturn $+ $chan off
$iif($readini(Dm.Spec.ini,$chan,Player-2) < 100, writeini Dm.Spec.ini $chan Player-2 $calc( $readini(Dm.Spec.ini,$chan,Player-2) + 5))
writeini Dm.Hits.ini $chan Hit $rand(0,40)
writeini Dm.Hp.ini $chan Player-1 $calc( $readini(Dm.Hp.ini,$chan,Player-1) - $readini(Dm.Hits.ini,$chan,Hit) )
if ($readini(Dm.Hp.ini,$chan,Player-1) > 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14swings a whip at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-1) 14Hitpoints.
msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ 's 14Turn.
writeini Dm.Turn.ini $chan Turn Player-1
.timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-2 Player-1
halt
}
if ($readini(Dm.Hp.ini,$chan,Player-1) <= 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14swings a whip at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 0 14Hitpoints.
dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Wins
dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Losses
dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) + 60
dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) - 10
.timer 1 2 dmwinner $chan Player-2
halt
}
}
}
}
on $*:TEXT:/!(Shark|eat)/Si:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14.
halt
}
if ($readini(Dm.ini,$chan,Status) == Start) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
notice $nick 14You don't have anyone to face!
halt
}
}
if ($readini(Dm.ini,$chan,Status) == On) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
if ($readini(Dm.Turn.ini,$chan,Turn) != Player-1) {
notice $nick 14It's not your turn!
halt
}
if ($readini(Dm.Turn.ini,$chan,Turn) == Player-1) {
if ($readini(Dm.Sharks.ini,$chan,Player-1) <= 0) {
notice $nick 14You have $+ 7 0 14Sharks!
halt
}
if ($readini(Dm.Sharks.ini,$chan,Player-1) > 0) {
if ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2) {
$iif($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2, writeini Dm.Other.ini $chan Player-1-Frozen $calc( $readini(Dm.Other.ini,$chan,Player-1-Frozen) - 1), remini Dm.Other.ini $chan Player-1-Frozen)
}
.timerdmnextturn $+ $chan off
writeini Dm.Sharks.ini $chan Player-1 $calc( $readini(Dm.Sharks.ini,$chan,Player-1) - 1)
writeini Dm.Hp.ini $chan Player-1 $calc( $readini(Dm.Hp.ini,$chan,Player-1) + 20)
$iif($readini(Dm.Hp.ini,$chan,Player-1) > 99, writeini Dm.Hp.ini $chan Player-1 99)
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14eats a Shark and now has $+ 4 $readini(Dm.Hp.ini,$chan,Player-1) 14Hitpoints.
notice $readini(Dm.Players.ini,$chan,Player-1) 14You now have $+ 7 $readini(Dm.Sharks.ini,$chan,Player-1) 14Sharks.
writeini Dm.Turn.ini $chan Turn Player-2
.timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-1 Player-2
halt
}
}
}
}
if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
if ($readini(Dm.Turn.ini,$chan,Turn) != Player-2) {
notice $nick 14It's not your turn!
halt
}
if ($readini(Dm.Turn.ini,$chan,Turn) == Player-2) {
if ($readini(Dm.Sharks.ini,$chan,Player-2) <= 0) {
notice $nick 14You have $+ 7 0 14Sharks!
halt
}
if ($readini(Dm.Sharks.ini,$chan,Player-2) > 0) {
if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2) {
$iif($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2, writeini Dm.Other.ini $chan Player-2-Frozen $calc( $readini(Dm.Other.ini,$chan,Player-2-Frozen) - 1), remini Dm.Other.ini $chan Player-2-Frozen)
}
.timerdmnextturn $+ $chan off
writeini Dm.Sharks.ini $chan Player-2 $calc( $readini(Dm.Sharks.ini,$chan,Player-2) - 1)
writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) + 20)
$iif($readini(Dm.Hp.ini,$chan,Player-2) > 99, writeini Dm.Hp.ini $chan Player-2 99)
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14eats a Shark and now has $+ 4 $readini(Dm.Hp.ini,$chan,Player-2) 14Hitpoints.
notice $readini(Dm.Players.ini,$chan,Player-2) 14You now have $+ 7 $readini(Dm.Sharks.ini,$chan,Player-2) 14Sharks.
writeini Dm.Turn.ini $chan Turn Player-1
.timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-2 Player-1
halt
}
}
}
}
on *:TEXT:!Dds:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14.
halt
}
if ($readini(Dm.ini,$chan,Status) == Start) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
notice $nick 14You don't have anyone to face!
halt
}
}
if ($readini(Dm.ini,$chan,Status) == On) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
if ($readini(Dm.Turn.ini,$chan,Turn) != Player-1) {
notice $nick 14It's not your turn!
halt
}
if ($readini(Dm.Turn.ini,$chan,Turn) == Player-1) {
if ($readini(Dm.Spec.ini,$chan,Player-1) <= 0) {
notice $nick 14You don't have any Special Bar left!
halt
}
if ($readini(Dm.Spec.ini,$chan,Player-1) < 25) {
notice $nick 14You don't have enough Special Bar left!
halt
}
if ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2) {
notice $nick 14You can only Eat, Mage, or Range when your are frozen!
halt
}
if ($readini(Dm.Spec.ini,$chan,Player-1) > 0) {
.timerdmnextturn $+ $chan off
spec Player-1 $chan 25
writeini Dm.Hits.ini $chan Hit $rand(0,25) | writeini Dm.Hits.ini $chan DdpSpec $rand(0,25)
writeini Dm.Hits.ini $chan DdpSpecTotal $calc( $readini(Dm.Hits.ini,$chan,Hit) + $readini(Dm.Hits.ini,$chan,DdpSpec) )
writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) - $readini(Dm.Hits.ini,$chan,DdpSpecTotal) )
if ($readini(Dm.Hp.ini,$chan,Player-2) > 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14stabs a Dragon Dagger at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14and a $+ 12 $readini(Dm.Hits.ini,$chan,DdpSpec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-2) 14Hitpoints.
msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ 's 14Turn.
notice $readini(Dm.Players.ini,$chan,Player-1) 14You now have $+ 7 $readini(Dm.Spec.ini,$chan,Player-1) $+ % 14Special Bar left.
writeini Dm.Turn.ini $chan Turn Player-2
.timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-1 Player-2
halt
}
}
}
if ($readini(Dm.Hp.ini,$chan,Player-2) <= 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14stabs a Dragon Dagger at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14and a $+ 12 $readini(Dm.Hits.ini,$chan,DdpSpec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 0 14Hitpoints.
dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Wins
dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Losses
dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) + 60
dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) - 10
.timer 1 2 dmwinner $chan Player-1
halt
}
}
}
if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
if ($readini(Dm.Turn.ini,$chan,Turn) != Player-2) {
notice $nick 14It's not your turn!
halt
}
if ($readini(Dm.Turn.ini,$chan,Turn) == Player-2) {
if ($readini(Dm.Spec.ini,$chan,Player-2) <= 0) {
notice $nick 14You don't have any Special Bar left!
halt
}
if ($readini(Dm.Spec.ini,$chan,Player-2) < 25) {
notice $nick 14You don't have enough Special Bar left!
halt
}
if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2) {
notice $nick 14You can only Eat, Mage, or Range when your are frozen!
halt
}
if ($readini(Dm.Spec.ini,$chan,Player-2) > 0) {
.timerdmnextturn $+ $chan off
spec Player-2 $chan 25
writeini Dm.Hits.ini $chan Hit $rand(0,25) | writeini Dm.Hits.ini $chan DdpSpec $rand(0,25)
writeini Dm.Hits.ini $chan DdpSpecTotal $calc( $readini(Dm.Hits.ini,$chan,Hit) + $readini(Dm.Hits.ini,$chan,DdpSpec) )
writeini Dm.Hp.ini $chan Player-1 $calc( $readini(Dm.Hp.ini,$chan,Player-1) - $readini(Dm.Hits.ini,$chan,DdpSpecTotal) )
if ($readini(Dm.Hp.ini,$chan,Player-1) > 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14stabs a Dragon Dagger at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14and a $+ 12 $readini(Dm.Hits.ini,$chan,DdpSpec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-1) 14Hitpoints.
msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ 's 14Turn.
notice $readini(Dm.Players.ini,$chan,Player-2) 14You now have $+ 7 $readini(Dm.Spec.ini,$chan,Player-2) $+ % 14Special Bar left.
writeini Dm.Turn.ini $chan Turn Player-1
.timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-2 Player-1
halt
}
if ($readini(Dm.Hp.ini,$chan,Player-1) <= 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14stabs a Dragon Dagger at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14and a $+ 12 $readini(Dm.Hits.ini,$chan,DdpSpec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 0 14Hitpoints.
dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Wins
dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Losses
dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) + 60
dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) - 10
.timer 1 2 dmwinner $chan Player-2
halt
}
}
}
}
}
on *:TEXT:!Gmaul:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14.
halt
}
if ($readini(Dm.ini,$chan,Status) == Start) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
notice $nick 14You don't have anyone to face!
halt
}
}
if ($readini(Dm.ini,$chan,Status) == On) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
if ($readini(Dm.Turn.ini,$chan,Turn) != Player-1) {
notice $nick 14It's not your turn!
halt
}
if ($readini(Dm.Turn.ini,$chan,Turn) == Player-1) {
if ($readini(Dm.Spec.ini,$chan,Player-1) <= 0) {
notice $nick 14You don't have any Special Bar left!
halt
}
if ($readini(Dm.Spec.ini,$chan,Player-1) < 100) {
notice $nick 14You don't have enough Special Bar left!
halt
}
if ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2) {
notice $nick 14You can only Eat, Mage, or Range when your are frozen!
halt
}
if ($readini(Dm.Spec.ini,$chan,Player-1) > 0) {
.timerdmnextturn $+ $chan off
spec Player-1 $chan 100
writeini Dm.Hits.ini $chan GHit $rand(0,25) | writeini Dm.Hits.ini $chan GSpec $rand(0,25) | writeini Dm.Hits.ini $chan Gmaulspec $rand(0,25)
writeini Dm.Hits.ini $chan GmaulTotal $calc( $readini(Dm.Hits.ini,$chan,Hit) + $readini(Dm.Hits.ini,$chan,Gspec) + $readini(DM.Hits.ini,$chan,Gmaulspec) )
writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) - $readini(Dm.Hits.ini,$chan,GmaulTotal) )
if ($readini(Dm.Hp.ini,$chan,Player-2) > 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14smashes their Gmaul at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,GHit), $+ 12 $readini(Dm.Hits.ini,$chan,Gspec) 14 and 12 $Readini(DM.Hits.ini,$chan,Gmaulspec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-2) 14Hitpoints.
msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ 's 14Turn.
notice $readini(Dm.Players.ini,$chan,Player-1) 14You now have $+ 7 $readini(Dm.Spec.ini,$chan,Player-1) $+ % 14Special Bar left.
writeini Dm.Turn.ini $chan Turn Player-2
.timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-1 Player-2
halt
}
}
}
if ($readini(Dm.Hp.ini,$chan,Player-2) <= 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14smashes their Gmaul at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,GHit), $+ 12 $readini(Dm.Hits.ini,$chan,Gspec) 14 and 12 $Readini(DM.Hits.ini,$chan,Gmaulspec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 0 14Hitpoints.
dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Wins
dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Losses
dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) + 60
dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) - 10
.timer 1 2 dmwinner $chan Player-1
halt
}
}
}
if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
if ($readini(Dm.Turn.ini,$chan,Turn) != Player-2) {
notice $nick 14It's not your turn!
halt
}
if ($readini(Dm.Turn.ini,$chan,Turn) == Player-2) {
if ($readini(Dm.Spec.ini,$chan,Player-2) <= 0) {
notice $nick 14You don't have any Special Bar left!
halt
}
if ($readini(Dm.Spec.ini,$chan,Player-2) < 100) {
notice $nick 14You don't have enough Special Bar left!
halt
}
if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2) {
notice $nick 14You can only Eat, Mage, or Range when your are frozen!
halt
}
if ($readini(Dm.Spec.ini,$chan,Player-2) > 0) {
.timerdmnextturn $+ $chan off
spec Player-2 $chan 100
writeini Dm.Hits.ini $chan GHit $rand(0,25) | writeini Dm.Hits.ini $chan GSpec $rand(0,25) | writeini Dm.Hits.ini $chan Gmaulspec $rand(0,25)
writeini Dm.Hits.ini $chan GmaulTotal $calc( $readini(Dm.Hits.ini,$chan,Hit) + $readini(Dm.Hits.ini,$chan,Gspec + $readini(DM.Hits.ini,$chan,Gmaulspec) )
writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) - $readini(Dm.Hits.ini,$chan,GmaulTotal) )
if ($readini(Dm.Hp.ini,$chan,Player-1) > 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14smashes their Gmaul at 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,GHit), $+ 12 $readini(Dm.Hits.ini,$chan,Gspec) 14 and 12 $Readini(DM.Hits.ini,$chan,Gmaulspec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1)) 14Hitpoints.
msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ 's 14Turn.
notice $readini(Dm.Players.ini,$chan,Player-2) 14You now have $+ 7 $readini(Dm.Spec.ini,$chan,Player-2) $+ % 14Special Bar left.
writeini Dm.Turn.ini $chan Turn Player-1
.timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-2 Player-1
halt
}
if ($readini(Dm.Hp.ini,$chan,Player-1) <= 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14smashes their Gmaul at $+ 7 $readini(Dm.Players.ini,$chan,Player-1 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,GHit), $+ 12 $readini(Dm.Hits.ini,$chan,Gspec) 14 and 12 $Readini(DM.Hits.ini,$chan,Gmaulspec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1 14with $+ 4 0 14Hitpoints.
dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Wins
dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Losses
dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) + 60
dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) - 10
.timer 1 2 dmwinner $chan Player-2
halt
}
}
}
}
}
on *:TEXT:!Dh:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14.
halt
}
if ($readini(Dm.ini,$chan,Status) == Start) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
notice $nick 14You don't have anyone to face!
halt
}
}
if ($readini(Dm.ini,$chan,Status) == On) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
if ($readini(Dm.Turn.ini,$chan,Turn) != Player-1) {
notice $nick 14It's not your turn!
halt
}
if ($readini(Dm.Turn.ini,$chan,Turn) == Player-1) {
if ($readini(Dm.Hp.ini,$chan,Player-2) <= 35) {
notice $nick 14You cant use Dharok when your Opponet has less than or equal to $+ 7 35 Hitpoints.
halt
}
if ($readini(Dm.Other.ini,$chan,Player-1-Dh) == Degraded) {
notice $nick 14Your Dharok has degraded when you lasted used it.
halt
}
if ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2) {
notice $nick 14You can only Eat, Mage, or Range when your are frozen!
halt
}
if ($readini(Dm.Hp.ini,$chan,Player-2) > 35) {
.timerdmnextturn $+ $chan off
$iif($readini(Dm.Spec.ini,$chan,Player-1) < 100, writeini Dm.Spec.ini $chan Player-1 $calc( $readini(Dm.Spec.ini,$chan,Player-1) + 5))
$iif($readini(Dm.Hp.ini,$chan,Player-1) == 99, writeini Dm.Hits.ini $chan Hit $rand(0,1), writeini Dm.Hits.ini $chan Hit $rand(0,70))
writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) - $readini(Dm.Hits.ini,$chan,Hit) )
if ($readini(Dm.Hp.ini,$chan,Player-2) > 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14throws a Great Axe at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-2) 14Hitpoints.
msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ 's 14Turn.
writeini Dm.Other.ini $chan Player-1-Dh Degraded
writeini Dm.Turn.ini $chan Turn Player-2
.timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-1 Player-2
halt
}
}
}
if ($readini(Dm.Hp.ini,$chan,Player-2) <= 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14throws a Great Axe at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 0 14Hitpoints.
dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Wins
dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Losses
dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) + 60
dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) - 10
.timer 1 2 dmwinner $chan Player-1
halt
}
}
}
if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
if ($readini(Dm.Turn.ini,$chan,Turn) != Player-2) {
notice $nick 14It's not your turn!
halt
}
if ($readini(Dm.Turn.ini,$chan,Turn) == Player-2) {
if ($readini(Dm.Hp.ini,$chan,Player-1) <= 35) {
notice $nick 14You cant use Dharok when your Opponet has less than or equal to $+ 7 35 Hitpoints.
halt
}
if ($readini(Dm.Other.ini,$chan,Player-2-Dh) == Degraded) {
notice $nick 14Your Dharok has degraded when you lasted used it.
halt
}
if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2) {
notice $nick 14You can only Eat, Mage, or Range when your are frozen!
halt
}
if ($readini(Dm.Hp.ini,$chan,Player-1) > 35) {
.timerdmnextturn $+ $chan off
$iif($readini(Dm.Spec.ini,$chan,Player-2) < 100, writeini Dm.Spec.ini $chan Player-2 $calc( $readini(Dm.Spec.ini,$chan,Player-2) + 5))
$iif($readini(Dm.Hp.ini,$chan,Player-1) == 99, writeini Dm.Hits.ini $chan Hit $rand(0,1), writeini Dm.Hits.ini $chan Hit $rand(0,70))
writeini Dm.Hp.ini $chan Player-1 $calc( $readini(Dm.Hp.ini,$chan,Player-1) - $readini(Dm.Hits.ini,$chan,Hit) )
if ($readini(Dm.Hp.ini,$chan,Player-1) > 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14throws a Great Axe at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-1) 14Hitpoints.
msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ 's 14Turn.
writeini Dm.Other.ini $chan Player-2-Dh Degraded
writeini Dm.Turn.ini $chan Turn Player-1
.timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-2 Player-1
halt
}
if ($readini(Dm.Hp.ini,$chan,Player-1) <= 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14throws a Great Axe at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 0 14Hitpoints.
dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Wins
dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Losses
dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) + 60
dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) - 10
.timer 1 2 dmwinner $chan Player-2
halt
}
}
}
}
}
on *:TEXT:!Guthans:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14.
halt
}
if ($readini(Dm.ini,$chan,Status) == Start) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
notice $nick 14You don't have anyone to face!
halt
}
}
if ($readini(Dm.ini,$chan,Status) == On) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
if ($readini(Dm.Turn.ini,$chan,Turn) != Player-1) {
notice $nick 14It's not your turn!
halt
}
if ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2) {
notice $nick 14You can only Eat, Mage, or Range when your are frozen!
halt
}
if ($readini(Dm.Turn.ini,$chan,Turn) == Player-1) {
if ($readini(D-Coins.ini,$nick,Guthans) != Sold) {
notice $nick 14You havn't bought Guthans. To buy, type 7!Buy Guthans
halt
}
.timerdmnextturn $+ $chan off
writeini Dm.Hits.ini $chan Hit $rand(0,45)
set %healed [ $+ [ $chan ] ] $rand(1,4) | $iif(%healed [ $+ [ $chan ] ] == 1, writeini Dm.Other.ini $chan Healed $readini(Dm.Hits.ini,$chan,Hit)) | unset %healed [ $+ [ $chan ] ]
$iif($readini(Dm.Spec.ini,$chan,Player-1) < 100, writeini Dm.Spec.ini $chan Player-1 $calc( $readini(Dm.Spec.ini,$chan,Player-1) + 5))
if ($readini(Dm.Other.ini,$chan,Healed) != $null) {
writeini Dm.Hp.ini $chan Player-1 $calc( $readini(Dm.Hp.ini,$chan,Player-1) + $readini(Dm.Other.ini,$chan,Healed) )
$iif($readini(Dm.Hp.ini,$chan,Player-1) > 99, writeini Dm.Hp.ini $chan Player-1 99)
}
writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) - $readini(Dm.Hits.ini,$chan,Hit) )
if ($readini(Dm.Hp.ini,$chan,Player-2) > 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14Smashes $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with the tip of a Guthan Spear which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-2) 14Hitpoints and Healed $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ $iif($readini(Dm.Other.ini,$chan,Healed) != $null, $+ 3 $v1, $+ 3 0) 14Hitpoints. | remini Dm.Other.ini $chan Healed
msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ 's 14Turn.
writeini Dm.Turn.ini $chan Turn Player-2
.timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-1 Player-2
halt
}
}
}
if ($readini(Dm.Hp.ini,$chan,Player-2) <= 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14Smashes $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with the tip of a Guthan Spear which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 0 14Hitpoints.
dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Wins
dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Losses
dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) + 60
dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) - 10
.timer 1 2 dmwinner $chan Player-1
halt
}
}
if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
if ($readini(Dm.Turn.ini,$chan,Turn) != Player-2) {
notice $nick 14It's not your turn!
halt
}
if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2) {
notice $nick 14You can only Eat, Mage, or Range when your are frozen!
halt
}
if ($readini(Dm.Turn.ini,$chan,Turn) == Player-2) {
if ($readini(D-Coins.ini,$nick,Guthans) != Sold) {
notice $nick 14You havn't bought Guthans. To buy, type 7!Buy Guthans
halt
}
.timerdmnextturn $+ $chan off
$iif($readini(Dm.Spec.ini,$chan,Player-2) < 100, writeini Dm.Spec.ini $chan Player-2 $calc( $readini(Dm.Spec.ini,$chan,Player-2) + 5))
writeini Dm.Hits.ini $chan Hit $rand(0,45)
set %healed [ $+ [ $chan ] ] $rand(1,4) | $iif(%healed [ $+ [ $chan ] ] == 1, writeini Dm.Other.ini $chan Healed $readini(Dm.Hits.ini,$chan,Hit)) | unset %healed [ $+ [ $chan ] ]
if ($readini(Dm.Other.ini,$chan,Healed) != $null) {
writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) + $readini(Dm.Other.ini,$chan,Healed) )
$iif($readini(Dm.Hp.ini,$chan,Player-2) > 99, writeini Dm.Hp.ini $chan Player-2 99)
}
writeini Dm.Hp.ini $chan Player-1 $calc( $readini(Dm.Hp.ini,$chan,Player-1) - $readini(Dm.Hits.ini,$chan,Hit) )
if ($readini(Dm.Hp.ini,$chan,Player-1) > 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14Smashes $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with the tip of a Guthan Spear which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-1) 14Hitpoints and Healed $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ $iif($readini(Dm.Other.ini,$chan,Healed) != $null, $+ 3 $v1, $+ 3 0) 14Hitpoints. | remini Dm.Other.ini $chan Healed
msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ 's 14Turn.
writeini Dm.Turn.ini $chan Turn Player-1
.timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-2 Player-1
halt
}
if ($readini(Dm.Hp.ini,$chan,Player-1) <= 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14Smashes $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with the tip of a Guthan Spear which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 0 14Hitpoints.
dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Wins
dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Losses
dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) + 60
dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) - 10
.timer 1 2 dmwinner $chan Player-2
halt
}
}
}
}
on *:TEXT:!Karils:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14.
halt
}
if ($readini(Dm.ini,$chan,Status) == Start) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
notice $nick 14You don't have anyone to face!
halt
}
}
if ($readini(Dm.ini,$chan,Status) == On) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
if ($readini(Dm.Turn.ini,$chan,Turn) != Player-1) {
notice $nick 14It's not your turn!
halt
}
if ($readini(Dm.Turn.ini,$chan,Turn) == Player-1) {
if ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2) {
$iif($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2, writeini Dm.Other.ini $chan Player-1-Frozen $calc( $readini(Dm.Other.ini,$chan,Player-1-Frozen) - 1), remini Dm.Other.ini $chan Player-1-Frozen)
}
.timerdmnextturn $+ $chan off
writeini Dm.Hits.ini $chan Hit $rand(0,35)
$iif($readini(Dm.Spec.ini,$chan,Player-1) < 100, writeini Dm.Spec.ini $chan Player-1 $calc( $readini(Dm.Spec.ini,$chan,Player-1) + 5))
writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) - $readini(Dm.Hits.ini,$chan,Hit) )
if ($readini(Dm.Hp.ini,$chan,Player-2) > 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14fires Karils X Bow at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-2) 14Hitpoints.
msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ 's 14Turn.
writeini Dm.Turn.ini $chan Turn Player-2
.timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-1 Player-2
halt
}
}
}
if ($readini(Dm.Hp.ini,$chan,Player-2) <= 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14fires Karils X Bow at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 0 14Hitpoints.
dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Wins
dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Losses
dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) + 60
dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) - 10
.timer 1 2 dmwinner $chan Player-1
halt
}
}
if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
if ($readini(Dm.Turn.ini,$chan,Turn) != Player-2) {
notice $nick 14It's not your turn!
halt
}
if ($readini(Dm.Turn.ini,$chan,Turn) == Player-2) {
if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2) {
$iif($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2, writeini Dm.Other.ini $chan Player-2-Frozen $calc( $readini(Dm.Other.ini,$chan,Player-2-Frozen) - 1), remini Dm.Other.ini $chan Player-2-Frozen)
}
.timerdmnextturn $+ $chan off
$iif($readini(Dm.Spec.ini,$chan,Player-2) < 100, writeini Dm.Spec.ini $chan Player-2 $calc( $readini(Dm.Spec.ini,$chan,Player-2) + 5))
writeini Dm.Hits.ini $chan Hit $rand(0,35)
writeini Dm.Hp.ini $chan Player-1 $calc( $readini(Dm.Hp.ini,$chan,Player-1) - $readini(Dm.Hits.ini,$chan,Hit) )
if ($readini(Dm.Hp.ini,$chan,Player-1) > 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14fires Karils X Bow at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-1) 14Hitpoints.
msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ 's 14Turn.
writeini Dm.Turn.ini $chan Turn Player-1
.timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-2 Player-1
halt
}
if ($readini(Dm.Hp.ini,$chan,Player-1) <= 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14fires Karils X Bow at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 0 14Hitpoints.
dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Wins
dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Losses
dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) + 60
dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) - 10
.timer 1 2 dmwinner $chan Player-2
halt
}
}
}
}
on $*:TEXT:/!(Cbow|Crystal Bow)/Si:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14.
halt
}
if ($readini(Dm.ini,$chan,Status) == Start) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
notice $nick 14You don't have anyone to face!
halt
}
}
if ($readini(Dm.ini,$chan,Status) == On) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
if ($readini(Dm.Turn.ini,$chan,Turn) != Player-1) {
notice $nick 14It's not your turn!
halt
}
if ($readini(Dm.Turn.ini,$chan,Turn) == Player-1) {
if ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2) {
$iif($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2, writeini Dm.Other.ini $chan Player-1-Frozen $calc( $readini(Dm.Other.ini,$chan,Player-1-Frozen) - 1), remini Dm.Other.ini $chan Player-1-Frozen)
}
.timerdmnextturn $+ $chan off
writeini Dm.Hits.ini $chan Hit $rand(0,35)
$iif($readini(Dm.Spec.ini,$chan,Player-1) < 100, writeini Dm.Spec.ini $chan Player-1 $calc( $readini(Dm.Spec.ini,$chan,Player-1) + 5))
writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) - $readini(Dm.Hits.ini,$chan,Hit) )
if ($readini(Dm.Hp.ini,$chan,Player-2) > 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14fires their Crystal Bow at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-2) 14Hitpoints.
msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ 's 14Turn.
writeini Dm.Turn.ini $chan Turn Player-2
.timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-1 Player-2
halt
}
}
}
if ($readini(Dm.Hp.ini,$chan,Player-2) <= 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14fires their Crystal Bow at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 0 14Hitpoints.
dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Wins
dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Losses
dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) + 60
dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) - 10
.timer 1 2 dmwinner $chan Player-1
halt
}
}
if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
if ($readini(Dm.Turn.ini,$chan,Turn) != Player-2) {
notice $nick 14It's not your turn!
halt
}
if ($readini(Dm.Turn.ini,$chan,Turn) == Player-2) {
if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2) {
$iif($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2, writeini Dm.Other.ini $chan Player-2-Frozen $calc( $readini(Dm.Other.ini,$chan,Player-2-Frozen) - 1), remini Dm.Other.ini $chan Player-2-Frozen)
}
.timerdmnextturn $+ $chan off
$iif($readini(Dm.Spec.ini,$chan,Player-2) < 100, writeini Dm.Spec.ini $chan Player-2 $calc( $readini(Dm.Spec.ini,$chan,Player-2) + 5))
writeini Dm.Hits.ini $chan Hit $rand(0,35)
writeini Dm.Hp.ini $chan Player-1 $calc( $readini(Dm.Hp.ini,$chan,Player-1) - $readini(Dm.Hits.ini,$chan,Hit) )
if ($readini(Dm.Hp.ini,$chan,Player-1) > 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14fires their Crystal Bow at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-1) 14Hitpoints.
msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ 's 14Turn.
writeini Dm.Turn.ini $chan Turn Player-1
.timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-2 Player-1
halt
}
if ($readini(Dm.Hp.ini,$chan,Player-1) <= 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14fires their Crystal Bow at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 0 14Hitpoints.
dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Wins
dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Losses
dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) + 60
dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) - 10
.timer 1 2 dmwinner $chan Player-2
halt
}
}
}
}
on *:TEXT:!Msb:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14.
halt
}
if ($readini(Dm.ini,$chan,Status) == Start) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
notice $nick 14You don't have anyone to face!
halt
}
}
if ($readini(Dm.ini,$chan,Status) == On) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
if ($readini(Dm.Turn.ini,$chan,Turn) != Player-1) {
notice $nick 14It's not your turn!
halt
}
if ($readini(Dm.Turn.ini,$chan,Turn) == Player-1) {
if ($readini(Dm.Spec.ini,$chan,Player-1) <= 0) {
notice $nick 14You don't have any Special Bar left!
halt
}
if ($readini(Dm.Spec.ini,$chan,Player-1) < 55) {
notice $nick 14You don't have enough Special Bar left!
halt
}
if ($readini(Dm.Spec.ini,$chan,Player-1) > 0) {
if ($readini(Dm.Other.ini,$chan,Player-1) == 1-Frozen) || ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2) {
$iif($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2, writeini Dm.Other.ini $chan Player-1-Frozen $calc( $readini(Dm.Other.ini,$chan,Player-1-Frozen) - 1), remini Dm.Other.ini $chan Player-1-Frozen)
}
.timerdmnextturn $+ $chan off
spec Player-1 $chan 55
writeini Dm.Hits.ini $chan Hit $rand(0,30) | writeini Dm.Hits.ini $chan DdpSpec $rand(0,30)
writeini Dm.Hits.ini $chan DdpSpecTotal $calc( $readini(Dm.Hits.ini,$chan,Hit) + $readini(Dm.Hits.ini,$chan,DdpSpec) )
writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) - $readini(Dm.Hits.ini,$chan,DdpSpecTotal) )
if ($readini(Dm.Hp.ini,$chan,Player-2) > 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14shoots 2 Rune Arrows at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14and a $+ 12 $readini(Dm.Hits.ini,$chan,DdpSpec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-2) 14Hitpoints.
msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ 's 14Turn.
notice $readini(Dm.Players.ini,$chan,Player-1) 14You now have $+ 7 $readini(Dm.Spec.ini,$chan,Player-1) $+ % 14Special Bar left.
writeini Dm.Turn.ini $chan Turn Player-2
.timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-1 Player-2
halt
}
}
}
if ($readini(Dm.Hp.ini,$chan,Player-2) <= 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14shoots 2 Rune Arrows at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14and a $+ 12 $readini(Dm.Hits.ini,$chan,DdpSpec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 0 14Hitpoints.
dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Wins
dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Losses
dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) + 60
dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) - 10
.timer 1 2 dmwinner $chan Player-1
halt
}
}
}
if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
if ($readini(Dm.Turn.ini,$chan,Turn) != Player-2) {
notice $nick 14It's not your turn!
halt
}
if ($readini(Dm.Turn.ini,$chan,Turn) == Player-2) {
if ($readini(Dm.Spec.ini,$chan,Player-2) <= 0) {
notice $nick 14You don't have any Special Bar left!
halt
}
if ($readini(Dm.Spec.ini,$chan,Player-2) < 55) {
notice $nick 14You don't have enough Special Bar left!
halt
}
if ($readini(Dm.Spec.ini,$chan,Player-2) > 0) {
if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 1) || ($readini(Dm.IB.ini,$chan,Player-2-Frozen) == 2) {
$iif($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2, writeini Dm.Other.ini $chan Player-2-Frozen $calc( $readini(Dm.Other.ini,$chan,Player-2-Frozen) - 1), remini Dm.Other.ini $chan Player-2-Frozen)
}
.timerdmnextturn $+ $chan off
spec Player-2 $chan 55
writeini Dm.Hits.ini $chan Hit $rand(0,25) | writeini Dm.Hits.ini $chan DdpSpec $rand(0,25)
writeini Dm.Hits.ini $chan DdpSpecTotal $calc( $readini(Dm.Hits.ini,$chan,Hit) + $readini(Dm.Hits.ini,$chan,DdpSpec) )
writeini Dm.Hp.ini $chan Player-1 $calc( $readini(Dm.Hp.ini,$chan,Player-1) - $readini(Dm.Hits.ini,$chan,DdpSpecTotal) )
if ($readini(Dm.Hp.ini,$chan,Player-1) > 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14shoots 2 Rune Arrows at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14and a $+ 12 $readini(Dm.Hits.ini,$chan,DdpSpec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-1) 14Hitpoints.
msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ 's 14Turn.
notice $readini(Dm.Players.ini,$chan,Player-2) 14You now have $+ 7 $readini(Dm.Spec.ini,$chan,Player-2) $+ % 14Special Bar left.
writeini Dm.Turn.ini $chan Turn Player-1
.timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-2 Player-1
halt
}
if ($readini(Dm.Hp.ini,$chan,Player-1) <= 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14shoots 2 Rune Arrows at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14and a $+ 12 $readini(Dm.Hits.ini,$chan,DdpSpec) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 0 14Hitpoints.
dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Wins
dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Losses
dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) + 60
dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) - 10
.timer 1 2 dmwinner $chan Player-2
halt
}
}
}
}
}
on $*:TEXT:/!(Ice|barrage)/Si:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14.
halt
}
if ($readini(Dm.ini,$chan,Status) == Start) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
notice $nick 14You don't have anyone to face!
halt
}
}
if ($readini(Dm.ini,$chan,Status) == On) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
if ($readini(Dm.Turn.ini,$chan,Turn) != Player-1) {
notice $nick 14It's not your turn!
halt
}
if ($readini(Dm.Turn.ini,$chan,Turn) == Player-1) {
writeini Dm.Hits.ini $chan Hit $rand(0,30)
.timerdmnextturn $+ $chan off
if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == $null) {
set %player2.frozen? [ $+ [ $chan ] ] $rand(1,4) | $iif(%player2.frozen? [ $+ [ $chan ] ] == 1, writeini Dm.Other.ini $chan Player-2-Frozen 2) | unset %player2.frozen? [ $+ [ $chan ] ]
}
if ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2) {
$iif($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2, writeini Dm.Other.ini $chan Player-1-Frozen $calc( $readini(Dm.Other.ini,$chan,Player-1-Frozen) - 1), remini Dm.Other.ini $chan Player-1-Frozen)
}
$iif($readini(Dm.Spec.ini,$chan,Player-1) < 100, writeini Dm.Spec.ini $chan Player-1 $calc( $readini(Dm.Spec.ini,$chan,Player-1) + 5))
writeini Dm.Hp.ini $chan Player-2 $calc( $readini(Dm.Hp.ini,$chan,Player-2) - $readini(Dm.Hits.ini,$chan,Hit) )
if ($readini(Dm.Hp.ini,$chan,Player-2) > 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14casts Ice Barrage at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-2) 14Hitpoints and $iif($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2, Froze them for $+ 3 2 14Turns., didn't freeze them.)
msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ 's 14Turn.
writeini Dm.Turn.ini $chan Turn Player-2
.timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-1 Player-2
halt
}
}
}
if ($readini(Dm.Hp.ini,$chan,Player-2) <= 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14casts Ice Barrage at $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-2) 14with $+ 4 0 14Hitpoints.
dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Wins
dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Losses
dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) + 60
dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) - 10
.timer 1 2 dmwinner $chan Player-1
halt
}
}
if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
if ($readini(Dm.Turn.ini,$chan,Turn) != Player-2) {
notice $nick 14It's not your turn!
halt
}
if ($readini(Dm.Turn.ini,$chan,Turn) == Player-2) {
.timerdmnextturn $+ $chan off
$iif($readini(Dm.Spec.ini,$chan,Player-2) < 100, writeini Dm.Spec.ini $chan Player-2 $calc( $readini(Dm.Spec.ini,$chan,Player-2) + 5))
writeini Dm.Hits.ini $chan Hit $rand(0,30)
if ($readini(Dm.Other.ini,$chan,Player-1-Frozen) == $null) {
set %player1.frozen? [ $+ [ $chan ] ] $rand(1,4) | $iif(%player1.frozen? [ $+ [ $chan ] ] == 1, writeini Dm.Other.ini $chan Player-1-Frozen 2) | unset %player1.frozen? [ $+ [ $chan ] ]
}
if ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 1) || ($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2) {
$iif($readini(Dm.Other.ini,$chan,Player-2-Frozen) == 2, writeini Dm.Other.ini $chan Player-2-Frozen $calc( $readini(Dm.Other.ini,$chan,Player-2-Frozen) - 1), remini Dm.Other.ini $chan Player-2-Frozen)
}
writeini Dm.Hp.ini $chan Player-1 $calc( $readini(Dm.Hp.ini,$chan,Player-1) - $readini(Dm.Hits.ini,$chan,Hit) )
if ($readini(Dm.Hp.ini,$chan,Player-1) > 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14casts Ice Barrage at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 $readini(Dm.Hp.ini,$chan,Player-1) 14Hitpoints and $iif($readini(Dm.Other.ini,$chan,Player-1-Frozen) == 2, Froze them for $+ 3 2 14Turns., didn't freeze them.)
msg $chan 14It's $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ 's 14Turn.
writeini Dm.Turn.ini $chan Turn Player-1
.timerdmnextturn $+ $chan 1 30 dmnextturn $chan Player-2 Player-1
halt
}
if ($readini(Dm.Hp.ini,$chan,Player-1) <= 0) {
msg $chan 7 $+ $readini(Dm.Players.ini,$chan,Player-2) 14casts Ice Barrage at at $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14which hits a $+ 12 $readini(Dm.Hits.ini,$chan,Hit) 14leaving $+ 7 $readini(Dm.Players.ini,$chan,Player-1) 14with $+ 4 0 14Hitpoints.
dmhiscore $readini(Dm.Players.ini,$chan,Player-2) Wins
dmhiscore $readini(Dm.Players.ini,$chan,Player-1) Losses
dmadddcoins $readini(Dm.Players.ini,$chan,Player-2) + 60
dmadddcoins $readini(Dm.Players.ini,$chan,Player-1) - 10
.timer 1 2 dmwinner $chan Player-2
halt
}
}
}
}
on *:TEXT:!DMStats:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14.
halt
}
if ($readini(Dm.ini,$chan,Status) == Start) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
notice $nick 14You don't have anyone to face!
halt
}
}
if ($readini(Dm.ini,$chan,Status) == On) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
notice $readini(Dm.Players.ini,$chan,Player-1) 14Here are your current DM Stats for $+ 7 $chan $+ 14: 12Hitpoints:4 $readini(Dm.Hp.ini,$chan,Player-1) 12Sharks:4 $readini(Dm.Sharks.ini,$chan,Player-1) 12Special Bar:4 $readini(Dm.Spec.ini,$chan,Player-1) $+ % 12Dharoks:4 $iif($readini(Dm.Other.ini,$chan,Player-1-Dh) == Degraded, 4Degraded, 4In-Shape) 12Frozen Turns Left:4 $iif($readini(Dm.Other.ini,$chan,Player-1-Frozen) != $null, $v1, 0)
halt
}
if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
notice $readini(Dm.Players.ini,$chan,Player-2) 14Here are your current DM Stats for $+ 7 $chan $+ 14: 12Hitpoints:4 $readini(Dm.Hp.ini,$chan,Player-2) 12Sharks:4 $readini(Dm.Sharks.ini,$chan,Player-2) 12Special Bar:4 $readini(Dm.Spec.ini,$chan,Player-2) $+ % 12Dharoks:4 $iif($readini(Dm.Other.ini,$chan,Player-2-Dh) == Degraded, 4Degraded, 4In-Shape) 12Frozen Turns Left:4 $iif($readini(Dm.Other.ini,$chan,Player-2-Frozen) != $null, $v1, 0)
}
}
}
on *:TEXT:!DMStats:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm14.
halt
}
if ($readini(Dm.ini,$chan,Status) == Start) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14is waiting to be challenged. To join the DM just type 7!Dm14.
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
notice $nick 14You don't have anyone to face!
halt
}
}
if ($readini(Dm.ini,$chan,Status) == On) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
notice $nick 14You're not in the DM for $+ 7 $chan $+ 14!
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
notice $readini(Dm.Players.ini,$chan,Player-1) 14Here are $+ 7 $readini(Dm.Players.ini,$chan,Player-2) $+ 's 14current DM Stats for $+ 7 $chan $+ 14: 12Hitpoints:4 $readini(Dm.Hp.ini,$chan,Player-2) 12Sharks:4 $readini(Dm.Sharks.ini,$chan,Player-2) 12Special Bar:4 $readini(Dm.Spec.ini,$chan,Player-2) $+ % 12Dharoks:4 $iif($readini(Dm.Other.ini,$chan,Player-2-Dh) == Degraded, 4Degraded, 4In-Shape) 12Frozen Turns Left:4 $iif($readini(Dm.Other.ini,$chan,Player-2-Frozen) != $null, $v1, 0)
halt
}
if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
notice $readini(Dm.Players.ini,$chan,Player-2) 14Here are $+ 7 $readini(Dm.Players.ini,$chan,Player-1) $+ 's 14current DM Stats for $+ 7 $chan $+ 14: 12Hitpoints:4 $readini(Dm.Hp.ini,$chan,Player-1) 12Sharks:4 $readini(Dm.Sharks.ini,$chan,Player-1) 12Special Bar:4 $readini(Dm.Spec.ini,$chan,Player-1) $+ % 12Dharoks:4 $iif($readini(Dm.Other.ini,$chan,Player-1-Dh) == Degraded, 4Degraded, 4In-Shape) 12Frozen Turns Left:4 $iif($readini(Dm.Other.ini,$chan,Player-1-Frozen) != $null, $v1, 0)
}
}
}
on *:TEXT:!Hiscores*:#:{
if (!$2) {
notice $nick 14Here are your hiscores from my 7DM 14Script: Wins:7 $iif($readini(Dm.Hiscores.ini,$nick,Wins) != $null, $readini(Dm.Hiscores.ini,$nick,Wins), 0) 14Losses:7 $iif($readini(Dm.Hiscores.ini,$nick,Losses) != $null, $readini(Dm.Hiscores.ini,$nick,Losses), 0) 14Total:7 $calc( $iif($readini(Dm.Hiscores.ini,$nick,Wins) == $null, 0, $v1) + $iif($readini(Dm.Hiscores.ini,$nick,Losses) == $null, 0, $v1))
halt
}
else {
notice $nick 14Here are $+ 7 $2 $+ 's 14hiscores from my 7DM 14Script: Wins:7 $iif($readini(Dm.Hiscores.ini,$2,Wins) != $null, $readini(Dm.Hiscores.ini,$2,Wins), 0) 14Losses:7 $iif($readini(Dm.Hiscores.ini,$2,Losses) != $null, $readini(Dm.Hiscores.ini,$2,Losses), 0) 14Total:7 $calc( $iif($readini(Dm.Hiscores.ini,$2,Wins) == $null, 0, $v1) + $iif($readini(Dm.Hiscores.ini,$2,Losses) == $null, 0, $v1))
halt
}
}
on *:QUIT:#:{
if ($readini(Dm.ini,$chan,Status) != $null) {
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) || ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
enddm $chan
msg $chan $+ $nick has quit IRC so their DM for $+ $chan automatically ends.
}
}
}
on *:TEXT:!Hp:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan There is no DM currently in $+ $chan $+ . To start one, type !Dm.
halt
}
if ($readini(Dm.ini,$chan,Status) == Start) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
notice $nick $+ $readini(Dm.Players.ini,$chan,Player-1) is waiting to be challenged. To join the DM just type !Dm.
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
notice $nick You don't have anyone to face!
halt
}
}
if ($readini(Dm.ini,$chan,Status) == On) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
notice $nick You're not in the DM for $+ $chan $+ !
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
notice $readini(Dm.Players.ini,$chan,Player-1) Here is your HP: $hpbar( $readini(Dm.Hp.ini,$chan,Player-1) )
halt
}
if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
notice $readini(Dm.Players.ini,$chan,Player-2) Here is your HP: $hpbar( $readini(Dm.Hp.ini,$chan,Player-2) ) }
}
}
on *:TEXT:!Spec:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan There is no DM currently in $+ $chan $+ . To start one, type !Dm.
halt
}
if ($readini(Dm.ini,$chan,Status) == Start) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) {
notice $nick $+ $readini(Dm.Players.ini,$chan,Player-1) is waiting to be challenged. To join the DM just type !Dm.
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
notice $nick You don't have anyone to face!
halt
}
}
if ($readini(Dm.ini,$chan,Status) == On) {
if ($readini(Dm.Players.ini,$chan,Player-1) != $nick) && ($readini(Dm.Players.ini,$chan,Player-2) != $nick) {
notice $nick You're not in the DM for $+ $chan $+ !
halt
}
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) {
notice $readini(Dm.Players.ini,$chan,Player-1) You have $+ $readini(Dm.Spec.ini,$chan,Player-1) $+ % Special Bar left.
halt
}
if ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
notice $readini(Dm.Players.ini,$chan,Player-2) You have $+ $readini(Dm.Spec.ini,$chan,Player-2) $+ % Special Bar left. }
}
}
on *:TEXT:!Sell*:*:{
if ($2 == $null) {
msg $nick You must specify what to sell. E.g: !Sell Guthans
halt
}
if ($2 == Guthans) {
if ($readini(D-Coins.ini,$nick,Guthans) == Sold) {
writeini D-Coins.ini $nick Coins $calc( $readini(D-Coins.ini,$nick,Coins) + 2000)
remini D-Coins.ini $nick Guthans
msg $nick You have just sold Guthans and now have $+ $readini(D-Coins.ini,$nick,Coins) D-Coins Left.
halt
}
if ($readini(D-Coins.ini,$nick,Guthans) != Sold) {
msg $nick You havn't even bought Guthans! To buy, type !Buy Guthans
halt
}
}
if ($2 == DMace) {
if ($readini(D-Coins.ini,$nick,DMace) == Sold) {
writeini D-Coins.ini $nick Coins $calc( $readini(D-Coins.ini,$nick,Coins) + 500)
remini D-Coins.ini $nick DMace
msg $nick You have just sold DMace Special and now have $+ $readini(D-Coins.ini,$nick,Coins) D-Coins Left.
halt
}
if ($readini(D-Coins.ini,$nick,DMace) != Sold) {
msg $nick You havn't even bought DMace Special! To buy, type !Buy DMace
halt
}
}
if ($2- == Blue Phat) {
if ($readini(D-Coins.ini,$nick,BPhat) == Sold) {
remini D-Coins.ini $nick BPhat
writeini D-Coins.ini $nick Coins $calc( $readini(D-Coins.ini,$nick,Coins) + 1000000)
msg $nick You have just sold Blue Phat and now have $+ $readini(D-Coins.ini,$nick,Coins) D-Coins Left.
halt
}
if ($readini(D-Coins.ini,$nick,BPhat) != Sold) {
msg $nick You don't even have a Blue Phat! To buy, type !Buy Cracker and type !Open to see if you got a Blue Phat.
halt
}
}
if ($2- == Green Phat) {
if ($readini(D-Coins.ini,$nick,GPhat) == Sold) {
remini D-Coins.ini $nick GPhat
writeini D-Coins.ini $nick Coins $calc( $readini(D-Coins.ini,$nick,Coins) + 1000000)
msg $nick You have just sold Green Phat and now have $+ $readini(D-Coins.ini,$nick,Coins) D-Coins Left.
halt
}
if ($readini(D-Coins.ini,$nick,GPhat) != Sold) {
msg $nick You don't even have a Green Phat! To buy, type !Buy Cracker and type !Open to see if you got a Green Phat.
halt
}
}
if ($2- == Red Phat) {
if ($readini(D-Coins.ini,$nick,RPhat) == Sold) {
remini D-Coins.ini $nick RPhat
writeini D-Coins.ini $nick Coins $calc( $readini(D-Coins.ini,$nick,Coins) + 1000000)
msg $nick You have just sold Red Phat and now have $+ $readini(D-Coins.ini,$nick,Coins) D-Coins Left.
halt
}
if ($readini(D-Coins.ini,$nick,RPhat) != Sold) {
msg $nick You don't even have a Red Phat! To buy, type !Buy Cracker and type !Open to see if you got a Red Phat.
halt
}
}
}
on *:TEXT:!Market*:*:{
msg $nick ****D-Coins Market**** You have $+ $iif($readini(D-Coins.ini,$nick,Coins) == $null, 0, $v1) D-Coins (To buy, type !Buy Item [The buy code is the underlined part in the Market])
msg $nick DMace Spec - $iif($readini(D-Coins.ini,$nick,DMace) == Sold, SOLD!, For Sale - $+ 500 D-Coins)
msg $nick Guthans - $iif($readini(D-Coins.ini,$nick,Guthans) == Sold, SOLD!, For Sale - $+ 2000 D-Coins)
msg $nick Christmas Cracker - $iif($readini(D-Coins.ini,$nick,CCracker) == Sold, SOLD!, For Sale - $+ 250 D-Coins)
msg $nick Blue/Green/Red PHat - $iif($readini(D-Coins.ini,$nick,BPhat) == Sold, Blue PHat Bought! 1M D-Coins) $iif($readini(D-Coins.ini,$nick,GPhat) == Sold, Green PHat Bought! 1M D-Coins) $iif($readini(D-Coins.ini,$nick,RPhat) == Sold, Red PHat Bought! 1M D-Coins) Only obtainable through !Buy Cracker
}
on *:TEXT:!Open:*:{
if ($readini(D-Coins.ini,$nick,Cracker) != Sold) {
msg $nick You havn't even bought a Christmas Cracker! To buy one, type !Buy Cracker
halt
}
else {
remini D-Coins.ini $nick Cracker
set %phat? [ $+ [ $nick ] ] $rand(1,20)
if (%phat? [ $+ [ $nick ] ] == 3) && ($readini(D-Coins.ini,$nick,BPhat) == $null) {
writeini D-Coins.ini $nick BPhat Sold
msg $nick You open your cracker and.... ITS A BLUE PHAT!!!
msg #KirbyBot $+ $nick just got a Blue Phat!
unset %phat? [ $+ [ $nick ] ]
halt
}
if (%phat? [ $+ [ $nick ] ] == 12) && ($readini(D-Coins.ini,$nick,RPhat) == $null) {
writeini D-Coins.ini $nick RPhat Sold
msg $nick You open your cracker and.... ITS A RED PHAT!!!
msg #KirbyBot $+ $nick just got a Red Phat!
unset %phat? [ $+ [ $nick ] ]
halt
}
if (%phat? [ $+ [ $nick ] ] == 7) && ($readini(D-Coins.ini,$nick,GPhat) == $null) {
writeini D-Coins.ini $nick GPhat Sold
msg $nick You open your cracker and.... ITS A GREEN PHAT!!!
msg #KirbyBot $+ $nick just got a Green Phat!
unset %phat? [ $+ [ $nick ] ]
halt
}
else {
msg $nick You open your cracker and.... You got nothing....
unset %phat? [ $+ [ $nick ] ]
halt
}
}
}
on *:TEXT:!DCoin Status*:*:{
msg $nick Here is your D-Coins Status: $iif($readini(D-Coins.ini,$nick,BPhat) == Sold, $+(\,$chr(124),/), §) $+ $iif($readini(D-Coins.ini,$nick,RPhat) == Sold, $+(\,$chr(124),/), §) $+ $iif($readini(D-Coins.ini,$nick,GPhat) == Sold, $+(\,$chr(124),/), §) D-Coins: $iif($readini(D-Coins.ini,$nick,Coins) == $null, 0, $v1) ~~ Guthans? $iif($readini(D-Coins.ini,$nick,Guthans) == Sold, Yes, No) ~~ DMace? $iif($readini(D-Coins.ini,$nick,DMace) == Sold, Yes, No) ~~ Cracker? $iif($readini(D-Coins.ini,$nick,Cracker) == Sold, Yes, No) ~~
}
on *:TEXT:!Buy*:*:{
if ($2 == $null) {
msg $nick You must specify what to buy. E.g: !Buy Guthans
halt
}
if ($2 == Guthans) {
if ($readini(D-Coins.ini,$nick,Guthans) == Sold) {
msg $nick You have already bought the Guthans!
halt
}
if ($readini(D-Coins.ini,$nick,Coins) >= 2000) {
writeini D-Coins.ini $nick Coins $calc( $readini(D-Coins.ini,$nick,Coins) - 2000)
writeini D-Coins.ini $nick Guthans Sold
msg $nick You have just bought Guthans and now have $+ $readini(D-Coins.ini,$nick,Coins) D-Coins Left.
halt
}
else {
msg $nick Guthans costs $+ 2000 D-Coins and you only have $+ $iif($readini(D-Coins.ini,$nick,Coins) == $null, 0, $v1) D-Coins.
halt
}
}
if ($2 == DMace) {
if ($readini(D-Coins.ini,$nick,DMace) == Sold) {
msg $nick You have already bought the DMace Special!
halt
}
if ($readini(D-Coins.ini,$nick,Coins) >= 500) {
writeini D-Coins.ini $nick Coins $calc( $readini(D-Coins.ini,$nick,Coins) - 500)
writeini D-Coins.ini $nick DMace Sold
msg $nick You have just bought The DMace Special and now have $+ $readini(D-Coins.ini,$nick,Coins) D-Coins Left.
halt
}
else {
msg $nick DMace Special costs $+ 500 D-Coins and you only have $+ $iif($readini(D-Coins.ini,$nick,Coins) == $null, 0, $v1) D-Coins.
halt
}
}
if ($2 == Cracker) {
if ($readini(D-Coins.ini,$nick,Cracker) == Sold) {
msg $nick You have already bought the Christmas Cracker!
halt
}
if ($readini(D-Coins.ini,$nick,Coins) >= 250) {
writeini D-Coins.ini $nick Cracker Sold
writeini D-Coins.ini $nick Coins $calc( $readini(D-Coins.ini,$nick,Coins) - 250)
msg $nick You have just bought A Christmas Cracker and now have $+ $readini(D-Coins.ini,$nick,Coins) D-Coins Left. (To Open, type !Open
halt
}
else {
msg $nick A Christmas Cracker costs $+ 250 D-Coins and you only have $+ $iif($readini(D-Coins.ini,$nick,Coins) == $null, 0, $v1) D-Coins.
halt
}
}
}
alias HPBar { var %OutPut = $+( $str( $+( $chr(3) , 9 , $chr(44) , 9 ,$chr(46)) , $round( $calc( ( $1 / 99 ) * 20 ) , 0 ) ),$str( $+( $chr(3) , 4 , $chr(44) , 4 ,$chr(46)) , $round( $calc( ( $calc( 99 - $1 ) / 99 ) * 20 ) , 0 ) ) ) | %50percent = $+($chr(3),1,$chr(44),09,5,$chr(3),1,$chr(44),04,0) | %49percent = $+($chr(3),1,$chr(44),04,$1) | %51percent = $+($chr(3),1,$chr(44),09,$1) | if ($1 == 50) var %percent = %50percent | if ($1 < 50) var %percent = %49percent | if ($1 > 50) var %percent = %51percent | if ($1 < 10) var %percent = $+(%49percent,$chr(3),4,$chr(44),04,.) | return $left( %OutPut , 45 ) $+ %percent $+ $right( %OutPut , 45 ) }
on *:TEXT:!DCoin Commands:*:{
msg $nick ****D-Coins Commands****
msg $nick !Market - To see whats up for sale
msg $nick !Buy Item - To buy an item
msg $nick !Sell Item - To sell an item
msg $nick !DCoin Status - To see your D-Coin Status (D-Coins, What you have, ect. ect.)
msg $nick !Open - To open a Christmas Cracker
}
alias spec {
writeini Dm.Spec.ini $2 $1 $calc( $readini(Dm.Spec.ini,$2,$1) - $3 )
}
alias enddm {
.timerdmoff $+ $1 off
.timerdmnextturn $+ $1 off
remini Dm.ini $1 Status
remini Dm.Players.ini $1 Player-1
remini Dm.Players.ini $1 Player-2
remini Dm.Hp.ini $1 Player-1
remini Dm.Hp.ini $1 Player-2
remini Dm.Sharks.ini $1 Player-1
remini Dm.Sharks.ini $1 Player-2
remini Dm.Hits.ini $1 DdpSpec
remini Dm.Hits.ini $1 DdpSpecTotal
remini Dm.Hits.ini $1 Hit
remini Dm.Spec.ini $1 Player-1
remini Dm.Spec.ini $1 Player-2
remini Dm.Turn.ini $1 Turn
remini Dm.Other.ini $1 Player-1-Dh
remini Dm.Other.ini $1 Player-2-Dh
remini Dm.Other.ini $1 Player-1-Frozen
remini Dm.Other.ini $1 Player-2-Frozen
remini Dm.Other.ini $1 Healed
}
alias dmadddcoins {
writeini D-Coins.ini $1 Coins $calc( $readini(D-Coins.ini,$1,Coins) $2 $3 )
if ($readini(D-Coins.ini,$1,Coins) < 0) {
writeini D-Coins.ini $1 Coins 0
}
}
alias dmnextturn {
.timerdmnextturn $+ $1 off
writeini Dm.Turn.ini $1 Turn $2
msg $1 7 $+ $readini(Dm.Players.ini,$1,$3) 14hasn't made a move in their DM in $+ 7 $1 $+ 14, so it's now $+ 7 $readini(Dm.Players.ini,$1,$2) $+ 's 14Turn.
.timerdmnextturn $+ $1 1 30 dmnextturn $1 $3 $2
}
alias dmtimerend {
msg $1 14No one has entered $+ 7 $readini(Dm.Players.ini,$1,Player-1) $+ 's 14DM in 30 Seconds, so their DM for $+ 7 $1 14has ended.
enddm $1
}
alias dmhiscore {
writeini Dm.Hiscores.ini $1 $2 $calc($readini(Dm.Hiscores.ini,$1,$2) + 1)
}
alias dmwinner {
msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14WINS! Wins:7 $iif($readini(Dm.Hiscores.ini,$readini(Dm.Players.ini,$1,$2),Wins) != $null, $readini(Dm.Hiscores.ini,$readini(Dm.Players.ini,$1,$2),Wins), 0) 14Losses:7 $iif($readini(Dm.Hiscores.ini,$readini(Dm.Players.ini,$1,$2),Losses) != $null, $readini(Dm.Hiscores.ini,$readini(Dm.Players.ini,$1,$2),Losses), 0) 14Total:7 $calc( $iif($readini(Dm.Hiscores.ini,$readini(Dm.Players.ini,$1,$2),Wins) == $null, 0, $v1) + $iif($readini(Dm.Hiscores.ini,$readini(Dm.Players.ini,$1,$2),Losses) == $null, 0, $v1)) 14D-Coins:7 $iif($readini(D-Coins.ini,$readini(Dm.Players.ini,$1,$2),Coins) != $null, $v1, 0)
if ($me isop $1) {
dmrandreward $1 $2 $r(1,10)
}
enddm $1
}
on *:PART:#:{
if ($readini(Dm.ini,$chan,Status) != $null) {
if ($readini(Dm.Players.ini,$chan,Player-1) == $nick) || ($readini(Dm.Players.ini,$chan,Player-2) == $nick) {
enddm $chan
msg $chan 7 $+ $nick 14has parted $+ 7 $chan $+ 14, so their DM automatically ends.
halt
}
}
}
alias dmrandreward {
if ($3 == 1) { msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14Also gets a 12Voice14! | mode $1 +v $readini(Dm.Players.ini,$1,$2) }
elseif ($3 == 2) { msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14Also gets a 7HalfOp14! | mode $1 +h $readini(Dm.Players.ini,$1,$2) }
elseif ($3 == 3) { msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14Also gets a 12Voice14! | mode $1 +v $readini(Dm.Players.ini,$1,$2) }
elseif ($3 == 4) { msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14Also gets a 14Op14! | mode $1 +0 $readini(Dm.Players.ini,$1,$2) }
elseif ($3 == 5) { msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14Also gets $+ 4 10 Extra D-Coins14! | writeini D-Coins.ini $readini(Dm.Players.ini,$1,$2) Coins $calc( $readini(D-Coins.ini,$readini(Dm.Players.ini,$1,$2),Coins) + 10) }
elseif ($3 == 6) { msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14Also gets $+ 4 20 Extra D-Coins14! | writeini D-Coins.ini $readini(Dm.Players.ini,$1,$2) Coins $calc( $readini(D-Coins.ini,$readini(Dm.Players.ini,$1,$2),Coins) + 20) }
elseif ($3 == 7) { msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14Also gets $+ 4 50 Extra D-Coins14! | writeini D-Coins.ini $readini(Dm.Players.ini,$1,$2) Coins $calc( $readini(D-Coins.ini,$readini(Dm.Players.ini,$1,$2),Coins) + 50) }
elseif ($3 == 8) { msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14Also gets $+ 4 100 Extra D-Coins14! | writeini D-Coins.ini $readini(Dm.Players.ini,$1,$2) Coins $calc( $readini(D-Coins.ini,$readini(Dm.Players.ini,$1,$2),Coins) + 100) }
elseif ($3 == 9) { msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14Also gets $+ 4 200 Extra D-Coins14! | writeini D-Coins.ini $readini(Dm.Players.ini,$1,$2) Coins $calc( $readini(D-Coins.ini,$readini(Dm.Players.ini,$1,$2),Coins) + 200) }
elseif ($3 == 10) { msg $1 7 $+ $readini(Dm.Players.ini,$1,$2) 14Also gets $+ 4 500 Extra D-Coins14! | writeini D-Coins.ini $readini(Dm.Players.ini,$1,$2) Coins $calc( $readini(D-Coins.ini,$readini(Dm.Players.ini,$1,$2),Coins) + 500) }
}