[RO] Weekday Summon Mob Event

-	script	auto_mob_main	-1,{

	OnInit:
	OnHour00:
		.weekday = gettime(4);
		end;

	// OnClock0200:
	// OnClock0800:
	// OnClock1400:
	// OnClock2000:
	OnSummon:
		if ( .current_map$ != "" )
			killmonster .current_map$,.npc_name$+"::OnKilled";
		switch( .weekday ) {
			case 1: callsub( OnSummonMob,"pay_fild02",1001 ); break;
			case 2: callsub( OnSummonMob,"pay_fild02",1001 ); break;
			case 3: callsub( OnSummonMob,"pay_fild03",1001 ); break;
			case 4: callsub( OnSummonMob,"pay_fild04",1001 ); break;
			case 5: callsub( OnSummonMob,"pay_fild05",1001 ); break;
			case 6: callsub( OnSummonMob,"pay_fild06",1001 ); break;
			default: callsub( OnSummonMob,"pay_fild07",1001 ); break;
		}
		end;

	OnSummonMob:
		.@map$ = getarg( 0,"" );
		.@mob = getarg( 1,0 );

		if ( getmapusers( .@map$ ) && .@mob ) {
			monster .@map$,0,0,"--ja--",.@mob,1,.npc_name$+"::OnKilled";
			announce getmonsterinfo( .@mob,MOB_NAME )+" summoned at "+.@map$+"...",bc_all;
			.current_map$ = .@map$;
		}
		else .current_map$ = "";
		end;

	OnKilled:
		switch( .weekday ) {
			case 1: getitem 512,1; break;
			case 2: getitem 512,2; break;
			case 3: getitem 512,3; break;
			case 4: getitem 512,4; break;
			case 5: getitem 512,5; break;
			case 6: getitem 512,6; break;
			default: getitem 512,7; break;
		}
		end;
}