//===== rAthena Script ======================================= 
//= Port Malaya
//===== By: ================================================== 
//= Euphy
//===== Current Version: ===================================== 
//= 1.1
//===== Compatible With: ===================================== 
//= rAthena SVN
//===== Description: ========================================= 
//= [Official Conversion]
//= Port Malaya Town Script
//===== Additional Comments: ================================= 
//= 0.1 Alberta sailors only. [Euphy]
//= 0.2 Adapted from Masao's conversion.
//= 1.0 Added remaining NPCs.
//= 1.1 Added Jeepney script. [DeadlySilence]
//============================================================ 

// Port Malaya Transportation
//============================================================
alberta,237,71,3	script	Ա #alberta	100,{
	mes "[Ա ]";
	mes "~~";
	mes "10,000 ZenyȥǸۿ,Ȥô?";
	next;
	switch(select("йǸۿ.:ȥǸۿ.:ȡ.")) {
	case 1:
		mes "[Ա ]";
		mes "һСׯ,ӰϷбܵ.";
		next;
		mes "[Ա ]";
		mes "֮ǰһҶȥ,ΪЩ,ƺڶѾ.";
		next;
		mes "[Ա ]";
		mes "ҲǺȷ,һְݵĹ԰~";
		next;
		mes "[Ա ]";
		mes "ҲʹҲذ!";
		next;
		mes "[Ա ]";
		mes ",㵽Ҳͬܵ.";
		close;
	case 2:
		if (Zeny < 10000) {
			mes "[Ա ]";
			mes "!!";
			mes "ⲻ,㲻֪ȥжԶ!10,000 ZenyʱҰ!";
			close;
		}
		mes "[Ա ]";
		mes "̫!";
		mes "Ǹۿ~!~";
		set Zeny, Zeny-10000;
		close2;
		warp "malaya",271,55;
		end;
	case 3:
		mes "[Ա ]";
		mes "ðռƺæ.ð,ʱʱٻһȥǸۿڰ.";
		close;
	}
}

malaya,276,55,4	script	Ա #malaya	100,{
	if (malaya_hi < 10) {
		mes "[Ա ]";
		mes "Сׯɷæ.Ѿι?һֱзذĴֻ.";
		next;
	} else if (malaya_hi < 20) {
		mes "[Ա ]";
		mes "ҼǵһλðռҰ˴,ʹǷ.~ذ?";
		next;
	} else {
		mes "[Ա ]";
		mes "һ𷵻ذ?";
		next;
	}
	switch(select("ȥ.:.")) {
	case 1:
		mes "[Ա ]";
		mes "!~𺽷ذ!";
		close2;
		warp "alberta",239,68;
		end;
	case 2:
		mes "[Ա ]";
		mes "ûϵ,ȥʱҰ.";
		close;
	}
}

// Generic Port Malaya NPCs
//============================================================
ma_in01,30,94,4	script	õϰ#ma	583,{
	if (malaya_hi < 10) {
		mes "[õϰ]";
		mes "..е?";
		mes "治ʱ..ĿǰׯЩ,ҵùһֱûӪҵ.";
		close;
	} else if (malaya_hi < 20) {
		mes "[õϰ]";
		mes "Ǹ̸۵ðռ?!Ϊ˱ʾл,ҵùΪϿҵ!";
		next;
	} else {
		mes "[õϰ]";
		mes "ӭ.";
		mes "õ---С~";
		next;
	}
	mes "[õϰ]";
	mes "ҪϢ?ס޷Ϊ 5,000 Zeny.";
	next;
	switch(select(".:ס--5,000 Zeny.:ȡ.")) {
	case 1:
		mes "[õϰ]";
		mes "Ѿɹ.´ټ~";
		savepoint "ma_in01",43,98;
		close;
	case 2:
		if (Zeny < 5000) {
			mes "[õϰ]";
			mes "˼,Ǯ.";
			close;
		}
		mes "[õϰ]";
		mes "ס~!";
		close2;
		set Zeny, Zeny-5000;
		percentheal 100,100;
		warp "ma_in01",43,98;
		end;
	case 3:
		close;
	}
}

