Please use [SCAR] tags when posting code.
SCAR Code:
var
A, X, Y: Integer;
procedure LoadBmps;
begin
A := BitmapFromString(344, 179, 'beNrt3b2LpUUWx3H/gOnEP8Nkw' +
'cAJNhNcOjGdxkCDGzdGw9KpoYtgaCSYbNKIoHCFCxN31AgGMq yJ2M' +
'OCJma70+ME7qk6VafOOc/z3JkFn2d8+X54GHp6+nY3DPW79XKq6qW' +
'XAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAv3OXujjxXH 7z2/' +
'Zfv/Pyv936Dj/xi8uvp7ykP/2XAGjnw9OH9p1+9++Rq9+TBvfJ88W' +
'b74Gonn5fHmqT+tXx9f8on9eObi/GBPD+8P//ovx5/4kv0R8if5AC' +
'wEnmrlVYWmr9LAGv4mgMlK/w/3Vy0fOiZUD7W9vvTJ+2ZDQGfGAvN' +
'P7/w4X3tFfBfBvzqvvv8rdK6JQQ0B2pLn82B1mewf9VP1pZuvYXH+ ' +
'5P/fH3y33+/LH/q8/ibvzy5Pi1fr+HQG/V4juRADAr5VckBYA3lXV' +
'5DIOZAjoL6pJGCfL02fP88PnfPh3fKs++B8O3bkgmtz2Adg+f OAR0' +
'a8F8GrJIDbjgwZgnc6KB90v1VGrW+6UsbLy3dGn76qw+E/Yn1FuTl' +
'rYeQGjs5ALygHPAd/hECLgrSWOD20d2SALPt3foA9vTPj67Ch3c0D' +
'aR7cGxOgBwAts2BEQXTjkFNAPuy2x/P5N08hED6eNolsKFB+jL5Pj' +
'JYeHDvuVYW6iwEOQCsngMWAraA+MWbGgK3n77Shv/7+MQQmOkn6Cf' +
'3k4jYu3zYn4yFBp8DMQ3IAWDF+YHpcEBD4PLsyaF0DFprXWrg 7q8p' +
'KNpnlmYM9PP9hWXO0K8z2nQBOQBskAO+7dvzzzc0B2a69LH92 tu6L' +
'gr45/bR3TCd2JcPxhMzpPRMLAoYFwAvKgek+esjHx/KzMB4Q4/zft' +
'Z4xxJAb63+kU/a4kLoMEy+Z46CyToCOQBs2h+oCSCfyV19y4EeAlb' +
'0a6VEqfAgFBneXIy1BtevmBkg+BxwBcbkALBWDlgRkX4gwwGb E9jP' +
'jQj6KKDUBfXSgvT4WkQtFtI0uP3xbGSL72D0ZBjxYlFADgBb9 gc0C' +
'g47XR3I83s9GXQeoOxK8AXJseRg9BDqJqYWCL1Fy8vDMMEvJe j0o3' +
'x/+UorPCYHgC1z4FDe38t4379T20pfnwAsr5Jug59X7IGg+4/kO+h' +
'TWrENFlzHQPoSMkbQYUKuS6xR0CqQ3QZGcgBYPQesh3996mfy xyi+' +
'5kBbZ5QQsOlEG1A8uKfVhpoA8ir5UwYCreeQBgu1aUsahOkCl zk2+' +
'WBRQA4AW/QHalMd5YKx7GdMCNiygg+Bw06+VUuA/agltv7AdOqg/G' +
'jNgf0kCmqXoB0+QP0AsEEO2AC/Vg3ZJIBvoWNOwJYX/eyivPDbt60' +
'b4PcU+P5AToM6Y6BzBSEK+mvDuIAcANbOgb5MkIfqriwwTAzG Rxp1' +
'qxeKRYMtB6b7mHwU3FyMeqSYA/LacnZBnzAkB4AVc0A7+ZdnbZkgr' +
'hHIeF+PDijNOa0OxByYFg+3+YFaipBf5VYWdHQw0wPpMxI2wU gOAG' +
'vlwEevl+ewC6WDbo1gjPHt+DL7WJ+rnQ4KWoz0l2sOtF6EDwG bW7D' +
'NjL1XkALB1xKQA8C6OSCDglo9OLtWuLgXyb2565bktuDY6wFa Dhwm' +
'ownLATvepObA7CxBO6aAHADWHhccxnJhqCDS/kDq2Pt1Rmval2e6X' +
'uDXGp6RAz0KLAfGLIHNUegv0E9BJAeALXLAxuZumWD2nKKRA3 1rUp' +
'slcDsKF3Mglh7Jt5Jfoy0cpAXEngNanUgOAGvlQJ3oC/uL3V7CUTO' +
'wlAM9CkYO9Pf0MD9wJAf6sGJ+30GvMSYHgBVzoNYBTo8aLit3 j+6W' +
'HPCT/MtDA58D2qKfvz9g1chh4dJ2IEoO1OlEcgDYNAf6omGbHJAGe' +
'32qB4+XP+1xOTDmB5bHBeWv/uV1l4EVG9t2A7/ZuS0ZkAPAyuOCkA' +
'NLk4TSbKUta+P99BV5Wiw8MwdseqFmiL22/FP9hlZpPE4ncKMDcgD' +
'YbH5gFAJNc0Abcm3C8sXyBfpBadfPkQMjSfTrr09bFOgLew4s TRXK' +
'NyEHgNVzoE7xhf6An6u3HIjv5m1QIJ/se45GDvRxfc4BN6zw36dtT' +
'O7jgrR0SH8A2DQH4jnDOk8Yigf85EB/c7ccCOsFs/2BODPgQ0CXDm' +
'dOLes5oF9ADgCrjgvSumE4fMzKiae1QO5c06X6gZAkfsHR//Vqp3O' +
'GeemwlxaTA8C6OVDXC/ItRXYukB1CmA40tprAuXFBzoHpmqOrK9b6' +
'gbDbKK4b2i9JDgBr5UB9qw3lxPGowLa/IBUQTioBwjyhqyOaKUuOR' +
'USaA+Mggn1YN9Rr08kBYNUcsLn6cBxZPIYo7Df0ORAPJXvG/EDqVM' +
'QTDNIkYRukkAPAhv2BdgjJ+cns0CDkgO5TTl2C/ysH/Fajvl0xLBr' +
'uw4Gl5ACwwfyAruCH7UVu1UD3/LYckPZrORA7BjkH+n7D+RxIdcUL' +
'V5zoDUf6o8kBYMUc6KP7MTZ3gwJbNWgnmupbuUaBpUGaH/A58Ojuz' +
'BUJkxGBXoY4csDdo2rnIJEDwIo50Ff9pJG2xjgZGoyTh6erBv 3lT3' +
'94fxQl9tOEyhUGP30S7lX3OVB7AuEYonixUXnhYWfrEeQAsGo OtLN' +
'DH96f2WiQFg7idmM9vsBfWzCKEusUgd5mMpMDfb3Sn0Lmn7Zk 2X8K' +
'OQCsOy6wI8I0B/wNpO5OwzZhONe3D1cgnYc9AjkH/AVqqXBo76450' +
'5JmuzCFHABWzYF4pEBrjAsLB61LMKkkLGP81Jz341b0nAO9kH hmY5' +
'Hb2tCmJckBYMsc0BtJrna5pmg/thvoySTpnbqkR53oW3pCUaKVL+q' +
'znzmLTJcL28yAPh+9Tg4AG/UH9M3d33fszhkb9xxpp/3QLzrs0wvh' +
'EkO7vuSw0+tTbeghL9frz2YPIhvf33oddW2CHAA2y4FW1WMLi Om0w' +
'LQFSe889ZuPUq2grzysm4nydefuFLJxd5KfhSAHgA1yIF1R1M fvac' +
'tPSoO2K/nmolw2dKTq+BAuNg0nEMZUadmi1YNxREAOAFvkwPS2stq' +
'u82Zkfwe6a7+lk293n8UBgu4m1uafbi4L549p6eDD++0wQxcC t/94' +
'VR5yANgiB9LVY33I3xqvO7x0PPE9XasHdfZPpwd1OcCaf77Pd HIuc' +
'b5UvecA/QFguxxIw/x6A/KxAcL5Yvf+SIlgXiCw2QadUZyebNALmM' +
'kBYPUcSKXCunfg8ky792Fufx+OLTrewNNn/NkCIyhs9cFCYO7YE3I' +
'AWDcH/NYh//Q1wdJOr0/Din/vEqSbR2a6/ef5yEG9GWGUImhPwI9N' +
'0uWJ5ACwQQ646bjcMehv0G3e7/o0DBPO4+xBqgxMB52ltQbtA0wvS' +
'0qXpvUoIAeAtfsDJQT+/tfRB5iLAmukWgg0Tg9bbu/TusS2uOD7AE' +
'shYD+XHADW9N3nb7U9fdPhwGxdUK09tr6BDhbC/MD5zGWpM+UBvvp' +
'oenmi/9G9qkF+VXIAWMPVB6+VhtlzoI0O0mTddCmhzyLamoIPBN1r' +
'bDWHodLYSpH9jzj+U/qWRvlVyQFgDdKySvWOlgdLu5OhgY4OnpkDv' +
'vNw2PlnNPmrXZgBSB2M2UOKJmWE+n3kl5RflRwAVsoBeeSt9v sv35' +
'EB+G/wkV9MewLkALBqDvxenl8+e5X/MuDPngMf/43/MgAAAAAAAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAA' +
'AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgD+a/wHec2lX');
end;
procedure UseBitmap;
begin
if (FindBitmap(a, x, y)) then
begin
MoveMouse(x, y);
Wait(1000 + random(100));
ClickMouse(x, y, True);
end;
end;
procedure FreeBmps;
begin
FreeBitmap(a);
end;
begin
LoadBmps;
UseBmps;
FreeBmps;
end.
I simply used MoveMouse, as Simba doesn't have the *SmoothEx procedures.
For the ultimae mouse procedures, include SRL and use the (M)Mouse procedures.