missionscript05.lua

top web admin panel (tales of pirates)

------------------------------------------------------------
--MissionScript05.lua Created by Robin 2005.05.27.
--
--区域任务
------------------------------------------------------------
print( "loading MissionScript05.lua" )

jp= JumpPage
amp=AutoMissionPage
ct=CloseTalk
am=AddMission
MissionCheck = HasFlag
mc=MissionCheck

----------------------------------------------------------
--							--
--							--
--		区域任务	 				--
--							--
--							--
----------------------------------------------------------
	-->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>主线任务开始
function AreaMission001()

-----------------------------------盗取蜂巢
	DefineMission( 600, "Honey Combs Heist", 600 )
	
	MisBeginTalk( "<t>As the saying goes, nab the leader and you will get the rest. Killing those <rBarbaric Bee> will not help much but it's better than not doing anything about them at all.<n><t>Can you go to their lair and steal 5 <yBeehives>?<n><t>(The Beehives are hanging on the trees near where those Barbaric Bees appeared. Obtain by clicking on it.)" )
	MisBeginCondition(LvCheck, ">", 19 )
	MisBeginCondition(NoMission, 600)
	MisBeginCondition(NoRecord, 600)
	MisBeginAction(AddMission, 600)
	MisBeginAction(AddTrigger, 6001, TE_GETITEM, 4085, 5 )
	MisCancelAction(ClearMission, 600)

	MisNeed(MIS_NEED_ITEM, 4085, 5, 10, 5)
		
	MisHelpTalk("<t>The sting of <rBarbaric Bees> are very painful! Please be careful!")
	MisResultTalk("<t>Hehe! My idea is useful, right?")
	MisResultCondition(NoRecord, 600)
	MisResultCondition(HasMission, 600)
	MisResultCondition(HasItem, 4085, 5)
	MisResultAction(TakeItem, 4085, 5)
	MisResultAction(ClearMission, 600)
	MisResultAction(SetRecord, 600)
	MisResultAction(AddExp, 800, 800)
	MisResultAction(AddMoney,270,270)


	InitTrigger()
	TriggerCondition( 1, IsItem, 4085 )	
	TriggerAction( 1, AddNextFlag, 600, 10, 5 )
	RegCurTrigger( 6001 )

-----------------------------------歼灭野蛮蜂
	DefineMission( 601, "Bee Eradication", 601 )
	
	MisBeginTalk( "<t>Oh my...These <Barbaric Bees> are becoming wilder. I only passed by the flowerbed where they have been collecting their nectar when they started attacking me.<n><t>Now my face is swollen badly, it simply peeves me!<n><t>Can you please destroy 10 <Barbaric Bees>? Teach these wild bees a lesson!<n><t>They can be found around (1623, 3139)!" )
	MisBeginCondition(LvCheck, ">", 19 )
	MisBeginCondition(HasRecord, 600)
	MisBeginCondition(NoMission, 601)
	MisBeginCondition(NoRecord, 601)
	MisBeginAction(AddMission, 601)
	MisBeginAction(AddTrigger, 6011, TE_KILL, 139, 10 )
	MisCancelAction(ClearMission, 601)

	MisNeed(MIS_NEED_KILL, 139, 10, 10, 10)
	
	MisHelpTalk("<t>Ouch! My face hurts! Have you destroyed those <rBarbaric Bees>?")
	MisResultTalk("<t>Haha! This should teach those <rBarbaric Bees> that I am not somebody to be trifle with!")
	MisResultCondition(NoRecord, 601)
	MisResultCondition(HasMission, 601)
	MisResultCondition(HasFlag, 601, 19 )
	MisResultAction(ClearMission, 601)
	MisResultAction(SetRecord, 601)
	MisResultAction(AddExp, 800, 800)
	MisResultAction(AddMoney,270,270)


	InitTrigger()
	TriggerCondition( 1, IsMonster, 139 )	
	TriggerAction( 1, AddNextFlag, 601, 10, 10 )
	RegCurTrigger( 6011 )

