rendered paste bodyon *:TEXT:!Dm*:#:{ if ($readini(NickBlklist.ini,$nick,Abused) || $readini(AddBlklist.ini,$address($nick,2),Abused) >= 1) { halt }
if ($1 == !dmcommands) {
msg $nick 7!Dm (on|off)
msg $nick 14!Whip
msg $nick 7!Dds
msg $nick 14!Dh
msg $nick 7!Guthans
msg $nick 14!DMace
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 12 $+ $+($chr(77),$chr(97),$chr(100),$chr(101),$chr(32),$chr(98),$chr(121),$chr(32),$chr(75),$chr(105),$chr(114),$chr(98),$chr(115),$chr(116),$chr(101),$chr(114))
halt
}
if ($2 == on) {
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.ini,$chan,Status) == Start) {
notice $nick 7 $+ $readini(Dm.Players.ini,$chan,Player-1) 14has already started a DM for $+ 7 $chan $+ 14. To join, type 7!DM14.
halt
}
}
if ($2 == $null) && ($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 ($readini(Dm.ini,$chan,Status) == $null) {
notice $nick 14There is no Waiting-DM for $+ 7 $chan $+ 14. To start one, type 7!Dm On14.
halt
}
}
if ($2 == $null) && ($readini(Dm.Players.ini,$chan,Player-1) == $nick) && ($readini(Dm.ini,$chan,Status) == Start) {
notice $nick 14You are already in the DM for $+ 7 $chan $+ 14.
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!Dm On14.
halt
}
}
}
on *:TEXT:!Whip:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm On14.
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:!eat*:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm On14.
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!Dm On14.
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:!Dh:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm On14.
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!Dm On14.
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:!xbow*:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm On14.
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:!Msb:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm On14.
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:!barrage*:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm On14.
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:!MyStats:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm On14.
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:!TheirStats:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm On14.
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
}
}
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))
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
}
}
}
on *:TEXT:!DMace:#:{
if ($readini(Dm.ini,$chan,Status) == $null) {
msg $chan 14There is no DM currently in $+ 7 $chan $+ 14. To start one, type 7!Dm On14.
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.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.Turn.ini,$chan,Turn) == Player-1) {
if ($readini(D-Coins.ini,$nick,DMace) != Sold) {
notice $nick 14You havn't bought D Mace Special. To buy, type 7!Buy DMace
halt
}
.timerdmnextturn $+ $chan off
spec Player-1 $chan 25
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) 14shatters $+ 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
notice $nick 14You now have $+ 7 $readini(Dm.Spec.ini,$chan,Player-1) $+ % 14Special Bar left.
.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) 14shatters $+ 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.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.Turn.ini,$chan,Turn) == Player-2) {
if ($readini(D-Coins.ini,$nick,DMace) != Sold) {
notice $nick 14You havn't bought D Mace Special. To buy, type 7!Buy DMace
halt
}
.timerdmnextturn $+ $chan off
spec Player-2 $chan 25
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) 14shatters $+ 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
notice $nick 14You now have $+ 7 $readini(Dm.Spec.ini,$chan,Player-2) $+ % 14Special Bar left.
.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) 14shatters $+ 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
}
}
}
}
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 14You have just sold 7Green Phat 14and now have $+ 7 $readini(D-Coins.ini,$nick,Coins) 4D-Coins Left.
halt
}
if ($readini(D-Coins.ini,$nick,GPhat) != Sold) {
msg $nick 14You don't even have a Green Phat! To buy, type 7!Buy Cracker 14and type 7!Open 14to 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 14You have just sold 7Red Phat 14and now have $+ 7 $readini(D-Coins.ini,$nick,Coins) 4D-Coins Left.
halt
}
if ($readini(D-Coins.ini,$nick,RPhat) != Sold) {
msg $nick 14You don't even have a Red Phat! To buy, type 7!Buy Cracker 14and type 7!Open 14to see if you got a Red Phat.
halt
}
}
on *:TEXT:!Market*:*:{
msg $nick 4****D-Coins Market**** 3You have $+ 6 $iif($readini(D-Coins.ini,$nick,Coins) == $null, 0, $v1) 3D-Coins 14(To buy, type 7!Buy Item 14[The buy code is the 7underlined14 part in the Market])
msg $nick 14 DMace Spec -7 $iif($readini(D-Coins.ini,$nick,DMace) == Sold, SOLD!, For Sale - $+ 4 500 D-Coins)
msg $nick 14 Guthans -7 $iif($readini(D-Coins.ini,$nick,Guthans) == Sold, SOLD!, For Sale - $+ 4 2000 D-Coins)
msg $nick 14Christmas Cracker -7 $iif($readini(D-Coins.ini,$nick,CCracker) == Sold, SOLD!, For Sale - $+ 4 250 D-Coins)
msg $nick 14 Blue / Green / Red PHat -7 $iif($readini(D-Coins.ini,$nick,BPhat) == Sold, Bought!4 1M D-Coins, Only Buyable through !Cracker)
}
on *:TEXT:!Open:*:{
if ($readini(D-Coins.ini,$nick,Cracker) != Sold) {
msg $nick 14You havn't even bought a Christmas Cracker! To buy one, type 7!Buy Cracker
halt
}
else {
remini D-Coins.ini $nick Cracker
set %phat? [ $+ [ $nick ] ] $rand(1,20)
if (%phat? [ $+ [ $nick ] ] == 3) {
writeini D-Coins.ini $nick BPhat Sold
msg $nick 14You open your cracker and.... 7ITS A 12BLUE PHAT7!!!
msg #KirbyKoot 7 $+ $nick 14just got a 12Blue Phat!
unset %phat? [ $+ [ $nick ] ]
halt
}
if (%phat? [ $+ [ $nick ] ] == 12) {
writeini D-Coins.ini $nick RPhat Sold
msg $nick 14You open your cracker and.... 7ITS A 4RED PHAT7!!!
msg #KirbyKoot 7 $+ $nick 14just got a 4Red Phat!
unset %phat? [ $+ [ $nick ] ]
halt
}
if (%phat? [ $+ [ $nick ] ] == 7) {
writeini D-Coins.ini $nick GPhat Sold
msg $nick 14You open your cracker and.... 7ITS A 3GREEN PHAT7!!!
msg #KirbyKoot 7 $+ $nick 14just got a 3Green Phat!
unset %phat? [ $+ [ $nick ] ]
halt
}
else {
msg $nick 14You open your cracker and.... 7You got nothing....
halt
}
}
}
on *:TEXT:!DCoin Status*:#:{
msg $nick 14Here is your 4D-Coins 14Status: $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§) 12D-Coins:4 $iif($readini(D-Coins.ini,$nick,Coins) == $null, 0, $v1) 3~~ 12Guthans?4 $iif($readini(D-Coins.ini,$nick,Guthans) == Sold, Yes, No) 3~~ 12DMace?4 $iif($readini(D-Coins.ini,$nick,DMace) == Sold, Yes, No) 3~~ 12Cracker?4 $iif($readini(D-Coins.ini,$nick,Cracker) == Sold, Yes, No) 3~~
msg $nick 12 $+ $+($chr(77),$chr(97),$chr(100),$chr(101),$chr(32),$chr(98),$chr(121),$chr(32),$chr(75),$chr(105),$chr(114),$chr(98),$chr(115),$chr(116),$chr(101),$chr(114))
}
on *:TEXT:!Buy*:*:{
if ($2 == $null) {
msg $nick 14You must specify what to buy. E.g: 7!Buy Guthans
halt
}
if ($2 == Guthans) {
if ($readini(D-Coins.ini,$nick,Guthans) == Sold) {
msg $nick 14You have already bought the 7Guthans!
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 14You have just bought 7Guthans 14and now have $+ 7 $readini(D-Coins.ini,$nick,Coins) 4D-Coins Left.
halt
}
else {
msg $nick 7Guthans 14costs $+ 7 2000 14D-Coins and you only have $+ 7 $iif($readini(D-Coins.ini,$nick,Coins) == $null, 0, $v1) 14D-Coins.
halt
}
}
if ($2 == DMace) {
if ($readini(D-Coins.ini,$nick,DMace) == Sold) {
msg $nick 14You have already bought the 7DMace 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 14You have just bought 7The DMace Special 14and now have $+ 7 $readini(D-Coins.ini,$nick,Coins) 4D-Coins Left.
halt
}
else {
msg $nick 7DMace Special 14costs $+ 7 500 14D-Coins and you only have $+ 7 $iif($readini(D-Coins.ini,$nick,Coins) == $null, 0, $v1) 14D-Coins.
halt
}
}
if ($2 == Cracker) {
if ($readini(D-Coins.ini,$nick,Cracker) == Sold) {
msg $nick 14You have already bought the 7Christmas 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 14You have just bought 7A Christmas Cracker 14and now have $+ 7 $readini(D-Coins.ini,$nick,Coins) 4D-Coins Left. 14(To Open, type 7!Open
halt
}
else {
msg $nick 7A Christmas Cracker 14costs $+ 7 250 14D-Coins and you only have $+ 7 $iif($readini(D-Coins.ini,$nick,Coins) == $null, 0, $v1) 14D-Coins.
halt
}
}
}
on *:TEXT:!DCoin Commands:#:{
msg $nick 4****D-Coins Commands****
msg $nick 14!Market -7 To see whats up for sale
msg $nick 14!Buy Item -7 To buy an item
msg $nick 14!Sell Item -7 To sell an item
msg $nick 14!DCoin Status -7 To see your D-Coin Status (D-Coins, What you have, ect. ect.)
msg $nick 14!Open -7 To open a Christmas Cracker
}