
Originally Posted by
AFools
Hey mate, i don't even know if the SRL library is still maintained and working? In any case.
Flights aerolib include is the most current, I would suggest making a DTM - which there are many guide on this forum as to this..
or alternative use a colour function, but the previous suggestion would be more ideal.
https://github.com/J-Flight/AeroLib/...gine/DTM.simba
Also if you take a look at other people scripts (towards the bottom) you find -
Code:
Program Sample;
{$DEFINE SMART}
{$i AeroLib/AeroLib.Simba}
Var
DTM_ShopItem := DTMFromString('DTMLabelHere,ijisjijsijsisjsijsisjisjsisjsijs=');
Procedure rightclickitem
begin
if findDTM(DTM_ShopItem, P.X, P.Y, MSX1, MSCY, MSX2, MSY2) then
begin
missMouse(P, 5, 5);
if waitUpTextMulti('PlaceUptextHere', 300) then //300 is a wait time
end;
end
Procedure MainLoop;
begin
rightclickitem;
end;
begin
InitAL;
//LoginPlayer(False);
repeat
Mainloop
until(false);
end;
***Don't quote me on this.. I haven't used Aerolib in sometime, i am a little rusty. But this should nudge you in the right direction?
Alright, so I've been toying with srl-osr include and I've worked my script around to this:
Code:
Program AtaTinMiner;
{$i srl-osr/srl.simba}
Procedure MineTin;
var
X,Y:Integer;
begin
if findColorTolerance(X,Y,2503250,5,4,764,520,1) then
begin
moveMouse(X,Y); //moves the mouse to the coordinates of the found point
wait(100); //waits 1/10 of a second
clickMouse(X,Y,1); //clicks the left-side of the mouse
end;
end;
Procedure BankTin;
var
Bank,X,Y:Integer;
begin
Bank := DTMFromString('mbQAAAHicY2VgYHgCxDeB+BYQvwDil0CcC8SZQFwCxEVAnA7EIfacDJHOnGA6yJaTIcyBkwEdMOLAYAAAALwJqw==');
if InvFull then
begin FindDTM(Bank,X,Y,5,4,764,520)
begin
MineTin(); //you have to do this
BankTin();
//this is what will happen when you run the script
end.// <-- the one with the period
Begin
MouseSpeed := 15;
end.
However, I get this as my error:
Code:
Error: Expression expected at line 30
Compiling failed.
What does it mean by "expression"? And how could I fix this?