Results 1 to 3 of 3

Thread: Array DTMs Problem

  1. #1
    Join Date
    Jan 2009
    Location
    Tacoma,Wa
    Posts
    338
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Question Array DTMs Problem

    Hello, Well as Frement put it in my last thread I created he used Array for my DTMs and I made another one for Longbows and Shortbows but I keep getting this error:

    Code:
    Error: Out Of Range at line 115
    The following DTMs were not freed: [SRL - Lamp bitmap, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12]
    The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap]
    File[C:\Simba\Includes\SRL\Logs\SRL Log 14-07-10 11.txt] has not been freed in the script, freeing it now.
    Then it points me to this:

    Code:
      DTMarray2[SBOW_NORMAL] := DTMFromString('78DA633CC8CCC030839101194459F330F0036' +
           '990E87F2060DC0454B310550D030313988489329E03AAE926A0E6' +
           '3850CD34026AF603D5CCC1AF060087550B90');
    Here is how I got it setup:

    SCAR Code:
    var
      LOG_NORMAL, LOG_OAK, LOG_WILLOW, LOG_MAPLE, LOG_YEW, LOG_MAGIC, T,
      LBOW_NORMAL, LBOW_OAK, LBOW_WILLOW, LBOW_MAPLE, LBOW_YEW, LBOW_MAGIC,
      SBOW_NORMAL, SBOW_OAK, SBOW_WILLOW, SBOW_MAPLE, SBOW_YEW, SBOW_MAGIC: Integer;
      DTMarray, DTMarray2: TIntegerArray;

    const
      SMART_WORLD  = 152;   // World to load
      SMART_MEMBER = True; // True = Members world
      RestEvery    = 23; //In minutes
      RestFor      = 12; //In minutes

    procedure DeclareVars;
    begin
      LOG_NORMAL := 0;
      LOG_OAK := 1;
      LOG_WILLOW := 2;
      LOG_MAPLE := 3;
      LOG_YEW := 4;
      LOG_MAGIC := 5;
      LBOW_NORMAL := 6;
      LBOW_OAK := 7;
      LBOW_WILLOW := 8;
      LBOW_MAPLE := 9;
      LBOW_YEW := 10;
      LBOW_MAGIC := 11;
      SBOW_NORMAL := 12;
      SBOW_OAK := 13;
      SBOW_WILLOW := 14;
      SBOW_MAPLE := 15;
      SBOW_YEW := 16;
      SBOW_MAGIC := 17;
    end;

    procedure DeclarePlayers;
    begin
      NumberOfPlayers(1);
      CurrentPlayer := 0;
      with Players[0] do
      begin
        Name := '';
        Pass := '';
        Nick := '';
        Active := True;
        Integers[0] := LOG_YEW // What Type of Logs To Cut?
        Integers[1] := LBOW_YEW // LongBow of logs or shortbow of logs?
        LampSkill := 'fletching';
        BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
      end;
    end;

    procedure LoadDTMs;
    begin
      LOG_NORMAL := 0;
      LOG_OAK := 1;
      LOG_WILLOW := 2;
      LOG_MAPLE := 3;
      LOG_YEW := 4;
      LOG_MAGIC := 5;
      SetArrayLength(DTMarray, 6);
      DTMarray[LOG_NORMAL] := DTMFromString('78DA63CC6166602860644006C9DE3A0CFC401' +
           'A24FA1F0818AB816ACA51D530303081499828633C504D0D013525' +
           '4035E904D42402D5E4E0570300B3DE095D');
      DTMarray[LOG_OAK] := DTMFromString('78DA639CCECCC050C0C8800C3AD26D19F8813' +
           '448F43F1030CE03AA494755C3C0C0042661A28C3D40353504D4CC' +
           '07AAA922A0A61BA82607BF1A0039500A82');
      DTMarray[LOG_WILLOW] := DTMFromString('78DA633CC0CCC050C0C8800C5C6DC518F8813' +
           '448F43F10309E00AA494755C3C0C0042661A28CDB806A6A08A839' +
           '055453458439D9F8D5000034A60AC0');
      DTMarray[LOG_MAPLE] := DTMFromString('78DA637CCDCCC090C7C8800C626C7919F8813' +
           '448F43F10307E02AA494755C3C0C0042661A28C0F816A6A09A8F9' +
           '0C54534540CD03A09A6CFC6A00951E0BA0');
      DTMarray[LOG_YEW] := DTMFromString('78DA63CC61666098C2C8800CFC2CB919F8813' +
           '44C94B104A8A61B550D030313440EA62606A86636013555403573' +
           '08A84902AAE9C7AF06007E0E05C5');
      DTMarray[LOG_MAGIC] := DTMFromString('78DA639CCCCCC0308591011934548431F0036' +
           '990E87F20605C0454B300550D03031398848932CE03AAE921A0A6' +
           '830873BA816A26E25703009B4E0B57');
    begin
      LBOW_NORMAL := 6;
      LBOW_OAK := 7;
      LBOW_WILLOW := 8;
      LBOW_MAPLE := 9;
      LBOW_YEW := 10;
      LBOW_MAGIC := 11;
      SBOW_NORMAl := 12;
      SBOW_OAK := 13;
      SBOW_WILLOW := 14;
      SBOW_MAPLE := 15;
      SBOW_YEW := 16;
      SBOW_MAGIC := 17;
      SetArrayLength(DTMarray2, 12);
      DTMarray2[LBOW_NORMAL] := DTMFromString('78DA63CC63666028646440062D61C20CFC401' +
           'A24FA1F0818CB816A6A51D530303081499828633C504D3A0135D9' +
           '40355904D49402D594E0570300BC8B0976');
      DTMarray2[LBOW_OAK] := DTMFromString('78DA639CC1CCC050C8C8800C56774830F0036' +
           '990E87F20605C0454D388AA868181094CC244193B816AD209A899' +
           '0A54934540CD7CA09A12FC6A00519F0AAB');
      DTMarray2[LBOW_WILLOW] := DTMFromString('78DA633CC4CCC050C8C8800C664DD067E007D' +
           '220D1FF40C07816A8A601550D030313988489326E06AA4927A0E6' +
           '00504D36013527816A4AF0AB0100B27D0B8D');
      DTMarray2[LBOW_MAPLE] := DTMFromString('78DA637CCDCCC050C0C8800C964CEE63E007D' +
           '220D1FF40C0F80DA8A60E550D03031398848932DE06AA4925A0E6' +
           '25504D3601359F806A8AF1AB010047DD0CBF');
      DTMarray2[LBOW_YEW] := DTMFromString('78DA63CC63666098CAC8800C564F9660E007D' +
           '220D1FF40C0580954B304550D03031398848932C603D574135093' +
           '0354D34F404D2950CD0CFC6A0049A80A9A');
      DTMarray2[LBOW_MAGIC] := DTMFromString('78DA639CC1CCC0309591011928176630F0036' +
           '990E87F20605C0C54B304550D030313988489327602D574135033' +
           '0DA8A69F809AF9403533F0AB010068B00B12');
      DTMarray2[SBOW_NORMAL] := DTMFromString('78DA633CC8CCC030839101194459F330F0036' +
           '990E87F2060DC0454B310550D030313988489329E03AAE926A0E6' +
           '3850CD34026AF603D5CCC1AF060087550B90');
      DTMarray2[SBOW_OAK] := DTMFromString('78DA637CCDCCC0308391011994C60A30F0036' +
           '990E87F2060BC0354B310550D03031398848932FE00AAE926A0E6' +
           '2350CD34026A5E02D5CCC1AF060007A00CA3');
      DTMarray2[SBOW_WILLOW] := DTMFromString('78DA63CC656660D8C3C8800C32931418F8813' +
           '448F43F1030C601D51C4555C3C0C0042661A28C554035EB09A829' +
           '06AAD945404D3650CD01FC6A004E260AEA');
      DTMarray2[SBOW_MAPLE] := DTMFromString('78DA639CCECCC0B08791011914A62631F0036' +
           '990E87F2060EC00AA398AAA868181094CC244199700D5AC27A066' +
           '2E50CD2E026AA602D51CC0AF0600D5850C09');
      DTMarray2[SBOW_YEW] := DTMFromString('78DA633CC8CCC0B08791011994A60A30F0036' +
           '990E87F20603C0754B31E550D030313988489326E02AA394A40CD' +
           '71A09A5D04D4EC07AA39805F0D00FE070C8D');
      DTMarray2[SBOW_MAGIC] := DTMFromString('78DA637CCDCCC0B08791011988FBB831F0036' +
           '990E87F2060FC0154B31E550D03031398848932DE01AA394A40CD' +
           '47A09A5D04D4BC04AA39805F0D002CE90D1E');
      end;
    end;

    procedure FreeDTMs;
    var
      I, E: Integer;
    begin
      for I := 0 to High(DTMarray) do
        FreeDTM(DTMarray[I]);
      for E := 6 to High(DTMarray) do
        FreeDTM(DTMarray[E]);
    end;

    Little help
    Last edited by ffcfoo; 07-14-2010 at 10:40 PM.

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

    Default

    when you put
    SCAR Code:
    SetArrayLength(DTMarray2, 12);
    it done DTMarray2[0] through to DTMarray2[11]
    not DTMarray2[6] through to DTMarray2[17]

    ~shut

    EDIT: replace
    SCAR Code:
    DTMarray, DTMarray2: TIntegerArray;
    with
    SCAR Code:
    DTMarray: array [0..5] of Integer;
    DTMarray2: array [6..17] of Integer;

  3. #3
    Join Date
    Jan 2009
    Location
    Tacoma,Wa
    Posts
    338
    Mentioned
    0 Post(s)
    Quoted
    11 Post(s)

    Default

    Quote Originally Posted by Shuttleu View Post
    when you put
    SCAR Code:
    SetArrayLength(DTMarray2, 12);
    it done DTMarray2[0] through to DTMarray2[11]
    not DTMarray2[6] through to DTMarray2[17]

    ~shut

    EDIT: replace
    SCAR Code:
    DTMarray, DTMarray2: TIntegerArray;
    with
    SCAR Code:
    DTMarray: array [0..5] of Integer;
    DTMarray2: array [6..17] of Integer;
    Thanks Shuttleu!

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
  •