//===================================
// =ս(War of Porings)
// =By BlackJack
// =汾 V 1.1
// =2010.1.15
// = SeAr_1.2.93
// =Ա
// =BUG㱨ϵQQ263639348
// =˽űȥȨҵ;
// =ΪתأȨBlackjack
// ==============־=================
// = 2010.1.15 
// = 11:50 am ʼдű (BlackJack)
// = 12:00 am Իд (BlackJack)
// = 18:05 pm дĲ (BlackJack)
// = 2010.1.16
// = 0:20 am д (BlackJack)
// = 2010.1.17
// = 8:00 am ĲBUG (BlackJack)
// = 2010.1.28
// = 16:00 pm BUG (BlackJack and )
//===================================

//==============  ==================
-	script	Config	-1,{
OnInit:
	set $pw_level,50;	//Ҫȼ

	set $pw_zeny,500;	//

	set $pw_team_players,5; //

	set $pw_Reward,7539; 	//Ʒ

	set $pw_badge,7773;	//ɱжһ
//============  ===================
	disablenpc "WoF_1";
	disablenpc "WoF_2";
	set $@pw_cushi,0;
	set $@pw_cushi1,0;
	set $@pw_cushi2,0;
	end;
}


//==============  ==================
prontera,146,101,5	script	սԱ	909,{

	if (getcharid(1)) {
	mes "[սԱ]";
	mes "ж.";
	mes "˳.";
	close;
	}
	if(BaseLevel<$pw_level){
		mes "[]";
		mes "ĵȼﵽ50ϲܰ";
		emotion e_sob;
		close;
	}
	if(!Wop){
		mes "[]";
		mes "װʿǣиܴ鷳";
		mes "ܰ?";
		next;
		if(select("ʲô?:ûϵ.") == 2){
		mes "[]";
		mes "ı";
		emotion e_sob;
		close;
	}
		mes "[]";
		mes "^F06EAAʹ^000000  ^42B4FFħ^000000 սˡļˡ?";
		next;
		if(select("ǵ,Ը:ûϵ") == 2){
		mes "[]";
		mes "ûԸǡǸô?.. **";
		emotion e_sob;
		close;
		}
		mes "[]";
		mes "ҽ㵽սһ֧^F34040"+$pw_team_players+"^000000 ˵Ķ飬ȻѡҪһ";
		set Wop,1;
		next;
	}
		mes "[]";
		mes "...Ҫ^F34040"+$pw_zeny+"^000000z.ĿȻ࣬ҷǳҪ";
		next;
		if (select("ҸǮ:!") == 2) {
		mes "[]";
		mes "oh...СǸôأ.. **";
		emotion e_sob;
		close;
	}
		if (Zeny < $pw_zeny) {
		mes "[]";
		mes "û ^8DC63F"+$pw_zeny+"z^000000.";
		emotion e_sob;
		close;
	}
		mes "[]";
		mes "ڽ㴫͵ս,׼";
		mes "ڱ;вܵǳ,￨Ŷ!!";
		emotion e_thx;
		next;
		if (select("׼:һ") == 2) {
		mes "[]";
		mes "";
		close;
	}
		mes "[]";
		mes "лİæ";
		set Zeny,Zeny-$pw_zeny;
		set @image,0;
		close2;
		warp "poring_w01",98,103;
		if(countitem(7773)>=1){
		set @item,countitem(7773);
		delitem 7773,@item;
		end;
	}
		announce "ս桿:["+strcharinfo(0)+"]μ˲ս.",bc_all;
		end;

}
//============== Ա ==================
poring_w01,96,97,3	script	ԱСħ	738,{
		mes "[Сħ]";
		mes ".ӭĵ!~";
		mes "Ҫһ?";
		mes "^F06EAAʹ^000000  ^42B4FFħ^000000?";
		mes "...áǳã";
		next;
		mes "[Сħ]";
		mes "һΪЩս⡣˽";
		next;
		switch (select("ҿԲμ?:սʽ?:ȡ:ȥ")) {
	   case 1:
		mes "[Сħ]";
		mes "װ࣬㵱ȻԲμ!~";
		mes "ͨͲ˶ܲμⳡ?";
		mes "ȥԱߵĲǱ!!";
		next;
		mes "[Сħ]";
		mes "ڴҲ˵!";
		mes "ע,ֻ˵һŶ";
		next;
		mes "[Сħ]";
		mes "ڵȴʱ㲻뿪^DD3636"+($WoP_Players*2)+"^000000.";
		mes "Ķѽ͵ָѡ ^F06EAAAʹ^000000 , ^42B4FFħ^000000 .";
		next;
		mes "[Сħ]";
		mes "еԱÿԱԶ͡";
		mes "ֻһСʱʱǼӵǼɺԶ";
		next;
		mes "[Сħ]";
		mes "ҽڽȴҺĶ.";
		mes "˫Ҷ׼ú󽫽 ^DD3636PvP ģʽ^000000 .";
		close;
		end;
	   case 2:
		mes "[Сħ]";
		mes "սʽܼ.";
		mes "˵.";
		next;
		mes "[Сħ]";
		mes "սΪ ^8DC63F2^000000 .";
		mes " ^8DC63F1^000000 .ֻҪܶԷĲ";
		mes " ^8DC63F2^000000 .ҪɱжҾͿȡս, սǶ, ǶöºͿɽȥһеڶ.";
		mes "ɱĲ10ڸ,λպʱ";
		next;
		mes "[Сħ]";
		mes "Ŷ,Ҳ˵!ǸԵĲǲֵҵĽй, λע.";
		mes "?";
		close;
		end;
	   case 3:
		close;
		end;
	   case 4:
		mes "[Сħ]";
		mes "ϧ,һΪܹǵ.";
		mes "ðҴͻǵȥ.";
		close2;
		warp "prontera",154,118;
		end;
	}
}
//============== Ա ==================
poring_w01,90,97,3	script		909,{
end;
OnInit:
		waitingroom "[ļ10սμ]",10,"::OnGo",10;
		end;
OnGo:
		warpwaitingpc "poring_w01",100,68;
		mapannounce "poring_w01","ս桿:Ѿ10Ҳμ˲ս,λףǿ.!!!",bc_map,0x00ff000;
		end;
}
poring_w01,92,73,3	script	ʹļԱ	909,{
end;
OnInit:
		waitingroom "[ļ5ʹӲμ]",5,"ʹļԱ::OnAngel",5;
		end;
OnAngel:
		if($@pw_cushi == 2){
		mapannounce "poring_w01","ս桿:Բ,սر.!!!",bc_map,0x00ff000;
		end;
		}
		if($@pw_cushi1 == 1){
		mapannounce "poring_w01","ս桿:Բ,սر.!!!",bc_map,0x00ff000;
		end;
		}

		warpwaitingpc "poring_w02",25,176;
		set $@pw_cushi1,$@pw_cushi1 + 1;
		mapannounce "poring_w01","ս桿:ʹѾԱ.!!!",bc_map,0x00ff000;
		sleep2 1500;
		mapannounce "poring_w02","ս桿:ʹӵ齨.Mr.Ǳ!!!",bc_map,0x00ff000;
		end;
}
poring_w01,111,73,3	script	ħļԱ	738,{
end;
OnInit:
		waitingroom "[ļ5ħӲμ]",5,"ħļԱ::OnDevil",5;
		end;
OnDevil:
		if($@pw_cushi == 2){
		mapannounce "poring_w01","ս桿:Բ,սر.!!!",bc_map,0x00ff000;
		end;
		}
		if($@pw_cushi2 == 1){
		mapannounce "poring_w01","ս桿:Բ,սر.!!!",bc_map,0x00ff000;
		end;
		}

		warpwaitingpc "poring_w02",167,176;
		set $@pw_cushi2,$@pw_cushi2 + 1;
		mapannounce "poring_w01","ս桿:ħѾԱ.!!!",bc_map,0x00ff000;
		sleep2 1500;
		mapannounce "poring_w02","ս桿:ħӵ齨.Mr.Ǳ!!!",bc_map,0x00ff000;
		end;
}
//============== Ĳ ==================
poring_w02,26,181,3	script	Mr.#Ang	739,{
		if (!getcharid(1)) {
		mes "[Mr.]";
		mes "Բ, .뱨Ļ, һ.";
		mes "Ӻ.";
		close;
		}
		getpartymember(getcharid(1));
 		if ( $@partymembercount < $pw_team_players ) {
 			mes "[Mr.]";
 			mes "̫̫. Ӧ "+$pw_team_players+" .";
 			close;
 		}
		if (getcharid(0) != getpartyleader(getcharid(1),2)) {
			mes "[Mr.]]";
			mes "ҲΪκ, ... ֻӵĶӳܵǼ.";
			close;

		}
		mes "[Mr.]";
		mes ", ... ҿǶӳ";
		mes "^0072BC"+getpartyname(getcharid(1))+"^000000 .";
		mes "Ǽ?";
		next;
		if (select("ҪǼ.:") == 2) {
		mes "[Mr.]";
		mes "㲻ĻӦøϽǼ .";
		close;
		}
		mes "[Mr.]";
		mes "^0072BC"+getpartyname(getcharid(1))+"^000000 ";
		mes "ȷŶ㹻"+$pw_team_players+" ?";
		if (select("ȷ.:") == 2) {
		mes "[Mr.]";
		mes "㲻Ļ,ӦøϽȷ.";
		close;
		}
		next;
		mes "[Mr.]";
		mes "ȷףҿ.";
		close2;
		warpparty "poring_w02",48,81,getcharid(1);
		set $@team_1,getcharid(1);
		donpcevent "Pw::OnPw";
		mapannounce "poring_w02","Mr.顿:ʹѾȷ!!!",bc_map,0x00ff000;
