//===== Hercules Script ======================================
//= Lord Kaho's Horns Quest
//===== By: ==================================================
//=
//===== Current Version: =====================================
//= 1.1
//===== Compatible With: =====================================
//= Hercules
//===== Description: =========================================
//= Custom quest for Lord Kaho's Horns.
//===== Additional Comments: =================================
//= 1.1 Optimized, and fixed some requirements. [Euphy]
//============================================================
geffen,115,107,5 script Lord Kaho's Servant 61,{
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.";
next;
mes .@n$;
mes "You need the following to get the Kaho horns:";
mes "3x ^0055FFEmperium^000000";
next;
mes .@n$;
mes "Oh yeah...";
mes "I also forgot to mention these...";
next;
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 .@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 .@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;
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!";
getitem 5013,1;
mes "Enjoy being God of Rune-Midgard!";
close;
}
