SRL Archive - RS3 Outdated / Broken Scripts

Hey everyone. Tickyy and I are working on a cooking script, called CrudCooker. I am making the script itself, while Tickyy improves, adds bits and modifies parts. I am currently up to making the basic blocks (Banking stuff) and I hope this script will attract some attention, like my CrudCatcher did. Anyone is invited to help, so Dr. D Dervish, *wink* ;) *wink* ;).

Currently up to:
Banking stuff.

Working on:
Lighting the fire.

– BP

Ok, good luck. I'm looking forward to reading over it when you guys post it. :)

Here's a function you might want to use

function FindFire(var x, y: integer): Boolean;
var
  P: TPointArray;
  Fire, Tol, j, fx, fy: integer;
  B: TBox;
  a: extended;
begin
  if not LoggedIn then Exit;
  Debug('FindFire');
  FindColorsSpiralTolerance(MSCX, MSCY, P, 3385314, MSX1, MSY1, MSX2, MSY2, 40);
  RemovePointsInBox(P, PointToBox(Point(31, 4), Point(129, 24)));
  if Length(P) < 10 then Exit;
  Fire := BitmapFromString(1, 11, '3B3000F4C63FF8C83FF4C73EE6' +
    'BC39E6BC39BC922CE6BE45BC9E38BC9E3B352A00');
  Tol := 40;
  B := GetTPABounds(P);
  try
    for j := 1 to 3 do
    begin
      FindDeformedBitmapToleranceIn(Fire, fx, fy, B.x1-10, B.y1-10, B.x2+10, B.y2+10, Tol, 2, True, a);
      if a >= 1-j*0.2 then
      begin
        x := fx;
        y := fy+4;
        Result := True;
        Exit;
      end;
      DecEx(Tol, 5);
    end;
  except
    writeln('Exception');
  finally
    FreeBitmap(Fire);
  end;
end;

Usually when there's an exception, there is no fire.

sorry if I'm wrong (I don't know the whole try, except, finally things) but won't that only free the bitmap if it doesn't find the fire?

From: 99_
sorry if I'm wrong (I don't know the whole try, except, finally things) but won't that only free the bitmap if it doesn't find the fire?

No, the way its written it will free it no matter what I believe.

finally 
  FreeBitmap(Fire);
end;

Means that it will always be freed. Unless of course you execute the script.

Thanks Lord Saturn! I'll start working on it again now.

– BP

so even though you call Exit; it still frees it? that's really cool, I didn't know you could do that, I might start doing that for DMT's I use, although what I do works just as well, I just load them all in the beginning and free them all in ScriptTerminate;.

And I can't wait to see this script and you're working on starting the fire? so you have to have logs in your bank to use this? it doesn't use a range?