Pascal Code:
program Alch;
{.include SRL/SRL/Misc/SMART.scar}
{.include SRL/SRL.scar}
const
SmartWorld = 24; // Which World/Server do you want to use?
SmartMembers = True; // Is it a Members World?
SmartSigned = True; // Signed/UnSigned Client?
SmartSuperDetail = True;
var
AlchD, YewD, x, y: integer;
procedure LoadBMPs;
begin
AlchD := BitmapFromString(19, 18, 'beNpjYKAD4OPlZWZmJl69sIh' +
'gXXPR0ZOnSssqSbXL1z1w3qI5ZDjS18P/zPmrZGj0cPY8euIMGRrL' +
'8qsuXL7u6mBHtA5GI22rExevvP309eaLD3Pv/F+3dAOaimAvXyDJz' +
'sDABNHAwMACRIwMOoaa5UmFbYV1i9omH/1/r//BfWkzhK6U+LS3P9' +
'/cPOCwuV/QVoxh2Zrd9466Hlks56/B0NA86+Jut20zJIo9GbTSGAK' +
'vnjOMERbhFQHq0lLVePPpydfzSk/3c2S5M1TkFP1/F/1sJ/P0WkZv' +
'E9f/f5te7GDcMot/YhlLoChD5PL7KtrCMpLSQI0KchqvbzXc2c29v' +
'Jc72pqhIVHr0xUFILs4jDHMWPLvI721k3jaU9g681k85RjknK0sTE' +
'2YmEAeUlbU2bXce14rw4RCtnRPRn8LxrVT2foLWRoTWfXEGTbP5eg' +
'tYJ5exj6ngcVGjiGvOF1bUxviQS4ubn9H595quwQvhvQAtmhv355q' +
'z2gXhswghlg///YyvyhXhsp4hsY8p+KsRFtLS7RQzUtK9XD3DAsKc' +
'ra2jgkM8fTw9vH2jvT393J09fPx9/b0DgkOZWVlYxiKAACx4pWi');
YewD := BitmapFromString(21, 17, 'beNrFkulTUlEYxg/omKiT6+CG' +
'uFaSTTNOJrkQuY3hlmOWWwqXLS6giOMSWDridUPxCldkExAocVwmw' +
'0y/1Ew1OvVf9SpWztSnvvTM+fDOmfM7z/s+5yDEzmRuWgfsC7Ledt' +
'6tomIt3izg03JYsS+HunFRk3NJbiZEdqPMvYyvmxSeFeVb78jx1vj' +
'peyIvJx0hlM1iBm0aC4G5TbjwCS8nJ7+qLFXZE/OAS2+pQi31FY5F' +
'ud0oDeM+i+qdb+Qo+BsHd8+yYnVOYiHEcEDaXZuVlRvDYERHocn+q' +
'4nxSR4S/+Xut6hDvtHLOCgzLXlpspeakZBTwj33sPxZdUFBAT0i9k' +
'Zu5CsVo+Y+d3d9aNuh9a4oA5T6IDAG+MlPfBhv2bIPWOel1IzYPC3' +
'yksp97zDWUZWaloHQlTF5XHNdxrW8fFYGyzQpCto1gB8H9d+PZvPP' +
'ca9ZuTYvoeYk4A79e0iln1Jt2jRdreWcQk5KUhS/NLKvlbE4Fh8fh' +
'w78+oPAi+NN/bZLG8YhGduCdA3cZ8XWuQvcufjcTeLtTVxWZjaiMV' +
'ipEY8fxtJp6Mv+9OEb3ZZjEMDbbPYZbpQ7jDIruM+KbQuyMA5ZkQa' +
'hm1Q01d7JZufCsTx25Dgex+MWf9qb+Lg78bSpnI7osO9aUjgWZOAO' +
'4YfxDRhnTrJsEC5P9cFLtQnuFnE4KYnROkVMclI6ZP5536CRNoZjX' +
'zfh0ADYXcahGdNUHzktgjADq/1tDVwmM7vnUYKAn2CcEJ2ECLVYEM' +
'bB12VSwMcAxH6Oe1dwagYDa+ifIjB4kS2bprmupOweT9lF62jlfzu' +
'cVWEXeMVdjn9VHU4P8B3X0LZTCwjgKwYRFLDcJkXINyKoKW3gocqS' +
'uJBf3y9uCOOQJCA7Tm3QPvjhta6wgHXzOhvugal9ZlXAqg5Y+6GGE' +
'Y42dVhnvY8a+BoyKLF69BfR/ijOZBjttMxgZgLzU+oNs+r0kBiUN6' +
'J/FdZZXcnloP+uHyBnRzc=');
end;
procedure UseBitmaps;
var
a, b: Integer;
begin
repeat
if(FindBitmap(AlchD, x, y)) then
begin
MMouse(x, y, 2, 2);
GetMousePos(a, b);
Wait(100 + Random(100));
Mouse(a, b, 0, 0, True);
end;
if(FindBitmap(YewD, x, y)) then
begin
MMouse(x, y, 2, 2);
GetMousePos(a, b);
Wait(100 + Random(100));
Mouse(a, b, 0, 0, True);
end;
until(False);
end;
procedure ScriptTerminate;
begin
FreeBitmap(AlchD);
FreeBitmap(YewD);
end;
begin
Smart_Signed := SmartSigned;
Smart_SuperDetail := SmartSuperDetail;
Smart_Server := SmartWorld;
Smart_Members := SmartMembers;
SetupSRL;
LoadBMPs;
UseBitmaps;
end.