rendered paste bodyon $*:TEXT:/^[@.`!](tour((n)?(y|ament)?))/Si:#DM-tournaments, #DM, #DM-shop, #DM-bank: {
if ($network != TundraIRC) {
notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
halt
}
if (%dmnick. [ $+ [ $nick ] ] == 1) {
if (%dmid. [ $+ [ $nick ] ] == 1) {
if ($chan != #DM-tournaments) {
notice $nick %c1 $+ You only can do this in $+ %c2 #DM-tournaments $+ %c1 .
halt
}
if (%dm.tournament == on) {
notice $nick %c1 $+ There is already a $+ %c5 tournament $+ %c1 running, please wait.
halt
}
if (!$2 || !$3) {
if (%dm.tournament == on) {
halt
}
notice $nick %c1 $+ Please type this: $+ %c3 !tournament <people to join> <stake>
halt
}
if ($2 != 4 && $2 != 8 && $2 != 16) {
notice $nick %c1 $+ Please choose $+ %c4 4 $+ %c1 $+ , $+ %c4 8 $+ %c1 or $+ %c4 16 $+ %c1 people to join!
HALT
}
set %dm.chan2 #DM-tournaments
set %dm.tournament On
set %dm.tournament.starter $nick
set %DM.tournament.player.1 %dm.tournament.starter
set %dm.tournamentppl 1
set %dm.tournament.stake $3
set %dm.tournament.people $2
msg $chan %c2 $+ $nick $+ %c1 started a tournament. Stake: %c3 %dm.tournament.stake $+ %c1 coins. Type $+ %c3 !join-tournament $+ %c1 to join it!
}
else {
notice $nick %c1 $+ You need to register first. Type %c5 $+ `dm-register $+ %c1 first and follow the instructions.
}
}
else {
notice $nick %c1 $+ You need to identify first! Type $+ %c3 !id(entify) yourpass $+ %c1 in my PM.
}
}
on $*:TEXT:/^[!@`.](j(oin)?(-| )?tour(n|nam(ent)?|ny)?)/Si:#DM-tournaments, #DM, #DM-shop, #DM-bank: {
if ($network != TundraIRC) {
notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
halt
}
if ($chan != #DM-tournaments) {
notice $nick %c1 $+ You only can do this in $+ %c2 #DM-tournaments $+ %c1 .
halt
}
if (%dmnick. [ $+ [ $nick ] ] == 1) {
if (%dmid. [ $+ [ $nick ] ] == 1) {
if ($nick isin %dm.tournicks) {
notice $nick %c1 $+ You're already in the tournament, please wait until it starts.
halt
}
if ($calc(%dmmoney. [ $+ [ $nick ] ] - %dm.tournament.stake) < 0) {
if (!%dmmoney. [ $+ [ $nick ] ]) .set %dmmoney. [ $+ [ $nick ] ] 0
notice $nick %c1 $+ Insufficient money. You need $+ %c3 %dm.tournament.stake $+ %c1 coins, while you have only $+ %c3 %dmmoney. [ $+ [ $nick ] ] $+ %c1 coins.
halt
}
if (%dm.tournamentwins. [ $+ [ $nick ] ] == $null) { .set %dm.tournamentwins. [ $+ [ $nick ] ] 0 }
inc %dm.tournament.prize %dm.tournament.stake
inc %dm.tournamentppl 1
set %dm.tournicks %dm.tournicks $nick
if (%dm.tournamentppl == 2) {
Set %dm.tournament.player.2 $nick
}
if (%dm.tournamentppl == 3) {
Set %dm.tournament.player.3 $nick
}
if (%dm.tournamentppl == 4) {
Set %dm.tournament.player.4 $nick
}
if (%dm.tournamentppl == 5) {
Set %dm.tournament.player.5 $nick
}
if (%dm.tournamentppl == 6) {
Set %dm.tournament.player.6 $nick
}
if (%dm.tournamentppl == 7) {
Set %dm.tournament.player.7 $nick
}
if (%dm.tournamentppl == 8) {
Set %dm.tournament.player.8 $nick
}
if (%dm.tournamentppl == 9) {
Set %dm.tournament.player.9 $nick
}
if (%dm.tournamentppl == 10) {
Set %dm.tournament.player.10 $nick
}
if (%dm.tournamentppl == 11) {
Set %dm.tournament.player.11 $nick
}
if (%dm.tournamentppl == 12) {
Set %dm.tournament.player.12 $nick
}
if (%dm.tournamentppl == 13) {
Set %dm.tournament.player.13 $nick
}
if (%dm.tournamentppl == 14) {
Set %dm.tournament.player.14 $nick
}
if (%dm.tournamentppl == 15) {
Set %dm.tournament.player.15 $nick
}
if (%dm.tournamentppl == 16) {
Set %dm.tournament.player.16 $nick
}
set %dm.tournament.needppl $calc(%dm.tournament.people - %dm.tournamentppl)
Msg $chan %c2 $+ $nick $+ %c1 joined the tournament, we need $+ %c3 %dm.tournament.needppl $+ %c1 people more.
if (%dm.tournament.needppl == 0) {
msg $chan %c4 $+ The tournament is starting! $+ %c5 Have fun!
fight1
start.health
}
}
else {
notice $nick %c1 $+ You need to register first. Type %c5 $+ `dm-register $+ %c1 first and follow the instructions.
}
}
else {
notice $nick %c1 $+ You need to identify first! Type $+ %c3 !id(entify) yourpass $+ %c1 in my PM.
}
}
;######################## ATTACK - MELEE ################################
on $*:text:/^[?!@`.](at(t)?(ack)?|hit)/Si:#Dm-tournaments: {
if (%dm.tournament == ON) {
if ($nick == %dm.player1) {
timerturnswitch off
timerstopdm off
if (%dmfreeze. [ $+ [ $nick ] ] >= 0 ) {
msg %dm.chan %c1 $+ %dm.player1 $+ %c1 Tries to attack but he can't reach $+ %c2 %dm.player2 $+ %c1 $+ ; $+ %c2 %dm.player2 $+ %c1 gets the turn.
notice $nick %c1 $+ Please wait $+ %c3 %dmfreeze. [ $+ [ $nick ] ] $+ %c1 more turns.
set %dm.player1 %dm.player2
set %dm.player2 $nick
dec %dmfreeze. [ $+ [ $nick ] ]
halt
}
if (!%dmweapon. [ $+ [ $nick ] ] || piece isin %dmweapon. [ $+ [ $nick ] ]) {
set %dm.hit $rand(0,5)
set %dmweapused his fist.
}
else {
var %dm.equipitem = $read(dmshopitems.txt, w, * $+ $replace(%dmweapon. [ $+ [ $nick ] ],$chr(32),_) $+ *)
if ($gettok(%dm.equipitem,3,64) != melee && Piece of air !isin %dmweapon. [ $+ [ $nick ] ]) {
notice $nick %c1 $+ You can't use this command with a $+ %c4 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ . Use %c3 $+ !shoot $+ %c1 $+ , $+ %c3 !cast $+ %c1 or %c3 $+ !use $+ %c1 instead.
halt
}
set %dm.max $gettok($read(dmshopitems.txt, w, * $+ $replace(%dmweapon. [ $+ [ %dm.player1 ] ],$chr(32),_) $+ *),4,64)
set %dm.hit $rand(0, %dm.max)
set %dmweapused a $+ %c5 %dmweapon. [ $+ [ %dm.player1 ] ] $+ %c1 $+ .
if (home isin %dmweapon. [ $+ [ %dm.player1 ] ] && $r(1,5) == 2) {
timer 1 1 notice $nick %c1 $+ You broke your $+ %c3 %dmweapon. [ $+ [ %dm.player1 ] ] $+ %c1 $+ , meaning you lost it.
unset %dmweapon. [ $+ [ %dm.player1 ] ]
}
}
health.check
set %dm.player1 %dm.player2
set %dm.player2 $nick
timerturnswitch 1 120 turngone
}
elseif ($nick == %dm.player2) {
notice $nick %c1 $+ Its not your turn!
}
else {
notice $nick %c1 $+ You are not fighting in this Tournament.
}
}
else {
notice $nick %c1 $+ There is no tournament running! Type $+ %c6 !tournament $+ %c1 to start one.
}
}
;######################## ATTACK - RANGE ################################
on $*:text:/^[@`.?!](s(h)?((o)?o)?t)/Si:#DM-tournaments: {
if (%dm.tournament == ON) {
if ($nick == %dm.player1) {
timerturnswitch off
timerstopdm off
if (%dmfreeze. [ $+ [ $nick ] ] >= 0 ) {
msg %dm.chan %c1 $+ %dm.player1 $+ %c1 Tries to attack but he can't reach $+ %c2 %dm.player2 $+ %c1 $+ ; $+ %c2 %dm.player2 $+ %c1 gets the turn.
notice $nick %c1 $+ Please wait $+ %c3 %dmfreeze. [ $+ [ $nick ] ] $+ %c1 more turns.
set %dm.player1 %dm.player2
set %dm.player2 $nick
dec %dmfreeze. [ $+ [ $nick ] ]
halt
}
if (!%dmweapon. [ $+ [ $nick ] ] || piece isin %dmweapon. [ $+ [ $nick ] ] || !%dmarrow. [ $+ [ $nick ] ]) {
set %dm.hit $rand(0,5)
if (!%dmarrow. [ $+ [ $nick ] ] && %dmweapon. [ $+ [ $nick ] ]) { set %dmweapused a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 with the $+ %c5 basic arrows $+ %c1 $+ . }
else { set %dmweapused his fist. }
}
else {
var %dm.equipitem = $read(dmshopitems.txt, w, * $+ $replace(%dmweapon. [ $+ [ $nick ] ],$chr(32),_) $+ *)
if ($gettok(%dm.equipitem,3,64) != range && Piece of air !isin %dmweapon. [ $+ [ $nick ] ]) {
notice $nick %c1 $+ You can't use this command with a $+ %c4 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ . Use %c3 $+ !attack $+ %c1 $+ , $+ %c3 !cast $+ %c1 or %c3 $+ !use $+ %c1 instead.
halt
}
set %dm.max $gettok($read(dmshopitems.txt, w, * $+ $replace(%dmarrow. [ $+ [ %dm.player1 ] ],$chr(32),_) $+ *),5,64)
set %dm.hit $rand(0, %dm.max)
set %dm.poison $gettok($read(dmshopitems.txt, w, * $+ $replace(%dmarrow. [ $+ [ %dm.player1 ] ],$chr(32),_) $+ *),6,64)
if (%dm.poison == P) .set %dm.poisondmg 10
if (%dm.poison == P+) .set %dm.poisondmg 20
if (%dm.poison == P++) .set %dm.poisondmg 40
if (!%dmpoisoned. [ $+ [ %dm.player2 ] ] && %dm.poisondmg && $r(1,5) == 2) {
set %addpoison 1
}
dec %dmarrow.amount. [ $+ [ $nick ] ] %arrows.shot
set %dmweapused a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 with $+ %c5 $gettok(%dmarrow. [ $+ [ $nick ] ],1,64) $+ s $+ %c1 $+ .
if (%dmarrow.amount. [ $+ [ $nick ] ] <= 0) {
unset %dmarrow. [ $+ [ $nick ] ]
}
else {
set %dmweapused %dmweapused $chr(32) | timer 1 1 notice %dm.player1 %c1 $+ You now have $+ %c3 %dmarrow.amount. [ $+ [ %dm.player1 ] ] $+ %c5 $gettok(%dmarrow. [ $+ [ %dm.player1 ] ],1,64) $+ s $+ %c1 left.
}
set %arrows.shot $gettok($read(dmshopitems.txt, w, * $+ $replace(%dmweapon. [ $+ [ %dm.player1 ] ],$chr(32),_) $+ *),4,64)
if (%arrows.shot == 3) {
set %dm.hit2 $rand(0, %dm.max)
set %dm.hit3 $rand(0, %dm.max)
}
}
health.check
set %dm.player1 %dm.player2
set %dm.player2 $nick
timerturnswitch 1 120 turngone
}
elseif ($nick == %dm.player2) {
notice $nick %c1 $+ Its not your turn!
}
else {
notice $nick %c1 $+ You are not fighting in this tournament.
}
}
else {
notice $nick %c1 $+ There is no tournament running! Type $+ %c6 !DM $+ %c1 to start one.
}
}
;######################## ATTACK - MAGE #################################
on $*:text:/^[?!@`.](cast|spell)/Si:#DM-tournaments: {
if (%dm.tournament == ON) {
if ($nick == %dm.player1) {
timerturnswitch off
timerstopdm off
if (%dmfreeze. [ $+ [ $nick ] ] >= 0 ) {
msg %dm.chan %c1 $+ %dm.player1 $+ %c1 Tries to attack but he can't reach $+ %c2 %dm.player2 $+ %c1 $+ ; $+ %c2 %dm.player2 $+ %c1 gets the turn.
notice $nick %c1 $+ Please wait $+ %c3 %dmfreeze. [ $+ [ $nick ] ] $+ %c1 more turns.
set %dm.player1 %dm.player2
set %dm.player2 $nick
dec %dmfreeze. [ $+ [ $nick ] ]
halt
}
set %dmspellname $read(dmshopitems.txt, w, $replace($2-,$chr(32),_) $+ *)
set %dmspell2 $gettok(%dmspellname,1,64)
set %dmspell $replace(%dmspell2,_,$chr(32))
if (!%dmspell) {
notice $nick %c1 $+ There's no such spell as %c4 $+ " $+ $2- $+ " $+ %c1 $+ .
halt
}
if (!%dmweapon. [ $+ [ $nick ] ] || piece isin %dmweapon. [ $+ [ $nick ] ] || !$2) {
set %dm.hit $calc($rand(0,10) + $rand(
set %dmweapused the basic spell.
}
else {
set %dm.weaponuse $read(dmshopitems.txt, w, * $+ $replace(%dmweapon. [ $+ [ $nick ] ],$chr(32),_) $+ *)
if ($gettok(%dm.weaponuse,3,64) != mage && Piece of air !isin %dmweapon. [ $+ [ $nick ] ]) {
notice $nick %c1 $+ You can't use this command with a $+ %c4 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ . Use %c3 $+ !shoot $+ %c1 $+ , $+ %c3 !attack $+ %c1 or %c3 $+ !use $+ %c1 instead.
halt
}
set %reqstaff $gettok(%dmspellname,4,64)
set %reqstaff $replace(%reqstaff,_,$chr(32))
if (%reqstaff == Newbie magic staff && %dmweapon. [ $+ [ $nick ] ] != Newbie magic staff && %dmweapon. [ $+ [ $nick ] ] != Beginner magic staff && %dmweapon. [ $+ [ $nick ] ] != Magic staff && %dmweapon. [ $+ [ $nick ] ] != Advanced magic staff && %dmweapon. [ $+ [ $nick ] ] != Ultimate magic staff && %dmweapon. [ $+ [ $nick ] ] != Two duel handed magic wands) {
notice $nick %c1 $+ You need a $+ %c5 Newbie magic staff $+ %c2 or higher $+ %c1 equipped, $+ %c1 to use $+ %c6 %dmspell $+ s $+ %c1 $+ .
halt
}
elseif (%reqstaff == Beginner magic staff && %dmweapon. [ $+ [ $nick ] ] != Beginner magic staff && %dmweapon. [ $+ [ $nick ] ] != Magic staff && %dmweapon. [ $+ [ $nick ] ] != Advanced magic staff && %dmweapon. [ $+ [ $nick ] ] != Ultimate magic staff && %dmweapon. [ $+ [ $nick ] ] != Two duel handed magic wands) {
notice $nick %c1 $+ You need a $+ %c5 Beginner magic staff $+ %c2 or higher $+ %c1 equipped, $+ %c1 to use $+ %c6 %dmspell $+ s $+ %c1 $+ .
halt
}
elseif (%reqstaff == Magic staff && %dmweapon. [ $+ [ $nick ] ] != Magic staff && %dmweapon. [ $+ [ $nick ] ] != Advanced magic staff && %dmweapon. [ $+ [ $nick ] ] != Ultimate magic staff && %dmweapon. [ $+ [ $nick ] ] != Two duel handed magic wands) {
notice $nick %c1 $+ You need a $+ %c5 Magic staff $+ %c2 or higher $+ %c1 equipped, $+ %c1 to use $+ %c6 %dmspell $+ s $+ %c1 $+ .
halt
}
elseif (%reqstaff == Advanced magic staff && %dmweapon. [ $+ [ $nick ] ] != Advanced magic staff && %dmweapon. [ $+ [ $nick ] ] != Ultimate magic staff && %dmweapon. [ $+ [ $nick ] ] != Two duel handed magic wands) {
notice $nick %c1 $+ You need an $+ %c5 Advanced magic staff $+ %c2 or higher $+ %c1 equipped, $+ %c1 to use $+ %c6 %dmspell $+ s $+ %c1 $+ .
halt
}
if ($gettok(%dmspellname,3,64) == aspell) {
set %dm.max $gettok(%dmspellname,5,64)
if (%dmweapon. [ $+ [ $nick ] ] == Newbie magic staff) .set %dm.max $calc(%dm.max * 0.8)
if (%dmweapon. [ $+ [ $nick ] ] == Beginner magic staff) .set %dm.max $calc(%dm.max * 0.9)
if (%dmweapon. [ $+ [ $nick ] ] == Advanced magic staff) .set %dm.max $calc(%dm.max * 1.1)
if (%dmweapon. [ $+ [ $nick ] ] == Ultimate magic staff) .set %dm.max $calc(%dm.max * 1.2)
if (%dmweapon. [ $+ [ $nick ] ] == Two duel handed magic wands) .set %dm.max $calc(%dm.max * 1.5)
set %dm.hit $rand(5, %dm.max)
set %dmweapused %c3 $+ %dmspell $+ %c1 with a $+ %c5 %dmweapon. [ $+ [ %dm.player1 ] ] $+ %c1 $+ .
if ($gettok(%dmspellname,6,64) == freeze) {
set %dmfreeze. [ $+ [ %dm.player2 ] ] 2
if (%dmclass. [ $+ [ %dm.player2 ] ] != melee) .set %dmfreeze. [ $+ [ %dm.player2 ] ] 0
set %dmweapused %dmweapused | msg %dm.chan %c2 $+ %dm.player2 $+ %c1 has been frozen, meaning he can't use $+ %c3 melee attacks $+ %c1 for $+ %c5 2 $+ %c1 turns.
}
health.check
}
elseif ($gettok(%dmspellname,3,64) == hspell) {
set %dm.heal $calc(%dm.starthealth. [ $+ [ %dm.player1 ] ] / 100 * $gettok(%dmspellname,5,64))
inc %dmhealth. [ $+ [ %dm.player1 ] ] %dm.heal
if (%dmhealth. [ $+ [ %dm.player1 ] ] > %dm.starthealth. [ $+ [ %dm.player1 ] ]) {
set %dm.heal $calc(%dm.starthealth. [ $+ [ %dm.player1 ] ] - %dmhealth. [ $+ [ %dm.player1 ] ])
set %dmhealth. [ $+ [ %dm.player1 ] ] %dm.starthealth. [ $+ [ %dm.player1 ] ]
}
msg %dm.chan2 %c2 $+ %dm.player1 $+ %c1 casts $+ %c5 %dmspell $+ %c1 healing him with $+ %c4 %dm.heal $+ %c1 hitpoints. He now has $+ %c4 %dmhealth. [ $+ [ %dm.player1 ] ] $+ %c1 hitpoints.
}
elseif ($gettok(%dmspellname,3,64) == tspell) {
set %dmfreeze. [ $+ [ %dm.player2 ] ] 4
if (%dmclass. [ $+ [ %dm.player2 ] ] != melee) .set %dmfreeze. [ $+ [ %dm.player2 ] ] 2
msg %dm.chan2 %c2 $+ %dm.player1 $+ %c5 teleports away $+ %c1 $+ , meaning $+ %c2 %dm.player2 $+ %c1 can't use $+ %c3 melee attacks $+ %c1 for $+ %c5 4 $+ %c1 $+ , and $+ %c3 ranged/magic attacks $+ %c1 for $+ %c5 2 $+ %c1 turns.
}
writeini dminv.ini $nick %dmspell2 $calc($readini(dminv.ini,$nick,%dmspell2) - 1)
set %dmweapused %dmweapused | timer 1 1 notice %dm.player1 %c1 $+ You have $+ %c3 $readini(dminv.ini,$nick,%dmspell2) $+ %c4 %dmspell $+ s $+ %c1 left.
if ($readini(dminv.ini,$nick,%dmspell2) <= 0) .remini dminv.ini $nick %dmspell2
}
set %dm.player1 %dm.player2
set %dm.player2 $nick
timerturnswitch 1 120 turngone
}
elseif ($nick == %dm.player2) {
notice $nick %c1 $+ Its not your turn!
}
else {
notice $nick %c1 $+ You are not fighting in this tournament.
}
}
else {
notice $nick %c1 $+ There is no tournament running! Type $+ %c6 !DM $+ %c1 to start one.
}
}
;#################################################################################
;############################ ALIASES OF TOURNY's#################################
;#################################################################################
alias -l turngone {
if (%dm.tournament == ON) {
msg %dm.chan2 %c2 $+ %dm.player1 $+ %c1 hasn't attacked or used a potion/spell within $+ %c3 1 minute $+ %c1 $+ ; $+ %c2 %dm.player2 $+ 's $+ %c1 turn.
timerstopdm 1 60 turngone
var %dm.player3 = %dm.player1
set %dm.player1 %dm.player2
set %dm.player2 %dm.player3
}
}
alias -l health.check {
if (%DM.tournament == ON) {
if (%dmpoisoned. [ $+ [ %dm.player1 ] ]) {
if (%dmpoisoned. [ $+ [ %dm.player1 ] ] > %dmhealth. [ $+ [ %dm.player1 ] ]) {
set %dmpoisoned. [ $+ [ %dm.player1 ] ] %dmhealth. [ $+ [ %dm.player1 ] ]
var %dm.player3 = %dm.player1
set %dm.player1 %dm.player2
set %dm.player2 %dm.player3
msg %dm.chan2 %c2 $+ %dm.player2 $+ %c1 gets $+ %c6 %dmpoisoned. [ $+ [ %dm.player1 ] ] $+ %c1 damage from poison. He now has $+ %c4 %dmhealth. [ $+ [ %dm.player2 ] ] $+ %c1 hitpoints left.
msg %dm.chan2 %c2 $+ %dm.player2 $+ %c1 has died because of poison! $+ %c2 %dm.player1 $+ %c1 gets $+ %c3 $calc(%dmlvl. [ $+ [ %dm.player1 ] ] * 15) $+ %c1 bonus expoints for this fight!
:playerdied
}
else {
dec %dmhealth. [ $+ [ %dm.player1 ] ] %dmpoisoned. [ $+ [ %dm.player1 ] ]
msg %dm.chan2 %c2 $+ %dm.player1 $+ %c1 gets $+ %c6 %dmpoisoned. [ $+ [ %dm.player1 ] ] $+ %c1 damage from poison. He now has $+ %c4 %dmhealth. [ $+ [ %dm.player1 ] ] $+ %c1 hitpoints left.
}
}
if (%dm.hit > %dmhealth. [ $+ [ %dm.player2 ] ]) {
set %dm.hit %dmhealth. [ $+ [ %dm.player2 ] ]
}
msg %dm.chan2 %c2 $+ %dm.player1 $+ %c1 has hit $+ %c3 %dm.hit $+ %c1 on $+ %c2 %dm.player2 $+ %c1 using %dmweapused
if (%addpoison) {
msg %dm.chan2 %c2 $+ %dm.player2 $+ %c1 is poisoned with $+ %c6 %dm.poisondmg $+ %c1 poison damage each turn!
set %dmpoisoned. [ $+ [ %dm.player2 ] ] %dm.poisondmg
unset %addpoison
}
dec %dmhealth. [ $+ [ %dm.player2 ] ] %dm.hit
if (%dmhealth. [ $+ [ %dm.player2 ] ] <= 0) {
msg %dm.chan2 %c2 $+ %dm.player2 $+ %c1 has been defeated! $+ %c2 %dm.player1 $+ %c1 gets $+ %c3 $calc(%dmlvl. [ $+ [ %dm.player1 ] ] * 15) $+ %c1 bonus expoints for this fight!
:playerdied
set %dm.tournament.winner. [ $+ [ %fight ] ] %dm.player1
inc %dmloses. [ $+ [ %dm.player2 ] ]
nextround
}
msg %dm.chan2 %c2 $+ %dm.player2 $+ %c1 has $+ %c4 %dmhealth. [ $+ [ %dm.player2 ] ] $+ %c1 hitpoints left!
notice %dm.player1 %c1 $+ You gained $+ %c6 %dm.hit $+ %c1 XP.
inc %dm.xp. [ $+ [ %dm.player1 ] ] %dm.hit
xp.check
}
}
alias -l nextround {
if (%dm.tournament.people == 8 && %fight == 1) {
fight2
}
if (%dm.tournament.people == 8 && %fight == 2) {
fight3
}
if (%dm.tournament.people == 8 && %fight == 3) {
fight4
}
if (%dm.tournament.people == 8 && %fight == 4) {
fight5.semi
}
if (%dm.tournament.people == 8 && %fight == 5) {
fight6.semi
}
if (%dm.tournament.people == 8 && %fight == 6) {
fight7.final
}
if (%dm.tournament.people == 8 && %fight == 7) {
msg $chan %c2 $+ %dm.tournament.winner.7 $+ %c1 has won the $+ %c5 Tournament $+ %c1 $+ ! Therefor he gets %dm.tournament.prize!
inc %dm.tournament.wins. [ $+ [ %dm.tournament.winner.7 ] ]
inc %dM.money. [ $+ [ %dm.tournament.winner.7 ] ]
}
if (%dm.tournament.people == 4 && %fight == 1) {
fight2
}
if (%dm.tournament.people == 4 && %fight == 2) {
fight3.final
}
if (%dm.tournament.people == 4 && %fight == 3) {
msg $chan %c2 $+ %dm.tournament.winner.3 $+ %c1 has won the $+ %c5 Tournament $+ %c1 $+ ! Therefor he gets %dm.tournament.prize!
inc %dm.tournament.wins. [ $+ [ %dm.tournament.winner.3 ] ]
inc %dm.money. [ $+ [ %dm.tournament.winner.3 ] ]
}
if (%dm.tournament.people == 16 && %fight == 1) {
fight2
}
if (%dm.tournament.people == 16 && %fight == 2) {
fight3
}
if (%dm.tournament.people == 16 && %fight == 3) {
fight4
}
if (%dm.tournament.people == 16 && %fight == 4) {
fight5
}
if (%dm.tournament.people == 16 && %fight == 5) {
fight6
}
if (%dm.tournament.people == 16 && %fight == 6) {
fight7
}
if (%dm.tournament.people == 16 && %fight == 7) {
fight8
}
if (%dm.tournament.people == 16 && %fight == 8) {
fight9.kwart
}
if (%dm.tournament.people == 16 && %fight == 9) {
fight10.kwart
}
if (%dm.tournament.people == 16 && %fight == 10) {
fight11.kwart
}
if (%dm.tournament.people == 16 && %fight == 11) {
fight12.kwart
}
if (%dm.tournament.people == 16 && %fight == 12) {
fight13.kwart
}
if (%dm.tournament.people == 16 && %fight == 13) {
fight14.kwart
}
if (%dm.tournament.people == 16 && %fight == 14) {
fight15.final
}
if (%dm.tournament.people == 16 && %fight == 15) {
msg $chan %c2 $+ %dm.tournament.winner.3 $+ %c1 has won the $+ %c5 Tournament $+ %c1 $+ ! Therefor he gets %dm.tournament.prize!
inc %dm.tournament.wins. [ $+ [ %dm.tournament.winner.15 ] ]
inc %dM.money. [ $+ [ %dm.tournament.winner.15 ] ]
}
}
alias -l fight1 {
set %Dm.player1 %dm.tournament.player.1
set %dm.player2 %dm.tournament.player.2
msg $chan %c1 $+ Now fighting in the first battle of this tournament: $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !
set %fight 1
}
alias -l fight2 {
set %Dm.player1 %dm.tournament.player.3
set %dm.player2 %dm.tournament.player.4
msg $chan %c1 $+ The 2 people that will now compeet are $+ %c2 %dm.player1 $+ %c4 and $+ %c2 %dm.player2 $+ %c4 $+ !
set %fight 2
}
alias -l fight3 {
set %Dm.player1 %dm.tournament.player.5
set %dm.player2 %dm.tournament.player.6
msg $chan %c1 $+ This is already the $+ %c5 third fight $+ %c1 of this tournament, $+ %c2 %dm.player1 $+ %c4 and $+ %c2 %dm.player2 $+ %c1 will compeet.
set %fight 3
}
alias -l fight4 {
set %Dm.player1 %dm.tournament.player.7
set %dm.player2 %dm.tournament.player.8
msg $chan %c1 $+ Now compeeting are $+ %c2 %dm.player1 $+ %c4 and $+ %c2 %dm.player2 $+ %c4 $+ !
set %fight 4
}
alias -l fight5 {
set %Dm.player1 %dm.tournament.player.9
set %dm.player2 %dm.tournament.player.10
msg $chan %c1 $+ The fight we're gonna see now is: $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c1 %dm.player2 $+ %c4 $+ !
set %fight 5
}
alias -l fight6 {
set %Dm.player1 %dm.tournament.player.11
set %dm.player2 %dm.tournament.player.12
msg $chan %c1 $+ Next fight is between: $+ %c2 %dm.player1 $+ %c4 and $+ %c2 %dm.player2 $+ %c4 $+ !
set %fight 6
}
alias -l fight7 {
set %Dm.player1 %dm.tournament.player.13
set %dm.player2 %dm.tournament.player.14
msg $chan %c1 $+ What a fantastic fight this is gonna be! $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !
set %fight 7
}
alias -l fight8 {
set %Dm.player1 %dm.tournament.player.15
set %dm.player2 %dm.tournament.player.16
msg $chan %c1 $+ This is the last fight until the next rounds! $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !
set %fight 8
}
alias fight5.semi {
set %dm.player1 %dm.tournament.winner.1
set %DM.player2 %dm.tournament.winner.2
msg $chan %c1 $+ It's now the semi finals! $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 dm.player2 $+ %c4 $+ !
set %fight 5
}
alias fight6.semi {
set %dm.player1 %dm.tournament.winner.3
set %DM.player2 %dm.tournament.winner.4
msg $chan %c1 $+ They have come so far, but now one of them will have to die! %c2 $+ %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !
set %fight 6
}
alias fight7.final {
set %dm.player1 %dm.tournament.winner.5
set %DM.player2 %dm.tournament.winner.6
msg $chan %c1 $+ This is the one and only final! $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !
set %fight 7
}
alias fight3.final {
set %dm.player1 %dm.tournament.winner.1
set %DM.player2 %dm.tournament.winner.2
msg $chan %c1 $+ This is the one and only final! $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !
set %fight 3
}
alias -l fight9.kwart {
set %DM.player1 %dm.tournament.winner.1
set %DM.player2 %dm.tournament.winner.2
msg $chan %c1 $+ Now fighting: $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !
set %fight 9
}
alias -l fight10.kwart {
set %DM.player1 %dm.tournament.winner.3
set %DM.player2 %dm.tournament.winner.4
msg $chan %c1 $+ Now fighting: $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !
set %fight 10
}
alias -l fight11.kwart {
set %DM.player1 %dm.tournament.winner.5
set %DM.player2 %dm.tournament.winner.6
msg $chan %c1 $+ Now fighting: $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !
set %fight 11
}
alias -l fight12.kwart {
set %DM.player1 %dm.tournament.winner.7
set %DM.player2 %dm.tournament.winner.8
msg $chan %c1 $+ Now fighting: $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !
set %fight 12
}
alias -l fight13.semi {
set %DM.player1 %dm.tournament.winner.9
set %DM.player2 %dm.tournament.winner.10
msg $chan %c1 $+ Now fighting: $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !
set %fight 13
}
alias -l fight14.semi {
set %DM.player1 %dm.tournament.winner.11
set %DM.player2 %dm.tournament.winner.12
msg $chan %c1 $+ And last but not least: $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !
set %fight 14
}
alias -l fight15.final {
set %DM.player1 %dm.tournament.winner.13
set %DM.player2 %dm.tournament.winner.14
msg $chan %c1 $+ This is the one and only final! $+ %c2 %dm.player1 $+ %c4 Vs. $+ %c2 %dm.player2 $+ %c4 $+ !
set %fight 15
}
alias -l start.health
set %dmhealth. [ $+ [ %DM.tournament.player.1 ] ] $calc(%dmlvl. [ $+ [ %dm.tournament.player1 ] ] ^1.2 * 30 + 80)
set %dmhealth. [ $+ [ %DM.tournament.player.2 ] ] $calc(%dmlvl. [ $+ [ %dm.tournament.player1 ] ] ^1.2 * 30 + 80)
set %dmhealth. [ $+ [ %DM.tournament.player.3 ] ] $calc(%dmlvl. [ $+ [ %dm.tournament.player1 ] ] ^1.2 * 30 + 80)
set %dmhealth. [ $+ [ %DM.tournament.player.4 ] ] $calc(%dmlvl. [ $+ [ %dm.tournament.player1 ] ] ^1.2 * 30 + 80)
set %dmhealth. [ $+ [ %DM.tournament.player.5 ] ] $calc(%dmlvl. [ $+ [ %dm.tournament.player1 ] ] ^1.2 * 30 + 80)
set %dmhealth. [ $+ [ %DM.tournament.player.6 ] ] $calc(%dmlvl. [ $+ [ %dm.tournament.player1 ] ] ^1.2 * 30 + 80)
set %dmhealth. [ $+ [ %DM.tournament.player.7 ] ] $calc(%dmlvl. [ $+ [ %dm.tournament.player1 ] ] ^1.2 * 30 + 80)
set %dmhealth. [ $+ [ %DM.tournament.player.8 ] ] $calc(%dmlvl. [ $+ [ %dm.tournament.player1 ] ] ^1.2 * 30 + 80)
set %dmhealth. [ $+ [ %DM.tournament.player.9 ] ] $calc(%dmlvl. [ $+ [ %dm.tournament.player1 ] ] ^1.2 * 30 + 80)
set %dmhealth. [ $+ [ %DM.tournament.player.10 ] ] $calc(%dmlvl. [ $+ [ %dm.tournament.player1 ] ] ^1.2 * 30 + 80)
set %dmhealth. [ $+ [ %DM.tournament.player.11 ] ] $calc(%dmlvl. [ $+ [ %dm.tournament.player1 ] ] ^1.2 * 30 + 80)
set %dmhealth. [ $+ [ %DM.tournament.player.12 ] ] $calc(%dmlvl. [ $+ [ %dm.tournament.player1 ] ] ^1.2 * 30 + 80)
set %dmhealth. [ $+ [ %DM.tournament.player.13 ] ] $calc(%dmlvl. [ $+ [ %dm.tournament.player1 ] ] ^1.2 * 30 + 80)
set %dmhealth. [ $+ [ %DM.tournament.player.14 ] ] $calc(%dmlvl. [ $+ [ %dm.tournament.player1 ] ] ^1.2 * 30 + 80)
set %dmhealth. [ $+ [ %DM.tournament.player.15 ] ] $calc(%dmlvl. [ $+ [ %dm.tournament.player1 ] ] ^1.2 * 30 + 80)
set %dmhealth. [ $+ [ %DM.tournament.player.16 ] ] $calc(%dmlvl. [ $+ [ %dm.tournament.player1 ] ] ^1.2 * 30 + 80)
}