From 620e60eebce2c1f35c5c9a82f6ca365b316587f5 Mon Sep 17 00:00:00 2001 From: Valaris Date: Sun, 29 Jan 2006 16:10:48 +0000 Subject: 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 --- npc/quests/quests_ayothaya.txt | 320 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 320 insertions(+) create mode 100644 npc/quests/quests_ayothaya.txt (limited to 'npc/quests/quests_ayothaya.txt') 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 -- cgit v1.2.3-60-g2f50