Well I messed around with it and just deleted the Mining Include.
Also the thanks: Integer was messing it up.
Just tested this now and I ran it, Then it Mined 1 ore and lagged out.
Last look at this script and all I can say is it's a right mess.
SCAR Code:
// SETUP!
// Log in.
// Have a pickaxe equiped.
// Pick ore color. [27th line]
// Write how many loads you want. [26th line]
// Set RS window.
// Hit Run Script!
//
//
program StreXPowerIronMiner;
{.include SRL/SRL.scar}
var Clicks: Integer;
i: Integer;
x,y: Integer;
Loads: Integer;
const
c = 20; // How many loads you want.
Color = 8555; // color of the ore.
function FindFastRandoms: Boolean; // By WT-Fakawi.
var
i: Integer;
begin
for I := 1 to 11 do
begin
case I of
1: if FindDead then
begin
Result := True;
wait(200);
end;
2: if FindMod then
Result := True;
3: if FindMime then
begin
Result := True;
wait(200);
end;
4: if FindMaze then
begin
Result := True;
wait(200);
end;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
writeln('No GameTab');
wait(200);
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
writeln('InBlack');
wait(200);
end;
end;
9 : if RC then
Result := True;
10 : if clicktocontinue then
result := true;
11 : if FindFight then
begin
Result := True;
RunTo('N', True);
Wait(15000 + random(5000));
Runback;
end;
12: if FindTalk then
Result := True;
end;
Wait(1);
end;
end;
procedure Proggy;
begin
ClearDebug;
Writeln(' StreX Auto Miner 0.01 ^^');
Writeln(' Progress Report: ');
Writeln(' Have done ' + IntToStr(Loads) + ' Loads' + ' ');
Writeln('---------------------------------------------');
Writeln(' Made ' + IntToStr(Clicks) + ' Clicks' + ' ');
Writeln(' Please post proggy in my thread. Thank you.');
end;
procedure mining;
begin
ClearDebug;
Findfastrandoms;
repeat
if(FindColor(x,y,Color,168,114,414, 316)) Then
begin
Mouse(x,y,5,5,true);
wait(5000+random(250));
Clicks:=Clicks+1;
end;
until(InvFull);
end;
procedure drop;
Begin
DropTo(2,28);
Findfastrandoms;
Loads:=Loads+1;
end;
begin
SetupSRL;
i:= 0;
repeat
i:= i + 1;
mining;
drop;
Proggy;
until(i >= c);
end.