OnInit:
	waitingroom "еǳ￨",0;
		end;
		}
poring_w02,170,181,3	script	Mr.#Dve	739,{
		if (!getcharid(1)) {
		mes "[Mr.]";
		mes "Բ, .뱨Ļ, һ.";
		mes "Ӻ.";
		close;
		}
		getpartymember(getcharid(1));
 		if ( $@partymembercount < $pw_team_players ) {
 			mes "[Mr.]";
 			mes "̫̫. Ӧ "+$pw_team_players+" .";
 			close;
 		}
		if (getcharid(0) != getpartyleader(getcharid(1),2)) {
			mes "[Mr.]]";
			mes "ҲΪκ, ... ֻӵĶӳܵǼ.";
			close;
		}
		mes "[Mr.]"; 
		mes ", ... ҿǶӳ";
		mes "^0072BC"+getpartyname(getcharid(1))+"^000000 .";
		mes "Ǽ?";
		next;
		if (select("ҪǼ.:") == 2) {
		mes "[Mr.]";
		mes "㲻ĻӦøϽǼ .";
		close;
		}
		mes "[Mr.]";
		mes "^0072BC"+getpartyname(getcharid(1))+"^000000 ";
		mes "ȷŶ㹻"+$pw_team_players+" ?";
		if (select("ȷ.:") == 2) {
		mes "[Mr.]";
		mes "㲻Ļ,ӦøϽȷ.";
		close;
		}
		next;
		mes "[Mr.]";
		mes "ȷףҿ.";
		close2;
		warpparty "poring_w02",150,81,getcharid(1);
		set $@team_2,getcharid(1);
		donpcevent "Pw::OnPw";
		mapannounce "poring_w02","Mr.顿:ħѾȷ!!!",bc_map,0x00ff000;
