alias playerone return $readini(deathmatch.ini, start, one)
alias playertwo return $readini(deathmatch.ini, start, two)
alias dmon return $readini(deathmatch.ini, on, $chan)
alias dmoff return $readini(deathmatch.ini, off, $chan)
alias dmchan return $readini(deathmatch.ini, chan, dmchan)
alias turn return $readini(deathmatch.ini, turn, $chan)
alias whip return $readini(deathmatch.ini, whip, whip)
alias dds1 return $readini(deathmatch.ini, dds, dds1)
alias dds2 return $readini(deathmatch.ini, dds, dds2)
alias stopdm msg $dmchan canceling deathmatch. | remini deathmatch.ini on | remini deathmatch.ini start | remini deathmatch.ini turn | remini deathmatch.ini chan | remini deathmatch.ini shark | remini deathmatch.ini health
on $*:text:/^[@!]dm|deathmatch/i:#kingskrown: {
if ($dmon != on) {
writeini deathmatch.ini on $chan on
writeini deathmatch.ini start one $nick
writeini deathmatch.ini chan dmchan $chan
msg $chan $playerone has requested a deathmatch in $+($dmchan,.) type $qt(!dm) within 25 seconds to accept $+($playerone,',s) request, otherwise the dm will be halted.
timerstopdm 1 25 stopdm
}
elseif ($dmon == on) && ($playerone != $nick) && (!$playertwo) {
timerstopdm off
writeini deathmatch.ini start two $nick
msg $chan $playertwo has accepted $+($playerone,',s) dm request. type $qt(!dmcommands) if you want to view the deathmatch commands, and $qt(!turn) to view who's turn it is.
notice $+($playerone,$chr(44),$playertwo) you have 7 shark, and 99 hitpoint
}
elseif ($playerone == $nick) {
notice $nick you can't dm yourself.
}
elseif ($dmon == on) && ($playerone) && ($playertwo) {
notice $nick a dm is already active. please wait for it to finish, or you can type $qt(!stopdm)
}
}
on $*:text:/^[@!]turn/i:#kingskrown: {
if (!$turn) && ($dmon == on) && ($playerone) && ($playertwo) {
$iif($rand(1,2) == 1, writeini deathmatch.ini turn $chan $playerone, writeini deathmatch.ini turn $chan $playertwo)
writeini deathmatch.ini shark $playerone 20
writeini deathmatch.ini health $playerone 99
writeini deathmatch.ini shark $playertwo 20
writeini deathmatch.ini health $playertwo 99
writeini deathmatch.ini whip whip $rand(0,40)
writeini deathmatch.ini dds dds1 $rand(0,30)
writeini deathmatch.ini dds dds2 $rand(0,30)
notice $nick the current turn for the active deathmatch in $chan is $turn
}
elseif (!$turn) && ($dmon != on) {
notice $nick there is no dm in progress. please type $qt(!dm) inorder to start one.
}
elseif ($turn) && ($dmon == on) {
notice $nick the current turn for the active deathmatch in $chan is $turn
}
elseif ($dmon == on) && (!$playertwo) || (!$playerone) {
notice $nick there is a dm request in request. please type $qt(!dm) to accept the request.
}
}
on $*:text:/^[@!]whip|slash|flick/i:#kingskrown: {
if (!$turn) && ($dmon == on) && ($playerone) && ($playertwo) {
notice $nick please type $qt(!turn) inorder to see who's turn it is, because it may not be your turn.
}
elseif (!$turn) && ($dmon != on) {
notice $nick there is no dm in progress. please type $qt(!dm) inorder to start one.
}
elseif ($dmon == on) && (!$playertwo) || (!$playerone) {
notice $nick there is a dm request in request. please type $qt(!dm) to accept the request.
}
elseif ($dmon == on) && ($turn != $nick) {
notice $nick it isn't your turn. type $qt(!turn) to see who's turn it is.
}
elseif ($dmon == on) && ($turn == $nick) {
$iif($playerone == $turn, msg $chan $turn hit $whip on $playertwo using a abyssal whip. $playertwo now has $calc($readini(deathmatch.ini, health, $playertwo) $+(-,$whip)) hp left., msg $chan $turn hit $whip on $playerone using a abyssal whip. $playerone now has $calc($readini(deathmatch.ini, health, $playerone) $+(-,$whip)) hp left.)
$iif($playertwo == $turn, writeini deathmatch.ini health $playerone $calc($readini(deathmatch.ini, health, $playerone) $+(-,$whip)), writeini deathmatch.ini health $playertwo $calc($readini(deathmatch.ini, health, $playertwo) $+(-,$whip)))
$iif($turn == $playerone, writeini deathmatch.ini turn $chan $playertwo, writeini deathmatch.ini turn $chan $playerone)
msg $dmchan it is now $+($turn,',s) turn!
writeini deathmatch.ini whip whip $rand(0,40)
}
elseif ($dmon == on) && ($playerone != $nick) || ($playertwo != $nick) {
notice $nick you are not a player of the active dm. please wait until the dm is over, or you can type $qt(!stopdm)
}
}
on $*:text:/^[@!]dds|dagger/i:#kingskrown: {
if (!$turn) && ($dmon == on) && ($playerone) && ($playertwo) {
notice $nick please type $qt(!turn) inorder to see who's turn it is, because it may not be your turn.
}
if ($readini(deathmatch.ini, health, $playerone) == *0) || ($readini(deathmatch.ini, health, $playertwo) == *0) {
$iif($readini(deathmatch.ini, health, $playerone) == *0, msg $dmchan $playertwo has beat $playerone, $playerone has beat $playertwo)
}
elseif (!$turn) && ($dmon != on) {
notice $nick there is no dm in progress. please type $qt(!dm) inorder to start one.
}
elseif ($dmon == on) && (!$playertwo) || (!$playerone) {
notice $nick there is a dm request in request. please type $qt(!dm) to accept the request.
}
elseif ($dmon == on) && ($turn != $nick) {
notice $nick it isn't your turn. type $qt(!turn) to see who's turn it is.
}
elseif ($dmon == on) && ($turn == $nick) {
var %dds $calc($dds1 + $dds2)
$iif($playerone == $turn, msg $chan $turn hit $dds1 and $dds2 on $playertwo using a dragon dagger. $playertwo now has $calc($readini(deathmatch.ini, health, $playertwo) $+(-,%dds)) hp left., msg $chan $turn hit $dds1 and $dds2 on $playerone using a dragon dagger. $playerone now has $calc($readini(deathmatch.ini, health, $playerone) $+(-,%dds)) hp left.)
$iif($playertwo == $turn, writeini deathmatch.ini health $playerone $calc($readini(deathmatch.ini, health, $playerone) $+(-,%dds))), writeini deathmatch.ini health $playertwo $calc($readini(deathmatch.ini, health, $playertwo) $+(-,%dds)))
$iif($turn == $playerone, writeini deathmatch.ini turn $chan $playertwo, writeini deathmatch.ini turn $chan $playerone)
msg $dmchan it is now $+($turn,',s) turn!
writeini deathmatch.ini dds dds1 $rand(0,30)
writeini deathmatch.ini dds dds2 $rand(0,30)
}
elseif ($dmon == on) && ($playerone != $nick) || ($playertwo != $nick) {
notice $nick you are not a player of the active dm. please wait until the dm is over, or you can type $qt(!stopdm)
}
}
on $*:text:/^[@!]status/i:#kingskrown: {
if (!$readini(deathmatch.ini, status, won) && (!$readini(deathmatch.ini, status, loss) {
notice $nick you do not have a status file created for $+($nick,.) type $qt(!dm) and win/lose one inorder to have your file created.
}
elseif ($readini(deathmatch.ini, status, won) == $nick) && ($readini(deathmatch.ini, status, loss) == $nick) {
notice $nick you have won $won deathmatches, and you have lost $loss deathmatches.
}
}
on $*:text:/^[@!]dmcommands|deathmatchcommands/i:#kingskrown: {
if ($dmon == on) && ($playerone == $nick) || ($playertwo == $nick) || ($address($me,2) == $wildsite) {
msg $nick - deathmatch commands -
msg $nick - !dm -
msg $nick - !whip -
msg $nick - !dds -
msg $nick - !shark -
msg $nick - !turn -
msg $nick - !status -
msg $nick - !stopdm -
}
elseif ($dmon == on) && ($playerone != $nick) || ($playertwo != $nick) || ($address($me,2) != $wildsite) {
notice $nick sorry, but you'll have to be in the deathmatch inorder to use this command.
}
elseif ($dmon == on) && (!$playerone) || (!$playertwo) {
notice $nick there is a dm in progress. please type $qt(!dm) to accept the request.
}
elseif ($dmon != on) {
notice $nick you'll have to start a deathmatch inorder to use this command. type $qt(!dm)
}
}
on $*:text:/^[@!]stopdm|stopdeathmatch/i:#kingskrown {
if ($dmon == on) && ($playerone == $nick) || ($playertwo == $nick) || ($address($me,2) == $wildsite) {
msg $dmchan canceling deathmatch on request of $+($nick,.) | remini deathmatch.ini on | remini deathmatch.ini start | remini deathmatch.ini turn | remini deathmatch.ini chan | remini deathmatch.ini shark | remini deathmatch.ini health
}
elseif ($dmon != on) && ($playerone == $nick) || ($playertwo == $nick) || ($address($me,2) == $wildsite) {
notice $nick there is no dm in progress to halt. please type $qt(!dm) to start one.
}
elseif ($dmon == on) && ($playerone != $nick) || ($playertwo != $nick) || ($address($me,2) != $wildsite) {
notice $nick you cannot stop the deathmatch in progress. you should ask a player who is participating in the current dm to halt it, otherwise, you'll have to wait until its over.
}
}