My First script, not exactly sure where i went wrong, cannot figure out where im supposed to put "freedtm(feather);"
Any help would be appreciated =D
Error Text
Checking P07Include VersionNumber
Local : 1.7 / Latest : 1.7
You Have The Latest Version of P07Include
Successfully executed.
The following DTMs were not freed: [4]
Simba Code:
program new;
{$I SRL/SRL.Simba}
{$I P07Include.Simba}
Var
Feather:integer; //The Name of the DTM
X,y:integer; // The X and the Y to store the cords for the DTM.
Procedure LoadDTM;
Begin //Edit the Dtm to whatever item you want to purchase
Feather:= DTMFromString('mlwAAAHicY2dgYKhgZGBoBOIaIC4C4mogLgPieiAOBMr7AHEEEAcDsRcQhwNxEBAf3buXYeuqVQxbVq5gcLM1AoowMhzauQPMxwcY8WAoAAAwfRDj');
end;
Procedure Party;
Begin
if FindDTM(Feather, x, y, MSX1, MSY1, MSX2, MSY2) then // MS is the cords of the Main Screen
begin
MMouse(x,y,2,2); // Hovers over feathers
if P07_IsUpTextMultiCustom([Feather]) then // If text up feather it will click it
begin
ClickMouse2(mouse_Right);
wait(100+random(100));
P07_ChooseOptionMulti(['Buy 10', '10'])
end else
FreeDTM(Feather);
Writeln('No DTM found'); // If cant find DTM it will say this.
end;
end;
begin
ClearDebug;
ActivateClient;
SetUpP07Include;
LoadDTM;
Party;
Repeat
Until (P07_InvFull)
end.