function help *advanced only plz*

[tls]

here is function...

function CountItemsDTMs(DTM : TIntegerArray; Including : Boolean) : Integer;
var r : LongInt; Item : TBox; I : Integer;
begin
  if not LoggedIn then Exit;
  GameTab(4);
  Wait(500);
  for r := 1 to 28 do
  begin
    if GetInvItemBounds(r, Item) then
    for I := 0 to High(DTM) do
    begin
      if Including then
      begin
        if FindDTM(DTM[I], x, y, Item.x1, Item.y1, Item.x2, Item.y2) then //line 379
          Inc(Result);
      end
      else
      begin
        if not FindDTM(DTM[I], x, y, Item.x1, Item.y1, Item.x2, Item.y2) then
          Inc(Result);
      end;
      FreeDTM(DTM[I]);
    end;
  end;
end;

here is error

[Runtime Error] : Exception: Access violation at address 006D691C in module 'scar.exe'. Read of address 00000000 in line 379 in script

help is appreciated and if you want it rep'd(for your cyberpenis...)

[The_Shermanator]

Try this.

function CountItemsDTMs(DTM : TIntegerArray; Including : Boolean) : Integer;
var r : LongInt; Item : TBox; I : Integer;
begin
  if not LoggedIn then Exit;
  GameTab(4);
  Wait(500);
  I := 1;
  for r := 1 to 28 do
  begin
    if GetInvItemBounds(r, Item) then
    for I := 0 to High(DTM) do
    begin
      if Including then
      begin
        if FindDTM(DTM[i], x, y, Item.x1, Item.y1, Item.x2, Item.y2) then //line 379
          Inc(Result);
      end
      else
      begin
        if not FindDTM(DTM[i], x, y, Item.x1, Item.y1, Item.x2, Item.y2) then
          Inc(Result);
      end;
      FreeDTM(DTM[i]);
    end;
  end;
end;

[tls]

Same problem...

[bullzeye95]

How do you declare DTM? Maybe it starts at 1 instead of 0.

[tls]

How do you declare DTM? Maybe it starts at 1 instead of 0.

do you want this?

function CountBarsInInv : Integer;
var barss : Integer;
begin
  barss := Barz;
  Result := CountItemsDTMs([Barss], True);
  FreeDTM(Barz);
end;

[lordsaturn]

function CountItemsDTMs(DTMs: TIntegerArray; Including: Boolean): integer;
var
  i, Hi, c: integer;
begin
  Hi := High(DTMs);
  if Hi < 0 then Exit;
  for i := 0 to Hi do
  begin
    c := CountItems(DTMs[i], 'dtm', []);
    if Including then
      IncEx(Result, c)
    else
      DecEx(Result, c);
  end;
end;

[bullzeye95]

do you want this?

function CountBarsInInv : Integer;
var barss : Integer;
begin
  barss := Barz;
  Result := CountItemsDTMs([Barss], True);
  FreeDTM(Barz);
end;

No, how do you declare the variable called "DTM"?
Like, is it "var DTM: Array of Integer;" or "var DTM: Array [x..x] of Integer;"?

[tls]

No, how do you declare the variable called "DTM"?
Like, is it "var DTM: Array of Integer;" or "var DTM: Array [x..x] of Integer;"?

its not var dtm... its just dtm:TIntegerArray.

[tls]

Solved... just used saturn's with some extra stuff(script specific)
end result without extra stuff

function CountItemsDTMs(DTMs: TIntegerArray; Including: Boolean): integer;
var
  i, Hi, c: integer;
begin
  if not Including then Result := 28;
  Hi := High(DTMs);
  if Hi < 0 then Exit;
  for i := 0 to Hi do
  begin
    c := CountItems(DTMs[i], 'dtm', []);
    if Including then
      IncEx(Result, c)
    else
      DecEx(Result, c);
  end;
end;

[bullzeye95]

its not var dtm... its just dtm:TIntegerArray.

I'm blind, I thought it was a global var >.<

[Nava2]

You are freeing the DTM after you already freed it.

In your function you free it. Then in the function you are calling it from, you free it again.

[tls]

You are freeing the DTM after you already freed it.

In your function you free it. Then in the function you are calling it from, you free it again.

not with the new one...

[Nava2]

end;
      FreeDTM(DTM[i]);
    end;

Result := CountItemsDTMs([Barss], True);
  FreeDTM(Barz);

[tls]

nava this is the new one...

function CountItemsDTMs(DTMs: TIntegerArray; Including: Boolean): integer;
var
  i, Hi, c: integer;
begin
  if not Including then Result := 28;
  Hi := High(DTMs);
  if Hi < 0 then Exit;
  for i := 0 to Hi do
  begin
    c := CountItems(DTMs[i], 'dtm', []);
    if Including then
      IncEx(Result, c)
    else
      DecEx(Result, c);
  end;
end;

so no i don't free them twice...

[Nava2]

Good

You still getting errors?

[tls]

nope
i am just trying to fix up the banking procs in my script... they fail

[ian.]

procedure Bank;
begin
  if(FindObjCustom(x, y, ['ank', 'ooth'], [4276550, 3628151, 857627, 4679037], 7))then
  begin
    Mouse(x, y, 2, 2, false);
    Wait(RandomRange(50, 100));
    ChooseOption('ckly');
  end;
end;

[tls]

procedure Bank;
begin
  if(FindObjCustom(x, y, ['ank', 'ooth'], [4276550, 3628151, 857627, 4679037], 7))then
  begin
    Mouse(x, y, 2, 2, false);
    Wait(RandomRange(50, 100));
    ChooseOption('ckly');
  end;
end;

slightly more complicated than that...
it has to withdraw and deposit stoofa... it finds the bank fine...

[ian.]

yeah I was working on the withdraw/deposit.. only thing is.. originally I was going to just search for it... but then I thought.. what if it's a small bank and you can obviously find it?

so.. you could just look for the DTM in MSX and then if it doesn't find it, scrolls down like.. 1-4 rows (get the ms for how long it takes for each row) then look again, if it can't find it, search for it..

would be easy but I don't have the time.. and I don't need it..