SRL Archive - First Scripts

So I was making a script to purchase items; here it is.
EDIT: Dtm isn't working as intended

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
  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
  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.

Thoughts? Suggestions? =D
All constructive comments are welcome xD

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


Add the lines that are in red

try adding

tags around your code it makes it easier to read. You could add some antiban.

From: Justin
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


Add the lines that are in red

Thanks justin

From: bob_saget
try adding

tags around your code it makes it easier to read. You could add some antiban.

I'm only just learning how to antiban, so i'll be adding that tomorrow hopefully.
Thanks for the suggestions :)