AS OF SVN REV. 5901, WE ARE NOW USING TRUNK. ALL UNTESTED BUGFIXES/FEATURES GO INTO TRUNK.

IF YOU HAVE A WORKING AND TESTED BUGFIX PUT IT INTO STABLE AS WELL AS TRUNK.  EVERYTHING ELSE
GOES INTO TRUNK AND WILL BE MERGED INTO STABLE BY VALARIS AND WIZPUTER. -- VALARIS


git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@5094 54d463be-8e91-2dee-dedb-b68131a5f0ec

1 files changed, 320 insertions, 0 deletions

diff --git a/npc/quests/quests_ayothaya.txt b/npc/quests/quests_ayothaya.txt
new file mode 100644
index 000000000..bd749c177
--- /dev/null
+++ b/npc/quests/quests_ayothaya.txt
@@ -0,0 +1,320 @@
+//===== Athena Script =======================================

+//= Ayothaya Quests

+//===== By ================================================

+//= Fredzilla

+//===== Version ===========================================

+//= 1.4

+//===== Compatible With ===================================

+//= eAthena 1.0

+//===== Description =======================================

+//= 1 Quests with 2 parts for Ayothaya

+//===== Comments ==========================================

+//= List or Variables used

+//= @fishing - 	Checks for if you have caught a fish or not, 

+//=	       	1/10 chance you will get the wedding ring if 

+//=		you have started that quest.

+//= weddingring - Signifies the start of the wedding ring 

+//=               quest, and used throughout to keep track of 

+//=               progress.

+//= recoveredring - Signifies you have retrieved the ring 

+//=		    and therefore can't just drop the ring and 

+//=		    get the same quest again.

+//= 1.0 - First Release, made with infomation from RagnaInfo

+//= 1.1 - added anti-novice protection [Lupus]

+//= 1.3 - Fixed exploit [Lupus]

+//= 1.4 Updated, more close to the official. Thanks to birkiczd

+//=	Also optimized it again, remove unused global variable [Lupus]

+//=========================================================

+

+ayo_dun02.gat,277,178,1	script	OBB	139,4,4,{

+	if(AyoOBB==1 || weddingring!=3) end;

+	mes "["+strcharinfo(0)+"]";

+	mes "Huh what is this?, not foot prints, this is an Old Blue coloured Box";

+	next;

+	set AyoOBB,1;

+	getitem 603,1;

+	logmes "Q_AYOTH1: got OBB";

+	mes "["+strcharinfo(0)+"]";

+	mes "I think I will keep it";

+	close;

+}

+//Dungeon 1 foot prints x 5

+ayo_dun01.gat,30,149,1	script	Clue	139,5,5,{

+	if(weddingring!=3) end;

+	npctalk "There are some foot prints here, they head off to the East.";

+	set @footprints1,1;

+	close;

+}

+ayo_dun01.gat,70,149,1	script	Clue	139,5,5,{

+	if(weddingring!=3) end;

+	npctalk "There are some more foot prints, they are heading off to the East too!";

+	set @footprints2,1;

+	close;

+}

+ayo_dun01.gat,100,149,1	script	Clue	139,5,5,{

+	if(weddingring!=3) end;

+	npctalk "More foot prints heading to the East, who do they belong too?";

+	set @footprints3,1;

+	close;

+}

+ayo_dun01.gat,190,149,1	script	Clue	139,5,5,{

+	if(weddingring!=3) end;

+	npctalk "More foot prints, but these are going North.";

+	set @footprints4,1;

+	close;

+}

+ayo_dun01.gat,261,263,1	script	Clue	139,5,5,{

+	if(weddingring!=3) end;

+	npctalk "There are some foot prints, they seem to head into that hole there.";

+	set @footprints5,1;

+	close;

+}

+

+//Dungeon 2 foot prints x 4 + 1 fake

+ayo_dun02.gat,222,204,1	script	Clue	139,5,5,{

+	if(weddingring!=3) end;

+	npctalk "Yet more foot prints, they are either going South or West.";

+	set @footprints6,1;

+	close;

+}

+ayo_dun02.gat,169,212,1	script	Clue	139,5,5,{

+	if(weddingring!=3) end;

+	npctalk "Looks like there are foot print going to the West.";

+	set @footprints7,1;

+	close;

+}

+ayo_dun02.gat,129,212,1	script	Clue	139,5,5,{

+	if(weddingring!=3) end;

+	npctalk "Ok these foot prints are either going to the North or West.";

+	set @footprints8,1;

+	close;

+}

