SRL Archive - First Scripts

hi guys, i wrote this and i got it work for like 20 mins. not so bad but still needs alot of improvement. If eny scriper want to help me, just try it and tell me what could be done to improve it

Thanks

program ogyFalcony;
{$DEFINE SMART}
{$i srl/srl.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('mbQAAAHicY2VgYNjECMEbgXgrEG8GYl2guAEQqwOxPhBrAXFKiDmDk5UOQ0a4FUNejC1DSrgTAxdQHB0zYsFgAACgMQkw');
Falcon := DTMFromString('mQwAAAHicY2ZgYDgIxMeAeD8QN0FxKxCbGukxWJkbMdjbmDPwA/kgzArEjEgYCAAThQXj');
ToBird := DTMFromString('mlwAAAHicY2dgYGAFYnYgZmaAADYomxOIeYCYESrODpUDYQ4gvrfejeHDVQEwBrHf7+MHYxCbCyjPhAMz4sFQAAAJ+A0J');

 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
  Smart_Server := 86;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;

  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.

Will test this and tell you how to fix some stuff if any problems are found.

problems will be found fo sure =P

From: ogustuce
problems will be found fo sure =P

Not that many, its just a little slow, and clicks on the arrow sometimes instead of the bird.

Also a Progress Report would be nice. ;) If you need help with this PM me.

ok thnx

if eny others want to test then sugest improvements, GO AHEAD =D

dtms in the main screen usually don't work as well i have found as using colors and tolerances but this script looks pretty nice. And maybe you should wait for the uptext so like Inh said if clicks other things than just the falcon. ;)

il try this, hope i can help