summaryrefslogtreecommitdiff
path: root/npc/custom/quests/kahohorn.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/custom/quests/kahohorn.txt')
-rw-r--r--npc/custom/quests/kahohorn.txt119
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