program new; {$Loadlib 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); wait(30000); { SetTargetArray(SmartImageArray, 765,503); getclientdimensions(w,h); writeln(inttostr(w) + ' , ' + inttostr(h)); if findcolortolerance(w,h,clwhite,0,0,764,502,300) then smartmovemouse(w,h); Wait(5000); savescreenshot(scriptPath + 'smart.bmp'); } end.