OnInit:
	waitingroom "еǳ￨",0;
		end;
		}
-	script	Pw	-1,{	
OnPw:
		set $@pw_cushi,$@pw_cushi+1;
		if($@pw_cushi == 2){
		sleep2 5000;
		killmonsterall "poring_w02";
		set $@win,0;
		mapannounce "poring_w02","Mr.顿:˫Ѿȷ30ʼ!!!",bc_map,0x00ff000;
		sleep2 30000;
		pvpon "poring_w02";
		monster "poring_w02",80,81,"--ja--",1096,1,"Pw_3::OnPw1";
		monster "poring_w02",116,81,"--ja--",1582,1,"Pw_2::OnPw2";
		monster "poring_w02",98,43,"--ja--",1096,1,"Pw_3::OnPw3";
		monster "poring_w02",98,123,"--ja--",1582,1,"Pw_2::OnPw4";
		enablenpc "WoF_1";
		enablenpc "WoF_2";
		mapannounce "poring_w02","Mr.顿:ʼ!!!",bc_map,0x00ff000;

		end;
	}
	end;
}
-	script	Pw_2	-1,{	
OnPw2:
		mapannounce "poring_w02","Mr.顿:ʹӰѶħ,ʿǻȥ򵹵жռսöõǰ!!",bc_map,0x00ff000;
		set $@pw_Ammount,1;
		sleep2 5000;
		mapannounce "poring_w02","Mr.顿:10Ӻħ!!!",bc_map,0x00ff000;
		end;
		sleep2 600000;
		mapannounce "poring_w02","Mr.顿:ħ!!!",bc_map,0x00ff000;
		monster "poring_w02",80,81,"--ja--",1582,1,"Pw_2::OnPw2";
		end;
OnPw4:
		mapannounce "poring_w02","Mr.顿:ϲʹӻʤ!!!",bc_map,0x00ff000;
		announce "ս桿:["+getpartyname($@team_1)+"]սսʤ.",bc_all;
		sleep2 5000;
		set $@win,1;
		warpparty "poring_w02",99,197,$@team_1;
		warpparty "poring_w02",99,197,$@team_2;
		set $@pw_Ammount,0;
		set $@pw_cushi,0;
		set $@pw_cushi1,0;
		set $@pw_cushi2,0;
		pvpoff "poring_w02";
		disablenpc "WoF_1";
		disablenpc "WoF_2";
		end;
	}
