p_track01	mapflag	noteleport
p_track01	mapflag	nobranch

prontera.gat,147,153,5	script	ܲ볡	83,{
	mes "[ܲ볡]";
	mes "Ǳڲȵݱ";
	mes "˹֮⣬ע";
	mes "Ȥȥô";
	next;
	menu "ȥ",-,"ˣһ",L_close;
	warp "p_track01",63,42;
	end;

L_close:
	close;

}

p_track01.gat,63,45,4	script	ܲ볡	83,{
	mes "[ܲ볡]";
	mes "ô";
	mes "׼׶";
	next;
	menu "ǵģ׶",-,"ˣٿ",L_close;
	warp "prontera.gat",153,153;
	end;

L_close:
	close;
}

p_track01.gat,48,42,6	script	ܲ#1	83,{ callfunc "BLPBTZ"; }
p_track01.gat,26,40,6	script	ܲ#2	83,{ callfunc "BLPBTZ"; }
p_track01.gat,29,24,0	script	ܲ#3	83,{ callfunc "BLPBTZ"; }
function	script	BLPBTZ	{
	mes "[ܲ]";
	mes "ôͶܲô";
	mes "ٺ٣Ȼˬ";
	next;
	switch(select("鿴淨",callfunc("BLPB_Buy"),callfunc("BLPB_Lingjiang"))) {

case 1:
	mes "[ܲ]";
	mes "淨ʵܼ򵥡";
	mes "עΪ5WRoz 1ע";
	mes "Ͷ1ע100ע";
	mes "ֻҪעǸӮ";
	mes "ɻܽص80%*ע";
	next;
	mes "[ܲ]";
	mes "һ쿪24ֱǣ";
	mes "ÿСʱ㿪";
	mes "ȻҲGMֶ";
	mes "ףˣ";
	close;

case 2:
	if ( #Poringxzqs == $Poringpaobucc ) {
	mes "[ܲ]";
	mes ""+$Poringpaobucc+"";
	if ( #Poringxz == 1 ) mes "ע ";
	if ( #Poringxz == 1 ) mes " "+#BLPBMyz1+"ע"+#BLPBMyz1*50000+"z";
	if ( #Poringxz == 2 ) mes "ע ʹ";
	if ( #Poringxz == 2 ) mes " "+#BLPBMyz1+"ע"+#BLPBMyz1*50000+"z";
	if ( #Poringxz == 3 ) mes "ע 鲨";
	if ( #Poringxz == 3 ) mes " "+#BLPBMyz1+"ע"+#BLPBMyz1*50000+"z";
	if ( #Poringxz == 4 ) mes "ע ħ";
	if ( #Poringxz == 4 ) mes " "+#BLPBMyz1+"ע"+#BLPBMyz1*50000+"z";
	if ( #Poringxz == 5 ) mes "ע ʥ";
	if ( #Poringxz == 5 ) mes " "+#BLPBMyz1+"ע"+#BLPBMyz1*50000+"z";
	if ( #Poringxz == 6 ) mes "ע ";
	if ( #Poringxz == 6 ) mes " "+#BLPBMyz1+"ע"+#BLPBMyz1*50000+"z";
	close;
	}
	set @tempchangshu,$Poringpaobucc-1;
	mes "^ff0000"+$Poringpaobucc+"ܲ^000000";
	mes "    ʤʣ"+$Poringsl+"/"+@tempchangshu+"";
	mes "ʹʤʣ"+$tsPoringsl+"/"+@tempchangshu+"";
	mes "鲨ʤʣ"+$ulPoringsl+"/"+@tempchangshu+"";
	mes "ħʤʣ"+$emPoringsl+"/"+@tempchangshu+"";
	mes "ʥʤʣ"+$sdPoringsl+"/"+@tempchangshu+"";
	mes "  ʤʣ"+$bbPoringsl+"/"+@tempchangshu+"";
	next;
		switch(select(
		"ע ",
		"ע ʹ",
		"ע 鲨",
		"ע ħ",
		"ע ʥ",
		"ע ")) {
	case 1:
		mes "[ܲ]";
		mes "㼴ע ";
		mes "ÿע 5WRoz Ҫ¶ע";
		mes "1ע100ע";
		mes "0ȡ";
		input @BLPBMyz;
		next;
		if ( $BLPB_TouZhu == 0 ) {
			mes "[ܲ]";
			mes "Ͷȡɣ㣡";
			end;
			}
		if ( @BLPBMyz <= 0 || @BLPBMyz > 100 ) goto L_close;
		if ( zeny < @BLPBMyz*50000 ) {
			mes "[ܲ]";
			mes "Ǯ湻";
			close;
			}
		set @Poringxzz,1;
		set @Poringname$,"";
		goto L_szok;
	case 2:
		mes "[ܲ]";
		mes "㼴ע ʹ";
		mes "ÿע 5WRoz Ҫ¶ע";
		mes "1ע100ע";
		mes "0ȡ";
		input @BLPBMyz;
		next;
		if ( $BLPB_TouZhu == 0 ) {
			mes "[ܲ]";
			mes "Ͷȡɣ㣡";
			end;
			}
		if ( @BLPBMyz <= 0 || @BLPBMyz > 100 ) goto L_close;
		if ( zeny < @BLPBMyz*50000 ) {
			mes "[ܲ]";
			mes "Ǯ湻";
			close;
			}
		set @Poringxzz,2;
		set @Poringname$,"ʹ";
		goto L_szok;
	case 3:
		mes "[ܲ]";
		mes "㼴ע 鲨";
		mes "ÿע 5WRoz Ҫ¶ע";
		mes "1ע100ע";
		mes "0ȡ";
		input @BLPBMyz;
		next;
		if ( $BLPB_TouZhu == 0 ) {
			mes "[ܲ]";
			mes "Ͷȡɣ㣡";
			end;
			}
		if ( @BLPBMyz <= 0 || @BLPBMyz > 100 ) goto L_close;
		if ( zeny < @BLPBMyz*50000 ) {
			mes "[ܲ]";
			mes "Ǯ湻";
			close;
			}
		set @Poringxzz,3;
		set @Poringname$,"鲨";
		goto L_szok;
	case 4:
		mes "[ܲ]";
		mes "㼴ע ħ";
		mes "ÿע 5WRoz Ҫ¶ע";
		mes "1ע100ע";
		mes "0ȡ";
		input @BLPBMyz;
		next;
		if ( $BLPB_TouZhu == 0 ) {
			mes "[ܲ]";
			mes "Ͷȡɣ㣡";
			end;
			}
		if ( @BLPBMyz <= 0 || @BLPBMyz > 100 ) goto L_close;
		if ( zeny < @BLPBMyz*50000 ) {
			mes "[ܲ]";
			mes "Ǯ湻";
			close;
			}
		set @Poringxzz,4;
		set @Poringname$,"ħ";
		goto L_szok;
	case 5:
		mes "[ܲ]";
		mes "㼴ע ʥ";
		mes "ÿע 5WRoz Ҫ¶ע";
		mes "1ע100ע";
		mes "0ȡ";
		input @BLPBMyz;
		next;
		if ( $BLPB_TouZhu == 0 ) {
			mes "[ܲ]";
			mes "Ͷȡɣ㣡";
			end;
			}
		if ( @BLPBMyz <= 0 || @BLPBMyz > 100 ) goto L_close;
		if ( zeny < @BLPBMyz*50000 ) {
			mes "[ܲ]";
			mes "Ǯ湻";
			close;
			}
		set @Poringxzz,5;
		set @Poringname$,"ʥ";
		goto L_szok;
	case 6:
		mes "[ܲ]";
		mes "㼴ע ";
		mes "ÿע 5WRoz Ҫ¶ע";
		mes "1ע100ע";
		mes "0ȡ";
		input @BLPBMyz;
		next;
		if ( $BLPB_TouZhu == 0 ) {
			mes "[ܲ]";
			mes "Ͷȡɣ㣡";
			end;
			}
		if ( @BLPBMyz <= 0 || @BLPBMyz > 100 ) goto L_close;
		if ( zeny < @BLPBMyz*50000 ) {
			mes "[ܲ]";
			mes "Ǯ湻";
			close;
			}
		set @Poringxzz,6;
		set @Poringname$,"";
		goto L_szok;
		}

case 3:
	mes "[ܲ]";
	if ( #Poringxz == 1 ) {
	mes "ѽע  ѽ";
	mes "ڹ"+$Poringzsl+"ע";
	mes "ɲʽ"+$BLPBJczj+"z";
	mes "ÿע"+$BLPBJczjmz+"z";
	mes ""+#BLPBMyz1+"ע";
	mes "н"+#BLPBMyz1*$BLPBJczjmz+"";
	}
	if ( #Poringxz == 2 ) {
	mes "ѽע ʹ ѽ";
	mes "ڹ"+$tsPoringzsl+"ע";
	mes "ɲʽ"+$BLPBJczj+"z";
	mes "ÿע"+$BLPBJczjmz+"z";
	mes ""+#BLPBMyz1+"ע";
	mes "н"+#BLPBMyz1*$BLPBJczjmz+"";
	}
	if ( #Poringxz == 3 ) {
	mes "ѽע 鲨 ѽ";
	mes "ڹ"+$ulPoringzsl+"ע";
	mes "ɲʽ"+$BLPBJczj+"z";
	mes "ÿע"+$BLPBJczjmz+"z";
	mes ""+#BLPBMyz1+"ע";
	mes "н"+#BLPBMyz1*$BLPBJczjmz+"";
	}
	if ( #Poringxz == 4 ) {
	mes "ѽע ħ ѽ";
	mes "ڹ"+$emPoringzsl+"ע";
	mes "ɲʽ"+$BLPBJczj+"z";
	mes "ÿע"+$BLPBJczjmz+"z";
	mes ""+#BLPBMyz1+"ע";
	mes "н"+#BLPBMyz1*$BLPBJczjmz+"";
	}
	if ( #Poringxz == 5 ) {
	mes "ѽע ʥ ѽ";
	mes "ڹ"+$sdPoringzsl+"ע";
	mes "ɲʽ"+$BLPBJczj+"z";
	mes "ÿע"+$BLPBJczjmz+"z";
	mes ""+#BLPBMyz1+"ע";
	mes "н"+#BLPBMyz1*$BLPBJczjmz+"";
	}
	if ( #Poringxz == 6 ) {
	mes "ѽע  ѽ";
	mes "ڹ"+$bbPoringzsl+"ע";
	mes "ɲʽ"+$BLPBJczj+"z";
	mes "ÿע"+$BLPBJczjmz+"z";
	mes ""+#BLPBMyz1+"ע";
	mes "н"+#BLPBMyz1*$BLPBJczjmz+"";
	}
	if ( $Poringjjjf == 1 ) {
	//
	mes "ϵͳıнɻ1";
	}
	mapannounce "p_track01.gat",""+strcharinfo(0)+"ȡ"+$Poringpaobucc+" "+#BLPBMyz1+" ע"+#BLPBMyz1*$BLPBJczjmz+"z",9;
	set #Poringxz,0;
	set #Poringxzqs,0;
	set zeny,zeny+#BLPBMyz1*$BLPBJczjmz;
	set #BLPBMyz1,0;
	close;
	}
	close;

L_szok:
	set #Poringxz,@Poringxzz;
	set #Poringxzqs,$Poringpaobucc;
	set zeny,zeny-@BLPBMyz*50000;
	set #BLPBMyz1,@BLPBMyz;
	set $BLPBJczj,$BLPBJczj+@BLPBMyz*50000;
	if ( @Poringxzz == 1 ) set $Poringzsl,$Poringzsl+@BLPBMyz;
	if ( @Poringxzz == 2 ) set $tsPoringzsl,$tsPoringzsl+@BLPBMyz;
	if ( @Poringxzz == 3 ) set $ulPoringzsl,$ulPoringzsl+@BLPBMyz;
	if ( @Poringxzz == 4 ) set $emPoringzsl,$emPoringzsl+@BLPBMyz;
	if ( @Poringxzz == 5 ) set $sdPoringzsl,$sdPoringzsl+@BLPBMyz;
	if ( @Poringxzz == 6 ) set $bbPoringzsl,$bbPoringzsl+@BLPBMyz;
	mes "[ܲ]";
	mes "ע "+@Poringname$+"ɹ";
	mes " "+#BLPBMyz1+"ע"+#BLPBMyz1*50000+"z";
	close;

L_close:
	close;

}

p_track01.gat,51,23,2	script	ܲ	83,{
	mes "[ܲ]";
	mes "ôͶܲô";
	mes "ٺ٣Ȼˬ";
	next;
	switch(select("鿴淨",callfunc("BLPB_Buy"),callfunc("BLPB_Lingjiang"),callfunc("BLPB_GMSheZhi"))) {

case 1:
	mes "[ܲ]";
	mes "淨ʵܼ򵥡";
	mes "עΪ5WRoz 1ע";
	mes "Ͷ1ע100ע";
	mes "ֻҪעǸӮ";
	mes "ɻܽص80%*ע";
	next;
	mes "[ܲ]";
	mes "һ쿪6ֱǣ";
	mes "01:0010:0013:00";
	mes "16:0019:0022:00";
	mes "ȻҲGMֶ";
	mes "ףˣ";
	close;

case 2:
	if ( #Poringxzqs == $Poringpaobucc ) {
	mes "[ܲ]";
	mes ""+$Poringpaobucc+"";
	if ( #Poringxz == 1 ) mes "ע ";
	if ( #Poringxz == 1 ) mes " "+#BLPBMyz1+"ע"+#BLPBMyz1*50000+"z";
	if ( #Poringxz == 2 ) mes "ע ʹ";
	if ( #Poringxz == 2 ) mes " "+#BLPBMyz1+"ע"+#BLPBMyz1*50000+"z";
	if ( #Poringxz == 3 ) mes "ע 鲨";
	if ( #Poringxz == 3 ) mes " "+#BLPBMyz1+"ע"+#BLPBMyz1*50000+"z";
	if ( #Poringxz == 4 ) mes "ע ħ";
	if ( #Poringxz == 4 ) mes " "+#BLPBMyz1+"ע"+#BLPBMyz1*50000+"z";
	if ( #Poringxz == 5 ) mes "ע ʥ";
	if ( #Poringxz == 5 ) mes " "+#BLPBMyz1+"ע"+#BLPBMyz1*50000+"z";
	if ( #Poringxz == 6 ) mes "ע ";
	if ( #Poringxz == 6 ) mes " "+#BLPBMyz1+"ע"+#BLPBMyz1*50000+"z";
	close;
	}
	set @tempchangshu,$Poringpaobucc-1;
	mes "^ff0000"+$Poringpaobucc+"ܲ^000000";
	mes "    ʤʣ"+$Poringsl+"/"+@tempchangshu+"";
	mes "ʹʤʣ"+$tsPoringsl+"/"+@tempchangshu+"";
	mes "鲨ʤʣ"+$ulPoringsl+"/"+@tempchangshu+"";
	mes "ħʤʣ"+$emPoringsl+"/"+@tempchangshu+"";
	mes "ʥʤʣ"+$sdPoringsl+"/"+@tempchangshu+"";
	mes "  ʤʣ"+$bbPoringsl+"/"+@tempchangshu+"";
	next;
		switch(select(
		"ע ",
		"ע ʹ",
		"ע 鲨",
		"ע ħ",
		"ע ʥ",
		"ע ")) {
	case 1:
		mes "[ܲ]";
		mes "㼴ע ";
		mes "ÿע 5WRoz Ҫ¶ע";
		mes "1ע100ע";
		mes "0ȡ";
		input @BLPBMyz;
		next;
		if ( $BLPB_TouZhu == 0 ) {
			mes "[ܲ]";
			mes "Ͷȡɣ㣡";
			end;
			}
		if ( @BLPBMyz <= 0 || @BLPBMyz > 100 ) goto L_close;
		if ( zeny < @BLPBMyz*50000 ) {
			mes "[ܲ]";
			mes "Ǯ湻";
			close;
			}
		set @Poringxzz,1;
		set @Poringname$,"";
		goto L_szok;
	case 2:
		mes "[ܲ]";
		mes "㼴ע ʹ";
		mes "ÿע 5WRoz Ҫ¶ע";
		mes "1ע100ע";
		mes "0ȡ";
		input @BLPBMyz;
		next;
		if ( $BLPB_TouZhu == 0 ) {
			mes "[ܲ]";
			mes "Ͷȡɣ㣡";
			end;
			}
		if ( @BLPBMyz <= 0 || @BLPBMyz > 100 ) goto L_close;
		if ( zeny < @BLPBMyz*50000 ) {
			mes "[ܲ]";
			mes "Ǯ湻";
			close;
			}
		set @Poringxzz,2;
		set @Poringname$,"ʹ";
		goto L_szok;
	case 3:
		mes "[ܲ]";
		mes "㼴ע 鲨";
		mes "ÿע 5WRoz Ҫ¶ע";
		mes "1ע100ע";
		mes "0ȡ";
		input @BLPBMyz;
		next;
		if ( $BLPB_TouZhu == 0 ) {
			mes "[ܲ]";
			mes "Ͷȡɣ㣡";
			end;
			}
		if ( @BLPBMyz <= 0 || @BLPBMyz > 100 ) goto L_close;
		if ( zeny < @BLPBMyz*50000 ) {
			mes "[ܲ]";
			mes "Ǯ湻";
			close;
			}
		set @Poringxzz,3;
		set @Poringname$,"鲨";
		goto L_szok;
	case 4:
		mes "[ܲ]";
		mes "㼴ע ħ";
		mes "ÿע 5WRoz Ҫ¶ע";
		mes "1ע100ע";
		mes "0ȡ";
		input @BLPBMyz;
		next;
		if ( $BLPB_TouZhu == 0 ) {
			mes "[ܲ]";
			mes "Ͷȡɣ㣡";
			end;
			}
		if ( @BLPBMyz <= 0 || @BLPBMyz > 100 ) goto L_close;
		if ( zeny < @BLPBMyz*50000 ) {
			mes "[ܲ]";
			mes "Ǯ湻";
			close;
			}
		set @Poringxzz,4;
		set @Poringname$,"ħ";
		goto L_szok;
	case 5:
		mes "[ܲ]";
		mes "㼴ע ʥ";
		mes "ÿע 5WRoz Ҫ¶ע";
		mes "1ע100ע";
		mes "0ȡ";
		input @BLPBMyz;
		next;
		if ( $BLPB_TouZhu == 0 ) {
			mes "[ܲ]";
			mes "Ͷȡɣ㣡";
			end;
			}
		if ( @BLPBMyz <= 0 || @BLPBMyz > 100 ) goto L_close;
		if ( zeny < @BLPBMyz*50000 ) {
			mes "[ܲ]";
			mes "Ǯ湻";
			close;
			}
		set @Poringxzz,5;
		set @Poringname$,"ʥ";
		goto L_szok;
	case 6:
		mes "[ܲ]";
		mes "㼴ע ";
		mes "ÿע 5WRoz Ҫ¶ע";
		mes "1ע100ע";
		mes "0ȡ";
		input @BLPBMyz;
		next;
		if ( $BLPB_TouZhu == 0 ) {
			mes "[ܲ]";
			mes "Ͷȡɣ㣡";
			end;
			}
		if ( @BLPBMyz <= 0 || @BLPBMyz > 100 ) goto L_close;
		if ( zeny < @BLPBMyz*50000 ) {
			mes "[ܲ]";
			mes "Ǯ湻";
			close;
			}
		set @Poringxzz,6;
		set @Poringname$,"";
		goto L_szok;
		}

case 3:
	mes "[ܲ]";
	if ( #Poringxz == 1 ) {
	mes "ѽע  ѽ";
	mes "ڹ"+$Poringzsl+"ע";
	mes "ɲʽ"+$BLPBJczj+"z";
	mes "ÿע"+$BLPBJczjmz+"z";
	mes ""+#BLPBMyz1+"ע";
	mes "н"+#BLPBMyz1*$BLPBJczjmz+"";
	}
	if ( #Poringxz == 2 ) {
	mes "ѽע ʹ ѽ";
	mes "ڹ"+$tsPoringzsl+"ע";
	mes "ɲʽ"+$BLPBJczj+"z";
	mes "ÿע"+$BLPBJczjmz+"z";
	mes ""+#BLPBMyz1+"ע";
	mes "н"+#BLPBMyz1*$BLPBJczjmz+"";
	}
	if ( #Poringxz == 3 ) {
	mes "ѽע 鲨 ѽ";
	mes "ڹ"+$ulPoringzsl+"ע";
	mes "ɲʽ"+$BLPBJczj+"z";
	mes "ÿע"+$BLPBJczjmz+"z";
	mes ""+#BLPBMyz1+"ע";
	mes "н"+#BLPBMyz1*$BLPBJczjmz+"";
	}
	if ( #Poringxz == 4 ) {
	mes "ѽע ħ ѽ";
	mes "ڹ"+$emPoringzsl+"ע";
	mes "ɲʽ"+$BLPBJczj+"z";
	mes "ÿע"+$BLPBJczjmz+"z";
	mes ""+#BLPBMyz1+"ע";
	mes "н"+#BLPBMyz1*$BLPBJczjmz+"";
	}
	if ( #Poringxz == 5 ) {
	mes "ѽע ʥ ѽ";
	mes "ڹ"+$sdPoringzsl+"ע";
	mes "ɲʽ"+$BLPBJczj+"z";
	mes "ÿע"+$BLPBJczjmz+"z";
	mes ""+#BLPBMyz1+"ע";
	mes "н"+#BLPBMyz1*$BLPBJczjmz+"";
	}
	if ( #Poringxz == 6 ) {
	mes "ѽע  ѽ";
	mes "ڹ"+$bbPoringzsl+"ע";
	mes "ɲʽ"+$BLPBJczj+"z";
	mes "ÿע"+$BLPBJczjmz+"z";
	mes ""+#BLPBMyz1+"ע";
	mes "н"+#BLPBMyz1*$BLPBJczjmz+"";
	}
	if ( $Poringjjjf == 1 ) {
	//
	mes "ϵͳıнɻ1";
	}
	mapannounce "p_track01.gat",""+strcharinfo(0)+"ȡ"+$Poringpaobucc+" "+#BLPBMyz1+" ע"+#BLPBMyz1*$BLPBJczjmz+"z",9;
	set #Poringxz,0;
	set #Poringxzqs,0;
	set zeny,zeny+#BLPBMyz1*$BLPBJczjmz;
	set #BLPBMyz1,0;
	close;

case 4:
	mes "ѡ";
	switch(select("˹ʼͶע","˹ʼ","")) {
	case 1:
		set $Poringbisailj,0;
		set $BLPB_TouZhu,1;
		set $Poringpaobucc,$Poringpaobucc+1;
		set $Poringzsl,0;
		set $tsPoringzsl,0;
		set $ulPoringzsl,0;
		set $emPoringzsl,0;
		set $sdPoringzsl,0;
		set $bbPoringzsl,0;
		set $BLPBJczj,50000;
		set $BLPBJczjmz,0;
		set $Poringjjjf,0;
		mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲѽͶע",16;
		close;

	case 2:
		set $BLPB_TouZhu,0;
		set $Poringbsjs,0;
		mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲͶעʱ",16;
		initnpctimer;
		close;

	case 3:
		set $Poringbsjs,0;
		set $Poringsl,0;
		set $tsPoringsl,0;
		set $ulPoringsl,0;
		set $emPoringsl,0;
		set $sdPoringsl,0;
		set $bbPoringsl,0;
		set $Poringbisailj,0;
		set $BLPB_TouZhu,0;
		set $Poringpaobucc,0;
		set $Poringzsl,0;
		set $tsPoringzsl,0;
		set $ulPoringzsl,0;
		set $emPoringzsl,0;
		set $sdPoringzsl,0;
		set $bbPoringzsl,0;
		set $BLPBJczj,0;
		set $BLPBJczjmz,0;
		close;
		}
	}

L_szok:
	set #Poringxz,@Poringxzz;
	set #Poringxzqs,$Poringpaobucc;
	set zeny,zeny-@BLPBMyz*50000;
	set #BLPBMyz1,@BLPBMyz;
	set $BLPBJczj,$BLPBJczj+@BLPBMyz*50000;
	if ( @Poringxzz == 1 ) set $Poringzsl,$Poringzsl+@BLPBMyz;
	if ( @Poringxzz == 2 ) set $tsPoringzsl,$tsPoringzsl+@BLPBMyz;
	if ( @Poringxzz == 3 ) set $ulPoringzsl,$ulPoringzsl+@BLPBMyz;
	if ( @Poringxzz == 4 ) set $emPoringzsl,$emPoringzsl+@BLPBMyz;
	if ( @Poringxzz == 5 ) set $sdPoringzsl,$sdPoringzsl+@BLPBMyz;
	if ( @Poringxzz == 6 ) set $bbPoringzsl,$bbPoringzsl+@BLPBMyz;
	mes "[ܲ]";
	mes "ע "+@Poringname$+"ɹ";
	mes " "+#BLPBMyz1+"ע"+#BLPBMyz1*50000+"z";
	close;

L_close:
	close;

OnClock0000:
OnClock0100:
OnClock0200:
OnClock0300:
OnClock0400:
OnClock0500:
OnClock0600:
OnClock0700:
OnClock0800:
OnClock0900:
OnClock1000:
OnClock1100:
OnClock1200:
OnClock1300:
OnClock1400:
OnClock1600:
OnClock1500:
OnClock1700:
OnClock1800:
OnClock1900:
OnClock2000:
OnClock2100:
OnClock2200:
OnClock2300:
	set $Poringbisailj,0;
	set $BLPB_TouZhu,1;
	set $Poringpaobucc,$Poringpaobucc+1;
	set $Poringzsl,0;
	set $tsPoringzsl,0;
	set $ulPoringzsl,0;
	set $emPoringzsl,0;
	set $sdPoringzsl,0;
	set $bbPoringzsl,0;
	set $BLPBJczj,50000;
	set $BLPBJczjmz,0;
	set $Poringjjjf,1;
	announce ""+$Poringpaobucc+"ܲѽͶע",16;
	end;

OnClock0004:
OnClock0104:
OnClock0204:
OnClock0304:
OnClock0404:
OnClock0504:
OnClock0604:
OnClock0704:
OnClock0804:
OnClock0904:
OnClock1004:
OnClock1104:
OnClock1204:
OnClock1304:
OnClock1404:
OnClock1604:
OnClock1504:
OnClock1704:
OnClock1804:
OnClock1904:
OnClock2004:
OnClock2104:
OnClock2204:
OnClock2304:
	announce ""+$Poringpaobucc+"ܲͶעʱʣһӣǮûд֣ǮҪӴ",16;
	end;

OnClock0005:
OnClock0105:
OnClock0205:
OnClock0305:
OnClock0405:
OnClock0505:
OnClock0605:
OnClock0705:
OnClock0805:
OnClock0905:
OnClock1005:
OnClock1105:
OnClock1205:
OnClock1305:
OnClock1405:
OnClock1605:
OnClock1505:
OnClock1705:
OnClock1805:
OnClock1905:
OnClock2005:
OnClock2105:
OnClock2205:
OnClock2305:
	set $BLPB_TouZhu,0;
	set $Poringbsjs,0;
	announce ""+$Poringpaobucc+"ܲͶעʱ",16;
	initnpctimer;
	end;


OnTimer5000:
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲѡ͸λ",16;
	set $GjGw,1;
	initnpctimer "";
	initnpctimer "ʹ";
	initnpctimer "鲨";
	initnpctimer "ħ";
	initnpctimer "ʥ";
	initnpctimer "";
	end;

OnTimer6000:
	mapannounce "p_track01.gat","Ԥ",16;
	end;

OnTimer8000:
	mapannounce "p_track01.gat","ʼ",16;
	set $poling,57;
	set $tspoling,57;
	set $ulpoling,57;
	set $empoling,57;
	set $sdpoling,57;
	set $bbpoling,57;
	set $GjGw,2;
	initnpctimer "";
	initnpctimer "ʹ";
	initnpctimer "鲨";
	initnpctimer "ħ";
	initnpctimer "ʥ";
	initnpctimer "";
	stopnpctimer;
	end;


Onporing2:
	sleep2 5000;
	mapannounce "p_track01.gat","ѡǷԭλã",16;
	set $GjGw,3;
	initnpctimer "";
	initnpctimer "ʹ";
	initnpctimer "鲨";
	initnpctimer "ħ";
	initnpctimer "ʥ";
	initnpctimer "";
	set $Poringbisailj,1;
	if ( $Poringplsccc == 1 ) {
	if ( $Poringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$Poringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$Poringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 2 ) {
	if ( $tsPoringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$tsPoringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$tsPoringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 3 ) {
	if ( $ulPoringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$ulPoringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$ulPoringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 4 ) {
	if ( $emPoringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$emPoringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$emPoringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 5 ) {
	if ( $sdPoringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$sdPoringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$sdPoringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 6 ) {
	if ( $bbPoringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$bbPoringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$bbPoringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 7 ) {
	if ( $bbPoringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$bbPoringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$bbPoringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 8 ) {
	if ( $bbPoringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$bbPoringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$bbPoringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 9 ) {
	if ( $bbPoringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$bbPoringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$bbPoringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 10 ) {
	if ( $bbPoringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$bbPoringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$bbPoringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 11 ) {
	if ( $bbPoringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$bbPoringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$bbPoringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 12 ) {
	if ( $Poringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$Poringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$Poringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 13 ) {
	if ( $Poringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$Poringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$Poringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 14 ) {
	if ( $Poringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$Poringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$Poringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 15 ) {
	if ( $Poringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$Poringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$Poringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 16 ) {
	if ( $Poringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$Poringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$Poringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 17 ) {
	if ( $Poringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$Poringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$Poringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 18 ) {
	if ( $Poringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$Poringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$Poringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 19 ) {
	if ( $Poringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$Poringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$Poringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 20 ) {
	if ( $Poringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$Poringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$Poringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 21 ) {
	if ( $Poringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$Poringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$Poringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 22 ) {
	if ( $Poringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$Poringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$Poringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 23 ) {
	if ( $Poringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$Poringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$Poringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	if ( $Poringplsccc == 24 ) {
	if ( $Poringzsl == 0 ) {
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲн",16;
	end;
	}
	set $BLPBJczj,$BLPBJczj*8/10;
	set $BLPBJczjmz,$BLPBJczj/$Poringzsl;
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ"+$Poringzsl+"עɲʽ"+$BLPBJczj+"zÿע"+$BLPBJczjmz+"z",16;
	end;
	}
	end;

}

function	script	BLPB_Buy	{
	if ( $BLPB_TouZhu == 1 ) {
	return "^ff0000Ͷע"+$Poringpaobucc+"ܲ^000000";
	}
	return "";
}
function	script	BLPB_Lingjiang	{
	if ( ( #Poringxz == $Poringplsccc ) && ( #Poringxzqs == $Poringpaobucc ) && ( $Poringbisailj == 1 ) ) {
	return "^ff0000ȡ"+$Poringpaobucc+"ܲ^000000";
	}
	return "";
}
function	script	BLPB_GMSheZhi	{
	if ( ( getcharid(3) == 2000000 ) || ( getcharid(3) == 2000001 ) ) {
	return "^ff0000ܲ()^000000";
	}
	return "";
}


p_track01.gat,58,38,2	script		1002,{
	end;

OnTimer10:
	if ( $GjGw == 1 ) {
	emotion	32;
	npcspeed 150;
	npcwalkto 57,38;
	stopnpctimer;
	end;
	}
	if ( $GjGw == 2 ) {
	stopnpctimer;
	set $@Poringquansu,1;
	goto L_poringpao;
	end;
	}
	if ( $GjGw == 3 ) {
	emotion	16;
	npcspeed 150;
	npcwalkto 58,38;
	stopnpctimer;
	end;
	}
	end;

L_poringpao:
	if ( $GjGw == 4 ) {
	set $@polingings,rand(1,4);
	if ( $@polingings == 1 ) npctalk "[>.<]ȻܹǷ򲻶ۡ";
	if ( $@polingings == 2 ) npctalk "[>.<]120оȻ Ҳ";
	if ( $@polingings == 3 ) npctalk "[>.<]ģܵʯͷ";
	if ( $@polingings == 4 ) npctalk "[>.<]ܵıҿĶȥ׳";
	end;
	}
	npcspeed 150;
	sleep2 rand(500,1000);
	set $@polinging,rand(1,2);
	if ( $@polinging == 2 ) goto L_poringpao;

	if ( $@Poringquansu == 1 ) {
	set $poling,$poling-1;
	npcwalkto $poling,38;
	if ( $poling == 30 ) {
	set $@Poringquansu,2;
	goto L_poringpao;
	}
	goto L_poringpao;
	}

	if ( $@Poringquansu == 2 ) {
	set $poling,$poling+1;
	npcwalkto $poling,38;
	sleep2 rand(500,1000);
	if ( $poling == 58 ) {
	set $@Poringquansu,0;
	goto L_poringpao;
	}
	goto L_poringpao;
	}

	set $poling,$poling-1;
	npcwalkto $poling,38;
	if ( $poling == 30 ) {
	if ( $GjGw == 4 ) {
	set $@polingings,rand(1,4);
	if ( $@polingings == 1 ) npctalk "[>.<]ȻܹǷ򲻶ۡ";
	if ( $@polingings == 2 ) npctalk "[>.<]120оȻ Ҳ";
	if ( $@polingings == 3 ) npctalk "[>.<]ģܵʯͷ";
	if ( $@polingings == 4 ) npctalk "[>.<]ܵıҿĶȥ׳";
	end;
	}
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲʤ",16;
	set $GjGw,4;
	set $@polingingy,rand(1,5);
	if ( $@polingingy == 1 ) npctalk "[I(^?^)J]ʵҲBOSS";
	if ( $@polingingy == 2 ) npctalk "[I(^?^)J]ʵǻ£һ";
	if ( $@polingingy == 3 ) npctalk "[I(^?^)J]һ ܹ~";
	if ( $@polingingy == 4 ) npctalk "[I(^?^)J]һԭô^^~";
	if ( $@polingingy == 5 ) npctalk "[I(^?^)J]ǱߵС ʤKISSô~";
	set $Poringsl,$Poringsl+1;
	set $Poringplsccc,1;
	donpcevent "ܲ::Onporing2";
	end;
	}
	goto L_poringpao;
}

p_track01.gat,58,36,2	script	ʹ	1096,{
	end;

OnTimer10:
	if ( $GjGw == 1 ) {
	emotion	32;
	npcspeed 150;
	npcwalkto 57,36;
	stopnpctimer;
	end;
	}
	if ( $GjGw == 2 ) {
	stopnpctimer;
	set $@tsPoringquansu,1;
	goto L_poringpao1;
	end;
	}
	if ( $GjGw == 3 ) {
	emotion	16;
	npcspeed 150;
	npcwalkto 58,36;
	stopnpctimer;
	end;
	}
	end;

L_poringpao1:
	if ( $GjGw == 4 ) {
	set $@tspolingings,rand(1,4);
	if ( $@tspolingings == 1 ) npctalk "[>.<]죬Ҫģ555";
	if ( $@tspolingings == 2 ) npctalk "[>.<]նһǶˡ";
	if ( $@tspolingings == 3 ) npctalk "[>.<]Ѿûź ";
	if ( $@tspolingings == 4 ) npctalk "[>.<]õһΪǡ";
	end;
	}
	sleep2 rand(500,1000);
	set $@tspolinging,rand(1,2);
	if ( $@tspolinging == 2 ) goto L_poringpao1;
	npcspeed 150;

	if ( $@tsPoringquansu == 1 ) {
	set $tspoling,$tspoling-1;
	npcwalkto $tspoling,36;
	if ( $tspoling == 30 ) {
	set $@tsPoringquansu,2;
	goto L_poringpao1;
	}
	goto L_poringpao1;
	}

	if ( $@tsPoringquansu == 2 ) {
	set $tspoling,$tspoling+1;
	npcwalkto $tspoling,36;
	sleep2 rand(500,1000);
	if ( $tspoling == 58 ) {
	set $@tsPoringquansu,0;
	goto L_poringpao1;
	}
	goto L_poringpao1;
	}

	set $tspoling,$tspoling-1;
	npcwalkto $tspoling,36;
	if ( $tspoling == 30 ) {
	if ( $GjGw == 4 ) {
	set $@tspolingings,rand(1,4);
	if ( $@tspolingings == 1 ) npctalk "[>.<]죬Ҫģ555";
	if ( $@tspolingings == 2 ) npctalk "[>.<]նһǶˡ";
	if ( $@tspolingings == 3 ) npctalk "[>.<]Ѿûź ";
	if ( $@tspolingings == 4 ) npctalk "[>.<]õһΪǡ";
	end;
	}
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲʹʤ",16;
	set $GjGw,4;
	set $@tspolingingy,rand(1,5);
	if ( $@tspolingingy == 1 ) npctalk "[I(^?^)J]ֻ·û뵽õһŶٺٺ١";
	if ( $@tspolingingy == 2 ) npctalk "[I(^?^)J]óãʵԴĦеģ¶ż~";
	if ( $@tspolingingy == 3 ) npctalk "[I(^?^)J]ѽѽӴ~仨ˣ~";
	if ( $@tspolingingy == 4 ) npctalk "[I(^?^)J]ллCCTVллLTVλᣬ棬˵䡭";
	if ( $@tspolingingy == 5 ) npctalk "[I(^?^)J]ʤŮȻ~";
	set $tsPoringsl,$tsPoringsl+1;
	set $Poringplsccc,2;
	donpcevent "ܲ::Onporing2";
	end;
	}
	goto L_poringpao1;
}
p_track01.gat,58,34,2	script	鲨	1120,{
	end;

OnTimer10:
	if ( $GjGw == 1 ) {
	emotion	32;
	npcspeed 150;
	npcwalkto 57,34;
	stopnpctimer;
	end;
	}
	if ( $GjGw == 2 ) {
	stopnpctimer;
	set $@ulPoringquansu,1;
	goto L_poringpao2;
	end;
	}
	if ( $GjGw == 3 ) {
	emotion	16;
	npcspeed 150;
	npcwalkto 58,34;
	stopnpctimer;
	end;
	}
	end;

L_poringpao2:
	if ( $GjGw == 4 ) {
	set $@ulpolingings,rand(1,6);
	if ( $@ulpolingings == 1 ) npctalk "[>.<]춥硣ù";
	if ( $@ulpolingings == 2 ) npctalk "[>.<]ǵһġ";
	if ( $@ulpolingings == 3 ) npctalk "[>.<]ͷ@_____@";
	if ( $@ulpolingings == 4 ) npctalk "[>.<]ˤſ";
	if ( $@ulpolingings == 5 ) npctalk "[>.<]֪춼Ǻкҩ- -";
	if ( $@ulpolingings == 6 ) npctalk "[>.<]ҲŹǵ ҹ·ʱҪС";
	end;
	}
	npcspeed 150;
	sleep2 rand(500,1000);
	set $@ulpolinging,rand(1,2);
	if ( $@ulpolinging == 2 ) goto L_poringpao2;

	if ( $@ulPoringquansu == 1 ) {
	set $ulpoling,$ulpoling-1;
	npcwalkto $ulpoling,34;
	if ( $ulpoling == 30 ) {
	set $@ulPoringquansu,2;
	goto L_poringpao2;
	}
	goto L_poringpao2;
	}

	if ( $@ulPoringquansu == 2 ) {
	set $ulpoling,$ulpoling+1;
	npcwalkto $ulpoling,34;
	sleep2 rand(500,1000);
	if ( $ulpoling == 58 ) {
	set $@ulPoringquansu,0;
	goto L_poringpao2;
	}
	goto L_poringpao2;
	}
	set $ulpoling,$ulpoling-1;
	npcwalkto $ulpoling,34;
	if ( $ulpoling == 30 ) {
	if ( $GjGw == 4 ) {
	set $@ulpolingings,rand(1,6);
	if ( $@ulpolingings == 1 ) npctalk "[>.<]춥硣ù";
	if ( $@ulpolingings == 2 ) npctalk "[>.<]ǵһġ";
	if ( $@ulpolingings == 3 ) npctalk "[>.<]ͷ@_____@";
	if ( $@ulpolingings == 4 ) npctalk "[>.<]ˤſ";
	if ( $@ulpolingings == 5 ) npctalk "[>.<]֪춼Ǻкҩ- -";
	if ( $@ulpolingings == 6 ) npctalk "[>.<]ҲŹǵ ҹ·ʱҪС";
	end;
	}
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲ鲨ʤ",16;
	set $GjGw,4;
	set $@ulpolingingy,rand(1,7);
	if ( $@ulpolingingy == 1 ) npctalk "[I(^?^)J]û õһ>0<";
	if ( $@ulpolingingy == 2 ) npctalk "[I(^?^)J]Ư~~";
	if ( $@ulpolingingy == 3 ) npctalk "[I(^?^)J]˳~~~";
	if ( $@ulpolingingy == 4 ) npctalk "[I(^?^)J]Сһವķ~";
	if ( $@ulpolingingy == 5 ) npctalk "[I(^?^)J]Ǳү Ŷ!";
	if ( $@ulpolingingy == 6 ) npctalk "[I(^?^)J]Ķȥˢé~";
	if ( $@ulpolingingy == 7 ) npctalk "[I(^?^)J]˭Ṧߣ޲";
	set $ulPoringsl,$ulPoringsl+1;
	set $Poringplsccc,3;
	donpcevent "ܲ::Onporing2";
	end;
	}
	goto L_poringpao2;
}
p_track01.gat,58,32,2	script	ħ	1582,{
	end;

OnTimer10:
	if ( $GjGw == 1 ) {
	emotion	32;
	npcspeed 150;
	npcwalkto 57,32;
	stopnpctimer;
	end;
	}
	if ( $GjGw == 2 ) {
	stopnpctimer;
	set $@emPoringquansu,1;
	goto L_poringpao3;
	end;
	}
	if ( $GjGw == 3 ) {
	emotion	16;
	npcspeed 150;
	npcwalkto 58,32;
	stopnpctimer;
	end;
	}
	end;

L_poringpao3:
	if ( $GjGw == 4 ) {
	set $@empolingings,rand(1,7);
	if ( $@empolingings == 1 ) npctalk "[>.<]ȻûͯаûBTŮ~Ů";
	if ( $@empolingings == 2 ) npctalk "[>.<]һؼôʰǡ";
	if ( $@empolingings == 3 ) npctalk "[>.<]ȦT T";
	if ( $@empolingings == 4 ) npctalk "[>.<]ǰ- -";
	if ( $@empolingings == 5 ) npctalk "[>.<]һʱƽ˾һʯã ";
	if ( $@empolingings == 6 ) npctalk "[>.<]ҴˣĴˡҴһʼͲӦҲҵĵһҲᶪҵĵһô䵽ôһĵĵز";
	if ( $@empolingings == 7 ) npctalk "[>.<]Ů˰ģ";
	end;
	}
	npcspeed 150;
	sleep2 rand(500,1000);
	set $@empolinging,rand(1,2);
	if ( $@empolinging == 2 ) goto L_poringpao3;

	if ( $@emPoringquansu == 1 ) {
	set $empoling,$empoling-1;
	npcwalkto $empoling,32;
	if ( $empoling == 30 ) {
	set $@emPoringquansu,2;
	goto L_poringpao3;
	}
	goto L_poringpao3;
	}

	if ( $@emPoringquansu == 2 ) {
	set $empoling,$empoling+1;
	npcwalkto $empoling,32;
	sleep2 rand(500,1000);
	if ( $empoling == 58 ) {
	set $@emPoringquansu,0;
	goto L_poringpao3;
	}
	goto L_poringpao3;
	}
	set $empoling,$empoling-1;
	npcwalkto $empoling,32;
	if ( $empoling == 30 ) {
	if ( $GjGw == 4 ) {
	set $@empolingings,rand(1,7);
	if ( $@empolingings == 1 ) npctalk "[>.<]ȻûͯаûBTŮ~Ů";
	if ( $@empolingings == 2 ) npctalk "[>.<]һؼôʰǡ";
	if ( $@empolingings == 3 ) npctalk "[>.<]ȦT T";
	if ( $@empolingings == 4 ) npctalk "[>.<]ǰ- -";
	if ( $@empolingings == 5 ) npctalk "[>.<]һʱƽ˾һʯã ";
	if ( $@empolingings == 6 ) npctalk "[>.<]ҴˣĴˡҴһʼͲӦҲҵĵһҲᶪҵĵһô䵽ôһĵĵز";
	if ( $@empolingings == 7 ) npctalk "[>.<]Ů˰ģ";
	end;
	}
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲħʤ",16;
	set $GjGw,4;
	set $@polingingy,rand(1,4);
	if ( $@polingingy == 1 ) npctalk "[I(^?^)J]Ůô޵У";
	if ( $@polingingy == 2 ) npctalk "[I(^?^)J]һǴӾҰŮ£";
	if ( $@polingingy == 3 ) npctalk "[I(^?^)J]֪ŮôдôҵıӾ֪ˣ";
	if ( $@polingingy == 4 ) npctalk "[I(^?^)J]ϻΪHELLO KITTY~_~";
	set $emPoringsl,$emPoringsl+1;
	set $Poringplsccc,4;
	donpcevent "ܲ::Onporing2";
	end;
	}
	goto L_poringpao3;
}
p_track01.gat,58,30,2	script	ʥ	1062,{
	end;

OnTimer10:
	if ( $GjGw == 1 ) {
	emotion	32;
	npcspeed 150;
	npcwalkto 57,30;
	stopnpctimer;
	end;
	}
	if ( $GjGw == 2 ) {
	stopnpctimer;
	set $@sdPoringquansu,1;
	goto L_poringpao4;
	end;
	}
	if ( $GjGw == 3 ) {
	emotion	16;
	npcspeed 150;
	npcwalkto 58,30;
	stopnpctimer;
	end;
	}
	end;

L_poringpao4:
	if ( $GjGw == 4 ) {
	set $@sdpolingings,rand(1,4);
	if ( $@sdpolingings == 1 ) npctalk "[>.<]ҲԸ⣡Ըѽ";
	if ( $@sdpolingings == 2 ) npctalk "[>.<]ûǮѽ";
	if ( $@sdpolingings == 3 ) npctalk "[>.<]˺ أ";
	if ( $@sdpolingings == 4 ) npctalk "[>.<]SB ˭..";
	end;
	}
	npcspeed 150;
	sleep2 rand(500,1000);
	set $@sdpolinging,rand(1,2);
	if ( $@sdpolinging == 2 ) goto L_poringpao4;

	if ( $@sdPoringquansu == 1 ) {
	set $sdpoling,$sdpoling-1;
	npcwalkto $sdpoling,30;
	if ( $sdpoling == 30 ) {
	set $@sdPoringquansu,2;
	goto L_poringpao4;
	}
	goto L_poringpao4;
	}

	if ( $@sdPoringquansu == 2 ) {
	set $sdpoling,$sdpoling+1;
	npcwalkto $sdpoling,30;
	sleep2 rand(500,1000);
	if ( $sdpoling == 58 ) {
	set $@sdPoringquansu,0;
	goto L_poringpao4;
	}
	goto L_poringpao4;
	}
	set $sdpoling,$sdpoling-1;
	npcwalkto $sdpoling,30;
	if ( $sdpoling == 30 ) {
	if ( $GjGw == 4 ) {
	set $@sdpolingings,rand(1,4);
	if ( $@sdpolingings == 1 ) npctalk "[>.<]ҲԸ⣡Ըѽ";
	if ( $@sdpolingings == 2 ) npctalk "[>.<]ûǮѽ";
	if ( $@sdpolingings == 3 ) npctalk "[>.<]˺ أ";
	if ( $@sdpolingings == 4 ) npctalk "[>.<]SB ˭..";
	end;
	}
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲʥʤ",16;
	set $GjGw,4;
	set $@polingingy,rand(1,4);
	if ( $@polingingy == 1 ) npctalk "[I(^?^)J],ҺѸ͡";
	if ( $@polingingy == 2 ) npctalk "[I(^?^)J]SB˭~";
	if ( $@polingingy == 3 ) npctalk "[I(^?^)J]BLϴǹ,˭ûа취Ӯ";
	if ( $@polingingy == 4 ) npctalk "[I(^?^)J]˭տ~~";
	set $sdPoringsl,$sdPoringsl+1;
	set $Poringplsccc,5;
	donpcevent "ܲ::Onporing2";
	end;
	}
	goto L_poringpao4;
}
p_track01.gat,58,28,2	script		1031,{
	end;

OnTimer10:
	if ( $GjGw == 1 ) {
	emotion	32;
	npcspeed 150;
	npcwalkto 57,28;
	stopnpctimer;
	end;
	}
	if ( $GjGw == 2 ) {
	stopnpctimer;
	set $@bbPoringquansu,1;
	goto L_poringpao5;
	end;
	}
	if ( $GjGw == 3 ) {
	emotion	16;
	npcspeed 150;
	npcwalkto 58,28;
	stopnpctimer;
	end;
	}
	end;

L_poringpao5:
	if ( $GjGw == 4 ) {
	set $@bbpolingings,rand(1,2);
	if ( $@bbpolingings == 1 ) npctalk "[>.<]ѹżɫ- -ù͸ء";
	if ( $@bbpolingings == 2 ) npctalk "[>.<]éޣȥϴϴ";
	end;
	}
	npcspeed 150;
	sleep2 rand(500,1000);
	set $@bbpolinging,rand(1,2);
	if ( $@bbpolinging == 2 ) goto L_poringpao5;

	if ( $@bbPoringquansu == 1 ) {
	set $bbpoling,$bbpoling-1;
	npcwalkto $bbpoling,28;
	if ( $bbpoling == 30 ) {
	set $@bbPoringquansu,2;
	goto L_poringpao5;
	}
	goto L_poringpao5;
	}

	if ( $@bbPoringquansu == 2 ) {
	set $bbpoling,$bbpoling+1;
	npcwalkto $bbpoling,28;
	sleep2 rand(500,1000);
	if ( $bbpoling == 58 ) {
	set $@bbPoringquansu,0;
	goto L_poringpao5;
	}
	goto L_poringpao5;
	}
	set $bbpoling,$bbpoling-1;
	npcwalkto $bbpoling,28;
	if ( $bbpoling == 30 ) {
	if ( $GjGw == 4 ) {
	set $@bbpolingings,rand(1,2);
	if ( $@bbpolingings == 1 ) npctalk "[>.<]ѹżɫ- -ù͸ء";
	if ( $@bbpolingings == 2 ) npctalk "[>.<]éޣȥϴϴ";
	end;
	}
	mapannounce "p_track01.gat",""+$Poringpaobucc+"ܲʤ",16;
	set $GjGw,4;
	set $@polingingy,rand(1,3);
	if ( $@polingingy == 1 ) npctalk "[I(^?^)J]֪Ϊʲôɫ һӾҩˮ~";
	if ( $@polingingy == 2 ) npctalk "[I(^?^)J]܇ƹ~ʻ~~~ûҰ~";
	if ( $@polingingy == 3 ) npctalk "[I(^?^)J]ƿL֮Ჹɣ۰";
	set $bbPoringsl,$bbPoringsl+1;
	set $Poringplsccc,6;
	donpcevent "ܲ::Onporing2";
	end;
	}
	goto L_poringpao5;
}