EIM_1.1_Treasure_Island_Script

main
{
	questname	"Treasure Island"
	version	1.0
}
state	begin
{
	if StatGreater("level",49) goto Q1Begin
	else goto LowLevel
}
state	LowLevel
{
	action	ShowHint("You need to be level 50 to start this quest.");
	action	Reset();
}
state	Q1Begin
{
	desc	"Talk to Old Ben"
	action	AddNpcText(93, "Ahoy thar! Ye look like th' type o' scallywag I've been searchin' fer...");
	action	AddNpcText(93, "I've a tale t' tell ye, if ye're interested?");
	action	AddNpcText(93, "'tis a tale o' pirates, o' plunder, o' misfortune 'n a doomed fate fer th' crew o' that bastard voyage...");
	action	AddNpcText(93, "I've been searchin' long 'n wide, fer one capable o' returnin' t' those foul shores, t' seek a long lost loot, 'n t' return t' me, th' glory that was once lost...");
	action	AddNpcText(93, "Ye be such a scallywag I reckon, ye will be rewarded well fer yer efforts heartie...");
	action	AddNpcText(93, "Will ye do this fer an ole sea cap'n? Me last wishes afore I depart this forsaken world, be t' return an item that I pilfered long ago, it must be returned, me fate be sealed if this does nah happen...");
	action	AddNpcText(93, "Will ye do this fer me?");
	action	AddNpcInput(93, 1, "Accept.");
	action	AddNpcInput(93, 2, "Decline.");
	rule	InputNpc( 1 ) goto Q1Begin1
	rule	InputNpc( 2 ) goto Exit1
}
state	Exit1
{
	action	Reset();
}
state	Q1Begin1
{
	desc	"Talk to Old Ben"
	action	AddNpcText(93, "Thar be a hidden stash o' some truly unique metal waitin' fer ye me bucko, but I ask only fer a single ring t' be returned t' me, fer this ye be welcome t' claim anythin' else that ye find thar!");
	action	AddNpcText(93, "Here, loot me ole Sea Chart, ye best be able t' find a willin' Sea Captain t' take ye t' Treasure Island, when ye arrive, look fer th' signs that 'ave been left in bones, bones will lead ye, bones will guide ye, bones will become ye, if ye do nah watch yer step 'n tread carefully...");
	action	AddNpcText(93, "Good luck t' ye scallywag, 'n swift travels! Don't forget t' brin' me back that ring when ye find it!");
	action	AddNpcText(93, "By th' way me heartie, now would be a good time t' tell ye about th' #loc command, type #loc 'n hit enter 'n 'twill tell ye ye location coordinates, this might help!.");
	action	AddNpcText(93, "Good luck to ye!");
	action	AddNpcInput(93, 1, "Thank ye kindly.");
	rule	InputNpc( 1 ) goto Q1GiveSC
}
state	Q1GiveSC
{
	action	GiveItem(253,1);
	action	ShowHint("You have recieved a Sea Chart!");
	action	SetState("Q1Task1");
}
state	Q1Task1
{
	desc	"Travel to Treasure Island"
	rule	EnterMap(29)	goto	Q1Task2
}
state	Q1Task2
{
	desc	"Find the bones clue"
	action	ShowHint("Look for a clue in bones!");
	action	ShowHint("Start with the bones bathed in blood!");
	rule	EnterCoord(29,82,23)	goto	Q1Clue1
}
state	Q1Clue1
{
	desc	"Bones 82x39"
	action	ShowHint("Look for a clue in bones!");
	action	ShowHint("Take 16 paces South-West!");
	rule	EnterCoord(29,82,39)	goto	Q1Clue2
}
state	Q1Clue2
{
	desc	"Bones 70x39"
	action	ShowHint("Look for a clue in bones!");
	action	ShowHint("Take 12 paces North-West!");
	rule	EnterCoord(29,70,39) goto Q1Clue3
}
state	Q1Clue3
{
	desc	"Bones 70x74"
	action	ShowHint("Look for a clue in bones!");
	action	ShowHint("Take 35 paces South-West!");
	rule	EnterCoord(29,70,74) goto Q1Clue4
}
state	Q1Clue4
{
	desc	"Bones 51x74"
	action	ShowHint("Look for a clue in bones!");
	action	ShowHint("Take 19 paces North-West!");
	rule	EnterCoord(29,51,74) goto Q1Clue5
}
state	Q1Clue5
{
	desc	"Bones 51x61"
	action  ShowHint("Look for a clue in bones!");
	action	ShowHint("Take 13 paces North-East!");
	rule	EnterCoord(29,51,61) goto Q1Clue6
}
state	Q1Clue6
{
	desc	"Bones 35x61"
	action	ShowHint("Look for a clue in bones!");
	action	ShowHint("Take 16 paces North-West!");
	rule	EnterCoord(29,35,61) goto Q1Clue7
}
state	Q1Clue7
{
	desc	"Bones 35x49"
	action	ShowHint("Look for a clue in bones!");
	action	ShowHint("Take 12 paces North-East!");
	rule	EnterCoord(29,35,49) goto Q1Clue8
}
state	Q1Clue8
{
	desc	"Bones 45x49"
	action	ShowHint("Look for a clue in bones!");
	action	ShowHint("Take 10 paces South-East!");
	rule	EnterCoord(29,45,49) goto Q1Clue9
}
state	Q1Clue9
{
	desc	"Bones 45x38"
	action	ShowHint("Look for a clue in bones!");
	action	ShowHint("Take 11 paces North-East!");
	rule	EnterCoord(29,45,38) goto Q1ClueTen
}
state	Q1ClueTen
{
	desc	"Bones 58x38"
	action	ShowHint("Look for a clue in bones!");
	action	ShowHint("Take 13 paces South-East!");
	rule	EnterCoord(29,58,38) goto Q1Clue11
}
state	Q1Clue11
{
	desc	"Bones 58x31"
	action	ShowHint("Look for a clue in bones!");
	action	ShowHint("Take 7 paces North-East!");
	rule	EnterCoord(29,58,31) goto Q1Clue12
}
state	Q1Clue12
{
	desc	"Bones 53x31"
	action	ShowHint("Look for a clue in bones!");
	action	ShowHint("Take 5 paces North-West!");
	rule	EnterCoord(29,53,31) goto Q1Clue13
}
state	Q1Clue13
{
	desc	"Bones 53x45"
	action	ShowHint("Look for a clue in bones!");
	action	ShowHint("Take 14 paces South-West!");
	rule	EnterCoord(29,53,45) goto Q1Reward
}
state	Q1Reward
{
	action	ShowHint("You have discovered a stash of items!");
	action	GiveEXP(60000);
	action	GiveItem(1,25000);
	action	GiveItem(257,5);
	action	GiveItem(255,1);
	action	SetState("Q1Reward1");
}
state	Q1Reward1
{
	action	ShowHint("You should return the ring to Old Ben!");
	action	SetState("Q1Return1");
}
state	Q1Return1
{
	desc	"Talk to Old Ben"
	action	AddNpcText(93, "Ahoy matey! Did ye 'ave any luck findin' me ole ring in yer travels?");
	action	AddNpcInput(93, 1, "I did.");
	action	AddNpcInput(93, 2, "I did not.");
	rule	InputNpc( 1 ) goto Q1GiveRingCheck
	rule	InputNpc( 2 ) goto Q1Reward1
}
state	Q1GiveRingCheck
{
	if	GotItems(255,1) goto Q1GiveRing
	else	goto Q1Reward1
}
state	Q1GiveRing
{
	action	ShowHint("Old Ben grabs his ring from you with haste!");
	action	RemoveItem(255,1);
	action	GiveEXP(30000);
	action	SetState("Q1Return2");
}
state	Q1Return2
{
	desc	"Talk to Old Ben"
	action	AddNpcText(93, "I be forever indebted t' ye heartie! That which ye 'ave done fer me, shall be hard t' repay, th' burdens are gone, 'n I be most thankful fer it...");
	action	AddNpcText(93, "I trust ye will find th' Exaltium t' yer likin'? Coat yer equipment wit' it at the shrine deep within Dark Island, 'n ye will 'ave somethin' truly fit fer a cap'n! Well now, since ye helped me when ye didn' needs t', I should help ye as well...");
	action	AddNpcText(93, "Thar be more where that came from... plenty more in fact! I reckon a whole set o' that thar Exalted equipment would look splendid on ye!");
	action	AddNpcInput(93, 1, "More ye say?");
	rule	InputNpc(1) goto Q2Task1
}
state	Q2Task1
{
	action	AddNpcText(93, "Aye, more indeed, though it may take some time t' uncover th' locations o' each piece o' it, they 'ave been long since lost ye see...");
	action	AddNpcText(93, "I know o' another stash that ye may wants t' go 'n locate right away! Aft that, I would wager yer best bet, would be t' speak wit' th' scallywags around th' towns fer information about locations...");
	action	AddNpcText(93, "Th' stash can be found on th' Dark Island, at th' coordinates - X:18 'n Y:43 - th' spot best be marked wit' bones...");
	action	AddNpcInput(93, 1, "Thank ye kindly!");
	rule	InputNpc(1) goto Q2Recover1
}
state	Q2Recover1
{
	desc	"Dark Island - X:18 Y:43"
	action	ShowHint("Head to the Dark Island and locate the stash at X:18 Y:43.");
	rule	EnterCoord(91,18,43) goto Q2Reward1
}
state	Q2Reward1
{
	action	ShowHint("You have discovered a secret stash!");
	action	GiveEXP(60000);
	action	GiveItem(1,25000);
	action	GiveItem(257,5);
	action	SetState("Q2End");
}
state	Q2End
{
	action	End();
}