//===== rAthena Script =======================================
//= Balmung & Lord Kaho's Horns Quest
//===== By: ==================================================
//= MagicalTux
//===== Current Version: =====================================
//= 1.1
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
//= Custom quests for Balmung and Lord Kaho's Horns.
//= WARNING: The quests are very easy, so be careful!
//===== Additional Comments: =================================
//= 1.1 Cleaned and optimized. [Euphy]
//============================================================
prontera,158,356,4 script Royal Messenger 105,{
setarray .@Req1[0],1161,999,120,984,10,996,10,994,10,995,10,997,10;
setarray .@Req2[0],5013,2298,1,1001,10,996,10,994,10,995,10,997,10;
mes "[Royal Messenger]";
mes "Welcome to Prontera.";
mes "I am the messenger in charge of the Royal Quests.";
next;
if(select("Listen...:Walk away")==2) close;
mes "[Royal Messenger]";
mes "There are two quests.";
mes "Choose the one you like.";
next;
set .@i, select("Balmung:Lord Kaho's Horns:^777777Never mind.^000000");
mes "[Royal Messenger]";
if (.@i==3) {
mes "Have a nice day.";
close; }
mes "You will need the following items:";
for(set .@j,1; .@j<13; set .@j,.@j+2) {
mes " ~ "+getd(".@Req"+.@i+"["+(.@j+1)+"]")+"x ^0055FF"+getitemname(getd(".@Req"+.@i+"["+.@j+"]"))+"^000000";
if (!.@nr && countitem(getd(".@Req"+.@i+"["+.@j+"]")) < getd(".@Req"+.@i+"["+(.@j+1)+"]")) set .@nr,1; }
mes " ~ 1,000,000z";
next;
mes "[Royal Messenger]";
if (.@nr || Zeny < 1000000) {
mes "Come back when you meet all the requirements.";
close; }
for(set .@j,1; .@j<13; set .@j,.@j+2)
delitem getd(".@Req"+.@i+"["+.@j+"]"), getd(".@Req"+.@i+"["+(.@j+1)+"]");
set Zeny, Zeny-1000000;
mes "I see you already have all the items you need. Here's your "+getitemname(getd(".@Req"+.@i+"[0]"))+", as promised.";
getitem getd(".@Req"+.@i+"[0]"),1;
close;
}
