path: root/doc/sample/npc_test_arena.txt

// ------------------------------------------------------------------
// 			�A���|�i�̐ݒ�
// ------------------------------------------------------------------

// ���̃}�b�v���g���܂�
//map: prontera
//map: prt_are_in
//map: force_1-1

// �e���|�Ȃǂ̋֎~����
prt_are_in	mapflag	nomemo	dummy
prt_are_in	mapflag	noteleport	dummy
prt_are_in	mapflag	nosave	prontera,156,191
force_1-1	mapflag	nomemo	dummy
force_1-1	mapflag	noteleport	dummy
force_1-1	mapflag	nosave	prontera,156,191

// �v�����e���ɓ������u��
prontera,160,185,0	script	�A���[�i�����	116,{
	mes "�A���[�i������ɔ�т܂����H";
	next;
	menu "���",L_GOARENA,"��߂�",L_YAME;
L_GOARENA:
	warp "prt_are_in",31,82;
	close;
L_YAME:
	close;
}

// �ҋ@�����珀�����ւ̓]��
prt_are_in,29,79,0	script	�^�C���A�^�b�N�P	116,{
	if( getmapusers("force_1-1")>0 ) goto L_WAIT;
	mes "�����̓^�C���A�^�b�NLv1�ł�";
	mes "���킵�܂����H";
	menu "�͂�",L_GOLV1,"��߂�",L_YAME;
L_GOLV1:
	if( getmapusers("force_1-1")>0 ) goto L_WAIT;
	disablenpc "fc103-1";
	disablenpc "fc105";
	disablenpc "fc107";
	addtimer 5000,"arenatestev0000";
	warp "force_1-1",99,12;
	end;
L_WAIT:
	mes "���ݒ��풆�̕������܂��̂ŁA";
	mes "���΂炭���҂����������B";
L_YAME:
	close;
}

// �������i�P�O�b�������ԁj
force_1-1,99,12,0	script	arenatestev0000	-1,{
	announce "�P�O�b��ɊJ�n���܂�",3;
	addtimer 10000,"arenatestev0001";
}

// ���ۂ̕����ւ̓]����MOB�̐ݒ�
force_1-1,99,12,0	script	arenatestev0001	-1,{
	killmonster "force_1-1","arenatestev1000";
	monster "force_1-1",25,25,"--ja--",1002,1,"arenatestev1000";
	monster "force_1-1",20,25,"--ja--",1002,1,"arenatestev1000";
	monster "force_1-1",25,20,"--ja--",1002,1,"arenatestev1000";
	monster "force_1-1",30,25,"--ja--",1002,1,"arenatestev1000";
	monster "force_1-1",25,30,"--ja--",1002,1,"arenatestev1000";
	set $arenatest00,5;
	disablenpc "fc101";
	disablenpc "fc103";
	warp "force_1-1",25,26;
	enablenpc "fc103-1";
	enablenpc "fc105";
	enablenpc "fc107";
	announce "30�b�ȓ��ɟr�ł���",19;
	addtimer 30000,"arenatestev8000";
}

// �|��������
force_1-1,25,26,0	script	arenatestev1000	-1,{
	set $arenatest00, $arenatest00 - 1;
	if( $arenatest00 > 0 ) goto L_CONT;
	deltimer "arenatestev8000";
	announce "�N���b�V��!!",3;
	enablenpc "fc101";
	enablenpc "fc103";
	areaannounce "prt_are_in",25,75,40,90,
		strcharinfo(0) + " ���^�C���A�^�b�NLv1���N���A���܂���",0;
	addtimer 5000,"arenatestev9000";
L_CONT:
	end;
}

// �^�C���A�E�g
force_1-1,25,26,0	script	arenatestev8000	-1,{
	set $arenatest00,99;
	killmonster "force_1-1","arenatestev1000";
	announce "�^�C���I�[�o�[!!",3;
	areaannounce "prt_are_in",25,75,40,90,
		strcharinfo(0) + " ���^�C���A�^�b�NLv1�Ɏ��s���܂���",0;
	addtimer 5000,"arenatestev9000";
}

// �v�����e���ɋA��
force_1-1,25,26,0	script	arenatestev9000	-1,{
	warp "prontera",156,191;
}