Mining Script with progress bar

[celeron0134]

//Mining Script//
	
prontera,156,177,3	script	Mining Ore	1288,{

set .@Auto,1;
set .@minecast,12;
if(@mining != 0) goto Dspottaken;
if(.mining != 0) goto Dstillmining;
if(countitem(28116) < 1) goto Dnopickaxe;
if (isequipped(15179)) {	set .@minecast,.@minecast - 2; }

Mine:
progressbar "ffffff",.@minecast;
if (rand(1,1000) <= 1){
setarray .@SRare[0],985,984,7620,7619;
set .@SRareCatch, .@SRare[rand(getarraysize(.@SRare))];
getitem .@SRareCatch,1; //Reward
specialeffect2 EF_TEMP_OK;
mapannounce strcharinfo(3),strcharinfo(0)+" has caught a "+getitemname(.@SRareCatch)+"!",bc_map,"0xff77ff";
if(.@Auto==1){
goto Mine;}else{
set .mining,0;
set @mining,0;
end;}
}


Dspottaken:
mes "Someone's already mining here";
close;

Dstillmining:
mes "Relax , You Are still mining";
close;

Dnopickaxe:
mes "I'll be needing a ^008800Pickaxe^000000 for this..";
close;

hello  i need a mining script that uses progress bar , but the problems are when you try to move while casting ,  the .@mining and .mining don't go 0 , it stays 1 and i cant talk to the NPC anymore