Auto Miner Dropping Ores

Ok heres my script i changed how it found ores works a lot better feel free to use. also check out my drop thing it's simple and will not drop first invent slot.
next thing i gotta learn in anti randoms and ban.

SCAR Code:

//////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////
//                  THE NOOBIEST                      //
//                   POWERMINER                      //
//                  BY RKROXPUNK                    //
//                                                 //
////////////////////////////////////////////////////
///////////////////////////////////////////////////
program PowerMiner;
{.include SRL/SRL.scar}
{.include srl\srl\skill\Mining.scar}

////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
//                  LOGIN AND SETUP                     //
/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////

const StartPlayer   = 0;
VersionNumber       = '2';
OreeColor           = 4484245;//put the colour of the ore you want to mine here
WaitTime            = 7000;//how long before it clicks again

Procedure DeclarePlayers;

begin
     HowManyPlayers  :=1;               // Set Number of Players here.
     NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
     CurrentPlayer:=StartPlayer;
     
     Players[0].Name :='';
     Players[0].Pass :='';
     Players[0].Nick :='';
     Players[0].Loc  :='Loc1';
     Players[0].Skill:='Mining';
     Players[0].Active:=True;
     
 writeln(inttostr(HowManyPlayers)+' Players');
end;
////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
//            RANDOMS AND ANTIBAN                       //
/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
//                  MINEING AND DROPPING                //
/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
Function FindOre: Boolean;
begin
if FindColorSpiral(x, y, OreeColor, 0, 0, 515, 336)then
begin
    Result := True;
    Status('Found Ore :D');
  end else
    Status('Did not find Ore :(');
    wait(5+random(5));
end;

Function MouseToOre: Boolean;
begin
  repeat
    if (FindOre) then
  begin
    MMouse(x, y, 0, 0);
    Result := True;
    Wait(20+random(150));
    Exit;
    end;
    until(false)
 end;

procedure ClickRock;
begin
  if (MouseToOre = true) then
  begin
    Mouse(x, y, 0, 0, True)
    Wait(WaitTime+random(100));
  end;
end;

procedure Drop;
begin
if(InvFull)then
DropTo(2,28);
end;
////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
//                    MAIN LOOP                         //
/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
begin
SetupSRL;
SetupSRLMining;
begin
  LoadMiningBitMaps;
  PickUpItems := False;
end;
DeclarePlayers;
LoginPlayer;
repeat
FindOre;
MouseToOre;
ClickRock;
GasColors(x,y);
GasFound(x,y);
Drop;
until(false);
end.

Change ur passsssssssssss

lol thx

lol np i done the exact same thing

hey i can try and fix it and it worked for me after i changed the color, and also i would change FindColorSpiral to FindColorSpiralTolerance, u had a color that wasnt on the screen and so idk it must of been something in the find color that it was looking for it, oh i just remembered, u had it find the coordinates in an area much smaller than the whole rs screen, so thats like the only place it could look for :P i think it will work if u use the one i changed on ur release for the script :)