Results 1 to 1 of 1

Thread: Broken world selector? LOOK HERE.

  1. #1
    Join Date
    Feb 2013
    Location
    Rimmington
    Posts
    319
    Mentioned
    33 Post(s)
    Quoted
    183 Post(s)

    Default Broken world selector? LOOK HERE.



    Run the script below and edit the const "Worlds" until they all match the debug. You might need to play around with the gridbox a bit. Don't forget that you still need to update f2p/p2p and pvp worlds in reflection/lib/internals/login.simba's SortWorld function

    The text color by the world means,
    White: F2p world
    Green: P2p world
    Yellow: Unknown
    Red: Pvp world

    Make sure the world array is correct before fixing the world type.

    Simba Code:
    program new;
    {$DEFINE SMART}
    {$i Reflection/Reflection.simba}

    procedure paintWorlds;
    const
      Worlds: TIntegerArray = [301, 321, 345, 369,
                               302, 322, 346, 370,
                               303, 325, 349, 373,
                               304, 326, 350, 374,
                               305, 327, 351, 375,
                               306, 328, 352, 376,
                               308, 329, 353, 377,
                               309, 330, 354, 378,
                               310, 333, 357, 381,
                               311, 334, 358, 382,
                               312, 335, 359, 383,
                               313, 336, 360, 384,
                               314, 337, 361, 385,
                               316, 338, 362, 386,
                               317, 341, 365, 393,
                               318, 342, 366, 394,
                               319, 343, 367, -1,
                               320, 344, 368, -1];

    var
      I: Integer;
      PVPW, FreeW, MembW: TIntegerArray;
    begin
      PVPW := [325, 337];
      FreeW := [301, 308, 316, 326, 335, 381, 382, 383, 384, 385, 393, 394];
      MembW := [302, 303, 304, 305, 306, 309, 310, 311, 312, 313, 314, 317,
                318, 319, 320, 321, 322, 327, 328, 329, 330, 333, 334, 336,
                338, 341, 342, 343, 344, 345, 346, 349, 350, 351, 352, 353,
                354, 357, 358, 359, 360, 361, 362, 365, 366, 367, 368, 369,
                370, 373, 374, 375, 376, 377, 378, 386];
      For I:=0 to High(Worlds)do
      begin
        Reflect.Smart.Graphics.DrawBox(Reflect.Math.GridBox(I + 1, 4, 18, 87, 18, 93, 24, Point(242, 58)));
        If InIntArray(PVPW, Worlds[I])then
          Reflect.Smart.Graphics.DrawClippedText(ToStr(Worlds[I]), 'smallChars07', MiddleBox(Reflect.Math.GridBox(I + 1, 4, 18, 87, 18, 93, 24, Point(242, 58))), clRed) else
        If InIntArray(FreeW, Worlds[I])then
          Reflect.Smart.Graphics.DrawClippedText(ToStr(Worlds[I]), 'smallChars07', MiddleBox(Reflect.Math.GridBox(I + 1, 4, 18, 87, 18, 93, 24, Point(242, 58))), clWhite) else
        If InIntArray(MembW, Worlds[I])then
          Reflect.Smart.Graphics.DrawClippedText(ToStr(Worlds[I]), 'smallChars07', MiddleBox(Reflect.Math.GridBox(I + 1, 4, 18, 87, 18, 93, 24, Point(242, 58))), clGreen) else
        Reflect.Smart.Graphics.DrawClippedText(ToStr(Worlds[I]), 'smallChars07', MiddleBox(Reflect.Math.GridBox(I + 1, 4, 18, 87, 18, 93, 24, Point(242, 58))), clYellow);
      end;
    end;

    begin
      Reflect.Setup;
      Reflect.Smart.Graphics.Clear;
      paintWorlds;
    end.
    Last edited by Fitta; 08-25-2015 at 12:37 PM.

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
  •