Public feed
#531618
;;;;;;;;;;;;;;;;;;
;;; DeathMatch ;;;
;;;;;;;;;;;;;;;;;;
on *:text:!dm*:%gamechan.dm: {
if (%dm.on == On) && (%Player2 != $null) {
.notice $nick A DM is already going on $iif(%dm.chan != $chan, in channel %dm.chan $+ .,.)
}
if (%dm.on == On) && (%Player2 == $null) && ($nick != %Player1) {
set %Player2 $nick
.notice $nick You are player 2.
dm_start
}
if (%dm.on != On) {
set %Player1 $nick
.notice $nick You are player 1.
msg $chan %Player1 decided to dm! Type !dm to respond!
set %dm.on On
}
}
on *:text:*:%gamechan.dm: {
if (%dm.on) && (%Player1 != $null) && (%Player2 != $null) {
if ($1 == !enddm) && (($nick == %Player1) || ($nick == %Player2)) {
.msg $chan DM ended.
dm_end
}
if ($1 == !whip) {
if (%dm.turn == %Player1) && ($nick == %Player1) {
set %dmg $rand(0,35)
set %Player2.hp $calc(%Player2.hp - %dmg)
.msg $chan %Player1 uses an Abyssal Whip against %Player2 $+ , dealing %dmg damage! %Player2 now have $iif(%Player2.hp > 0,%Player2.hp,0) hp left.
set %dm.turn %Player2
if (%Player2.hp < 1) dm_end
}
if (%dm.turn == %Player2) && ($nick == %Player2) {
set %dmg $rand(0,35)
set %Player1.hp $calc(%Player1.hp - %dmg)
.msg $chan %Player2 uses an Abyssal Whip against %Player1 $+ , dealing %dmg damage! %Player1 now have $iif(%Player1.hp > 0,%Player1.hp,0) hp left.
set %dm.turn %Player1
if (%Player1.hp < 1) dm_end
}
}
if ($1 == !dscim) {
if (%dm.turn == %Player1) && ($nick == %Player1) {
set %dmg $rand(0,35)
set %Player2.hp $calc(%Player2.hp - %dmg)
.msg $chan %Player1 slash %Player2 with a Dragon Scimitar, dealing %dmg damage! %Player2 now have $iif(%Player2.hp > 0,%Player2.hp,0) hp left.
set %dm.turn %Player2
if (%Player2.hp < 1) dm_end
}
if (%dm.turn == %Player2) && ($nick == %Player2) {
set %dmg $rand(0,35)
set %Player1.hp $calc(%Player1.hp - %dmg)
.msg $chan %Player2 slash %Player1 with a Dragon Scimitar, dealing %dmg damage! %Player1 now have $iif(%Player1.hp > 0,%Player1.hp,0) hp left.
set %dm.turn %Player1
if (%Player1.hp < 1) dm_end
}
}
if ($1 == !cbow) {
if (%dm.turn == %Player1) && ($nick == %Player1) {
set %dmg $rand(0,35)
set %Player2.hp $calc(%Player2.hp - %dmg)
.msg $chan %Player1 shoots %Player2 with a Crystal Bow, dealing %dmg damage! %Player2 now have $iif(%Player2.hp > 0,%Player2.hp,0) hp left.
set %dm.turn %Player2
if (%Player2.hp < 1) dm_end
}
if (%dm.turn == %Player2) && ($nick == %Player2) {
set %dmg $rand(0,35)
set %Player1.hp $calc(%Player1.hp - %dmg)
.msg $chan %Player2 shoots %Player1 with a Crystal Bow, dealing %dmg damage! %Player1 now have $iif(%Player1.hp > 0,%Player1.hp,0) hp left.
set %dm.turn %Player1
if (%Player1.hp < 1) dm_end
}
}
if ($1 == !regain) {
if (%dm.turn == %Player1) && ($nick == %Player1) {
if (%Player1.special != 100) {
$iif(%Player1.special > 75,set %Player1.special 100,inc %Player1.special 25)
.notice %Player1 You now have %Player1.special $+ % special.
.msg $chan %Player1 regain 25% special!
set %dm.turn %Player2
}
else { .notice %Player1 You already have full special! }
}
if (%dm.turn == %Player2) && ($nick == %Player2) {
if (%Player2.special != 100) {
$iif(%Player2.special > 75,set %Player2.special 100,inc %Player2.special 25)
.notice %Player2 You now have %Player2.special $+ % special.
.msg $chan %Player2 regain 25% special!
set %dm.turn %Player1
}
else { .notice %Player1 You already have full special! }
}
}
if ($1 == !eat) {
if (%dm.turn == %Player1) && ($nick == %Player1) && (%Player1.sharks > 0) {
if (%Player1.hp != 99) {
$iif(%Player1.hp > 78,set %Player1.hp 100,inc %Player1.hp 20)
dec %Player1.sharks
.notice %Player1 You now have %Player1.hp $+ hp and %Player1.sharks Sharks left.
.msg $chan %Player1 eat a shark!
set %dm.turn %Player2
}
else { .notice %Player1 You already have full hp! }
}
if (%dm.turn == %Player2) && ($nick == %Player2) && (%Player2.sharks > 0) {
if (%Player2.hp != 99) {
$iif(%Player2.special > 78,set %Player2.hp 100,inc %Player2.hp 20)
dec %Player1.sharks
.notice %Player2 You now have %Player2.hp $+ hp and %Player2.sharks Sharks left.
.msg $chan %Player2 eat a shark!
set %dm.turn %Player1
}
else { .notice %Player1 You already have full hp! }
}
}
if ($1 == !spec) {
if ($nick == %Player1) || ($nick == %Player2) {
.notice $nick You have $iif($nick == %Player1,%Player1.special,%Player2.special) $+ % special left.
}
}
if ($1 == !barrage) {
if (%dm.turn == %Player1) && ($nick == %Player1) && (%Player1.special > 49) {
set %Player1.special $calc(%Player1.special - 50)
set %dmg $rand(0,30)
set %Player2.hp $calc(%Player2.hp - %dmg)
.msg $chan %Player1 cast Ice Barrage on %Player2 $+ , dealing %dmg damage! %Player2 now have $iif(%Player2.hp > 0,%Player2.hp,0) hp left. %Player1 can attack again!
if (%Player2.hp < 1) dm_end
}
if (%dm.turn == %Player2) && ($nick == %Player2) && (%Player2.special > 49) {
set %Player2.special $calc(%Player2.special - 50)
set %dmg $rand(0,30)
set %Player1.hp $calc(%Player1.hp - %dmg)
.msg $chan %Player2 cast Ice Barrage on %Player1 $+ , dealing %dmg damage! %Player1 now have $iif(%Player1.hp > 0,%Player1.hp,0) hp left. %Player2 can attack again!
if (%Player1.hp < 1) dm_end
}
}
if ($1 == !dds) || ($1 == !msb) {
if (%dm.turn == %Player1) && ($nick == %Player1) && (%Player1.special > 24) {
set %Player1.special $calc(%Player1.special - 25)
set %dmg1 $rand(0,30)
set %dmg2 $rand(0,30)
set %Player2.hp $calc(%Player2.hp - (%dmg1 + %dmg2))
.msg $chan %Player1 uses $iif($1 == !dds,an DDS,a Magic Short Bow) against %Player2 $+ , dealing %dmg1 and %dmg2 damage, a total of $calc(%dmg1 + %dmg2) $+ ! %Player2 now have $iif(%Player2.hp > 0,%Player2.hp,0) hp left.
set %dm.turn %Player2
if (%Player2.hp < 1) dm_end
}
if (%dm.turn == %Player2) && ($nick == %Player2) && (%Player2.special > 24) {
set %Player2.special $calc(%Player2.special - 25)
set %dmg1 $rand(0,30)
set %dmg2 $rand(0,30)
set %Player1.hp $calc(%Player1.hp - (%dmg1 + %dmg2))
.msg $chan %Player2 uses $iif($1 == !dds,an DDS,a Magic Short Bow) against %Player1, dealing %dmg1 and %dmg2 damage, a total of $calc(%dmg1 + %dmg2) $+ ! %Player1 now have $iif(%Player1.hp > 0,%Player1.hp,0) hp left.
set %dm.turn %Player1
if (%Player1.hp < 1) dm_end
}
}
if ($1 == !dh) {
if (%dm.turn == %Player1) && ($nick == %Player1) && (%Player1.special > 54) {
set %Player1.special $calc(%Player1.special - 55)
set %dmg $iif(%Player1.hp == 1,$rand(20,80),$iif(%Player1.hp < 10,$rand(0,80),$iif(%Player1.hp < 25,$rand(0,70),$iif(%Player1.hp < 50,$rand(0,60),$iif(%Player1.hp < 70,$rand(0,50),$iif(%Player1.hp > 70,$rand(0,40)))))))
set %Player2.hp $calc(%Player2.hp - %dmg)
.msg $chan %Player1 hits %Player2 with Dharok's Greataxe, $iif(%Player1.hp < 1,dealing %dmg damage $+ $chr(44) KO!,$iif(%dmg > 40,dealing %dmg damage $+ $chr(44) ouch!,dealing %dmg damage!)) %Player2 now have $iif(%Player2.hp > 0,%Player2.hp,0) hp left.
set %dm.turn %Player2
if (%Player2.hp < 1) dm_end
}
if (%dm.turn == %Player2) && ($nick == %Player2) && (%Player2.special > 54) {
set %Player2.special $calc(%Player2.special - 55)
set %dmg $iif(%Player1.hp == 1,$rand(20,80),$iif(%Player2.hp < 10,$rand(0,80),$iif(%Player2.hp < 25,$rand(0,70),$iif(%Player2.hp < 50,$rand(0,60),$iif(%Player2.hp < 70,$rand(0,50),$iif(%Player2.hp > 70,$rand(0,40)))))))
set %Player1.hp $calc(%Player1.hp - %dmg)
.msg $chan %Player2 hits %Player1 with Dharok's Greataxe, $iif(%Player1.hp < 1,dealing %dmg damage $+ $chr(44) KO!,$iif(%dmg > 40,dealing %dmg damage $+ $chr(44) ouch!,dealing %dmg damage!)) %Player1 now have $iif(%Player1.hp > 0,%Player1.hp,0) hp left.
set %dm.turn %Player1
if (%Player1.hp < 1) dm_end
}
}
}
}
alias -l dm_start {
msg $chan %Player1 starts! You can use !whip, !dscim, !cbow to attack. !dds, !barrage, !dh and !msb is special attacks. Use !regain to regain special and !spec for checking you special meter. You start with 10 Sharks each, use !eat to eat.
set %dm.turn %Player1
set %Player1.hp 99
set %Player2.hp 99
set %Player1.special 100
set %Player2.special 100
set %Player1.sharks 10
set %Player2.sharks 10
set %dm.chan $chan
}
alias -l dm_end {
if (%Player1.hp < 1) {
$iif(!$readini(DMRecord.ini,%Player2,Wins),writeini DMRecord.ini %Player2 Wins 1,writeini DMRecord.ini %Player2 Wins $calc($readini(DMRecord.ini,%Player2,Wins) + 1))
$iif(!$readini(DMRecord.ini,%Player1,Losses),writeini DMRecord.ini %Player1 Losses 1,writeini DMRecord.ini %Player1 Losses $calc($readini(DMRecord.ini,%Player1,Losses) + 1))
.msg $chan %Player2 wins! Wins: $readini(DMRecord.ini,%Player2,Wins) Losses: $readini(DMRecord.ini,%Player2,Losses)
}
if (%Player2.hp < 1) {
$iif(!$readini(DMRecord.ini,%Player1,Wins),writeini DMRecord.ini %Player1 Wins 1,writeini DMRecord.ini %Player1 Wins $calc($readini(DMRecord.ini,%Player1,Wins) + 1))
$iif(!$readini(DMRecord.ini,%Player2,Losses),writeini DMRecord.ini %Player2 Losses 1,writeini DMRecord.ini %Player2 Losses $calc($readini(DMRecord.ini,%Player2,Losses) + 1))
.msg $chan %Player1 wins! Wins: $readini(DMRecord.ini,%Player1,Wins) Losses: $readini(DMRecord.ini,%Player1,Losses)
}
set %dm.on Off
unset %dm.*
unset %Player*
unset %dmg
}