summaryrefslogtreecommitdiff
path: root/npc/custom/quests/kaho_balmung.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/custom/quests/kaho_balmung.txt')
-rw-r--r--npc/custom/quests/kaho_balmung.txt51
1 files changed, 51 insertions, 0 deletions
diff --git a/npc/custom/quests/kaho_balmung.txt b/npc/custom/quests/kaho_balmung.txt
new file mode 100644
index 000000000..f3a82def4
--- /dev/null
+++ b/npc/custom/quests/kaho_balmung.txt
@@ -0,0 +1,51 @@
+//===== 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;
+} \ No newline at end of file