SCAR Code:
program AutoAlcher;
var
x, y: integer;
numAlchsCasted: integer;
magelongBitmap: integer;
yewlongBitmap: integer;
i: integer;
r: integer;
const
username = '';//username goes here
password = '';//password goes here
ItemToAlch = 'MageLong';//YewLong, MageLong
Procedure SendKeysHuman(text:String);
Var
a1 : Integer;
Begin
a1:= 1;
Repeat
wait(random(220) + 15);
sendkeys(copy(text, a1, 1));
a1:= a1 + 1;
Until a1 > length(text);
End;
Procedure ClickHuman(x, y : Integer; left : Boolean);
Begin
holdmouse(x, y, left);
wait(random(20) + 15);
releasemouse(x, y, left);
End;
procedure loginsequence;
begin;
MoveMouseSmoothEx(383, 184+random(0),20,40,45,25,20);
ClickMouse(383, 184, true);
wait(10);
MoveMouseSmoothEx(378, 278+random(0),20,40,45,25,20);
ClickMouse(378, 278, true);
SendKeysHuman(username)
sendkeysVb('{ENTER}',false);
SendKeysHuman(password);
SendKeysVb('{ENTER}',false);
MoveMouseSmoothEx(381, 380+random(0),20,40,45,25,20);
ClickMouse(381, 380, true)
MoveMouseSmoothEx(380, 348+random(0),20,40,45,25,20);
wait(5000);
ClickMouse(380, 348, true);
end;
procedure logoutsequence;
begin
MoveMouseSmoothEx(752, 12+random(0),20,40,45,25,20);
ClickHuman(752, 12, true)
MoveMouseSmoothEx(640, 376+random(0),20,40,45,25,20);
wait(11000)
ClickHuman(640, 376, true)
end;
Procedure report;
begin
writeln('This is my AutoMager')
writeln('Alchs casted: ' + inttostr(numAlchsCasted))
writeln('Total experience: ' + inttostr(numAlchsCasted * 64))
writeln('End Report')
end;
procedure LoadBmps;
begin
magelongBitmap := BitmapFromString(26, 18, 'beNpN1MlvGlccB/' +
'AHJrHjOnaiZlMVJc2hanqoIvXUQ1opkSIlbdU0VZqm6ZKkdhyvscF' +
'sxhiDAQPeGJZhMbPDDAzMwDBgbDA4gBvb2FGsNEkvvfTQP6Svy6HS' +
'uz3po+/7ve971UCPEmQIsxS3414t5TNH3Maz3QrjyINOAMp5TgWAQ' +
'gm+vPUpaAco7gyFjbmIXkZHW+KcgI7UeEcpaS2w1te7zH4z9muLOQ' +
'oAFzVkaZuc8CQjtlR0btmmhpR5vK8dbsWDb59QXb32EVABX3SW4+b' +
'5kO6Z4CDd97fEOZkyPpU8m5KnWVpu1cO7T0NQq4gLUAt7RviYlfKZ' +
'RHpBYgMQHB/89tQxgMU8PccAaAO8RLhcYwyqy+PG3RIi0cYia8a8v' +
'c8bwRdbod0asr2xfOfGB90KAE02YuRjFi4yzUUsbNRWSPkhdfvm5T' +
'YlaO8AH166AEGK9iZw6woymqGnxcRULj5ZX3W3NpHmuuvgWXCntni' +
'mExA+NVwwIRPQRBYGecxcSLkzjFPkFs+dUaqffN+mAG8dBecvnAJK' +
'EGeXpLyPIS2FnCeXthKhgd9fUtsV95tW+GDLF0eNxaSrwDliy8MVw' +
'ZXGDBgytMrb80kHgeoz7MJhBXgy8qNCAbqPdrx/8V04QFUXQLFphr' +
'NvlP2F3KzIaF/toM2i/aCBVLM+xN7bkH2R+Uc40p+ldbHln/PcZEl' +
'0VItegXWfPg56H9xqA4DEwkAB2nra7g1/B7pAvoKTlCXFml/tkXs1' +
'5M/f+BJrEAgbrAcTVBe5mXhoKBkbljl9ntWti9YUqc9xTiZmOwyAX' +
'vO4ow0gfi84BC5/dQ0WJi6iJOMsFZD6GtKq+nfLyDtHALzNND4FD5' +
'ghtBl8nI+NiOSTQlInJbTN0iIT0WF+A0ssQNBu1sJs4Mjhi598DLq' +
'UXJ6OEZ7NCtnaJDalpZcN/DiA2kwaN/1fy1JjRU5XYPUlflqkpgXa' +
'TkVsRNgJ6zc4+BC0q8Bh1c0fvoEDLFf5BOnZkNE3u6lfioH3TkLNk' +
'iEn05guQ2iglsZGpX+0umyviDaBmEyuGD3W3jg2y9OLnR2gb3RAda' +
'z7+tefwcKwXCjLB543+Wdr2B8vi4WEM8uYMuTfwQRy4j+NVK9xxob' +
'kEImJdEybWjGsCYtM1DRv68PCNoUK3O//6frnV+/e+wJWcbuRWc0G' +
'9+uJuozu1fBcwpChJmAwqAm4RsTUMqlb46YyUfXehp8Ljyej2oDro' +
'RifERhLNuVGg9YjneBx/+27d66cO3som/Y2N4idTfL1fvrNfiqX0A' +
'v0hEBqYJIs1GITMmkos9aDWliM6RhkKDr/kIuOMaERItCPLvXn08t' +
'S2t+uADdvXLpy+fyJHrC1SWzVovX1YKuBwbsTabVIarKkNofroCAT' +
'U2V2di1ulQhTEh2r5+dwpDceHUhTo5WcLYlPJqKT9bXQ6W7QoQSVk' +
'm81v7BVD283oi9apJQwCZQejk6gTAIxlY6ZcoS1xLpkxlbmXamIlv' +
'YPMugAtzLERB5BU6T05cycSE+xmK4MP5CSd6ce2qr6d+rBVjOUjrt' +
'4Zi5JOTjSmSKcPDknUG6RdlVyAcqvW025CWSUW9Fgvj6ZNbKRYYnW' +
'y3Hjasq8npnZyDrqBc922btXC/y7Og8BWPJ2JYDvETaqQwE6laBLB' +
'eCPdO4k8Nr66KBGSlji4VE4PRzpkxidnDCUUlPljKUqzjZk18760n' +
'7Vt18N7P8F5UzB1Q==');
yewlongbitmap := BitmapFromString(27, 18, 'beNotVPlTU1cYvSB' +
'ICMgmihujlqoVOnamLtP+onXGtlNrO63dHEtbRQ2yJyEaxBBCICQC' +
'CUleQrb3krckeS8vy8vyQsgGCQQIgrhUprXTX/qf9NnpzPfDnTv3n' +
'jnfOd/5fM6zZw437AEBt1atEMR8OpY2jElu22ZkjeXgUXdnDQCZUK' +
'i+vPzWT9f5JYBCIYta6jHL5slJ0i7MhOVxWsz6RIXk2EpC/fsa/Gw' +
'Jvvrph4f2Aq2q/+kKaZuVaOR3FqN2FFLGPPYqAHp+aa/fVboQ9PMA' +
'qKsA2nHpRsYv6/0uHZgupg2Y+V6clsQo4Xpmciun31oyb6Rsn3x8+' +
'tJHJ480Ah5HwKWAITFhHcZNw6hesRTx7uOBzpvfc2j7+GWfXzzPHf' +
'xO7fOcD4UG52klYe1OBIeyMflmXrecmMqxur+2mB+/vlwBQDJiR20' +
'yNzxEOYfh2V5iTpIJmbIhR4SYqy0FMnEXB1W1C3x5+XxzHZiS399I' +
'ozQqKyRnKHSARvsKmenXRXQ1bd1ZD/BLQTKK2o2PbZDI65TSuAS3d' +
'DuN9/OsgcEmUJM8hBvreaD/7o06HuBgL509wQfgcC1gyHGHsYvCBh' +
'fn1bnk9ErSXFxCt3JUVSmAZmSYXbE4byQcfZhdQNjuUs4ewtoT942' +
'nw8ZM2Moh9HR821AJYrTjxJE9dWUAt45yHi2noGLebNZ15FP6tSz8' +
'5kWMdj2pLQMLITzm00PTgjD1yGW9HaH6DOpr2chI2CPlFJj3azGLv' +
'GY3eNjXXlMOhkUdHE/16P1aHpiPTDttosWkYTlrySXhNGs/1PC2C8' +
'Zj474QjodBj8TtuEUivyUZUSYqZQgRBYsxiwS3yUKEltPwQe/Pxw9' +
'UcgoMdH5TzwckNhIPawpLtoWovpDF1pcoDq1mFyARg8eh9BNyN9Ll' +
'xzu9SHvQfcdlvuG23v37pZvGhp1mCUvPUpiae9975/rBOlBZAqbGB' +
'bxSECDH/J6xdBza2Y4G3LPHmngNFSU0aqKcKsYz5nP1hzzdPtftMC' +
'lYTStyrMIHD+iU7S6zGJrqmdMKCVh5oA58drHtveMVdpOkuQn4vYq' +
'nq67ljD0Vs/zzppBLeBvKAe00ko7xIKEg4f4g3kvBHQzR5TTczMfH' +
'FyMqllIG8NEAobQbhIhJGqOMh2rB0MD1r660SAeutrUATqtnBSLkf' +
'vJilUkxSH0Z8CGzXvtEABvj0hRA+0m7IIT1riYmF+gRn0PiQ6TcZC' +
'LQAGodpHG5frIngKv38oCo6wpuE1aXgwVGs5FHnheonc1oKmjnshD' +
'EINqpCXvUfmQoTEj9iDDqlvrhQdYjD6EjxNxgnFK5HRKLXgCb+kKE' +
'yo8qucl/5yB40HVpVPrFfj7Istpi2rG9TG1myEYeCKB6H6KOEBoaf' +
'sRgw7RDEsEfp2hN3DORDWndZolR1QFD3WxwFLX0YiaxyyiMeEZZSn' +
'7qCOCovlq3J4Oq7bxraxF7ueyvf6uhjnSoGGySsg0HXTLK+pBxjbz' +
'KEy6dOIAotrJOs+aeXv0rFwrSJUoFpwizeDtn88FCg+qHVEj+x1OE' +
'JUeKKUs+Cv1ZZP5r2Uwj2jChpx0TDKb2O5QRTON3TKzNu3BIxi0KS' +
'NOdCmtRqwi3D0KTgkLCEnA+fpa3cJatZ3Qxr+zlKrK+YMsypp3V0I' +
'W2U42V5Vy4OLu52lPyf7U0VXGXbUfrx6WdflQHaSS6yYGIVx/1GGH' +
'9UJycCeLKIDqSic0UEuaVBSu3gl6vswXWc+PatQutra1Hm8+dPnXu' +
'9IkP3j12pqX5/eOHW481Ne/l76sq2V9d2sgH1aWAC2/tblANwMmDP' +
'A4zgKmKWYSl1UvsHOvTriW9m4uhxL8gAcTB');
end;
procedure UseBitmapMageLong;
begin
if(FindBitmap(magelongBitmap, x, y)) then
begin
MoveMouseSmoothEx(x,y+random(0),20,40,45,25,20);
Wait(1000+random(100));
ClickMouse(x,y,true);
end;
end;
procedure UseBitmapYewLong;
begin
if(FindBitmap(yewlongBitmap, x, y)) then
begin
MoveMouseSmoothEx(x,y+random(0),20,40,45,25,20);
Wait(1000+random(100));
ClickMouse(x,y,true);
end;
end;
procedure HighAlchYewlong;
begin
numAlchsCasted:= 0;
begin
if ItemToAlch = 'YewLong' then
begin
MoveMouseSmoothEx(744, 185 + random(0),20,40,45,25,20);
Wait(1000);
ClickMouse(575, 355, true);
MoveMouseSmoothEx(575, 353 + random(0),20,40,45,25,20);
wait(1000)
ClickMouse(575, 353, true);
UsebitMapYewLong;
numAlchsCasted:= numAlchsCasted + 1;
end;
end;
end;
Procedure HighAlchMageLong;
begin
numAlchsCasted:= 0;
begin
if itemtoAlch= 'MageLong' then
begin
MoveMouseSmoothEx(744, 185 + random(0),20,40,45,25,20);
Wait(1000+random(100));
ClickMouse(575, 355, true);
MoveMouseSmoothEx(575, 353 + random(0),20,40,45,25,20);
ClickMouse(575, 353, true);
UseBitMapYewLong;
numAlchsCasted:= numAlchsCasted + 1;
end;
end;
end;
procedure HighAlchDelay;//delays 3 seconds for high alch animation
begin
if itemtoalch = 'Yewlong' then
begin
HighAlchYewlong;
wait(3000);
end else
begin
highalchMageLong;
wait(3000);
end;
end;
procedure HighAlchAuto;
begin
i:= 0;
repeat
i:= i + 1;
HighAlchDelay
until(i >= 195);
end;
Procedure HighAlchSequence;
begin
LoadBmps
LoginSequence;
wait(5000)
HighAlchAuto;
LogoutSequence;
Report;
wait(5000)
end;
begin
r:= 0;
repeat
HighAlchSequence;
until(false)
end.