SRL Archive - SRL Archives

procedure DropAllOre;
begin
var cx, cy : integer;
  OreDTM := DTMFromString('78DA637CC5CCC070859101195CA83465F80FA' +
     '441A2FF8180F10750CD69543510591809A49F01D53C20A0E63650' +
     'CD05026A9E02D51CC3AF060071070F39');
  repeat
    if(FindDTM(x, y, OreDTM, 562, 209, 740, 455)) then
     begin
       Mouse(x, y, 1, 1, False);
       ChooseOption(cx, cy, 'Drop');
     end;
  until(not(FindDTM(x, y, OreDTM, 562, 209, 740, 455)))
end;

I think the ChooseOption is right, I just forgot. Input plz.

Looks good maybe a bit slow though. Good work.

Had almost the exact same thign running for my power mienr when i first created it. Only problem is that either

1. If you have no waits in there and a good dtm it often clicks the same ore you jsut dropped before its dropped
2. Waits or bad dtm or just plain slow. Will go slow.

Ill post my drop procedure i used.

OK, I made that up really quick. I had waits, but I wasn't on my computer. This is how I have it in mine.

procedure DropAllButPick;
begin
if(FindDTM(Ore, x, y, 560, 208, 742, 456)) then
begin
Mouse(x, y, 1, 1, False);
ChooseOption(ox, oy, 'Drop');
wait(1000);
Mined:=Mined+1
end;
end;

procedure RepeatIt;
begin
repeat
repeat
repeat
PowerMine;
until(InventoryFull);
repeat
DropAllButPick;
until(not(FindDTM(Ore, x, y, 560, 208, 742, 456)));

You do your looping really weird Ejjman1. :p

I made a dropper once. It sucked ass.

procedure LoadDrop;
begin
  Row[1]:= 228
  Row[2]:= 265
  Row[3]:= 301
  Row[4]:= 337
  Row[5]:= 371
  Row[6]:= 410
  Row[7]:= 445
  Col[1]:= 586
  Col[2]:= 632
  Col[3]:= 667
  Col[4]:= 712
end;

//Drops by Column and Row
procedure DropInv(Coli, Rowi : Integer);
begin
  LoadDrop;
  MouseSpeed:= 1;
  Mouse(Col[Coli], Row[Rowi], 1, 1, false);
  Wait(500);
  if(ChooseOption(x, y, 'Drop'))then
  begin
    Writeln('Dropped');
    ClearDebug;
  end;
end;

//Drops All
procedure Drop4ll;
var
  Ks, Kt, Kw, Kx  : Integer;
begin
  LoadDrop;
  for Ks:= 1 to 7 do
  begin
    DropInv(Col[1], Row[Ks]);
  for Kt:= 1 to 7 do
  begin
    DropInv(Col[2], Row[Kt]);
  end;
  for Kw:= 1 to 7 do
  begin
    DropInv(Col[3], Row[Kw]);
  end;
  for Kx:= 1 to 7 do
  begin
    DropInv(Col[4], Row[Kx]);
  end;
end;
end;

I need to mod my coords a bit.

I'll test yours later Ejjman1.