finish Access to Meriana part

data/actions/actions.xml

@@ -174,6 +174,7 @@
 	<action itemid="4872" script="misc/ice_pick.lua" />
 	<action itemid="3456" script="misc/pick.lua" />
 	<action itemid="3457" script="misc/shovel.lua" />
+	<action itemid="3452" script="misc/rake.lua" />
 	<action itemid="5710" script="misc/shovel.lua" />
 	<action itemid="3483" allowfaruse="1" script="misc/fishing_rod.lua" />
 	<action itemid="5865" script="misc/juice_squeezer.lua" />

data/actions/scripts/misc/rake.lua

@@ -0,0 +1,12 @@
+function onUse(player, item, fromPosition, target, toPosition, isHotkey)
+	-- The Shattered Isles Parrot ring
+	if target.itemid == 6094 then
+		if player:getStorageValue(17502) == 1 and player:getStorageValue(17503) ~= 1 then
+			toPosition:sendMagicEffect(CONST_ME_POFF)
+			Game.createItem(6093, 1, Position(32422, 32770, 1))
+			player:say("You have found a ring.", TALKTYPE_MONSTER_SAY)
+			player:setStorageValue(17503, 1)
+		end
+	end
+	return true
+end

data/items/items.srv

@@ -26932,7 +26932,8 @@ Flags       = {Take}
 Attributes  = {Weight=250}
 
 TypeID      = 5952
-Name        = "a scroll"
+Name        = "a poem scroll"
+Description = "It contains a love poem, written by an unknown elven poet."
 Flags       = {Take}
 Attributes  = {Weight=120}
 
@@ -27641,7 +27642,7 @@ TypeID      = 6093
 Name        = "a crystal ring"
 Description = "The initials E.S. are engraved on it"
 Flags       = {Take}
-Attributes  = {Weight=90}
+Attributes  = {Weight=90,SlotType=RING}
 
 TypeID      = 6094
 Name        = "a thread tree"

data/movements/movements.xml

@@ -585,6 +585,7 @@
 	<movevent event="AddItem" itemid="2526" tileitem="1" script="misc/dustbin.lua" />
 	<movevent event="RemoveItem" itemid="2927" script="misc/candelabrum.lua" />
 	<movevent event="RemoveItem" itemid="3482" script="misc/open_trap.lua" />
+	<movevent event="StepIn" frommovementid="51191" tomovementid="51198" script="misc/turtles.lua" />
 	
 	<!--Doors -->
 	<movevent event="StepOut" itemid="1643" script="misc/doors.lua" />

data/movements/scripts/misc/turtles.lua

@@ -0,0 +1,34 @@
+local config = {
+	[51191] = Position(32359, 32901, 7),
+	[51192] = Position(32340, 32538, 7),
+	[51193] = Position(32472, 32869, 7),
+	[51194] = Position(32415, 32916, 7),
+	[51195] = Position(32490, 32979, 7),
+	[51196] = Position(32440, 32971, 7),
+	[51197] = Position(32523, 32923, 7),
+	[51198] = Position(32527, 32951, 7)
+}
+
+function onStepIn(creature, item, position, fromPosition)
+	local player = creature:getPlayer()
+	if not player then
+		return true
+	end
+
+	local targetPosition = config[item:getMovementId()]
+	if not targetPosition then
+		return true
+	end
+
+	if item:getMovementId() == 51191 and player:getStorageValue(17502) < 13 then
+		player:teleportTo(Position(32340, 32540, 7))
+		position:sendMagicEffect(CONST_ME_TELEPORT)
+		Position(32340, 32540, 7):sendMagicEffect(CONST_ME_TELEPORT)
+		return true
+	end
+
+	player:teleportTo(targetPosition)
+	position:sendMagicEffect(CONST_ME_TELEPORT)
+	targetPosition:sendMagicEffect(CONST_ME_TELEPORT)
+	return true
+end

data/npc/captainwaveriderlibertybay.npc

@@ -21,12 +21,15 @@ VANISH,!                  -> "Oh well."
 "sail"          -> "Where do you want to go? To Treasure Island?"
 "passage"          -> *
 
-"treasure island"       -> Price=200, "Do you seek a passage to Treasure Island for %P?", Topic=1
+"treasure","island"       -> Price=200, "Do you seek a passage to Treasure Island for %P?", Topic=1
+"peg","leg",QuestValue(17502)>5       -> Price=50, "Ohhhh. So... <lowers his voice> 'you know who' sent you so I sail you to 'you know where'. <wink> <wink> It will cost 50 gold to cover my expenses. Is it that what you wish?", Topic=2
 
 Topic=1,"yes",PZBlock,! -> "First get rid of those blood stains! You are not going to ruin my vehicle!"
