SCAR Code:
program RoflAgain;
{.include SRL/SRL.scar}
var
x, y, Clay, Jug, Water, MakeAll, MakeAllText: Integer;
const
NumberOfClay = 4; //Number of clay you intend to make in one bout
procedure DeclareBMPs;
begin
Clay := BitmapFromString(21, 14, 'beNp9kmtLAkEUhu2f+DEiIsk+' +
'5EJtFiYbWVJklGQ3LCNCKoiQCJEKkW6IdL9BRBARIUhEP64HDxym3' +
'UV4GWYP8z77njNjheJ2GDnDEdmIhqxQINBmiopX8f6w6VJx/nQveX' +
'84WzuYZhOz2k1IzO5Rgu5d9udy+u1s4fF47qY0U92fAlLeSQjBtBP' +
'A9EqRY/Xr1cbt2mdt5aUyD8TVi4YxXWiwr0sJprqDQVYCnBcmC7mR' +
'bCqSiHZS0bQthFfstEMY2gEivYi3uOmU8qNHW2MUK7sTdEoln7HT4' +
'73OQIcOzTcSh6ExH+Z8VUwBZ8MnRVBgtxej2qwkUVHkghgOo0ZkY6' +
'UCBBQcIDJ2snkfgHT0frGEPqrLrNIgEJhwBGIO4d/LafYu14S+LrM' +
'KeT3JCEeNLq9enMB/nza+73KgBCJSr7wQH3uzLnNAPw/rxACCfAO3' +
'kEK8zfr8/Q+FZOMe');
Jug := BitmapFromString(25, 28, 'beNqNlVtLW0EUhe2PsM95EPoiq' +
'LQIKqiYiCEQGqxiJSgheEklhBCCTU1tCKm3aoiNtxhvtJSK/9IPNm' +
'w2MyeHwEbmjHO+s/aaNZOpsfjsB1sDA29CylkcUiwu5nKlnZ2vhUK' +
'1VKrt7jb29o5+7DcbjfbxcTIe75PGsvzGRmFrC1o5n/9WLO6Xy3Ba' +
'Bz/hXP46gb+2stKPPBZsZzJCE2GgTut1IJ1mUwqRLEglEixOxCZDW' +
'ttcX/uSzbJYhNUrFSTd/T4Hcn12SpsqbDQSoXqhMqur2XQaYdAQxl' +
'sH36uoOj86hIM2kZSYnxdUeIP4w0dFGz3yiPMK5JFvhUuyNDqiu/T' +
'SEkA0WCDzC3Nz/WeDBc/3d7hEj58XFwFCYAwWqe9HRybHx2MzMwRj' +
'OfXR0pxd4F/YAoqiI4BwCBjC8BACasVP4HxFkwbHRwnn5fFBir2jN' +
'XlXwia5PanVeMRY+H6nzPy9ubEoHuGgjYChjT2V3DLDPED4tEnLls' +
'a422o5kpgRFEqEBop3R4aHWc9BYB4DSazMCAdn/ne7DorzYlFwEKb' +
'RomgTPqZp0hg8tNsOhzFxkkYsCosIMxYxfrq8YA0DQfGXJAvHoljG' +
'SaELRYldoNhWHsV5kSehtW5bGnunKOs8r5Nb6u3goEK0O8tRGkb5K' +
'HoERbF374aGhOZnyda/246DokdBIQxJmE/yHVogil3AQM4jhvgovC' +
'IDxB6ac7p9GolSlOYBFCXdkX/2cXpiwr9wHFogCru0O7LEqZGLIgT' +
'FhnJzcq7JrY2WI4l741MyGXgNKu3P9VUgCqNUkl5Zva5BoQWipDv0' +
'WIJUdGqs19VHg+wgEdU8oAcxDsS/7gJpKgkxmONDQgqR9hPO73s/k' +
'Ogr4Qjddg==');
Water := BitmapFromString(25, 28, 'beNqNld9Lk1EYx+2PsGsvhG4' +
'ElUJQIcUfNAYjMcNkKmPotmSOscZ81XTMZWpzzZY/5sykiH5cRrfR' +
'ZZfRRVDQP9MnHng4nPPuZfAg5z077+f9Pt/zPcfh/tDoLbM6Oq4Fl' +
'LU4oFicTaVyKytrmcxmLlcsFMobG3vbW9Vyub6/HwmF2qSxLL20lE' +
'kkoOXT6fVsdiufh1PbfQLn+NkB/IXZ2XbksSAZiwlNhIGqlEpAGtW' +
'qFCJZMBUOszg8MRTQ2vLiwsN4nMUirOR5SLp4cQTk9LBCmyqsr6uL' +
'aoWKzc3Fo1GEQUMYb+0+3izt/KpUfzfO/6JNJIUnJwUV3CD+8FHRl' +
'kh+Tq9+zT36XvB+AHxe+8OvfCtYkkmjI7qLzsxE569i8Y/J1JfVzD' +
'eAa+s/mb8zNtZ+Nljw4dUFLtHjg+lpFEJgTGtIvdnXOzQwMDEyQjD' +
'uT901adYu8BP2gqKO9p4ChEPAaA0PIaBW/ATOVzRpcFyUcD69vpRi' +
'7zBf3pWwSW4PikUeMRa+2ykzb8/OTBSP/zfR8wgY2thTyS0zzAOET' +
'5u0bNIYN2s1SxIzgkKJ0EDxbm9PD+s5CMxjIImVGeHgzPtm00JxXk' +
'wUHIRptCjahI9pmjQGl/W6xWHMqZFGTBQWEWYsYnx1/JI1DATFX5I' +
'sHBPFMk4KXShK7ALFtvIozos8Ca3ptklj7xRlOs/rHHbqemenQrQ7' +
'k6M0jHJR9AiKYu9udHcLzc2SWe/OGxaKHgWFMCRhPsm3aL4odgEDO' +
'Y8Y4qLwigwQe2jW6XZpJEpRmgdQlHRH/tnH24OD7oVj0XxR2KXdkS' +
'VOjVwUASg2lJuTc01uzWhZkrg37kUivteg0t6cnviiMEol6ZXV6ho' +
'Umi9KukOPSZAaH+5vdfXRIDtIRDUP6EGMBXGvO1+aSkIM5riQgEKk' +
'+Qnr/3s7kPF/48zhcw==');
MakeAll := BitmapFromString(42, 31, 'beNq1lj1KBEEQhdP135OYG' +
'BiIGCwIGyjCgqyggYmBgYGBgdfRRA+yLIsXWDHwKD6opSi6q7qrah' +
'Qey2zP9Hzvven5mb9+L9+lLo43VU1Pt1TNxrrk3PHhiPW1eIMA4g2' +
'L7iHenm2rksdPjjZYJwcjiNAFPRrQQkPyMJyhrgLo1Xzd/M/nR0FP' +
'EBt0FhngKmT2EPFuoshvgMTBC7oVSoUOp+dwTicNOqlLvD/faSvRA' +
'618DFoRulCL3jXA2XO4roc2HWueglunerj0Kkqn+w507MoRa7TfAN' +
'FpPEEc4oSbx6Cc+zjdjaqBVumUnZ51+JsgWvTaQ5uOwYH0bglq+Ux' +
'/utoLyV8CSdKLtz9NjBoI2eASiuAQT/k/Ohuw6HS25+uAujYKOpcv' +
'3zJ18ARddWItQknHrgQ6VAKkovGYlcdYNl5u9qE/KUGiJV1FE7dQt' +
'AS1dg9dNeAvoR081Hy3B7V/i47PafwWbxYn1IO2LjqjOXsidYOuXn' +
'T5IVc3HzXg7NxJ9yx753pTXzHcOddO287UuRuN0Byc0MRd/QKT81k' +
'N');
MakeAllText := BitmapFromString(34, 8, 'beNr7/x8CGBgYYkPcSU' +
'JwjRC9EC6aFJxNuS24TMZqC7Jj0GTx2IIG8NuC1fsQLi6LkNXAlRG' +
'0BW4FHu9TGGJ4ggvNAVSMF7TQwJo2yLMFa2rEkwBIsAUAUKXLPg==' +
'');
end;
procedure Idle;
begin
while not IsKeyDown(chr(13)) do
Wait(10);
end;
procedure FillJug;
var
rx, ry: Integer;
begin
if FindColor(x, y, 9603172, 263, 286, 765, 612) then
Begin
FindBitmap(Jug, rx, ry);
MouseSpeed := 6
MoveMouseSmooth(rx, ry);
Wait(500+random(500));
Mouse(rx, ry, 10, 10, true);
Wait(1000-random(500));
MoveMouseSmooth(x, y);
Wait(500+random(500));
Mouse(x, y, 0, 0, true);
Wait(1000+random(500));
end else
WriteLn('Error. Jug not filled. Terminating.');
TerminateScript;
end;
procedure SelectClay;
var
rx, ry: Integer;
begin
if FindBitmap(Water, x, y) and FindBitmap(Clay, rx, ry) then
Begin
MouseSpeed := 7;
MoveMouseSmooth(x, y);
Wait(500+random(500));
Mouse(x, y, 10, 10, true);
Wait(1000-random(500));
MoveMouseSmooth(rx, ry);
Wait(500+random(500));
Mouse(rx, ry, 10, 10, true);
Wait(1000-random(200));
end else
Begin
WriteLn('One or more bitmaps not found: Water, Jug. Terminating.');
TerminateScript;
end;
end;
procedure StartMakeAll;
begin
if FindBitmap(MakeAll, x, y) then
Begin
MouseSpeed := 5;
Wait(500+random(500));
MoveMouseSmooth(x, y);
Wait(500+random(500));
Mouse(x, y, 10, 10, false);
Wait(500+random(750));
end else
Begin
WriteLn('Error in finding Make All picture. Terminating script.');
TerminateScript;
end;
end;
procedure FinishMakeAll;
begin
if FindBitmap(MakeAllText, x, y) then
Begin
MouseSpeed := 8;
Wait(1000+random(500));
MoveMouseSmooth(x, y);
Wait(2000-random(1000));
Mouse(x, y, 5, 5, true);
Wait(1000-random(500));
end else
Begin
WriteLn('Error in finding Make All text. Terminating.');
TerminateScript;
end;
end;
procedure EntireMakeAll;
begin
StartMakeAll;
FinishMakeAll;
end;
procedure Proggy;
begin
WriteLn('This script was brought to you by the number 69.');
WriteLn(' ');
Wait(500+random(500));
WriteLn('------------------------------------------------');
WriteLn(' ');
WriteLn('Your clay has been successfully softened.');
WriteLn('Softened '+IntToStr(NumberOfClay)+' clay.');
Wait(500+random(500));
end;
begin
Idle;
DeclareBMPs;
FillJug;
SelectClay;
StartMakeAll;
FinishMakeAll;
EntireMakeAll;
Proggy;
end.