//===== eAthena Script =======================================
//= Dewata Quests Script
//===== By: ==================================================
//= Chilly
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= Any Athena Version
//===== Description: =========================================
//= Official quests for Dewata
//===== Additional Comments: =================================
//= 1.0 First Release
//============================================================

dew_in01,15,49,5	script	Chief of Dewata	540,{
	if (checkweight(1101,2) == 0) {
		mes "^3355FFWait a second!";
		mes "Right now, you're carrying";
		mes "too many things with you.";
		mes "Please come back after";
		mes "using the Kafra Service";
		mes "to store some of your items.^000000";
		close;
	}
	if (dewdungeon < 1) {
		mes "[Chief of Dewata]";
		mes "Hello stranger, have you come to see the volcanic island of Krakatoa?";
		next;
		switch(select("Yes.:Nope.")) {
		case 1:
			mes "[Chief of Dewata]";
			mes "First you must do something for me.";
			next;
			set dewdungeon,1;
			mes "[Chief of Dewata]";
			mes "Bring me ^0000FF15 Cendrawasih Feathers^000000, we need them to make hats for our tribe.";
			close;
		case 2:
			mes "[Chief of Dewata]";
			mes "Then you must leave, foreigners bring trouble.";
			close;
		}
	}
	else if ((dewdungeon == 1) && (countitem(6405) >= 15)) {
		mes "[Chief of Dewata]";
		mes "You make the chief proud, you may now travel to the volcanic island of Krakatoa.";
		next;
		mes "[Chief of Dewata]";
		mes "Please keep this ^0000FFShining Cendrawasih Feather^000000 with you as proof that you are part of our tribe.";
		next;
		delitem 6405,15;
		getitem 6406,1; // Shining Cendrawasih Feather
		getitem 18520,1; // Jati Crown
		set dewdungeon,2;
		mes "[Chief of Dewata]";
		mes "You may also take one of these hats with you for your fight against the plant monsters outside our village.";
		close;
	}
	else if ((dewdungeon == 1) && (countitem(6405) < 15)) {
		mes "[Chief of Dewata]";
		mes "Where are the ^0000FF15 Cendrawasih Feathers^000000 i asked for?";
		close;
	}
	else if (dewdungeon >= 2) {
		mes "[Chief of Dewata]";
		mes "You may now travel to the volcanic island of Krakatoa.";
		next;
		mes "[Chief of Dewata]";
		mes "Talk to the blacksmith on the field, he may have a weapon for you too.";
		close;
	}
}

dew_fild01,127,240,4	script	Blacksmith#dew01	813,{
	if (checkweight(13067,1) == 0) {
		mes "^3355FFWait a second!";
		mes "Right now, you're carrying";
		mes "too many things with you.";
		mes "Please come back after";
		mes "using the Kafra Service";
		mes "to store some of your items.^000000";
		close;
	}
	if (dewdungeon < 2) {
		mes "[Blacksmith]";
		mes "Nice weather we are having today.";
		next;
		mes "[Blacksmith]";
		mes "Don't worry about me, these monsters are no match as long as I have this dagger!";
		close;
	}
	else if (dewdungeon == 2) {
		mes "[Blacksmith]";
		mes "Oh, you want this dagger too?";
		next;
		mes "[Blacksmith]";
		mes "It's annoying for me to make, but i'll do it.";
		next;
		set dewdungeon,3;
		mes "[Blacksmith]";
		mes "Go to the volcanic island and get ^0000FF100 Comodo Leathers^000000 for me, I need to make the Hilt before anything else.";
		close;
	}
	else if ((dewdungeon == 3) && (countitem(6403) >= 100)) {
		mes "[Blacksmith]";
		mes "Wow, you got 100 already.  Let me forge this together for you.";
		next;
		delitem 6403,100;
		getitem 6404,1; // Kris_Hilt
		set dewdungeon,4;
		mes "[Blacksmith]";
		mes "All done!  Now to make the rest of the dagger i'll need ^0000FF100 more Comodo Leathers^000000.  Don't keep me waiting!";
		close;
	}
	else if ((dewdungeon == 3 || dewdungeon == 4) && (countitem(6403) < 100)) {
		mes "[Blacksmith]";
		mes "Where are the ^0000FF100 Comodo Leathers^000000 i asked for?";
		close;
	}
	else if ((dewdungeon == 4) && (countitem(6403) >= 100)) {
		mes "[Blacksmith]";
		mes "Alright, another 100!  I'll have the dagger ready for you in a second.";
		next;
		delitem 6403,100;
		delitem 6404,1;
		getitem 13067,1; // Kris
		set dewdungeon,5;
		mes "[Blacksmith]";
		mes "There you go!  This dagger will heal some of your health when you attack, put it to good use my friend!";
		close;
	}
	else if (dewdungeon >= 5) {
		mes "[Blacksmith]";
		mes "Having fun with my dagger?";
		close;
	}
}

dewata,234,64,4	script	Sailor#dew01	540,{
	if (dewdungeon < 2) {
		mes "[Sailor]";
		mes "You no can go to island, need chief permission.";
		close;
	}
	else if (dewdungeon >= 2) {
		mes "[Sailor]";
		mes "Chief say you can go to island, you come?";
		next;
		switch(select("Yes.:Nope.")) {
		case 1:
			mes "[Sailor]";
			mes "Ok, you come.";
			close2;
			warp "dew_dun01",291,160;
			end;
		case 2:
			mes "[Sailor]";
			mes "Ok, you swim to island.";
			close;
		}
	}
}

dew_dun01,291,164,4	script	Sailor#dew02	540,{
	mes "[Sailor]";
	mes "You go back?";
	next;
	switch(select("Yes.:Nope.")) {
	case 1:
		mes "[Sailor]";
		mes "Ok, you go back.";
		close2;
		warp "dewata",234,60;
		end;
	case 2:
		mes "[Sailor]";
		mes "Ok, you swim to town.";
		close;
	}
}