+ayo_dun02.gat,79,212,1	script	Clue	139,7,7,{

+	if(weddingring!=3) end;

+	npctalk "These are very new, they are going North.";

+	set @footprints9,1;

+	close;

+}

+//FAKE

+ayo_dun02.gat,245,166,1	script	Clue	139,7,7,{

+	if(weddingring!=3) end;

+	npctalk "Seems something came by this way, to the East.";

+	close;

+}

+

+ayothaya.gat,233,105,7	script	Shuda	838,{

+	mes "[Shuda]";

+	if(BaseLevel<50) {

+		mes "Where is my ring!?!";

+		close;

+	}

+	if(weddingring==2) goto L_Quest2;

+	if(weddingring==3) goto L_OnQ2;

+	if(weddingring==4) goto L_QuestComplete;

+	if(weddingring==5) goto L_QuestOver;

+	if(countitem(7288)>=1) goto L_RingFound;

+	mes "Oh please wont you help me, my partner has gone missing, but not before droping our ^FF0000Engagement Ring^000000 maybe there is a way of ^0000FFfishing^000000 it out of the sea.";

+	set weddingring,1;

+	close;

+L_RingFound:

+	mes "Oh is that my ring!?!";

+	next;

+	mes "[Shuda]";

+	mes "Can I please have it back?";

+	next;

+	menu "Yes, here you go",N_Yes,"No, I found it, it's mine",-;

+	mes "[Shuda]";

+	mes "Think what you want, but that ring is mine, and without it I can never marry my true love.";

+	mes "";

+	mes "Where ever he may be.";

+	close;

+N_Yes:

+	mes "[Shuda]";

+	if(countitem(7288)<1) {

+		mes "Go away, cheater!";

+		close;

+	}

+	delitem 7288,1;

+	mes "Thank you so much, now I have this back maybe my partner will return.";

+	set weddingring,2;

+	next;

+	mes "[Shuda]";

+	mes "Come back to me when you have time, I need you to do something else for me.";

+	close;

+L_Quest2:

+	mes "It seems even though I have my ring back my partner ^FF0000Annon^000000 doesn't seem to want to come back to me";

+	mes "Maybe he has gotten lost somewhere";

+	mes "";

+	mes "Will you please go and look for him";

+	next;

+	menu "Yes, I would be glad to",L_YesQ2,"No, he will come back on his own",-;

+	mes "[Shuda]";

+	mes "Well he might, but I still need someone to find him, I am afraid something might have happened to him.";

+	close;

+L_YesQ2:

+	set weddingring,3;

+	mes "[Shuda]";

+	mes "Oh thank you so much, I think someone in the town might have seen where he went, maybe he can give you a clue";

+	close;

+L_OnQ2:

+	mes "Have you been able to find my love yet?";

+	mes " ";

+	mes "Please hurry.";

+	mes "*tear*";

+	close;

+L_QuestComplete:

+	mes "You have found him ?!?";

+	mes "Then where is he???";

+	next;

+	mes "You explain the situation.";

+	next;

+	mes "[Shuda]";

+	mes "Well, I thought he was my one.";

+	mes "I don't think I will ever find another like him.";

+	mes "*tear*";

+	next;

+	set weddingring,5;

+	mes "[Shuda]";

+	mes "I can understand, but why not come and talk to me about it, we might have been able to talk it out.";

+	close;

+L_QuestOver:

+	mes "Nice to see you again "+strcharinfo(0)+". How have you been?";

+	close;

+}

+