-	script	Pw_3	-1,{	
OnPw1:
		mapannounce "poring_w02","Mr.顿:ħӰʹ,ʿǻȥ򵹵жռսöõǰ!!",bc_map,0x00ff000;
		set $@pw_Ammount,2;
		sleep2 5000;
		mapannounce "poring_w02","Mr.顿:10Ӻʹ!!!",bc_map,0x00ff000;
		end;
		sleep2 600000;
		mapannounce "poring_w02","Mr.顿:ʹ!!!",bc_map,0x00ff000;
		monster "poring_w02",116,81,"--ja--",1096,1,"Pw_3::OnPw1";
		end;
OnPw3:
		mapannounce "poring_w02","Mr.顿:ϲħʤ!!!",bc_map,0x00ff000;
		announce "ս桿:["+getpartyname($@team_2)+"]սսʤ.",bc_all;
		sleep2 5000;
		set $@win,2;
		warpparty "poring_w02",99,197,$@team_2;
		warpparty "poring_w02",99,197,$@team_1;
		set $@pw_Ammount,0;
		set $@pw_cushi,0;
		pvpoff "poring_w02";
		disablenpc "WoF_1";
		disablenpc "WoF_2";
		end;
}
poring_w02,98,113,0	script	#1	111,{
	if(getcharid(1)!=$@team_1){
		mes "[]";
		mes "ħӵҸ";
		mes "ҪҾǵĿȥ";
		close;
	}
	if($@pw_Ammount!=1){
		mes "[]";
		mes "ʹӵҸ";
		mes "Ȱѵһָɺҡ";
		close;
	}
	if(countitem($pw_badge)>=1){
		cutin "wop_emb0"+@image,2;
		mes "[]";
		mes "ȷҪǶȥ?";
		next;
		switch (select("õ:?:")){
	  case 1:
		if(@image<3){
		delitem $pw_badge,1;
		set @image,@image+1;
		mes "[]";
		mes "ʿҪ";
		close2;
		cutin "",255;
		end;
		}
		cutin "wop_emb04",2;
		delitem $pw_badge,1;
		mes "[]";
		mes "ȫǶȥˡ";
		close2;
		warp "poring_w02",99,118;
		end;
	case 2:
		close;
		end;
		}
	}
}
		
poring_w02,99,52,0	script	#2	111,{
	if(getcharid(1)!=$@team_2){
		mes "[]";
		mes "ʹӵҸ";
		mes "ҪҾǵĿȥ";
		close;
	}
	if($@pw_Ammount!=2){
		mes "[]";
		mes "ħӵҸ";
		mes "Ȱѵһָɺҡ";
		close;
	}
	if(countitem($pw_badge)>=1){
		cutin "wop_emb0"+@image,2;
		mes "[]";
		mes "ȷҪǶȥ?";
		next;
		switch (select("õ:?:")){
	  case 1:
		if(@image<3){
		delitem $pw_badge,1;
		set @image,@image+1;
		mes "[]";
		mes "ʿҪ";
		close2;
		cutin "",255;
		end;
		}
		cutin "wop_emb04",2;
		delitem $pw_badge,1;
		mes "[]";
		mes "ȫǶȥˡ";
		close2;
		warp "poring_w02",98,47;
		end;
	case 2:
		close;
		end;
		}
	}
}
-	script	killEvent	-1,{
OnPCKillEvent:
	getmapxy @map$,@x,@y,0;
	if (@map$ == "poring_w02"){
	getitem $pw_badge,1;
	}
	end;

OnPCDieEvent:
	getmapxy @map$,@x,@y,0;
	if (@map$ == "poring_w02"){
	if(getcharid(1)==$@team_1){
	}
	if(getcharid(1)==$@team_2){
	savepoint "poring_w02",150,81;
		}
	}
	end;

OnPCLogoutEvent:
	getmapxy @map$,@x,@y,0;
	if (@map$ == "poring_w02"){
	if ( getmapusers("poring_w02.gat")<6 ){
	set $@pw_cushi1,0;
	set $@pw_cushi,0;
	savepoint "prontera",155,121;
	warpparty "prontera",155,121,$@team_2;
	warpparty "prontera",155,121,$@team_1;
	end;
	} else {
	savepoint "prontera",155,121;;
	}
	end;
	}


}

