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