SRL Archive - RS3 Outdated / Broken Scripts

   _ \/_
      /\

Super Fire!!!

Here it is:

{                          _\/_
                 Super Fire /\
                 Author : cut em2 it
                 Directions : Edit line 11, drag crosshair over runescape screen, press play
                 Happy Firemaking!!!
}
program SuperFire;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Firemaking.scar}
var HowLoads: integer;
const
  LoadsDo = 5; //How many loads to do
procedure OpenBankDeposit(FirstSlot, EndSlot: integer);
var
  x, y: integer;
begin
  repeat
    FindObjCustom(x, y, ['Use', 'B', 'U'], [3421240, 4937311], 4);
    Mouse(x,y,1,1,false);
    ChooseOption('Use-quickly');
    Wait(1500+random(125));
  until(BankScreen);
  if BankScreen then
  begin
    Withdraw(1, 1, 27);
  end;
  CloseBank;
end;
procedure GetLogs;
var x, y: integer;
begin
  SymbolAccuracy := 0.5;
  FindSymbol(x, y, 'bank');
  Mouse(x, y, 1, 1, true);
  Flag;
  OpenBankDeposit(2, 28);
  MakeCompass('N');
  HighestAngle;
  MouseFlag(643, 113, 2, 2);
  Flag;
end;
procedure BurnThoseLogs;
var
  i: integer;
begin
  for i:=2 to 28 do
  begin
    MouseItem(1, true);
    Wait(3000+random(300));
    MouseItem(i, true);
    LightWait;
  end;
end;
begin
  repeat
    GetLogs;
    BurnThoseLogs;
    HowLoads := HowLoads + 1;
  until(HowLoads >= LoadsDo);
end.

Cut em2 it