Results 1 to 7 of 7

Thread: Ogy's Flacony BETA

  1. #1
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default Ogy's Flacony BETA

    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

    Simba Code:
    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.

  2. #2
    Join Date
    Feb 2012
    Posts
    93
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

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

  3. #3
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    problems will be found fo sure =P

  4. #4
    Join Date
    Feb 2012
    Posts
    93
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by ogustuce View Post
    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.

  5. #5
    Join Date
    Feb 2012
    Posts
    224
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    ok thnx

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

  6. #6
    Join Date
    Nov 2011
    Location
    United states
    Posts
    516
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    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.

  7. #7
    Join Date
    Jan 2012
    Posts
    470
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    il try this, hope i can help

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •