SRL Archive - First Scripts

this is my first attempt at a script it cuts the yew at edgeville until inv is full. i wasn't sure how to add banking so u have to use bank after inv is full:D thanks if someone can show mu how to add things that they know of any help will be appreciated as i am just starting out:D

this will teleport you to edgeville

procedure ToEdge;
var
X, Y: integer;

begin;
if GetCurrentTab = (tab_Magic) then
begin
WriteLn('Current tab is the magic tab, correct!')
end else
begin
FTab(tab_Magic);
WriteLn('Changed tab to the magic tab')
end;
MouseBox(562, 217, 585, 240, 1); //HOME TELEPORT
Wait(1000 + Random(500));
MouseBox(272, 136, 311, 175, 1); //EDGEVILLE LODESTONE
Wait(18500 + Random(500));
begin
WriteLn('Got To Edgeville')
end;
end;

this will walk to the bank

procedure ToBank;
begin
MouseBox(686, 91, 699, 107, 1); //edge step 1
Wait(8000 + Random(500));
MouseBox(677, 105, 692, 121, 1); //edge step 2
Wait(8000 + Random(500));
end;

this will find the banker and deposit all .

Procedure Banking;
begin
wait(7000);
ToBank;
wait(27000);
ToEdge;
ToBank;
Repeat FindBanker;
wait(700 + Random(33));
until BankScreen;
wait(2000 + Random(47));
If Bankscreen Then DepositAll;
Wait(1000);
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;

If you don't know how to include that in your script or how to make it walk back, PM me and i should be able to help.

erhm is there possible to make another place please?