-	script	#i	-1,{
	end;
OnInit:
	switch(atoi(strnpcinfo(2))) {
		case 1: setarray .@npc$,"01","02","03","04"; break;
		case 5: setarray .@npc$,"05","06","07","08"; break;
		case 9: setarray .@npc$,"09","10","11"; break;
		default: end;
	}
	set .@size, getarraysize(.@npc$);
	set .@rand, rand(.@size);
	for(set .@i,0; .@i<.@size; set .@i,.@i+1)
		donpcevent "#"+.@npc$[.@i]+"::"+((.@i == .@rand)?"OnEnable":"OnDisable");
	end;
OnEnable:
	enablenpc strnpcinfo(0);
	end;
OnDisable:
	disablenpc strnpcinfo(0);
	end;
OnBingx2:
	switch(atoi(strnpcinfo(2))) {
		case 1: setarray .@npc$,"02","03","04"; break;
		case 5: setarray .@npc$,"06","07","08"; break;
		case 9: setarray .@npc$,"10","11"; break;
	}
	set .@size, getarraysize(.@npc$);
	set .@rand, rand(.@size);
	for(set .@i,0; .@i<.@size; set .@i,.@i+1)
		donpcevent "#"+.@npc$[.@i]+"::"+((.@i == .@rand)?"OnEnable":"OnDisable");
	donpcevent strnpcinfo(0)+"::OnDisable";
	end;
