

moscovia,135,49,5	script	Qե#mosk	964,{
	switch (mos_whale_edq) {
	case 2:
		mes "[Qե]";
		mes "ٯuְ...";
		mes "ϧڲ{bܦh";
		mes "_HeCK";
		mes "Soӧn@";
		next;
		mes "[Qե]";
		mes "Lhڤ]gL";
		mes "Qnǻ_I̪ɭ԰...";
		mes "";
		next;
		if (mos_whale_edq == 1) {
			select("·л@UAHe_IGƧa");
		} else {
			if (select("·л@UAHe_IGƧa:iHɵڶ?")==1) {
			} else {
				mes "[Qե]";
				mes "~H ɵA";
				mes "AnO? ڹon_...";
				next;
				mes "["+ strcharinfo(0) +"]";
				mes "FnMboyq";
				mes "۶ǻҬyǤUӷ|ʪq";
				mes "Qnh_IY";
				next;
				mes "[Qե]";
				mes "AOʪq...";
				mes "ڤ]ثeqӨSڪݹL";
				mes "yq... CK";
				mes "ڪCKڡA";
				next;
				mes "[Qե]";
				mes "ƱA@wq";
				mes "@jaaYa";
				next;
				mes "[Qե]";
				mes "ڤ]n[@UAF...";
				mes "ڻݭn~H";
				mes "nڪƱ";
				next;
				mes "[Qե]";
				mes "]n[SpL";
				mes "ݭnʤO譱A";
				mes "]bo̷ǳƧƻݭnnh";
				mes "iHܽЦ~HڷǳƴNnF";
				next;
				mes "[Qե]";
				mes "ƦpUҥܡA";
				mes "ڷǳƨ^0000FF]۩ 10ӡAê";
				mes "10ӡAn 5ӡAp 10^000000Yi";
				next;
				mes "[Qե]";
				mes "ƳǳƦnܴNӵڧaA";
				mes "boӴ";
				mes "ڷ|˲";
				set mos_whale_edq,3;
				close;
			}
		}
		mes "[Qե]";
		mes "ݧAҼˡAAo~H";
		mes "]OqӪ_Ia...";
		mes "...";
		mes "wz";
		next;
		mes "[Qե]";
		mes "ɧڥb c--̼w[";
		mes "UӦahȦ";
		mes "]OMAo˦P˪~֧aA";
		mes "... nh... Ӯɭ԰...";
		next;
		mes "[Qե]";
		mes "{bڪ߳Lh";
		mes "Noˬݵ۬Gm";
		mes "^QۨɭԪ^а...";
		next;
		mes "[Qե]";
		mes "... nq̶}l_O...";
		mes "nq򥨤jiQ̥MĹGƶ}l_a";
		next;
		mes "...";
		next;
		mes ".....";
		next;
		mes ".....";
		next;
		mes "["+ strcharinfo(0) +"]";
		mes "...";
		next;
		mes "[Qե]";
		mes "A]Oťo˪_IG";
		mes "߱]ܱoܴrְڡA..";
		mes "ɧڪ~ 24ɭ...";
		mes "کMڪ٦̥gL񪺴˪L";
		next;
		mes "....";
		next;
		mes ".....";
		next;
		mes "......";
		next;
		mes "[Qե]";
		mes "]OکR몺D";
		mes "~٦̩M";
		mes "७w^ӪA˰?";
		next;
		mes "[Qե]";
		mes "UnO";
		mes "qF_ީҵoͪGơA˰?";
		next;
		if(select("oӬGơAUbťnF...:nڡA~򻡧a")==1) {
			mes "[Qե]";
			mes "o˰... IAoO쪺ɭ";
			mes "ni... ...";
			mes "ڭ̤U@AnF";
			close;
		}
		mes "[Qե]";
		mes "GMOo˶? ... oB";
		mes "IڬO ӦPDX~H...";
		next;
		mes "[Qե]";
		mes "oNbF_޸";
		mes "ҵoͪjԪGo";
		next;
		mes "...";
		next;
		mes "....";
		next;
		mes ".....";
		next;
		mes "[Qե]";
		mes "No˿EPѾ԰";
		mes "NoˤlF... I...";
		next;
		mes "[Qե]";
		mes "... n[SAo˪~H";
		mes "పoťGưڡA";
		mes "ڤܴ߱rְ";
		next;
		mes "[Qե]";
		mes "A@wO";
		mes "j_IaڡA";
		mes "ݼˤlکMAনnBͪˤl...";
		next;
		mes "[Qե]";
		mes "U@]ЧA@U";
		mes "A_IGƧa...";
		mes "YneUڪƱ";
		mes "NHɱoڻa... ";
		set mos_whale_edq,2;
		close;
	case 3:
		mes "[Qե]";
		mes "Ƴ`?";
		mes "unOƪ";
		mes "X誺ǳƳOF...";
		next;
		if (countitem(7312) < 10 && countitem(7317) < 10 && countitem(7167) < 10 && countitem(7325) < 5) {
			mes "[Qե]";
			mes "Ƥ...";
			mes "OOSѰOƤFO?";
			next;
			mes "[Qե]";
			mes "ƦpUҥܡA";
			mes "ڷǳƨ^0000FF]۩ 10ӡAê";
			mes "10ӡAn 5ӡAp 10^000000Yi";
			next;
			mes "[Qե]";
			mes "ƳǳƦnܴNӵڧaA";
			mes "boӴ";
			mes "ڷ|˲";
			close;
		}
		delitem 7312,10;
		delitem 7317,10;
		delitem 7167,10;
		delitem 7325,5;
		set mos_whale_edq,4;
		mes "[Qե]";
		mes "... Ƴ`ڡA";
		mes "oˤlNF";
		next;
	case 4:
		mes "[Qե]";
		mes " {b~ǳƳ˦nFO...";
		mes "аݤɭԭnXO?";
		mes "ڥܻMa";
		mes "ӶUsQnpOx";
		next;
		mes "[Qե]";
		mes "o쪺ܦMI";
		mes "ӶUsYϬOܼmQH";
		mes "äO@ӫܮe";
		mes "";
		next;
		if (gettime(3) > 20 || gettime(3) < 8) {
			mes "[Qե]";
			mes "M... HثeA";
			mes "nį}gܥ";
			mes "Oӫƹ...";
			mes "ҥHXǳƳ";
			mes "ЦbӶUseNiDڧa";
			close;
		}
		mes "[Qե]";
		mes "... ɶW٦n...";
		mes "bӶUsen֤@IpڡA";
		mes "wgbXYWǳƦnF";
		mes "NWXoa";
		close2;
		set mos_whale_edq,5;
		set $@helm,1;
		warp "mosk_ship",91,109;
		end;

	case 5:
		mes "[Qե]";
		mes "W@XٯuOӭWtư...";
		mes "ϥ_IٳO";
		mes "oˤl... ...";
		next;
		mes "[Qե]";
		mes "p~Qp";
		mes "ЦbӶɶ";
		mes "Aӧڻܧa";
		next;
		mes "[Qե]";
		mes "аݧAnXo?";
		next;
		if (select("Xo:Xo")==1) {
			if (gettime(3) > 20 || gettime(3) < 8) {
				mes "[Qե]";
				mes "... ӶwgUsF...";
				mes "]ߤWɮܱoܥr";
				mes "nX誺ܬOܦMI";
				next;
				mes "[Qե]";
				mes "ѦWӶɰ_ɦAӧڧaA";
				mes "ثeOȮɤ";
				mes "X...";
				close;
			}
			mes "[Qե]";
			mes "... ɶW٦n...";
			mes "bӶUsen֤@IpڡA";
			mes "wgbXYWǳƦnF";
			mes "NWXoa";
			close2;
			set mos_whale_edq,5;
			set $@helm,1;
			warp "mosk_ship",94,110;
			end;
		}
		mes "[Qե]";
		mes "򵥨X賣ǳƦn";
		mes "Asڻa";
		close;
	case 6:
		mes "[Qե]";
		mes "Ѱ A... ٬۰ڡA@...";
		mes "AQJ̳Q}";
		mes "ڥHMAûA]ݤF";
		next;
		mes "[Qե]";
		mes "аݧA@ݦb̤~ӪO?";
		mes "A̤ O˵oi?";
		next;
		select("ԲӪƱLť");
		mes "[Qե]";
		mes "@... oٯuOӯ_ƱڡA";
		mes "DyqٯuOsb...";
		next;
		mes "[Qե]";
		mes "åByqäOq";
		mes "OӥjH?...";
		mes "bHWbybͪ";
		mes "...";
		next;
		mes "[Qե]";
		mes "F@lbťLGƤ";
		mes "oO̯_̤imHƱ...";
		next;
		mes "[Qե]";
		mes "åBѤH]Y...";
		mes "]\OgLܰצ";
		mes "pF몺sba";
		next;
		mes "[Qե]";
		mes "YGƶiio䪺";
		mes "AӪiD ǳoƹA";
		mes "HKo{Hq";
		mes "ӱo촩UƱ?";
		next;
		mes "[Qե]";
		mes " oد_";
		mes "öQ~γoجGƫD`";
		mes "w... pťAGƪ";
		mes "]\|AUFj]@w...";
		next;
		mes "[Qե]";
		mes "pU@|nXݨyq";
		mes "ڤ]ٯuQ@_h... ";
		set mos_whale_edq,7;
		close;
	case 7:
		mes "[Qե]";
		mes "o˦쪺öQG";
		mes "c̪ ť";
		mes "L@w|ܰ";
		next;
		mes "[Qե]";
		mes "@w|AUFj઺...";
		close;
	}
}

