Someone can help me with my script

[mR L]

Hello everyone, can you help me with my script minning system ?

 

*Function

function    script    Minner    {
if(getarg(0)==2){
    undisguise;
    if(strcharinfo(3)=="cave"){warp "SavePoint",0,0;}
    end;
}

if(getarg(0)==1&&strcharinfo(3)=="cave"){
    if(getequipid(4)!=6010||getequipid(1)!=5031){end;}
    specialeffect2 154;
    set .@r,rand(1,900);
    if(.@r<=200){
    set .@im1,
    callfunc("F_RandMes", 7,
        969, 1002, 757, 756);    // Gold, ore, rough elu, rough ori
        getitem .@im,1;
    }
    if(.@r>200&&.@r<=300) {
        getitem 673,1;    // Bronze Coin
    }
    if(.@r>300&&.@r<=400) {
        getitem 7539,1;    // Poring Coin
    }
    if(.@r>400&&.@r<=500) {
        getitem 673,1;    // Bronze Coin
    }
    if(.@r>500&&.@r<=600) {
        getitem 969,1;    // Gold
    }
    if(.@r>600&&.@r<=800) {
    set .@im2,
    callfunc("F_RandMes", 7,
        969, 1002, 757, 756);    // Gold, ore, rough elu, rough ori
        getitem .@im,1;
    }
    if(.@r>800){
        getitem 7539,1;    // Poring Coin
    }
    end;
}

bonus bAspd,-80;
bonus bAtkRate,-100;
    if(getequipid(1)==5031)
    disguise 1838;
    else    {
    undisguise;
}
return;
}

-    script    Minnerx    -1,{
OnDo:
    callfunc "Minner",1;
    end;

OnLill:
    set .@t,1;

OnInit:
    if(!.@t)set .@t,10;
    monster     "cave",0,0,"--ja--",1907,.@t,"Minnerx::OnLill";
    monster     "cave",0,0,"--ja--",1908,.@t,"Minnerx::OnLill";
    end;
}

// ================== Map Flags ==================

cave    mapflag    nowarp
cave    mapflag    nowarpto
cave    mapflag    noteleport
cave    mapflag    nosave
cave    mapflag    nomemo
cave    mapflag    nobranch
cave    mapflag    noicewall
cave    mapflag    noskill

// =========== Weapon =============
// 6010,Pickaxe,Pickaxe,4,10,,10,10,,1,0,0xFFFFFFFF,7,0,34,0,0,0,0,{ callfunc "Minner",0; set @i$,"Minnerx::OnDo"; autobonus "{ doevent @i$; }",10000,1,BF_WEAPON; },{},{callfunc "Minner",2;}

// =========== Stone ============
//1907,S_EMPEL_1,Guardian Stone,Guardian Stone,90,2000000,0,0,0,0,1,1,40,50,1,1,1,1,1,1,0,0,0,0,20,0x120,300,1288,288,384,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

 

Someone when I attack the Guardian Stone I can't get item

New Bitmap Image.bmp

Edited March 22, 2017 by Skorm
PLEASE USE CODEBOX next time ty

[Skorm]

change 

callfunc("F_RandMes", 7, 969, 1002, 757, 756); 

to

callfunc("F_RandMes", 4, 969, 1002, 757, 756);

 

For other people reading this post F_RandMes was changed to F_Rand sometime in 2014 the new format is like...

callfunc("F_Rand",1129,1222,1163,1357,1360,1522,1811,1410);

 

[mR L]

Thank you very much @Skorm

Love you