Leyser
2012-06-02 07:10:21
Leyser Vial Filler (LeyVial) V-1.0.
Basic script at the moment I've tested it and it works for the moment its still running right now.
02/06/2012
This works at Varrock East Bank.
Basic script at the moment I've tested it and it works for the moment its still running right now.
02/06/2012
This works at Varrock East Bank.
program VialFiller;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i srl/srl/core/sps/sps.simba}
// {$i sps/sps.simba} if you get an error put a // above and before the include and delete the // in this and this message.
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //Your UserName
Players[0].Pass := ''; //Your PassWord
Players[0].Nick := ''; //Your NickName
Players[0].Pin := ''; //Your Pin if you dont have a pin
Players[0].Active:=True; //leave pin blank
end;
var
VialDTM, VialDTM2:Integer;
Procedure Antiban;
begin
begin
Wait(300 + RandomRange(250, 300));
Case Random(60) Of
10:
begin
HoverSkill('random', False);
end;
20:
begin
Boredhuman;
end;
30:
begin
RandomRClick;
end;
end;
end;
end;
procedure DeclareDTMs;
begin
WriteLn('Declaring DTMs');
VialDTM := DTMFromString('mggAAAHicY2NgYOgD4ilAPAGIO4G4DYjbgXgOEM8C4mVAvBTKng7EIaERDMbGxkAWEwrmYsAOGHFgCAAAUp0Isw==');
VialDTM2 := DTMFromString('mwQAAAHicjcyxCYAwAAXRH63ihBEynFUKQYQ0gm6SQi0ERZfwKsvEg9eelXTU0o0HOxJWbDhxIRppxIwFEwYEdOjhWs+tympUzvzw9QJZQQ+H');
end;
procedure FreeeDTMs;
begin
WriteLn('Freeing DTMs');
FreeDTM(VialDTM);
FreeDTM(VialDTM2);
end;
procedure TakeOutVials;
var
x, y:Integer;
begin
if OpenBankFast('veb') then
DepositAll;
if FindDTM(VialDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
begin
Mouse(x, y, 5, 5, 0);
ChooseOption('ithdraw-All');
end;
end;
procedure WalkToMiddle;
var
x, y:Integer;
MyPath:TPointArray;
begin
SPS_Areas := ['11_3'];
MyPath := [Point(4634, 1422), Point(4638, 1400), Point(4633, 1388), Point(4623, 1388), Point(4603, 1378), Point(4590, 1374), Point(4583, 1366)];
if SPS_WalkPath(MyPath) then
begin
Wait(575+random(1556));
if FindDTM(VialDTM2, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
Mouse(x, y, 5, 5, 1);
end;
end;
end;
procedure FillIt;
var
c, v:Integer;
begin
if FindObjCustom(c, v, ['ountain'], [1006119, 15968903], 5) then
if IsUpText('ountain') then
wait(450+random(50));
Mouse(c, v, 5, 5, 1);
Wait(20000+random(1300))
end;
procedure WalkBackNBANk;
var
MyPath2:TPointArray;
begin
SPS_Areas := ['11_3'];
MyPath2 := [Point(4580, 1367), Point(4588, 1376), Point(4601, 1388), Point(4612, 1388), Point(4644, 1391), Point(4642, 1397), Point(4640, 1413), Point(4640, 1418)];
if SPS_WalkPath(MyPath2) then
begin
if FindBank('veb') then
Wait(500+random(156));
DepositAll;
end;
end;
begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
repeat
DeclareDTMs;
TakeOutVials;
WalkToMiddle;
FillIt;
WalkBackNBANk;
FreeeDTMs;
until(False);
end.