SRL Archive - First Scripts

Have logs in the first bank spot.
Start in Edgeville Bank at the north banker.
Post bugs please.

program EdgeBonfire;
{$i srl/srl/misc/smart.simba}
{$i srl/srl.simba}


Var
x, y :Integer;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; // This is the player to start with
  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Nick := ''; // 3-4 lowercase letters from username;
  Players[0].Active := True; // Set to true if you want to use Player 0
  Players[0].BoxRewards := ['ostume'];
end;

function FindBanker(): Boolean;
begin
if(StrInArr('Bank', ChatBoxTextArray(clMessage)))
then
Wait(RandomRange(200, 700));
FindObjCustom(x, y, ['Banker'], [3152673], 3);
Mouse(x, y, 5, 5, false);
ChooseOption('Bank Banker');
end;

function AddLogs(): Boolean;
begin
Wait(RandomRange(2200, 2700));
FindObjCustom(x, y, ['Walk'], [2985208, 3117308], 3);
Mouse(x, y, 5, 5, false);
ChooseOption('Add');
end;

procedure EndBank;
begin
MouseBox(637, 76, 647, 91, 1);
Wait(1808 + Random(127));
begin
WriteLn('Banked!')
end;
end;

Procedure Light;
begin
  InvMouse(RandomRange(1,1),3);
ClickMouse2(False);
WaitOption('Light', 1000);
Wait(2808 + Random(123));
end;


Function GetLogs : boolean;
begin
DepositAll;
Withdraw(0, 0, 28);
wait(777 + Random(77));
end;

begin
  Smart_Server := 5;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;

  ClearDebug;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  MakeCompass('N');
  SetAngle(SRL_ANGLE_HIGH);
  wait(500);
  repeat
  FindBanker;
  wait (2000);
  GetLogs;
  EndBank;
  Light;
  AddLogs;
  FindNormalRandoms;
 Wait(RandomRange(90000, 107000));
  until not (LoggedIn);
  end.    

No antirandoms. Had to solve some of them. Other than that it's working quite well for me. Don't know if this happens randomly, but the bot actually starts adding logs to the fire someone else is adding logs to.

Get a proggy on it too, or just some text to run in simba informing how much xp you've gained etc. ;)

From: MagicKids
No antirandoms. Had to solve some of them. Other than that it's working quite well for me. Don't know if this happens randomly, but the bot actually starts adding logs to the fire someone else is adding logs to.

Get a proggy on it too, or just some text to run in simba informing how much xp you've gained etc. ;)

I've tried to add a proggy but have been unsucessfull. In the few hours that it took me to get 60 Firemaking yesterday, it was averaging 110k-120k xp an hour with maples.
Any Advice on how to make a proggy?
I'll gladly add it in.


E: And the script looks for any fires that are lit to add logs too. However it attempts to light a new fire every inventory, but if you are standing on a fire, it will just use it.