prontera,147,154,5	script	Mining Engineer	848,{

mes "Hello " + strcharinfo(0) + ",";
mes "Welcome to the Mining Company Founded By: ^880000Intel^000000";
next;
switch(select("Rent Mining Items:I'm Not Yet Ready:Mining Information"))	{

	case 3:		
		mes "Mining Drops and Rates :";
		mes "Bronze Bar : 10%";
		mes "Phracon and Emvertracon: 45%";
		mes "Elunium and Oridecon: 25%";
		mes "Enriched Elu and Enriched Ori: 3%";
		next;
		mes "You have 1 Hour to Mine and you need Mining Hat for the mining to work.";
		close;

	case 2:
		mes "Ok ~ See Ya Around";
		close;

	case 1:
		next;
		if (countitem(6010)<1) {
		mes "Would You Like to Rent Mining Items ?";
		if( select( "Yes:No" ) == 1)
		rentitem 6010, 3600;
		next; 
}
		mes "Do you want to warp to the mining field right now?";
		mes "Warping will cost 5,000,000Z";

		if( select( "Yes:No" ) == 2)
		goto L_exit;

		if( Zeny < 5000000 ) {
        	mes "Sorry, You Don't Have Enough Zeny.";
        	close; 
}

attachnpctimer strcharinfo(0);
initnpctimer;
callfunc("MiningTimer");

warp "ordeal_1-1",149,158;
end;

OnTimer3600000:
	warp "SavePoint", 0, 0;
OnTimerQuit:
	stopnpctimer;
	set mining_start, 0;
	end;

L_exit:
	mes "Ok, See Ya";
	close;
}


function	script	Minner	{

if(getarg(0) == 2) {

	undisguise;

	if(strcharinfo(3) == "ordeal_1-1")
		warp "SavePoint", 0, 0;
	end;
}

if(getarg(0) == 1 && strcharinfo(3) == "ordeal_1-1") {

	if(getequipid(4) != 6010 || getequipid(1) != 5031)
		end;

	if(rand(100) < 45)
		getitem 1010, 1;

	if(rand(100) < 45)
		getitem 1011, 1;

	if(rand(100) < 25)
		getitem 984, 1;

	if(rand(100) < 25)
		getitem 985, 1;

	if(rand(100) < 3)
		getitem 7619, 1;

	if(rand(100) < 3)
		getitem 7620, 1;

	if(rand(100) < 10)
		getitem 20003, 1;

	specialeffect2 154;
	end;
}

bonus bAspd, -30;
bonus bCritical, 100;
bonus bAtkRate, -100;

if(getequipid(1) == 5031)
	disguise 1169;
else
	undisguise;

return;
}

-	script	Minnerx	-1,{

OnDo:
	callfunc "Minner",1;
	end;

OnLill:
	set .@t,1;

OnInit:
	if(!.@t)
		set .@t,100;

	monster "ordeal_1-1",0,0,"--ja--",1907,.@t,"Minnerx::OnLill";
	end;
}

//=========== TIMER SHOW ====================
ordeal_1-1,149,149,5	script	Mining Time Limit	837,{

mes "^66CCFF[ Mining Area ]^000000";
mes "";
mes "Mining Time Limit:";
mes "^FF0000" + mine_day$ + "/" + mine_month$ + "/" + mine_year$ + "  " + mine_hour$ + ":" + mine_minute$ + "^000000";
mes "If you want to stop mining just remove all mining items in your inventory.";
close;
}
//===========================================



function	script	MiningTimer	{


setarray .@daymonth[0], 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31;

set mine_minute$, ( (gettime(2) < 10) ? "0" + gettime(2) : "" + gettime(2) );

if((gettime(3)+1) == 24)
	set mine_hour$, "00";
else if((gettime(3)+1) < 10)
	set mine_hour$, "0" + (gettime(3)+1);
else
	set mine_hour$, "" + (gettime(3) + 1);

if( mine_hour$ == "00")
	set mine_day$, "" + (gettime(5) + 1);
else
	set mine_day$, "" + gettime(5);

if( atoi(mine_day$) > .@daymonth[gettime(6)-1])
	set mine_day$, "1";

if( mine_day$ == "1" )
	set mine_month$, "" + (gettime(6) + 1);
else
	set mine_month$, "" + gettime(6);

if( mine_month$ == "13" ) {
	set mine_month$, "1";
	set mine_year$, "" + (gettime(7) + 1);
}
else
	set mine_year$, "" + gettime(7);
return;
}


ordeal_1-1	mapflag	loadevent
ordeal_1-1	mapflag	noskill
ordeal_1-1	mapflag	nowarp
ordeal_1-1	mapflag	nowarpto
ordeal_1-1	mapflag	noteleport
ordeal_1-1	mapflag	nosave	SavePoint
ordeal_1-1	mapflag	noteleport
ordeal_1-1	mapflag	novending
ordeal_1-1	mapflag	noreturn
ordeal_1-1	mapflag	nomemo
ordeal_1-1	mapflag	nobranch