-
+Topic=2,"yes",PZBlock,! -> "First get rid of those blood stains! You are not going to ruin my vehicle!"
 
 Topic=1,"yes",Premium,CountMoney>=Price -> "Set the sails!", DeleteMoney, Idle, EffectOpp(11), Teleport(32132,32913,7), EffectOpp(11)
+Topic=2,"yes",Premium,CountMoney>=Price -> "Set the sails!", DeleteMoney, Idle, EffectOpp(11), Teleport(32348,32625,7), EffectOpp(11)
+
 Topic>0,"yes",CountMoney>=Price         -> "I'm sorry, but you need a premium account in order to travel onboard our ships."
 Topic>0,"yes"                           -> "You don't have enough money."
 Topic>0                                 -> "We would like to serve you some time."

data/npc/charlotta.npc

@@ -113,4 +113,9 @@ Topic=3,"yes",CountMoney<Price            -> "Sorry, you do not have enough gold
 Topic=3,"yes"                             -> "Here you are. Look in your spellbook for the pronunciation of this spell.", DeleteMoney, EffectOpp(13), TeachSpell(String)
 Topic=3                                   -> "Maybe next time."
 
+"mission",QuestValue(17502)=3      -> Price=200, "Oh, so you brought some gold from Eleonore to me?", Topic=4
+"errand",QuestValue(17502)=3      -> *
+
+Topic=4,"yes" -> "Hmm, it seems that Eleonore does trust you. Perhaps she is even right. However. Since we need some help right now I guess we can't be too picky. Return to Eleonore and tell her the secret password: 'peg leg'. She will tell you more about her problem.", DeleteMoney, SetQuestValue(17502,4)
+Topic=4                         -> "Hmm, interesting how do you even know about the errand then..."
 }

data/npc/chondur.npc

@@ -47,4 +47,6 @@ VANISH,!           -> "Good bye."
 "banana"         -> "A banana staff is the sign of a high ape magician."
 "pirates"         -> "You have to understand that there are two groups of people that are called pirates. One consists of evil thieves and murderers for whom the word pirate actually stands for. ...",
 					 "The others are resistance fighters for whom old ideals are hold true and that are the assertors of the native people."
+					 
+# everything starts from taking the book of dragha no need meriana shit
 }

data/npc/eleonore.npc

@@ -17,4 +17,41 @@ VANISH,!           -> "Oh well."
 "bye"            -> "Good bye.", Idle
 "farewell"       -> *
 
+"ring",QuestValue(17502)=0         -> "My ring was stolen by a parrot, directly from my dressing table near the window. It flew to the nearby mountains and I fear my ring will be lost forever. Whoever returns it to me will be rewarded generously. ...",
+									  "I guess that evil parrot hid the ring somewhere on a high tree or a rock so that you might need a rake to get it.", SetQuestValue(17502,1)
+"mission",QuestValue(17502)=0      -> *
+
+"ring",QuestValue(17502)=1         -> Type=6093, Amount=1, Price=150, "Oh, my beloved ring! Have you found it and want to return it to me?", Topic=1
+"mission",QuestValue(17502)=1      -> *
+
+Topic=1,"yes",Count(Type)>=Amount -> "Oh, thank you so much! Take this gold as a reward. ... which reminds me, I would need some help in another matter. It is only a small errand. Are you interested?", Delete(Type), CreateMoney, SetQuestValue(17502,2), Topic=2
+Topic=1,"yes"                   -> "You don't have it!"
+Topic=1							-> "Too bad."
+
+"ring",QuestValue(17502)=2         -> Price=200, "I would need some help in another matter. It is only a small errand. Are you interested?", Topic=3
+"mission",QuestValue(17502)=2      -> *
+"errand",QuestValue(17502)=2      -> *
+Topic=2,"yes" -> Price=200, "Thank you! It is not a difficult matter but a rather urgent one. I need to send some money to a person in town. Would you be willing to run this small errand for me?", Topic=3
+Topic=2                         -> "Too bad."
+Topic=3,"yes" -> "I was hoping that you'd agree. Please deliver these 200 gold pieces to the herbalist Charlotta in the south-western part of the town. If you return from this errand, I will grant you 5 gold pieces as reward for your efforts.", CreateMoney, SetQuestValue(17502,3)
+Topic=3                         -> "Too bad."
+
+"mission",QuestValue(17502)=3      -> "Charlotta is still waiting for your delivery."
+"errand",QuestValue(17502)=3      -> *
+
+"mission",QuestValue(17502)=4      -> Price=5, "Great, thank you! As promised, here are your 5 gold pieces. Is there ... anything left that you might want to discuss with me?", CreateMoney, SetQuestValue(17502,5)
+"errand",QuestValue(17502)=4      -> *
+
+"peg","leg",QuestValue(17502)=5      -> "You have returned my ring and proven yourself as trustworthy. There is something I have to discuss with you. Are you willing to listen?", Topic=4
+Topic=4,"yes" -> "I am glad to hear that. So please listen: Due to circumstances too complicated to explain now, I met Captain Ray Striker. He is ... a freedom fighter and would not find my father's acceptance, but we fell in love ...",
+				 "Even though he had to hide for a while, we have stayed in contact for a long time now. And our love grew even further against all odds ...",
+				 "However, recently we lost contact. I don't know what has happened to him and fear the worst ...",
+				 "We always have been aware that something terrible might happen to him due to his lifestyle. But perhaps there is a harmless explanation for the absence of messages <holds her tears back>. I have arranged a passage for you to Ray's hiding place ...",
+				 "Contact Captain Waverider, the old fisherman, and tell him the secret word 'peg leg'. He will make sure that you arrive safely ...",
+				 "Please look for Ray and find out what happened to him and why he was not able to answer. Return to me as soon as you have found something out. I wish you a good journey.", SetQuestValue(17502,6)
+Topic=4                         -> "Too bad."
+
+"ray","striker",QuestValue(17502)=13      -> "<blushes> Oh, he is so wonderful. A very special man with a special place in my heart.", Topic=5
+Topic=5,"mermaid"                         -> "I can't thank you enough for freeing my beloved Ray from that evil spell. I am still shocked that a mermaid could steal his love that easily.", SetQuestValue(17502,14)
+
 }

