loser69
12-08-2011, 01:41 AM
Hi I tried to do some basic scripting with DTMs cause I have difficulty using the findcolor function anyway heres my script it takes control of the mouse and has to be half screened one window with RS open and this, only tried it at the varrok mines.
program new;
{$i srl/srl.scar}
var
iron, X, Y: Integer;
procedure get
;begin
iron := DTMFromString('mLgAAAHicY2KAAFYgZoGyw03UGYpcjBmMoH xGKGZgAAAqUgHb');
If FindDTM(iron, X, Y, MSX1, MSY1, MSX2, MSY2) then
begin
MMouse(X, Y, 2, 2)
wait(1500)
mouse( x, y, 0, 0, true);
wait(1500)
end;
FreeDTM(iron);
end;
procedure drop;
var
iron, x, y: integer;
begin
iron := DTMFromString('mlwAAAHicY2dgYOABYkYgFoNibgYI4AViLi jNBsSCQCwMxJxQeSslKYa0IEuGnHBbII8JjIOc9Bh0pIQZ8AFG PBgKAGnuBDA=');
If FindDTM(iron, X, Y, MIX1, MIY1, MIX2, MIY2) then
MMouse(X, Y, 3, 3);
mouse(x, y, 0, 0, false);
FindObj( x, y, 'rop', 8691882, 1);
wait(300);
ChooseOption('rop');
FreeDTM(iron);
end;
begin
SetupSRL
repeat
get
drop
until(false)
end.
program new;
{$i srl/srl.scar}
var
iron, X, Y: Integer;
procedure get
;begin
iron := DTMFromString('mLgAAAHicY2KAAFYgZoGyw03UGYpcjBmMoH xGKGZgAAAqUgHb');
If FindDTM(iron, X, Y, MSX1, MSY1, MSX2, MSY2) then
begin
MMouse(X, Y, 2, 2)
wait(1500)
mouse( x, y, 0, 0, true);
wait(1500)
end;
FreeDTM(iron);
end;
procedure drop;
var
iron, x, y: integer;
begin
iron := DTMFromString('mlwAAAHicY2dgYOABYkYgFoNibgYI4AViLi jNBsSCQCwMxJxQeSslKYa0IEuGnHBbII8JjIOc9Bh0pIQZ8AFG PBgKAGnuBDA=');
If FindDTM(iron, X, Y, MIX1, MIY1, MIX2, MIY2) then
MMouse(X, Y, 3, 3);
mouse(x, y, 0, 0, false);
FindObj( x, y, 'rop', 8691882, 1);
wait(300);
ChooseOption('rop');
FreeDTM(iron);
end;
begin
SetupSRL
repeat
get
drop
until(false)
end.