mosk_ship,98,110,3	script	Qե#ship	964,{
	switch ($@helm) {
	setarray @direct$[1],"F","","n","_";
	case 0:
		switch (mos_whale_edq) {
		case 4:
		case 5:
			mes "[Qե]";
			mes "...";
			mes "oOh[~Ӥ@...";
			mes "ٯuDְ";
			next;
			mes "["+ strcharinfo(0) +"]";
			mes "SnǦMI";
			mes "xjۨӧa...";
			next;
			mes "[Qե]";
			mes "A˧ڤA@";
			mes "vƱa... ٦o";
			mes "Oڤ@lnBͰڡA";
			mes "o򭫭nnB";
			mes "`No˩eUAa?";
			next;
			mes "[Qե]";
			mes "ڦboۮvP";
			mes "|AUFOA";
			mes "ANӧڪOվVNnF";
			next;
			mes "[Qե]";
			mes "OANV~ObFNnF";
			set $@helm,2;
			set @q,1;
			close;
		default:
			close;
		}
	case 1:
	case 4:
		switch(rand(1,12)) {
		case 1:	set @q,1; break;	//F
		case 2:	set @q,2; break;	//
		case 3:	set @q,3; break;	//n
		case 4:	set @q,4; break;	//_
		default:
			mes "[Qե]";
			mes "٨S... yV";
			mes "٨S... ثeҬݨ";
			mes "٨Sܤư...";
			next;
			mes "[Qե]";
			mes "No˺ثep~򪺯";
			mes "ӬOˤl";
			close;
		}
	case 2:
		mes "[Qե]";
		mes "... yV...";
		mes "ӮyVV멹"+ @direct$[@q] +"";
		mes "վa";
		set $@helm,2;
		close;
	case 3:
	case 5:
		mes "[Qե]";
		mes "{bn]̵";
		mes "Ou...";
		close;
	case 6:
		mes "[Qե]";
		mes "Aݨ... AݨvW";
		mes "۬Yدʰ?";
		next;
		mes "[Qե]";
		mes "... Ө쩳...";
		mes "O... A...AA";
		mes "ЧAҪOWJӪݤ@UnܡA֤@I...";
		close2;
		enablenpc "#shipwarp";
	default:
		end;
	}
}