+ayothaya.gat,253,99,3	script	Fisherman	843,{

+	mes "[Dannai]";

+	mes "This place is known to be teeming with fish. The fish here tend to eat anything they find, so it's easy to catch them.";

+	next;

+	mes "[Dannai]";

+	mes "We are providing a fishing rod rental service. Every time you fish, you'll need ^4466771 Monster's Food^000000 to use as bait, and pay a rod rental fee of ^44667750 Zeny^000000.";

+	next;

+	mes "[Dannai]";

+	mes "Would you";

+	mes "like to try?";

+	next;

+	menu "Yes",-,"No",L_No;

+	if(countitem(528) < 1 || zeny < 50) goto L_Fail;

+	delitem 528,1;

+	set zeny,zeny-50;

+	mes "[Fisher Man]";

+	mes "Ok give it a good swing.";

+	mes "Lets see if you got anything.";

+	next;

+	set @fishing, rand(1,10);

+	mes "[Fisher Man]";

+	if(@fishing<5) goto L_Nothing;

+	if(@fishing<10) goto L_Fish;

+	if(@fishing==10) goto L_RingCheck;

+L_No:

+	mes "[Dannai]";

+	mes "Come back anytime.";

+	close;

+L_Fail:

+	mes "[Dannai]";

+	mes "Seems you don't have what I need";

+	mes "Come back when you have some Monster Feed, and 50 zeny.";

+	close;

+L_Nothing:

+	mes "Sorry it seems like you didn't get anything, try again anytime.";

+	close;

+L_Fish:

+	getitem 544,1;

+	mes "Look at this you got yourself a fish, well done.";

+	close;

+L_RingCheck:

+	if(weddingring!=1 || recoveredring==1) goto L_Fish;

+	mes "What is this, some sort of ring!!!";

+	mes "Well I guess since you fished it out you can keep it";

+	next;

+	getitem 7288,1;

+	mes "[Fisher Man]";

+	mes "Come back anytime";

+	set weddingring,0;

+	set recoveredring,1;

+	close;

+}

+

+ayothaya.gat,192,171,4	script	Old Man	824,{

+	mes "[Tham]";

+	if(weddingring==3) goto L_OnQ2;

+	mes "What a nice day it is today, don't you agree?";

+	close;

+L_OnQ2:

+	mes "What! Annon is missing, I only saw him a few minutes ago.";

+	next;

+	mes "[Tham]";

+	mes "He was heading for Ayothaya's dungeon, I thought this kind of odd, and now you say he hasn't come back?!?";

+	mes "I think you should follow him in there, just in case something has happened to him";

+	next;

+	mes "[Tham]";

+	mes "Maybe he has left something inside the dungeon, something that can lead you to him";

+	mes "But thats just me";

+	next;

+	mes "[Tham]";

+	mes "You can get to the dungeon through the old temple, it is one map to the right of here, and down the hill.";

+	close;

+}

+

+ayo_dun02.gat,91,264,4	script	Guy	822,{

+	if(weddingring==4) goto L_QuestComplete;

+	if(weddingring==5) goto L_TalkedShuda;

+	if(weddingring==3 && @footprints1==1 && @footprints2==1 && @footprints3==1 && @footprints4==1 && @footprints5==1 && @footprints6==1 && @footprints7==1 && @footprints8==1 && @footprints9==1) goto L_Groom;

+	mes "[Guy]";

+	mes "She won't find me here,she won't...";

+	close;

+L_Groom:

+	

+	mes "[Annon]";

+	mes "Help me please...";

+	next;

+	mes "["+strcharinfo(0)+"]";

+	mes "^He seems to be injured very bad...";

+	next;

+	menu "Treat his wounds",-,"Leave him alone",L_Go;

+	if(countitem(504) < 1) goto L_Need;

+	delitem 504,1;

+	mes "[Annon]";

+	mes "Who are you";

+	mes "Have you been sent to follow me?";

+	next;

+	mes "[Annon]";

+	mes "So I see now, my ex-partner has sent you to see if I'm OK.";

+	mes " ";

+	mes "Can you go and tell her I'm ok, but I cant go through with the marriage.";

+	next;

+	mes "[Annon]";

+	mes "I cant really give a reason, just tell her that I love her, but not enough to spend the rest of my life with her.";

+	next;

+	mes "[Annon]";

+	mes "I hope she will understand.";

+	mes " ";

+	mes "I guess you will want something in return.";

+	next;

+	mes "[Annon]";

+	mes "I can train you, and make you gain some exp.";

+	mes " ";

+	mes "I will do this now.";

+	next;

+	set BaseExp,BaseExp+100000;

+	set weddingring,4;

+	mes "[Annon]";

+	mes "It is done, please make you way back to Shuda, and please try not to make her cry";

+	close;

+L_Need:

+	mes "["+strcharinfo(0)+"]";

+	mes "I need a White potion to be able to cure him.";

+	close;

+L_Go:

+	mes "["+strcharinfo(0)+"]";

+	mes "Someone else will probably find him.I have other things to do.";

+	close;

+L_QuestComplete:

+	mes "[Annon]";

+	mes "Have you seen Shuda yet?";

+	close;

+L_TalkedShuda:

+	mes "[Annon]";

+	mes "Did she take it OK?";

+	close;

+}
\ No newline at end of file