on *:join:#TundraIRC: { if ($nick == airforceowns) { beep 30 } } alias -l setdmcolours { ;################################################################### ;##########SET THE COLOUR NUMBER YOU WANT WHERE THE NUMBER IS####### ;################################################################### set %colour.overall 10 set %colour.nicks 7 set %colour.hits 3 set %colour.hp 6 set %colour.weapon 14 set %colour.poison 4 ;################################################################### ;################################################################### ;################################################################### set %c1 $+($chr(3),%colour.overall) set %c2 $+($chr(3),%colour.nicks) set %c3 $+($chr(3),%colour.hits) set %c4 $+($chr(3),%colour.hp) set %c5 $+($chr(3),%colour.weapon) set %c6 $+($chr(3),%colour.pois) } ;#######################START DEATHMATCH######################### on $*:text:/^[!.@](dm|deathmatch|chal(l)?(enge)?|fight)/Si:#DM, #DM-shop, #DM-bank, #DM-tournaments: { if (*c*m*d* iswm $1-) { dmcommandslist $nick $1- | halt } if (*h*s* iswm $1-) { dmhighscores $nick $1- | halt } if ($network == Tundrairc) { if ($chan != #DM) { notice $nick %c1 $+ You only can do this in $+ %c2 #DM $+ %c1 . halt } setdmcolours set %dm.chan #DM if (%dmid. [ $+ [ $nick ] ] == 1) { if (%dmnick. [ $+ [ $nick ] ] == 1) { if (%dmwins. [ $+ [ $nick ] ] == $null) .set %dmwins. [ $+ [ $nick ] ] 0 if (%dmloses. [ $+ [ $nick ] ] == $null) .set %dmloses. [ $+ [ $nick ] ] 0 if (%dm.player1) { if (%dm.player1 == $nick && %dm.status != ON) { notice $nick %c1 $+ Please wait until somebody accepts your challange or your challenge times out. | halt } if (%dm.status == ON && $nick != %dm.player1 && $nick != %dm.player2) { notice $nick %c1 $+ Sorry, but there is already a $+ %c5 DeathMatch $+ %c1 running, please wait till that one is over, and try again. halt } elseif ($nick == %dm.player1 || $nick == %dm.player2) { notice $nick %c1 $+ You're already fighting in this $+ %c5 DeathMatch $+ %c1 $+ ! halt } set %dm.status ON set %dm.player2 $nick if (%dminv. [ $+ [ $nick ] ] >= 10) .notice $nick %c2 $+ Notice: $+ %c1 You have $+ %c4 10 or more $+ %c1 items in your inventory, meaning you won't get any drops, in case you win the $+ %c5 DeathMatch $+ %c1 $+ . You can bank items in $+ %c3 #DM-bank $+ %c1 $+ . if (%dmlvl. [ $+ [ %dm.player1 ] ] == $null) { set %dmlvl. [ $+ [ %dm.player1 ] ] 1 } if (%dmlvl. [ $+ [ %dm.player2 ] ] == $null) { set %dmlvl. [ $+ [ %dm.player2 ] ] 1 } mode %dm.chan m if (%dm.player1 isreg %dm.chan && %dm.player2 isreg %dm.chan) { mode %dm.chan vv %dm.player1 %dm.player2 } elseif (%dm.player1 isreg %dm.chan && %dm.player2 !isreg %dm.chan) { mode %dm.chan v %dm.player1 | set %nodevoice1 %dm.player2 } elseif (%dm.player1 !isreg %dm.chan && %dm.player2 isreg %dm.chan) { mode %dm.chan v %dm.player2 | set %nodevoice2 %dm.player1 } else { set %nodevoice1 %dm.player1 | set %nodevoice2 %dm.player2 } timerturnswitch 1 60 turngone set %specuse. [ $+ [ %dm.player1 ] ] 3 set %specuse. [ $+ [ %dm.player2 ] ] 3 set %dmstarthealth. [ $+ [ %dm.player1 ] ] $gettok($calc(%dmlvl. [ $+ [ %dm.player1 ] ] ^1.2 * 30 + 80),1,46) set %dmstarthealth. [ $+ [ %dm.player2 ] ] $gettok($calc(%dmlvl. [ $+ [ %dm.player2 ] ] ^1.2 * 30 + 80),1,46) set %dmhealth. [ $+ [ %dm.player1 ] ] $gettok($calc(%dmlvl. [ $+ [ %dm.player1 ] ] ^1.2 * 30 + 80),1,46) set %dmhealth. [ $+ [ %dm.player2 ] ] $gettok($calc(%dmlvl. [ $+ [ %dm.player2 ] ] ^1.2 * 30 + 80),1,46) msg %dm.chan %c1 $+ The fight is: $+ %c5 A %c6 $+ level %dmlvl. [ $+ [ %dm.player1 ] ] $+ %c5 $+ : %c2 $+ %dm.player1 $+ %c5 ( $+ %c4 $+ Wins: $+ %c3 %dmwins. [ $+ [ %dm.player1 ] ] $+ %c5 $+ : $+ %c4 Loses: $+ %c3 %dmloses. [ $+ [ %dm.player1 ] ] $+ %c5 $+ ) Vs a %c6 $+ level %dmlvl. [ $+ [ %dm.player2 ] ] $+ %c5 $+ : %c2 $+ %dm.player2 $+ %c5 ( $+ %c4 $+ Wins: $+ %c3 %dmwins. [ $+ [ %dm.player2 ] ] $+ %c5 - $+ %c4 Loses: $+ %c3 %dmloses. [ $+ [ %dm.player2 ] ] $+ %c5 $+ ). var %dm.begin = $r(1,2) timerchallenge off if (%dm.begin == 1) { set %dm.startnick %dm.player1 } if (%dm.begin == 2) { set %dm.startnick %dm.player2 var %dm.player3 = %dm.player1 set %dm.player1 %dm.player2 set %dm.player2 %dm.player3 } msg %dm.chan %c2 $+ %dm.startnick $+ %c1 starts the game! notice %dm.player1 %c1 $+ Dm started, you're fighting %c4 $+ %dm.player2 $+ %c1 $+ , who has $+ %c4 %dmhealth. [ $+ [ %dm.player2 ] ] $+ %c1 hitpoints. notice %dm.player2 %c1 $+ Dm started, you're fighting %c4 $+ %dm.player1 $+ %c1 $+ , who has $+ %c4 %dmhealth. [ $+ [ %dm.player1 ] ] $+ %c1 hitpoints. } else { set %dm.player1 $nick msg %dm.chan %c2 $+ %dm.player1 $+ %c1 ( $+ %c6 $+ level %dmlvl. [ $+ [ %dm.player1 ] ] $+ %c1 - %c4 $+ Wins: $+ %c3 %dmwins. [ $+ [ $nick ] ] $+ %c1 - $+ %c4 Loses: $+ %c3 %dmloses. [ $+ [ $nick ] ] $+ %c1 $+ ) has initiated a %c5 $+ DM Game $+ %c1 $+ . Type $+ %c6 !DM $+ %c1 to fight him! timerchallenge 1 30 tooslow if (%dminv. [ $+ [ $nick ] ] >= 10) .notice $nick %c2 $+ Notice: $+ %c1 You have $+ %c4 10 or more $+ %c1 items in your inventory, meaning you won't get any drops, in case you win the $+ %c5 DeathMatch $+ %c1 $+ . You can bank items in $+ %c3 #DM-bank $+ %c1 $+ . } } 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 /msg $me !id(entify) yourpass $+ %c1 $+ . } } else { notice $nick %c1 $+ You need to connect to %c2 $+ irc.TundraIRC.net %c1 $+ to play a DeathMatch! } } ;###################################END DeathMatch############################## on $*:text:/^[`!@.]((s(top)?|halt|end)( |-)?(tour(ny|ament)?|D(eath)?M(atch)?))/Si:#DM, #DM-tournaments: { 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 (%dmid. [ $+ [ $nick ] ] == 1) { if (*tour* iswm $1-) { if ($nick != supamagier && $nick != cnb6 && $address($me,2) != $addres($nick,2) && $nick !isop $chan) { notice $nick %c1 $+ Access denied, you are not allowed to use that command. halt } Else { if (!%dm.tournament) { notice $nick %c1 $+ There's no Tournament running. halt } set %tourstoppedrem 1 endtour msg $chan %c1 $+ Tournament stopped by $+ %c2 $nick $+ %c1 $+ . } halt } if ($nick ishop $chan || $nick isop $chan || $address($nick,2) == $address($me,2) || $nick == Supamagier || $nick == cnb6 || $nick == cnb6|bnc) { if (%dm.status != ON) { notice $nick %c1 $+ There's no DeathMatch running. halt } if ($nick != %dm.player1 && $nick != %dm.player2) { msg $chan %c1 $+ DeathMatch stopped by $+ %c2 $nick $+ %c1 $+ . enddm } else { notice $nick %c1 $+ You can't do that as a player, $+ %c5 coward $+ %c1 $+ ! } } else { notice $nick %c1 $+ You need to be a 7half-op or higher $+ %c1 to use this command. } } else { notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ . } } ;#############################REGISTER AND ID TO PLAY########################### on $*:text:/^[`](dm( reg(ister)?|reg(ister)?|-reg(ister)?)|register(dm)?)/Si:#DM, #DM-shop, #DM-bank, #DM-tournaments: { 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) { set %tryreg. [ $+ [ $nick ] ] 1 msg $nick %c1 $+ So you want to register? Great! Type $+ %c3 !setpass passyouwant $+ %c1 in my PM. You can't use any spaces in your password. Don't use your login password for any other thing. You'll also need to choose a class, you can choose between $+ %c6 Mage $+ %c1 $+ , $+ %c6 Range $+ %c1 and $+ %c6 Melee $+ %c1 $+ . Use $+ %c4 !setclass styleyouwant $+ %c1 to choose one. } else { notice $nick %c1 $+ You already registered! } } on *:text:!setpass*:?: { 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 (%tryreg. [ $+ [ $nick ] ] == 1) { if (%dmclass. [ $+ [ $nick ] ] == $null) { msg $nick %c1 $+ Please choose a class first. Use %c4 $+ !setclass classyouwant $+ %c1 $+ . | halt } msg $nick %c1 $+ Congrats! You just registered. Your name is $+ %c3 $nick $+ %c1 $+ , you class is $+ %c2 %dmclass. [ $+ [ $nick ] ] $+ %c1 and your pass is $+ %c2 $2 $+ %c1 $+ . If you want to change your pass, type $+ %c4 !changepass newpass $+ %c1 $+ . Use $+ %c4 /msg $me !identify yourpass $+ %c1 to identify next time. msg $nick %c1 $+ You get $+ %c4 100 coins $+ %c1 so you can buy your first weapon. Join $+ %c2 #DM-shop $+ %c1 to buy one! set %dmmoney. [ $+ [ $nick ] ] 100 unset %tryreg. [ $+ [ $nick ] ] set %dmnick. [ $+ [ $nick ] ] 1 set %dmpass. [ $+ [ $nick ] ] $2 set %dmid. [ $+ [ $nick ] ] 1 close -m $nick } else { msg $nick %c1 $+ Please type $+ %c2 !dm register $+ %c1 in $+ %c4 #DM $+ %c1 first please. } } on *:text:!setclass*:?: { 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 (%tryreg. [ $+ [ $nick ] ] == 1) { if (%dmclass. [ $+ [ $nick ] ]) { msg $nick %c1 $+ You already set a class ($+ %c2 %dmclass. [ $+ [ $nick ] ] $+ %c1 $+ ), now you have to set a password. Use %c4 $+ !setpass passyouwant $+ %c1 $+ . | halt } if ($2 == range || $2 == mage || $2 == melee) { msg $nick %c1 $+ Congrats! You just chose a class. You chose $+ %c2 $2 $+ %c1 $+ . Now please choose a pass. Use %c4 $+ !setpass passyouwant $+ %c1 $+ . set %dmnick. [ $+ [ $nick ] ] 1 set %dmclass. [ $+ [ $nick ] ] $2 } else { msg $nick Please choose between $+ %c6 Mage $+ %c1 $+ , $+ %c6 Range $+ %c1 and $+ %c6 Melee $+ %c1 $+ . } } else { msg $nick %c1 $+ Please type $+ %c2 !dm register $+ %c1 in $+ %c4 #DM $+ %c1 first please. } } on *:text:!changepass*:?: { 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 (%dmid. [ $+ [ $nick ] ] == 1) { msg $nick %c1 $+ Congrats! You just changed your pass to $+ %c2 $2 $+ %c1 $+ . If you want to change your pass again, type $+ %c4 !changepass newpass $+ %c1 $+ . set %dmpass. [ $+ [ $nick ] ] $2 close -m $nick } else { msg $nick %c1 $+ You need to be identified if you want to change your pass! Use $+ %c4 /msg $me !identify yourpass $+ %c1 to identify. } } on $*:text:/^[!@`.](id(entify)?)/Si:?: { 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) { msg $nick %c1 $+ Please register first. Type %c5 $+ `dm-register $+ %c1 first,in #DM and follow the instructions. | halt } if (%dmid. [ $+ [ $nick ] ] == 1) { msg $nick %c1 $+ You are already identified! | close -m $nick | halt } if ($2 == %dmpass. [ $+ [ $nick ] ]) { msg $nick %c1 $+ You are now identified, have fun!. msg $nick %c1 $+ You will be auto-unidentified when you disconnect. set %dmid. [ $+ [ $nick ] ] 1 unset %dmtrylog. [ $+ [ $nick ] ] close -m $nick } else { if (%dmtrylog. [ $+ [ $nick ] ] >= 5) { msg $nick %c3 Five $+ %c1 wrong passwords in a row, you'll be now ignored for $+ %c6 10 minutes $+ %c1 $+ . unset %dmtrylog. [ $+ [ $nick ] ] ignore -u600 $nick halt } msg $nick %c1 $+ Wrong password. inc %dmtrylog. [ $+ [ $nick ] ] close -m $nick } } on $*:text:/^[!@`.]((my)?(class))/Si:#DM, #DM-bank, #DM-shop, #DM-tournaments: { 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) { notice $nick %c1 $+ Please register first. Type %c5 $+ `dm-register $+ %c1 first,in #DM and follow the instructions. | halt } if (%dmid. [ $+ [ $nick ] ] != 1) { notice $nick %c1 $+ Please identify first. Type %c5 $+ /msg Supabot !id $+ %c1 $+ . | halt } notice $nick %c1 $+ The class you chose is $+ %c2 %dmclass. [ $+ [ $nick ] ] $+ %c1 $+ . } on *:quit: { if ($network == TundraIRC) { unset %dmid. [ $+ [ $nick ] ] } } on *:disconnect: { if ($network == TundraIRC) { unset %dmid.* timerstopdmquit 1 120 enddm } } on *:connect: { timerstopdmquit off } ;################################SHOP AND BANK########################### on $*:text:/^[!`@.](item(s)?|shop|sale|list)/Si:#DM-shop, #DM, #DM-bank, #DM-tournaments: { setdmcolours 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-shop) { notice $nick %c1 $+ You only can do this in $+ %c2 #DM-shop $+ %c1 . halt } if (%dmid. [ $+ [ $nick ] ] == 1) { ;###################WHAT DO WE HAVE TODAY?############################### if ($2 == $null) { notice $nick %c1 $+ Please Choose a category. Type $+ %c2 !item category $+ %c1 $+ . The categories we have today are: $+ %c3 Health potions $+ %c1 $+ , $+ %c3 Potions $+ %c1 $+ , %c3 $+ Warrior $+ %c1 $+ , %c3 $+ Ranger $+ %c1 $+ , %c3 $+ Mage $+ %c1 $+ , %c3 $+ Spells $+ %c1 and %c3 $+ Arrows. } if ($2 == food || $2 == eat || $2 == health || $2 == hp || recover isin $2) { if (%nobuycommandfood. [ $+ [ $nick ] ] != 1) { set %nobuycommandfood. [ $+ [ $nick ] ] 1 msg $nick %c3 $+ The food we have today: msg $nick %c2 $+ Small health potion $+ %c1 - $+ %c5 10 coins $+ %c1 - $+ %c4 Heals 20 hp. msg $nick %c2 $+ Normal health potion $+ %c1 - $+ %c5 30 coins $+ %c1 - $+ %c4 Heals 50 hp. msg $nick %c2 $+ Large health potion $+ %c1 - $+ %c5 70 coins $+ %c1 - $+ %c4 Heals 80 hp. msg $nick %c2 $+ Giant health potion $+ %c1 - $+ %c5 150 coins $+ %c1 - $+ %c4 Heals 150 hp. msg $nick %c2 $+ Incredible fantastic Uber health potion $+ %c4 - $+ %c5 1000 coins $+ %c1 - $+ %c4 Heals 800 hp and the next time you're hit, it heals you inmediatly. Cant be used more than 3 times per fight. timer [ $+ [ $nick $+ food ] ] 1 180 set %nobuycommandfood. [ $+ [ $nick ] ] 0 } else { notice $nick %c1 $+ Please wait $+ %c6 $timer($nick $+ food).secs %c1 $+ seconds before using this command again. } } if ($2 == potions || $2 == pots || $2 == pot) { if (%nobuycommandpotions. [ $+ [ $nick ] ] != 1) { set %nobuycommandpotions. [ $+ [ $nick ] ] 1 msg $nick %c3 $+ The potions we have today: msg $nick %c2 $+ Anti potion $+ %c1 - $+ %c5 100 coins $+ %c1 - $+ %c4 Cures a poison msg $nick %c2 $+ Special attack potion $+ %c1 - $+ %c5 200 coins $+ %c1 - $+ %c4 Allows you to use 2 special attacks again. msg $nick %c2 $+ Mage potion $+ %c1 - $+ %c5 200 coins $+ %c1 - $+ %c4 Increases your mage max hit with 10% for 5 turns. msg $nick %c2 $+ Strength potion $+ %c1 - $+ %c5 200 coins $+ %c1 - $+ %c4 Increases your melee max hit with 10% for 5 turns. msg $nick %c2 $+ Ranged potion $+ %c1 - $+ %c5 200 coins $+ %c1 - $+ %c4 Increases your range max hit with 10% for 5 turns. msg $nick %c2 $+ Defence potion $+ %c1 - $+ %c5 200 coins $+ %c1 - $+ %c4 Increases your defence with 10% for 5 turns. timer [ $+ [ $nick $+ pot ] ] 1 180 set %nobuycommandpotions. [ $+ [ $nick ] ] 0 } else { notice $nick %c1 $+ Please wait $+ %c6 $timer($nick $+ pot).secs %c1 $+ seconds before using this command again. } } if ($2 == warrior || $2 == melee) { if (%nobuycommandwarrior. [ $+ [ $nick ] ] != 1) { set %nobuycommandwarrior. [ $+ [ $nick ] ] 1 msg $nick %c3 $+ The melee weapons we have today: msg $nick %c2 $+ Dagger $+ %c1 - $+ %c5 50 coins $+ %c1 - $+ %c6 lvl 1 $+ %c1 - $+ %c4 Max hit 10 msg $nick %c2 $+ Sword $+ %c1 - $+ %c5 100 coins $+ %c1 - $+ %c6 lvl 1 $+ %c1 - $+ %c4 Max hit 15 msg $nick %c2 $+ Battle axe $+ %c1 - $+ %c5 200 coins $+ %c1 - $+ %c6 lvl 5 $+ %c1 - $+ %c4 Max hit 25 msg $nick %c2 $+ Home made sword $+ %c1 - $+ %c5 250 coins $+ %c1 - $+ %c6 lvl 10 $+ %c1 - $+ %c4 Max hit 50 (May break) msg $nick %c2 $+ Scimitar $+ %c1 - $+ %c5 2000 coins $+ %c1 - $+ %c6 lvl 15 $+ %c1 - $+ %c4 Max hit 50 msg $nick %c2 $+ Duel handed battle axes $+ %c1 - $+ %c5 5000 coins $+ %c1 - $+ %c6 lvl 25 $+ %c1 - $+ %c4 Max hit 200 msg $nick %c2 $+ Godsword $+ %c1 - $+ %c5 25000 coins $+ %c1 - $+ %c6 lvl 40 $+ %c1 - $+ %c4 Max hit 550 timer [ $+ [ $nick $+ war ] ] 1 180 set %nobuycommandwarrior. [ $+ [ $nick ] ] 0 } else { notice $nick %c1 $+ Please wait $+ %c6 $timer($nick $+ war).secs %c1 $+ seconds before using this command again. } } if ($2 == ranger || $2 == range || $2 == ranged) { if (%nobuycommandranger. [ $+ [ $nick ] ] != 1) { set %nobuycommandranger. [ $+ [ $nick ] ] 1 msg $nick %c3 $+ The ranged weapons we have today: msg $nick %c2 $+ Bow $+ %c1 - $+ %c5 50 coins $+ %c1 - $+ %c4 Arrow max hit msg $nick %c2 $+ Large bow $+ %c1 - $+ %c5 500 coins $+ %c1 - $+ %c4 Arrow max hit msg $nick %c2 $+ Great bow $+ %c1 - $+ %c5 3000 coins $+ %c1 - $+ %c4 Arrow max hit msg $nick %c2 $+ Ultimate bow $+ %c1 - $+ %c5 15000 coins $+ %c1 - $+ %c4 Arrow max hit msg $nick %c2 $+ Triple arrowed bow $+ %c1 - $+ %c5 35000 coins $+ %c1 - $+ %c4 Arrow max hit (three arrows per shot). timer [ $+ [ $nick $+ rang ] ] 1 180 set %nobuycommandranger. [ $+ [ $nick ] ] 0 } else { notice $nick %c1 $+ Please wait $+ %c6 $timer($nick $+ rang).secs %c1 $+ seconds before using this command again. } } if ($2 == mage || $2 == mager || $2 == wizard || $2 == magic) { if (%nobuycommandmage. [ $+ [ $nick ] ] != 1) { set %nobuycommandmage. [ $+ [ $nick ] ] 1 msg $nick %c3 $+ The mage weapons we have today: msg $nick %c2 $+ Newbie magic staff $+ %c1 - $+ %c5 100 coins $+ %c1 - $+ %c4 Spell max hit - 20%. msg $nick %c2 $+ Beginner magic staff $+ %c1 - $+ %c5 1000 coins $+ %c1 - $+ %c4 Spell max hit - 10%. msg $nick %c2 $+ Magic staff $+ %c1 - $+ %c5 2000 coins $+ %c1 - $+ %c4 Spell max hit. msg $nick %c2 $+ Advanced magic staff $+ %c1 - $+ %c5 7000 coins $+ %c1 - $+ %c4 Spell max hit + 10%. msg $nick %c2 $+ Ultimate magic staff $+ %c1 - $+ %c5 15000 coins $+ %c1 - $+ %c4 Spell max hit + 20%. msg $nick %c2 $+ Two Duel handed magic wands $+ %c1 - $+ %c5 35000 coins $+ %c1 - $+ %c4 Spell max hit + 50%. timer [ $+ [ $nick $+ mage ] ] 1 180 set %nobuycommandmage. [ $+ [ $nick ] ] 0 } else { notice $nick %c1 $+ Please wait $+ %c6 $timer($nick $+ mage).secs %c1 $+ seconds before using this command again. } } if ($2 == spells || $2 == spell || $2 == cast) { if (%nobuycommandspells. [ $+ [ $nick ] ] != 1) { set %nobuycommandspells. [ $+ [ $nick ] ] 1 msg $nick %c3 $+ The magic spells we have today: msg $nick %c2 $+ Blizz $+ %c1 - $+ %c5 50 coins $+ %c1 - $+ %c6 Newbie magic staff $+ %c1 - $+ %c4 Max hit 20 msg $nick %c2 $+ Blizztering cold $+ %c1 - $+ %c5 75 coins $+ %c6 Newbie magic staff $+ %c1 - $+ %c4 Max hit 25 msg $nick %c2 $+ Fire fury $+ %c1 - $+ %c5 100 coins $+ %c1 - $+ %c6 Beginner magic staff $+ %c1 - $+ %c4 Max hit 50 msg $nick %c2 $+ Blizztering freeze $+ %c1 - $+ %c5 400 coins $+ %c6 Magic staff $+ %c1 - $+ %c4 Max hit 70 & Freezes you opponent for 2 turns, so he can't attack you (unless he ranges). msg $nick %c2 $+ Venquence fury $+ %c1 - $+ %c5 500 coins $+ %c1 - $+ %c6 Magic staff $+ %c1 - $+ %c4 Max hit 100 msg $nick %c2 $+ Health cast $+ %c1 - $+ %c5 2000 coins $+ %c1 - $+ %c6 Advanced magic staff $+ %c1 - $+ %c4 Heals you with 30% of your total hp. msg $nick %c2 $+ Life cast $+ %c1 - $+ %c5 4500 coins $+ %c1 - $+ %c6 Ultimate magic staff $+ %c1 - $+ %c4 Heals you with 60% of your total hp. msg $nick %c2 $+ Teleport $+ %c1 - $+ %c5 5000 coins $+ %c1 - $+ %c6 Ultimate magic staff $+ %c1 - $+ %c4 Allows you to teleport from your opponent away, which allows you to cast 4 spells before he can attack you (unless he ranges, than only 1). msg $nick %c2 $+ Avada kadavra $+ %c1 - $+ %c5 10000 coins $+ %c1 - $+ %c6 Two Duel handed magic wands $+ %c1 - $+ %c4 Max hit 700 timer [ $+ [ $nick $+ spells ] ] 1 180 set %nobuycommandspells. [ $+ [ $nick ] ] 0 } else { notice $nick %c1 $+ Please wait $+ %c6 $timer($nick $+ spells).secs %c1 $+ seconds before using this command again. } } if ($2 == arrows || $2 == arrow || $2 == other) { if (%nobuycommandother. [ $+ [ $nick ] ] != 1) { set %nobuycommandother. [ $+ [ $nick ] ] 1 msg $nick %c3 $+ The arrows we have today: msg $nick %c2 $+ Weak arrow $+ %c1 - $+ %c5 1 coin each $+ %c1 - $+ %c6 Bow $+ %c1 - $+ %c4 Max hit 10 msg $nick %c2 $+ Normal arrow $+ %c1 - $+ %c5 2 coin each $+ %c1 - $+ %c6 Bow $+ %c1 - $+ %c4 Max hit 40 msg $nick %c2 $+ Powerful arrow $+ %c1 - $+ %c5 2 coin each $+ %c1 - $+ %c6 Large bow $+ %c1 - $+ %c4 Max hit 75 msg $nick %c2 $+ Powerful arrow (P) $+ %c1 - $+ %c5 5 coin each $+ %c1 - $+ %c6 Great bow $+ %c1 - $+ %c4 Max hit 100 + 10 damage poison (per round) msg $nick %c2 $+ Diamond arrow $+ %c1 - $+ %c5 10 coin each $+ %c1 - $+ %c6 Ultimate bow $+ %c1 - $+ %c4 Max hit 150 msg $nick %c2 $+ Diamond arrow (P+) $+ %c1 - $+ %c5 15 coin each $+ %c1 - $+ %c6 Ultimate bow $+ %c1 - $+ %c4 Max hit 200 + 20 damage poison (per round) msg $nick %c2 $+ Cursed arrow (P++) $+ %c1 - $+ %c5 30 coin each $+ %c1 - $+ %c6 Ultimate bow $+ %c1 - $+ %c4 Max hit 450 + 40 damage poison (per round) that can't be cured. timer [ $+ [ $nick $+ oth ] ] 1 180 set %nobuycommandother. [ $+ [ $nick ] ] 0 } else { notice $nick %c1 $+ Please wait $+ %c6 $timer($nick $+ oth).secs %c1 $+ seconds before using this command again. } } } else { notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ . } } ;############################## LET'S BUY STUFF! ######################## on $*:text:/^[!`@.](buy)/Si:#DM-bank, #DM, #DM-shop, #DM-tournaments: { setdmcolours 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-shop) { notice $nick %c1 $+ You only can do this in $+ %c2 #DM-shop $+ %c1 . halt } if ($nick == %dm.player1 || $nick == %dm.player2) { notice $nick %c1 $+ You can't buy stuff during a fight! halt } if (%dmid. [ $+ [ $nick ] ] == 1) { if (!$3) .goto buymsg var %dm.amount = $remove($right($1-,6),$chr(32),a,b,c,d,e,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,+,$chr(40),$chr(41)) if (%dm.amount == 0) { notice $nick %c1 $+ You can't buy $+ %c3 0 $+ %c1 of something. halt } if (%dm.amount isnum) { set %dm.item $remove($2-,1,2,3,4,5,6,7,8,9,0) set %dm.item $replace(%dm.item,$chr(32),_) if (%dmbuyfirsttime != 1) { set %dmbuyfirsttime 1 setShop } set %dm.buyitem $read(dmshopitems.txt, w, %dm.item $+ *) if (%dm.buyitem) { if (%dmmoney. [ $+ [ $nick ] ] >= $calc($gettok(%dm.buyitem,2,64) * %dm.amount)) { set %dmwriteitem $replace(%dm.buyitem,$chr(32),_) set %dmwriteitem $gettok(%dmwriteitem,1,64) if ($readini(dminv.ini,$nick,%dmwriteitem) == $null) { inc %dminv. [ $+ [ $nick ] ] set %dm.amountt %dm.amount } else { set %dm.amountt $calc($readini(dminv.ini,$nick,%dmwriteitem) + %dm.amount) } if (%dminv. [ $+ [ $nick ] ] > 10) { dec %dminv. [ $+ [ $nick ] ] notice $nick %c1 $+ Your inventory, which has $+ %c2 10 $+ %c1 slots, is full, you need to bank first. Join %c4 $+ #DM-bank $+ %c1 to do so. halt } writeini dminv.ini $nick %dmwriteitem %dm.amountt dec %dmmoney. [ $+ [ $nick ] ] $calc($gettok(%dm.buyitem,2,64) * %dm.amount) notice $nick %c1 $+ Congrats! You just bought $+ %c3 %dm.amount $+ %c4 $replace($gettok(%dm.buyitem,1,64),_,$chr(32)) $+ s %c1 $+ for $+ %c2 $calc($gettok(%dm.buyitem,2,64) * %dm.amount) coins $+ %c1 $+ . You now have $+ %c2 %dmmoney. [ $+ [ $nick ] ] coins $+ %c1 left. notice $nick %c1 $+ You now have a total of $+ %c3 %dm.amountt $+ %c4 $replace($gettok(%dm.buyitem,1,64),_,$chr(32)) $+ s $+ %c1 with you! } else { if (%dmmoney. [ $+ [ $nick ] ] == $null) { set %dmmoney. [ $+ [ $nick ] ] 0 } notice $nick %c1 $+ Insufficient money. You need $+ %c3 $calc($gettok(%dm.buyitem,2,64) * %dm.amount) coins $+ %c1 to buy $+ %c2 %dm.amount $gettok(%dm.buyitem,1,64) $+ s $+ %c1 $+ , while you only have $+ %c2 %dmmoney. [ $+ [ $nick ] ] coins $+ %c1 $+ . } } else { notice $nick %c1 $+ Sorry! We don't have %c3 $+ " $+ $replace(%dm.item,_,$chr(32)) $+ " $+ %c1 $+ . Maybe you spelled it wrong? } } else { :buymsg notice $nick %c1 $+ Please use $+ %c3 !buy $+ %c1 $+ . } } else { notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ . } } ;####################### SELL SELL SELL! ############################# on $*:text:/^[!`@.](sell)/Si:#DM-shop, #DM, #DM-bank, #DM-tournaments: { setdmcolours 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-shop) { notice $nick %c1 $+ You only can do this in $+ %c2 #DM-shop $+ %c1 . halt } if ($nick == %dm.player1 || $nick == %dm.player2) { notice $nick %c1 $+ You can't sell stuff during a fight! halt } if (%dmid. [ $+ [ $nick ] ] == 1) { if (!$3) .goto sellmsg set %dm.amount $remove($right($1-,6),$chr(32),a,b,c,d,e,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,+,$chr(40),$chr(41)) if (%dm.amount == 0) { notice $nick %c1 $+ You can't sell $+ %c3 0 $+ %c1 of something. halt } if (%dm.amount isnum || $remove($right($1-,4),$chr(32)) == all) { set %dm.item $remove($2-,1,2,3,4,5,6,7,8,9,0,all) set %dm.item $replace(%dm.item,$chr(32),_) set %dm.sellitem $read(dmshopitems.txt, w, %dm.item $+ *) if (%dm.sellitem) { set %dmwriteitem $replace(%dm.sellitem,$chr(32),_) set %dmwriteitem $gettok(%dmwriteitem,1,64) if ($remove($right($1-,4),$chr(32)) == all) .set %dm.amount $readini(dminv.ini,$nick,%dmwriteitem) set %dm.amountt $calc($readini(dminv.ini,$nick,%dmwriteitem) - %dm.amount) if (!%dm.amount) { notice $nick %c1 $+ Sorry, you don't have any %c3 $+ $replace($gettok(%dm.sellitem,1,64),_,$chr(32)) $+ s %c1 $+ in your inventory, maybe in your bank? halt } if ($calc($readini(dminv.ini,$nick,%dmwriteitem) - %dm.amount) < 0) { set %dm.amountt 0 notice $nick %c1 $+ Sorry! You don't have $+ %c2 %dm.amount %c3 $+ $replace($gettok(%dm.sellitem,1,64),_,$chr(32)) $+ s $+ %c1 on you, maybe on your bank? halt } elseif ($calc($readini(dminv.ini,$nick,%dmwriteitem) - %dm.amount) == 0) { dec %dminv. [ $+ [ $nick ] ] remini dminv.ini $nick %dmwriteitem } else { writeini dminv.ini $nick %dmwriteitem %dm.amountt } set %sellprice $calc((($gettok(%dm.sellitem,2,64) * 0.6) * %dm.amount) + 0.5) set %sellprice $gettok(%sellprice,1,46) inc %dmmoney. [ $+ [ $nick ] ] %sellprice notice $nick %c1 $+ Congrats! You just sold $+ %c3 %dm.amount $+ %c4 $replace($gettok(%dm.sellitem,1,64),_,$chr(32)) $+ s %c1 $+ for $+ %c2 %sellprice coins $+ %c1 $+ . You now have $+ %c2 %dmmoney. [ $+ [ $nick ] ] coins $+ %c1 $+ . notice $nick %c1 $+ You now have a total of $+ %c3 %dm.amountt $+ %c4 $replace($gettok(%dm.sellitem,1,64),_,$chr(32)) $+ s $+ %c1 with you! } else { notice $nick %c1 $+ Sorry! You don't have %c3 $+ " $+ $replace(%dm.item,_,$chr(32)) $+ " $+ %c1 on you. Maybe you spelled it wrong? } } else { :sellmsg notice $nick %c1 $+ Please use $+ %c3 !sell $+ %c1 $+ . } } else { notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ . } } ;################## WHAT DO YOU HAVE? ############################ on $*:text:/^[!@`.](money|cash)/Si:#DM-shop, #DM, #DM-bank, #DM-tournaments: { setdmcolours 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 (%dmid. [ $+ [ $nick ] ] == 1) { if (%dmmoney. [ $+ [ $nick ] ]) { notice $nick %c1 $+ You currently have $+ %c3 %dmmoney. [ $+ [ $nick ] ] coins $+ %c1 $+ . } else { set %dmmoney. [ $+ [ $nick ] ] 0 notice $nick %c1 $+ You currently have $+ %c3 0 coins $+ %c1 $+ . } } else { notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ . } } ;#################### INVENTORY ############################ on $*:text:/^[`!@.](inv((ent(ory)?)?)?|on)/Si:#DM, #DM-shop, #DM-bank, #DM-tournaments: { setdmcolours 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 (%dmid. [ $+ [ $nick ] ] != 1) { notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ . halt } if (!%showinv. [ $+ [ $nick ] ]) { set %showinv. [ $+ [ $nick ] ] 1 if ($read(dminv.ini, w, * $+ $nick $+ *)) { if (%dminv. [ $+ [ $nick ] ] >= 10) .set %dminv. [ $+ [ $nick ] ] 10 msg $nick %c3 $+ In your inventory you have: set %dmslots. [ $+ [ $nick ] ] 0 set %dmplaymsg. [ $+ [ $nick ] ] 1 play -at $+ $nick dmplayway $nick dminv.ini 500 } else { notice $nick %c1 $+ You don't have anything with you at the moment. } timerinv [ $+ [ $nick ] ] 1 300 unset %showinv. [ $+ [ $nick ] ] } else { notice $nick %c1 $+ Please wait $+ %c6 $timer(inv $+ $nick).secs $+ %c1 seconds before using this command again. } } ;############################## LET'S BANK DA SHIT! ####################### on $*:text:/^[!`.@](bank|store)/Si:#DM-bank, #DM, #DM-shop, #DM-tournaments: { setdmcolours 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-bank) { notice $nick %c1 $+ You only can do this in $+ %c2 #DM-bank $+ %c1 . halt } if ($nick == %dm.player1 || $nick == %dm.player2) { notice $nick %c1 $+ You can't bank stuff during a fight! halt } if (%dmid. [ $+ [ $nick ] ] == 1) { if (!$2) { if (!%showbank. [ $+ [ $nick ] ]) { set %showbank. [ $+ [ $nick ] ] 1 if ($read(dmbank.ini, w, * $+ $nick $+ *)) { msg $nick %c3 $+ On your bank you have $+ %c1 ( $+ %c4 %dmbank. [ $+ [ $nick ] ] $+ %c1 items ) $+ %c3 $+ : play -at $+ $nick dmplayway $nick dmbank.ini 500 halt } else { notice $nick %c1 $+ You don't have anything on your bank at the moment. halt } timerbank [ $+ [ $nick ] ] 1 300 unset %showbank. [ $+ [ $nick ] ] } else { notice $nick %c1 $+ Please wait $+ %c6 $timer(bank $+ $nick).secs $+ %c1 seconds before using this command again. } } if (!$3) .goto bankmsg set %dm.amount $remove($right($1-,6),$chr(32),a,b,c,d,e,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,+,$chr(40),$chr(41)) if (%dm.amount == 0) { notice $nick %c1 $+ You can't bank $+ %c3 0 $+ %c1 of something. halt } if (%dm.amount isnum || $remove($right($1-,4),$chr(32)) == all) { set %dm.item $remove($2-,1,2,3,4,5,6,7,8,9,0,all) set %dm.item $replace(%dm.item,$chr(32),_) set %dm.bankitem $read(dmshopitems.txt, w, %dm.item $+ *) if (%dm.bankitem) { set %dmwriteitem $replace(%dm.bankitem,$chr(32),_) set %dmwriteitem $gettok(%dmwriteitem,1,64) if ($remove($right($1-,4),$chr(32)) == all) .set %dm.amount $readini(dminv.ini,$nick,%dmwriteitem) if (!%dm.amount) { notice $nick %c1 $+ Sorry, you don't have any %c3 $+ $replace($gettok(%dm.bankitem,1,64),_,$chr(32)) $+ s %c1 $+ in your inventory. halt } set %dm.amountt $calc($readini(dminv.ini,$nick,%dmwriteitem) - %dm.amount) if ($calc($readini(dminv.ini,$nick,%dmwriteitem) - %dm.amount) < 0) { set %dm.amountt 0 notice $nick %c1 $+ Sorry! You don't have $+ %c2 %dm.amount %c3 $+ $replace($gettok(%dm.bankitem,1,64),_,$chr(32)) $+ s $+ %c1 on you, maybe on your bank? halt } elseif ($calc($readini(dminv.ini,$nick,%dmwriteitem) - %dm.amount) == 0) { dec %dminv. [ $+ [ $nick ] ] remini dminv.ini $nick %dmwriteitem } else { writeini dminv.ini $nick %dmwriteitem %dm.amountt } if ($readini(dmbank.ini,$nick,%dmwriteitem) == $null) { set %dm.amounttt %dm.amount inc %dmbank. [ $+ [ $nick ] ] } else { set %dm.amounttt $calc($readini(dmbank.ini,$nick,%dmwriteitem) + %dm.amount) } writeini dmbank.ini $nick %dmwriteitem %dm.amounttt notice $nick %c1 $+ Congrats! You just banked $+ %c3 %dm.amount $+ %c4 $replace($gettok(%dm.bankitem,1,64),_,$chr(32)) $+ s $+ %c1 $+ . notice $nick %c1 $+ You now have a total of $+ %c3 %dm.amountt $+ %c4 $replace($gettok(%dm.bankitem,1,64),_,$chr(32)) $+ s $+ %c1 with you and $+ %c3 %dm.amounttt $+ %c1 on your bank. } else { notice $nick %c1 $+ Sorry! You don't have %c3 $+ " $+ $replace(%dm.item,_,$chr(32)) $+ " $+ %c1 on you. Maybe you spelled it wrong? } } else { :bankmsg notice $nick %c1 $+ Please use $+ %c3 !bank $+ %c1 $+ . } } else { notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ . } } ;############################ WITHDRAW YA JUNK ############################ on $*:text:/^[!`.@](with(d(raw)?)?)/Si:#DM-bank, #DM, #DM-shop, #DM-tournaments: { setdmcolours 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-bank) { notice $nick %c1 $+ You only can do this in $+ %c2 #DM-bank $+ %c1 . halt } if ($nick == %dm.player1 || $nick == %dm.player2) { notice $nick %c1 $+ You withdraw buy stuff during a fight! halt } if (%dmid. [ $+ [ $nick ] ] == 1) { if (!$3) .goto withdrawmsg if (%dminv. [ $+ [ $nick ] ] >= 10) { dec %dminv. [ $+ [ $nick ] ] notice $nick %c1 $+ Your inventory, which has $+ %c2 10 $+ %c1 slots, is full, you need to bank first. Join %c4 $+ #DM-bank $+ %c1 to do so. halt } set %dm.amount $remove($right($1-,6),$chr(32),a,b,c,d,e,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,+,$chr(40),$chr(41)) if (%dm.amount == 0) { notice $nick %c1 $+ You can't withdraw $+ %c3 0 $+ %c1 of something. halt } if (%dm.amount isnum || $remove($right($1-,4),$chr(32)) == all) { set %dm.item $remove($2-,1,2,3,4,5,6,7,8,9,0,all) set %dm.item $replace(%dm.item,$chr(32),_) set %dm.withdrawitem $read(dmshopitems.txt, w, %dm.item $+ *) if (%dm.withdrawitem) { set %dmwriteitem $replace(%dm.withdrawitem,$chr(32),_) set %dmwriteitem $gettok(%dmwriteitem,1,64) if ($remove($right($1-,4),$chr(32)) == all) .set %dm.amount $readini(dmbank.ini,$nick,%dmwriteitem) if (!%dm.amount) { notice $nick %c1 $+ Sorry, you don't have any %c3 $+ $replace($gettok(%dm.withdrawitem,1,64),_,$chr(32)) $+ s %c1 $+ on your bank. halt } set %dm.amountt $calc($readini(dmbank.ini,$nick,%dmwriteitem) - %dm.amount) if ($calc($readini(dmbank.ini,$nick,%dmwriteitem) - %dm.amount) < 0) { set %dm.amountt 0 notice $nick %c1 $+ Sorry! You don't have $+ %c2 %dm.amount %c3 $+ $replace($gettok(%dm.withdrawitem,1,64),_,$chr(32)) $+ s $+ %c1 on your bank. halt } elseif ($calc($readini(dmbank.ini,$nick,%dmwriteitem) - %dm.amount) == 0) { dec %dmbank. [ $+ [ $nick ] ] remini dmbank.ini $nick %dmwriteitem } else { writeini dmbank.ini $nick %dmwriteitem %dm.amountt } if ($readini(dminv.ini,$nick,%dmwriteitem) == $null) { set %dm.amounttt %dm.amount inc %dminv. [ $+ [ $nick ] ] } else { set %dm.amounttt $calc($readini(dminv.ini,$nick,%dmwriteitem) + %dm.amount) } writeini dminv.ini $nick %dmwriteitem %dm.amounttt notice $nick %c1 $+ Congrats! You just withdrawed $+ %c3 %dm.amount $+ %c4 $replace($gettok(%dm.withdrawitem,1,64),_,$chr(32)) $+ s $+ %c1 $+ . notice $nick %c1 $+ You now have a total of $+ %c3 %dm.amountt $+ %c4 $replace($gettok(%dm.withdrawitem,1,64),_,$chr(32)) $+ s $+ %c1 on your bank and $+ %c3 %dm.amounttt $+ %c1 with you. } else { notice $nick %c1 $+ Sorry! You don't have %c3 $+ " $+ $replace(%dm.item,_,$chr(32)) $+ " $+ %c1 on your bank. Maybe you spelled it wrong? } } else { :withdrawmsg notice $nick %c1 $+ Please use $+ %c3 !withdraw $+ %c1 $+ . } } else { notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ . } } ;########################################################################## ;#######################---NOW.... LET'S FIGHT!!---######################## ;########################################################################## ;########################## EQUIP ITEMS ################################### on $*:TEXT:/^[!`@.](equip(p)?(ed)?|wear)/Si:#DM, #DM-bank, #DM-shop, #DM-tournaments: { set %dmturnnick $nick 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-bank || $chan == #DM-shop) { notice $nick %c1 $+ You only can do this in $+ %c2 #DM $+ %c1 and $+ %c2 #DM-tournaments $+ %c1 . halt } if (%dmid. [ $+ [ $nick ] ] == 1) { if (%dm.status == on) { if (!$2) { if (!%dmweapon. [ $+ [ $nick ] ]) .set %dmweapon. [ $+ [ $nick ] ] "piece of air" notice $nick %c1 $+ You currently have a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 equipped. halt } if ($2- == %dmweapon. [ $+ [ $nick ] ]) { notice $nick %c1 $+ You already have a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 equipped. halt } unset %unequip if (%dmweapon. [ $+ [ $nick ] ]) { set %unequip %dmweapon. [ $+ [ $nick ] ] if (%unequip == "piece of air") { unset %unequip } } set %weaprequest $replace($2-,$chr(32),_) set %dm.equipitem $read(dmshopitems.txt, w, %weaprequest $+ *) if ($replace(%dmweapon. [ $+ [ $nick ] ],$chr(32),_) == $gettok(%dm.equipitem,1,64)) { notice $nick %c1 $+ You already have a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 equipped. halt } if (%dm.equipitem) { set %dmweapclass. [ $+ [ $nick ] ] $gettok(%dm.equipitem,3,64) if (%dmweapclass. [ $+ [ $nick ] ] != %dmclass. [ $+ [ $nick ] ]) { notice $nick %c1 $+ You only can equip weapons that belong to your class, $+ %c3 %dmclass. [ $+ [ $nick ] ] $+ %c1 $+ . halt } set %dmcheckweap $gettok($replace(%dm.equipitem,$chr(32),_),1,64) if ($readini(dminv.ini,$nick,%dmcheckweap)) { if ($gettok(%dm.equipitem,3,64) == melee || $gettok(%dm.equipitem,3,64) == range || $gettok(%dm.equipitem,3,64) == mage) { set %dmweapon. [ $+ [ $nick ] ] $replace(%dm.equipitem,_,$chr(32)) set %dmweapon. [ $+ [ $nick ] ] $gettok(%dmweapon. [ $+ [ $nick ] ],1,64) writeini dminv.ini $nick $gettok(%dm.equipitem,1,64) $calc($readini(dminv.ini,$nick,$gettok(%dm.equipitem,1,64)) - 1) var %amountleft = $readini(dminv.ini,$nick,$gettok(%dm.equipitem,1,64)) if (%amountleft <= 0) { remini dminv.ini $nick $gettok(%dm.equipitem,1,64) dec %dminv. [ $+ [ $nick ] ] } if ($gettok(%dm.equipitem,3,64) == melee) { if (%dmlvl. [ $+ [ $nick ] ] >= $gettok(%dm.equipitem,5,64)) { if (%unequip) { msg $chan %c2 $+ %dmturnnick %c1 $+ un-equips his $+ %c5 %unequip $+ %c1 $+ . if (%lastequipped. [ $+ [ $nick ] ]) { writeini dminv.ini $nick $gettok(%lastequipped. [ $+ [ $nick ] ],1,64) $calc($readini(dminv.ini,$nick,$gettok(%lastequipped. [ $+ [ $nick ] ],1,64)) + 1) var %amountnow = $readini(dminv.ini,$nick,$gettok(%lastequipped. [ $+ [ $nick ] ],1,64)) } else { var %amountnow == 1) } if (%amountnow == 1) .inc %dminv. [ $+ [ $nick ] ] } set %dmweapmax. [ $+ [ $nick ] ] $gettok($replace(%dm.equipitem,$chr(32),_),4,64) msg $chan %c2 $+ %dmturnnick %c1 $+ equipped a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ , which has a max hit of $+ %c3 %dmweapmax. [ $+ [ $nick ] ] $+ %c1 $+ . set %lastequipped. [ $+ [ $nick ] ] $gettok(%dm.equipitem,1,64) } else { notice $nick %c1 $+ Sorry, you need to be at least $+ %c4 level $gettok(%dm.equipitem,5,64) $+ %c1 to equip a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ , while you only are level $+ %c6 %dmlvl. [ $+ [ $nick ] ] $+ %c1 $+ . unset %dmweapon. [ $+ [ $nick ] ] } } elseif ($gettok(%dm.equipitem,3,64) == range) { if (%unequip) { msg $chan %c2 $+ %dmturnnick %c1 $+ un-equips his $+ %c5 %unequip $+ %c1 $+ . if (%lastequipped. [ $+ [ $nick ] ]) { writeini dminv.ini $nick $gettok(%lastequipped. [ $+ [ $nick ] ],1,64) $calc($readini(dminv.ini,$nick,$gettok(%lastequipped. [ $+ [ $nick ] ],1,64)) + 1) var %amountnow = $readini(dminv.ini,$nick,$gettok(%lastequipped. [ $+ [ $nick ] ],1,64)) } else { var %amountnow = 1 } if (%amountnow == 1) .inc %dminv. [ $+ [ $nick ] ] } set %dmweaparrows. [ $+ [ $nick ] ] $gettok($replace(%dm.equipitem,$chr(32),_),4,64) msg $chan %c2 $+ %dmturnnick %c1 $+ equipped a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ . set %lastequipped. [ $+ [ $nick ] ] $gettok(%dm.equipitem,1,64) } elseif ($gettok(%dm.equipitem,3,64) == mage) { set %dmweapextra. [ $+ [ $nick ] ] $gettok($replace(%dm.equipitem,$chr(32),_),4,64) if (%dmweapextra. [ $+ [ $nick ] ] < 0) .set %dmextramage decreases if (%dmweapextra. [ $+ [ $nick ] ] > 0) .set %dmextramage increases if (%unequip) { msg $chan %c2 $+ %dmturnnick %c1 $+ un-equips his $+ %c5 %unequip $+ %c1 $+ . if (%lastequipped. [ $+ [ $nick ] ]) { writeini dminv.ini $nick $gettok(%lastequipped. [ $+ [ $nick ] ],1,64) $calc($readini(dminv.ini,$nick,$gettok(%lastequipped. [ $+ [ $nick ] ],1,64)) + 1) var %amountnow = $readini(dminv.ini,$nick,$gettok(%lastequipped. [ $+ [ $nick ] ],1,64)) } else { var %amountnow = 1 } if (%amountnow == 1) .inc %dminv. [ $+ [ $nick ] ] } set %lastequipped. [ $+ [ $nick ] ] $gettok(%dm.equipitem,1,64) msg $chan %c2 $+ %dmturnnick %c1 $+ equipped a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ , which %dmextramage his spells max hit with $remove(%dmweapextra. [ $+ [ $nick ] ],-) $+ % $+ %c1 $+ . set %mayunequip. [ $+ [ $nick ] ] 1 } } else { notice $nick %c1 $+ You can't equip a $+ %c3 $replace(%dmcheckweap,_,$chr(32)) $+ %c1 $+ . } } else { notice $nick %c1 $+ You dont have a $+ %c5 $replace(%dmcheckweap,_,$chr(32)) $+ %c1 $+ ! } } else { notice $nick %c1 $+ Sorry! You don't have %c3 $+ " $+ $replace(%weaprequest,_,$chr(32)) $+ " $+ %c1 in your inventory. Maybe you spelled it wrong? } } else { notice $nick %c1 $+ You can only use this command when fighting. } } else { notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ . } } ;########################### EQUIP ARROWS ################################ on $*:TEXT:/^[!`@.](arrow)/Si:#DM, #DM-bank, #DM-shop, #DM-tournaments: { ;+++BASIC+++ 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-bank || $chan == #DM-shop) { notice $nick %c1 $+ You only can do this in $+ %c2 #DM $+ %c1 and $+ %c2 #DM-tournaments $+ %c1 . halt } if (%dmid. [ $+ [ $nick ] ] == 1) { if (%dm.status == on) { if (!$2) { if (!%dmarrow. [ $+ [ $nick ] ]) { notice $nick %c1 You currently have $+ %c2 the basic arrows ( $+ %c4 $+ Max hit: $+ %c6 5 $+ %c2 $+ ) $+ %c1 equipped. halt } if (!%dmarrow.amount. [ $+ [ $nick ] ]) .set %dmarrow.amount. [ $+ [ $nick ] ] 0 notice $nick %c1 $+ You currently have $+ %c3 %dmarrow.amount. [ $+ [ $nick ] ] $+ %c5 $gettok(%dmarrow. [ $+ [ $nick ] ],1,64) $+ s $+ %c1 equipped. halt } ;+++ CHANGES '!arrow weak arrow all/num' in 'weak_arrow' +++ set %weaprequest $replace($2-,$chr(32),_) set %weaprequest $remove(%weaprequest,1,2,3,4,5,6,7,8,9,0,all) ;+++ GETS FULL NAME/DATA OF ITEM: 'weak' becomes 'weak_arrow@price@arrow@bow@hit' +++ set %dm.equipitem $read(dmshopitems.txt, w, %weaprequest $+ *) ;+++ CHECKS IF THE ARROW YOU TRY TO EQUIP IS THE SAME AS THE ONE THAT IS EQUIPPED. IF YES, GOTO :CHECKBOW +++ if ($gettok($replace(%dmarrow. [ $+ [ $nick ] ],$chr(32),_),1,64) == $gettok(%dm.equipitem,1,64)) { unset %unequip2 goto checkbow } ;+++ IF IT ISNT, TELLS IT HAVE TO UN-EQUIP THE OLD ARROW +++ if (%dmarrow. [ $+ [ $nick ] ]) { unset %dmarrow.amount. [ $+ [ $nick ] ] set %unequip2 %dmarrow. [ $+ [ $nick ] ] } ;+++ CHECKS IF THE ITEM GIVEN IS AN ARROW +++ set %dmweapclass. [ $+ [ $nick ] ] $gettok(%dm.equipitem,3,64) if (!%dmweapclass. [ $+ [ $nick ] ] || %dmweapclass. [ $+ [ $nick ] ] == melee || %dmweapclass. [ $+ [ $nick ] ] == range || %dmweapclass. [ $+ [ $nick ] ] == mage || %dmweapclass. [ $+ [ $nick ] ] == spell) { goto sorrymsg } if (%dmweapclass. [ $+ [ $nick ] ] != arrow) { notice $nick %c1 $+ You only can equip arrows with the ranger class, while you have $+ %c3 %dmclass. [ $+ [ $nick ] ] $+ %c1 $+ . halt } ;+++ START :CHECKBOW - CHECKS IF AN AMOUNT IS GIVEN +++ :checkbow set %dmarrow.amount $remove($right($1-,5),$chr(32),a,b,c,d,e,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,+,$chr(40),$chr(41)) if (!%dmarrow.amount) { notice $nick %c1 $+ Please specify a number, $+ %c2 below 10000 $+ %c1 $+ , of arrows you want to equip. halt } ;+++ IF THE ITEM GIVIN EXISTS, CONTINUE, ELSE GOTO :SORRYMSG +++ if (!%dm.equipitem) .goto sorrymsg if (%dm.equipitem) { ;+++ INCREASE THE CURRENT ARROW AMOUNT BY THE GIVEN +++ inc %dmarrow.amount. [ $+ [ $nick ] ] %dmarrow.amount ;+++ CHANGES 'weak_arrow@price@arrow@bow@hit' in 'weak arrow' +++ set %dmcheckweap $gettok($replace(%dm.equipitem,$chr(32),_),1,64) ;+++ IF YOU HAVE THE ARROW +++ if ($readini(dminv.ini,$nick,$gettok(%dm.equipitem,1,64))) { ;+++ CHANGES 'weak_arrow' TO 'weak arrow' +++ set %dmarrow. [ $+ [ $nick ] ] $replace(%dm.equipitem,_,$chr(32)) ;+++ TELLS WHAT BOW YOU NEED +++ set %reqbow $gettok(%dm.equipitem,4,64) set %reqbow $replace(%reqbow,_,$chr(32)) ;+++ CHECKS IF YOU HAVEN'T THE CORRECT BOW EQUIPPED +++ if (%reqbow == bow && %dmweapon. [ $+ [ $nick ] ] != bow && %dmweapon. [ $+ [ $nick ] ] != large bow && %dmweapon. [ $+ [ $nick ] ] != great bow && %dmweapon. [ $+ [ $nick ] ] != ultimate bow && %dmweapon. [ $+ [ $nick ] ] != triple arrowed bow) { notice $nick %c1 $+ You need a $+ %c5 bow $+ %c2 or higher $+ %c1 equipped, $+ %c1 to use $+ %c6 $replace($gettok(%dm.equipitem,1,64),_,$chr(32)) $+ s $+ %c1 $+ . dec %dmarrow.amount. [ $+ [ $nick ] ] %dmarrow.amount halt } elseif (%reqbow == large bow && %dmweapon. [ $+ [ $nick ] ] != large bow && %dmweapon. [ $+ [ $nick ] ] != great bow && %dmweapon. [ $+ [ $nick ] ] != ultimate bow && %dmweapon. [ $+ [ $nick ] ] != triple arrowed bow) { notice $nick %c1 $+ You need a $+ %c5 Large bow $+ %c2 or higher $+ %c1 equipped, $+ %c1 to use $+ %c6 $replace($gettok(%dm.equipitem,1,64),_,$chr(32)) $+ s $+ %c1 $+ . dec %dmarrow.amount. [ $+ [ $nick ] ] %dmarrow.amount halt } elseif (%reqbow == great bow && %dmweapon. [ $+ [ $nick ] ] != great bow && %dmweapon. [ $+ [ $nick ] ] != ultimate bow && %dmweapon. [ $+ [ $nick ] ] != triple arrowed bow) { notice $nick %c1 $+ You need a $+ %c5 Great bow $+ %c2 or higher $+ %c1 equipped, $+ %c1 to use $+ %c6 $replace($gettok(%dm.equipitem,1,64),_,$chr(32)) $+ s $+ %c1 $+ . dec %dmarrow.amount. [ $+ [ $nick ] ] %dmarrow.amount halt } elseif (%reqbow == ultimate bow && %dmweapon. [ $+ [ $nick ] ] != ultimate bow && %dmweapon. [ $+ [ $nick ] ] != triple arrowed bow) { notice $nick %c1 $+ You need an $+ %c5 Ultimate bow $+ %c2 or higher $+ %c1 equipped, $+ %c1 to use $+ %c6 $replace($gettok(%dm.equipitem,1,64),_,$chr(32)) $+ s $+ %c1 $+ . dec %dmarrow.amount. [ $+ [ $nick ] ] %dmarrow.amount halt } ;+++ IF YOU ARE WIELDING THE CORRECT BOW +++ else { if ($calc($readini(dminv.ini,$nick,$gettok(%dm.equipitem,1,64)) - %dmarrow.amount) < 0) { set %amountyouhave $readini(dminv.ini,$nick,$gettok(%dm.equipitem,1,64)) if (!%amountyouhave) .set %amountyouhave 0 notice $nick %c1 $+ Sorry, you don't have $+ %c3 %dmarrow.amount $+ %c5 $gettok(%dmarrow. [ $+ [ $nick ] ],1,64) $+ s $+ %c1 $+ . You only have $+ %c3 %amountyouhave $+ %c5 $gettok(%dmarrow. [ $+ [ $nick ] ],1,64) $+ s $+ %c1 $+ . halt } elseif $calc($readini(dminv.ini,$nick,$gettok(%dm.equipitem,1,64)) - %dmarrow.amount) == 0) { remini dminv.ini $nick $gettok(%dm.equipitem,1,64) dec %dminv. [ $+ [ $nick ] ] } set %amountleft $calc($readini(dminv.ini,$nick,$gettok(%dm.equipitem,1,64)) - %dmarrow.amount) if (%amountleft <= 0) { remini dminv.ini $nick $gettok(%dm.equipitem,1,64) dec %dminv. [ $+ [ $nick ] ] } else { writeini dminv.ini $nick $gettok(%dm.equipitem,1,64) %amountleft inc %dminv. [ $+ [ $nick ] ] } if (%unequip2) { msg $chan %c2 $+ %dmturnnick %c1 $+ un-equips his $+ %c5 $gettok(%unequip2,1,64) $+ s $+ %c1 $+ . set %oldamount $readini(dminv.ini,$nick,$gettok(%lastequipped2. [ $+ [ $nick ] ],1,64)) set %plusamount %lastarrowamount. [ $+ [ $nick ] ] set %newamount $calc(%oldamount + %plusamount) if (%lastequipped2. [ $+ [ $nick ] ]) { writeini dminv.ini $nick $gettok(%lastequipped2. [ $+ [ $nick ] ],1,64) %newamount var %amountnow = $readini(dminv.ini,$nick,$gettok(%lastequipped2. [ $+ [ $nick ] ],1,64)) } else { var %amountnow = 1 } } if ($gettok($replace(%dm.equipitem,$chr(32),_), 6, 64) == P) { set %addextra , and has $+ %c6 10 $+ %c1 damage poison. } elseif ($gettok($replace(%dm.equipitem,$chr(32),_), 6, 64) == P+) { set %addextra , and has $+ %c6 20 $+ %c1 damage poison. } elseif ($gettok($replace(%dm.equipitem,$chr(32),_), 6, 64) == P++) { set %addextra , and has $+ %c6 40 $+ %c1 damage poison, that can't be cured. } else { set %addextra . } set %lastequipped2. [ $+ [ $nick ] ] $gettok(%dm.equipitem,1,64) set %lastarrowamount. [ $+ [ $nick ] ] %dmarrow.amount. [ $+ [ $nick ] ] set %dmarrowmax. [ $+ [ $nick ] ] $gettok($replace(%dm.equipitem,$chr(32),_),5,64) msg $chan %c2 $+ $nick %c1 $+ equips $+ %c3 %dmarrow.amount $+ %c5 $gettok(%dmarrow. [ $+ [ $nick ] ],1,64) $+ s $+ %c1 $+ , which can max hit $+ %c3 %dmarrowmax. [ $+ [ $nick ] ] $+ %c1 $+ %addextra } } ;+++ IF YOU DON'T HAVE THE ARROW +++ else { notice $nick %c1 $+ You dont have a $+ %c5 $replace(%dmcheckweap,_,$chr(32)) $+ %c1 $+ ! } } else { :sorrymsg notice $nick %c1 $+ Sorry! You don't have %c3 $+ " $+ $replace(%weaprequest,_,$chr(32)) $+ " $+ %c1 in your inventory. Maybe you spelled it wrong? } } else { notice $nick %c1 $+ You can only use this command when fighting. } } else { notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ . } } ;########################### UNEQUIP #################################### on $*:text:/^[!`@.](un(eq(uip)?)|wear)/Si:#DM, #DM-shop, #DM-bank, #DM-tournaments: { 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-bank || $chan == #DM-shop) { notice $nick %c1 $+ You only can do this in $+ %c2 #DM $+ %c1 and $+ %c2 #DM-tournaments $+ %c1 . halt } if (%dmid. [ $+ [ $nick ] ] == 1) { if (%dm.status == on && ($nick == %dm.player1 || $nick == %dm.player2)) { if (!%dmweapon. [ $+ [ $nick ] ] || piece isin %dmweapon. [ $+ [ $nick ] ]) { notice $nick %c1 $+ You don't have anything equipped! halt } set %dmwriteitemfight $replace(%dmweapon. [ $+ [ $nick ] ],Chr(32),_) var %checkitemfight = $readini(dminv.ini,$nick,$replace(%dmwriteitemfight,$chr(32),_)) if (%dminv. [ $+ [ $nick ] ] >= 10 && !%checkitemfight) { notice $nick %c1 $+ Your inventory is full! halt } msg $chan %c2 $+ $nick $+ %c1 Unequips his $+ %c4 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ , which means he now is unarmed. if ($readini(dminv.ini,$nick,$replace(%dmwriteitemfight,$chr(32),_))) .inc %dminv. [ $+ [ $nick ] ] unset %mayunequip. [ $+ [ $nick ] ] unset %dmweapon. [ $+ [ $nick ] ] unset %lastequipped. [ $+ [ $nick ] ] set %oldamountfight $readini(dminv.ini,$nick,$replace(%dmwriteitemfight,$chr(32),_)) writeini dminv.ini $nick $replace(%dmwriteitemfight,$chr(32),_) $calc(%oldamountfight + 1) } else { notice $nick %c1 $+ You can only use this command when fighting. } } else { notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ . } } ;######################## ATTACK - MELEE ################################ on $*:text:/^[?!@`.](at(t)?(ack)?|hit)/Si:#DM: { if (%dm.status == ON) { if ($nick == %dm.player1) { if (%dmclass. [ $+ [ $nick ] ] != melee) { notice $nick %c1 $+ As a $+ %c5 %dmclass. [ $+ [ $nick ] ] $+ %c1 $+ , you can't use this command. Use %c3 $+ !shoot $+ %c1 $+ , $+ %c3 !cast $+ %c1 or %c3 $+ !use $+ %c1 instead. halt } timerturnswitch off timerstopdm off if (%dmfreeze. [ $+ [ $nick ] ] > 0 ) { msg $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 turn $+ $iif(%toohot. [ $+ [ $nick ] ] != 1,s) $+ . set %dm.player1 %dm.player2 set %dm.player2 $nick dec %dmfreeze. [ $+ [ $nick ] ] halt } if (%toohot. [ $+ [ $nick ] ] > 0 ) { dec %toohot. [ $+ [ $nick ] ] msg $chan %c1 $+ %dm.player1 $+ %c1 Tries to attack but he still can't hold his weapon because of the heat $+ %c1 $+ ; $+ %c2 %dm.player2 $+ %c1 gets the turn. notice $nick %c1 $+ Please wait $+ %c3 %toohot. [ $+ [ $nick ] ] $+ %c1 more turn $+ $iif(%toohot. [ $+ [ $nick ] ] != 1,s) $+ . set %dm.player1 %dm.player2 set %dm.player2 $nick halt } if (!%dmweapon. [ $+ [ $nick ] ] || piece isin %dmweapon. [ $+ [ $nick ] ]) { set %dm.hit $rand(0,5) if (%strengthpotuse. [ $+ [ $nick ] ] > 0) { dec %strengthpotuse. [ $+ [ $nick ] ] set %dm.hit $gettok($calc(%dm.hit * 1.1),1,46) timer 1 1 notice $nick %c1 $+ Your $+ %c3 strength potion $+ %c1 will be active for $+ %c5 %strengthpotuse. [ $+ [ $nick ] ] $+ %c1 more rounds. } set %dmweapused his fist. health.check } 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) if (%strengthpotuse. [ $+ [ $nick ] ] > 0) { dec %strengthpotuse. [ $+ [ $nick ] ] set %dm.hit $gettok($calc(%dm.hit * 1.1),1,46) timer 1 1 notice $nick %c1 $+ Your $+ %c3 strength potion $+ %c1 will be active for $+ %c5 %strengthpotuse. [ $+ [ $nick ] ] $+ %c1 more rounds. } 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 60 turngone } elseif ($nick == %dm.player2) { notice $nick %c1 $+ Its not your turn! } else { notice $nick %c1 $+ You are not fighting in this DM. } } else { notice $nick %c1 $+ There is no DM running! Type $+ %c6 !DM $+ %c1 to start one. } } ;################### ATTACK - SPECIALS (MELEE ONLY) #################### on $*:text:/^[!@`.](spe(c(ial)?(s)?)?)/Si:#DM: { if (%dm.status == ON) { if ($nick == %dm.player1) { if (%dmclass. [ $+ [ $nick ] ] != melee) { notice $nick %c1 $+ As a $+ %c5 %dmclass. [ $+ [ $nick ] ] $+ %c1 $+ , you can't use this command. Use %c3 $+ !shoot $+ %c1 $+ , $+ %c3 !cast $+ %c1 or %c3 $+ !use $+ %c1 instead. halt } if (!$2) { notice $nick %c1 $+ Please choose the kind of special attack you want. Type $+ %c4 !DMcommands specials $+ %c1 to see a list of available special attacks. halt } if (%specuse. [ $+ [ $nick ] ] <= 0) { notice $nick %c1 $+ You can't use any more special attacks until you drink a $+ %c4 Special attack potion $+ %c1 $+ . halt } timerturnswitch off timerstopdm off if (%dmfreeze. [ $+ [ $nick ] ] > 0 ) { msg $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 turn $+ $iif(%dmfreeze. [ $+ [ $nick ] ] != 1,s) $+ . set %dm.player1 %dm.player2 set %dm.player2 $nick dec %dmfreeze. [ $+ [ $nick ] ] halt } if (%toohot. [ $+ [ $nick ] ] > 0 ) { dec %toohot. [ $+ [ $nick ] ] msg $chan %c1 $+ %dm.player1 $+ %c1 Tries to attack but he still can't hold his weapon because of the heat $+ %c1 $+ ; $+ %c2 %dm.player2 $+ %c1 gets the turn. notice $nick %c1 $+ Please wait $+ %c3 %toohot. [ $+ [ $nick ] ] $+ %c1 more turn $+ $iif(%toohot. [ $+ [ $nick ] ] != 1,s) $+ . set %dm.player1 %dm.player2 set %dm.player2 $nick halt } if (!%dmweapon. [ $+ [ $nick ] ] || piece isin %dmweapon. [ $+ [ $nick ] ]) { notice $nick %c1 $+ You need to have a weapon equipped if you want to use a $+ %c3 special attack $+ %c1 $+ . halt } 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) if (%strengthpotuse. [ $+ [ $nick ] ] > 0) { dec %strengthpotuse. [ $+ [ $nick ] ] set %dm.hit $gettok($calc(%dm.hit * 1.1),1,46) timer 1 1 notice $nick %c1 $+ Your $+ %c3 strength potion $+ %c1 will be active for $+ %c5 %strengthpotuse. [ $+ [ $nick ] ] $+ %c1 more rounds. } 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 ] ] } set %dmweapused a $+ %c5 %dmweapon. [ $+ [ %dm.player1 ] ] $+ %c1 $+ . :checkspec if (*ice* iswm $2-) { if ($r(1,100) <= 35) { timer -m 1 500 msg $chan %c2 $+ %dm.player2 $+ 's $+ %c1 weapon broke because of the cold! timer 1 1 notice %dm.player2 %c1 $+ Your weapon has been un-equipped automaticly. unset %dmweapon. [ $+ [ %dm.player2 ] ] } set %dmweapused the $+ %c4 special attack $+ %c6 "Sword of Ice" $+ %c1 with a $+ %c5 %dmweapon. [ $+ [ %dm.player1 ] ] $+ %c1 $+ . } elseif (*fire* iswm $2-) { set %dmweapused the $+ %c4 special attack $+ %c6 "Sword of Fire" $+ %c1 with a $+ %c5 %dmweapon. [ $+ [ %dm.player1 ] ] $+ %c1 $+ . timer 1 1 msg $chan %c2 $+ %dm.player2 $+ 's $+ %c1 weapon is glowing from the heat! Not a chance he can hold it now. set %toohot. [ $+ [ %dm.player2 ] ] 2 } elseif (*diam* iswm $2-) { set %dmweapused the $+ %c4 special attack $+ %c6 "Diamond Sword" $+ %c1 with a $+ %c5 %dmweapon. [ $+ [ %dm.player1 ] ] $+ %c1 $+ . set %dm.max $gettok($calc(%dm.max * 1.3),1,46) set %dm.hit $rand(0, %dm.max) if ($r(1,100) <= 10) { set %moneymore $r(100,10000) inc %dmmoney. [ $+ [ $nick ] ] %moneymore timer 1 1 notice %dm.player1 %c3 $+ Congratz! $+ %c1 You found some diamonds, which are worth $+ %c5 %moneymore $+ %c1 coins. } else { timer 1 1 notice %dm.player1 %c3 $+ You didn't get any diamonds. } } elseif (*ramp* iswm $2-) { set %dmweapused the $+ %c4 special attack $+ %c6 "Rampage Sword" $+ %c1 with a $+ %c5 %dmweapon. [ $+ [ %dm.player1 ] ] $+ %c1 $+ . set %dm.max $calc(%dm.max * 2) set %dm.hit $rand(0, %dm.max) if ($r(1,100) <= 10) { timer 1 1 notice $nick %c1 $+ Your $+ %c5 %dmweapon. [ $+ [ $nick ] ] %c1 $+ broke. unset %dmweapon. [ $+ [ $nick ] ] } } elseif (*clon* iswm $2-) { set %dmweapused the $+ %c4 special attack $+ %c6 "Clone Sword" $+ %c1 with a $+ %c5 %dmweapon. [ $+ [ %dm.player1 ] ] $+ %c1 $+ . set %cloneamount $r(1,7) var %counter = %cloneamount set %dm.max $gettok($calc(%dm.max / 2),1,46) while (%counter > 0) { set %dm.hit [ $+ [ %counter ] ] $r(0,%dm.max) dec %counter } set %dm.totalhit $calc(%dm.hit1 + %dm.hit2 + %dm.hit3 + %dm.hit4 + %dm.hit5 + %dm.hit6 + %dm.hit7) } elseif (*life* iswm $2- || *live* iswm $2-) { set %healthmore $gettok($calc(%dm.hit * 0.8),1,46) inc %dmhealth. [ $+ [ %dm.player1 ] ] %healthmore if (%dmhealth. [ $+ [ %dm.player1 ] ] > %dmstarthealth. [ $+ [ %dm.player1 ] ]) { set %healthmore $calc(%dmstarthealth. [ $+ [ %dm.player1 ] ] - (%dmhealth. [ $+ [ %dm.player1 ] ] - %dm.heal)) set %dmhealth. [ $+ [ %dm.player1 ] ] %dmstarthealth. [ $+ [ %dm.player1 ] ] } timer -m 1 500 msg $chan %c2 $+ %dm.player1 $+ %c1 used the $+ %c4 special attack $+ %c6 "Sword of Life" $+ %c1 $+ , which heals him with $+ %c4 80% $+ %c1 of his hit, being $+ %c5 %healthmore $+ %c1 hitpoints. He now has $+ %c4 %dmhealth. [ $+ [ %dm.player1 ] ] $+ %c1 hitpoints. } else { notice $nick %c1 $+ Please choose a valid $+ %c5 special attack $+ %c1 $+ . halt } } health.check set %dm.player1 %dm.player2 set %dm.player2 $nick dec %specuse. [ $+ [ $nick ] ] notice $nick %c1 $+ Unless you drink a $+ %c5 Special attack potion $+ %c1 $+ , you can use $+ %c4 %specuse. [ $+ [ $nick ] ] $+ %c2 more special attack $+ $iif(%specuse. [ $+ [ $nick ] ] != 1, s) $+ %c1 this $+ %c5 DeathMatch. timerturnswitch 1 60 turngone } elseif ($nick == %dm.player2) { notice $nick %c1 $+ Its not your turn! } else { notice $nick %c1 $+ You are not fighting in this DM. } } else { notice $nick %c1 $+ There is no DM running! Type $+ %c6 !DM $+ %c1 to start one. } } ;######################## ATTACK - RANGE ################################ on $*:text:/^[@`.?!](s(h)?((o)?o)?t)/Si:#DM: { if (%dm.status == ON) { if ($nick == %dm.player1) { if (%dmclass. [ $+ [ $nick ] ] != range) { notice $nick %c1 $+ As a $+ %c5 %dmclass. [ $+ [ $nick ] ] $+ %c1 $+ , you can't use this command. Use %c3 $+ !cast $+ %c1 $+ , $+ %c3 !attack $+ %c1 , $+ %c3 !special $+ %c1 or %c3 $+ !use $+ %c1 instead. halt } timerturnswitch off timerstopdm off if (%dmfreeze. [ $+ [ $nick ] ] > 0 ) { msg $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 turn $+ $iif(%dmfreeze. [ $+ [ $nick ] ] != 1,s) $+ . set %dm.player1 %dm.player2 set %dm.player2 $nick dec %dmfreeze. [ $+ [ $nick ] ] halt } if (%toohot. [ $+ [ $nick ] ] > 0 ) { dec %toohot. [ $+ [ $nick ] ] msg $chan %c1 $+ %dm.player1 $+ %c1 Tries to attack but he still can't hold his weapon because of the heat $+ %c1 $+ ; $+ %c2 %dm.player2 $+ %c1 gets the turn. notice $nick %c1 $+ Please wait $+ %c3 %toohot. [ $+ [ $nick ] ] $+ %c1 more turn $+ $iif(%toohot. [ $+ [ $nick ] ] != 1,s) $+ . set %dm.player1 %dm.player2 set %dm.player2 $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. } if (%rangepotuse. [ $+ [ $nick ] ] > 0) { dec %rangepotuse. [ $+ [ $nick ] ] set %dm.hit $gettok($calc(%dm.hit * 1.1),1,46) timer 1 1 notice $nick %c1 $+ Your $+ %c3 range potion $+ %c1 will be active for $+ %c5 %rangepotuse. [ $+ [ $nick ] ] $+ %c1 more rounds. } health.check set %dm.player1 %dm.player2 set %dm.player2 $nick halt } 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 , $+ %c3 !special $+ %c1 or %c3 $+ !use $+ %c1 instead. halt } dec %dmarrow.amount. [ $+ [ $nick ] ] 1 set %dm.max $gettok($read(dmshopitems.txt, w, * $+ $replace(%dmarrow. [ $+ [ %dm.player1 ] ],$chr(32),_) $+ *),5,64) set %dm.hit $rand(0, %dm.max) set %arrows.shot $gettok($read(dmshopitems.txt, w, * $+ $replace(%dmweapon. [ $+ [ %dm.player1 ] ],$chr(32),_) $+ *),4,64) if (%rangepotuse. [ $+ [ $nick ] ] > 0 && %arrows.shot == 1) { dec %rangepotuse. [ $+ [ $nick ] ] set %dm.hit $gettok($calc(%dm.hit * 1.1),1,46) timer 1 1 notice $nick %c1 $+ Your $+ %c3 range potion $+ %c1 will be active for $+ %c5 %rangepotuse. [ $+ [ $nick ] ] $+ %c1 more rounds. } 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 } set %dmweapused a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 with $+ %c5 $gettok(%dmarrow. [ $+ [ $nick ] ],1,64) $+ s $+ %c1 $+ . 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. } if (%arrows.shot == 3) { if (%dmarrow.amount. [ $+ [ $nick ] ] >= 2) { set %dm.hit $calc(%dm.hit * 0.9) set %dm.hit2 $rand(0, %dm.max) set %dm.hit3 $rand(0, %dm.max) set %dm.totalhit $calc(%dm.hit + %dm.hit2 + %dm.hit3) if (%rangepotuse. [ $+ [ $nick ] ] > 0) { dec %rangepotuse. [ $+ [ $nick ] ] set %dm.totalhit $gettok($calc(%dm.totalhit * 1.1),1,46) timer 1 1 notice $nick %c1 $+ Your $+ %c3 range potion $+ %c1 will be active for $+ %c5 %rangepotuse. [ $+ [ $nick ] ] $+ %c1 more rounds. } dec %dmarrow.amount. [ $+ [ $nick ] ] 2 } else { notice $nick %c1 $+ You only have $+ %c3 $calc(%dmarrow.amount. [ $+ [ $nick ] ] + 1) $+ %c1 arrows left, while you need at least $+ %c3 3 $+ %c1 arrows. halt } } if (%dmarrow.amount. [ $+ [ $nick ] ] <= 0) { unset %dmarrow. [ $+ [ $nick ] ] } } health.check set %dm.player1 %dm.player2 set %dm.player2 $nick timerturnswitch 1 60 turngone } elseif ($nick == %dm.player2) { notice $nick %c1 $+ Its not your turn! } else { notice $nick %c1 $+ You are not fighting in this DM. } } else { notice $nick %c1 $+ There is no DM running! Type $+ %c6 !DM $+ %c1 to start one. } } ;######################## ATTACK - MAGE ################################# on $*:text:/^[?!@`.](cast|spell)/Si:#DM: { if (%dm.status == ON) { if ($nick == %dm.player1) { if (%dmclass. [ $+ [ $nick ] ] != mage) { notice $nick %c1 $+ As a $+ %c5 %dmclass. [ $+ [ $nick ] ] $+ %c1 $+ , you can't use this command. Use %c3 $+ !shoot $+ %c1 $+ , $+ %c3 !attack, $+ %c3 !special $+ %c1 $+ %c1 or %c3 $+ !use $+ %c1 instead. halt } timerturnswitch off timerstopdm off if (%dmfreeze. [ $+ [ $nick ] ] > 0 ) { msg $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 turn $+ $iif(%dmfreeze. [ $+ [ $nick ] ] != 1,s) $+ . set %dm.player1 %dm.player2 set %dm.player2 $nick dec %dmfreeze. [ $+ [ $nick ] ] halt } if (%toohot. [ $+ [ $nick ] ] > 0 ) { dec %toohot. [ $+ [ $nick ] ] msg $chan %c1 $+ %dm.player1 $+ %c1 Tries to attack but he still can't hold his weapon because of the heat $+ %c1 $+ ; $+ %c2 %dm.player2 $+ %c1 gets the turn. notice $nick %c1 $+ Please wait $+ %c3 %toohot. [ $+ [ $nick ] ] $+ %c1 more turn $+ $iif(%toohot. [ $+ [ $nick ] ] != 1,s) $+ . set %dm.player1 %dm.player2 set %dm.player2 $nick halt } if ($2) { 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 ($readini(dminv.ini,$nick,%dmspell2) <= 0 || !$readini(dminv.ini,$nick,%dmspell2)) { notice $nick %c1 $+ You don't have any $+ %c3 %dmspell $+ s $+ %c1 $+ . halt } } if ((!%dmweapon. [ $+ [ $nick ] ] || piece isin %dmweapon. [ $+ [ $nick ] ] && !$2) || !$2) { set %dm.hit $calc($rand(0,10) + $iif(rand(1,5) == 2, $rand(0,10), 0)) if (%magepotuse. [ $+ [ $nick ] ] > 0) { dec %magepotuse. [ $+ [ $nick ] ] set %dm.hit $gettok($calc(%dm.hit * 1.1),1,46) timer 1 1 notice $nick %c1 $+ Your $+ %c3 mage potion $+ %c1 will be active for $+ %c5 %magepotuse. [ $+ [ $nick ] ] $+ %c1 more rounds. } set %dmweapused the basic spell. health.check } 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 ] ] && !$2) { notice $nick %c1 $+ You can't use this command with a $+ %c4 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ . Use %c3 $+ !shoot $+ %c1 $+ , $+ %c3 !attack, $+ %c3 !special $+ %c1 $+ %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 } elseif (%reqstaff == Two duel handed magic wands && %dmweapon. [ $+ [ $nick ] ] != Two duel handed magic wands) { notice $nick %c1 $+ You need $+ %c5 Two duel handed magic wands $+ %c1 equipped, $+ %c1 to use $+ %c6 %dmspell $+ s $+ %c1 $+ . halt } elseif ($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($calc(5 + $iif($r(1,2) == 2, (%dm.max * 0.1), 0)), %dm.max) if (%magepotuse. [ $+ [ $nick ] ] > 0) { dec %magepotuse. [ $+ [ $nick ] ] set %dm.hit $gettok($calc(%dm.hit * 1.1),1,46) timer 1 1 notice $nick %c1 $+ Your $+ %c3 mage potion $+ %c1 will be active for $+ %c5 %magepotuse. [ $+ [ $nick ] ] $+ %c1 more rounds. } 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  | timerfreeze -m 1 500 msg $chan %c2 $+ %dm.player2 $+ %c1 has been frozen, meaning he can't use $+ %c3 melee attacks $+ %c1 for $+ %c5 2 $+ %c1 turns. } set %diddecspell 1 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 :health.check health.check } elseif ($gettok(%dmspellname,3,64) == hspell) { set %dm.heal $gettok($calc(%dmstarthealth. [ $+ [ %dm.player1 ] ] / 100 * $gettok(%dmspellname,5,64)),1,46) inc %dmhealth. [ $+ [ %dm.player1 ] ] %dm.heal if (%dmhealth. [ $+ [ %dm.player1 ] ] > %dmstarthealth. [ $+ [ %dm.player1 ] ]) { set %dm.heal $calc(%dmstarthealth. [ $+ [ %dm.player1 ] ] - (%dmhealth. [ $+ [ %dm.player1 ] ] - %dm.heal)) set %dmhealth. [ $+ [ %dm.player1 ] ] %dmstarthealth. [ $+ [ %dm.player1 ] ] } msg $chan %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 $chan %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. } if (%dmspell2 && !%diddecspell) { 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 } unset %diddecspell } set %dm.player1 %dm.player2 set %dm.player2 $nick timerturnswitch 1 60 turngone } elseif ($nick == %dm.player2) { notice $nick %c1 $+ Its not your turn! } else { notice $nick %c1 $+ You are not fighting in this DM. } } else { notice $nick %c1 $+ There is no DM running! Type $+ %c6 !DM $+ %c1 to start one. } } ;############################ POTIONS & FOOD ############################ on $*:text:/^[!`@.?](eat|pot(ion)?|potions|use|drink)/Si:#DM: { if (cast isin $1-) { halt } if (%dm.status == ON) { if ($nick == %dm.player1) { if (%dmfreeze. [ $+ [ $nick ] ] > 0 || %toohot. [ $+ [ $nick ] ] > 0) { timer 1 1 notice $nick %c1 $+ You can't attack for $+ %c3 $iif(%dmfreeze. [ $+ [ $nick ] ], %dmfreeze. [ $+ [ $nick ] ], %toohot. [ $+ [ $nick ] ]) $+ %c1 more turn $+ $iif(%toohot. [ $+ [ $nick ] ] != 1 && %dmfreeze. [ $+ [ $nick ] ] != 1,s) $+ . dec %dmfreeze. [ $+ [ $nick ] ] dec %toohot. [ $+ [ $nick ] ] } set %dmpotname $read(dmshopitems.txt, w, $replace($2-,$chr(32),_) $+ *) set %dmpot2 $gettok(%dmpotname,1,64) set %dmpot $replace(%dmpot2,_,$chr(32)) if (!%dmpotname) { notice $nick %c1 $+ There's no such potion as $+ %c3 " $+ $2- $+ " $+ %c1 $+ . halt } if ($readini(dminv.ini,$nick,%dmpot2) <= 0 || !$readini(dminv.ini,$nick,%dmpot2)) { notice $nick %c1 $+ You don't have any $+ %c3 %dmpot $+ s $+ %c1 $+ . halt } timerturnswitch off timerstopdm off if (!%dmpot) { notice $nick %c1 $+ There's no such potion as %c4 $+ " $+ $2- $+ " $+ %c1 $+ . halt } if ($gettok(%dmpotname,3,64) == apot && %dmpoisoned. [ $+ [ $nick ] ] == 40) .goto skippoison dm.poison :skippoison if ($gettok(%dmpotname,3,64) == hpot) { set %dm.heal $gettok(%dmpotname,4,64) inc %dmhealth. [ $+ [ %dm.player1 ] ] %dm.heal if (%dmhealth. [ $+ [ %dm.player1 ] ] > %dmstarthealth. [ $+ [ %dm.player1 ] ]) { set %dm.heal $calc(%dmstarthealth. [ $+ [ %dm.player1 ] ] - (%dmhealth. [ $+ [ %dm.player1 ] ] - %dm.heal)) set %dmhealth. [ $+ [ %dm.player1 ] ] %dmstarthealth. [ $+ [ %dm.player1 ] ] } msg $chan %c2 $+ %dm.player1 $+ %c1 drinks a $+ %c5 %dmpot $+ %c1 healing him with $+ %c4 %dm.heal $+ %c1 hitpoints. He now has $+ %c4 %dmhealth. [ $+ [ %dm.player1 ] ] $+ %c1 hitpoints. if (uber isin %dmpot) { if (%uberpotused. [ $+ [ $nick ] ] >= 3) { notice $nick %c1 $+ You can't drink a $+ %c5 %dmpot $+ %c1 another time this fight. } set %cantbehit. [ $+ [ %dm.player1 ] ] 1 if (!%uberpotused. [ $+ [ $nick ] ]) .set %uberpotused. [ $+ [ $nick ] ] 0 inc %uberpotused. [ $+ [ $nick ] ] notice $nick %c1 $+ You can drink a $+ %c5 %dmpot $+ %c6 $calc(3 - %uberpotused. [ $+ [ $nick ] ] ) $+ %c1 more times this fight. } } if ($gettok(%dmpotname,3,64) == apot) { if (%dmpoisoned. [ $+ [ $nick ] ] != 40) { msg $chan %c2 $+ %dm.player1 $+ %c1 drinks an $+ %c5 %dmpot $+ %c1 releasing him from his poison. unset %dmpoisoned. [ $+ [ $nick ] ] } else { notice $nick %c1 $+ You can't cure poison from $+ %c4 Cursed arrows $+ %c1 $+ . halt } } if ($gettok(%dmpotname,3,64) == ppot) { if (%specuse. [ $+ [ $nick ] ]) { notice $nick %c1 $+ There's no need to drink a $+ %c5 %dmpot $+ %c1 if you're still able to use Special attacks. halt } set %specuse. [ $+ [ $nick ] ] 2 msg $chan %c2 $+ %dm.player1 $+ %c1 drinks a $+ %c5 %dmpot $+ %c1 allowing him to use $+ %c4 2 more $+ %c1 Special attacks. } if ($gettok(%dmpotname,3,64) == mpot) { if (%magepotuse. [ $+ [ $nick ] ] > 0) { notice $nick %c1 $+ There's no need to drink a $+ %c5 %dmpot $+ %c1 if your last $+ %c5 %dmpot $+ %c1 is still active. halt } set %magepotuse. [ $+ [ $nick ] ] 5 msg $chan %c2 $+ %dm.player1 $+ %c1 drinks a $+ %c5 %dmpot $+ %c1 increasing his $+ %c3 mage max hit $+ %c1 with $+ %c4 10% $+ %c1 $+ . } if ($gettok(%dmpotname,3,64) == spot) { if (%strengthpotuse. [ $+ [ $nick ] ] > 0) { notice $nick %c1 $+ There's no need to drink a $+ %c5 %dmpot $+ %c1 if your last $+ %c5 %dmpot $+ %c1 is still active. halt } set %strengthpotuse. [ $+ [ $nick ] ] 5 msg $chan %c2 $+ %dm.player1 $+ %c1 drinks a $+ %c5 %dmpot $+ %c1 increasing his $+ %c3 melee max hit $+ %c1 with $+ %c4 10% $+ %c1 $+ . } if ($gettok(%dmpotname,3,64) == rpot) { if (%rangepotuse. [ $+ [ $nick ] ] > 0) { notice $nick %c1 $+ There's no need to drink a $+ %c5 %dmpot $+ %c1 if your last $+ %c5 %dmpot $+ %c1 is still active. halt } set %rangepotuse. [ $+ [ $nick ] ] 5 msg $chan %c2 $+ %dm.player1 $+ %c1 drinks a $+ %c5 %dmpot $+ %c1 increasing his $+ %c3 ranged max hit $+ %c1 with $+ %c4 10% $+ %c1 $+ . } if ($gettok(%dmpotname,3,64) == dpot) { if (%defpotuse. [ $+ [ $nick ] ] > 0) { notice $nick %c1 $+ There's no need to drink a $+ %c5 %dmpot $+ %c1 if your last $+ %c5 %dmpot $+ %c1 is still active. halt } set %defpotuse. [ $+ [ $nick ] ] 5 msg $chan %c2 $+ %dm.player1 $+ %c1 drinks a $+ %c5 %dmpot $+ %c1 increasing his $+ %c3 defence $+ %c1 with $+ %c4 10% $+ %c1 $+ . } writeini dminv.ini $nick %dmpot2 $calc($readini(dminv.ini,$nick,%dmpot2) - 1) timer 1 1 notice %dm.player1 %c1 $+ You have $+ %c3 $readini(dminv.ini,$nick,%dmpot2) $+ %c4 %dmpot $+ s $+ %c1 left. if ($readini(dminv.ini,$nick,%dmpot2) <= 0) .remini dminv.ini $nick %dmpot2 set %dm.player1 %dm.player2 set %dm.player2 $nick timerturnswitch 1 60 turngone } elseif ($nick == %dm.player2) { notice $nick %c1 $+ Its not your turn! } else { notice $nick %c1 $+ You are not fighting in this DM. } } else { notice $nick %c1 $+ There is no DM running! Type $+ %c6 !DM $+ %c1 to start one. } } ;######################## XP & LVL CHECK ################################ on $*:text:/^[!@`.](((e)?x)?p(oint)?(s)?|l(e)?v(e)?l)/Si:#DM, #DM-shop, #DM-bank, #DM-tournaments: { 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 (%dmid. [ $+ [ $nick ] ] == 1) { var %dmxpchecknick = $nick if (($2 && $2 !isnum && !$3) || ($3 && $2 !isnum)) { var %dmxpchecknick = $2 } if (!%dm.xp. [ $+ [ %dmxpchecknick ] ]) .set %dm.xp. [ $+ [ %dmxpchecknick ] ] 0 if (!%dmlvl. [ $+ [ %dmxpchecknick ] ]) .set %dmlvl. [ $+ [ %dmxpchecknick ] ] 1 var %dmxpnow = %dm.xp. [ $+ [ %dmxpchecknick ] ] if ($3 isnum || ($2 isnum && !3)) { goto checkthis } if (%dmlvl. [ $+ [ %dmxpchecknick ] ] == 1 ) { set %dm.lvl.req. [ $+ [ %dmxpchecknick ] ] 100 } else { set %dm.lvl.req. [ $+ [ %dmxpchecknick ] ] $calc(%dmlvl. [ $+ [ %dmxpchecknick ] ] ^ 3 * 0.6 + %dmlvl. [ $+ [ %dmxpchecknick ] ] * 100)) } var %dmxpneed = %dm.lvl.req. [ $+ [ %dmxpchecknick ] ] set %xpleft. [ $+ [ %dmxpchecknick ] ] $calc(%dmxpneed - %dmxpnow) notice $nick %c3 $+ %dmxpchecknick $+ %c1 currently is level $+ %c5 %dmlvl. [ $+ [ %dmxpchecknick ] ] $+ %c1 $+ , and has $+ %c4 $gettok(%dm.xp. [ $+ [ %dmxpchecknick ] ],1,46) $+ %c1 expoints. For level $+ %c6 $calc(%dmlvl. [ $+ [ %dmxpchecknick ] ] + 1) $+ %c1 he needs a total of $+ %c5 $gettok(%dm.lvl.req. [ $+ [ %dmxpchecknick ] ],1,46) %c1 $+ expoints, which means he needs $+ %c2 $gettok(%xpleft. [ $+ [ %dmxpchecknick ] ],1,46) %c1 $+ expoints more. halt :checkthis if ($3 isnum) .set %asklvl $3 if ($2 isnum) .set %asklvl $2 goto checklvl if ((!$3 && $2 !isnum) || ($3 && $3 !isnum)) { notice $nick %c1 $+ You need to specify a lvl. halt } :checklvl if (%dmlvl. [ $+ [ %dmxpchecknick ] ] > %asklvl) { notice $nick %c2 $+ %dmxpchecknick $+ %c1 already is higher than lvl $+ %c3 %asklvl $+ %c1 $+ . halt } else { var %asklvl2 = $calc(%asklvl - 1) var %asklvlxp = $calc(%asklvl2 ^ 3 * 0.6 + %asklvl2 * 100) notice $nick %c1 $+ For lvl $+ %c4 %asklvl $+ %c1 $+ , $+ %c2 %dmxpchecknick $+ %c1 needs $+ %c6 $gettok($calc(%asklvlxp - %dmxpnow),1,46) %c1 $+ more expoints. He now has $+ %c6 $gettok(%dmxpnow,1,46) %c1 $+ expoints and is level $+ %c4 %dmlvl. [ $+ [ %dmxpchecknick ] ] $+ %c1 $+ . halt } } else { notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ . } } ;######################################################################## ;########################### OTHER COMMANDS ############################# ;######################################################################## ;###################### GET/SET MONEY/WEAP/XP/LVL######################## on $*:text:/^[!`.@]((get|set))/Si:#DM, #DM-shop, #DM-bank, #DM-tournaments: { if (($nick == Supamagier || $nick == cnb6 || $address($nick,2) == $address($me,2)) || $nick isop $chan) { if (get isin $1-) { if (!$2 || # isin $2) { notice $nick %c1 $+ Please specify a valid nickname. halt } if (mon isin $1 || cash isin $1) { if (!%dmmoney. [ $+ [ $2 ] ]) .set %dmmoney. [ $+ [ $2 ] ] 0 notice $nick %c2 $+ $2 $+ %c1 has $+ %c3 %dmmoney. [ $+ [ $2 ] ] $+ %c1 coins. } elseif (l*v*l iswm $1) { if (!%dmlvl. [ $+ [ $2 ] ]) .set %dmlvl. [ $+ [ $2 ] ] 1 notice $nick %c2 $+ $2 $+ %c1 currently is level $+ %c3 %dmlvl. [ $+ [ $2 ] ] $+ %c1 $+ . } elseif (*xp* iswm $1) { if (!%dmxp. [ $+ [ $2 ] ]) .set %dmxp. [ $+ [ $2 ] ] 0 notice $nick %c2 $+ $2 $+ %c1 currently has $+ %c3 %dmxp. [ $+ [ $2 ] ] $+ %c1 expoints. } elseif (*weap* iswm $1) { if (!%dmweapon. [ $+ [ $2 ] ]) .set %dmweapon. [ $+ [ $2 ] ] "Piece of Air" notice $nick %c2 $+ $2 $+ %c1 currently has a $+ %c3 %dmweapon. [ $+ [ $2 ] ] $+ %c1 equipped. } } if (set isin $1-) { if (!$2 || # isin $2) { notice $nick %c1 $+ Please specify a valid nickname. halt } if ($3 isnum) { if (mon isin $1 || cash isin $1) { set %dmmoney. [ $+ [ $2 ] ] $3 notice $nick %c2 $+ $2 $+ `s %c1 $+ money set to $+ %c3 $3 $+ %c1 $+ . } elseif (lev isin $1) { set %dmlvl. [ $+ [ $2 ] ] $3 notice $nick %c2 $+ $2 $+ `s %c1 $+ level set to $+ %c3 $3 $+ %c1 $+ . } elseif (*xp* iswm $1) { set %dmxp. [ $+ [ $2 ] ] $3 notice $nick %c2 $+ $2 $+ `s %c1 $+ expoints set to $+ %c3 $3 $+ %c1 $+ . } } elseif (weap !isin $1) { notice $nick %c1 $+ Please specify a valid nickname and amount. } if (*weap* iswm $1) { if (!$2 || !$3) { notice %nick %c1 $+ Please specify a nickname and weapon. halt } set %posweap $read(dmshopitems.txt, w, $3- $+ *) set %classthingy $gettok(%posweap,3,64) if ((%classthingy != melee && %classthingy != mage && %classthingy != range) || !%classthingy) { notice $nick %c1 $+ Please specify a valid weapon. halt } set %dmweapon. [ $+ [ $2 ] ] $gettok(%posweap,1,64) notice $nick %c2 $+ $2 $+ `s %c1 $+ weapon set to $+ %c3 $gettok(%posweap,1,64) $+ %c1 $+ . } } } else { notice $nick %c1 $+ You are not authorized to use this command. } } ;############################## GET RANKS ############################### on $*:text:/^[!@`.](rank(ed)?)/Si:#DM, #DM-tournaments, #DM-bank, #DM-shop: { 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 (%dmid. [ $+ [ $nick ] ] == 1) { set %lookupplayer $2 if (!$2) .set %lookupplayer $nick if (!$read(dmwins.txt, w, %lookupplayer $+ *)) { notice $nick %c1 $+ You have no wins, which means no rank. halt } notice $nick %c6 $+ Rank wins: %c1 $+ With $+ %c3 %dmwins. [ $+ [ %lookupplayer ] ] $+ %c1 wins, $+ %c2 %lookupplayer $+ %c1 is ranked $+ %c4 $readn $+ $iif($readn == 1, st, $iif($readn == 2, nd, $iif($readn == 3, rd, th))) $+ %c1 out of $+ %c2 $lines(dmwins.txt) $+ %c1 people. if (!$read(dmloses.txt, w, %lookupplayer $+ *)) { notice $nick %c1 $+ You have no loses, which means no rank. halt } notice $nick %c6 $+ Rank loses: %c1 $+ With $+ %c3 %dmloses. [ $+ [ %lookupplayer ] ] $+ %c1 loses, $+ %c2 %lookupplayer $+ %c1 is ranked $+ %c4 $readn $+ $iif($readn == 1, st, $iif($readn == 2, nd, $iif($readn == 3, rd, th))) $+ %c1 out of $+ %c2 $lines(dmloses.txt) $+ %c1 people. } else { notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ . } } ;############################### GIVE CASH ############################## on $*:text:/^[!`@.](give(cash|mon(ey)?)?|hand(over)?)/Si:#DM, #DM-tournaments, #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 (%dmid. [ $+ [ $nick ] ] == 1) { if (!%dmmoney. [ $+ [ $nick ] ] || %dmmoney. [ $+ [ $nick ] ] <= 0) { notice $nick %c1 $+ You don't have any money to give. halt } var %giveamount = $3 if (!$3) { notice $nick %c1 $+ Please use $+ %c4 !givecash halt } if ($nick == $2) { notice $nick %c1 $+ You can't give money to yourself. halt } if (%giveamount > %dmmoney. [ $+ [ $nick ] ]) { notice $nick %c1 $+ You can't give away $+ %c3 %giveamount $+ %c1 coins, if you have only $+ %c4 %dmmoney. [ $+ [ $nick ] ] $+ %c1 coins. halt } if ($2 ison $chan) { dec %dmmoney. [ $+ [ $nick ] ] %giveamount inc %dmmoney. [ $+ [ $2 ] ] %giveamount notice $2 %c2 $+ $nick $+ %c1 has given you $+ %c3 %giveamount $+ %c1 coins. msg $chan %c2 $+ $nick $+ %c1 hands over $+ %c3 %giveamount $+ %c1 coins to $+ %c2 $2 $+ %c1 $+ . } else { notice $nick %c2 $+ $2 $+ %c1 isn't on $+ %c5 $chan $+ %c1 $+ . } } else { notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ . } } ;######################################################################## ;#####################---ALIASES --- ALIASES ---######################### ;######################################################################## ;####################### DEATHMATCH HIGHSCORES ######################### alias dmhighscores { if (win isin $2-) { if (%nowinview. [ $+ [ $1 ] ]) { notice $1 %c1 $+ Please wait $+ %c4 $timer(wins $+ $1).secs $+ %c1 seconds before using this command again. halt } set %nowinview. [ $+ [ $1 ] ] 1 timerwins [ $+ [ $1 ] ] 1 180 unset %nowinview. [ $+ [ $1 ] ] msg $1 %c3 $+ The top 10 winners: set %playline. [ $+ [ $1 ] ] 1 while (%playline. [ $+ [ $1 ] ] <= 10) { msg $1 $+(%c5,%playline. [ $+ [ $1 ] ],.) %c2 $+ $gettok($read(dmwins.txt, %playline. [ $+ [ $1 ] ]),1,32) $+ %c4 $gettok($read(dmwins.txt, %playline. [ $+ [ $1 ] ]),2,32) inc %playline. [ $+ [ $1 ] ] } } elseif (los isin $2-) { if (%noloseview. [ $+ [ $1 ] ]) { notice $1 %c1 $+ Please wait $+ %c4 $timer(loses $+ $1).secs $+ %c1 seconds before using this command again. halt } set %noloseview. [ $+ [ $1 ] ] 1 timerloses [ $+ [ $1 ] ] 1 180 unset %noloseview. [ $+ [ $1 ] ] msg $1 %c3 $+ The top 10 losers: set %playline2. [ $+ [ $1 ] ] 1 while (%playline2. [ $+ [ $1 ] ] <= 10) { msg $1 $+(%c5,%playline2. [ $+ [ $1 ] ],.) %c2 $+ $gettok($read(dmloses.txt, %playline2. [ $+ [ $1 ] ]),1,32) $+ %c4 $gettok($read(dmloses.txt, %playline2. [ $+ [ $1 ] ]),2,32) inc %playline2. [ $+ [ $1 ] ] } } else { notice $nick %c1 $+ Please choose if you want to see the $+ %c3 top 10 $+ %c4 wins $+ %c1 or $+ %c4 loses $+ %c1 $+ . } } ;################# NOT ACCEPTED WITHIN 30 SECONDS / INV PLAY ############ alias dmplayway { msg $replace($1-,=,: $+ %c2 $+ $chr(32),_,$chr(32)) set %playnick $pnick timer -m 1 500 inc %dmslots. [ $+ [ %playnick ] ] if (%dmplaymsg. [ $+ [ %playnick ] ]) { timer -m 1 6000 dmplayway2 %playnick timer -m 1 10000 dmcheckslots unset %dmplaymsg. [ $+ [ %playnick ] ] } } alias -l dmplayway2 { msg $1 %c1 $+ Currently, you have used $+ %c4 %dmslots. [ $+ [ $1 ] ] $+ %c1 / $+ %c4 10 $+ %c1 inventory slots. set %dminv. [ $+ [ $1 ] ] %dmslots. [ $+ [ $1 ] ] } alias -l dmcheckslots { set %dminv. [ $+ [ $1 ] ] %dmslots. [ $+ [ $1 ] ] } alias -l tooSlow { msg %dm.chan %c1 $+ Nobody accepted $+ %c2 %dm.player1 $+ 's $+ %c1 challenge within $+ %c4 30 $+ %c1 seconds. Challenge timed out. unset %dm.player* unset %dm.status* unset %dm.chan } alias play2file { write invnick.txt $replace($3-,=,$chr(32)) } ;######################### SET THE ITEMS YOU CAN USE #################### alias setDMShop { write -c dmshopitems.txt ; +++ NAME@PRICE +++ write dmshopitems.txt Small_health_potion@10@hpot@20 write dmshopitems.txt Normal_health_potion@30@hpot@50 write dmshopitems.txt Large_health_potion@70@hpot@80 write dmshopitems.txt Giant_health_potion@150@hpot@150 write dmshopitems.txt Incredible_fantastic_Uber_health_potion@1000@hpot@800 write dmshopitems.txt Anti_potion@100@apot write dmshopitems.txt Special_attack_potion@200@ppot write dmshopitems.txt Mage_potion@200@mpot write dmshopitems.txt Strength_potion@200@spot write dmshopitems.txt Ranged_potion@200@rpot write dmshopitems.txt Defence_potion@200@dpot ; +++ NAME@PRICE@CLASS@MAX HIT@STR REQ +++ write dmshopitems.txt Dagger@50@melee@10@1 write dmshopitems.txt Sword@100@melee@15@1 write dmshopitems.txt Battle_axe@200@melee@25@5 write dmshopitems.txt Home_made_sword@250@melee@50@10 write dmshopitems.txt Scimitar@2000@melee@50@15 write dmshopitems.txt Duel_handed_battle_axes@5000@melee@200@25 write dmshopitems.txt Godsword@25000@melee@550@40 ; +++ NAME@PRICE@CLASS@AMOUNNT ARROW write dmshopitems.txt Bow@50@range@1 write dmshopitems.txt Large_bow@500@range@1 write dmshopitems.txt Great_bow@3000@range@1 write dmshopitems.txt Ultimate_bow@15000@range@1 write dmshopitems.txt Triple_arrowed_bow@35000@range@3 ; +++ NAME@PRICE@CLASS@HIT INCREASE IN % +++ write dmshopitems.txt Newbie_magic_staff@100@mage@-20 write dmshopitems.txt Beginner_magic_staff@1000@mage@-10 write dmshopitems.txt Magic_staff@2000@mage@0 write dmshopitems.txt Advanced_magic_staff@7000@mage@10 write dmshopitems.txt Ultimate_magic_staff@15000@mage@20 write dmshopitems.txt Two_Duel_handed_magic_wands@35000@mage@50 ; +++ NAME@PRICE@SORT SPELL@STAFF REQ@MAX HIT/HEALTH RECOVER +++ write dmshopitems.txt Blizz@50@aspell@newbie_magic_staff@20 write dmshopitems.txt Blizztering_cold@75@aspell@newbie_magic_staff@25 write dmshopitems.txt Fire_fury@100@aspell@beginner_magic_staff@50 write dmshopitems.txt Blizztering_freeze@400@aspell@magic_staff@70@freeze write dmshopitems.txt Venquence_fury@500@aspell@magic_staff@100 write dmshopitems.txt Health_cast@2000@hspell@advanced_magic_staff@30 write dmshopitems.txt Life_cast@4500@hspell@ultimate_magic_staff@60 write dmshopitems.txt Teleport@5000@tspell@ultimate_magic_staff@ write dmshopitems.txt Avada_kadavra@10000@aspell@two_duel_handed_magic_wands@700 ; +++ NAME@PRICE@ARROW@BOW REQ@MAX HIT@POISON? +++ write dmshopitems.txt Weak_arrow@1@arrow@bow@10 write dmshopitems.txt Normal_arrow@2@arrow@bow@40 write dmshopitems.txt powerful_arrow@2@arrow@large_bow@75 write dmshopitems.txt powerful_arrow_(P)@5@arrow@great_bow@100@P write dmshopitems.txt Diamond_arrow@10@arrow@ultimate_bow@150 write dmshopitems.txt Diamond_arrow_(P+)@15@arrow@ultimate_bow@200@P+ write dmshopitems.txt Cursed_arrow@30@arrow@ultimate_bow@450@P++ } ;###################### SWITCH TURN / END FIGHT IF TOO SLOW ####################### alias -l turngone { dm.poison msg %dm.chan %c1 $+ Turn goes to $+ %c2 %dm.player2 $+ %c1 $+ ; $+ %c2 %dm.player1 $+ %c1 hasn't attacked or used a potion/spell within $+ %c3 1 minute $+ %c1 $+ . timerstopdm 1 60 turngone2 var %dm.player3 = %dm.player1 set %dm.player1 %dm.player2 set %dm.player2 %dm.player3 } alias -l turngone2 { msg %dm.chan %c2 $+ %dm.player1 $+ %c1 nor $+ %c2 %dm.player2 %c1 $+ has attacked or used a potion/spell within $+ %c3 2 minutes $+ %c1 $+ ; DeathMatch halted. enddm } ;##################### TAKES CARE OF HEALTH PLAYERS ########################### alias -l health.check { dm.poison if (%defpotuse. [ $+ [ %dm.player2 ] ] > 0) { dec %defpotuse. [ $+ [ %dm.player2 ] ] set %dm.hit $gettok($calc(%dm.hit * 0.9),1,46) set %dm.totalhit $gettok($calc(%dm.totalhit * 0.9),1,46) set %dm.totalhit $gettok(%dm.totalhit,1,46) set %dm.hit $gettok(%dm.hit,1,46) timer 1 1 notice %dm.player2 %c1 $+ Your $+ %c3 defence potion $+ %c1 will be active for $+ %c5 %defpotuse. [ $+ [ %dm.player2 ] ] $+ %c1 more rounds. } set %dm.totalhit $gettok(%dm.totalhit,1,46) set %dm.hit $gettok(%dm.hit,1,46) if (%cloneamount) { if (%dm.totalhit > %dmhealth. [ $+ [ %dm.player2 ] ]) { set %dm.totalhit %dmhealth. [ $+ [ %dm.player2 ] ] } dec %dmhealth. [ $+ [ %dm.player2 ] ] %dm.totalhit msg %dm.chan %c2 $+ %dm.player1 $+ %c1 has hit, with $+ %c6 %cloneamount $+ %c1 sword $+ $iif(%cloneamount > 1,s $+), a total of $+ %c3 $gettok(%dm.totalhit,1,46) $+ %c1 on $+ %c2 %dm.player2 $+ %c1 using %dmweapused msg %dm.chan %c2 $+ %dm.player2 $+ %c1 has $+ %c4 %dmhealth. [ $+ [ %dm.player2 ] ] $+ %c1 hitpoints left! unset %cloneamount unset %dm.hit* unset %dm.totalhit return } if (%arrows.shot == 3) { unset %arrows.shot if (%dm.totalhit > %dmhealth. [ $+ [ %dm.player2 ] ]) { set %dm.totalhit %dmhealth. [ $+ [ %dm.player1 ] ] } dec %dmhealth. [ $+ [ %dm.player2 ] ] %dm.totalhit msg %dm.chan %c2 $+ %dm.player1 $+ %c1 has hit, with $+ %c6 3 $+ %c1 arrows, a total of $+ %c3 $gettok(%dm.totalhit,1,46) $+ %c1 on $+ %c2 %dm.player2 $+ %c1 using %dmweapused } else { if (%dm.hit > %dmhealth. [ $+ [ %dm.player2 ] ]) { set %dm.hit %dmhealth. [ $+ [ %dm.player2 ] ] } msg %dm.chan %c2 $+ %dm.player1 $+ %c1 has hit $+ %c3 %dm.hit $+ %c1 on $+ %c2 %dm.player2 $+ %c1 using %dmweapused dec %dmhealth. [ $+ [ %dm.player2 ] ] %dm.hit } if (!%dm.totalhit) .set %dm.totalhit %dm.hit if (%cantbehit. [ $+ [ %dm.player2 ] ]) { set %dm.hit %dm.totalhit inc %dmhealth. [ $+ [ %dm.player2 ] ] %dm.hit unset %cantbehit. [ $+ [ %dm.player2 ] ] msg %dm.chan %c2 $+ %dm.player2 $+ s $+ %c3 Incredible fantastic Uber health potion $+ %c1 heals him with $+ %c4 %dm.hit $+ %c1 hitpoints inmediatly. } if (%addpoison) { msg %dm.chan %c2 $+ %dm.player2 $+ %c1 is poisoned with $+ %c6 %dm.poisondmg $+ %c1 poison damage each turn! set %dmpoisoned. [ $+ [ %dm.player2 ] ] %dm.poisondmg unset %addpoison } if (%dmhealth. [ $+ [ %dm.player2 ] ] <= 0) { msg %dm.chan %c2 $+ %dm.player2 $+ %c1 has been defeated! $+ %c2 %dm.player1 $+ %c1 gets $+ %c3 $calc(%dmlvl. [ $+ [ %dm.player1 ] ] * 15) $+ %c1 bonus expoints for this fight! set %winfight 1 inc %dmloses. [ $+ [ %dm.player2 ] ] inc %dmwins. [ $+ [ %dm.player1 ] ] update.score write -c invnick.txt play -sat $+ %dm.player2 play2file dminv.ini 0 timer 1 2 dmdrops timer 1 1 notice %dm.player1 %c1 $+ You gained $+ %c6 $gettok($calc(%dm.hit / 2 + 1),1,46) $+ %c1 XP. inc %dm.xp. [ $+ [ %dm.player1 ] ] $gettok($calc(%dm.hit / 2 + 1),1,46) xp.check return } msg %dm.chan %c2 $+ %dm.player2 $+ %c1 has $+ %c4 %dmhealth. [ $+ [ %dm.player2 ] ] $+ %c1 hitpoints left! if (%dm.totalhit) .set %dm.hit %dm.totalhit unset %dm.totalhit } ;################################## POISON STUFF ################################### alias -l dm.poison { if (%dmpoisoned. [ $+ [ %dm.player1 ] ]) { if (%dmpoisoned. [ $+ [ %dm.player1 ] ] > %dmhealth. [ $+ [ %dm.player1 ] ]) { timerfreeze off set %dmpoisoned. [ $+ [ %dm.player1 ] ] %dmhealth. [ $+ [ %dm.player1 ] ] dec %dmhealth. [ $+ [ %dm.player1 ] ] %dmpoisoned. [ $+ [ %dm.player1 ] ] var %dm.player3 = %dm.player1 set %dm.player1 %dm.player2 set %dm.player2 %dm.player3 msg %dm.chan %c2 $+ %dm.player2 $+ %c1 gets $+ %c6 %dmpoisoned. [ $+ [ %dm.player2 ] ] $+ %c1 damage from poison. He now has $+ %c4 %dmhealth. [ $+ [ %dm.player2 ] ] $+ %c1 hitpoints left. msg %dm.chan %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! inc %dmloses. [ $+ [ %dm.player2 ] ] inc %dmwins. [ $+ [ %dm.player1 ] ] update.score write -c invnick.txt play -sat $+ %dm.player2 play2file dminv.ini 0 timer 1 2 dmdrops halt } else { dec %dmhealth. [ $+ [ %dm.player1 ] ] %dmpoisoned. [ $+ [ %dm.player1 ] ] msg %dm.chan %c2 $+ %dm.player1 $+ %c1 gets $+ %c6 %dmpoisoned. [ $+ [ %dm.player1 ] ] $+ %c1 damage from poison. He now has $+ %c4 %dmhealth. [ $+ [ %dm.player1 ] ] $+ %c1 hitpoints left. } } } ;######################### TAKES CARE OF EXP PLAYERS (IN DM) ############################### alias -l xp.check { if (%winfight) .inc %dm.xp. [ $+ [ %dm.player1 ] ] $calc(%dmlvl. [ $+ [ %dm.player1 ] ] * 15) if (%dmlvl. [ $+ [ %dm.player1 ] ] == 1 ) { set %dm.lvl.req. [ $+ [ %dm.player1 ] ] 100 } else { set %dm.lvl.req. [ $+ [ %dm.player1 ] ] $calc(%dmlvl. [ $+ [ $nick ] ] ^ 3 * 0.6 + %dmlvl. [ $+ [ $nick ] ] * 100)) } lvl.check } ;######################### TAKES CARE OF LVLS PLAYERS (IN DM) ############################## alias -l lvl.check { if (%dm.xp. [ $+ [ %dm.player1 ] ] >= %dm.lvl.req. [ $+ [ %dm.player1 ] ]) { inc %dmlvl. [ $+ [ %dm.player1 ] ] msg %dm.chan %c6 $+ Congratulations! $+ %c2 %dm.player1 $+ %c6 just leveled up! He now is level $+ %c5 %dmlvl. [ $+ [ %dm.player1 ] ] $+ %c6 $+ ! notice %dm.player1 %c1 $+ From now on, you'll have $+ %c4 $gettok($calc(%dmlvl. [ $+ [ %dm.player1 ] ] ^1.2 * 30 + 80),1,46) $+ %c1 hitpoints. } } ;######################### TAKES CARE OF THE DROPS ################################# alias -l dmdrops { var %dm.player3 = %dm.player1 set %dm.player1 %dm.player2 set %dm.player2 %dm.player3 set %otheritem $read(invnick.txt) set %oitemname2 $gettok($gettok(%otheritem,1,64),1,32) set %oitemname $replace(%oitemname2,_,$chr(32)) set %oitemamount $gettok(%otheritem,2,32) set %getmoney $calc(%dmlvl. [ $+ [ %dm.player1 ] ] * 10 + %dmlvl. [ $+ [ %dm.player2 ] ] * 100) if (%dmweapon. [ $+ [ %dm.player2 ] ]) .set %getweapon %dmweapon. [ $+ [ %dm.player2 ] ] if (%dmarrow. [ $+ [ %dm.player2 ] ]) .set %getarrow %dmarrow. [ $+ [ %dm.player2 ] ] inc %dmmoney. [ $+ [ %dm.player1 ] ] %getmoney if (!%getitems) { if (!$readini(dminv.ini,%dm.player1,$replace(%getweapon,$chr(32),_))) .inc %dminv. [ $+ [ %dm.player1 ] ] if (%getweapon) { writeini dminv.ini %dm.player1 $replace(%getweapon,$chr(32),_) $calc($readini(dminv.ini,%dm.player1,$replace(%getweapon,$chr(32),_)) + 1) } if (%getarrow) { writeini dminv.ini %dm.player1 $gettok($replace(%getarrow,$chr(32),_),1,64) $calc($readini(dminv.ini,%dm.player1,$gettok($replace(%getarrow,$chr(32),_),1,64)) + %dmarrow.amount. [ $+ [ %dm.player1 ] ]) } if (!$readini(dminv.ini,%dm.player1,%oitemname2)) { inc %dminv. [ $+ [ %dm.player1 ] ] } if (%oitemname2) { writeini dminv.ini %dm.player1 %oitemname2 $calc($readini(dminv.ini,%dm.player1,%oitemname2) + %oitemamount) } } else { timer 1 1 notice %dm.player2 %c1 $+ Because $+ %c2 %dm.player2 $+ s $+ %c1 inventory is full, he didn't get any items, although, you did lose: $iif(%getarrow, $+ %c2 Your $+ 's $+ %c1 equipped arrows: $+ %c3 %dmarrow.amount. [ $+ [ %dm.player2 ] ] $+ %c4 $gettok(%getarrow,1,64) $+ s $+ %c1 -) $iif(%getweapon, $+ %c2 Your $+ 's $+ %c1 weapon: $+ %c3 1 $+ %c4 $gettok(%getweapon,1,64) $+ %c1 -) $iif(%oitemname, everything from a random slot from $+ %c2 your $+ 's $+ %c1 inventory: $+ %c3 %oitemamount $+ %c4 %oitemname $+ $iif($right(%oitemname,1) != s && %oitemamount > 1, s) $+ %c1 $+) $+ . } msg %dm.chan %c2 $+ %dm.player1 $+ %c1 gets the following as a $+ %c6 reward $+ %c1 $+ : $iif(%getarrow, $+ %c2 %dm.player2 $+ 's $+ %c1 equipped arrows: $+ %c3 %dmarrow.amount. [ $+ [ %dm.player2 ] ] $+ %c4 $gettok(%getarrow,1,64) $+ s $+ %c1 -) $iif(%getweapon, $+ %c2 %dm.player2 $+ 's $+ %c1 weapon: $+ %c3 1 $+ %c4 $gettok(%getweapon,1,64) $+ %c1 -) $iif(%oitemname, everything from a random slot from $+ %c2 %dm.player2 $+ 's $+ %c1 inventory: $+ %c3 %oitemamount $+ %c4 %oitemname $+ $iif($right(%oitemname,1) != s && %oitemamount > 1, s) $+ %c1 $+ $chr(44) and) $+ %c4 %getmoney $+ %c1 coins (not from $+ %c2 %dm.player2 $+ %c1 $+ ). remini dminv.ini %dm.player2 %oitemname2 dec %dminv. [ $+ [ %dm.player2 ] ] unset %dmweapon. [ $+ [ %dm.player2 ] ] unset %dmarrow. [ $+ [ %dm.player2 ] ] unset %dmarrow.amount. [ $+ [ %dm.player2 ] ] unset %getarrow unset %getmoney unset %getweapon unset %oitem* timer -m 1 1500 %c2 $+ %dm.player1 $+ %c1 now has $+ %c3 %dmwins. [ $+ [ %dm.player1 ] ] $+ %c4 wins $+ %c1 - $+ %c3 %dmloses. [ $+ [ %dm.player1 ] ] $+ %c4 loses $+ %c1 and $+ %c2 %dm.player2 $+ %c1 now has $+ %c3 %dmwins. [ $+ [ %dm.player2 ] ] $+ %c4 wins $+ %c1 - $+ %c3 %dmloses. [ $+ [ %dm.player2 ] ] $+ %c4 loses $+ %c1 $+ . timer -m 1 1500 enddm } ;###################### WRITES SCORE IN FILE DMSCORE.TXT ############################ alias -l update.score { var %nicksscore = $read(dmwins.txt, w, * $+ %dm.player1 $+ *) if (%nicksscore) { write -l $+ $readn dmwins.txt %dm.player1 %dmwins. [ $+ [ %dm.player1 ] ] } else { write dmwins.txt %dm.player1 %dmwins. [ $+ [ %dm.player1 ] ] } var %nicksscore2 = $read(dmloses.txt, w, * $+ %dm.player1 $+ *) if (%nicksscore2) { write -l $+ $readn dmloses.txt %dm.player1 %dmloses. [ $+ [ %dm.player1 ] ] } else { write dmloses.txt %dm.player1 %dmloses. [ $+ [ %dm.player1 ] ] } unset %nicksscore* var %nicksscore = $read(dmwins.txt, w, * $+ %dm.player2 $+ *) if (%nicksscore) { write -l $+ $readn dmwins.txt %dm.player2 %dmwins. [ $+ [ %dm.player2 ] ] } else { write dmwins.txt %dm.player2 %dmwins. [ $+ [ %dm.player2 ] ] } var %nicksscore2 = $read(dmloses.txt, w, * $+ %dm.player2 $+ *) if (%nicksscore2) { write -l $+ $readn dmloses.txt %dm.player2 %dmloses. [ $+ [ %dm.player2 ] ] } else { write dmloses.txt %dm.player2 %dmloses. [ $+ [ %dm.player2 ] ] } filter -ceut 2 32 dmwins.txt dmwins.txt filter -ceut 2 32 dmloses.txt dmloses.txt } ;######################### UNSETS THE DM VARS (STOP DM) ############################# alias enddm { timerturnswitch off timerstopdm off if (!%nodevoice1 && !%nodevoice2) { timer 1 2 mode %dm.chan -mvv %dm.player1 %dm.player2 } if (!%nodevoice1 && %nodevoice2) { timer 1 2 mode %dm.chan -mv %dm.player1 } if (%nodevoice1 && !%nodevoice2) { timer 1 2 mode %dm.chan -mv %dm.player2 } if (%nodevoice1 && %nodevoice2) { timer 1 2 mode %dm.chan -m } unset %nodevoice* unset %dm.player* unset %dm.status unset %winfight unset %dmpoison* unset %dmfreeze* unset %dm*potuse* unset %cantbehit* unset %diddecspell unset %dm.chan } ;############################################# ;#### LIST OF ALL DEATHMATCH COMMANDS #### ;#### MADE BY Supamagier & cnb6 #### ;############################################# alias -l dmcommandslist { if ($network != TundraIRC) { notice $1 %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 (%dmid. [ $+ [ $1 ] ] == 1) { ;########################### SPECIAL ATTACK-COMMANDS ######################## if (*sp*c* iswm $2-) { if (%nospecsview. [ $+ [ $1 ] ]) { notice $1 %c1 $+ Please wait $+ %c6 $timer($1 $+ specs).secs %c1 $+ seconds before using this command again. halt } set %nospecsview. [ $+ [ $1 ] ] 1 timer [ $+ [ $1 $+ specs ] ] 1 180 unset %nospecsview. [ $+ [ $1 ] ] msg $1 %c5 $+ Sword of Ice $+ %c1 $+ : Makes your opponents weapon so cold, that there's a chance of $+ %c3 35% $+ %c1 his weapon breaks, because of the cold. msg $1 %c5 $+ Sword of Fire $+ %c1 $+ : Makes your opponents weapon so hot, that he can't use it for $+ %c3 2 $+ %c1 turns. msg $1 %c5 $+ Diamond Sword $+ %c1 $+ : Turns your sword into a diamond sword; your max hit increases by $+ %c3 30% $+ %c1 and you have a chance of $+ %c3 10% $+ %c1 a piece of diamond falls from your sword, which gives you $+ %c4 100 - 10000 $+ %c1 coins. msg $1 %c5 $+ Rampage Sword $+ %c1 $+ : This special attack increases your max hit by $+ %c3 100% $+ %c1 $+ . However, there's $+ %c3 10% $+ %c1 chance your sword breaks. msg $1 %c5 $+ Clone Sword $+ %c1 $+ : Decreases your max hit with $+ %c3 50% $+ %c1 $+ , but when you attack, you attack with $+ %c4 1 - 7 $+ %c1 swords (this means your max hit varies from $+ %c3 50% - 300% $+ %c1 $+ ) at the same time. msg $1 %c5 $+ Sword of Life $+ %c1 $+ : Heals you with $+ %c3 80% $+ %c1 of your hit. } } ;############################ NEXT COMMANDS ################################# elseif (* iswm $2-) { } else { notice $1 %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ } } ;######################################################## ;################ TO BE USED LATER ###################### ;######################################################## [none]nothing[/none] ;############################################################## ;###################### BACK UPS ############################## ;############################################################## ; +++ MAYBE IN SCRIPT 'INVENTORY' +++ You used: $+ %c1 ( $+ %c4 %dminv. [ $+ [ $nick ] ] $+ %c6 / $+ %c4 10 $+ %c1 items ) $+ %c3 $+ ; +++ MAYBE IN ALIAS 'TURNGONE' +++ ;if (%dmhealth. [ $+ [ %dm.player1 ] ] <= 0 || %dmhealth. [ $+ [ %dm.player2 ] ] <= 0) { halt } ; +++ MAYBE IN SCRIPT 'RANGE ATTACK' +++ if (%rangepotuse. [ $+ [ $nick ] ] > 0) { dec %rangepotuse. [ $+ [ $nick ] ] set %dm.hit $gettok($calc(%dm.hit * 1.1),1,46) timer 1 1 notice $nick %c1 $+ Your $+ %c3 range potion $+ %c1 will be active for $+ %c5 %rangepotuse. [ $+ [ $nick ] ] $+ %c1 more rounds. } ;+++ CHANGE CHANNELS +++ if (%dm.chan2) { var %dm.chan3 = %dm.chan2 set %dm.chan2 %dm.chan set %dm.chan %dm.chan3 } if (!%dm.chan2) .set %dm.chan #DM if (!%dm.chan) .set %dm.chan #DM-tournaments ;############################### STARTING A TOURNAMENT ################################# on $*: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 || $3 < 100 || $3 !isnum) { if (%dm.tournament == on) { halt } notice $nick %c1 $+ Please type this: $+ %c3 !tournament 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 } if (%dmmoney. [ $+ [ $nick ] ] < $3) { notice $nick %c1 $+ You can't stake $+ %c3 $3 $+ %c1 coins, if you only have $+ %c4 %dmmoney. [ $+ [ $nick ] ] $+ %c1 coins. halt } set %dm.tournicks $nick set %dm.chan2 #DM-tournaments set %dm.tournament On set %dm.tournament.starter $nick set %dm.tournament.player.1 $nick set %dm.tournamentppl 1 set %dm.tournament.stake $3 set %dm.tournament.prize $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! timerchallenge2 1 120 tooSlowTour } else { notice $nick %c1 $+ You need to identify first! Type $+ %c3 !id(entify) yourpass $+ %c1 in my PM. } } else { notice $nick %c1 $+ You need to register first. Type %c5 $+ `dm-register $+ %c1 first and follow the instructions. } } ;###################################### JOINING A TOURNAMENT ######################################### 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 (%dm.tournament != on) { notice $nick %c1 $+ There's no tournament running. Type $+ %c3 !tournament $+ %c1 to start one. halt } 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.tournament.needppl == 0) { notice $nick %c1 $+ The tournament is full, please wait until the next starts. 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 dec %dmmoney. [ $+ [ $nick ] ] %dm.tournament.stake 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 } } else { notice $nick %c1 $+ You need to identify first! Type $+ %c3 !id(entify) yourpass $+ %c1 in my PM. } } else { notice $nick %c1 $+ You need to register first. Type %c5 $+ `dm-register $+ %c1 first and follow the instructions. } } ;########################## CHECK WHO FIGHTS NEXT ####################### alias -l nextround { health.start 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 $+ %c4 %dm.tournament.prize $+ %c1 $+ ! 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 $+ %c4 %dm.tournament.prize $+ %c1 $+ ! 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 $+ %c4 %dm.tournament.prize $+ %c1 $+ ! inc %dm.tournament.wins. [ $+ [ %dm.tournament.winner.15 ] ] inc %dM.money. [ $+ [ %dm.tournament.winner.15 ] ] } } ;########################## NEXT FIGHT ALIASES ########################### alias -l fight1 { set %dm.tplayer1 %dm.tournament.player.1 set %dm.tplayer2 %dm.tournament.player.2 msg %dm.chan2 %c1 $+ Now fighting in the first battle of this tournament: $+ %c2 %dm.tplayer1 $+ %c4 Vs. $+ %c2 %dm.tplayer2 $+ %c4 $+ ! start.health set %fight 1 return } alias -l fight2 { set %dm.tplayer1 %dm.tournament.player.3 set %dm.tplayer2 %dm.tournament.player.4 msg %dm.chan2 %c1 $+ The 2 people that will now compeet are $+ %c2 %dm.tplayer1 %c4 $+ and $+ %c2 %dm.tplayer2 $+ %c4 $+ ! start.health set %fight 2 return } alias -l fight3 { set %dm.tplayer1 %dm.tournament.player.5 set %dm.tplayer2 %dm.tournament.player.6 msg %dm.chan2 %c1 $+ This is already the $+ %c5 third fight $+ %c1 of this tournament, $+ %c2 %dm.tplayer1 $+ %c4 and $+ %c2 %dm.tplayer2 $+ %c1 will compeet. start.health set %fight 3 return } alias -l fight4 { set %dm.tplayer1 %dm.tournament.player.7 set %dm.tplayer2 %dm.tournament.player.8 msg %dm.chan2 %c1 $+ Now compeeting are $+ %c2 %dm.tplayer1 $+ %c4 and $+ %c2 %dm.tplayer2 $+ %c4 $+ ! start.health set %fight 4 return } alias -l fight5 { set %dm.tplayer1 %dm.tournament.player.9 set %dm.tplayer2 %dm.tournament.player.10 msg %dm.chan2 %c1 $+ The fight we're gonna see now is: $+ %c2 %dm.tplayer1 $+ %c4 Vs. $+ %c1 %dm.tplayer2 $+ %c4 $+ ! start.health set %fight 5 return } alias -l fight6 { set %dm.tplayer1 %dm.tournament.player.11 set %dm.tplayer2 %dm.tournament.player.12 msg %dm.chan2 %c1 $+ Next fight is between: $+ %c2 %dm.tplayer1 $+ %c4 and $+ %c2 %dm.tplayer2 $+ %c4 $+ ! start.health set %fight 6 return } alias -l fight7 { set %dm.tplayer1 %dm.tournament.player.13 set %dm.tplayer2 %dm.tournament.player.14 msg %dm.chan2 %c1 $+ What a fantastic fight this is gonna be! $+ %c2 %dm.tplayer1 $+ %c4 Vs. $+ %c2 %dm.tplayer2 $+ %c4 $+ ! start.health set %fight 7 return } alias -l fight8 { set %dm.tplayer1 %dm.tournament.player.15 set %dm.tplayer2 %dm.tournament.player.16 msg %dm.chan2 %c1 $+ This is the last fight until the next rounds! $+ %c2 %dm.tplayer1 $+ %c4 Vs. $+ %c2 %dm.tplayer2 $+ %c4 $+ ! start.health set %fight 8 return } alias fight5.semi { set %dm.tplayer1 %dm.tournament.winner.1 set %dm.tplayer2 %dm.tournament.winner.2 msg %dm.chan2 %c1 $+ It's now the semi finals! $+ %c2 %dm.tplayer1 $+ %c4 Vs. $+ %c2 dm.player2 $+ %c4 $+ ! start.health set %fight 5 return } alias fight6.semi { set %dm.tplayer1 %dm.tournament.winner.3 set %dm.tplayer2 %dm.tournament.winner.4 msg %dm.chan2 %c1 $+ They have come so far, but now one of them will have to die! %c2 $+ %dm.tplayer1 $+ %c4 Vs. $+ %c2 %dm.tplayer2 $+ %c4 $+ ! start.health set %fight 6 return } alias fight7.final { set %dm.tplayer1 %dm.tournament.winner.5 set %dm.tplayer2 %dm.tournament.winner.6 msg %dm.chan2 %c1 $+ This is the one and only final! $+ %c2 %dm.tplayer1 $+ %c4 Vs. $+ %c2 %dm.tplayer2 $+ %c4 $+ ! start.health set %fight 7 return } alias fight3.final { set %dm.tplayer1 %dm.tournament.winner.1 set %dm.tplayer2 %dm.tournament.winner.2 msg %dm.chan2 %c1 $+ This is the one and only final! $+ %c2 %dm.tplayer1 $+ %c4 Vs. $+ %c2 %dm.tplayer2 $+ %c4 $+ ! start.health set %fight 3 return } alias -l fight9.kwart { set %dm.tplayer1 %dm.tournament.winner.1 set %dm.tplayer2 %dm.tournament.winner.2 msg %dm.chan2 %c1 $+ Now fighting: $+ %c2 %dm.tplayer1 $+ %c4 Vs. $+ %c2 %dm.tplayer2 $+ %c4 $+ ! start.health set %fight 9 return } alias -l fight10.kwart { set %dm.tplayer1 %dm.tournament.winner.3 set %dm.tplayer2 %dm.tournament.winner.4 msg %dm.chan2 %c1 $+ Now fighting: $+ %c2 %dm.tplayer1 $+ %c4 Vs. $+ %c2 %dm.tplayer2 $+ %c4 $+ ! start.health set %fight 10 return } alias -l fight11.kwart { set %dm.tplayer1 %dm.tournament.winner.5 set %dm.tplayer2 %dm.tournament.winner.6 msg %dm.chan2 %c1 $+ Now fighting: $+ %c2 %dm.tplayer1 $+ %c4 Vs. $+ %c2 %dm.tplayer2 $+ %c4 $+ ! start.health set %fight 11 return } alias -l fight12.kwart { set %dm.tplayer1 %dm.tournament.winner.7 set %dm.tplayer2 %dm.tournament.winner.8 msg %dm.chan2 %c1 $+ Now fighting: $+ %c2 %dm.tplayer1 $+ %c4 Vs. $+ %c2 %dm.tplayer2 $+ %c4 $+ ! start.health set %fight 12 return } alias -l fight13.semi { set %dm.tplayer1 %dm.tournament.winner.9 set %dm.tplayer2 %dm.tournament.winner.10 msg %dm.chan2 %c1 $+ Now fighting: $+ %c2 %dm.tplayer1 $+ %c4 Vs. $+ %c2 %dm.tplayer2 $+ %c4 $+ ! start.health set %fight 13 return } alias -l fight14.semi { set %dm.tplayer1 %dm.tournament.winner.11 set %dm.tplayer2 %dm.tournament.winner.12 msg %dm.chan2 %c1 $+ And last but not least: $+ %c2 %dm.tplayer1 $+ %c4 Vs. $+ %c2 %dm.tplayer2 $+ %c4 $+ ! start.health set %fight 14 return } alias -l fight15.final { set %dm.tplayer1 %dm.tournament.winner.13 set %dm.tplayer2 %dm.tournament.winner.14 msg %dm.chan2 %c1 $+ This is the one and only final! $+ %c2 %dm.tplayer1 $+ %c4 Vs. $+ %c2 %dm.tplayer2 $+ %c4 $+ ! start.health set %fight 15 return } alias -l start.health { if (!%dmlvl. [ $+ [ %dm.tplayer1 ] ]) .set %dmlvl. [ $+ [ %dm.tplayer1 ] ] 1 if (!%dmlvl. [ $+ [ %dm.tplayer2 ] ]) .set %dmlvl. [ $+ [ %dm.tplayer2 ] ] 1 set %dmhealth. [ $+ [ %dm.tplayer1 ] ] $gettok($calc(%dmlvl. [ $+ [ %dm.tplayer1 ] ] ^1.2 * 30 + 80),1,46) set %dmhealth. [ $+ [ %dm.tplayer2 ] ] $gettok($calc(%dmlvl. [ $+ [ %dm.tplayer2 ] ] ^1.2 * 30 + 80),1,46) set %specuse. [ $+ [ %dm.tplayer1 ] ] 3 set %specuse. [ $+ [ %dm.tplayer2 ] ] 3 set %dmstarthealth. [ $+ [ %dm.tplayer1 ] ] %dmhealth. [ $+ [ %dm.tplayer1 ] ] set %dmstarthealth. [ $+ [ %dm.tplayer2 ] ] %dmhealth. [ $+ [ %dm.tplayer2 ] ] var %dm.begin = $r(1,2) timerchallenge2 off if (%dm.begin == 1) { set %dm.startnick %dm.tplayer1 } if (%dm.begin == 2) { set %dm.startnick %dm.tplayer2 var %dm.tplayer3 = %dm.tplayer1 set %dm.tplayer1 %dm.tplayer2 set %dm.tplayer2 %dm.tplayer3 } msg %dm.chan2 %c2 $+ %dm.startnick $+ %c1 starts the game! notice %dm.tplayer1 %c1 $+ Fight started, you're fighting %c4 $+ %dm.tplayer2 $+ %c1 $+ , who has $+ %c4 %dmhealth. [ $+ [ %dm.tplayer2 ] ] $+ %c1 hitpoints. notice %dm.tplayer2 %c1 $+ Fight started, you're fighting %c4 $+ %dm.tplayer1 $+ %c1 $+ , who has $+ %c4 %dmhealth. [ $+ [ %dm.tplayer1 ] ] $+ %c1 hitpoints. timerturnswitch2 1 60 tooSlowTour } ;######################## ATTACK - MELEE (TOURNAMENTS) ############################ on $*:text:/^[?!@`.](at(t)?(ack)?|hit)/Si:#DM-tournaments: { if (%dm.status == ON) { if ($nick == %dm.tplayer1) { if (%dmclass. [ $+ [ $nick ] ] != melee) { notice $nick %c1 $+ As a $+ %c5 %dmclass. [ $+ [ $nick ] ] $+ %c1 $+ , you can't use this command. Use %c3 $+ !shoot $+ %c1 $+ , $+ %c3 !cast $+ %c1 or %c3 $+ !use $+ %c1 instead. halt } timerturnswitch2 off if (%dmfreeze. [ $+ [ $nick ] ] > 0 ) { msg $chan %c1 $+ %dm.tplayer1 $+ %c1 Tries to attack but he can't reach $+ %c2 %dm.tplayer2 $+ %c1 $+ ; $+ %c2 %dm.tplayer2 $+ %c1 gets the turn. notice $nick %c1 $+ Please wait $+ %c3 %dmfreeze. [ $+ [ $nick ] ] $+ %c1 more turn $+ $iif(%toohot. [ $+ [ $nick ] ] != 1,s) $+ . set %dm.tplayer1 %dm.tplayer2 set %dm.tplayer2 $nick dec %dmfreeze. [ $+ [ $nick ] ] halt } if (%toohot. [ $+ [ $nick ] ] > 0 ) { dec %toohot. [ $+ [ $nick ] ] msg $chan %c1 $+ %dm.tplayer1 $+ %c1 Tries to attack but he still can't hold his weapon because of the heat $+ %c1 $+ ; $+ %c2 %dm.tplayer2 $+ %c1 gets the turn. notice $nick %c1 $+ Please wait $+ %c3 %toohot. [ $+ [ $nick ] ] $+ %c1 more turn $+ $iif(%toohot. [ $+ [ $nick ] ] != 1,s) $+ . set %dm.tplayer1 %dm.tplayer2 set %dm.tplayer2 $nick halt } if (!%dmweapon. [ $+ [ $nick ] ] || piece isin %dmweapon. [ $+ [ $nick ] ]) { set %dm.hit $rand(0,5) if (%strengthpotuse. [ $+ [ $nick ] ] > 0) { dec %strengthpotuse. [ $+ [ $nick ] ] set %dm.hit $gettok($calc(%dm.hit * 1.1),1,46) timer 1 1 notice $nick %c1 $+ Your $+ %c3 strength potion $+ %c1 will be active for $+ %c5 %strengthpotuse. [ $+ [ $nick ] ] $+ %c1 more rounds. } set %dmweapused his fist. health.check2 set %dm.tplayer1 %dm.tplayer2 set %dm.tplayer2 $nick return } 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.tplayer1 ] ],$chr(32),_) $+ *),4,64) set %dm.hit $rand(0, %dm.max) if (%strengthpotuse. [ $+ [ $nick ] ] > 0) { dec %strengthpotuse. [ $+ [ $nick ] ] set %dm.hit $gettok($calc(%dm.hit * 1.1),1,46) timer 1 1 notice $nick %c1 $+ Your $+ %c3 strength potion $+ %c1 will be active for $+ %c5 %strengthpotuse. [ $+ [ $nick ] ] $+ %c1 more rounds. } set %dmweapused a $+ %c5 %dmweapon. [ $+ [ %dm.tplayer1 ] ] $+ %c1 $+ . if (home isin %dmweapon. [ $+ [ %dm.tplayer1 ] ] && $r(1,5) == 2) { timer 1 1 notice $nick %c1 $+ You broke your $+ %c3 %dmweapon. [ $+ [ %dm.tplayer1 ] ] $+ %c1 $+ , meaning you lost it. unset %dmweapon. [ $+ [ %dm.tplayer1 ] ] } } health.check2 set %dm.tplayer1 %dm.tplayer2 set %dm.tplayer2 $nick timerturnswitch2 1 60 turngonetour } elseif ($nick == %dm.tplayer2) { 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 - SPECIALS (MELEE ONLY) (TOURNAMENTS) ################# on $*:text:/^[!@`.](spe(c(ial)?(s)?)?)/Si:#DM-tournaments: { if (%dm.tournament == ON) { if ($nick == %dm.tplayer1) { if (%dmclass. [ $+ [ $nick ] ] != melee) { notice $nick %c1 $+ As a $+ %c5 %dmclass. [ $+ [ $nick ] ] $+ %c1 $+ , you can't use this command. Use %c3 $+ !shoot $+ %c1 $+ , $+ %c3 !cast $+ %c1 or %c3 $+ !use $+ %c1 instead. halt } if (!$2) { notice $nick %c1 $+ Please choose the kind of special attack you want. Type $+ %c4 !DMcommands specials $+ %c1 to see a list of available special attacks. halt } if (%specuse. [ $+ [ $nick ] ] <= 0) { notice $nick %c1 $+ You can't use any more special attacks until you drink a $+ %c4 Special attack potion $+ %c1 $+ . halt } timerturnswitch2 off if (%dmfreeze. [ $+ [ $nick ] ] > 0 ) { msg $chan %c1 $+ %dm.tplayer1 $+ %c1 Tries to attack but he can't reach $+ %c2 %dm.tplayer2 $+ %c1 $+ ; $+ %c2 %dm.tplayer2 $+ %c1 gets the turn. notice $nick %c1 $+ Please wait $+ %c3 %dmfreeze. [ $+ [ $nick ] ] $+ %c1 more turn $+ $iif(%dmfreeze. [ $+ [ $nick ] ] != 1,s) $+ . set %dm.tplayer1 %dm.tplayer2 set %dm.tplayer2 $nick dec %dmfreeze. [ $+ [ $nick ] ] halt } if (%toohot. [ $+ [ $nick ] ] > 0 ) { dec %toohot. [ $+ [ $nick ] ] msg $chan %c1 $+ %dm.tplayer1 $+ %c1 Tries to attack but he still can't hold his weapon because of the heat $+ %c1 $+ ; $+ %c2 %dm.tplayer2 $+ %c1 gets the turn. notice $nick %c1 $+ Please wait $+ %c3 %toohot. [ $+ [ $nick ] ] $+ %c1 more turn $+ $iif(%toohot. [ $+ [ $nick ] ] != 1,s) $+ . set %dm.tplayer1 %dm.tplayer2 set %dm.tplayer2 $nick halt } if (!%dmweapon. [ $+ [ $nick ] ] || piece isin %dmweapon. [ $+ [ $nick ] ]) { notice $nick %c1 $+ You need to have a weapon equipped if you want to use a $+ %c3 special attack $+ %c1 $+ . halt } 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.tplayer1 ] ],$chr(32),_) $+ *),4,64) set %dm.hit $rand(0, %dm.max) if (%strengthpotuse. [ $+ [ $nick ] ] > 0) { dec %strengthpotuse. [ $+ [ $nick ] ] set %dm.hit $gettok($calc(%dm.hit * 1.1),1,46) timer 1 1 notice $nick %c1 $+ Your $+ %c3 strength potion $+ %c1 will be active for $+ %c5 %strengthpotuse. [ $+ [ $nick ] ] $+ %c1 more rounds. } if (home isin %dmweapon. [ $+ [ %dm.tplayer1 ] ] && $r(1,5) == 2) { timer 1 1 notice $nick %c1 $+ You broke your $+ %c3 %dmweapon. [ $+ [ %dm.tplayer1 ] ] $+ %c1 $+ , meaning you lost it. unset %dmweapon. [ $+ [ %dm.tplayer1 ] ] } set %dmweapused a $+ %c5 %dmweapon. [ $+ [ %dm.tplayer1 ] ] $+ %c1 $+ . :checkspec if (*ice* iswm $2-) { if ($r(1,100) <= 35) { timer -m 1 500 msg $chan %c2 $+ %dm.tplayer2 $+ 's $+ %c1 weapon broke because of the cold! timer 1 1 notice %dm.tplayer2 %c1 $+ Your weapon has been un-equipped automaticly. unset %dmweapon. [ $+ [ %dm.tplayer2 ] ] } set %dmweapused the $+ %c4 special attack $+ %c6 "Sword of Ice" $+ %c1 with a $+ %c5 %dmweapon. [ $+ [ %dm.tplayer1 ] ] $+ %c1 $+ . } elseif (*fire* iswm $2-) { set %dmweapused the $+ %c4 special attack $+ %c6 "Sword of Fire" $+ %c1 with a $+ %c5 %dmweapon. [ $+ [ %dm.tplayer1 ] ] $+ %c1 $+ . timer 1 1 msg $chan %c2 $+ %dm.tplayer2 $+ 's $+ %c1 weapon is glowing from the heat! Not a chance he can hold it now. set %toohot. [ $+ [ %dm.tplayer2 ] ] 2 } elseif (*diam* iswm $2-) { set %dmweapused the $+ %c4 special attack $+ %c6 "Diamond Sword" $+ %c1 with a $+ %c5 %dmweapon. [ $+ [ %dm.tplayer1 ] ] $+ %c1 $+ . set %dm.max $gettok($calc(%dm.max * 1.3),1,46) set %dm.hit $rand(0, %dm.max) if ($r(1,100) <= 10) { set %moneymore $r(100,10000) inc %dmmoney. [ $+ [ $nick ] ] %moneymore timer 1 1 notice %dm.tplayer1 %c3 $+ Congratz! $+ %c1 You found some diamonds, which are worth $+ %c5 %moneymore $+ %c1 coins. } else { timer 1 1 notice %dm.tplayer1 %c3 $+ You didn't get any diamonds. } } elseif (*ramp* iswm $2-) { set %dmweapused the $+ %c4 special attack $+ %c6 "Rampage Sword" $+ %c1 with a $+ %c5 %dmweapon. [ $+ [ %dm.tplayer1 ] ] $+ %c1 $+ . set %dm.max $calc(%dm.max * 2) set %dm.hit $rand(0, %dm.max) if ($r(1,100) <= 10) { timer 1 1 notice $nick %c1 $+ Your $+ %c5 %dmweapon. [ $+ [ $nick ] ] %c1 $+ broke. unset %dmweapon. [ $+ [ $nick ] ] } } elseif (*clon* iswm $2-) { set %dmweapused the $+ %c4 special attack $+ %c6 "Clone Sword" $+ %c1 with a $+ %c5 %dmweapon. [ $+ [ %dm.tplayer1 ] ] $+ %c1 $+ . set %cloneamount $r(1,7) var %counter = %cloneamount set %dm.max $gettok($calc(%dm.max / 2),1,46) while (%counter > 0) { set %dm.hit [ $+ [ %counter ] ] $r(0,%dm.max) dec %counter } set %dm.totalhit $calc(%dm.hit1 + %dm.hit2 + %dm.hit3 + %dm.hit4 + %dm.hit5 + %dm.hit6 + %dm.hit7) } elseif (*life* iswm $2- || *live* iswm $2-) { set %healthmore $gettok($calc(%dm.hit * 0.8),1,46) inc %dmhealth. [ $+ [ %dm.tplayer1 ] ] %healthmore if (%dmhealth. [ $+ [ %dm.tplayer1 ] ] > %dmstarthealth. [ $+ [ %dm.tplayer1 ] ]) { set %healthmore $calc(%dmstarthealth. [ $+ [ %dm.tplayer1 ] ] - (%dmhealth. [ $+ [ %dm.tplayer1 ] ] - %dm.heal)) set %dmhealth. [ $+ [ %dm.tplayer1 ] ] %dmstarthealth. [ $+ [ %dm.tplayer1 ] ] } timer -m 1 500 msg $chan %c2 $+ %dm.tplayer1 $+ %c1 used the $+ %c4 special attack $+ %c6 "Sword of Life" $+ %c1 $+ , which heals him with $+ %c4 80% $+ %c1 of his hit, being $+ %c5 %healthmore $+ %c1 hitpoints. He now has $+ %c4 %dmhealth. [ $+ [ %dm.tplayer1 ] ] $+ %c1 hitpoints. } else { notice $nick %c1 $+ Please choose a valid $+ %c5 special attack $+ %c1 $+ . halt } } health.check2 set %dm.tplayer1 %dm.tplayer2 set %dm.tplayer2 $nick dec %specuse. [ $+ [ $nick ] ] notice $nick %c1 $+ Unless you drink a $+ %c5 Special attack potion $+ %c1 $+ , you can use $+ %c4 %specuse. [ $+ [ $nick ] ] $+ %c2 more special attack $+ $iif(%specuse. [ $+ [ $nick ] ] != 1, s) $+ %c1 this $+ %c5 DeathMatch. timerturnswitch2 1 60 turngonetour } elseif ($nick == %dm.tplayer2) { 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 (TOURNAMENTS) ############################ on $*:text:/^[@`.?!](s(h)?((o)?o)?t)/Si:#DM-tournaments: { if (%dm.tournament == ON) { if ($nick == %dm.tplayer1) { if (%dmclass. [ $+ [ $nick ] ] != range) { notice $nick %c1 $+ As a $+ %c5 %dmclass. [ $+ [ $nick ] ] $+ %c1 $+ , you can't use this command. Use %c3 $+ !cast $+ %c1 $+ , $+ %c3 !attack $+ %c1 , $+ %c3 !special $+ %c1 or %c3 $+ !use $+ %c1 instead. halt } timerturnswitch2 off if (%dmfreeze. [ $+ [ $nick ] ] > 0 ) { msg $chan %c1 $+ %dm.tplayer1 $+ %c1 Tries to attack but he can't reach $+ %c2 %dm.tplayer2 $+ %c1 $+ ; $+ %c2 %dm.tplayer2 $+ %c1 gets the turn. notice $nick %c1 $+ Please wait $+ %c3 %dmfreeze. [ $+ [ $nick ] ] $+ %c1 more turn $+ $iif(%dmfreeze. [ $+ [ $nick ] ] != 1,s) $+ . set %dm.tplayer1 %dm.tplayer2 set %dm.tplayer2 $nick dec %dmfreeze. [ $+ [ $nick ] ] halt } if (%toohot. [ $+ [ $nick ] ] > 0 ) { dec %toohot. [ $+ [ $nick ] ] msg $chan %c1 $+ %dm.tplayer1 $+ %c1 Tries to attack but he still can't hold his weapon because of the heat $+ %c1 $+ ; $+ %c2 %dm.tplayer2 $+ %c1 gets the turn. notice $nick %c1 $+ Please wait $+ %c3 %toohot. [ $+ [ $nick ] ] $+ %c1 more turn $+ $iif(%toohot. [ $+ [ $nick ] ] != 1,s) $+ . set %dm.tplayer1 %dm.tplayer2 set %dm.tplayer2 $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. } if (%rangepotuse. [ $+ [ $nick ] ] > 0) { dec %rangepotuse. [ $+ [ $nick ] ] set %dm.hit $gettok($calc(%dm.hit * 1.1),1,46) timer 1 1 notice $nick %c1 $+ Your $+ %c3 range potion $+ %c1 will be active for $+ %c5 %rangepotuse. [ $+ [ $nick ] ] $+ %c1 more rounds. } health.check2 set %dm.tplayer1 %dm.tplayer2 set %dm.tplayer2 $nick halt } 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 , $+ %c3 !special $+ %c1 or %c3 $+ !use $+ %c1 instead. halt } dec %dmarrow.amount. [ $+ [ $nick ] ] 1 set %dm.max $gettok($read(dmshopitems.txt, w, * $+ $replace(%dmarrow. [ $+ [ %dm.tplayer1 ] ],$chr(32),_) $+ *),5,64) set %dm.hit $rand(0, %dm.max) set %arrows.shot $gettok($read(dmshopitems.txt, w, * $+ $replace(%dmweapon. [ $+ [ %dm.tplayer1 ] ],$chr(32),_) $+ *),4,64) if (%rangepotuse. [ $+ [ $nick ] ] > 0 && %arrows.shot == 1) { dec %rangepotuse. [ $+ [ $nick ] ] set %dm.hit $gettok($calc(%dm.hit * 1.1),1,46) timer 1 1 notice $nick %c1 $+ Your $+ %c3 range potion $+ %c1 will be active for $+ %c5 %rangepotuse. [ $+ [ $nick ] ] $+ %c1 more rounds. } set %dm.poison $gettok($read(dmshopitems.txt, w, * $+ $replace(%dmarrow. [ $+ [ %dm.tplayer1 ] ],$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.tplayer2 ] ] && %dm.poisondmg && $r(1,5) == 2) { set %addpoison 1 } set %dmweapused a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 with $+ %c5 $gettok(%dmarrow. [ $+ [ $nick ] ],1,64) $+ s $+ %c1 $+ . else { set %dmweapused %dmweapused $chr(32) | timer 1 1 notice %dm.tplayer1 %c1 $+ You now have $+ %c3 %dmarrow.amount. [ $+ [ %dm.tplayer1 ] ] $+ %c5 $gettok(%dmarrow. [ $+ [ %dm.tplayer1 ] ],1,64) $+ s $+ %c1 left. } if (%arrows.shot == 3) { if (%dmarrow.amount. [ $+ [ $nick ] ] >= 2) { set %dm.hit $calc(%dm.hit * 0.9) set %dm.hit2 $rand(0, %dm.max) set %dm.hit3 $rand(0, %dm.max) set %dm.totalhit $calc(%dm.hit + %dm.hit2 + %dm.hit3) if (%rangepotuse. [ $+ [ $nick ] ] > 0) { dec %rangepotuse. [ $+ [ $nick ] ] set %dm.totalhit $gettok($calc(%dm.totalhit * 1.1),1,46) timer 1 1 notice $nick %c1 $+ Your $+ %c3 range potion $+ %c1 will be active for $+ %c5 %rangepotuse. [ $+ [ $nick ] ] $+ %c1 more rounds. } dec %dmarrow.amount. [ $+ [ $nick ] ] 2 } else { notice $nick %c1 $+ You only have $+ %c3 $calc(%dmarrow.amount. [ $+ [ $nick ] ] + 1) $+ %c1 arrows left, while you need at least $+ %c3 3 $+ %c1 arrows. halt } } if (%dmarrow.amount. [ $+ [ $nick ] ] <= 0) { unset %dmarrow. [ $+ [ $nick ] ] } } health.check2 set %dm.tplayer1 %dm.tplayer2 set %dm.tplayer2 $nick timerturnswitch2 1 60 turngonetour } elseif ($nick == %dm.tplayer2) { 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 - MAGE (TOURNAMENTS) ############################## on $*:text:/^[?!@`.](cast|spell)/Si:#DM-tournaments: { if (%dm.tournament == ON) { if ($nick == %dm.tplayer1) { if (%dmclass. [ $+ [ $nick ] ] != mage) { notice $nick %c1 $+ As a $+ %c5 %dmclass. [ $+ [ $nick ] ] $+ %c1 $+ , you can't use this command. Use %c3 $+ !shoot $+ %c1 $+ , $+ %c3 !attack, $+ %c3 !special $+ %c1 $+ %c1 or %c3 $+ !use $+ %c1 instead. halt } timerturnswitch2 off if (%dmfreeze. [ $+ [ $nick ] ] > 0 ) { dec %toohot. [ $+ [ $nick ] ] msg $chan %c1 $+ %dm.tplayer1 $+ %c1 Tries to attack but he can't reach $+ %c2 %dm.tplayer2 $+ %c1 $+ ; $+ %c2 %dm.tplayer2 $+ %c1 gets the turn. notice $nick %c1 $+ Please wait $+ %c3 %dmfreeze. [ $+ [ $nick ] ] $+ %c1 more turn $+ $iif(%dmfreeze. [ $+ [ $nick ] ] != 1,s) $+ . set %dm.tplayer1 %dm.tplayer2 set %dm.tplayer2 $nick halt } if (%toohot. [ $+ [ $nick ] ] > 0 ) { msg $chan %c1 $+ %dm.tplayer1 $+ %c1 Tries to attack but he still can't hold his weapon because of the heat $+ %c1 $+ ; $+ %c2 %dm.tplayer2 $+ %c1 gets the turn. notice $nick %c1 $+ Please wait $+ %c3 %toohot. [ $+ [ $nick ] ] $+ %c1 more turn $+ $iif(%toohot. [ $+ [ $nick ] ] != 1,s) $+ . set %dm.tplayer1 %dm.tplayer2 set %dm.tplayer2 $nick dec %toohot. [ $+ [ $nick ] ] halt } if ($2) { 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 ($readini(dminv.ini,$nick,%dmspell2) <= 0 || !$readini(dminv.ini,$nick,%dmspell2)) { notice $nick %c1 $+ You don't have any $+ %c3 %dmspell $+ s $+ %c1 $+ . halt } } if ((!%dmweapon. [ $+ [ $nick ] ] || piece isin %dmweapon. [ $+ [ $nick ] ] && !$2) || !$2) { set %dm.hit $calc($rand(0,10) + $iif(rand(1,5) == 2, $rand(0,10), 0)) if (%magepotuse. [ $+ [ $nick ] ] > 0) { dec %magepotuse. [ $+ [ $nick ] ] set %dm.hit $gettok($calc(%dm.hit * 1.1),1,46) timer 1 1 notice $nick %c1 $+ Your $+ %c3 mage potion $+ %c1 will be active for $+ %c5 %magepotuse. [ $+ [ $nick ] ] $+ %c1 more rounds. } set %dmweapused the basic spell. health.check2 } 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 ] ] && !$2) { notice $nick %c1 $+ You can't use this command with a $+ %c4 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ . Use %c3 $+ !shoot $+ %c1 $+ , $+ %c3 !attack, $+ %c3 !special $+ %c1 $+ %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 } elseif (%reqstaff == Two duel handed magic wands && %dmweapon. [ $+ [ $nick ] ] != Two duel handed magic wands) { notice $nick %c1 $+ You need $+ %c5 Two duel handed magic wands $+ %c1 equipped, $+ %c1 to use $+ %c6 %dmspell $+ s $+ %c1 $+ . halt } elseif ($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($calc(5 + $iif($r(1,2) == 2, (%dm.max * 0.1), 0)), %dm.max) if (%magepotuse. [ $+ [ $nick ] ] > 0) { dec %magepotuse. [ $+ [ $nick ] ] set %dm.hit $gettok($calc(%dm.hit * 1.1),1,46) timer 1 1 notice $nick %c1 $+ Your $+ %c3 mage potion $+ %c1 will be active for $+ %c5 %magepotuse. [ $+ [ $nick ] ] $+ %c1 more rounds. } set %dmweapused %c3 $+ %dmspell $+ %c1 with a $+ %c5 %dmweapon. [ $+ [ %dm.tplayer1 ] ] $+ %c1 $+ . if ($gettok(%dmspellname,6,64) == freeze) { set %dmfreeze. [ $+ [ %dm.tplayer2 ] ] 2 if (%dmclass. [ $+ [ %dm.tplayer2 ] ] != melee) .set %dmfreeze. [ $+ [ %dm.tplayer2 ] ] 0 set %dmweapused %dmweapused  | timerfreeze -m 1 500 msg $chan %c2 $+ %dm.tplayer2 $+ %c1 has been frozen, meaning he can't use $+ %c3 melee attacks $+ %c1 for $+ %c5 2 $+ %c1 turns. } set %diddecspell 1 writeini dminv.ini $nick %dmspell2 $calc($readini(dminv.ini,$nick,%dmspell2) - 1) set %dmweapused %dmweapused  | timer 1 1 notice %dm.tplayer1 %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 :health.check2 health.check2 } elseif ($gettok(%dmspellname,3,64) == hspell) { set %dm.heal $gettok($calc(%dmstarthealth. [ $+ [ %dm.tplayer1 ] ] / 100 * $gettok(%dmspellname,5,64)),1,46) inc %dmhealth. [ $+ [ %dm.tplayer1 ] ] %dm.heal if (%dmhealth. [ $+ [ %dm.tplayer1 ] ] > %dmstarthealth. [ $+ [ %dm.tplayer1 ] ]) { set %dm.heal $calc(%dmstarthealth. [ $+ [ %dm.tplayer1 ] ] - (%dmhealth. [ $+ [ %dm.tplayer1 ] ] - %dm.heal)) set %dmhealth. [ $+ [ %dm.tplayer1 ] ] %dmstarthealth. [ $+ [ %dm.tplayer1 ] ] } msg $chan %c2 $+ %dm.tplayer1 $+ %c1 casts $+ %c5 %dmspell $+ %c1 healing him with $+ %c4 %dm.heal $+ %c1 hitpoints. He now has $+ %c4 %dmhealth. [ $+ [ %dm.tplayer1 ] ] $+ %c1 hitpoints. } elseif ($gettok(%dmspellname,3,64) == tspell) { set %dmfreeze. [ $+ [ %dm.tplayer2 ] ] 4 if (%dmclass. [ $+ [ %dm.tplayer2 ] ] != melee) .set %dmfreeze. [ $+ [ %dm.tplayer2 ] ] 2 msg $chan %c2 $+ %dm.tplayer1 $+ %c5 teleports away $+ %c1 $+ , meaning $+ %c2 %dm.tplayer2 $+ %c1 can't use $+ %c3 melee attacks $+ %c1 for $+ %c5 4 $+ %c1 $+ , and $+ %c3 ranged/magic attacks $+ %c1 for $+ %c5 2 $+ %c1 turns. } if (%dmspell2 && !%diddecspell) { writeini dminv.ini $nick %dmspell2 $calc($readini(dminv.ini,$nick,%dmspell2) - 1) set %dmweapused %dmweapused  | timer 1 1 notice %dm.tplayer1 %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 } unset %diddecspell } set %dm.tplayer1 %dm.tplayer2 set %dm.tplayer2 $nick timerturnswitch2 1 60 turngonetour } elseif ($nick == %dm.tplayer2) { 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. } } ;############################ POTIONS & FOOD (TOURNAMENTS) ######################### on $*:text:/^[!`@.?](eat|pot(ion)?|potions|use|drink)/Si:#DM-tournaments: { if (cast isin $1-) { halt } if (%dm.tournament == ON) { if ($nick == %dm.tplayer1) { if (%dmfreeze. [ $+ [ $nick ] ] > 0 || %toohot. [ $+ [ $nick ] ] > 0) { timer 1 1 notice $nick %c1 $+ You can't attack for $+ %c3 $iif(%dmfreeze. [ $+ [ $nick ] ], %dmfreeze. [ $+ [ $nick ] ], %toohot. [ $+ [ $nick ] ]) $+ %c1 more turn $+ $iif(%toohot. [ $+ [ $nick ] ] != 1 && %dmfreeze. [ $+ [ $nick ] ] != 1,s) $+ . dec %dmfreeze. [ $+ [ $nick ] ] dec %toohot. [ $+ [ $nick ] ] } set %dmpotname $read(dmshopitems.txt, w, $replace($2-,$chr(32),_) $+ *) set %dmpot2 $gettok(%dmpotname,1,64) set %dmpot $replace(%dmpot2,_,$chr(32)) if (!%dmpotname) { notice $nick %c1 $+ There's no such potion as $+ %c3 " $+ $2- $+ " $+ %c1 $+ . halt } if ($readini(dminv.ini,$nick,%dmpot2) <= 0 || !$readini(dminv.ini,$nick,%dmpot2)) { notice $nick %c1 $+ You don't have any $+ %c3 %dmpot $+ s $+ %c1 $+ . halt } timerturnswitch2 off if (!%dmpot) { notice $nick %c1 $+ There's no such potion as %c4 $+ " $+ $2- $+ " $+ %c1 $+ . halt } if ($gettok(%dmpotname,3,64) == apot && %dmpoisoned. [ $+ [ $nick ] ] == 40) .goto skippoison dm.poison :skippoison if ($gettok(%dmpotname,3,64) == hpot) { set %dm.heal $gettok(%dmpotname,4,64) inc %dmhealth. [ $+ [ %dm.tplayer1 ] ] %dm.heal if (%dmhealth. [ $+ [ %dm.tplayer1 ] ] > %dmstarthealth. [ $+ [ %dm.tplayer1 ] ]) { set %dm.heal $calc(%dmstarthealth. [ $+ [ %dm.tplayer1 ] ] - (%dmhealth. [ $+ [ %dm.tplayer1 ] ] - %dm.heal)) set %dmhealth. [ $+ [ %dm.tplayer1 ] ] %dmstarthealth. [ $+ [ %dm.tplayer1 ] ] } msg $chan %c2 $+ %dm.tplayer1 $+ %c1 drinks a $+ %c5 %dmpot $+ %c1 healing him with $+ %c4 %dm.heal $+ %c1 hitpoints. He now has $+ %c4 %dmhealth. [ $+ [ %dm.tplayer1 ] ] $+ %c1 hitpoints. if (uber isin %dmpot) { if (%uberpotused. [ $+ [ $nick ] ] >= 3) { notice $nick %c1 $+ You can't drink a $+ %c5 %dmpot $+ %c1 another time this fight. } set %cantbehit. [ $+ [ %dm.tplayer1 ] ] 1 if (!%uberpotused. [ $+ [ $nick ] ]) .set %uberpotused. [ $+ [ $nick ] ] 0 inc %uberpotused. [ $+ [ $nick ] ] notice $nick %c1 $+ You can drink a $+ %c5 %dmpot $+ %c6 $calc(3 - %uberpotused. [ $+ [ $nick ] ] ) $+ %c1 more times this fight. } } if ($gettok(%dmpotname,3,64) == apot) { if (%dmpoisoned. [ $+ [ $nick ] ] != 40) { msg $chan %c2 $+ %dm.tplayer1 $+ %c1 drinks an $+ %c5 %dmpot $+ %c1 releasing him from his poison. unset %dmpoisoned. [ $+ [ $nick ] ] } else { notice $nick %c1 $+ You can't cure poison from $+ %c4 Cursed arrows $+ %c1 $+ . halt } } if ($gettok(%dmpotname,3,64) == ppot) { if (%specuse. [ $+ [ $nick ] ]) { notice $nick %c1 $+ There's no need to drink a $+ %c5 %dmpot $+ %c1 if you're still able to use Special attacks. halt } set %specuse. [ $+ [ $nick ] ] 2 msg $chan %c2 $+ %dm.tplayer1 $+ %c1 drinks a $+ %c5 %dmpot $+ %c1 allowing him to use $+ %c4 2 more $+ %c1 Special attacks. } if ($gettok(%dmpotname,3,64) == mpot) { if (%magepotuse. [ $+ [ $nick ] ] > 0) { notice $nick %c1 $+ There's no need to drink a $+ %c5 %dmpot $+ %c1 if your last $+ %c5 %dmpot $+ %c1 is still active. halt } set %magepotuse. [ $+ [ $nick ] ] 5 msg $chan %c2 $+ %dm.tplayer1 $+ %c1 drinks a $+ %c5 %dmpot $+ %c1 increasing his $+ %c3 mage max hit $+ %c1 with $+ %c4 10% $+ %c1 $+ . } if ($gettok(%dmpotname,3,64) == spot) { if (%strengthpotuse. [ $+ [ $nick ] ] > 0) { notice $nick %c1 $+ There's no need to drink a $+ %c5 %dmpot $+ %c1 if your last $+ %c5 %dmpot $+ %c1 is still active. halt } set %strengthpotuse. [ $+ [ $nick ] ] 5 msg $chan %c2 $+ %dm.tplayer1 $+ %c1 drinks a $+ %c5 %dmpot $+ %c1 increasing his $+ %c3 melee max hit $+ %c1 with $+ %c4 10% $+ %c1 $+ . } if ($gettok(%dmpotname,3,64) == rpot) { if (%rangepotuse. [ $+ [ $nick ] ] > 0) { notice $nick %c1 $+ There's no need to drink a $+ %c5 %dmpot $+ %c1 if your last $+ %c5 %dmpot $+ %c1 is still active. halt } set %rangepotuse. [ $+ [ $nick ] ] 5 msg $chan %c2 $+ %dm.tplayer1 $+ %c1 drinks a $+ %c5 %dmpot $+ %c1 increasing his $+ %c3 ranged max hit $+ %c1 with $+ %c4 10% $+ %c1 $+ . } if ($gettok(%dmpotname,3,64) == dpot) { if (%defpotuse. [ $+ [ $nick ] ] > 0) { notice $nick %c1 $+ There's no need to drink a $+ %c5 %dmpot $+ %c1 if your last $+ %c5 %dmpot $+ %c1 is still active. halt } set %defpotuse. [ $+ [ $nick ] ] 5 msg $chan %c2 $+ %dm.tplayer1 $+ %c1 drinks a $+ %c5 %dmpot $+ %c1 increasing his $+ %c3 defence $+ %c1 with $+ %c4 10% $+ %c1 $+ . } writeini dminv.ini $nick %dmpot2 $calc($readini(dminv.ini,$nick,%dmpot2) - 1) timer 1 1 notice %dm.tplayer1 %c1 $+ You have $+ %c3 $readini(dminv.ini,$nick,%dmpot2) $+ %c4 %dmpot $+ s $+ %c1 left. if ($readini(dminv.ini,$nick,%dmpot2) <= 0) .remini dminv.ini $nick %dmpot2 set %dm.tplayer1 %dm.tplayer2 set %dm.tplayer2 $nick timerturnswitch2 1 60 turngonetour } elseif ($nick == %dm.tplayer2) { 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. } } ;################################################################################# ;############################ ALIASES OF TOURNY's################################# ;################################################################################# ;##################### TAKES CARE OF HEALTH PLAYERS ########################### alias -l health.check2 { dm.poison2 if (%defpotuse. [ $+ [ %dm.tplayer2 ] ] > 0) { dec %defpotuse. [ $+ [ %dm.tplayer2 ] ] set %dm.hit $gettok($calc(%dm.hit * 0.9),1,46) set %dm.totalhit $gettok($calc(%dm.totalhit * 0.9),1,46) set %dm.totalhit $gettok(%dm.totalhit,1,46) set %dm.hit $gettok(%dm.hit,1,46) timer 1 1 notice %dm.tplayer2 %c1 $+ Your $+ %c3 defence potion $+ %c1 will be active for $+ %c5 %defpotuse. [ $+ [ %dm.tplayer2 ] ] $+ %c1 more rounds. } set %dm.totalhit $gettok(%dm.totalhit,1,46) set %dm.hit $gettok(%dm.hit,1,46) if (%cloneamount) { if (%dm.totalhit > %dmhealth. [ $+ [ %dm.tplayer2 ] ]) { set %dm.totalhit %dmhealth. [ $+ [ %dm.tplayer2 ] ] } dec %dmhealth. [ $+ [ %dm.tplayer2 ] ] %dm.totalhit msg %dm.chan2 %c2 $+ %dm.tplayer1 $+ %c1 has hit, with $+ %c6 %cloneamount $+ %c1 sword $+ $iif(%cloneamount > 1,s $+), a total of $+ %c3 $gettok(%dm.totalhit,1,46) $+ %c1 on $+ %c2 %dm.tplayer2 $+ %c1 using %dmweapused msg %dm.chan2 %c2 $+ %dm.tplayer2 $+ %c1 has $+ %c4 %dmhealth. [ $+ [ %dm.tplayer2 ] ] $+ %c1 hitpoints left! unset %cloneamount unset %dm.hit* unset %dm.totalhit set %hpmsged 1 goto checkhp } if (%arrows.shot == 3) { unset %arrows.shot if (%dm.totalhit > %dmhealth. [ $+ [ %dm.tplayer2 ] ]) { set %dm.totalhit %dmhealth. [ $+ [ %dm.tplayer1 ] ] } dec %dmhealth. [ $+ [ %dm.tplayer2 ] ] %dm.totalhit msg %dm.chan2 %c2 $+ %dm.tplayer1 $+ %c1 has hit, with $+ %c6 3 $+ %c1 arrows, a total of $+ %c3 $gettok(%dm.totalhit,1,46) $+ %c1 on $+ %c2 %dm.tplayer2 $+ %c1 using %dmweapused } else { if (%dm.hit > %dmhealth. [ $+ [ %dm.tplayer2 ] ]) { set %dm.hit %dmhealth. [ $+ [ %dm.tplayer2 ] ] } msg %dm.chan2 %c2 $+ %dm.tplayer1 $+ %c1 has hit $+ %c3 %dm.hit $+ %c1 on $+ %c2 %dm.tplayer2 $+ %c1 using %dmweapused dec %dmhealth. [ $+ [ %dm.tplayer2 ] ] %dm.hit } if (!%dm.totalhit) .set %dm.totalhit %dm.hit if (%cantbehit. [ $+ [ %dm.tplayer2 ] ]) { set %dm.hit %dm.totalhit inc %dmhealth. [ $+ [ %dm.tplayer2 ] ] %dm.hit unset %cantbehit. [ $+ [ %dm.tplayer2 ] ] msg %dm.chan2 %c2 $+ %dm.tplayer2 $+ s $+ %c3 Incredible fantastic Uber health potion $+ %c1 heals him with $+ %c4 %dm.hit $+ %c1 hitpoints inmediatly. } if (%addpoison) { msg %dm.chan2 %c2 $+ %dm.tplayer2 $+ %c1 is poisoned with $+ %c6 %dm.poisondmg $+ %c1 poison damage each turn! set %dmpoisoned. [ $+ [ %dm.tplayer2 ] ] %dm.poisondmg unset %addpoison } :checkhp inc %dm.xp. [ $+ [ %dm.tplayer1 ] ] $gettok($calc(%dm.hit / 2 + 1),1,46) timer 1 1 notice %dm.tplayer1 %c1 $+ You gained $+ %c6 $gettok($calc(%dm.hit / 2 + 1),1,46) $+ %c1 expoints. if (%dmhealth. [ $+ [ %dm.tplayer2 ] ] <= 0) { msg %dm.chan2 %c2 $+ %dm.tplayer2 $+ %c1 has been defeated! $+ %c2 %dm.tplayer1 $+ %c1 gets $+ %c3 $calc(%dmlvl. [ $+ [ %dm.tplayer1 ] ] * 15) $+ %c1 bonus expoints for this fight! set %winfight 1 inc %dmloses. [ $+ [ %dm.tplayer2 ] ] inc %dmwins. [ $+ [ %dm.tplayer1 ] ] update.score inc %dm.xp. [ $+ [ %dm.tplayer1 ] ] $calc(%dmlvl. [ $+ [ %dm.tplayer1 ] ] * 15) timerturnswitch2 off xp.check2 goto nextround } if (!%hpmsged) .msg %dm.chan2 %c2 $+ %dm.tplayer2 $+ %c1 has $+ %c4 %dmhealth. [ $+ [ %dm.tplayer2 ] ] $+ %c1 hitpoints left! unset %hpmsged if (%dm.totalhit) .set %dm.hit %dm.totalhit unset %dm.totalhit return :nextround inc %fight if (%dm.tournament.winner.13) { set %dm.tournament.winner.14 $nick } elseif (%dm.tournament.winner.12) { set %dm.tournament.winner.13 $nick } elseif (%dm.tournament.winner.11) { set %dm.tournament.winner.12 $nick } elseif (%dm.tournament.winner.10) { set %dm.tournament.winner.11 $nick } elseif (%dm.tournament.winner.9) { set %dm.tournament.winner.10 $nick } elseif (%dm.tournament.winner.8) { set %dm.tournament.winner.9 $nick } elseif (%dm.tournament.winner.7) { set %dm.tournament.winner.8 $nick } elseif (%dm.tournament.winner.6) { set %dm.tournament.winner.7 $nick } elseif (%dm.tournament.winner.5) { set %dm.tournament.winner.6 $nick } elseif (%dm.tournament.winner.4) { set %dm.tournament.winner.5 $nick } elseif (%dm.tournament.winner.3) { set %dm.tournament.winner.4 $nick } elseif (%dm.tournament.winner.2) { set %dm.tournament.winner.3 $nick } elseif (%dm.tournament.winner.1) { set %dm.tournament.winner.2 $nick } else { set %dm.tournament.winner.1 $nick } timer 1 2 checkroundnext } ;################################## POISON STUFF ################################### alias -l dm.poison2 { if (%dmpoisoned. [ $+ [ %dm.tplayer1 ] ]) { if (%dmpoisoned. [ $+ [ %dm.tplayer1 ] ] > %dmhealth. [ $+ [ %dm.tplayer1 ] ]) { timerfreeze off set %dmpoisoned. [ $+ [ %dm.tplayer1 ] ] %dmhealth. [ $+ [ %dm.tplayer1 ] ] dec %dmhealth. [ $+ [ %dm.tplayer1 ] ] %dmpoisoned. [ $+ [ %dm.tplayer1 ] ] var %dm.tplayer3 = %dm.tplayer1 set %dm.tplayer1 %dm.tplayer2 set %dm.tplayer2 %dm.tplayer3 msg %dm.chan2 %c2 $+ %dm.tplayer2 $+ %c1 gets $+ %c6 %dmpoisoned. [ $+ [ %dm.tplayer2 ] ] $+ %c1 damage from poison. He now has $+ %c4 %dmhealth. [ $+ [ %dm.tplayer2 ] ] $+ %c1 hitpoints left. msg %dm.chan2 %c2 $+ %dm.tplayer2 $+ %c1 has died because of poison! $+ %c2 %dm.tplayer1 $+ %c1 gets $+ %c3 $calc(%dmlvl. [ $+ [ %dm.tplayer1 ] ] * 15) $+ %c1 bonus expoints for this fight! inc %dmloses. [ $+ [ %dm.tplayer2 ] ] inc %dmwins. [ $+ [ %dm.tplayer1 ] ] update.score if (%dm.tournament.winner.13) { set %dm.tournament.winner.14 $nick } elseif (%dm.tournament.winner.12) { set %dm.tournament.winner.13 $nick } elseif (%dm.tournament.winner.11) { set %dm.tournament.winner.12 $nick } elseif (%dm.tournament.winner.10) { set %dm.tournament.winner.11 $nick } elseif (%dm.tournament.winner.9) { set %dm.tournament.winner.10 $nick } elseif (%dm.tournament.winner.8) { set %dm.tournament.winner.9 $nick } elseif (%dm.tournament.winner.7) { set %dm.tournament.winner.8 $nick } elseif (%dm.tournament.winner.6) { set %dm.tournament.winner.7 $nick } elseif (%dm.tournament.winner.5) { set %dm.tournament.winner.6 $nick } elseif (%dm.tournament.winner.4) { set %dm.tournament.winner.5 $nick } elseif (%dm.tournament.winner.3) { set %dm.tournament.winner.4 $nick } elseif (%dm.tournament.winner.2) { set %dm.tournament.winner.3 $nick } elseif (%dm.tournament.winner.1) { set %dm.tournament.winner.2 $nick } else { set %dm.tournament.winner.1 $nick } timer 1 2 checkroundnext return } else { dec %dmhealth. [ $+ [ %dm.tplayer1 ] ] %dmpoisoned. [ $+ [ %dm.tplayer1 ] ] msg %dm.chan2 %c2 $+ %dm.tplayer1 $+ %c1 gets $+ %c6 %dmpoisoned. [ $+ [ %dm.tplayer1 ] ] $+ %c1 damage from poison. He now has $+ %c4 %dmhealth. [ $+ [ %dm.tplayer1 ] ] $+ %c1 hitpoints left. } } } ;################################# WHAT'S NEXT... ############################### alias -l checkroundnext { if (%dm.tournament.people == 8 && %fight == 2) { fight2 return } if (%dm.tournament.people == 8 && %fight == 3) { fight3 return } if (%dm.tournament.people == 8 && %fight == 4) { fight4 return } if (%dm.tournament.people == 8 && %fight == 5) { fight5.semi return } if (%dm.tournament.people == 8 && %fight == 6) { fight6.semi return } if (%dm.tournament.people == 8 && %fight == 7) { fight7.final return } if (%dm.tournament.people == 8 && %fight == 8) { msg %dm.chan2 %c2 $+ %dm.tournament.winner.7 $+ %c1 has won the $+ %c5 Tournament $+ %c1 $+ ! Therefor he gets $+ %c4 %dm.tournament.prize $+ %c1 coins! inc %dm.tournament.wins. [ $+ [ %dm.tournament.winner.7 ] ] inc %dmmoney. [ $+ [ %dm.tournament.winner.7 ] ] %dm.tournament.prize endtour return } if (%dm.tournament.people == 4 && %fight == 2) { fight2 return } if (%dm.tournament.people == 4 && %fight == 3) { fight3.final return } if (%dm.tournament.people == 4 && %fight == 4) { msg %dm.chan2 %c2 $+ %dm.tournament.winner.3 $+ %c1 has won the $+ %c5 Tournament $+ %c1 $+ ! Therefor he gets $+ %c4 %dm.tournament.prize $+ %c1 coins! inc %dm.tournament.wins. [ $+ [ %dm.tournament.winner.3 ] ] inc %dmmmoney. [ $+ [ %dm.tournament.winner.3 ] ] %dm.tournament.prize endtour return } if (%dm.tournament.people == 16 && %fight == 2) { fight2 return } if (%dm.tournament.people == 16 && %fight == 3) { fight3 return } if (%dm.tournament.people == 16 && %fight == 4) { fight4 return } if (%dm.tournament.people == 16 && %fight == 5) { fight5 return } if (%dm.tournament.people == 16 && %fight == 6) { fight6 return } if (%dm.tournament.people == 16 && %fight == 7) { fight7 return } if (%dm.tournament.people == 16 && %fight == 8) { fight8 return } if (%dm.tournament.people == 16 && %fight == 9) { fight9.kwart return } if (%dm.tournament.people == 16 && %fight == 10) { fight10.kwart return } if (%dm.tournament.people == 16 && %fight == 11) { fight11.kwart return } if (%dm.tournament.people == 16 && %fight == 12) { fight12.kwart return } if (%dm.tournament.people == 16 && %fight == 13) { fight13.kwart return } if (%dm.tournament.people == 16 && %fight == 14) { fight14.kwart return } if (%dm.tournament.people == 16 && %fight == 15) { fight15.final return } if (%dm.tournament.people == 16 && %fight == 16) { msg %dm.chan2 %c2 $+ %dm.tournament.winner.15 $+ %c1 has won the $+ %c5 Tournament $+ %c1 $+ ! Therefor he gets $+ %c4 %dm.tournament.prize $+ %c1 coins! timerstopdm2 off timerturnswitch2 off inc %dm.tournament.wins. [ $+ [ %dm.tournament.winner.15 ] ] inc %dmmoney. [ $+ [ %dm.tournament.winner.15 ] ] %dm.tournament.prize endtour return } } ;#################################### XP CHECK IN A TOURNAMENT ################################## alias -l xp.check2 { if (%winfight) .inc %dm.xp. [ $+ [ %dm.tplayer1 ] ] $calc(%dmlvl. [ $+ [ %dm.tplayer1 ] ] * 15) if (%dmlvl. [ $+ [ %dm.tplayer1 ] ] == 1 ) { set %dm.lvl.req. [ $+ [ %dm.tplayer1 ] ] 100 } else { set %dm.lvl.req. [ $+ [ %dm.tplayer1 ] ] $calc(%dmlvl. [ $+ [ $nick ] ] ^ 3 * 0.6 + %dmlvl. [ $+ [ $nick ] ] * 100)) } lvl.check2 } ;##################################### LVL CHECK IN A TOURNAMENT ################################# alias -l lvl.check2 { if (%dm.xp. [ $+ [ %dm.tplayer1 ] ] >= %dm.lvl.req. [ $+ [ %dm.tplayer1 ] ]) { inc %dmlvl. [ $+ [ %dm.tplayer1 ] ] msg %dm.chan2 %c6 $+ Congratulations! $+ %c2 %dm.tplayer1 $+ %c6 just leveled up! He now is level $+ %c5 %dmlvl. [ $+ [ %dm.tplayer1 ] ] $+ %c6 $+ ! notice %dm.tplayer1 %c1 $+ From now on, you'll have $+ %c4 $gettok($calc(%dmlvl. [ $+ [ %dm.tplayer1 ] ] ^1.2 * 30 + 80),1,46) $+ %c1 hitpoints. } } ;############################ NOT ATTACK WITHIN 1 MINUTE ######################################### alias -l turngonetour { if (%dm.tournament == ON) { dm.poison2 msg %dm.chan2 %c2 $+ %dm.tplayer1 $+ %c1 hasn't attacked or used a potion/spell within $+ %c3 1 minute $+ %c1 $+ ; $+ %c2 %dm.tplayer2 $+ 's $+ %c1 turn. var %dm.tplayer3 = %dm.tplayer1 set %dm.tplayer1 %dm.tplayer2 set %dm.tplayer2 %dm.tplayer3 } } ;############################## TOURNAMENT NOT FULL WITHIN 1 MINUTE ############################### alias -l tooSlowTour { msg %dm.chan2 %c1 $+ Not enough people signed up for the tournament $+ %c2 %dm.tournament.starter $+ %c1 started, within $+ %c4 2 $+ %c1 minutes. Tournament Challenge timed out. if (!%tourstoppedrem) { inc %dmmoney. [ $+ [ %DM.tournament.player.1 ] ] %dm.tournament.stake if (%DM.tournament.player.5) .inc %dmmoney. [ $+ [ %DM.tournament.player.2 ] ] %dm.tournament.stake) if (%DM.tournament.player.5) .inc %dmmoney. [ $+ [ %DM.tournament.player.3 ] ] %dm.tournament.stake if (%DM.tournament.player.5) .inc %dmmoney. [ $+ [ %DM.tournament.player.4 ] ] %dm.tournament.stake if (%DM.tournament.player.5) .inc %dmmoney. [ $+ [ %DM.tournament.player.5 ] ] %dm.tournament.stake if (%DM.tournament.player.6) .inc %dmmoney. [ $+ [ %DM.tournament.player.6 ] ] %dm.tournament.stake if (%DM.tournament.player.7) .inc %dmmoney. [ $+ [ %DM.tournament.player.7 ] ] %dm.tournament.stake if (%DM.tournament.player.8) .inc %dmmoney. [ $+ [ %DM.tournament.player.8 ] ] %dm.tournament.stake if (%DM.tournament.player.9) .inc %dmmoney. [ $+ [ %DM.tournament.player.9 ] ] %dm.tournament.stake if (%DM.tournament.player.10) .inc %dmmoney. [ $+ [ %DM.tournament.player.10 ] ] %dm.tournament.stake if (%DM.tournament.player.11) .inc %dmmoney. [ $+ [ %DM.tournament.player.11 ] ] %dm.tournament.stake if (%DM.tournament.player.12) .inc %dmmoney. [ $+ [ %DM.tournament.player.12 ] ] %dm.tournament.stake if (%DM.tournament.player.13) .inc %dmmoney. [ $+ [ %DM.tournament.player.13 ] ] %dm.tournament.stake if (%DM.tournament.player.14) .inc %dmmoney. [ $+ [ %DM.tournament.player.14 ] ] %dm.tournament.stake if (%DM.tournament.player.15) .inc %dmmoney. [ $+ [ %DM.tournament.player.15 ] ] %dm.tournament.stake if (%DM.tournament.player.16) .inc %dmmoney. [ $+ [ %DM.tournament.player.16 ] ] %dm.tournament.stake } unset %dm.tplayer* unset %dm.tour* unset %dm.chan2 } ;###################################### STOP THE TOURNAMENT ####################################### alias -l endtour { timerturnswitch2 off if (!%tourstoppedrem) { inc %dmmoney. [ $+ [ %DM.tournament.player.1 ] ] %dm.tournament.stake if (%DM.tournament.player.5) .inc %dmmoney. [ $+ [ %DM.tournament.player.2 ] ] %dm.tournament.stake) if (%DM.tournament.player.5) .inc %dmmoney. [ $+ [ %DM.tournament.player.3 ] ] %dm.tournament.stake if (%DM.tournament.player.5) .inc %dmmoney. [ $+ [ %DM.tournament.player.4 ] ] %dm.tournament.stake if (%DM.tournament.player.5) .inc %dmmoney. [ $+ [ %DM.tournament.player.5 ] ] %dm.tournament.stake if (%DM.tournament.player.6) .inc %dmmoney. [ $+ [ %DM.tournament.player.6 ] ] %dm.tournament.stake if (%DM.tournament.player.7) .inc %dmmoney. [ $+ [ %DM.tournament.player.7 ] ] %dm.tournament.stake if (%DM.tournament.player.8) .inc %dmmoney. [ $+ [ %DM.tournament.player.8 ] ] %dm.tournament.stake if (%DM.tournament.player.9) .inc %dmmoney. [ $+ [ %DM.tournament.player.9 ] ] %dm.tournament.stake if (%DM.tournament.player.10) .inc %dmmoney. [ $+ [ %DM.tournament.player.10 ] ] %dm.tournament.stake if (%DM.tournament.player.11) .inc %dmmoney. [ $+ [ %DM.tournament.player.11 ] ] %dm.tournament.stake if (%DM.tournament.player.12) .inc %dmmoney. [ $+ [ %DM.tournament.player.12 ] ] %dm.tournament.stake if (%DM.tournament.player.13) .inc %dmmoney. [ $+ [ %DM.tournament.player.13 ] ] %dm.tournament.stake if (%DM.tournament.player.14) .inc %dmmoney. [ $+ [ %DM.tournament.player.14 ] ] %dm.tournament.stake if (%DM.tournament.player.15) .inc %dmmoney. [ $+ [ %DM.tournament.player.15 ] ] %dm.tournament.stake if (%DM.tournament.player.16) .inc %dmmoney. [ $+ [ %DM.tournament.player.16 ] ] %dm.tournament.stake } unset %tourstoppedrem unset %dm*tour* unset %dm.tplayer* timerchallenge2 off }