-----------------------------------扰人清梦
	DefineMission( 602, "Unsettling Dream", 602 )
	
	MisBeginTalk( "<t>Ah, I am just about to look for you! For the past 2 days, I have been unable to sleep because of the sounds made by <rOwlie>. Every time I lie down on bed I would hear the \"Hoot\" of the Owlie.<n><t>I am old and I needs sleep. This can't go on, please help me get rid of 10 <rOwlies>. They can be found at (1384, 3065)." )
	MisBeginCondition(LvCheck, ">", 20 )
	MisBeginCondition(HasRecord, 603)
	MisBeginCondition(NoMission, 602)
	MisBeginCondition(NoRecord, 602)
	MisBeginAction(AddMission, 602)
	MisBeginAction(AddTrigger, 6021, TE_KILL, 224, 10 )
	MisCancelAction(ClearMission, 602)

	MisNeed(MIS_NEED_KILL, 224, 10, 10, 10)
	
	MisHelpTalk("<t>Hunt 10 <rOwlies> will do.")
	MisResultTalk("<t>Thank you. I think I will be able to sleep peacefully from now on.")
	MisResultCondition(NoRecord, 602)
	MisResultCondition(HasMission, 602)
	MisResultCondition(HasFlag, 602, 19 )
	MisResultAction(ClearMission, 602)
	MisResultAction(SetRecord, 602)
	MisResultAction(AddExp, 1000, 1000)
	MisResultAction(AddMoney,285,285)


	InitTrigger()
	TriggerCondition( 1, IsMonster, 224 )	
	TriggerAction( 1, AddNextFlag, 602, 10, 10 )
	RegCurTrigger( 6021 )


-----------------------------------学者猫头鹰
	DefineMission( 603, "Scholar Owlie", 603 )
	
	MisBeginTalk( "<t>My eyes are must be seeing things...Yesterday I actually saw an <rOwlie> holding a book with its claw! It can't be that its reading the book? This is all too weird!<n><t>Sorry to bother, but could you obtain 5 <yOwlie's Claws> and return  here? I wish to observe this strange occurence!<n><t>Usually, these <Owlies> appear around (1384, 3065)." )
	MisBeginCondition(LvCheck, ">", 20 )
	MisBeginCondition(NoMission, 603)
	MisBeginCondition(NoRecord, 603)
	MisBeginAction(AddMission, 603)
	MisBeginAction(AddTrigger, 6031, TE_GETITEM, 4432, 5 )
	MisCancelAction(ClearMission, 603)

	MisNeed(MIS_NEED_ITEM, 4432, 5, 10, 5)
	
	MisHelpTalk("<t>Please bring me 5 <yOwl Talons> for research..")
	MisResultTalk("<t>Hmm…? This talon is similar to talons of other owls. Strange…am I going nuts?")
	MisResultCondition(NoRecord, 603)
	MisResultCondition(HasMission, 603)
	MisResultCondition(HasItem, 4432, 5)
	MisResultAction(TakeItem, 4432, 5 )
	MisResultAction(ClearMission, 603)
	MisResultAction(SetRecord, 603)
	MisResultAction(AddExp, 1000, 1000)
	MisResultAction(AddMoney,571,571)


	InitTrigger()
	TriggerCondition( 1, IsItem, 4432 )	
	TriggerAction( 1, AddNextFlag, 603, 10, 5 )
	RegCurTrigger( 6031 )

