[RO] Boss Raid - Party with PVP

// https://rathena.org/board/topic/107230-script-req-boss-droper/

prontera,155,181,5	script	Sample	4_F_KAFRA1,{

	mes "Want to kill Boss?";
	if ( select( "Enter", "Cancel" ) == 1 ) {
		.@party_id = getcharid(1);
		if ( !.@party_id ) {
			mes "You need a party.";
		}
		else if ( getcharid(0) == getpartyleader( .@party_id,2 ) ) {
			getpartymember .@party_id;
			if ( $@partymembercount ) {
				.@size = $@partymembercount;
				copyarray .@name$, $@partymembername$, .@size;

				for ( .@i = 0; .@i < .@size; .@i++ )
					if ( !getmapxy( .@map$,.@x,.@y,0,.@name$[.@i] ) )
						if ( .@map$ == .npc_map$ && distance( .@x,.@y,.npc_x,.npc_y ) <= .distance_range ) {
							.@count++;
						}
				if ( .@count >= .min_party_member ) {
					warpparty .map$,0,0,.@party_id;
				}
				else {
					dispbottom "Not all party member are here.";
				}
			}
			else {
			mes "You're not party leader.";
		}
	}
	close;

	OnHour00:
	OnHour12:
		killmonster .map$,"All";
		monster .map$,0,0,"BOSS Monster",1002, 1,.npc_name$+"::OnBossDie";
		monster .map$,0,0,"Soldier Monster",1002,100,.npc_name$+"::OnMobDie";
		monster .map$,0,0,"Guard Monster",1002,100,.npc_name$+"::OnMobDie";
		end;

	OnBossDie:
		killmonster .map$,"All";
		monster .map$,0,0,"Monster",1002,100,.npc_name$+"::OnRewardDie";

		// reward for killing boss.
		getitem 512,1;
		getitem 512,2;
		getitem 512,3;

		sleep 30000;
		cleanmap .map$;
		end;

	OnMobDie:
		end;

	OnRewardDie:
		getmapxy( .@map$,.@x,.@y,0 );

		// reward for killing mob.
		makeitem 512,1, .@map$,( .@x + rand( -2,2 ) ),( .@y + rand( -2,2 ) );
		makeitem 512,2, .@map$,( .@x + rand( -2,2 ) ),( .@y + rand( -2,2 ) );
		makeitem 512,3, .@map$,( .@x + rand( -2,2 ) ),( .@y + rand( -2,2 ) );
		end;

	OnInit:
		.min_party_member = 5;
		.map$ = "prt_fild08";

		setmapflag .map$,mf_pvp;
		.npc_name$ = strnpcinfo(3);
		end;
}