data/npc/elvith.npc

@@ -79,6 +79,7 @@ Topic=2                         -> "Maybe you will buy it another time."
 "lute"             -> Type=2950, Amount=1, Price=195, "Do you want to buy a lute for %P gold?", Topic=1
 "drum"             -> Type=2952, Amount=1, Price=140, "Do you want to buy a drum for %P gold?", Topic=1
 "simple","fanfare" -> Type=2954, Amount=1, Price=150, "Do you want to buy a simple fanfare for %P gold?", Topic=1
+"love","peom" -> Type=5952, Amount=1, Price=200, "Do you want to buy a love poem for %P gold?", Topic=1
 
 %1,1<%1,"lyre"             -> Type=2949, Amount=%1, Price=120*%1, "Do you want to buy %A lyre for %P gold?", Topic=1
 %1,1<%1,"lute"             -> Type=2950, Amount=%1, Price=195*%1, "Do you want to buy %A lute for %P gold?", Topic=1

data/npc/marina.npc

@@ -6,7 +6,7 @@ Home = [32329,32528,7]
 Radius = 0
 
 Behaviour = {
-ADDRESS,"hello$",! -> "You wouldn't keep a pretty lady like me waiting, would you?"
+ADDRESS,"hello$",! -> "Oh, hello %N. A visitor, how nice!"
 ADDRESS,"hi$",!    -> *
 ADDRESS,!          -> Idle
 BUSY,"hello$",!    -> "Wait a second please, %N.", Queue
@@ -16,4 +16,27 @@ VANISH,!           -> "How rude."
 
 "bye"          -> "Good bye, %N.", Idle
 
+# The Mermaid Marina Quest
+"silk","yarn",QuestValue(17504)=0 -> "Um. You mean, you really want me to touch that gooey spider silk just because you need yarn? Well... do you think that I'm pretty?", Topic=1
+Topic=1,"yes"                   -> "Well, everyone would say that in your position. Do you think that I'm really, absolutely the most stunning being that you have ever seen?", Topic=2
+Topic=2,"yes"                   -> "<giggles> It's funny how easy it is to get humans to say what you want. Now, proving it will be even more fun! ...",
+								   "You want me to touch something gooey, so you have to touch something gooey for me too. <giggles> ...",
+								   "I love honey and I haven't eaten it in a while, so bring me 50 honeycombs and worship my beauty a little more, then we will see.", SetQuestValue(17504,1)
+
+"honeycomb",QuestValue(17504)=1 -> Type=5902, Amount=50, "Did you bring me the 50 honeycombs I requested and do you absolutely admire my beauty?", Topic=3
+Topic=3,"yes",Count(Type)>=Amount -> "Oh goodie! Thank you! Okay... I guess since my fingers are sticky now anyway, I will help you. From now on, if you bring me 10 pieces of spider silk, I will create one spool of yarn.", Delete(Type), SetQuestValue(17504,2)
+Topic=3,"yes"                     -> "Sorry, you do not have so many."
+Topic=3                           -> "Maybe another time."
+
+"silk","yarn",QuestValue(17504)=2 -> Type=5879, Amount=10, "Okay... a deal is a deal, would you like me to create a spool of yarn from 10 pieces of spider silk?", Topic=4
+Topic=4,"yes",Count(Type)>=Amount -> "Ew... gooey... there you go.", Delete(Type), Amount=1, Create(5886)
+Topic=4,"yes"                     -> "Sorry, you do not have so many."
+Topic=4                           -> "Maybe another time."
+
+#The Shattered Isles Quest
+"Raymond","Striker",QuestValue(17502)=7 -> "<giggles> I think he has a crush on me. Well, silly man, it is only for his own good. This way he can get accustomed to TRUE beauty. And I won't give him up anymore now that he is mine.", SetQuestValue(17502,8)
+
+"date",QuestValue(17502)=9 -> "Is that the best you can do? A true Djinn would have done something more poetic.", SetQuestValue(17502,10)
+"date",QuestValue(17502)=12 -> "This lovely, exotic Djinn is a true poet. And he is asking me for a date? Excellent. Now I can finaly dump this human pirate. He was growing to be boring more and more with each day ...", 
+							   "As a little reward for your efforts I allow you to ride my sea turtles. Just look around at the shores and you will find them.", SetQuestValue(17502,13)
 }

