Results 1 to 7 of 7

Thread: Using Gift Fails

  1. #1
    Join Date
    May 2009
    Posts
    799
    Mentioned
    2 Post(s)
    Quoted
    16 Post(s)

    Default Using Gift Fails

    Hey!
    When Randoms are solved, it clicks the gift, selects the Reward, and closes the window with the X instead of accepting the gift :X.

    Is there a fix for that Problem yet :O?

    ~caused

  2. #2
    Join Date
    Aug 2007
    Location
    in a random little world
    Posts
    5,778
    Mentioned
    0 Post(s)
    Quoted
    7 Post(s)

  3. #3
    Join Date
    Oct 2006
    Location
    ithurtsithurtsithurtsithurts
    Posts
    2,930
    Mentioned
    7 Post(s)
    Quoted
    135 Post(s)

    Default

    Did you set up the BoxRewards option for your players?

  4. #4
    Join Date
    May 2009
    Posts
    799
    Mentioned
    2 Post(s)
    Quoted
    16 Post(s)

    Default

    Senrath: yes.

    ShuttleU: Nothing ;/... And it tries it whenever the findrandoms function is called ; '(

  5. #5
    Join Date
    May 2009
    Posts
    799
    Mentioned
    2 Post(s)
    Quoted
    16 Post(s)

    Default

    I got the Same Problem again right now, Here's an Screenshot.


  6. #6
    Join Date
    Jan 2008
    Location
    Ontario, Canada
    Posts
    7,805
    Mentioned
    5 Post(s)
    Quoted
    3 Post(s)

    Default

    SCAR Code:
    {*******************************************************************************
    procedure UseRewardBox: Boolean;
    by: Nava2
    Description: Finds the reward box, and opens it getting the reward.
    *******************************************************************************}


    function UseRewardBox: Boolean;
    var
      I, Time, Height, fx, fy: Integer;
      Text, TPA: TPointArray;
      B: TBox;
      bDTM: Integer;
    begin
      Result := False;
      if not LoggedIn then Exit;
      GameTab(4);
      if (not(FindColorTolerance(fX, fY, 7280034, MIX1, MIY1, MIX2, MIY2, 20))) then Exit;
      bDTM := DTMFromString('78DA634C626660B8C4C8800C568B963070006' +
                            '990E87F20608C04AA398EAA06220B23813448CD65026A0A816AAE' +
                            '12A1E62401359940351751D5DC889782BB19AC2619A8E6087E730' +
                            '0776A0F22');
      for I := 1 to 28 do
      begin
        B := InvBox(I);
        if FindItemEx(fx, fy, 'dtm', bDTM, B, []) then
        begin
          MMouseItem(I);
          Wait(RandomRange(100, 150));
          Result := IsUpText('event gift');
          if Result then Break;
        end;
      end;
      FreeDTM(bDTM);
      if not Result then Exit;

      GetMousePos(fx, fy);
      Mouse(fx, fy, 0, 0, True);

      Result := False;
      Text := LoadTextTPA('hoose', UpChars, Height);
      Time := GetTimeRunning + 10000;
      FindColorsTolerance(TPA, 2070783, 185, 34, 327, 50, 3);
      while not Result and (GetTimeRunning < Time) do
      begin
        Wait(RandomRange(80, 100));
        FindColorsTolerance(TPA, 2070783, 185, 34, 327, 50, 3);
        if Length(TPA) > 10 then
          Result := FindTextTPAinTPA(Height, Text, TPA, TPA);
      end;

      if not Result then
      begin
        SRL_Warn('OpenRewardBox', 'Could not open Reward Screen', Warn_AllVersions);
        Exit;
      end;
      Wait(Random(100));
      if not FindBoxOption(B) then
      begin
        SRL_Warn('UseRewardBox', 'Could not find a usable option.', Warn_AllVersions);
        Exit;
      end;
      MouseBox(B.x1, B.y1, B.x2, B.y2, 1);
      Time := GetTimeRunning + 2000;
      Result := False;
      while (not Result) and (GetTimeRunning < Time) do
      begin
        FindColorsTolerance(TPA, 1317148, 35, 70, 362, 311, 3);
        Result := Length(TPA) > 50;
      end;
      if not Result then
      begin
        CloseWindow;
        Exit;
      end;
      Mouse(393, 166, 77, 39, True);
    end;

    Fix'd
    Last edited by Wizzup?; 06-23-2009 at 06:18 AM.
    Writing an SRL Member Application | [Updated] Pascal Scripting Statements
    My GitHub

    Progress Report:
    13:46 <@BenLand100> <SourceCode> @BenLand100: what you have just said shows you 
                        have serious physchological problems
    13:46 <@BenLand100> HE GETS IT!
    13:46 <@BenLand100> HE FINALLY GETS IT!!!!1

  7. #7
    Join Date
    Apr 2007
    Location
    Perth, Australia
    Posts
    3,926
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    Fixed properly

Thread Information

Users Browsing this Thread

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

Tags for this Thread

Posting Permissions

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