Results 1 to 4 of 4

Thread: Can some1 help test out this p2p script!It doesn't work..

  1. #1
    Join Date
    Jan 2012
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Can some1 help test out this p2p script!It doesn't work..

    Simba Code:
    program FriendlyFletcher ;
    {$DEFINE SMART}
    {$DEFINE CRASHSMART}
    {$i srl/srl.simba}
    {$i SPS\SPS.simba}

    const
      S_World = 65;
      S_Signed = True;
      S_Member = True;
      Version = '1.00';
      SRLstats_Username = '';
      SRLstats_Password = '';
      BreakEvery = '';// How long until you break
      BreakFor = '';// How long the break is

    procedure DeclarePlayer;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      with Players[0] do
      begin
        Name := ''; //USERNAME
        Pass := ''; //PASSWORD
        Pin := ''; //PIN (if any)
        Active := True;
      end;
    end;

    procedure ArrowCreation;
    var
      x, y, ArrowShaft, Feather, HeadlessArrow, Arrowtips : Integer;
    Begin
      ArrowShaft := DTMFromString('m6wAAAHic42ZgYOAFYkkGCOAGYgEg5gJiMSBmAmIRIBYCYj6oOANUTAJKs0PFuaFqYMBRlRNqAmFsxEA8YCQBIwEAMF0B1w==');
      If FindDTM (ArrowShaft, X, Y, MIX1, MIY1, MIX2, MIY2) then
      begin
        WriteLn('Found Object');
        MMouse(X, Y, 7, 7);
        If IsUpText ('rrow') Then
          Mouse (X, Y, 0, 0, mouse_Left);
      End;

      Feather := DTMFromString('mwQAAAHic42RgYBBggABmIOYGYiEglgBiWSgWh4rLQ+VAfDEg5gViNqheRiBet3w5kGTCi+UYCANGIjAcAACoeQNT');
      If FindDTM (Feather, X, Y, MIX1, MIY1, MIX2, MIY2) then
      begin
        WriteLn('Found Feathers')
        MMouse(X, Y, 7, 7);
        If IsUpText ('eather') then
          Mouse (X, Y, 0, 0, mouse_Left);
        wait (11 + Random (1));
      end;

      HeadlessArrow := DTMFromString('mkwEAAHicrc5JCoAwDIXhVIsTDljHIngx738P/8JbuHDZwEehSR5ZzKxHpzeVg0eFgEG9E5uk/4gdJUZcmHCov2LWbqO5lFuj1Wz4ZHhlR93xhLRZZHFbvnIZ/dQLS2oC3Q==');
      If FindDTM (HeadlessArrow, X, Y, MIX1, MIY1, MIX2, MIY2) then
      begin
        WriteLn('Found HeadlessArrows')
        MMouse(X, Y, 7, 7);
        If IsUpText ('eadless') then
          Mouse (X, Y, 0, 0, mouse_Left);
      end;

      HeadlessArrow := DTMFromString('mVAEAAHicpc1JCoAwEETRjuKEiHFYuFDvEvD+V9LfUCC4NAUvUKHTiWbWY7U3BWp02HDiwK7uswsiBgTt8JR6W6FRD+qt5vx+xIwJV0r69Z+bM0fI9M0DeUASZg==');
      If FindDTM (HeadlessArrow, X, Y, MIX1, MIY1, MIX2, MIY2) then
      begin
        WriteLn('Found HeadlessArrow')
        MMouse(X, Y, 7, 7);
        If IsUpTextMultiCustom (['eadless','rrow']) then
          Mouse (X, Y, 0, 0, mouse_Left);
      end;

      Arrowtips := DTMFromString('mVAEAAHicpc1JCoAwEETRjuKEiHFYuFDvEvD+V9LfUCC4NAUvUKHTiWbWY7U3BWp02HDiwK7uswsiBgTt8JR6W6FRD+qt5vx+xIwJV0r69Z+bM0fI9M0DeUASZg==');
      If FindDTM (Feather, X, Y, MIX1, MIY1, MIX2, MIY2) then
      begin
        WriteLn('Found Arrowtips')
        MMouse(X, Y, 7, 7);
        If IsUpText ('rrowtips') then
          Mouse (X, Y, 0, 0, mouse_Left);
      end;

      FreeDTM(ArrowShaft);
      FreeDTM(Arrowtips);
      FreeDTM(Feather);
      FreeDTM(HeadlessArrow);
    End;

    begin
      SetUpSRL;
      DeclarePlayer;
      LogInPlayer;

      repeat
        ArrowCreation;
      until(false);
    end.

  2. #2
    Join Date
    Jan 2012
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    This is supposed to make arrows from arrow shafts, then headless arrows, then to the product of arrows but it doesn't seem to work.

  3. #3
    Join Date
    Nov 2011
    Posts
    132
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    what does the script currently do?
    does any of it work?

    I suggest breaking it down a bit by making more procedures after every end;

  4. #4
    Join Date
    Jan 2012
    Posts
    85
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I am not sure since i am new,but it tries to click arrowshafts, somehow missed it clicks on feathers, then it clicks on the task tab...and the mouse shakes very fast

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
  •