OnTouch:
	if (getcharid(1)) {
		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
			donpcevent strnpcinfo(0)+"::OnBingx2";
			mes "Ƴһ,ºʧ.";
			close;
		}
		if (rand(1,5)%2) {
			switch(atoi(strnpcinfo(2))) {
				case 1: set $ma_name04$,strcharinfo(0); break;
				case 5: set $ma_name05$,strcharinfo(0); break;
				case 9: set $ma_name06$,strcharinfo(0); break;
			}
		}
		donpcevent strnpcinfo(0)+"::OnBingx2";
		mes "Ƴһۺʧ.";
		close;
	}
	donpcevent strnpcinfo(0)+"::OnBingx2";
	mes "ﳯ㿴,Ȼܿ.";
	close;
}
ma_fild01,74,367,6	duplicate(#i)	#01	572,2,2
ma_fild02,282,41,4	duplicate(#i)	#05	572,2,2
ma_scene01,195,92,4	duplicate(#i)	#09	572,2,2

-	script	#j	-1,{
	end;
OnEnable:
	enablenpc strnpcinfo(0);
	end;
OnDisable:
	disablenpc strnpcinfo(0);
	end;
OnBingx2:
	switch(atoi(strnpcinfo(2))) {
		case 2: setarray .@npc$,"01","03","04"; break;
		case 3: setarray .@npc$,"01","02","04"; break;
		case 4: setarray .@npc$,"01","02","03"; break;
		case 6: setarray .@npc$,"05","07","08"; break;
		case 7: setarray .@npc$,"05","06","08"; break;
		case 8: setarray .@npc$,"05","06","07"; break;
		case 10: setarray .@npc$,"09","11"; break;
		case 11: setarray .@npc$,"09","10"; break;
	}
	set .@size, getarraysize(.@npc$);
	set .@rand, rand(.@size);
	for(set .@i,0; .@i<.@size; set .@i,.@i+1)
		donpcevent "#"+.@npc$[.@i]+"::"+((.@i == .@rand)?"OnEnable":"OnDisable");
	donpcevent strnpcinfo(0)+"::OnDisable";
	end;
OnTouch:
	set .@i, atoi(strnpcinfo(2));
	if (.@i%4 == 2) {
		if (getcharid(0) == getpartyleader(getcharid(1),2))
			set .@pass,1;
	} else if (.@i%4 == 3) {
		if (checkquest(4229,PLAYTIME) > -1 && checkquest(9223,PLAYTIME) > -1 && checkquest(12278,PLAYTIME) > -1)
			set .@pass,1;
	} else if (.@i%4 == 0) {
		if (rand(1,100)%10 == 7)
			set .@pass,1;
	}
	if (.@pass) {
		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
			donpcevent strnpcinfo(0)+"::OnBingx2";
			mes "Ƴһ,ºʧ.";
			close;
		}
		if (rand(1,5)%2) {
			switch(.@i) {
			case 2:
			case 3:
			case 4:
				set $ma_name04$,strcharinfo(0);
				break;
			case 6:
			case 7:
			case 8:
				set $ma_name05$,strcharinfo(0);
				break;
			case 10:
			case 11:
				set $ma_name06$,strcharinfo(0);
				break;
			}
		}
		donpcevent strnpcinfo(0)+"::OnBingx2";
		mes "Ƴһۺʧ.";
		close;
	}
	donpcevent strnpcinfo(0)+"::OnBingx2";
	mes "ﳯ㿴,Ȼܿ.";
	close;
}
ma_fild01,109,116,4	duplicate(#j)	#02	572,2,2
ma_fild01,280,150,6	duplicate(#j)	#03	572,2,2
ma_fild01,309,221,6	duplicate(#j)	#04	572,2,2
ma_fild02,246,324,4	duplicate(#j)	#06	572,2,2
ma_fild02,71,296,6	duplicate(#j)	#07	572,2,2
ma_fild02,32,263,4	duplicate(#j)	#08	572,2,2
ma_scene01,158,139,4	duplicate(#j)	#10	572,2,2
ma_scene01,167,112,6	duplicate(#j)	#11	572,2,2

malaya,227,311,4	script	#ma01	575,{
	if (malaya_hi < 10) {
		mes "[]";
		mes "㲻˰?ԼСĵ~!";
		next;
		mes "[]";
		mes "ҵϱ,е㵣,ϣʲô.";
		close;
	} else if (malaya_hi < 20) {
		mes "[]";
		mes "˵һڰǵĴׯ.";
		next;
		mes "[]";
		mes "ҵϱƽ!";
		close;
	}
	if (rand(1,3) == 2) {
		mes "[]";
		mes "˵"+getd("$ma_name0"+rand(1,6)+"$")+"һֱجλʿ.";
		next;
		mes "[]";
		mes "һףֽɰ.";
		close;
	}
	mes "[]";
	mes "Һܵһеϱ.ϣجλʿ˺.";
	next;
	select("جλʿ?");
	mes "[]";
	mes "㲻ǸĴ?ʹ,ҲС.";
	next;
	mes "[]";
	mes "جλʿںܾǰһסǸۿڵŮ,޸һ˺󲻾ñ㻳.";
	next;
	mes "[]";
	mes ",Ƕݵ.һ,..";
	next;
	mes "[]";
	mes "ʧȥӺޱȱ,û뿪.";
	next;
	select("Ǹ˵Ĺ.");
	mes "[]";
	mes "֮,جλʿһֱڴǻ,ߴׯлŮ˸еĺ.";
	next;
	mes "[]";
	mes "ҹ㻹Ǹۿ..";
	next;
	mes "[]";
	mes "tik-tikwak-wak,С,جλʿɿ.";
	close;
}

malaya,189,263,4	script	ĵ #ma02	578,{
	if (malaya_hi < 10) {
		emotion e_omg;
		mes "[ĵ ]";
		mes "..ͺǰʱһ...";
		next;
		emotion e_omg;
		mes "[ĵ ]";
		mes "̵ʱ..!!";
		close;
	} else if (malaya_hi < 20) {
		mes "[ĵ ]";
		mes "ҼǵõʱׯһλӢ.";
		next;
		emotion e_sigh;
		mes "[ĵ ]";
		mes "..Ҿʳ±ֳ!!";
		close;
	}
	if (rand(1,3) == 2) {
		mes "[ĵ ]";
		mes getd("$ma_name0"+rand(1,6)+"$")+"˵ֹʳ±.ǲǺܿ?Ҳ~ ";
		close;
	}
	mes "[ĵ ]";
	mes "Ǹۿ,˵ʳ±һֻĹ!";
	next;
	mes "[ĵ ]";
	mes "һ֪,ʳ±ʳ!!";
	next;
	select("!ǲǺΣ?!");
	emotion e_gg;
	mes "[ĵ ]";
	mes ",а취ֹʳ±ʳ~";
	next;
	mes "[ĵ ]";
	mes "ʹѾ̵6ĹҲ!~";
	next;
	select("Ŷ?ʲô?");
	mes "[ĵ ]";
	mes "Ҫʳʱ,൱.";
	next;
	mes "[ĵ ]";
	mes "ʱĻ!!ǹư軹ǹ~!!";
	next;
	mes "[ĵ ]";
	mes "ʳ±ܵź³漴!~";
	next;
	mes "[ĵ ]";
	mes "һİ,ܷ~!";
	close;
}

malaya,270,59,4	script	ۿ #ma03	570,{
	if (malaya_hi < 10) {
		emotion e_swt2;
		mes "[ۿ ]";
		mes "ô̫ƽ.Ҿô뿪ð?";
		close;
	} else if (malaya_hi < 20) {
		emotion e_no;
		mes "[ۿ ]";
		mes ",ׯѾ,ʹ,ҹŵʱҲС.";
		close;
	}
	if (rand(1,3) == 2) {
		mes "[ۿ ]";
		mes getd("$ma_name0"+rand(1,6)+"$")+"˵,.϶Ǹɫ!";
		close;
	}
	emotion e_omg;
	mes "[ۿ ]";
	mes "ʲô?!ۿڽ!!";
	next;
	mes "[ۿ ]";
	mes "?㲻Ƕӳ?!..,ҽӵһйο͵Ĺٷļ.";
	next;
	select("ʲôļ?");
	mes "[ۿ ]";
	mes "ļ˵,οҹڴׯʱһҪСĹû.";
	next;
	mes "[ۿ ]";
	mes "ᾭڴû,ǻὫչսӲҹ.";
	next;
	mes "[ۿ ]";
	mes "..һֽʳʬĹﾭϳ,һҪСı.";
	next;
	switch(select("֪.:ʲô취ֹǽô?")) {
	case 1:
		mes "[ۿ ]";
		mes "ϵʱҪС!";
		close;
	case 2:
		mes "[ۿ ]";
		mes "˵,㱻ڱŵʱ,Գû﹥!";
		next;
		mes "[ۿ ]";
		mes "ʳʬԶ,һҪ̶Ľȥ.";
		next;
		emotion e_hmm;
		mes "[ۿ ]";
		mes "ҪɿǺܴ,ร,ʱ־!";
		close;
	}
}

malaya,88,252,4	script	СŮ#ma04	576,{
	if (malaya_hi < 10) {
		mes "[СŮ]";
		mes "Һܺ,һҪȥݷɭľ.";
		close;
	} else if (malaya_hi < 20) {
		mes "[СŮ]";
		mes "Ǻ.ְ˵ֻҪӻָƽҾȥɭְݷþ.";
		close;
	}
	if (rand(1,3) == 2) {
		set .@name$, getd("$ma_name0"+rand(1,6)+"$");
		mes "[СŮ]";
		mes "ǰ,"+.@name$+"˵һȤĻ~";
		next;
		mes "[СŮ]";
		mes "'Ժһ~'";
		mes " Ǻ,Ȥ~ô?"+.@name$+"ǸȤ~!";
		close;
	}
	mes "[СŮ]";
	mes "ְ˵,ֻҪɭľΪѾͲƤ!";
	next;
	select("ʲô?");
	mes "[СŮ]";
	mes "Ů!סɭĴʯ.ŮŮ,Ҳе...";
	next;
	mes "[СŮ]";
	mes ",ŮȽϺÿŶ...Ϊʲô...";
	close;
}

malaya,219,92,6	script	С#ma05	577,{
	if (malaya_hi < 10) {
		mes "[С]";
		mes "˵̫Σ,ҳȥ.Ϊʲô?";
		close;
	} else if (malaya_hi < 20) {
		mes "[С]";
		mes "ֻǸۿˣ.";
		next;
		mes "[С]";
		mes "Ǻ,ҴûȥǸۿ.";
		close;
	}
	if (rand(1,3) == 2) {
		mes "[С]";
		mes "˵Ŷ,صĴׯʳ˲ñ..";
		next;
		mes "[С]";
		mes "ΪʲôҪ͵ñ?"+getd("$ma_name0"+rand(1,6)+"$")+"϶Ҫ.";
		next;
		mes "[С]";
		mes "Ŷ!!ȵ.. ӦǸܵ.~~~~~ʲôûŶ!";
		close;
	}
	mes "[С]";
	mes "͵˴еñ!";
	next;
	mes "[С]";
	mes "ھǵñڼǰѾʧ,ϴõñҲ.";
	next;
	mes "[С]";
	mes "...û᲻Ǳʳ˲?";
	next;
	mes "[С]";
	mes "ҵ˵,ʳ˲Щʧñ...";
	close;
}

malaya,363,283,4	script	ؾ#ma06	582,{
	if (malaya_hi < 10) {
		mes "[ؾ]";
		mes "...Ů׵!";
		next;
		mes "[ؾ]";
		mes ",һҪСجʦ!";
		close;
	} else if (malaya_hi < 20) {
		mes "[ؾ]";
		mes "ӭ!";
		next;
		mes "[ؾ]";
		mes "Щȫ,˭۾Ǻɫ,мɲҪǵ۾!!";
		close;
	}
	set .@name$, getd("$ma_name0"+rand(1,6)+"$");
	switch(rand(1,6)) {
	case 1:
		mes "[ؾ]";
		mes "ҹŵʱһҪС,˵"+.@name$+"ʳʬ.";
		close;
	case 2:
		mes "[ؾ]";
		mes .@name$+"˵ɹѱһֻаħ.һһ¸!!ϣۼֻаħ!";
		close;
	case 3:
		mes "[ؾ]";
		mes "м۹ô?˵"+.@name$+"ץһֻ.";
		close;
	case 4:
		mes "[ؾ]";
		mes "ȥׯ,һҪСĶħӤ."+.@name$+"סԺ,˵ħӤƭ.";
		close;
	case 5:
	case 6:
		break;
	}
	mes "[ؾ]";
	mes "ܻ,جʦֻ..";
	next;
	select("جʦ?");
	mes "[ؾ]";
	mes "ǹʦ,Ҳ·,ͺһ.";
	next;
	mes "[ؾ]";
	mes "جʦ޲.";
	next;
	select("ûа취Աϳֹ?");
	mes "[ؾ]";
	mes "һְ취,еجʦǺɫ۾.";
	next;
	mes "[ؾ]";
	mes "ͨǵ۾ɫ,һҪмһ!";
	next;
	mes "[ؾ]";
	mes "ǵ۾̫!Ȼᱻجʦ.";
	next;
	mes "[ؾ]";
	mes "!ǵ۾!!";
	close;
}

malaya,41,127,6	script	 #ma07	574,{
	if (malaya_hi < 10) {
		mes "[]";
		mes "ǲϣ,Ϊȫ.";
		close;
	} else if (malaya_hi < 20) {
		mes "[]";
		mes "治Ǵׯεʱ,ǲϣǰ.";
		close;
	}
	if (rand(1,3) == 2) {
		mes "[]";
		mes getd("$ma_name0"+rand(1,6)+"$")+"˵ڴﶪ˽ձȽᾧ. ";
		next;
		mes "[]";
		mes ",..϶ǸֵӵнձȽᾧ!";
		close;
	}
	mes "[]";
	mes "ҪĻעǲجסǿ.";
	next;
	mes "[]";
	mes "Ҫʹجסľϵľͷ췿,ֵᷢ!";
	next;
	select("ᷢʲô?");
	mes "[]";
	mes "ج˵,ζʧȥԼļ,͵ű!";
	next;
	mes "[]";
	mes "Ҫ˯ʱ,ǻ,޷˯.";
	next;
	mes "[]";
	mes "ʱ,,ǻֱû.";
	next;
	select("....");
	mes "[]";
	mes "!ͨûج,Ļʧ.";
	close;
}

malaya,63,185,4	script	Ů#ma08	583,{
	if (malaya_hi < 10) {
		mes "[Ů]";
		mes "ûʲôԺ˵.";
		close;
	} else if (malaya_hi < 20) {
		mes "[Ů]";
		mes "ҺܵЩ.ϣ﷢Ŀ¼Ӱ.";
		close;
	}
	if (rand(1,3) == 2) {
		set .@name$, getd("$ma_name0"+rand(1,6)+"$");
		set .@rand, rand(1,10);
		if (.@rand < 5) {
			mes "[Ů]";
			mes "ϲȤ.֮ǰ,"+.@name$+"һȤĶ.";
			next;
		}
		switch(.@rand) {
		case 1:
			mes "[Ů]";
			mes "'ҵİ̲ȵһֻ.'";
			next;
			break;
		case 2:
			mes "[Ů]";
			mes "'һӳ.'";
			next;
			break;
		case 3:
			mes "[Ů]";
			mes "'Ϊʲô?'";
			next;
			break;
		case 4:
			mes "[Ů]";
			mes "ڹߵ, 'ȥ,ȴ˸ɲݰ붼˽ȥ.'";
			next;
			mes "[Ů]";
			mes .@name$+"˵ӳ˹ߵ.";
			next;
			break;
		case 5:
			mes "[Ů]";
			mes "ҵһԱѸйһλ˵Ĺ.";
			next;
			mes "[Ů]";
			mes "'翨,ǴӲ,һǽ,Ҳǿ.'";
			next;
			mes "[Ů]";
			mes "Ǻ~~ϲȤĹ~ҪҵĿζе~";
			close;
		default:
			mes "[Ů]";
			mes "ϲȤ,һ~һ~ "+.@name$+", Ƭ,ͬô?";
			next;
			mes "[Ů]";
			mes "Ƭ,ҪڰӰй.";
			next;
		}
		mes "[Ů]";
		mes "Ǻ~ⲻǺȤ~?";
		close;
	}
	mes "[Ů]";
	mes "ӴִӤĿ,ǧҪ.";
	next;
	select("Ϊʲô?");
	mes "[Ů]";
	mes "һֽжħӤĹڴε,ǽԼΪ޵Ӥ˵ע.";
	next;
	mes "[Ů]";
	mes "һ㱧Ӥ,ͻֳԭι.";
	next;
	select("ǸɵĹ.");
	mes "[Ů]";
	mes "ǵ,ֹߵĺ̫޳....";
	next;
	mes "[Ů]";
	mes "..ֹһδӵת....̫..";
	close;
}


// Jeepneys
//============================================================
function	script	F_Malaya_Jeepney	{
	.@mapName$        = getarg(0);
	.@passengers      = getarg(1);

	// set the other messages of varying amount)
	for (.@i = 5; .@i < getargcount(); .@i++) {
		setd(".@msgJeepneyInfo$[" + (.@i - 5) + "]", getarg(.@i));
	}

	if (malaya_hi < 10) {
		mes "[Jeepney Driver]";
		mes getarg(2);
		close;
	} else if ((malaya_hi >= 10) && (malaya_hi < 20)) {
		mes "[Jeepney Driver]";
		mes getarg(3);
		close;
	} else {
		mes "[Jeepney Driver]";
		mes getarg(4);
		next;
	}
	switch(select("Board [Passenger " + getmapusers(.@mapName$) + "/" + .@passengers +"]:Jeepney?:Are there any other Jeepneys?:Ah... Yes...")) {
	case 1:
		if (getmapusers(.@mapName$) >= .@passengers) {
			mes "[Jeepney Driver]";
			mes "I'm afraid the Jeepney is full.";
			mes "I'm sorry but how about some other Jeepney?";
			close;
		} else {
			mes "[Jeepney Driver]";
			mes "Have a nice day.";
			close2;
			warp .@mapName$,29,24;
			end;
		}
	case 2:
		// iterate through all the jeepney information for this specific NPC
		for (.@i = 0; .@i < getarraysize(.@msgJeepneyInfo$); .@i++) {
			mes "[Jeepney Driver]";
			mes getd(".@msgJeepneyInfo$[" + .@i + "]");

			if (.@i < (getarraysize(.@msgJeepneyInfo$) - 1)) {
				next;
			}
		}
		close;
	case 3:
		mes "[Jeepney Driver]";
		mes "Oh! Other Jeepneys are in operation, of course.";
		next;
		mes "[Jeepney Driver]";
		mes "In Port Malaya there are 12, 30 and 60 passenger Jeepneys with 3 each operating.";
		next;
		mes "[Jeepney Driver]";
		mes "Would you like to know the location of other cars?";
		next;
		switch (select("I'd like to know where the 12 passenger car is.:I'd like to know where the 30 passenger car is.:I'd like to know where the 60 passenger car is.")) {
		case 1:
			viewpoint 1, 237, 240, 1, 0xF7E009;
			viewpoint 1, 67 , 44 , 2, 0xF7E009;
			viewpoint 1, 282, 129, 3, 0xF7E009;
			set .@zif_in, 12;
			break;
		case 2:
			viewpoint 1, 134, 250, 4, 0xF7E009;
			viewpoint 1, 341, 153, 5, 0xF7E009;
			viewpoint 1, 293, 290, 6, 0xF7E009;
			set .@zif_in, 30;
			break;
		case 3:
			viewpoint 1, 242, 221, 7, 0xF7E009;
			viewpoint 1, 62 , 245, 8, 0xF7E009;
			viewpoint 1, 257, 58 , 9, 0xF7E009;
			set .@zif_in, 60;
			break;
		}
		mes "[Jeepney Driver]";
		mes .@zif_in+" passenger Jeepney's location has been marked on your map.";
		next;
		break;
	}
	mes "[Jeepney Driver]";
	mes "Have a nice trip.";
	close;
}

malaya,237,240,4	script	Jeepney Driver#01	582,{
	callfunc(
		"F_Malaya_Jeepney",
		"ma_zif01",
		12,

		// Messages for malaya_hi checks.
		"UUrgghhhh.... I'm scared... so scared... what happened to this place?",
		"The place is still a mess... I wonder if I can operate a jeepney here...",
		"Ha ha ha Welcome. I am ^1561EAVol^000000, operating the 12 man Jeepney here.",

		// Monologues of variable lengths.
		"Is this your first time in Port Malaya?",
		"Jeepney drivers here also promote Jeepneys, so let me explain them to you.",
		"Jeepneys were first developed to transport goods quickly, but are now used as public transport.",
		"Since everybody has different tastes, you can see those with cool and elaborate decorations.",
		"Of course you don't need to drive them yourselves, but you can ride them so please feel free to do so."
	);
}

