Hey Another Attempt at a Script!
--------------------------------------------------------------------------
program Miner;
{.include SRL/SRL.Scar}
{.include SRL/SRL/skill/mining.scar}
const
Theorecolor=2043181; // Ore Color! (Mith)
procedure MakePlayer;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name:='User';
Players[0].Pass:='Pass';
Players[0].Nick:='Nick';
end;
procedure login;
begin
if(not (LoggedIn)) then
LoginPlayer;
end;
procedure MineOre;
begin
repeat
FindObj(a, b, 'Mine', Theorecolor, 5);
Mouse(a,b,2,2,true); //
wait(3000+random(1800));
FindPick;
until(Invfull)
end;
procedure DropOres;
begin
GameTab(4);
DropTo(2,28);
FindNormalRandoms;
end;
begin
SetUpSRL;
MakePlayer;
repeat
FindNormalRandoms;
Antiban;
MineOre;
DropOres;
until(false);
end.
--------------------------------------------------------------------------
It Compiles!! But Why Doesnt It Find Colors? The Mouse Just Moves Around And Lags...


Reply With Quote