diff options
Diffstat (limited to 'npc/custom/quests/kahohorn.txt')
| -rw-r--r-- | npc/custom/quests/kahohorn.txt | 119 |
1 files changed, 46 insertions, 73 deletions
diff --git a/npc/custom/quests/kahohorn.txt b/npc/custom/quests/kahohorn.txt index 7b3d7b50b..697047821 100644 --- a/npc/custom/quests/kahohorn.txt +++ b/npc/custom/quests/kahohorn.txt @@ -3,94 +3,67 @@ //===== By: ================================================== //= //===== Current Version: ===================================== -//= 1.0 +//= 1.1 //===== Compatible With: ===================================== //= rAthena SVN //===== Description: ========================================= -//= +//= Custom quest for Lord Kaho's Horns. //===== Additional Comments: ================================= -//= This quest is custom. Don't use it. +//= 1.1 Optimized, and fixed some requirements. [Euphy] //============================================================ geffen,115,107,5 script Lord Kaho's Servant 61,{ - mes "[Lord Kaho's Servant]"; + + setarray .@Items[0],7005, 968, 923, 734, 724,2268,7036,7020,5053,7018,741,742,743,750,751,752,753,754; + setarray .@Drops[0],1272,1087,1039,1260,1046,1115,1252,1147,1038,1059; + set .@n$, "[Lord Kaho's Servant]"; + + mes .@n$; mes "I worked myself to death trying to fulfill Lord Kaho's ridiculous expectations for a headgear!"; - mes "Now that I've finally found the formula for the perfect headgear, I'm willing to share my time and talents"; + mes "Now that I've finally found the formula for the perfect headgear, I'm willing to share my time and talents."; next; - mes "You need the following to get the Kaho horns!"; - mes "3 emperiums"; - mes "Oh yea... i also forgot to mention these X_X"; + mes .@n$; + mes "You need the following to get the Kaho horns:"; + mes "3x ^0055FFEmperium^000000"; next; - mes "1 Skull - From Dark Lord"; - mes "1 Heroic Emblem - From Orc Hero"; - mes "1 Evil Horn - From Baphomet"; - mes "1 Red Frame - From Doppelganger"; - mes "1 Smoking Pipe - From Eddga"; - mes "1 Fang of Garm - From Garm"; - mes "1 Mother's Nightmare - From Maya"; - mes "1 Sphynx Hat - from Osiris"; - mes "1 Diamond Ring - from Mistress"; + mes .@n$; + mes "Oh yeah..."; + mes "I also forgot to mention these..."; next; - mes "Were' not done yet sweety..."; - mes "Im a big fan of dolls, so you need to bring me these cuties"; - mes "1 Poring Doll - a Poring drop"; - mes "1 Chonchon Doll - a Chonchon Drop"; - mes "1 Baphomet Doll - a Baphomet drop"; - mes "1 Osiris Doll - an Osiris drop"; - mes "1 Rocker Doll - a Rocker drop"; - mes "1 Apez Fanitem Doll - a Yoyo drop"; - mes "1 Racoon Doll - a Smokie drop"; - mes "1 Spore Doll - a Spore drop"; + mes .@n$; + for(set .@i,0; .@i<10; set .@i,.@i+1) + mes "1x ^0055FF"+getitemname(.@Items[.@i])+"^000000 (from "+strmobinfo(1,.@Drops[.@i])+")"; next; - mes "Finally, i worked hard to make these horns for my master with all the mentioned items above..."; - mes "Please include 5 million zeny for my efforts."; + mes .@n$; + mes "We're not done yet, sweetie..."; + mes "I'm a big fan of dolls, so you need to bring me these cuties!"; + for(set .@i,10; .@i<18; set .@i,.@i+1) + mes "1x ^0055FF"+getitemname(.@Items[.@i])+"^000000"; next; - mes "[Lord Kaho's Servant]"; - mes ". . . . . ."; + mes .@n$; + mes "Finally, I've worked hard to make these horns for my master with all the items mentioned above..."; + mes "Please include ^0055FF5 million Zeny^000000 for my efforts."; + next; + mes .@n$; mes "Are you ready for me to make this special item?"; next; - menu "Sure am!",-,"These requirements are unfathomable!",LUnfathomable; - - mes "[Lord Kaho's Servant]"; - if(countitem(754) < 1 || countitem(753) < 1 || countitem(752) < 1 || countitem(751) < 1 || countitem(750) < 1 - || countitem(743) < 1 || countitem(742) < 1 || countitem(741) < 1 || countitem(2613) < 1 - || countitem(5053) < 1 || countitem(7020) < 1 || countitem(7036) < 1 || countitem(2268) < 1 - || countitem(734) < 1 || countitem(923) < 1 || countitem(968) < 1 || countitem(7005) < 1 - || countitem(714) < 3 || Zeny < 5000000) goto LNotEnough; - delitem 754,1; - delitem 753,1; - delitem 752,1; - delitem 751,1; - delitem 750,1; - delitem 743,1; - delitem 742,1; - delitem 741,1; - delitem 2613,1; - delitem 5053,1; - delitem 7020,1; - delitem 7036,1; - delitem 2268,1; - delitem 734,1; - delitem 923,1; - delitem 968,1; - delitem 7005,1; + if(select("Sure am!:These requirements are unfathomable!")==2) { + mes .@n$; + mes "What I had to go through was more unfathomable..."; + mes "If you succeed in getting these items, you will have incredible strength!"; + close; } + mes .@n$; + for(set .@i,0; .@i<18; set .@i,.@i+1) + if (!countitem(.@Items[.@i])) { set .@nr,1; break; } + if (.@nr || countitem(714) < 3 || Zeny < 5000000) { + mes "I can't afford to make this if you don't bring all materials needed. Please understand this is to benefit heroes such as yourself!"; + close; } + for(set .@i,0; .@i<18; set .@i,.@i+1) + delitem .@Items[.@i],1; delitem 714,3; - set Zeny,Zeny-5000000; - mes "Wow! You are brave indeed!"; + set Zeny, Zeny-5000000; + mes "Wow! You are brave indeed!"; getitem 5013,1; - mes ". . . . ."; - mes "Enjoy being God of Rune Midgard!"; - close; - -LNotEnough: - mes ". . . . ."; - mes ". . .I'm sorry .. You don't have enough money and items .."; - mes "I can't afford to make this if you don't bring all materials needed. Please understand this is to benefit heroes such as yourself!"; - close; - -LUnfathomable: - mes ". . . . ."; - mes "What I had to go through was more unfathomable.."; - mes "If you succeed in getting these items, you will have incredible strength!"; + mes "Enjoy being God of Rune-Midgard!"; close; -} +}
\ No newline at end of file |