SCAR Code:
procedure FindGasses;
begin
if FindGas(x,y)then
begin
RunAwayDirection(RunDirec);
Wait(10000 + random(2000));
RunBack;
end;
end;
////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
// PROGGY! //
/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
procedure Report;
begin
Writeln('[]----------THE NOOBIEST PROGGY!----------[]');
Writeln('[]------------------By RK-----------------[]');
writeln('RRRRRRRRRRRRRRRRR KKKKKKKKK KKKKKKK')
wait(500)
writeln('R::::::::::::::::R K:::::::K K:::::K')
wait(500)
writeln('R::::::RRRRRR:::::R K:::::::K K:::::K')
wait(500)
writeln('RR:::::R R:::::RK:::::::K K::::::K')
wait(500)
writeln(' R::::R R:::::RKK::::::K K:::::KKK ')
wait(500)
writeln(' R::::R R:::::R K:::::K K:::::K')
wait(500)
writeln(' R::::RRRRRR:::::R K::::::K:::::K')
wait(500)
writeln(' R:::::::::::::RR K:::::::::::K')
wait(500)
writeln(' R::::RRRRRR:::::R K:::::::::::K')
wait(500)
writeln(' R::::R R:::::R K::::::K:::::K')
wait(500)
writeln(' R::::R R:::::R K:::::K K:::::K')
wait(500)
writeln(' R::::R R:::::RKK::::::K K:::::KKK')
wait(500)
writeln('RR:::::R R:::::RK:::::::K K::::::K')
wait(500)
writeln('R::::::R R:::::RK:::::::K K:::::K')
wait(500)
writeln('R::::::R R:::::RK:::::::K K:::::K')
wait(500)
writeln('RRRRRRRR RRRRRRRKKKKKKKKK KKKKKKK')Loads := Loadz * 28;
WriteLn(' Ores Mined/Dropped : '+IntToStr(Loadz*28));
Writeln(' Worked For : ' + ScriptTime2(2)) //Displays how long it worked for
Writeln(' Mined ' + IntToStr(Loadz) + ' Loads');
Writeln('[]------------------By RK-----------------[]');
Writeln('[]----------THE NOOBIEST PROGGY!----------[]');
end;
////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
// MINEING AND DROPPING //
/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
function FindOre: Boolean;
begin
if FindObj( x, y, 'Mine' , OreeColor, 5 ) then
begin
Result := True;
Status('Found Ore =D');
end else
Status('Did not find Ore =(');
wait(5 + random(5));
end;
function MouseAndClick: Boolean;
begin
repeat
if (FindOre) then
begin
MMouse(x, y, 0, 0);
Result := True;
Wait(20 + random(150));
Mouse(x, y, 0, 0, true);
OreMined := OreMined + 1
wait(3000);
Exit;
end;
until (false)
end;
procedure UntilMined(Time: integer);
var timer: integer;
begin
status('waiting for pick swing')
if FindText(x, y, 'You swing your', SmallChars, 20, 415, 152, 431) then
begin
marktime(Timer);
status('waiting for ore')
repeat
wait(1000 + random(1000))
until FindText(x, y, 'anage', SmallChars, 20, 415, 152, 431) or
(timefrommark(Timer) > Time);
writeln('Finished mining')
end;
end;
function CoordsToInvSpot(gx,gy:integer):integer;
var col,row:integer;
begin
if ((gx>569) and(gx<600)) then col:=1;
if ((gx>611) and(gx<642)) then col:=2;
if ((gx>653) and(gx<684)) then col:=3;
if ((gx>695) and(gx<723)) then col:=4;
if ((gy>213) and(gy<244)) then row:=1;
if ((gy>249) and(gy<280)) then row:=2;
if ((gy>285) and(gy<316)) then row:=3;
if ((gy>322) and(gy<352)) then row:=4;
if ((gy>357) and(gy<387)) then row:=5;
if ((gy>393) and(gy<424)) then row:=6;
if ((gy>429) and(gy<459)) then row:=7;
result:=((row-1)*4)+col;
end;
procedure drop;
begin
if (invfull) then
begin
GameTab(4);
OreDTM:= DTMFromString('78DA634C636060706740038C48249006A9F12' +
'3A0261F487813A12688809A1C201141847BA209A84902123104D4' +
'C4028944026AA2893007E4DE28026A828930071436A104D484128' +
'E0B0047CA0967');
repeat
if FindDTM(OreDTM,x,y,MIx1,MIY1,MIx2,MIY2) then
DropItem(coordstoinvspot(x,y));
wait(200+random(200));
until not(FindDTM(OreDTM,x,y,MIx1,MIY1,MIx2,MIY2));
freedtm(OreDTM);
Loads := Loads + 1;
end;
end;
////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
// MAIN LOOP //
/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
begin
ClearDebug;
SetupSRL;
SetupSRLMining;
DeclarePlayers;
Activateclient;
wait(1000);
LoginPlayer;
wait(1000);
MakeCompass('N');
HighestAngle;
SetRun(true);
FindPickHeadColor;
repeat
repeat
Gametab(4);
FindOre;
MouseAndClick;
UntilMined(5000);
CoordsToInvSpot(x,y);
Drop;
FindPick;
FindGasses;
AntiRandoms;
OtherRandoms;
until(Loads = Loadz);
if (Loads = Loadz) then
begin
Report;
Logout;
Nextplayer(true);
Loads:=0
end;
MakeCompass('N');
HighestAngle;
SetRun(true);
FindPickHeadColor;
Gametab(4);
FindOre;
MouseAndClick;
UntilMined(5000);
CoordsToInvSpot(x,y);
Drop;
FindPick;
FindGasses;
AntiRandoms;
OtherRandoms;
until (false);
end.