SRL Archive - SRL Archives

Jagex_Fagex told me that the current log burner in SRL wasn't working so I made this.

{ By WhiteShadow
  Param  : LogColor - LogColor, Seconds - Time it takes for char to make a fire
  Make sure player is in a area where a long line of fire can be made, tinderbox
  in first inventory slot
}
procedure BurnLogs3(LogColor, Seconds : Integer);
var
  Spee : Integer;
begin
  Spee:= MouseSpeed;
  MouseSpeed:= 8 + random(5);
  repeat
    if(FindColorSpiralTolerance(x, y, LogColor, mix1, miy1, mix2, miy2, 5))then
    begin
      Wait(500 + random(300));
      Status('Click TinderBox');
      UseItem(1);
      Wait(500 + random(300));
      Status('Click Log');
      Wait(100);
      Mouse(x, y, 0, 0, true);
      Wait(Seconds * 1000);
    end;
  until(not(FindColorSpiralTolerance(x, y, LogColor, mix1, miy1, mix2, miy2, 5)))
  MouseSpeed:= Spee;
end;

If you want autocolors then do something like

procedure Example;
begin
  LColor := GetColor(x, y); //x, y begin 2nd inv slot or something
  BurnLogs3(LColor, 4);
end;

*As a side note, yes I've tried just using a for to do statement with ExistsItem it didn't work properly.

Post feedback, please.

ice idea, some Suggestions:

You can take out the Log Color by Using Universal DTM's for the Log. That way it will burn any log it sees. You could make it move over the DTM and if it matches a String which you specify then burn it.
Tinderbox might not be in first inventory slot, maybe use DTM's to find that?
Burn time is mostly the same, so i would suggest changing it to something like:

[php]
Procedure BurnLogs(TypeofLog : String);
[/php]

Good Luck :)

I'll try those ideas thanks. :) I was hoping to make it store least possible varIables though.

And burn time isn't the same. Higher leveled characters burn much faster then lower levels.

Hers a log DTM

dtmLogs:= DTMFromString('78DA639CCAC4C0E0C1C8800A18914820BD08A' +
       '8C695809A79403551F8D50000BF8402CF');

I already made one. :p

Oak and Log can use the same DTM, has anyone noticed that before?

thanks white, this could ver very helpful ;)

procedure BurnLogs(LogType : String; Seconds : Integer);
var
  Tx, Ty, Lx, Ly : Integer;
  TinderBox, LogX : Integer;
begin
  TinderBox:= DTMFromString('78DA63BCC3C8C0B00C8891C0C496668687401' +
       'A24FA1F0818EF01595B51D54064612490BE0164CD23A0E6399035' +
       '87809A5740D60A026ACE03591B08A8390B64AD24A0E60990B59E8' +
       '09AFB84DD0C0004BC1445');
  Wait(1);
  case LogType of
    'Log' : LogX:=  DTMFromString('78DA639CCAC4C0E0C1C8800A18914820BD08A' +
       '8C695809A79403551F8D50000BF8402CF');
    'Oak' : LogX:= DTMFromString('78DA63FCC9C8C0708B010C582114434FAE138' +
       '31C906684F219FF035967195040458C05440EA6E605907583010D' +
       '30A2A80100258207D4');
    'Willow':LogX:= DTMFromString('78DA6354656260D8C60006AC108A21D4478E4' +
       '10E483342F98C9A40352B185080ADB928440EA64608610E0230A2' +
       'A80100145C03ED');
  end;
  repeat
    if(FindDTM(LogX, Lx, Ly, Mix1, Miy1, Mix2, Miy2))then
    begin
      Status('Click log');
      Wait(300 + random(300));
      Mouse(Lx + 3, Ly + 4, 1, 1, true);
      if(FindDTM(TinderBox, Tx, Ty, Mix1, Miy1, Mix2, Miy2))then
      begin
        Wait(100);
        Status('Click Tinderbox');
        Wait(700 + random(300));
        Mouse(Tx - 6, Ty + 2, 1, 1, true);
        Wait(Seconds * 1000);
      end;
    end;
  until(not(FindDTM(LogX, Lx, Ly, Mix1, Miy1, Mix2, Miy2)))
  Writeln('No More Logs! yay');
end;

I moderated it. Now it's based on DTMs. I tested a load with regular logs and it worked great.

Param Description
LogType - 'Log', 'Oak', 'Willow'
Seconds - Seconds it takes to make a fire for the player

just make a dtm of one log and use text and tolerance to locate the others :p

or just set the tolerance of the parent dot really high so it can click on any color based on the shape of that log

or use bitmap masks of the log…….

get me a picture of a log and I'll make your procedure use bitmap masks ;)

Woodcutting guide has all the logs right there. :)

P.S your cat is a Tiger + Polar bear. ;P

yeah, I don't feel like testing….

procedure setupBMPDTM;
var
  BurnBitmap: array [1..2] of integer;
begin
  BurnBitmap[1]:= DTMFromString('78DA63BCC3C8C0B00C8891C0C496668687401' +
       'A24FA1F0818EF01595B51D54064612490BE0164CD23A0E6399035' +    //tinderbox
       '87809A5740D60A026ACE03591B08A8390B64AD24A0E60990B59E8' +
       '09AFB84DD0C0004BC1445');
  Wait(1);
    BurnBitmap[2]:= BitmapFromString(31, 24, 'z78DAEDD7BB0DC0300804D095' +
       '6009F61F29459A34B1B9E0C039E10A2A4B7E967F4224397A561BE' +
       '632922113ED6B728D5403B3480ECF1B4F585E605EE46FF98F4ECB' +  //logs
       '27E4FAECF5338238FC144E7017A8CDE355B4BCE52DA734CBE672A' +
       '1FC77EE2ADC41240ACB7A31B793AE972470027E4AA7FF46A4E600' +
       'DAD62A7D');
end;

procedure BurnLogs(Seconds : Integer);
var
  T, L: TPoint;
  begin
   repeat
    if(FindBitmapMaskTolerance(BurnBitmap[2], L.x, L.y, MIX1,MIY1,MIX2,MIY2, 10, 200))then
    begin
      Status('Click log');
      Wait(300 + random(300));
      MMouse(Lx + 3, Ly + 4, 1, 1);
    case random(4) of
     1:  wait(40+random(30));
     2:  wait(40-random(40)+random(40))
     3:  wait(70+random(40)+random(30))
       end;
      if(FindDTM(BurnBitmap[1], T.x, T.y, MIX1,MIY1,MIX2,MIY2))then
      begin
        Wait(100);
        Status('Click Tinderbox');
        Wait(700 + random(300));
        Mouse(T.x - 6, T.y + 2, 1, 1, true);
        Wait(Seconds * 1000);
      end;
    end;
  until(not(FindBitmapMaskTolerance(BurnBitmap[2] L.x, L.y, MIX1,MIY1,MIX2,MIY2, 10, 200)))
  Writeln('No More Logs! yay');
end;

p.s. Don't diss my cat :p

Yea I use to use TPoints in my procedure also until I kept getting this f***ed up error.

I ain't dissin your cat. Teh kitty is extremely cute. :)