Simba Code:
Program AIOGilded;
{$i SRL\SRL.simba}
var
Trips,DboneDTM,FboneDTM,UseDbones,BankTry:Integer;
BankSoulSplit,UseBank,WithAll:Integer;
Status:string;
Procedure WithDrawBones;
var
X, Y: Integer;
begin
MouseSpeed := 15;
if FindDTM(DboneDTM, x, y, 22, 25, 508, 328) then
begin
mmouse(x, y,1,1);
wait(randomrange(150, 200));
ClickMouse(X, Y, mouse_Right);
wait(randomrange(300, 350));
if FindBitmapToleranceIn(WithAll, X, Y,22, 25, 508, 328, 125) then
begin
mmouse(x, y,1,1);
wait(randomrange(150, 200));
ClickMouse(X, Y, mouse_Left);
wait(randomrange(400, 600));
end;
end;
end;
Procedure Bank;
var
tmpCTS, l, r,X,Y:Integer;
BankTPA:TPointArray;
begin
MouseSpeed:=15;
tmpCTS := GetToleranceSpeed;
SetColorToleranceSpeed(2);
SetToleranceSpeed2Modifiers(0.23, 0.48);
if FindColorsTolerance(BankTPA, 6719126, 8, 25, 518, 359, 2) then
begin
SetColorToleranceSpeed(tmpCTS);
SetToleranceSpeed2Modifiers(0.02, 0.02);
L := High(BankTPA)
wait(randomrange(60, 100));
mmouse((BankTPA[r].x), (BankTPA[r].y), 2, 2);
wait(randomrange(100, 150));
clickmouse2(mouse_Right);
wait(randomrange(700, 1200));
if FindBitmapToleranceIn(UseBank, X, Y,8, 8, 681, 429, 145) then
mmouse(x, y,1,1);
Wait(250 + Random(150));
ClickMouse(x, y, mouse_Left);
Wait(500 + Random(150));
repeat
if BankTry >= 7 then
begin
Bank;
end;
IncEx(BankTry, 1);
wait(randomrange(500, 750));
until
(FindBitmapToleranceIn(BankSoulSplit, X, Y,181, 27, 359, 52, 145)=true)
BankTry := 0;
WithDrawBones;
end;
end;
Procedure WalkToBank;
var
DTM_1,DTM_2,DTM_3,DTM_4:integer;
begin
DTM_1 := DTMFromString('mWAAAAHicY2FgYHBlYmCwBOIgILYG4nqgWD4Q9wJxKxDXlpQwpDupMKj58jHoJ4gw8ADFkDEjGgYBAHLMBqI=');
DTM_2 := DTMFromString('mQwAAAHicY2ZgYAhhYmAIBeJCIO4A8mcD8WQgri0pYUh3UmFQ8+Vj4AHyYZgRCQMBAPZHBbQ=');
DTM_3 := DTMFromString('mQwAAAHicY2ZgYMhiYmBIAuIqIJ4C5PcCcQ8Q15aUMKj58jGkO6kw8AD5MMyIhIEAAP4UBdc=');
DTM_4 := DTMFromString('mQwAAAHicY2ZgYAhnYmDwBeIkIJ4N5E8G4ulA3NjYzFBbUgLG/EA+DDMiYSAAACkiB1Q=');
ClickDTMRotatedIn(DTM_1, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_2, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_3, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_4, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
FreeDTM(0);
FreeDTM(1);
FreeDTM(2);
FreeDTM(3);
Bank;
end;
Procedure UseBones;
var
X,Y:Integer;
tmpCTS, l, r:Integer;
AlterTPA:TPointArray;
begin
if FindDTM(DboneDTM, x, y, 560, 232, 741, 486) then
begin
mmouse(x, y, 1, 1);
wait(randomrange(100, 200));
clickmouse2(mouse_Right);
wait(randomrange(150, 250));
if FindBitmapToleranceIn(UseDbones, X, Y, 557, 229, 736, 487, 145) then
begin
mmouse(x, y, 1, 1);
wait(randomrange(150, 250));
clickmouse2(mouse_Left);
begin
tmpCTS := GetToleranceSpeed;
SetColorToleranceSpeed(2);
SetToleranceSpeed2Modifiers(0.00, 0.48);
if FindColorsTolerance(AlterTPA, 12432307, 8, 25, 518, 359, 1) then
begin
SetColorToleranceSpeed(tmpCTS);
SetToleranceSpeed2Modifiers(0.02, 0.02);
L := High(AlterTPA)
wait(randomrange(60, 100));
mmouse((AlterTPA[r].x), (AlterTPA[r].y), 2, 2);
wait(randomrange(100, 150));
clickmouse2(mouse_left);
WriteLn('We found the Alter!')
wait(randomrange(1800, 2800));
repeat
UseBones;
until (FindDTM(DboneDTM, x, y, 557, 229, 736, 487)=false)
WalkToBank;
end;
end;
end;
end;
end;
Procedure WalkToAlter;
var
DTM_1,DTM_2,DTM_3,DTM_4:integer;
begin
DTM_1 := DTMFromString('mQwAAAHicY2ZgYOhmYmDoAuI5QGwD5BtDcWRwMIOaLx9DhrMqAw+QD8OMSBgIANbrBNQ=');
DTM_2 := DTMFromString('mQwAAAHicY2ZgYJjHxMCwDIinArEpkO8KxF5AHBkczKCfIMKQ4azKwAPkwzAjEgYCAOrYBUA=');
DTM_3 := DTMFromString('mQwAAAHicY2ZgYKhlYmAoBeIiIPYD8iOA2BOII4ODGdR8+RgynFUZeIB8GGZEwkAAANOvBNQ=');
DTM_4 := DTMFromString('mbQAAAHicY2VgYFjIxMAwH4hnAPFaKNsJKG4GxA4MEHYwEGc4qzJEBgeDaRjmAYqjY0YsGAwAkvAJAQ==');
ClickDTMRotatedIn(DTM_1, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_2, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_3, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
ClickDTMRotatedIn(DTM_4, MMX1,MMY1, MMX2,MMY2, -Pi, Pi, Pi/30, [], mouse_Left);
Wait(1000);
while (IsMoving) do
wait(100);
FreeDTM(0);
FreeDTM(1);
FreeDTM(2);
FreeDTM(3);
UseBones;
end;
Begin
UseDbones := BitmapFromString(48, 7, 'meJylk8ENgDAMAzsIfx4swYh8sks' +
'n6FqAZClKnTQUFfmRRlF6sovUJrWVUrb9WNF53a+wx9Z/JT0Pjioa' +
'o+YMD2qIhqmJvuXR2n7UHyF98ug2e7RIqBN/Qg9lkG/OozDeH5r0+' +
'70PFCItn+Txk+pPzpN4YkNc5wlrf2/ow+idJxEk/1qYF/oPcIZFpA==');
BankSoulSplit := BitmapFromString(172, 17, 'meJztmFFSwzAMRHMT7kD7C9MvB' +
'm7IbSEznnqWlbSWnCbtAB1/OIktS6snx83p9f0UtOeXN2z46Hz5mG' +
'vCPi2h27QD2qW/qcORsevA78XAvw6tPX1+UVvtt85c4NaaFjaKPZp' +
'+88AFCRoAnF4FDBW+OwOrtWVZmkvL9dcvJ9ZFU5RHN/uagTkf8k72' +
'PObFJwZWI1UG1nj7XNIhIn9XBpqfJLirf1VeslMCQDBQ3Y40petl7' +
'1QLcI4BzDUxoKPeGwPBwBZTEe2Z3W8LA7bM3QH5xLmLTjBA9d6Uwd' +
'p/BAbw0i2l6L47oJcbBk6Hjej8QHkUu3HkJJV5BgMyiJ7YWUPRcDo' +
'dAKg6mpM0WJRGH5DRYZgyHQ6VEqY1s9Ni4O59DIrSbUGKNgrrTKZC' +
'LQaRQbQ27OPPdTK5DwxDFkuQ224qkwzQ+VAo4Jqy7wJiMgqBKsJVA' +
'ye6jg2x13Vd7bvrkgLD/vBd4D4dumc7JQaEvD07kakoUjfXtFZ+Vx' +
'TpcN0TgW9k4Hx973QMfjEDuBcJU9Wooz0kwiDDgK59QqWUd3IgsxO' +
'WFOg7yaMxYI9wkanemsLRu6Cktj4gIZM6WHSSSNYG8b4rfjTGqiFY' +
'Im0pdrSmdagy0PexfupGBXq/PV1+/tCIOwD/Cbpzo7XQJexjI2u2N' +
'HS8dkwUGt6n1VExGoN5ITXsXNc3G7vwhHTol7ZDrbmBwka6uS8pO0' +
'B8DegfBER2zua7uruuaBkGjtEB9//jdSjZT04U48nbLQC41iYAyDA' +
'wJ2Beh4iBA3TIYHDb2PHp8HtgNfBq+EkA9mCAdLAMHKnDzRlIjncx' +
'yAeuYy9JsRMDVR3wGPBoOnwD+YiGAg==');
UseBank := BitmapFromString(95, 10, 'meJztlkEOxCAIRT1I97OY83qXnq' +
'DXaichIQzw0ULqqoYFotXvE0z7fvT92D5fsv7fTdt5NmnFdSoTKls' +
'TjdaahMPd4qGoVfTzOukJ6VtYAKeofzEcuc4LpwKHumz8oRu0e7FR' +
's0NovtWMajN42dDQUMAMHPZlU3HEB705cdxyQISH9HIC5DFvZY5KG' +
'wUqyFKVsTapXM0yjsi4G8UCZvzJsvqZzRBVa/GFIt+FgHxUU0UIQz' +
'ib+LeR51Ua4nJboDl+c56D4yZDnCHooVaa3aKIy2ro5za6FefuBTx' +
'PZUQ=');
WithAll := BitmapFromString(145, 8, 'meJzNlc0NwzAIhTNI7jlkiY7YS3' +
'fJBF2rtYRkIXgP/0eROGCCMeEzeD/Oz/VNsm3bfpxavJ15xrsmSg4' +
'u8WXpz2U5vN6/JGIXfUWSraKzaq1DUISnIYsx1SNblOedyJKYO+wh' +
'GqOJ40tnnAMjW8K98Kw+ZKKbvoPGVrs2sqYOHOCnlHOxyzzEvMtzh' +
'8hMBFkGHV2c1TrCRGQ5T73UFeuzyydGjTmwmE0/7gvOQHg76xTjKR' +
'CLyPxyHJnJ0zRIsKsyMhuA7IVlMfuQdeg10CHNO5EFN3wQGTylPiu' +
'ts8G1GhnU9Wh9CLJF+iAyPRBgTeCLwzyLpWOtZG6OGVMTkQUvV+xc' +
'b4eRY2R+L4v5Bxb7Qww=');
DboneDTM := DTMFromString('mWAAAAHicY2FgYHBjYmBwBGI/ILYF4t9AsS9A/AuI/wDxrvXrGTISEhh2b9zIsGfzZgYeoBgyZkTDIAAAnmUMtw==');
Mousespeed := 15;
WalkToAlter;
FreeDtm(DboneDTM);
FreeBitmap(WithAll);
FreeBitmap(UseBank);
FreeBitmap(BankSoulSplit);
FreeBitmap(UseDbones);
end.