All Problems fixed thanks tons, ill post back if any more problems occour.
All Problems fixed thanks tons, ill post back if any more problems occour.
You have to set Tries: = 0; and that is all I can tell you... You need more infomation to get more of an informative responce...
~Stupedspam
I don't think you need to set tries to 0. The default is 0.
Try switching places for 'ine' and OreColorMain
But yea, generally it is nice to give at least the error message when you ask for help.
i got it down to this error
[Runtime Error] : Out Of Range in line 210 in script
and i just reaized i forgot to upload the script..sorry!
SCAR Code:program Powerminer;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/mining.scar}
{=====================]
[=====Setup===========]
[=====================}
const
OreColorMain = 16777215;//Color of rock in main screen
OreColorInv = 00000000;//Color of ore IN INV
Loads = 10; //Number of loads to do before switching players
Run = 'N';//Run Direction---SET WITH CARE
MineTime = 4000 ;//Time in milliseconds to mine rock before restarting-1000 ms is 1 second
{=====================]
[=====Setup ends======]
[=====================}
var
Tries: Integer;
LoadsDone: Integer;
{=====================]
[====Player Setup=====]
[=====================}
procedure DeclarePlayers;
begin
HowManyPlayers := 4;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := true;
Players[2].Name := '';
Players[2].Pass := '';
Players[2].Nick := '';
Players[2].Active := true;
Players[3].Name := '';
Players[3].Pass := '';
Players[3].Nick := '';
Players[3].Active := true;
end;
{=====================]
[===Progress Report===]
[=====================}
procedure Report;
begin
ClearDebug;
Writeln('==========Adams Power Miner version 1.0=========');
Writeln('---------------->Progress Report<---------------');
Writeln(' Time Running : ' + ScriptTime2(2));
Writeln(' did ' + IntToStr(Loads) + ' Loads' + ' ');
Writeln('xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx');
end;
{=====================]
[=====Gas Finding=====]
[=======BY: RsN=======
{=====================]
[==Find Fast Randoms==]
[====By: WT-Fawaki====}
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
end;
wait(1);
end;
end;
{=====================]
[====Anti Randoms=====]
[=====Thanks SRL======}
procedure DoAntiRandoms;
begin
if (FindFight) then
begin
RunAwayDirection(Run);
Flag;
wait(20000 + random(5000));
RunBack;
Flag;
end;
FindTalk;
FindNormalRandoms;
FindFastRandoms;
end;
{=====================]
[======Anti Ban=======]
[=====================}
procedure AntiBanMe;
begin
case Random(10) of
2: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
4: HoverSkill('random', False);
6: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
9: BoredHuman;
end;
end;
{=====================]
[======Dropping=======]
[=====================}
Procedure DropOresAdam;
begin
DwarfItem;
repeat
if (findcolortolerance(x,y,OreColorInv,MIX1, MIY1, MIX2, MIY2,2))then
MMouse(x,y,2,2);
wait(20+random(5));
Mouse(x,y,2,2,False);
wait(10+random(5));
clickoption('rop',1);
until not (findcolortolerance(x,y,OreColorInv,MIX1, MIY1, MIX2, MIY2,2));
end;
{=====================]
[=======Mining========]
[=====================}
procedure MineOresAdam;
begin
if (not (LoggedIn)) then
LoginPlayer;
MakeCompass('N');
Highestangle;
//Tries: = 0;
repeat
begin
DoAntiRandoms;
wait(10 + random(10));
if(findobj(x,y,'ine',OreColorMain,10))then
wait(10);
MMouse(x,y,2,2);
wait(50+random(25));
Mouse(x,y,2,2,False);
wait(50+random(25));
clickoption('ine',1);
wait(50+random(20));
DoAntiRandoms;
wait(MineTime+random(100));
DoAntiRandoms;
if not(findobj(x,y,'ine',OreColorMain,10))then
Tries := Tries + 1
if Tries > 3 then
Nextplayer(false);
end;
until (InvFull);
end;
{=====================]
[======Main Loop======]
[=====================}
begin
SetupSRL;
SetupSRLMining;
DisguiseScar('I love Jagex')
repeat
if (not (loggedin)) then
begin
Loginplayer;
Fixchat;
SetRun(true);
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end
MineOresAdam;
DropOresAdam;
LoadsDone := LoadsDone + 1;
Report;
if (LoadsDone >= Loads) then
Nextplayer(true);
LoadsDone := 0;
until (false);
end.
can you explain what you did please?
and now a new problem arises...it mines a full load of ore, then right clicks the ore once inv is full like its going to drop the ore,then just sits there, clickoption always worked for me i dont know why it wouldnt work..
EDIT: I replaced the 1 in clickoption('ine',1) with a 2 and it works great now![]()
You simply had the nickname bitmap in the wrong spot and it kept getting muddled.
Working now?
There are currently 1 users browsing this thread. (0 members and 1 guests)