SRL Archive - OSR Help

Under procedure SetDTM; It has 3 DTM's Spotted, Falcon, ToBird. What do I use for them to change the DMP, I don't know which to click for the colors. Can someone help me with them? And Check if im doing the script right?

Example:
Do I choose the colors when I click on the spotted for the first one? Do I choose for the second one when its flying or what?

program Falcon;
{$DEFINE SMART8}
{$i srl/srl.simba}
{$I P07Include.Simba}


var
x,y,stuck,Spotted,Falcon,ToBird, tried,acomplished :integer;
MyTPA : TPointArray;
MyPoint : TPoint;
aFound: Extended;

Procedure DeclarePlayers;

begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name :='';
  Players[0].Pass :='';
  Players[0].Nick :='';
  Players[0].Active:=True;
 end;

 procedure SetDTM;
 begin
Spotted := DTMFromString('mbQAAAHicY2VgYNBmZGDQAGIlINaFsm8xQPBlIL4LxPeBWF9JmIGVhYXBUV+aQYCXg0FVkosBG2DEgsEAAOkxBoY=');
Falcon := DTMFromString('mWAAAAHicY2FgYHgBxJ+A+CEQPwDi+UC8BIjXAPFcILY21mSQlxZlqCkJZ5CRFGFAB4xoGAQAKGkIpg==');
ToBird := DTMFromString('mWAAAAHicY2FgYHgBxJ+A+CEQPwDi+UC8BIjXAPFcILY21mSQlxZlqCkJZ5CRFGFAB4xoGAQAKGkIpg==');

 end;

 procedure FrDTM;
 begin
 FreeDTM(Spotted);
 FreeDTM(Falcon);
 FreeDTM(toBird);
 end;

 procedure ClickOnSpotted(PX:Integer; Click: Boolean);
 begin
 if FindDTMRotated(PX, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
   begin
   Mouse(x, y, 3, 3, Click);
   end;
   end;

procedure GoToBird(PX:Integer; Click: Boolean);
 begin

 if FindDTMRotated(PX, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, aFound) then
   begin
   Mouse(x, y, 3, 3, Click);
   end;
   end;





 procedure ClickOnFalcon(PX:Integer; Click: Boolean);
 begin
 if FindDTMRotated(PX, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
   begin
   Mouse(x, y, 3, 3, Click);
    end;
   end;

 Procedure Drop;
  var
    I: Integer;
begin
    for i := 2 to 28 do
    begin
    InvMouse(I, 3);
    If IsUpTextMultiCustom(['ebbit','ones']) then
      begin
        ClickMouse2(false);
        ChooseOption('rop');
    end;
   end;
  end;



 begin

  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;

  ClickNorth(SRL_ANGLE_HIGH);


  repeat

    if not (LoggedIn)then
    begin
      TerminateScript;
    end;

 repeat


   SetDTM;
     MouseSpeed := 15;
      ClickOnSpotted(Spotted, False);
      wait(100+random(150));
     ChooseOption('atch');
     wait(3200+random(150));
   FrDTM;

     SetDTM;
     if not FindDTMRotated(ToBird, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, aFound) then
     begin
      ClickOnSpotted(Spotted, False);
      end;
     MouseSpeed := 15;
     GoToBird(ToBird, True);
     wait(3200+random(150));
   FrDTM;


  SetDTM;
     MouseSpeed := 18;
      ClickOnSpotted(Spotted, False);
      ClickOnFalcon(Falcon, False);
      wait(200+random(150));
     ChooseOption('etrieve');
     wait(3000+random(250));
   FrDTM;


  until(invfull);
   If invfull then
   begin
   drop;
   end;

    if (Stuck > 3)then
    begin
      WriteLn('We are stuck, logging out')
      Logout;
      TerminateScript;
    end;


  until(AllPlayersInactive);

end.      

I have no idea what you're trying to ask exactly… but I do have some suggestions for your script.
ClickOnFalcon, ClickOnSpotted, and GoToBird are the same procedure only with different names. I suggest you only use 1 if you're going to use them at all.
Secondly, don't set and free the dtm's so frequently.. you're asking for a memory leak. Set them once, then AddOnTerminate('FrDTM');

i dont understand your question as well.