-----------------------------------奸诈的猫头鹰
	DefineMission( 604, "Cunning Owl", 604 )
	
	MisBeginTalk( "<t>Sorry, can you help me? I was reading a book two days back when an <rOwlie> flew pass and tore out a few pages of my book. I need these <yLost Pages> urgently.<n><t>Can you retrieve them back for me?<n><t>It should be lying around their nest itself." )
	MisBeginCondition(LvCheck, ">", 21 )
	MisBeginCondition(NoMission, 604)
	MisBeginCondition(NoRecord, 604)
	MisBeginAction(AddMission, 604)
	MisBeginAction(AddTrigger, 6041, TE_GETITEM, 4086, 5 )
	MisCancelAction(ClearMission, 604)

	MisNeed(MIS_NEED_ITEM, 4086, 5, 10, 5)
	
	MisHelpTalk("<t>Please bring me the Lost Pages!")
	MisResultTalk("<t>This is great! Thank you!")
	MisResultCondition(NoRecord, 604)
	MisResultCondition(HasMission, 604)
	MisResultCondition(HasItem, 4086, 5)
	MisResultAction(TakeItem, 4086, 5 )
	MisResultAction(ClearMission, 604)
	MisResultAction(SetRecord, 604)
	MisResultAction(AddExp, 1100, 1100)
	MisResultAction(AddMoney,300,300)


	InitTrigger()
	TriggerCondition( 1, IsItem, 4086 )	
	TriggerAction( 1, AddNextFlag, 604, 10, 5 )
	RegCurTrigger( 6041 )

-----------------------------------烤猪尾的诱惑
	DefineMission( 605, "Temptation of BBQ Tails", 605 )
	
	MisBeginTalk( "<t>This is the biggest favour I have ever asked! You must promise me!<n><t>Really? You agreed? Then get me 5 <yShort Boar Tail>! I have been drooling over the notion of eating some <rShort Boar Tail> for a very long time!<n><t><rTusk Battle Boar> can be found at (1384, 3065)." )
	MisBeginCondition(LvCheck, ">", 22 )
	MisBeginCondition(NoMission, 605)
	MisBeginCondition(NoRecord, 605)
	MisBeginAction(AddMission, 605)
	MisBeginAction(AddTrigger, 6051, TE_GETITEM, 4433, 5 )
	MisCancelAction(ClearMission, 605)

	MisNeed(MIS_NEED_ITEM, 4433, 5, 10, 5)
	
	MisHelpTalk("<t><t> You already promised to help me get some <yShort Boar Tail>, please do not go back on your words.")
	MisResultTalk("<t>Oh my! Thanks a lot! Hehe! ")
	MisResultCondition(NoRecord, 605)
	MisResultCondition(HasMission, 605)
	MisResultCondition(HasItem, 4433, 5)
	MisResultAction(TakeItem, 4433, 5 )
	MisResultAction(ClearMission, 605)
	MisResultAction(SetRecord, 605)
	MisResultAction(AddExp, 1300, 1300)
	MisResultAction(AddMoney,632,632)


	InitTrigger()
	TriggerCondition( 1, IsItem, 4433 )	
	TriggerAction( 1, AddNextFlag, 605, 10, 5 )
	RegCurTrigger( 6051 )

-----------------------------------箭豪猪的反抗
	DefineMission( 606, "Tusk Boar's Resistance", 606 )
	
	MisBeginTalk( "<t>I had a shock this morning when I opened the window, there were many <rTusk Battle Boar> running around my yard!<n><t>Look at these big sized beasts, running around in packs and spoiling everything in my yard! I can't take this lying down!<n><t>Please help me kill 10 <rTusk Battle Boars>! They can be found at (1384, 3065)." )
	MisBeginCondition(LvCheck, ">", 22 )
	MisBeginCondition(HasRecord, 605)
	MisBeginCondition(NoMission, 606)
	MisBeginCondition(NoRecord, 606)
	MisBeginAction(AddMission, 606)
	MisBeginAction(AddTrigger, 6061, TE_KILL, 264, 10 )
	MisCancelAction(ClearMission, 606)

	MisNeed(MIS_NEED_KILL, 264, 10, 10, 10)
	
	MisHelpTalk("<t>You only need to hunt down 10 Tusk Battle Boars.")
	MisResultTalk("<t>Ha! Now my garden is free of those pesks. Thank you!")
	MisResultCondition(NoRecord, 606)
	MisResultCondition(HasMission, 606)
	MisResultCondition(HasFlag, 606, 19 )
	MisResultAction(ClearMission, 606)
	MisResultAction(SetRecord, 606)
	MisCancelAction(ClearMission, 607)
	MisResultAction(AddExp, 1300, 1300)
	MisResultAction(AddMoney,316,316)


	InitTrigger()
	TriggerCondition( 1, IsMonster, 264 )	
	TriggerAction( 1, AddNextFlag, 606, 10, 10 )
	RegCurTrigger( 6061 )

