65 lines
1.1 KiB
Plaintext
65 lines
1.1 KiB
Plaintext
program new;
|
|
{$LoadDLL libsmart}
|
|
function IsKeyDown(C:Char): Boolean;
|
|
begin
|
|
Result := SmartIsKeyDown(ord(c));
|
|
end;
|
|
|
|
procedure MoveMouse(x, y: Integer);
|
|
begin
|
|
SmartMoveMouse(x, y);
|
|
end;
|
|
|
|
procedure HoldMouse(x, y: Integer; left: Boolean);
|
|
begin
|
|
SmartHoldMouse(x, y, left);
|
|
end;
|
|
|
|
procedure ReleaseMouse(x, y: Integer; left: Boolean);
|
|
begin
|
|
SmartReleaseMouse(x, y, left);
|
|
end;
|
|
|
|
procedure KeyUp(key: byte);
|
|
begin
|
|
If Key = 13 Then
|
|
Key := 10;
|
|
SmartReleaseKey(key);
|
|
end;
|
|
|
|
procedure KeyDown(key: byte);
|
|
begin
|
|
If Key = 13 Then
|
|
Key := 10;
|
|
SmartHoldKey(key);
|
|
end;
|
|
|
|
procedure SendKeys(S: String);
|
|
begin
|
|
SmartSendKeys(S);
|
|
end;
|
|
|
|
procedure GetMousePos(var x, y: Integer);
|
|
begin
|
|
SmartGetMousePos(x, y);
|
|
end;
|
|
|
|
function GetColor(x, y: Integer): Integer;
|
|
begin
|
|
result:= SmartGetColor(x, y);
|
|
end;
|
|
|
|
|
|
var
|
|
w,h:integer;
|
|
begin
|
|
SmartSetup('http://world19.runescape.com/', 'plugin.js?param=o0,a1,m0', 765, 503);
|
|
SetTargetArray(SmartImageArray(), 765,503);
|
|
getclientdimensions(w,h);
|
|
writeln(inttostr(w) + ' , ' + inttostr(h));
|
|
if findcolortolerance(w,h,00000,0,0,764,502,300) then
|
|
smartmovemouse(w,h);
|
|
savescreenshot('/tmp/smart.bmp');
|
|
//Wait(5000);
|
|
end.
|