Please tell me why my Rock FInding Precedure isnt working.
Location: 3 rocks (iron) al kahid.
Please also Suggest a better method if any.
SCAR Code:program AlKahidMiner;
{.include SRL/SRL.scar}
{----------------------------------}
Const
OreColor = 2108744;
StartPlayer = 0;
Loads = 10;
{----------------------------------}
procedure ActivePlayers;
begin
HowManyPlayers := 3;
CurrentPlayer := StartPlayer;
Players[0].Name := 'Username';
Players[0].Pass := 'Passwird';
Players[0].Nick := 'Usr';
Players[0].Active := True;
Players[1].Name := 'Username';
Players[1].Pass := 'Password';
Players[1].Nick := 'Nickname';
Players[1].Active := True;
Players[2].Name := 'Username';
Players[2].Pass := 'Password';
Players[2].Nick := 'Nickname';
Players[2].Active := True;
end;
//--------------------+
//-----------------------------------+
//-----------------------------------+
//-----------------------------------+
Function FindOres: Boolean;
begin
MakeCompass('N');
If(FindColorSpiralTolerance(x,y,OreColor,0,0,600,600,5)) then
Begin
Result := True;
wait(1500);
begin
MMouse(x,y,1,1);
If(IsUpText('ine'))then
Wait((1000)+random(500));
Mouse(x,y,1,1,true);
end;
end;
end;
//-----------------------------------+
procedure DropOres;
begin
If(InvFull) then
begin
DropTo(1,27);
end;
end;
//-----------------------------------+
//-----------------------------------+
//-----------------------------------+
{-----------+
|/Main loop/|
+-----------}
begin
SetupSRL;
repeat
FindOres;
DropOres;
until(false)
end.
I am looking for somebody to teach me some basics on Autocolor/Banking Precedures/Anti Randoms and Anti ban.
my msn: alukashovcccp@hotmail.com![]()



Reply With Quote






