npc_test_arena.txt

传奇3源程序, 用vc开发的

// ------------------------------------------------------------------
// 			傾儕亅僫偺愝掕
// ------------------------------------------------------------------

// 師偺儅僢僾傪巊偄傑偡
//map: prontera.gat
//map: prt_are_in.gat
//map: force_1-1.gat

// 僥儗億側偳偺嬛巭張棟
prt_are_in.gat	mapflag	nomemo	dummy
prt_are_in.gat	mapflag	noteleport	dummy
prt_are_in.gat	mapflag	nosave	prontera.gat,156,191
force_1-1.gat	mapflag	nomemo	dummy
force_1-1.gat	mapflag	noteleport	dummy
force_1-1.gat	mapflag	nosave	prontera.gat,156,191

// 僾儘儞僥儔偵擖傝岥傪抲偔
prontera.gat,160,185,0	script	傾儕乕僫擖傝岥	116,{
	mes "傾儕乕僫擖傝岥偵旘傃傑偡偐丠";
	next;
	menu "旘傇",L_GOARENA,"傗傔傞",L_YAME;
L_GOARENA:
	warp "prt_are_in.gat",31,82;
	close;
L_YAME:
	close;
}

// 懸婡幒偐傜弨旛幒傊偺揮憲
prt_are_in.gat,29,79,0	script	僞僀儉傾僞僢僋侾	116,{
	if( getmapusers("force_1-1.gat")>0 ) goto L_WAIT;
	mes "偙偙偼僞僀儉傾僞僢僋Lv1偱偡";
	mes "挧愴偟傑偡偐丠";
	menu "偼偄",L_GOLV1,"傗傔傞",L_YAME;
L_GOLV1:
	if( getmapusers("force_1-1.gat")>0 ) goto L_WAIT;
	disablenpc "fc103-1";
	disablenpc "fc105";
	disablenpc "fc107";
	addtimer 5000,"arenatestev0000";
	warp "force_1-1.gat",99,12;
	end;
L_WAIT:
	mes "尰嵼挧愴拞偺曽偑偄傑偡偺偱丄";
	mes "偟偽傜偔偍懸偪偔偩偝偄丅";
L_YAME:
	close;
}

// 弨旛幒乮侾侽昩弨旛婜娫乯
force_1-1.gat,99,12,0	script	arenatestev0000	-1,{
	announce "侾侽昩屻偵奐巒偟傑偡",3;
	addtimer 10000,"arenatestev0001";
}

// 幚嵺偺晹壆傊偺揮憲偲MOB偺愝掕
force_1-1.gat,99,12,0	script	arenatestev0001	-1,{
	killmonster "force_1-1.gat","arenatestev1000";
	monster "force_1-1.gat",25,25,"--ja--",1002,1,"arenatestev1000";
	monster "force_1-1.gat",20,25,"--ja--",1002,1,"arenatestev1000";
	monster "force_1-1.gat",25,20,"--ja--",1002,1,"arenatestev1000";
	monster "force_1-1.gat",30,25,"--ja--",1002,1,"arenatestev1000";
	monster "force_1-1.gat",25,30,"--ja--",1002,1,"arenatestev1000";
	set $arenatest00,5;
	disablenpc "fc101";
	disablenpc "fc103";
	warp "force_1-1.gat",25,26;
	enablenpc "fc103-1";
	enablenpc "fc105";
	enablenpc "fc107";
	announce "30昩埲撪偵焤柵偣傛",19;
	addtimer 30000,"arenatestev8000";
}

// 搢偟偨張棟
force_1-1.gat,25,26,0	script	arenatestev1000	-1,{
	set $arenatest00, $arenatest00 - 1;
	if( $arenatest00 > 0 ) goto L_CONT;
	deltimer "arenatestev8000";
	announce "僋儔僢僔儏!!",3;
	enablenpc "fc101";
	enablenpc "fc103";
	areaannounce "prt_are_in.gat",25,75,40,90,
		strcharinfo(0) + " 偑僞僀儉傾僞僢僋Lv1傪僋儕傾偟傑偟偨",0;
	addtimer 5000,"arenatestev9000";
L_CONT:
	end;
}

// 僞僀儉傾僂僩
force_1-1.gat,25,26,0	script	arenatestev8000	-1,{
	set $arenatest00,99;
	killmonster "force_1-1.gat","arenatestev1000";
	announce "僞僀儉僆乕僶乕!!",3;
	areaannounce "prt_are_in.gat",25,75,40,90,
		strcharinfo(0) + " 偑僞僀儉傾僞僢僋Lv1偵幐攕偟傑偟偨",0;
	addtimer 5000,"arenatestev9000";
}

// 僾儘儞僥儔偵婣傞
force_1-1.gat,25,26,0	script	arenatestev9000	-1,{
	warp "prontera.gat",156,191;
}