Array DTMs Problem

[ffcfoo]

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:


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:


DTMarray2[SBOW_NORMAL] := DTMFromString('78DA633CC8CCC030839101194459F330F00 36' +
'990E87F2060DC0454B310550D030313988489329E03AAE926 A0E6' +
'3850CD34026AF603D5CCC1AF060087550B90');

Here is how I got it setup:

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('78DA63CC6166602860644006C9DE3A0CFC4 01' +
'A24FA1F0818AB816ACA51D530303081499828633C504D0D01 3525' +
'4035E904D42402D5E4E0570300B3DE095D');
DTMarray[LOG_OAK] := DTMFromString('78DA639CCECCC050C0C8800C3AD26D19F88 13' +
'448F43F1030CE03AA494755C3C0C0042661A28C3D40353504 D4CC' +
'07AAA922A0A61BA82607BF1A0039500A82');
DTMarray[LOG_WILLOW] := DTMFromString('78DA633CC0CCC050C0C8800C5C6DC518F88 13' +
'448F43F10309E00AA494755C3C0C0042661A28CDB806A6A08 A839' +
'055453458439D9F8D5000034A60AC0');
DTMarray[LOG_MAPLE] := DTMFromString('78DA637CCDCCC090C7C8800C626C7919F88 13' +
'448F43F10307E02AA494755C3C0C0042661A28C0F816A6A09 A8F9' +
'0C54534540CD03A09A6CFC6A00951E0BA0');
DTMarray[LOG_YEW] := DTMFromString('78DA63CC61666098C2C8800CFC2CB919F88 13' +
'44C94B104A8A61B550D030313440EA62606A8663601355540 3573' +
'08A84902AAE9C7AF06007E0E05C5');
DTMarray[LOG_MAGIC] := DTMFromString('78DA639CCCCCC0308591011934548431F00 36' +
'990E87F20605C0454B300550D03031398848932CE03AAE921 A0A6' +
'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('78DA63CC63666028646440062D61C20CFC4 01' +
'A24FA1F0818CB816A6A51D530303081499828633C504D3A01 35D9' +
'40355904D49402D594E0570300BC8B0976');
DTMarray2[LBOW_OAK] := DTMFromString('78DA639CC1CCC050C8C8800C56774830F00 36' +
'990E87F20605C0454D388AA868181094CC244193B816AD209 A899' +
'0A54934540CD7CA09A12FC6A00519F0AAB');
DTMarray2[LBOW_WILLOW] := DTMFromString('78DA633CC4CCC050C8C8800C664DD067E00 7D' +
'220D1FF40C07816A8A601550D030313988489326E06AA4927 A0E6' +
'00504D36013527816A4AF0AB0100B27D0B8D');
DTMarray2[LBOW_MAPLE] := DTMFromString('78DA637CCDCCC050C0C8800C964CEE63E00 7D' +
'220D1FF40C0F80DA8A60E550D03031398848932DE06AA4925 A0E6' +
'25504D3601359F806A8AF1AB010047DD0CBF');
DTMarray2[LBOW_YEW] := DTMFromString('78DA63CC63666098CAC8800C564F9660E00 7D' +
'220D1FF40C0580954B304550D03031398848932C603D57413 5093' +
'0354D34F404D2950CD0CFC6A0049A80A9A');
DTMarray2[LBOW_MAGIC] := DTMFromString('78DA639CC1CCC0309591011928176630F00 36' +
'990E87F20605C0C54B304550D030313988489327602D57413 5033' +
'0DA8A69F809AF9403533F0AB010068B00B12');
DTMarray2[SBOW_NORMAL] := DTMFromString('78DA633CC8CCC030839101194459F330F00 36' +
'990E87F2060DC0454B310550D030313988489329E03AAE926 A0E6' +
'3850CD34026AF603D5CCC1AF060087550B90');
DTMarray2[SBOW_OAK] := DTMFromString('78DA637CCDCCC0308391011994C60A30F00 36' +
'990E87F2060BC0354B310550D03031398848932FE00AAE926 A0E6' +
'2350CD34026A5E02D5CCC1AF060007A00CA3');
DTMarray2[SBOW_WILLOW] := DTMFromString('78DA63CC656660D8C3C8800C32931418F88 13' +
'448F43F1030C601D51C4555C3C0C0042661A28C554035EB09 A829' +
'06AAD945404D3650CD01FC6A004E260AEA');
DTMarray2[SBOW_MAPLE] := DTMFromString('78DA639CCECCC0B08791011914A62631F00 36' +
'990E87F2060EC00AA398AAA868181094CC244199700D5AC27 A066' +
'2E50CD2E026AA602D51CC0AF0600D5850C09');
DTMarray2[SBOW_YEW] := DTMFromString('78DA633CC8CCC0B08791011994A60A30F00 36' +
'990E87F20603C0754B31E550D030313988489326E02AA394A 40CD' +
'71A09A5D04D4EC07AA39805F0D00FE070C8D');
DTMarray2[SBOW_MAGIC] := DTMFromString('78DA637CCDCCC0B08791011988FBB831F00 36' +
'990E87F2060FC0154B31E550D03031398848932DE01AA394A 40CD' +
'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 :redface:

[Shuttleu]

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

~shut

EDIT: replace
DTMarray, DTMarray2: TIntegerArray;
with

DTMarray: array [0..5] of Integer;
DTMarray2: array [6..17] of Integer;

[ffcfoo]

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

~shut

EDIT: replace
DTMarray, DTMarray2: TIntegerArray;
with

DTMarray: array [0..5] of Integer;
DTMarray2: array [6..17] of Integer;

Thanks Shuttleu!