malaya,67,44,4	script	Jeepney Driver#02	582,{
	callfunc(
		"F_Malaya_Jeepney",
		"ma_zif02",
		12,

		"Wha... What's... Going on in that hospital...",
		"I think the moaning coming from the hospital has lessened...",
		"I'm ^1561EAChui^000000, operating a 12 man Jeepney. Hi there~",

		"Is this your first time in Port Malaya?",
		"Jeepney drivers here also promote Jeepneys, so let me explain them to you.",
		"Jeepneys were first developed to transport goods quickly, but are now used as public transport.",
		"I modified my Jeepney myself...",
		"For safety reasons there's a limit to the number of passengers, and it's safe so no worries..."
	);
}

malaya,282,129,4	script	Jeepney Driver#03	582,{
	callfunc(
		"F_Malaya_Jeepney",
		"ma_zif03",
		12,

		"It's not good for outsiders to have a chat... Perhaps the Mumbaki Leader may have the solution for this.",
		"Are you the adventurer who recently met Mumbaki? No wait... Then you shouldn't be here... Yes it's a ghost... Arghhhh...",
		"The name's ^1561EATop^000000, operating one of the 3 12 man Jeepneys in town.",

		"First time in town?",
		"Jeepney drivers here also promote Jeepneys, so let me explain them to you.",
		"Jeepneys were first developed to transport goods quickly, but are now used as public transport.",
		"They all look different depending on their drivers...",
		"Now it is the fame of Port Malaya."
	);
}

