only getting the first item

[xienne15]

bif_fild01,163,61,4	script	MINING SPOT	66,{
			if (countitem(558) > 1) goto OnMine;
			mes "A big rock.";
			close;

OnMine:
	setarray .@array,	26106, 10,
				26107, 10,
				640, 15,
				714, 15,
				715, 60,
				716, 60,
				717, 60,
				718, 20,
				719, 20,
				720, 20,
				721, 20,
				722, 20,
				723, 20,
				724, 20,
				725, 20,
				726, 20,
				727, 20,
				728, 20,
				729, 20,
				730, 16,
				731, 14,
				732, 12,
				733, 50,
				6077, 20,
				7300, 20,
				756, 20,
				757, 20,
				2794, 5,
				7049, 70,
				6078, 70,
				7067, 70 ;
	set .@len, getarraysize(.@array);
	delitem 26105,1;
	if(rand(2)-1)
		while(set(.@i,.@i+2)-2<=.@len)
			if(rand(100)<=.@array[.@i]) {
				set .@item, .@array[.@i]-1;
		misceffect 795;
		soundeffect "mining.wav",0;
				progressbar "brown",2;
		misceffect 795;
				specialeffect2 610;
				getitem(.@item,1);
				mes "You successfully mined a "+getitemname(.@item)+".";
				close;
			}
		misceffect 795;
		soundeffect "mining.wav",0;
				progressbar "brown",2;
		misceffect 795;
	mes "You failed to mine.";
	specialeffect2 611;
	close;
}

i am only getting the 26106 in the arrray. How to fix this?

[Skorm]

i am only getting the 26106 in the arrray. How to fix this?

 

 

If you're getting help on a topic don't make another topic about the same thing... This forums has enough post.

 

bif_fild01,163,61,4	script	MINING SPOT	66,{
			if (countitem(558) > 1) goto OnMine;
			mes "A big rock.";
			close;

OnMine:
	setarray .@array,	26106, 10,
				26107,10, 640,15, 714,15 , 715,60 , 716,60 ,
				717,60  , 718,20, 719,20 , 720,20 , 721,20 ,
				722,20  , 723,20, 724,20 , 725,20 , 726,20 ,
				727,20  , 728,20, 729,20 , 730,16 , 731,14 ,
				732,12  , 733,50, 6077,20, 7300,20, 756,20 ,
				757,20  , 2794,5, 7049,70, 6078,70, 7067,70;
	set .@len, getarraysize(.@array);
	delitem 26105,1;
	if(rand(2)-1) {
		while(set(.@i,.@i+2)-2<.@len)
			if(rand(100)<=.@array[.@i-1]) {
				set .@item, .@array[.@i-2];
				misceffect 795;
				soundeffect "mining.wav",0;
				progressbar "brown",2;
				misceffect 795;
				specialeffect2 610;
				getitem(.@item,1);
				mes "You successfully mined a "+getitemname(.@item)+".";
			}
	} else {
		misceffect 795;
		soundeffect "mining.wav",0;
		progressbar "brown",2;
		misceffect 795;
		mes "You failed to mine.";
		specialeffect2 611;
	} close;
}

Edited August 6, 2013 by Skorm

[Emistry]

			if(rand(100)<=.@array[.@i]) {
				set .@item, .@array[.@i]-1;

change to

			if(rand(100)<=.@array[.@i+1]) {
				set .@item, .@array[.@i];

[Skorm]

			if(rand(100)<=.@array[.@i]) {
				set .@item, .@array[.@i]-1;

change to

			if(rand(100)<=.@array[.@i+1]) {
				set .@item, .@array[.@i];

 

Actually it should be:

 

		while(set(.@i,.@i+2)-2<.@len)
			if(rand(100)<=.@array[.@i-1]) {
				set .@item, .@array[.@i-2];

 

Good spot though I put this one together in under 5 minutes and somethings slipped my mind.

Edited August 6, 2013 by Skorm