SCAR Code:
program Dropper;
{.include srl/srl.scar}
procedure DropOre;
var
OreDTM, x, y : Integer;
begin
OreDTM := DTMFromString('78DA635462606090614001964A920CFC409A1' +
'1CA67D40512A20C6880118904D28A408297801A0120214E408D24' +
'9050C7AF0600CBD301A7');
repeat
If FindDTM(OreDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
begin
Writeln('Found ore DTM!'); // Here.
Mouse(x,y,2,2,False);
wait(random(300));
ChooseOption('Drop');
wait(200 + random(200));
end else
Writeln('Didn''t find ore DTM :('); // And here.
until not FindDTM(OreDTM,x,y,MIX1,MIY1,MIX2,MIY2);
FreeDTM(OreDTM);
end;
begin
SetupSRL;
ActivateClient;
wait(5000);
DropOre;
end.
That's the one with the dtm i got from following your guide, and i'm still working on the bitmap, other things cause distraction, so it should be done pretty soon.
SCAR Code:
program New;
{.include srl/srl.scar}
function DropOres: Integer;
var
Ore, x, y : Integer;
begin
Ore := BitmapFromString(7, 7, 'beNpTkFAVEzCUFQMiPWkRBhjQkBA' +
'CipjIi5srSABJiKC2pDBQEChiqSQJQQwMjEBdEEEbZSkgAgoC2RC9' +
'QDayIMQ0NEGgCegqAajYEeM=');
GameTab(tab_Inv);
if FindBitMapToleranceIn(Ore, x, y, MIX1, MIY1, MIX2, MIY2, 15)then
begin
Writeln('Found iron ore');
wait(200);
Mouse(x, y, 3, 3, False);
wait(500 + random(500));
ChooseOption('Drop');
repeat
until not FindBitmapToleranceIn(Ore, x, y, MIX1, MIY1, MIX2, MIY2, 15);
end;
end;
begin
SetupSRL;
ActivateClient;
wait(5000);
DropOres;
end.
ok, so this is the bitmap one, and it did more this time, when i clicked run, it would go to the rs screen, wait like i told it do, then it would move the mouse over to the right side of my desktop and just slowly move up and down.