SRL Archive - MSI Suggestions

Walking_color

{******************************************************************************}
{ function MSI_WC_PSPoints(Index: Integer): TPoint;                            }
{ By: Camaro'                                                                  }
{ Date: 05 November 2010                                                       }
{ Description: Returns a point on the minimap depending on the specified       }
{              location by 'index'                                             }
{******************************************************************************}
function MSI_WC_PSPoints(Index: Integer): TPoint;
var
  TPA: TPointArray;
  I , X, Y :Integer;
begin
  Result := Point(-1, -1);

  case Index of
    WALK_WC_PS_WILLOW_1:
      begin
        FindColorsSpiralTolerance(MMCX, MMCY, TPA, Color_PS_Path, MMX1, MMY1, MMX2, MMy2, 20);
        SortTPAFrom(TPA, Point(662, 30));
        for I := 0 to High(TPA) do
        begin
          X := TPA[I].x;
          Y := TPA[I].y;

          if not RS_onMinimap(X + 8, Y - 3) then
            Continue;
          Result := Point(X + 8, Y - 3);
          Break;
        end;
      end;

    WALK_WC_PS_WILLOW_2:
      begin
        FindColorsSpiralTolerance(MMCX, MMCY, TPA, Color_Willow_MM ,MMX1, MMY1, MMX2, MMy2, 20);
        SortTPAFrom(TPA, Point(639, 72));
        for I := 0 to High(TPA) do
        begin
          X := TPA[I].x;
          Y := TPA[I].y;

          if not RS_onMinimap(X, Y) then
            Continue;
          Result := Point(X + 4, Y + 4);
          Break;
        end;
      end;

    WALK_WC_PS_WILLOW_BANK_1:
      begin
        FindColorsSpiralTolerance(MMCX, MMCY, TPA, Color_PS_PATH, MMX1, MMY1, MMX2, MMy2, 20);
        SortTPAFrom(TPA, Point(585, 115));
        for I := 0 to High(TPA) do
        begin
          X := TPA[I].x;
          Y := TPA[I].y;

          if not RS_onMinimap(X, Y) then
            Continue;
          Result := Point(X, Y);
          Break;
        end;
      end;


    WALK_WC_PS_WILLOW_BANK_2:
      begin
        FindColorsSpiralTolerance(MMCX, MMCY, TPA, Color_PS_PATH, MMX1, MMY1, MMX2, MMy2, 20);
        SortTPAFrom(TPA, Point(628, 140));
        for I := 0 to High(TPA) do
        begin
          X := TPA[I].x;
          Y := TPA[I].y;

          if not RS_onMinimap(X, Y) then
            Continue;
          Result := Point(X - 5, Y - 5);
          Break;
        end;
      end;
    else
      MSI_SubDebug('MSI_WC_PSPoints: Invalid walk point!');
  end;
end;        

{******************************************************************************}
{ function MSI_CreateWalkIndex(index: Integer): TPoint;                        }
{ By: The MSI Team                                                             }
{ Date: 10 June 2010                                                           }
{ Description: Returns a point on the minimap depending on the specified       }
{              location by 'index'                                             }
{******************************************************************************}
function MSI_CreateWalkIndex(index: Integer): TPoint;
begin
  case index of
    WALK_WC_VE_TREE_1..WALK_WC_VE_OAKS_2:
      Result := MSI_WC_VEPoints(index);

    WALK_WC_DB_WILLOWS_1, WALK_WC_DB_WILLOWS_BANK_1:
      Result := MSI_WC_DBPoints(index);

    WALK_MINE_LSW_1..WALK_MINE_LSW_BANK_7:
      Result := MSI_MINE_LSWPoints(index);

    WALK_FISH_DB_1, WALK_FISH_DB_BANK_1:
      Result := MSI_FISH_DBPoints(index);

    WALK_WC_GE_YEW_1..WALK_WC_GE_YEW_BANK_3:
      Result := MSI_WC_GEPoints(index);

    WALK_WC_PS_WILLOW_1..WALK_WC_PS_WILLOW_BANK_2:
      Result := MSI_WC_PSPoints(index);
  end;
end;          

Globals

  

COLOR_PS_PATH       = 1324616;
COLOR_WILLOW_MM     = 1063963;   



  WALK_WC_PS_WILLOW_1 = 35;
  WALK_WC_PS_WILLOW_2 = 36;

  WALK_WC_PS_WILLOW_BANK_1 = 37;
  WALK_WC_PS_WILLOW_BANK_2 = 38;     

I think its called
Script

          ColorTo    := [
                          WALK_WC_PS_WILLOW_1 , WALK_WC_PS_WILLOW_2
                        ];

          ColorFrom  := [
                          WALK_WC_PS_WILLOW_BANK_1,WALK_WC_PS_WILLOW_BANK_2
                        ];  

If I am missing anything, please tell me, or add it by your self.

:)

Thanks!

I'll test and commit this tomorrow. :)

From: NCDS
Thanks!

I'll test and commit this tomorrow. :)

No problem, someone needs to update the walking TO-DO list. I'm getting confused cause I completed some of them, and some uncompleted color-walking segments are not listed.

[QUOTE=Camaro';757125]No problem, someone needs to update the walking TO-DO list. I'm getting confused cause I completed some of them, and some uncompleted color-walking segments are not listed.
Yeah, there are a lot of things we need to update on the forums. :o

I'm going to work on that when I can. I have a couple exams coming up, plus Christmas holidays so I probably wont be around much the next couple weeks, but I'll add it to my to-do list.

Thanks :)

[QUOTE=Camaro';757759]Thanks :)[/QUOTE]

Hmmmmmmmmmmmmmmmmmm?

"so I probably wont be around much the next couple weeks, but I'll add it to my to-do list."

Theres other commiters :p. MSI Seems to be updating, except without this :)

I just bumped it so other commiters can see.

Committed and I'd like you to read this.