SRL Archive - RS3 Script Requests

Alright so I have the code for my Resource Island Woodcutter and it is a powercutter so far, but with a bonfire addon I could make this such good FM xp. Does anyone have a code sitting around that they could just post or PM me? I've tried ripping from the various bonfire making scripts but it's to no avail… so if you have a nice little addon kicking around it would be greatly appreciated (I'll give credit as well). Once I have the firemaking working I can release to the public!

~Joe

I dont have a bonfire script but attempted one for u :cool:

procedure Bonfire;
var
  x,y,t:integer;
label
  Start,Start2;
begin
  Start:
  InvMouse(randomrange(2,28),2); //randomly choose a slot, dont include 1st slot if its for holding hatchet
  if WaitUpTextMulti(['Craf','raft','log'],1200) then
  begin
    ClickMouse2(false);
    WaitOption('ight',1000);
  end else
  goto Start;   //incase its not log but something else!

  Start2:
  MarkTime(t);
  repeat
    wait(50);
  until (TimeFromMark(t)>5000) or FindColorSpiralTolerance(x,y,1337488,157,87,426,285,10);   //if doesn't work, try a different color; search radius is only near the centre screen

  if (TimeFromMark(t)>5000) then
  begin
    writeln('cant find bonfire');
    TerminateScript;
  end;

  writeln('found bonfire!');
  Mouse(x,y,1,1,false);
  if not WaitOptionMulti(['dd','dd-lo','Fire'],1200) then
    goto Start2;

  while ExistsItem(28) do wait(100); //wait until last slot empty
end;                   

well thanks for that.. Ill test that for a bit and tell you how it goes. Thanks a lot!

It should be quite easy to do that – just make it right click a random inventory slot, choose the light option, then left click on another random inventory slot, then mousebox then add to bonfire option. Wait until inventory is empty of logs(could use a DTM for that) and it's done.

If you make the script left click three options will appear in the dialogue box. First mousebox the light fire, and then have it click again and mousebox the add to fire. Then of course you could just add in a simple wait function to make sure they all get burned

I know how easy it sounds, its just so finicky and it sometimes chooses the options too fast. I tried TPA, DTM, findobj, etc… I suck at inventory work.

Can you use mouseitem???? that always works for me.

For example

procedure burn;

var
  I:integer;

begin
for i := 1 to 28 do
begin
if existsitem(i) then
begin
MMouseItem(i) then
if waituptext('log', 500) then
begin
MouseItem(i, mouse_left);
wait(1300+random(500));
mousebox(x, y,x,y);  //cords??
wait(500+random(500));
Mouseitem((i+1), mouse_left);
wait(1200+random(500));
mousebox(x,y,x,y);
exit;
end;
end;
end;

Then have a procedure that will wait until the inventory is empty after that.

I just made that off the top of my head, so you may need to tweak it a little.