SCAR Code:
program New;
{.include SRL/SRL.scar}
var
CloseWindow1: Integer;
Username1: Integer;
Existing1: Integer;
Dareeyak_tele1: Integer;
Tab1: Integer;
x,y: integer;
Tab2: Integer;
Public1: Integer;
Private1: Integer;
Trade1: Integer;
const
Merlin1=8147213;
Merlin2=8607245;
Merlin3=4927753;
Merlin4=9789969;
Merlin5=9329937;
Procedure Tele;
begin
Dareeyak_tele1 := BitmapFromString(14, 14, 'beNrzdRIV0s/lrMeK4FIMDIwhX' +
'tZwrgW7IxzBVUJkgSqBCK7s/79/EBEgwqoYogzIQFaJphhuGkQKTS' +
'VcMRkqibcd2UdwhNVHxIcS8SGPrBdZDbIyuEq4FDJCUwZE8GjCRMj' +
'KwnydIIrR1COrgaoEABSghfs=');
If(FindBitmap(Dareeyak_tele1,x,y))Then
begin
Wait(100);
MoveMouse(x,y);
ClickMouse(x,y,true);
Wait(300)
end else
end;
Procedure Ancient;
begin
Tab1 := BitmapFromString(18, 7, 'beNoLcVVSlAMiPS0VCyNNIENBWhS' +
'I4IIQBJQCIicrfW8nUyAK8bKBi0NUwhGyeogWCALqSgpxhQji0oKs' +
'GG4RRBeae9BcBdECVAxBQC1ARKQWoEo0XXjUw22BKIYjeACieRzNI' +
'ygIALxHT6Q=');
If(FindBitmap(Tab1,x,y))Then
begin
Wait(300)
MoveMouse(x,y)
ClickMouse(x,y,true)
Wait(500)
end else
end;
Procedure Login;
begin
Username1 := BitmapFromString(37, 16, 'beNqFlM1qw0AMhPeZWgg' +
'lhiYUH9JC20tOef/3cNQMDB+jdbPoIMbrGf2stKyXr+vH+kMrhPb9' +
'ewuk7ryfPo/LKiufpq+2unB4O7+8LmXldH5z2kwutkAIWot3pCU5k' +
'W+P0+VIK6d+KYukoj6RPk1fJTfGcLKOlgzSmvL3BB1SyDk7y/GXqU' +
'VSUWf+GNUQueWiayy+OYW4MiYXCeX4SKZyUfwNh00M3E0cj2NCn1J' +
'kNSzHB2ywjiOf4ioXo7KQ7yhZvkxmFyk/9RlG5dJDEh5ynAWCU39P' +
'uoowlfaz73Lxfp7K7WVHadGagUcdJKLKMBJ+qr5MJYh77spGOx1nZ' +
'6Mvmg5ek6+RkV+OlrD2sJ3/V+j0OWnneD1q1hSDnTJJdNvb1S5UDA' +
'XnndPtrSLbU+lyHOfeUwpxaxn/c+4GWq8M');
If(FindBitmap(Username1,x,y))Then
begin
MoveMouse(x,y)
Wait(400)
ClickMouse(x,y,true)
Wait(400)
end else
end;
Procedure FindMerlin;
begin
if/////
Findcolor(x,y,Merlin1,201,113,327,220)
or
Findcolor(x,y,Merlin2,201,113,327,220)
or
Findcolor(x,y,Merlin3,201,113,327,220)
or
Findcolor(x,y,Merlin4,201,113,327,220)
or
Findcolor(x,y,Merlin5,201,113,327,220)then
WriteLn('Found Random Event, Taking Care of It.');
Wait(250);
MoveMouse(x,y);
Wait(200);
ClickMouse(x,y,true);
end;
Procedure Existing;
begin
Existing1 := BitmapFromString(94, 15, 'beNqNl81KBzEMxH0' +
'dvQgKIv5BRTyooF5Ewavv/wwaGBjHX9Jdl7B0s/3KdDJtzw/Pr5+w' +
'h6e3u/sXWZVhcrqC7frmsSwbogL60UDouXq4OtzL1KHNQ8iqwsXl7' +
'dn5oawKbjVaVXDltJVfNsKS80HgjmJEIP92VFHZOHig9KQzJ+A6GW' +
'DikPB2iKr+8clpWYKAz47Md3sSHE+ysyWXeOQDkEkEcllBldVYZZq' +
'eQ/YnYMEnGDICsoHM0d/HgYsGSLeRYDZ1CDp1tAXL2EOnjSbjqSYy' +
'/tzNLEPU+WO/IgUyI/l7vqy4ZBjdofPO0Y0GhJFo2dA9y79CpmvRh' +
'rB0zjjSHE6xdHkBjFYngKlCQp1DpFA4fHnqjcRJ0BzdChlo0f9xWG' +
'WTgkqFqc/3j68yf7qC11TpliBkczgdr1p53f0okKRE1zrojKEYgfJ' +
'jfDCc1iKdiYzCL+s6A3/+9WQSMQhUTtiSlcFmn54tWkFpO2fw2QfF' +
'QmS3IipCk+xUn6MCOyOEDEADgZVfIAwQgyb3EEY/pDUPIfaLDxuc6' +
'dKU9YFYarJhceKkLHTOmNVApt4ZI5DpWAG33XLqDKDo1ZzpCQ5SrH' +
'MJu/mIjJUntxjghn1nO/bdv7ucgTx6aZCV0OoVN8yQ1RDatTdOetA' +
'QTwbbwbgcUHVk0wqZ1frmsU05NY67wY3+K2V5gzOyo/Y4TRSp1dWM' +
'zXLKr3mSTuxo3e+zHPQHu7mWu6wr7cq5Wx+XjvGmk9co3KpWN8F6Z' +
'zU3zML2NWo8+vYF1c6eBRzkutMwjkdieHDS6wc5AAK4xrNxb7jqan' +
'W/yJ0F2YcDre9ZODTmAa9fpXcvDr+VfwDdIDdF');
If(FindBitmap(Existing1,x,y))Then
begin
MoveMouse(x,y)
Wait(400)
ClickMouse(x,y,true)
Wait(400)
end else
end;
Procedure Wait1;
Begin
Wait(3000);
end;
Procedure Wait3;
begin
Wait(1500)
end;
Procedure CloseWindow2;
begin
CloseWindow1 := BitmapFromString(45, 4, 'beNpjYICAA2CEDA5gCGKqgYsTI0' +
'LQCjwMBrKkqMVgwBEU+EODFs4gKIWp7AA2vxDFAABusClB');
If(FindBitmap(CloseWindow1,x,y))Then
begin
MoveMouse(x,y)
Wait(400)
ClickMouse(x,y,True)
Wait(500)
end else
end;
Procedure Public2;
begin
Public1 := BitmapFromString(66, 26, 'beNq9lr1KBEEQhD' +
'dTEwPBREFUNFBQQRBEjAQTTe8JTHwEH//ss7Qsq2dm59bVoTnmen6' +
'2vunu2b27ujw/uTjda9jx0UHY7s622tbmxrrGhVwOz+H+LiyU0G6v' +
'z8LUAzHq0aGHu6seiz2nIUCn6cfT43ComcrNjKg2gSKXX62IgF9Yz' +
'MnPhbNhxWOkxXKikY6mnjwaRnmxz/DRoEcRzDDTom/ObG2Q0eWZ1y' +
'hg2IdxMQqNSPGJ/TKK56zLa7FAmDDTQpYprJ+zq01RPKtGMkyIRaZ' +
'4friBYRSd+GVfMdlB05xXGexwZlGMDmF5npx3UA9jtHi6D4NgNCIQ' +
'LZRr3yrI6kKFgQgt57YO8ViwbZ5mvGgMx8viESA6qmiZyHJPKQynl' +
'iScbB7dgduy5W2ZV0EBEIxCP02dmnK1ABVx7DYzndmjOyA6iEXjcE' +
'ARhlH+zWhGUQtQxqnd1T0U5pxAQT9agIBIo4wiKlJoPlCtvp44pKt' +
'qO6j4fAmo4CIF/FovwGFDUOLpLBa9pTktfwzYkK3KO2gp2Y1RlN0w' +
'rRre0gQpvl/0S2DUivuMfs+sS5FBMk6NqEf5v1FkFgvNECm8HGqCi' +
'Wmd9lHY96dRvL0uRm2tuIR+lLyCZHk15W2QWlB6KBogFo5QjtpnUD' +
'rVwmq5OppdnRSjRKTQVz/+dsqm8lqi1limUTRYlEKhPtPso15UW9b' +
'coNBsNJbJFEUWyM6hoX7Ui+nUaBYTtVEvs1AYCyksNMPy+72p8eq5' +
'CQmVb/V5KchSpDC/zZlwq1tE5qWAhUiq5VfNvBT57pqdAiCK8HuK9' +
'sfPH1GsQAaX+iPT1qfICOisYvEOzP7QRA==');
If(FindBitmap(Public1,x,y))Then
begin
MoveMouse(x,y);
Wait(400)
ClickMouse(x,y,True);
Wait(200);
ClickMouse(x,y,true);
Wait(500);
end else
end;
Procedure Private2;
begin
Private1 := BitmapFromString(55, 23, 'beNqtl0FOxDAMRX' +
'OJWY2EALGBBUhISAixGokNbHsCNhyB4xdP//D5fLduaYmsyElT58V' +
'2XHW/Ozzd9X0fvcrj/XXI7c3VlMQrrbVQLi/OimWzrxcSlkOw8u3w' +
'EFShGG3oQA3pv5vuMjtjVPoUW+f1XAZCQEYLSPRQQAtIkgdnG5rtg' +
'oZh9LZGt+bTaDw1JtVmNkJPUoFOlyowG6k0XhwCwEKpTxkaBYaiIb' +
'ONMiQOAkJi84Bm2cJEt5PHMPKM2lRPKmT3+kwlhNFXSMuBvK9G33g' +
'KSNxQs2nOH4XUIXwLTo2ChoZ1QNdoibCEwQztqG5GFPi9ewmJGSjg' +
'NEg4lo0VQP3GISe1oOlTvqt2AMkbyisJAZsKOEMJNkO1cpo9tkSmr' +
'DEouUpnSHIyS7WvgWfZqI8SqsxCZlQCn6IfKdO3wkt2Fh0Wx5yC/P' +
'zoQhZykhB5q5w1WyEKqbVUaQFZoBonCQlcAFiGYCYn0mzoFbJGRd+' +
'GiqjMuRQQQBUd5rTPXq0hwTlKW0CePDzkqiFlqqlUn0IdhSwcC6qf' +
'iiqQmquGYcWtvpV6xcA5C2mohNQhaVVXpLqGkHmq0C2EJGoNOXqQJ' +
'WLpsQUSEgwE5if1XyBz9FdDglMJt0OOfuko6yCPnM1JfqXBNkgtZf' +
'AkCs5fZQXDwkuUPwqrPbkizXQSut0UZOD5fgeJH7Gj8gUqR56n');
If(FindBitmap(Private1,x,y))Then
begin
MoveMouse(x,y)
Wait(400)
ClickMouse(x,y,True)
Wait(200)
ClickMouse(x,y,true)
Wait(500)
end else
end;
Procedure Trade2;
begin
Trade1:= BitmapFromString(71, 20, 'beNq9lr1KQ0EQhW' +
'+nNhZCKiEYsdFCQRBErAI22uYJbHwEH/865iQfx9mfXJLgMlzmjuN' +
'mvz2zs3cxX748hH0sn+TIxnEchoHX58fbZPd3N8oJ5x/sejHHWr97' +
'dnqCBY7buB2C8ohDxWvM45OT1okQxEm71MonKCiN8FMOUOGv3l9l4' +
'QdFLFVQIgq0YT3kA5WIxKiRIiyJoDtMGE/ywUyToFTrh2YX52HKEV' +
'E8YXGnrEmgnFErYf0k8FeCKeJONd8nLPcz5QD1uXqDToBAMSSZiOR' +
'7NfqrL7u68o6TkL38HKqsPXL6UDgM9ZOyjThCUod8gp1IOKWOXmwt' +
'pRhxoK4uZ0CJyxsFgAyaiUNRkH72U6SF4E7KZ3NaLahsJuoVASVAQ' +
'YU5tSI6aC6Wmkm6BegnCOQRz6k6acO9kkuxCNISPSfKD5yO0R7DvP' +
'+XFxwFWQar5lfJzptxpykzxJoCVUXTk4X115wSPNIq6T5RCtI3dAt' +
'/f62w6VBJtSFWNP4pSOd1WVtGv3UuNn+iUsoPQIdKNlGvwNmcuy1X' +
'ueZSOIyp1JpK0fcoxQ7UFDSIkKylRdqKjl9W7NGhOmUpKJp/enWcE' +
'q1jVZVbB63KOAWqAygKtANqo+D6rFVXzr9UD2x5DCc2kP2gEhpQ/u' +
'o4OmsJod+OSHaV/fpoCXQgFGg9qO0NnnKmXx+pdAXFl1hHr0Ogwqp' +
'QCWRvqGpBlnV4dChxoZo+tA6Han3JJCivQ3cOh9roZUTHhaoWYesK' +
'+718fwBugxlj');
If(FindBitmap(Trade1,x,y))Then
begin
MoveMouse(x,y)
Wait(400)
ClickMouse(x,y,True)
Wait(200)
ClickMouse(x,y,true)
Wait(500)
end else
end;
Procedure TurnChat;
begin
Public2;
Private2;
Trade2;
end;
Procedure ProgressReport;
begin
writeln('');
writeln('*******************************');
writeln('*******This is the report******');
writeln('******Your account(#@&*$)******');
writeln('*****Worked for '+ (TimeRunning)+' ****');
writeln('*********End of report*********');
writeln('*******************************');
end;
/////////////////////////////
////This is the main line////
/////////////////////////////
begin
Wait1;
repeat
Wait3;
TurnChat;
Ancient;
Tele;
Tele;
Tele;
Tele;
FindMerlin;
Tele;
Tele;
Tele;
Tele;
Tele;
Tele;
Tele;
FindMerlin;
Tele;
Tele;
Existing;
Login;
CloseWindow2;
Tele;
Tele;
FindMerlin;
ProgressReport;
until(false)
End.