-----------------------------------除臭行动
	DefineMission( 607, "No More Odour!", 607 )
	
	MisBeginTalk( "<t>Hey friend! There is a weird scent around here, can you smell it? Oh, it must the scent of those <rAir Porky> nearby.<n><t>These pigs have become strange lately, they no longer emanate fragrant smell but instead gives off a weird odour, I think its best that we get rid of them now.<n><t>Can you please hunt and kill 10 <rAir Porky> for me? They can be found at (1414, 2896)." )
	MisBeginCondition(HasRecord, 608)
	MisBeginCondition(LvCheck, ">", 23 )
	MisBeginCondition(NoMission, 607)
	MisBeginCondition(NoRecord, 607)
	MisBeginAction(AddMission, 607)
	MisBeginAction(AddTrigger, 6071, TE_KILL, 295, 10 )
	MisCancelAction(ClearMission, 607)

	MisNeed(MIS_NEED_KILL, 295, 10, 10, 10)
	
	MisHelpTalk("<t>Don't tell me you are unable to complete such a simple task! Please go and hunt down 10 <rAir Porky>!")
	MisResultTalk("<t>Well done!")
	MisResultCondition(NoRecord, 607)
	MisResultCondition(HasMission, 607)
	MisResultCondition(HasFlag, 607, 19 )
	MisResultAction(ClearMission, 607)
	MisResultAction(SetRecord, 607)
	MisResultAction(AddExp, 1500, 1500)
	MisResultAction(AddMoney,332,332)


	InitTrigger()
	TriggerCondition( 1, IsMonster, 295 )	
	TriggerAction( 1, AddNextFlag, 607, 10, 10 )
	RegCurTrigger( 6071 )

-----------------------------------奇特香囊
	DefineMission( 608, "Unusual Satchet", 608 )
	
	MisBeginTalk( "<t>I believe that the incidents where the <rTusk Battle Boar> became aggressive and the weird odour of the <rAir Porky> are closely related.<n><t>I still require more evidence to prove it. Help me collect 5 <yUnusual Satchets> from the <rAir Porky> so I can study it. <rAir Porky> can only be found at (1414, 2896). " )
	MisBeginCondition(LvCheck, ">", 24 )
	MisBeginCondition(NoMission, 608)
	MisBeginCondition(NoRecord, 608)
	MisBeginAction(AddMission, 608)
	MisBeginAction(AddTrigger, 6081, TE_GETITEM, 4460, 5 )
	MisCancelAction(ClearMission, 608)

	MisNeed(MIS_NEED_ITEM, 4460, 5, 10, 5)
	
	MisHelpTalk("<t>Have you obtain 5 <y Unusual Satchets>?")
	MisResultTalk("<t>I finally understand. Its this <yUnusual Satchet> that makes the nearby boars go wild!")
	MisResultCondition(NoRecord, 608)
	MisResultCondition(HasMission, 608)
	MisResultCondition(HasItem, 4460, 5)
	MisResultAction(TakeItem, 4460, 5 )
	MisResultAction(ClearMission, 608)
	MisResultAction(SetRecord, 608)
	MisResultAction(AddExp, 1500, 1500)
	MisResultAction(AddMoney,664,664)


	InitTrigger()
	TriggerCondition( 1, IsItem, 4460 )	
	TriggerAction( 1, AddNextFlag, 608, 10, 5 )
	RegCurTrigger( 6081 )

-----------------------------------丢失的金币
	DefineMission( 609, "Missing Gold Coin", 609 )
	
	MisBeginTalk( "<t>My friend, you should know me! I am always a honest merchant! However, <rBandits> have rob me of my <yGold Coin Pouch>!<n><t>I am no match for them! Could you help me get back my <yGold Coin Pouch> from their hideout?<n><t>I guess its hidden within one of their treasure chest." )
	MisBeginCondition(LvCheck, ">", 24 )