Results 1 to 7 of 7

Thread: Reflection Broken?

  1. #1
    Join Date
    Sep 2008
    Posts
    241
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Reflection Broken?

    Whenever I use GetAnimation > 0, it always returns -1.

    I tried almost everything, but no luck.

    Here is my script:
    SCAR Code:
    program Shrimper;
    {.Include SRL\SRL\misc\Smart.scar}
    {.Include SRL\SRL.scar}
    {.Include SRL\SRL\reflection\reflection.scar}
    {.Include SRL\SRL\skill\Fishing.scar}

    var mx, my: Integer;

    procedure SetupSMART;
    begin
      Smart_Members := False;
      Smart_Server := RandomWorld(false, false);
      Smart_Signed := False;
      Smart_SuperDetail := False;
    end;

    procedure DeclarePlayer;
    begin

      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name   := '';
      Players[0].Pass   := '';
      Players[0].Nick   := '';
      Players[0].Active := true;

    end;

    procedure ToFish;
    var mx, my: Integer;

    begin
      if (FindSymbol(mx, my, 'fish')) then
      begin
        FindNormalRandoms;
        Mouse(mx, my, 0, 0, true);
      end else
      begin
        while not(FindSymbol(mx, my, 'fish')) do
        begin
          FindNormalRandoms;

          MakeCompass('n');
          MouseBox(585, 100, 619, 127, 1);

          FFlag(20);
        end;

        FindNormalRandoms;

        Mouse(mx, my, 0, 0, true);
      end;
    end;

    procedure ToBank;
    var mx, my: Integer;

    begin
      if (FindSymbol(mx, my, 'bank')) then
      begin
        FindNormalRandoms;
        Mouse(mx, my, 0, 0, true);
      end else
      begin
        while not(FindSymbol(mx, my, 'bank')) do
        begin
          FindNormalRandoms;

          MakeCompass('n');
          MouseBox(612, 36, 651, 15, 1);

          FFlag(20);
        end;

        FindNormalRandoms;

        Mouse(mx, my, 0, 0, true);
      end;
    end;

    procedure FindFish;
    var mx, my: Integer;

    begin
      if (FindFishSpot(mx, my, 'net')) then
      begin
        if not(FindWhirlpoolMS) then
        begin
          Mouse(mx, my, 0, 0, true);
          FFlag(10);
        end else
        begin
          HandleWhirlPool;
          Mouse(mx, my, 0, 0, true);
          FFlag(10);
        end;
      end;
    end;

    procedure AntiBan;
    begin
      case RandomRange(1, 50) of
        1: BoredHuman;
        2: HoverSkill('fishing', false);
        3: RandomMovement;
        4: GameTab(RandomRange(1, 15));
        5: Sleep(RandomRange(4000, 10000));
      end;
    end;

    function IsFishing: Boolean;
    begin
      if (GetAnimation > 0) then
      begin
        Result := true;
      end else
      begin
        Result := false;
      end;
    end;

    begin
      SetupSRL;
      SetupSMART;
     
      srl_LoadBitmapRange(88, 89);

      DeclarePlayer;
      LoginPlayer;

      ToFish;
     
      FFlag(5);
     
      FindFish;
      repeat
        repeat
          FindNormalRandoms;
         
          if (InvFull) then
          begin
            ToBank;
            FFlag(3);
            OpenBankFast('draynor');
           
            while (FindBitmapTolerance(bmp_Food_Raw_Shrimps, mx, my, 3) or (FindBitmapTolerance(bmp_Food_Raw_Anchovies, mx, my, 3))) do
            begin
              Sleep(RandomRange(300, 500));
              Mouse(mx, my, 5, 5, false);
              Sleep(RandomRange(100, 200));
              ChooseOption('ll');
            end;

            ToFish;
            Sleep(RandomRange(1000, 2500));
            AntiBan;
            Sleep(RandomRange(1000, 2500));
            FindFish;
          end;
           
          AntiBan;
        until not(IsFishing);
       
        ToFish;
        FFlag(5);
        FindFish;
      until false;
    end.

    Any help?
    PM me if you need any help with math.
    I can try to help you with anything!


  2. #2
    Join Date
    Sep 2008
    Posts
    241
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I just saw like 5 people look at my script and leave.

    Is my coding THAT bad?
    PM me if you need any help with math.
    I can try to help you with anything!


  3. #3
    Join Date
    Jun 2006
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lmao one of them was me XD

    Try creating a simple debug script that Writes the result of GetAnimation every time you press a certain key or something.

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

    Default

    Quote Originally Posted by xXxBlender3DxXx View Post
    I just saw like 5 people look at my script and leave.

    Is my coding THAT bad?
    Not really. Anyway, make sure your hooks are updated. Call SetupReflection after SetupSRL.

  5. #5
    Join Date
    Sep 2008
    Posts
    241
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I just did.

    Output:
    Code:
    SRL Compiled in 15 msec
    SmartInitServer Initialized: Loaded: Server 4, Free, Signed, Standard Client.
    {not for you to see :P}
    Creating the NickTPA.
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    -1
    Successfully executed
    PM me if you need any help with math.
    I can try to help you with anything!


  6. #6
    Join Date
    Sep 2008
    Posts
    241
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SetupReflection?

    Oh (facepalm) never knew about that function.
    PM me if you need any help with math.
    I can try to help you with anything!


  7. #7
    Join Date
    Jan 2008
    Location
    California, US
    Posts
    2,765
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Mhm, like I said on ZaszMedia before these people .

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
  •