data/npc/ocelus.npc

@@ -31,4 +31,19 @@ VANISH,!           -> "Farewell, human."
 "pirates"          -> "Many humans sail the seas, I can't tell them apart. You humans look all the same to me."
 "voodoo"          -> "Some humans are tapping the energy of these isles with some strange results. Perhaps that explains the voodoo we've heard about."
 
+"Eleonore",QuestValue(17502)=8 -> "I heard the birds sing about her beauty. But how could a human rival the enchanting beauty of a mermaid?", Topic=1
+Topic=1,"mermaid"                   -> "Oh yes, I noticed that lovely mermaid. From afar of course. I would not dare to step into the eyes of such a lovely creature. ...",
+									   "I guess I am quite shy. Oh my, if I were not blue, I would turn red now. If there would be someone to arrange a date with her.", Topic=2
+Topic=2,"date"                   -> "Will you ask the mermaid Marina if she would date me?", Topic=3
+Topic=3,"yes"                   -> "Thank you. How ironic, a human granting a djinn a wish.", SetQuestValue(17502,9)
+Topic=3,                  -> "Too bad."
+
+"mermaid",QuestValue(17502)=10 -> "Oh my. Its not easy to impress a mermaid I guess. Please get me a love poem. I think elves are the greatest poets so their city seems like a good place to look for one.", SetQuestValue(17502,11)
+"marina",QuestValue(17502)=10 -> *
+
+"love","poem",QuestValue(17502)=11 -> Type=5952, Amount=1, "Did you get a love poem from Ab'Dendriel?", Topic=4
+Topic=4,"yes",Count(Type)>=Amount -> "Excellent. Here, with this little spell I enable you to recite the poem like a true elven poet. Now go and ask her for a date again.", SetQuestValue(17502,12)
+Topic=4,"yes"                             -> "It looks like you forgot it somewhere."
+Topic=4                                   -> "Maybe another time."
+
 }

data/npc/raymondstriker.npc

@@ -3,10 +3,10 @@
 Name = "Raymond Striker"
 Outfit = (151,58-77-60-114-1)
 Home = [32350,32588,7]
-Radius = 4
+Radius = 2
 
 Behaviour = {
-ADDRESS,"hello$",! -> "Be greeted."
+ADDRESS,"hello$",! -> "Be greeted. Is there anything I can do for you?"
 ADDRESS,"hi$",!    -> *
 ADDRESS,!          -> Idle
 BUSY,"hello$",!    -> "Wait a minute, %N.", Queue
@@ -16,4 +16,9 @@ VANISH,!           -> "Good bye."
 
 "bye"            -> "Good bye, %N!", Idle
 "farewell"       -> *
+
+"mission",QuestValue(17502)=6 -> "Don't ask about silly missions. All I can think about is this lovely mermaid.", Topic=1
+"Eleonore",QuestValue(17502)=6 -> "Eleonore ... Yes, I remember her... vaguely. She is a pretty girl ... but still only a girl and now I am in love with a beautiful and passionate woman. A true mermaid even.", Topic=1
+Topic=1,"mermaid"                   -> "The mermaid is the most beautiful creature I have ever met. She is so wonderful. It was some kind of magic as we first met. A look in her eyes and I suddenly knew there would be never again another woman in my life but her.", SetQuestValue(17502,7)
+"mermaid",QuestValue(17502)=7 -> "The mermaid is the most beautiful creature I have ever met. She is so wonderful. It was some kind of magic as we first met. A look in her eyes and I suddenly knew there would be never again another woman in my life but her."
 }