malaya,134,250,6	script	Jeepney Driver#04	582,{
	callfunc(
		"F_Malaya_Jeepney",
		"ma_zif04",
		30,

		"G...Go... Go away...",
		"Arghh... Scared the devil out of me... Go away... Shoo...",
		"^1561EABrav^000000, 30 man Jeepney driver at your service, driving as safely as I can since I get scared easily.",

		"Is this your first time in Port Malaya?",
		"Jeepneys were first developed to transport goods quickly, but are now used as public transport.",
		"The modified cars are decorated by their operators.",
		"You come to Port Malaya, you must ride a Jeepney.",
		"Ha ha ha, of course you can't drive it yourself."
	);
}

malaya,341,153,4	script	Jeepney Driver#05	582,{
	callfunc(
		"F_Malaya_Jeepney",
		"ma_zif05",
		30,

		"G... Ghosts in town... Hey... Do you have one on you?",
		"I think there are fewer ghosts now... The town is slightly quieter...",
		"Hi I'm ^1561EALivil^000000 operator for the 30 man Jeepney. Safety is my priority.",

		"First time in town?",
		"I'll give you a quick guide as a service.",
		"Jeepneys were first developed to transport goods quickly, but are now used as public transport.",
		"For safety reasons, Jeepneys have a limit on the number of passengers.",
		"Some carried 180 people, but there aren't any of those in Port Malaya today."
	);
}

