rendered paste bodyon *:TEXT:!dm:#PCGames: {
if ($readini(dm.ini,GameChans,$chan) == 1Player) {
if ($readini(dm.ini,$chan,Player1) == $nick) { .notice $nick $c1(You aren't allowed to play with yourself, we are very sorry) | HALT }
writeini dm.ini $chan Player2 $nick
writeini dm.ini GameChans $chan on
writeini dm.ini $chan P2hp 99
writeini dm.ini $chan P2spec 100
writeini dm.ini $chan P2food 5
msg $chan 4 $nick 12has Joined The DM. Game is4 $readini(dm.ini,$chan,Player1) 12-VS-4 $readini(dm.ini,$chan,Player2) $+ 12. Type !Dmcommands To View Attacks!
if ($r(0,1) == 0) {
writeini dm.ini $chan Turn Player1
msg $chan $readini(dm.ini,$chan,Player1) $+ , Its Your Turn.
}
else {
writeini dm.ini $chan Turn Player2
msg $chan $readini(dm.ini,$chan,Player2) $+ , Its Your Turn.
}
}
elseif ($readini(dm.ini,GameChans,$chan) != On) {
writeini dm.ini GameChans $chan 1Player
writeini dm.ini $chan Player1 $nick
writeini dm.ini $chan P1hp 99
writeini dm.ini $chan P1spec 100
writeini dm.ini $chan P1food 5
msg $chan $c2($nick) $c1(has initiated a Death Match. Type) $c2(!dm) $c1(to challenge) $c2($nick)
}
}
on *:TEXT:!stopdm:#PCGames: {
if ($nick !isreg $chan || $readini(dm.ini,$chan,Player1) == $nick || $readini(dm.ini,$chan,Player2) == $nick) {
remini dm.ini $chan
remini dm.ini GameChans $chan
msg $chan The Death Match has been halted by $nick
halt
.notice $nick You have to be playing or a member of staff
}
}
on *:TEXT:!whip:#PCGames: {
if ($nick == $readini(dm.ini,$chan,Player1) && $readini(dm.ini,$chan,Turn) == Player1) {
if ($ini(dm.ini,$chan,P1gaxe)) { .notice $nick Your Still Recovering From GreatAxe. Use !pass. | HALT }
writeini dm.ini $chan hit $r(0,35)
writeini dm.ini $chan P2hp $calc($readini(dm.ini,$chan,P2hp) - $readini(dm.ini,$chan,hit))
msg $chan $readini(dm.ini,$chan,Player1) Smacks $readini(dm.ini,$chan,Player2) with their Whip, Hitting a $readini(dm.ini,$chan,hit) $+ .
if ($readini(dm.ini,$chan,P2hp) > 0) {
writeini dm.ini $chan Turn Player2
msg $chan $readini(dm.ini,$chan,Player2) $+ , Its Your Turn. $hpbar($readini(dm.ini,$chan,P2hp))
}
else {
msg $chan $readini(dm.ini,$chan,Player2) Has Died! $readini(dm.ini,$chan,Player1) is the Winner!
remini dm.ini $chan
remini dm.ini GameChans $chan
}
}
elseif ($nick == $readini(dm.ini,$chan,Player2) && $readini(dm.ini,$chan,Turn) == Player2) {
if ($ini(dm.ini,$chan,P2gaxe)) { .notice $nick Your Still Recovering From GreatAxe. Use !pass. | HALT }
writeini dm.ini $chan hit $r(0,35)
writeini dm.ini $chan P1hp $calc($readini(dm.ini,$chan,P1hp) - $readini(dm.ini,$chan,hit))
msg $chan $readini(dm.ini,$chan,Player2) Smacks $readini(dm.ini,$chan,Player1) with their Whip, Hitting a $readini(dm.ini,$chan,hit) $+ .
if ($readini(dm.ini,$chan,P1hp) > 0) {
writeini dm.ini $chan Turn Player1
msg $chan $readini(dm.ini,$chan,Player1) $+ , Its Your Turn. $hpbar($readini(dm.ini,$chan,P1hp))
}
else {
msg $chan $readini(dm.ini,$chan,Player1) Has Died! $readini(dm.ini,$chan,Player2) is the Winner!
remini dm.ini $chan
remini dm.ini GameChans $chan
}
}
else { .notice $nick Its not your turn or you are not playing a DM. }
}
on *:TEXT:!eat:#PCGames: {
if ($nick == $readini(dm.ini,$chan,Player1) && $readini(dm.ini,$chan,Turn) == Player1) {
if ($readini(dm.ini,$chan,P1food) <= 0) { .notice $nick You Have No Food Left. | HALT }
if ($calc($readini(dm.ini,$chan,P1hp) + 20) <= 99) {
writeini dm.ini $chan P1hp $calc($readini(dm.ini,$chan,P1hp) + 20)
msg $chan $readini(dm.ini,$chan,Player1) Eats. $hpbar($readini(dm.ini,$chan,P1hp))
msg $chan $readini(dm.ini,$chan,Player2) $+ , Its Your Turn.
writeini dm.ini $chan Turn Player2
writeini dm.ini $chan P1food $calc($readini(dm.ini,$chan,P1hp) - 1)
if ($ini(dm.ini,$chan,P1gaxe)) { remini dm.ini $chan P1gaxe }
}
else {
writeini dm.ini $chan P1hp 99
msg $chan $readini(dm.ini,$chan,Player1) Eats. $hpbar(99)
msg $chan $readini(dm.ini,$chan,Player2) $+ , Its Your Turn.
writeini dm.ini $chan Turn Player2
writeini dm.ini $chan P1food $calc($readini(dm.ini,$chan,P1hp) - 1)
if ($ini(dm.ini,$chan,P1gaxe)) { remini dm.ini $chan P1gaxe }
}
}
elseif ($nick == $readini(dm.ini,$chan,Player2) && $readini(dm.ini,$chan,Turn) == Player2) {
if ($readini(dm.ini,$chan,P2food) <= 0) { .notice $nick You Have No Food Left. | HALT }
if ($calc($readini(dm.ini,$chan,P2hp) + 20) <= 99) {
writeini dm.ini $chan P2hp $calc($readini(dm.ini,$chan,P2hp) + 20)
msg $chan $readini(dm.ini,$chan,Player2) Eats. $hpbar($readini(dm.ini,$chan,P2hp))
msg $chan $readini(dm.ini,$chan,Player1) $+ , Its Your Turn.
writeini dm.ini $chan Turn Player1
writeini dm.ini $chan P2food $calc($readini(dm.ini,$chan,P2hp) - 1)
if ($ini(dm.ini,$chan,P2gaxe)) { remini dm.ini $chan P2gaxe }
}
else {
writeini dm.ini $chan P2hp 99
msg $chan $readini(dm.ini,$chan,Player2) Eats. $hpbar(99)
msg $chan $readini(dm.ini,$chan,Player1) $+ , Its Your Turn.
writeini dm.ini $chan Turn Player1
writeini dm.ini $chan P2food $calc($readini(dm.ini,$chan,P2hp) - 1)
if ($ini(dm.ini,$chan,P2gaxe)) { remini dm.ini $chan P2gaxe }
}
}
else { .notice $nick Its not your turn or you are not playing a DM. }
}
on *:TEXT:!dds:#PCGames: {
if ($readini(dm.ini,$chan,Turn) == Player1 && $readini(dm.ini,$chan,Player1) == $nick) {
if ($ini(dm.ini,$chan,P1gaxe)) { .notice $nick Your Still Recovering From GreatAxe. Use !pass. | HALT }
if ($readini(dm.ini,$chan,P1spec) < 25) { .notice $nick You Have no Special Energy left! | HALT }
writeini dm.ini $chan P1spec $calc($readini(dm.ini,$chan,P1spec) - 25)
writeini dm.ini $chan Hit $r(0,25)
writeini dm.ini $chan Hit2 $r(0,25)
msg $chan $readini(dm.ini,$chan,Player1) specs at $readini(dm.ini,$chan,Player2) hitting a $readini(dm.ini,$chan,Hit) and a $readini(dm.ini,$chan,Hit2) $+ .
writeini dm.ini $chan P2hp $calc( $readini(dm.ini,$chan,P2hp) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2 ) ) )
if ($readini(dm.ini,$chan,P2hp) < 1) {
msg $chan $readini(dm.ini,$chan,Player2) has Died! $readini(dm.ini,$chan,Player1) is the Winner!
remini dm.ini $chan
remini dm.ini GameChans $chan
}
else {
msg $chan $readini(dm.ini,$chan,Player2) $+ , Its your Turn. $hpbar($readini(dm.ini,$chan,P2hp))
writeini dm.ini $chan Turn Player2
}
}
elseif ($readini(dm.ini,$chan,Turn) == Player2 && $readini(dm.ini,$chan,Player2) == $nick) {
if ($ini(dm.ini,$chan,P2gaxe)) { .notice $nick Your Still Recovering From GreatAxe. Use !pass. | HALT }
if ($readini(dm.ini,$chan,P2spec) < 25) { .notice $nick You Have no Special Energy left! | HALT }
writeini dm.ini $chan P2spec $calc($readini(dm.ini,$chan,P2spec) - 25)
writeini dm.ini $chan Hit $r(0,25)
writeini dm.ini $chan Hit2 $r(0,25)
msg $chan $readini(dm.ini,$chan,Player2) specs at $readini(dm.ini,$chan,Player1) hitting a $readini(dm.ini,$chan,Hit) and a $readini(dm.ini,$chan,Hit2) $+ .
writeini dm.ini $chan P1hp $calc( $readini(dm.ini,$chan,P1hp) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2 ) ) )
if ($readini(dm.ini,$chan,P1hp) < 1) {
msg $chan $readini(dm.ini,$chan,Player1) has Died! $readini(dm.ini,$chan,Player2) is the Winner!
remini dm.ini $chan
remini dm.ini GameChans $chan
}
else {
msg $chan $readini(dm.ini,$chan,Player1) $+ , Its your Turn. $hpbar($readini(dm.ini,$chan,P1hp))
writeini dm.ini $chan Turn Player1
}
}
else {
.notice $nick Its not your Turn or Your Not in This DM!
}
}
on *:TEXT:!gaxe:#PCGames: {
if ($nick == $readini(dm.ini,$chan,Player1) && $readini(dm.ini,$chan,Turn) == Player1) {
if ($ini(dm.ini,$chan,P1gaxe)) { .notice $nick Your Still Recovering From GreatAxe. Use !pass. | HALT }
writeini dm.ini $chan hit $r(0,75)
writeini dm.ini $chan P2hp $calc($readini(dm.ini,$chan,P2hp) - $readini(dm.ini,$chan,hit))
writeini dm.ini $chan P1gaxe 1
msg $chan $readini(dm.ini,$chan,Player1) Cracks $readini(dm.ini,$chan,Player2) with their Great Axe, Hitting a $readini(dm.ini,$chan,hit) $+ .
if ($readini(dm.ini,$chan,P2hp) > 0) {
writeini dm.ini $chan Turn Player2
msg $chan $readini(dm.ini,$chan,Player2) $+ , Its Your Turn. $hpbar($readini(dm.ini,$chan,P2hp))
}
else {
msg $chan $readini(dm.ini,$chan,Player2) Has Died! $readini(dm.ini,$chan,Player1) is the Winner!
remini dm.ini $chan
remini dm.ini GameChans $chan
}
}
elseif ($nick == $readini(dm.ini,$chan,Player2) && $readini(dm.ini,$chan,Turn) == Player2) {
if ($ini(dm.ini,$chan,P2gaxe)) { .notice $nick Your Still Recovering From GreatAxe. Use !pass Or !eat. | HALT }
writeini dm.ini $chan hit $r(0,75)
writeini dm.ini $chan P1hp $calc($readini(dm.ini,$chan,P1hp) - $readini(dm.ini,$chan,hit))
writeini dm.ini $chan P2gaxe 1
msg $chan $readini(dm.ini,$chan,Player2) Cracks $readini(dm.ini,$chan,Player1) with their Great Axe, Hitting a $readini(dm.ini,$chan,hit) $+ .
if ($readini(dm.ini,$chan,P1hp) > 0) {
writeini dm.ini $chan Turn Player1
msg $chan $readini(dm.ini,$chan,Player1) $+ , Its Your Turn. $hpbar($readini(dm.ini,$chan,P1hp))
}
else {
msg $chan $readini(dm.ini,$chan,Player1) Has Died! $readini(dm.ini,$chan,Player2) is the Winner!
remini dm.ini $chan
remini dm.ini GameChans $chan
}
}
else { .notice $nick Its not your turn or you are not playing a DM. }
}
on *:TEXT:!pass:#PCGames: {
if ($nick == $readini(dm.ini,$chan,Player1) && $readini(dm.ini,$chan,Turn) == Player1) {
if ($ini(dm.ini,$chan,P1gaxe)) { remini dm.ini $chan P1gaxe }
msg $chan $readini(dm.ini,$chan,Player1) Passes. $readini(dm.ini,$chan,Player2) $+ , Its your Turn.
writeini dm.ini $chan turn Player2
}
elseif ($nick == $readini(dm.ini,$chan,Player2) && $readini(dm.ini,$chan,Turn) == Player2) {
if ($ini(dm.ini,$chan,P2gaxe)) { remini dm.ini $chan P2gaxe }
msg $chan $readini(dm.ini,$chan,Player2) Passes. $readini(dm.ini,$chan,Player1) $+ , Its your Turn.
writeini dm.ini $chan turn Player1
}
else { .notice $nick Its not your turn or you are not playing a DM. }
}
on *:TEXT:!gmaul:#PCGames: {
if ($readini(dm.ini,$chan,Turn) == Player1 && $readini(dm.ini,$chan,Player1) == $nick) {
if ($ini(dm.ini,$chan,P1gaxe)) { .notice $nick Your Still Recovering From GreatAxe. Use !pass. | HALT }
if ($readini(dm.ini,$chan,P1spec) < 100) { .notice $nick You Dont have Enough Special Energy left! | HALT }
writeini dm.ini $chan P1spec 0
writeini dm.ini $chan Hit $r(0,20)
writeini dm.ini $chan Hit2 $r(0,20)
writeini dm.ini $chan Hit3 $r(0,20)
msg $chan $readini(dm.ini,$chan,Player1) Granite Maul specs at $readini(dm.ini,$chan,Player2) hitting a $readini(dm.ini,$chan,Hit) & $readini(dm.ini,$chan,Hit2) & $readini(dm.ini,$chan,Hit3) $+ .
writeini dm.ini $chan P2hp $calc( $readini(dm.ini,$chan,P2hp) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2) + $readini(dm.ini,$chan,Hit3 ) ) )
if ($readini(dm.ini,$chan,P2hp) < 1) {
msg $chan $readini(dm.ini,$chan,Player2) has Died! $readini(dm.ini,$chan,Player1) is the Winner!
remini dm.ini $chan
remini dm.ini GameChans $chan
}
else {
msg $chan $readini(dm.ini,$chan,Player2) $+ , Its your Turn. $hpbar($readini(dm.ini,$chan,P2hp))
writeini dm.ini $chan Turn Player2
}
}
elseif ($readini(dm.ini,$chan,Turn) == Player2 && $readini(dm.ini,$chan,Player2) == $nick) {
if ($ini(dm.ini,$chan,P2gaxe)) { .notice $nick Your Still Recovering From GreatAxe. Use !pass. | HALT }
if ($readini(dm.ini,$chan,P2spec) < 100) { .notice $nick You Dont have Enough Special Energy left! | HALT }
writeini dm.ini $chan P2spec 0
writeini dm.ini $chan Hit $r(0,20)
writeini dm.ini $chan Hit2 $r(0,20)
writeini dm.ini $chan Hit3 $r(0,20)
msg $chan $readini(dm.ini,$chan,Player2) Granite Maul specs at $readini(dm.ini,$chan,Player1) hitting a $readini(dm.ini,$chan,Hit) & $readini(dm.ini,$chan,Hit2) & $readini(dm.ini,$chan,Hit3) $+ .
writeini dm.ini $chan P1hp $calc( $readini(dm.ini,$chan,P1hp) - $calc($readini(dm.ini,$chan,Hit) + $readini(dm.ini,$chan,Hit2) + $readini(dm.ini,$chan,Hit3 ) ) )
if ($readini(dm.ini,$chan,P1hp) < 1) {
msg $chan $readini(dm.ini,$chan,Player1) has Died! $readini(dm.ini,$chan,Player2) is the Winner!
remini dm.ini $chan
remini dm.ini GameChans $chan
}
else {
msg $chan $readini(dm.ini,$chan,Player1) $+ , Its your Turn. $hpbar($readini(dm.ini,$chan,P1hp))
writeini dm.ini $chan Turn Player1
}
}
else {
.notice $nick Its not your Turn or Your Not in This DM!
}
}
on *:TEXT:!hpbar *:#PCGames:{
if ($2 isnum 1-99) {
msg $chan $hpbar($2)
}
else {
.notice $nick Invalid Number. 1-99.
}
}
alias hpbar {
if ($1 isnum 1-5) { return $+(9,$chr(44),9|4,$chr(44),4||||||||,010,$1,4|||||||||) }
if ($1 isnum 6-9) { return $+(9,$chr(44),9||04,$chr(44),4|||||||,010,$1,4|||||||||) }
if ($1 == 10) { return $+(9,$chr(44),9||04,$chr(44),4|||||||,01,$1,4|||||||||) }
if ($1 isnum 11-15) { return $+(9,$chr(44),9|||04,$chr(44),4||||||,01,$1,4|||||||||) }
if ($1 isnum 16-20) { return $+(9,$chr(44),9||||04,$chr(44),4|||||,01,$1,4|||||||||) }
if ($1 isnum 21-25) { return $+(9,$chr(44),9|||||04,$chr(44),4||||,01,$1,4|||||||||) }
if ($1 isnum 26-30) { return $+(9,$chr(44),9||||||04,$chr(44),4|||,01,$1,4|||||||||) }
if ($1 isnum 31-35) { return $+(9,$chr(44),9|||||||04,$chr(44),4||,01,$1,4|||||||||) }
if ($1 isnum 36-40) { return $+(9,$chr(44),9||||||||04,$chr(44),4|,01,$1,4|||||||||) }
if ($1 isnum 41-45) { return $+(9,$chr(44),9|||||||||01,$chr(44),04,$1,04|||||||||) }
if ($1 isnum 46-50) { return $+(9,$chr(44),9|||||||||01,$left($1,1),01,$chr(44),04,$right($1,1),04|||||||||) }
if ($1 isnum 51-55) { return $+(9,$chr(44),9|||||||||,01,$1,04,$chr(44),04|||||||||) }
if ($1 isnum 56-60) { return $+(9,$chr(44),9|||||||||,01,$1,09|04,$chr(44),04||||||||) }
if ($1 isnum 61-65) { return $+(9,$chr(44),9|||||||||,01,$1,09||04,$chr(44),04|||||||) }
if ($1 isnum 66-70) { return $+(9,$chr(44),9|||||||||,01,$1,09|||04,$chr(44),04||||||) }
if ($1 isnum 71-75) { return $+(9,$chr(44),9|||||||||,01,$1,09||||04,$chr(44),04|||||) }
if ($1 isnum 76-80) { return $+(9,$chr(44),9|||||||||,01,$1,09|||||04,$chr(44),04||||) }
if ($1 isnum 81-85) { return $+(9,$chr(44),9|||||||||,01,$1,09||||||04,$chr(44),04|||) }
if ($1 isnum 86-90) { return $+(9,$chr(44),9|||||||||,01,$1,09|||||||04,$chr(44),04||) }
if ($1 isnum 91-95) { return $+(9,$chr(44),9|||||||||,01,$1,09||||||||04,$chr(44),04|) }
if ($1 isnum 96-98) { return $+(9,$chr(44),9|||||||||,01,$1,09|||||||||) }
if ($1 isnum 100-999999) { return $+(9,$chr(44),9|||||||||,01,$1,09|||||||||) }
}
on *:TEXT:!dmcommands:#PCGames:{
.msg $nick 12Dm 4Commands
.msg $nick 12!Whip
.msg $nick 12!DDS 1-4 25% Spec
.msg $nick 12!Gmaul 1-4 100% Spec
.msg $nick 12!Gaxe
.msg $nick 12!Eat
.msg $nick 12!Stopdm 1-4 Halfop +
.msg $nick 12!Pass
}