SRL Archive - RS3 Outdated / Broken Scripts

Ok I updated this..


Look at it and tell me what your advice is please. Thank you.

Looks good, but how about making burrybones procedure like this;

procedure BurryBones;
begin
repeat
 If(FindColorSpiral(xx,yy,GrayishBoneColor,494,185,770,507))Then
 Mmouse(xx,yy,2,2);
 If(IsUpText('Bone')) Then
 begin
 Wait(100+random(50));
 Mouse(xx,yy,2,2,true);
 wait(1950+random(200));
 end;
 until(not(FindColorSpiral(xx,yy,GrayishBoneColor,494,185,770,507)))
end;

Now it repeats it until it doesn't find bonecolor, and procedure is in smaller size.

And you didnt count your variable BoneLoadsToComplete, you would do it like this:

repeat
 FindNormalRandoms;
 GetBones;
 wait(1000+random(250));
 BurryBones;
 wait(1200+random(250));
 BoneLoadsToComplete:=BoneLoadsToComplete+1
until(BoneLoadsToComplete = NumberOfBoneLoads);

BoneLoadsToComplete:=BoneLoadsToComplete+1

But looks good script.

yea it looks good when you change like pentti says.
i also made somekinda like that, but when you make a script a lot of times people look at it but don't post anything, or less and after a time you can't see the script anymore, because it's on the second page :)

you could even use this for the bone burying. I personally think its more reliable.

ClickAllItemsBmpMaskTolWait('Bury',bonemask,10,5,300);

Then use this as the mask

bonemask:= BitmapFromString(37, 36,
    'z78DAED97410E80200C04BFC42BF8FF93BC9A189AAD686DEBCC89' +
    '1050262C55C600000000F82FF3443F2F6F4F0FBB55BB4A0E57767' +
    '67F3653EFAA9491918ED3C43B4B597F8C9DF72DBA759E64EA7B54' +
    'B7665E73A524CD4EE63D62ECBEAD03914F7EDB2EC3F742C9D24E0' +
    '2739ED39D0A9CC74ED9B5BA99CCF0EF81DDB395ADD3FDAEB75DEF' +
    '5B39000054E400819A0FF7'
  );

why uou don't use repeat and 1 time

procedure BurryBones;
begin
repeat
If(FindColorSpiral(xx,yy,GrayishBoneColor,494,185,770,507))Then
Mmouse(xx,yy,2,2);
until(IsUpText('Bone'))
Wait(100+random(50));
Mouse(xx,yy,2,2,true);
wait(1950+random(200));

?