Ok tks all of you i fixed it and had it running pretty well... except i wanna know how starblaster100 makes his auto wait for ores :P well anyways heres the 1 im working on with randoms... for some reason it says it cant find the procedure in everything
SCAR Code:
{| ___|__ ________ _ _ _ ____ |
| | | || | | | | |
| |__|__ | | | | | | |
| | || | | | | | |
| |__|__||________| |________| |______| |
| | __|__ |
| ___ ___ / | \ ___|___ | / ______ _____ |
| | | / | \ | | | | / | | | | |
| |__|__ | |___|___| | | ++ |/ | | | | |
| | | | | | | | | ++ | \ |++++++ | / |
| | | | | | |___|___| | \ | | | \ |
| +++++ ++++++ | | | \|_______ | | \ |
|__________________________________________________________|
Special thanks to RS_Monkey and omgh4xorz and ALL OF THOSE WHO HELPED OUT}
program SoulHackersPowerMiner;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Mining.scar}
var
z:integer;
Loads:integer;
Ores:integer;
Const
TinOreColor2= 5592415;
procedure Mine;
begin
repeat
if(FindColorTolerance(x,y,TinOreColor2,MSX1, MSY1, MSX2, MSY2, 15))THEN
MMouse(x,y,0,0);
Mouse(x,y,0,0,true);
wait(5000+random(500));
DoAntiRandoms
until(InvFull);
end;
procedure Drop;
begin
DropTo(2,28);
DoAntiRandoms
end;
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight=true) THEN
begin
RunAwayDirection('N')
Wait(10000+random(2000));
RunBack
end;
end;
procedure Proggy;
begin
ClearDebug
Writeln('0000000000000000000000');
Writeln('0000000PROGRESS0000000');
writeln('00 did'+ IntToStr(loads)+'Loads'+' 00');
Writeln('00 Did '+ IntToStr(Ores)+'Ores'+' 00');
Writeln('0000000000000000000000')
Writeln('0000000000000000000000')
begin
SetupSRL;
repeat
Loads:=Loads+1
Mine;
Drop;
until(Loads >=z)
end.
and heres the 1 that works without bugs and Anti-random >_>
SCAR Code:
{| ___|__ ________ _ _ _ ____ |
| | | || | | | | |
| |__|__ | | | | | | |
| | || | | | | | |
| |__|__||________| |________| |______| |
| | __|__ |
| ___ ___ / | \ ___|___ | / ______ _____ |
| | | / | \ | | | | / | | | | |
| |__|__ | |___|___| | | ++ |/ | | | | |
| | | | | | | | | ++ | \ |++++++ | / |
| | | | | | |___|___| | \ | | | \ |
| +++++ ++++++ | | | \|_______ | | \ |
|__________________________________________________________|
Special thanks to RS_Monkey and omgh4xorz and ALL OF THOSE WHO HELPED OUT}
program PowerMiner;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Mining.scar}
var
z:integer;
i:integer;
Const
TinOreColor1=4211015;
TinOreColor2= 5592415;
procedure Mine;
begin
z=10 //number of loads
i:=0;
repeat
if(FindColorTolerance(x,y,TinOreColor2,MSX1, MSY1, MSX2, MSY2, 15))THEN
MMouse(x,y,0,0);
Mouse(x,y,0,0,true);
wait(5000+random(50));
until(InvFull);
end; //this is the line 24
procedure Drop;
begin
DropTo(2,28);
end;
begin
SetupSRL;
repeat
i:=i+1
Mine;
Drop;
until(i >=z);
end.
its not bad but the 1 without anti ban is glitchy i could use a lil help on it