malaya,293,290,6	script	Jeepney Driver#06	582,{
	callfunc(
		"F_Malaya_Jeepney",
		"ma_zif06",
		30,

		"Gu... Guards... What are the guards doing...",
		"Did the guards finally do something? Phew... What a rush...",
		"I'm ^1561EAGad^000000, the trustworthy 30 man Jeepney driver.",

		"I see you're new to this town.",
		"To guide travelers is also my task!! Let me explain.",
		"Jeepneys were goods transport vehicles, now decorated and modified with Port Malaya's new technology!!",
		"This Jeepney is my very own handiwork. Ha ha ha... It's cool right? Ha ha ha",
		"Even though the customer is king, I can't let you drive it... Ha ha ha"
	);
}

malaya,242,221,4	script	Jeepney Driver#07	582,{
	callfunc(
		"F_Malaya_Jeepney",
		"ma_zif07",
		60,

		"Oh no... I think the whole village is bewitched by ghosts... Maybe... I should give the Mumbaki Leader a visit...",
		"Ghost... I'm sure the Mumbaki Leader knows how to get rid of these ghosts...",
		"^1561EAHott^000000, at your service, the safest 60 man Jeepney Operator.",

		"Jeepney is the public transportation of Port Malaya.",
		"Therefore they are everywhere. And it's free! I know they all have different passenger limits, but that's no problem because they're everywhere."
	);
}

