[SRL #27+] AutoFiremaker

This was made on request, it is very basicm but it works, keep an eye on it, i will update it later today... im trying to get pen or matthew to make a SCAR Mod :S ...

Code:

program New;
{.include SRL/SRL/misc/Smart.scar}
{.include SRL/SRL.scar}
{.include SRL/SRL/reflection/Reflection.scar}

var
  MyPos, MyPos2, tileMS : tPoint;
  Tiles : tPointArray;

const
  Username    = '';          {   Username of the account autoing.              }
  Password    = '';          {   Password of your account.                     }
  Nick        = '';          {   Nick: Nickname, 3 lowercase letters of name   }
  World       = 96;          {   World to auto in                              }
  
procedure PrntMyPos;
begin
  MyPos := GetMyPos;
  writeln('( ' +IntToStr(MyPos.x)+ ', ' +IntToStr(MyPos.y)+ ')');
end;

function didTheFireLight : boolean;
var
  i : integer;
begin
  i := 2;
  repeat
    MouseItem(1, true);
    wait(400);
    PrntMyPos;
    MouseItem(i, true);
    i := i + 1;
    repeat
      wait(500);
      MyPos2 := GetMyPos;
    until(MyPos2.x < MyPos.x)
  until(i > 28)
  result := True;
end;

function Find(spot : string; clickleft : boolean): boolean;
begin
 case spot of
  'bank'            : Tiles:= [Point(3250+random(6), 3420-random(1))];
  'startspot1'      : Tiles:= [Point(3262+random(3), 3429)];
  'startspot2'      : Tiles:= [Point(3262+random(3), 3428)];
  'crossroads'      : Tiles:= [Point(3246, 3430)];
  'bankBooth'       : Tiles:= [Point(3251+random(5), 3419)];
 end;
 if (DistanceFrom(Tiles[0]) > 1) then
  begin
    WalkToTile(Tiles[0], 0, 0);
    FindNormalRandoms;
    FFlag(10);
    Writeln(' # At the: ' +spot+ '.');
    Result := True;
    Exit;
  end;
  TileMS := TileToMS(Tiles[0], 0);
  Mouse(TileMS.x, TileMS.y, 0, 0, ClickLeft);
  Result := True;
end;

procedure BankShit;
begin
  ChooseOption('-quic');
  repeat
    wait(100);
  until(BankScreen);
  wait(100+random(1000));
  FixBank;
  wait(100+random(1000));
  Withdraw(1, 1, 0);
end;

procedure Walk;
begin
  case random(2) of
    0: Find('startspot1', true);
    1: Find('startspot2', true);
  end;
  flag;
  DidTheFireLight;
  Find('crossroads', true);
  Flag;
  Find('bank', true);
  Flag;
  wait(1000+random(1000));
  Find('bankbooth', false);
  BankShit;
end;

procedure declarePlayers;
begin
  NumberOfPlayers(1);
  CurrentPlayer := 0;
  Players[0].Name := Username;
  Players[0].Pass := Password;
  Players[0].Nick := Nick;
  Players[0].Active := True;
end;

procedure Setup;
begin
  SmartSetupEx(WorldNumber, true, true, false);
  wait(5000);
  SetTargetDC(SmartGetDC);
  SetupSRL;
  DeclarePlayers;
  if not(LoggedIn) then
    LoginPlayer;

end;

procedure Determine;
begin
  PrntMyPos;
end;

begin
  Setup;
  repeat
    Walk;
    wait(500);
    //PrntMyPos;
  until(False)
end.

START IN VARROCK EAST BANK WITH TINDERBOX in 1ST INVENTORY SLOT, AND LOGS IN INVENTORY, HAVE THE REST OF LOGS IN THE 1ST TAB, 1ST BANK SLOT.

 

Safe overnight, or beta?

 

Haha thanks Jeth....My firemaker isnt quite finished, and yours pwns mine...Lol anyways....Good Job, i'll test it out....

 

all beta

 

Line 105: [Error] (17684:14): Unknown identifier 'WorldNumber' in script

Sorry i'm not good at setting these up :S

 

sorry
change worldnumber to "world"

 

It works good until you get to one spot by the door and it says "You can't make a fire here"

 

eek, it shoodnt go there
:S

 

thanks fr this ive been waiting for auto firemaker for weeks

 

where the F
i need to post that letters on?
idk how to start a script?

 

...?

copy + paste it onto scar, fill in info, and press run.

 

what kind of logs will it burn, coz ive got way too many willows that could use a good burning

 

any logs u can use
put them in the 1st bank slot.

 

It's actually pretty good, got 47-50 fming with it. Thanks. Woulda posted proggy but none I guess.

 

LOOKS NICE! again if ever you need help with a script or access to a membs account i got your back. just message me and ill try to get back to you.

 

thanks

But I prefer to use only my own accounts, just incase Jagex watches IPs.. about 2 weeks ago, all my accounts had 10 day bans for client hacking

 

Well, I ran into some bugs. It will fire make in the line in front of the door to the building across from the bank, you can't light a fire there so it just sits.

 

eh, I made this quickly.

I will update over the weekend

 

Looks crisp. I wish i had the time to do requests.


Edit: jethr0x, i saw that you want to be a mod. The worst thing you can do is bother the admins, they will think something is up when someone is pushing for mod that bad. + Macroman and Swan are mods of scar scripting as well.

 

why is this in the outdated section