//============== Ա ==================
poring_w02,100,200,3	script	Сħ	738,{
	mes "[Сħ]";
	mes "ϲǻñսʤ";
	mes "ǵĽ";
	close2;
	if(countitem($pw_badge)>=0){
	set @item,countitem($pw_badge);
	if($@win == 2&& getcharid(1)==$@team_2){
	getitem $pw_Reward,3;
	warp "prontera",155,121;
	savepoint "prontera",155,121;
	delitem $pw_badge,@item;
	end;
	}
	if($@win == 1&& getcharid(1)==$@team_1){
	getitem $pw_Reward,3;
	warp "prontera",155,121;
	savepoint "prontera",155,121;
	delitem $pw_badge,@item;
	end;
	}
	getitem $pw_Reward,1;
	warp "prontera",155,121;
	savepoint "prontera",155,121;
	delitem $pw_badge,@item;
	end;
	}
}


//============== ҽԱ ==================
poring_w01,103,97,0	script	Զ	910,{
	mes "[Զ]";
	mes " ^DD3636"+getitemname($pw_Reward)+"^000000?";
	mes "ʹòԹȤƷ.";
	next;
	if (select("Ʒ뿪") == 2) {
		callfunc "PoringVend",0,0;
	}
	mes "[Զ]";
	mes "ҪЩʲô?";
	next;
	switch (select(":ĵ:Ӷٻ:װƷ:ȡ")) {
		case 1:
			callfunc "PoringVend",7515,4;
		case 2:
			mes "[Զ]";
			mes "ҪЩ?";
			next;
			switch (select("֯Ž::ȡ")) {
				case 1:
					callfunc "PoringVend",658,20;
				case 2:
					callfunc "PoringVend",12109,30;
				default:
					callfunc "PoringVend",0,0;
			}
			break;
		case 3:
			mes "[Զ]";
			mes "ҪЩ?";
			next;
			switch (select("Ұèٻ:ٻ:霡ʿٻ:ȡ")) {
				case 1:
					callfunc "PoringVend",12300,15;
				case 2:
					callfunc "PoringVend",12301,20;
				case 3:
					callfunc "PoringVend",12302,20;
				default:
					callfunc "PoringVend",0,0;
			}
			break;
		case 4:
			mes "[Զ]";
			mes "ҪЩ?";
			next;
			switch (select("ѧ߹:ʿ:¹:ħʦ:ֹ::˹:ȡ")) {
				case 1:
					callfunc "PoringVend",2765,50;
				case 2:
					callfunc "PoringVend",2766,100;
				case 3:
					callfunc "PoringVend",2767,100;
				case 4:
					callfunc "PoringVend",2768,100;
				case 5:
					callfunc "PoringVend",2769,100;
				case 6:
					callfunc "PoringVend",2770,100;
				case 7:
					callfunc "PoringVend",2771,100;
				default:
					callfunc "PoringVend",0,0;
			}
			break;
		default:
			callfunc "PoringVend",0,0;
	}
}

//- Poring Vending Machine - Function
//============================================================

