Code:
program LeekSuperKebabs;
{$define sr15}
{$loadlib sps}
{$i srl/srl.simba}
{$i sps/sps.simba}
var
i:Integer;
martin:Integer;
Superkebab:Integer;
InvKebab:Integer;
SK:Integer;
WalkDTM:Integer;
Procedure StealKebab;
var
x, y: Integer;
begin
FindColorTolerance(x, y, 3304784 , 7, 11, 746, 491, 5);
Mouse(x, y, 0, 0, True);
wait (500);
end;
Procedure FindStore;
var
x, y: Integer;
begin
if FindColorTolerance(x, y, 7625091, 7, 11, 746, 491, 5) then
begin
mmouse(x, y,1,1);
wait(250);
ClickMouse(X, Y, mouse_Right)
wait(250);
if FindBitmapToleranceIn(martin, x, y, 7, 11, 746, 491,100) then
begin
mmouse(x, y,1,1);
wait(250);
ClickMouse(X, Y, mouse_Left)
wait(4000);
end;
end;
end;
Procedure SellKebabs;
var
x, y: Integer;
begin
if FindDTM(SK, x, y, 557, 217, 733, 462) then
begin
mmouse(x, y,1,1);
clickmouse2(mouse_Right);
wait(3000);
if FindBitmapToleranceIn(Superkebab, x, y, 7, 11, 746, 491,100) then
begin
mmouse(x, y,1,1);
wait(1500);
ClickMouse(X, Y, mouse_Left)
end;
end;
end;
Procedure CloseDat;
var
x, y: Integer;
begin
if FindColorTolerance(x, y, 5268590, 7, 11, 746, 491, 5) then
begin
mmouse(x, y,1,1);
wait(1000);
ClickMouse(X, Y, mouse_Left)
ClickDTMRotatedIn(WalkDTM, 7, 11, 746, 491, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(2500);
while (IsMoving) do
wait(100);
end;
end;
Begin
SetUpSRL;
SK := DTMFromString('mWAAAAHicY2FgYMhgYmBIA+JsIE4CYh5GBgZBIOYHYm4gXjUhnmFSdRAY75mfycAJ1IOMGdEwCAAApx4IJg==');
WalkDTM := DTMFromString('mQwAAAHicY2ZgYAhlYmCIgOIoID8aiCOAWGc3F8OW1SsYNGdxM4gA+TDMiISBAAD2lwYh');
MouseSpeed := 15;
Superkebab := BitmapFromString(141, 8, 'meJzVVkkOwjAM5CG5c+ANlThz5G' +
'Vc+Asv4FsQNaplvEymbVSJyIc0zNiJx7aYbvdyvlR7vt7VTvOqn7L' +
'JTPBmn2HC87ravpoPcX18qvFXGmsSfTh4A35aZJLskUReJu/Wc0O6' +
'POcwaf5CpkypMNuMTGVpgYzbDgE9VEqfmF/bZ0YhwSaTDAu42hC6K' +
'5NXyg+oVTKFbrVM4hbQwzc2fLg3ucXneq5m6RVAN0R2VRLPy5SllN' +
'xjmcygK3O7MfTwjaP2YN4aAO82lJvBr5XJpNT8xxgiE0/fLwdoDRC' +
'xm3O+EpirdmWS8s7kkIW7zEvj8eV37ulwYQetzQnIVdYaoDCy+bmt' +
'y3bKZIpcs0xD8TIZbuY2Gzu6eg0GlDQYVqY7SJl0wWBXTOjuVUP7A' +
'nmyz6w=');
martin := BitmapFromString(52, 10, 'meJzNVEkSgDAI4yHePfhe/+IL/B' +
'bq1CICpsv0YIdDiRmMTSoRrdt+FuU1zUtHyZBKPjFfpfge6Rg7Uhu' +
'zaX+lzRbUltpUhmNA/wgPCT31GyEAbRI/3YaaSYUW88N03UHXSLY7' +
'1GbuhT4HoMHgwOviXcDa/OFUavAf0qqteG5hIJv24L80StuXp/V4q' +
'zbxVNL40EIX3qsbB28xyAH+k8Vm');
InvKebab := BitmapFromString(31, 14, 'meJydktsrBGEYxslMM5dr17VDDi' +
'XnLefNWSvHJESbtLW0NDkLISESUlIipZRCSolSLsSFcuHChf/Hb+Y' +
'b09q141BPb8/3zfv+9pl31u2pc38qNiameuZAcd4r8TeK41Lui1Mc' +
'p6rzQXU+qa5nDDeyP04ekPSKOGqSMmUeFcc5s137D56RHVDJyfnur' +
'3Dv8hkQwTeZhkymJsljkjKrVzloMA2j9zvvGWxYvaia3hfkSHiRf7' +
'Fl+7Zp40p1vamuFzNwUMfCJKSQCR+QjJ5XvTnh3Xf4CPxbsgWnoX7' +
'pFNUtnqDmzWsLqzOFNEPAP5fWunPXuH5Zu3AcuZBQOMCauSPaqHwC' +
'XhPh+TnGkY4Nmsn1rxN/Qx6x52ixLTjAysk9gcUwVa5tUVHF+C433' +
'IsejuJpaXDNwlrk3NLqSDjNAiJmGSwOLJUMrmBQ2fAGDVQ8lzwq7J' +
'+3CRwGZ4RZEQkjxgt80+6+WQwN4oYjlzarCEsexicbHkh+70Rup4b' +
'yukfxVHxOx1DkKuzhFt8KDA1OZrMfZbUFstsHqfjfrMJmP5AJCRla' +
'hteXVtuVXt+D7P8V0TKH8UPJqVUdSWVNKZ5W+1UI8o9wwef1RWawi' +
'SXef68iGj9Uf13FB6maRU0=');
repeat
for i := 0 to 110 do
begin
StealKebab;
end;
until (true);
Findstore;
SellKebabs;
CloseDat;
FreeBitmap(Superkebab);
FreeBitmap(martin);
FreeBitmap(InvKebab);
FreeDTM(SK);
FreeDTM(WalkDTM);
end.
I was away for a couple days so didn't have time to figure it out, but this ended up working just as well. My very last problem I promise you sir