malaya,62,245,6	script	Jeepney Driver#08	582,{
	callfunc(
		"F_Malaya_Jeepney",
		"ma_zif08",
		60,

		"Shoo~ Be gone if you're a ghost, and go away even if you're human~ Shoo~",
		"Hey... You... Are human right? Right? Huh? Say you are... Please...",
		"Hullo, I'm ^1561EAMuyan^000000, operator of this 60 man Jeepney. Nice to meet you.",

		"Jeepneys are public transport, so safety is our priority.",
		"My Jeepney received the best class of Port Malaya, a '60 man Jeepney' certificate.",
		"Meaning!! That it is perfectly safe!! Don't you worry about the ride."
	);
}

malaya,257,58,6	script	Jeepney Driver#09	582,{
	callfunc(
		"F_Malaya_Jeepney",
		"ma_zif09",
		60,

		"...You're an outsider... Don't go touching anything and be careful in town...",
		"The town is still quite dangerous. Best not touch anything until it is safe.",
		"Hi there. I'm ^1561EAGramma^000000, Operator of the 60 man Jeepney of Port Malaya.",

		"Is this your first time in Port Malaya?",
		"We Jeepney drivers here also promote Jeepneys, so let me explain them to you.",
		"Jeepneys were first developed to transport goods quickly, but are now used as public transport.",
		"Since everybody have different tastes, you can see those with cool and elaborate decorations.",
		"Of course you don't need to drive them yourselves, but you can ride them so please feel free to do so."
	);
}