mosk_ship,100,110,3	script	V#ship	111,{
	switch ($@helm) {
	case 1:
	case 4:
		mes "[Qե]";
		mes "٨S... yV";
		mes "٨S... ثeҬݨ";
		mes "٨Sܤư...";
		next;
		mes "[Qե]";
		mes "No˺ثep~򪺯";
		mes "ӬOˤl";
		close;
	case 2:
		mes "VnӤVO?";
		next;
		set .@o,select("F::n:_");
		if (.@o != @q) {
			mes "[Qե]";
			mes "ڤOV"+ @direct$[@q] +"A";
			mes "֧V"+ @direct$[@q] +"䵹쥿Ta";
			close;
		}
		mes "[Qե]";
		mes "... n...";
		mes "No~򪺩"+ @direct$[@q] +"䨫nFA";
		mes "ڦAUFO";
		mes "N·ЧAվVa";
		set $@helm,1;
		close2;

		if (rand(1,5)==1) {
			mes "[Qե]";
			mes "@U... eX{FFA";
			mes "O]...]...";
			close2;
			if ($@mon == 1) {
				mes "[Qե]";
				mes "o@å̩MثeҬݨ쪺å";
				mes "PıWO@˪Anp߰...";
				mes "n]̥nѨMa";
				set $@helm,5;
				monster "mosk_ship",87,113,"v]",1406,1,"V#ship::OnDead2";
				monster "mosk_ship",85,113,"v]",1406,1,"V#ship::OnDead2";
				monster "mosk_ship",86,113,"v]",1451,1,"V#ship::OnDead2";
				close;
			}
			set $@helm,3;
			monster "mosk_ship",87,113,"v]",1044,1,"V#ship::OnDead";
			monster "mosk_ship",85,113,"v]",1044,1,"V#ship::OnDead";
		}
		end;
	case 3:
	case 5:
		mes "[Qե]";
		mes "{bn]̵";
		mes "Ou...";
		close;
	default:
		end;
	}

	OnDead:
		if ($@x > 0) {
			set $@helm,1;
			set $@mon,1;
			set $@x,0;
		} else {
			set $@x,$@x+1;
		}
		end;

	OnDead2:
		if ($@y > 1) {
			set $@mon,0;
			set $@helm,6;
			set $@y,0;
		}
		else {
			set $@y,$@y+1;
		}
		end;

	OnInit:
		disablenpc "#shipwarp";
		end;
}

mosk_ship,81,109,1	script	#shipwarp	844,1,1,{
	if ($@helm == 6) {
		mes "ڰڰڰڰڰڰڰ";
		close2;
		disablenpc "#shipwarp";
		warp "mosk_fild01",93,95;
	}
	end;
}