function	script	PoringVend	{
	if (getarg(0) == 0) {
		mes "[Զ]";
		mes "Ժ.";
		close;
	}
	else {
		mes "[Զ]";
		mes "빺Ǯ ^007CCC"+getitemname(getarg(0))+"s^000000";
		next;
		set .@vend_amount,1;
		if (select(":1") == 1) {
			input .@vend_amount;
		}
		if (!.@vend_amount) {
			mes "[Զ]";
			mes "? ʲô˼?";
			close;
		}
		mes "[Զ]";
		mes "빺 ^007CCC"+.@vend_amount+" "+getitemname(getarg(0))+"^000000  ^DD3636"+(getarg(1)*.@vend_amount)+" ^DD3636"+getitemname($pw_Reward)+"s^000000^000000?";
		next;
		switch (select("ǵ:")) {
			case 1:
				if(countitem($pw_Reward) < (getarg(1)*.@vend_amount)){
					mes "[Զ]";
					mes "ܱǸû㹻 ^DD3636"+getitemname($pw_Reward)+"^000000.";
					close;
				}
				else {
					mes "[Զ]";
					mes "лл.ӭٻ.";
					getitem getarg(0),.@vend_amount;
					delitem $pw_Reward,(getarg(1)*.@vend_amount);
					close;
				}
			case 2:
				mes "[Զ]";
				mes "ӭٻ.";
				close;
		}
	}
	return;
}
//- Waiting Porings
//============================================================

poring_w01,79,102,5	script	#Poring_WoP_waiting_1	1002,{
	end;
}

poring_w01,79,102,0	script	Poring#WoP_waiting_1	111,3,3,{
	end;
}

poring_w01,80,107,5	duplicate(#Poring_WoP_waiting_1)	#Poring_WoP_waiting_2	1002
poring_w01,84,108,5	duplicate(#Poring_WoP_waiting_1)	#Poring_WoP_waiting_3	1002
poring_w01,84,112,5	duplicate(#Poring_WoP_waiting_1)	#Poring_WoP_waiting_4	1002
poring_w01,88,112,5	duplicate(#Poring_WoP_waiting_1)	#Poring_WoP_waiting_5	1002
poring_w01,80,107,0	duplicate(Poring#WoP_waiting_1)	Poring#WoP_waiting_2	111,3,3
poring_w01,84,108,0	duplicate(Poring#WoP_waiting_1)	Poring#WoP_waiting_3	111,3,3
poring_w01,84,112,0	duplicate(Poring#WoP_waiting_1)	Poring#WoP_waiting_4	111,3,3
poring_w01,88,112,0	duplicate(Poring#WoP_waiting_1)	Poring#WoP_waiting_5	111,3,3

//- Waiting Marins
//============================================================

poring_w01,114,112,3	script	#Marin_WoP_waiting_1	1242,{
	end;
}

poring_w01,114,112,0	script	Marin#WoP_waiting_1	111,3,3,{
	end;
}

poring_w01,117,111,3	duplicate(#Marin_WoP_waiting_1)	#Marin_WoP_waiting_2	1242
poring_w01,117,108,3	duplicate(#Marin_WoP_waiting_1)	#Marin_WoP_waiting_3	1242
poring_w01,122,108,3	duplicate(#Marin_WoP_waiting_1)	#Marin_WoP_waiting_4	1242
poring_w01,121,105,3	duplicate(#Marin_WoP_waiting_1)	#Marin_WoP_waiting_5	1242
poring_w01,117,111,0	duplicate(Marin#WoP_waiting_1)	Marin#WoP_waiting_2	111,3,3
poring_w01,117,108,0	duplicate(Marin#WoP_waiting_1)	Marin#WoP_waiting_3	111,3,3
poring_w01,122,108,0	duplicate(Marin#WoP_waiting_1)	Marin#WoP_waiting_4	111,3,3
poring_w01,121,105,0	duplicate(Marin#WoP_waiting_1)	Marin#WoP_waiting_5	111,3,3

//============== ͵ ===========================
poring_w02,51,81,0	warp	WoF_1	1,1,poring_w02,56,81
poring_w02,146,81,0	warp	WoF_2	1,1,poring_w02,141,81
//============== ͼ ==================
poring_w01	mapflag	nowarpto
poring_w01	mapflag	nowarp
poring_w01	mapflag	noteleport
poring_w01	mapflag	nomemo
poring_w01	mapflag	nosave	SavePoint
poring_w01	mapflag	nobranch
poring_w01	mapflag	noicewall

poring_w02	mapflag	noteleport
poring_w02	mapflag	nomemo
poring_w02	mapflag	nosave	SavePoint
poring_w02	mapflag	nobranch
poring_w02	mapflag	noicewall
poring_w02	mapflag	monster_noteleport
poring_w02	mapflag	nopenalty