ok thanks with the mining procedure is there another way to find the rock other than findobjcustom?
*EDIT*
ok heres the script with Nava2's drop procedure and NaumanAkhlaQ's changes havnt fixed mining procedure yet still working on it
SCAR Code:
program MyFirstPowerMiner;
{.include SRL/SRL.scar}
//////////////////////////////////////////////////////////////////////////////
// this is my first powerminer thanks Torrent of Flame for the great [TUT]//
// fill out lines 10,11,17,19,21 to 24 //
// //
// thanks to NaumanAkhlaQ for all the help fixing this script //
// and to Nava2 for the droprocks procedure and help with the script //
//////////////////////////////////////////////////////////////////////////////
const
RockColour1=5475809;//use dibber to get colour
RockColour2=7381226;//use dibber to get colour
var
x, y, Tries: integer;
f,l: integer;
procedure DeclarePlayers;
begin
HowManyPlayers :=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0 ;
Players[0].name := '';//RS username
Players[0].Pass := '';//RS password
Players[0].Nick := '';//4 letters from user name with no spaces
Players[0].Active := True;//do you want to use this user
end;
procedure AntiRandoms;
begin
If(FindFight)then
RunAway('N', True,1,15000);
FindNormalRandoms;
FindLamp('Mining');
end;
procedure AntiBan;
begin
if not LoggedIn then exit;
case random(10) of
1: RandomRClick;
2: HoverSkill('Mining', False);
3: RandomMovement;
4: BoredHuman;
5: AlmostLogout;
6: DoEmote(4 +Random(9))
end;
end;
procedure RockMining; // trouble with this might need to re-write
begin
if not LoggedIn then
Exit;
Repeat
if (not (FindObjCustom(x, y, ['Mi', 'ne'], [RockColour1, RockColour2], 7))) then
Wait(100+random(100));
Tries := Tries + 1;
Until(Tries >= 5)
if(Tries >= 5)then
begin
Logout;
Exit;
end;
if FindObjCustom(x, y, ['Min', 'ine'], [RockColour1, RockColour2], 7) then
repeat
case (Random(5)) of
0: begin
Mouse(x, y, 4, 4,false);
ChooseOption('ine');
end;
1, 2, 3, 4: Mouse(x, y, 4, 4, True);
AntiRandoms:;
end;
until (InvFull)
end;
{*******************************************************************************
procedure DropItems(f,l: integer);
By: Nava2
Description: Drops items in slots f-l.
*******************************************************************************}
procedure DropItems(f, l: integer);
var i, TMSpeed: integer;
begin
if not LoggedIn then
begin
ReasonEnded := 'Not Logged In';
PlayerReport;
Exit;
end;
if not InvFull then exit;
TMSpeed := MouseSpeed;
MouseSpeed := 20 + random(5);
for i:= f to l do
DropItem(i);
MouseSpeed := TMSpeed;
end;
begin
SetupSRL;
repeat
RockMining;
DropRocks;
AntiBan;
until (false)
end.