Work on your standards :P
This should work
Simba Code:
procedure MainLoop;
var
X, Y, MagebaneDTM, CleanHerbDTM, HighAlchDTM: Integer;
begin
repeat
begin
GameTab(Tab_Inv);
if not(FindDTM(MagebaneDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
begin
//CreateGateStone;
//DropGateStone;
//HomeTeleport;
//TradeSmuggler;
//BuyMagebanes;
//UseTheGatestone;
end else
if FindDTM(MagebaneDTM, 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;
FreeDTM(HighAlchDTM);
FreeDTM(CleanHerbDTM);
//AntiBan;
GameTab(Tab_Inv);
end;
until(False);
end;
Remove the //'s
Oh yeah, it didn't work because you forgot to place and end; somewhere.