Simba Code:
Procedure CleaningHerbs;
Begin
GrimyHerbsDTM := DTMFromString('mGQAAAHicY2RgYAhiYmBIYmRgMDHUZWAG8oFMBgYAFKUBTw==');
GameTab(Tab_Inv);
if FindDTM(GrimyHerbsDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
Begin
MMouse(X, Y + 3, 0, 0);
wait(randomrange(400,450));
ClickMouse2(true);
Writeln ('Found Grimy Magebane, Cleaning!')
wait(randomrange(6000,7000));
FreeDTM(GrimyHerbsDTM);
end else
repeat
Writeln ('Cant find Grimy Magebane, Trying again!')
wait(randomrange(1000,1500));
until FindDTM(GrimyHerbsDTM, x, y, MIX1, MIY1, MIX2, MIY2);
MMouse(X, Y + 3, 0, 0);
wait(randomrange(400,460));
ClickMouse2(true);
Writeln ('Found Grimy Magebane, Cleaning!')
wait(randomrange(6000,7000));
end;
Procedure HighAlchItem;
Begin
HighAlchDTM := DTMFromString('mggAAAHicY2NgYHBmYmDwBGJ/IA4C4lAoO4ERguOAOBGIo6H0xV0SYPzqdghDfzkrQ+Kp7wzrpvAysALNwoYZcWAIAABJeA4k');
GameTab(Tab_Magic);
wait(randomrange(400,500));
if FindDTM(HighAlchDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
Begin
GameTab(Tab_Magic);
wait(randomrange(100,150));
MMouse(X, Y + 3, 0, 0);
If WaitUptextMulti(['High', 'Alchemy'], 500) Then
Begin
Writeln ('Found High Alch spell')
ClickMouse2(true);
wait(randomrange(150,200));
end;
end;
Gametab(Tab_inv);
end;
Procedure AlchingTheHerbs;
Begin
CleanHerbDTM := DTMFromString('mLgAAAHicY2JgYAhiYmAIBeJERgaGOCDWN9Fg0NCTZ2AGyoEwIxQzMAAASwgCdw==');
wait(randomrange(400,500));
if FindDTM(CleanHerbDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
wait(randomrange(100,150));
MMouse(X, Y + 3, 0, 0);
Writeln ('Found Clean herb, Clicking.')
wait(randomrange(100,150));
ClickMouse2(true);
wait(randomrange(150,200));
GameTab(Tab_Inv);
wait(randomrange(400,500));
GameTab(Tab_Inv);
end;
end;
procedure MainLoop;
begin
repeat
begin
GameTab(Tab_Inv);
if (not FindDTM(BuyMagebaneSeedsDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
CreateGateStone;
DropGateStone;
HomeTeleport;
TradeSmuggler;
BuyMagebanes;
UseGStone;
end else
if FindDTM(BuyMagebaneSeedsDTM, x, y, MIX1, MIY1, MIX2, MIY2) then
begin
GameTab(Tab_Inv);
ClickMagebane;
UseOnFarming;
Wait(randomrange(2000,2100));
AntiBan;
wait(randomrange(1000,1100));
ClearDebug; //ADDED CLEAR DEBUG
wait(randomrange(200,300));
ProgressReport;
wait(randomrange(1000,1100));
HarvestPatch;
CleaningHerbs;
repeat
HighAlchItem;
wait(randomrange(400,500));
AlchingTheHerbs;
until (not FindDTM(CleanHerbDTM, x, y, MIX1, MIY1, MIX2, MIY2));
end;
end;
FreeDTM(HighAlchDTM);
FreeDTM(CleanHerbDTM);
AntiBan;
GameTab(Tab_Inv);
until(false);
end;
Begin
SetupSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
LoadDTM;
Writeln ('Waiting 10 Seconds before starting...')
wait(10000);
GameTab(Tab_Inv);
wait(400);
Start;
wait(100);
MainLoop;
end.