Where in the loop do i put my proggy?
SCAR Code:
////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
// RANDOMS AND ANTIBAN //
/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
procedure AntiRandoms;
begin
FindTalk;
SRLRandomsReport;
FindNormalRandoms;
if (FindFight = true) 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')
Writeln(' Worked For : ' + ScriptTime2(2)) //Displays how long it worked for
Writeln(' Mined/Dropped ' + IntToStr(Loadz) + ' Loads');
Writeln('[]------------------By RK-----------------[]');
Writeln('[]----------THE NOOBIEST PROGGY!----------[]');
end;
////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
// MINEING AND DROPPING //
/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
function FindOre: Boolean;
begin
if FindColorSpiral(x, y, OreeColor, 0, 0, 515, 336) 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;
function UntilMined(Time: integer): boolean;
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;
procedure drop;
begin
if (invfull) then
begin
if (pickequip) = True then
begin
GameTab(4);
DropTo(1, 28);
Loads := Loads + 1
end;
begin
if (pickequip) = False then
begin
GameTab(4);
DropTo(2, 28);
Loads := Loads + 1
end;
end;
end;
end;
////////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
// MAIN LOOP //
/////////////////////////////////////////////////////////
////////////////////////////////////////////////////////
begin
ClearDebug;
SetupSRL;
SetupSRLMining;
DeclarePlayers;
Activateclient;
wait(1000);
LoginPlayer;
wait(1000);
MakeCompass('N');
HighestAngle;
SetRun(true);
repeat
repeat
gametab(4);
FindOre;
MouseAndClick;
UntilMined(5000);
Drop;
AntiRandoms;
until(Loads = Loadz);
if (Loads = Loadz) then
begin
Loads:=0
Logout;
Nextplayer(true);
end;
gametab(4);
FindOre;
MouseAndClick;
UntilMined(5000);
Drop;
AntiRandoms;
until (false);
end.