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