I set up the script and got it to run fine and dany on VE oaks and i loved it. My only problem is that once it reaches the bank and checks in the inventory or after getting a full inventory and checks it before dropping while im power chopping, the script has an error.
Error: Out Of Range at line 294
It stops the script and highlights line 294 in the MainLoop.
Here's the code from 293 to 310 so you dont have to bother looking yourself.
I'd appriciate any help.Code:begin SetLength(intItems[k][i], Length(Items[k][i])); SetLength(exps[k][i], Length(intItems[k])); intItems[k][i] := MSI_VarToIntArray(Items[k][i]); exps[k][i] := Experiences[k][i]; for j := 0 to High(intItems[k][i]) do begin itemCount := CountItems('dtm', MSI_Items[intItems[k][i][j]].DTM, []); expCount := Round(exps[k][i][j] * itemCount); MSI_AddToProggy(PROG_ADD_EXP, -1, -1, expCount); //adds exp to script MSI_AddToProggy(PROG_ADD_ITEMS, i, j, itemCount); //adds amount of item MSI_Debug('MSI_CountItems', 'Found ' + IntToStr(itemCount) + ' of item ' + MSI_Items[intItems[k][i][j]].Name, DEBUG_FUNCTIONS); end;


Reply With Quote















