SRL Archive - Research & Development Lounge

Just a simple axe detector..

function N_WhatAxe: String;
var
  cts,I,Z : Integer;
  TPA: TPointArray;
  T : Integer;
  H : TBox;
  Col:  TIntegerArray;
  
begin
  T := GetCurrentTab;
  If T <> 4 then
    GameTab(4);
  H := InvBox(1);
  Col := [791905,6313793,4478276,5914173];
  For I:= 0 to High(col) do
  begin
    if FindColorsTolerance(TPA,Col[I], h.X1, h.Y1, h.X2, h.Y2 , 15) then
    if Length(TPA) > 20 then
    begin
      Z:= I + 1;
      Break;
    end;
  end;
  case z of
    1: Result:= 'dragon';
    2: Result:= 'rune';
    3: Result:= 'addy';
    4: Result:= 'mith';
  end;
end;

Very nice.

Make it return a boolean if it finds an axe, and you could use this to replace FindAxe;

From: TViYH
Very nice.

Make it return a boolean if it finds an axe, and you could use this to replace FindAxe;

It already returns a string. I don't think you can return more than one type of value. I might be wrong, though.

Also, what happens if no axe is detected?

If no Axe is detected It wont return anthing.

This should store the type in WhatType and return True if axe found.
Haven't tested though.

function N_WhatAxe(WhatType: String): Boolean;
var
  cts,I,Z : Integer;
  TPA: TPointArray;
  T : Integer;
  H : TBox;
  Col:  TIntegerArray;

begin
  T := GetCurrentTab;
  If T <> 4 then
    GameTab(4);
  H := InvBox(1);
  Col := [791905,6313793,4478276,5914173];
  For I:= 0 to High(col) do
  begin
    if FindColorsTolerance(TPA,Col[i], h.X1, h.Y1, h.X2, h.Y2 , 15) then
    if Length(TPA) > 20 then
    begin
      Result := True;
      Z:= I + 1;
      Break;
    end else Result := False;
  end;
  case z of
    1: WhatType:= 'dragon';
    2: WhatType:= 'rune';
    3: WhatType:= 'addy';
    4: WhatType:= 'mith';
  end;
end;

if you want it to store something you need to do this…

function N_WhatAxe(var WhatType: String): Boolean;

You need to add Var to the beginning if you want user to input a var into the parameters and it will store it in that global, otherwise if you don't put var it will store it in a local var in the procedure only.

From: mormonman
if you want it to store something you need to do this…

function N_WhatAxe(var WhatType: String): Boolean;

Oh yea, forgot that. I guess I'm to sleepy atm to think clear :P

From: Da 0wner
You need to add Var to the beginning if you want user to input a var into the parameters and it will store it in that global, otherwise if you don't put var it will store it in a local var in the procedure only.

sorry but… duh… im pretty sure we all knew that…

Morman, yea I didn't see your post sorry :p.

Its all good man!

Hmm if i wanted to store it into a varable i would do that, it proablly would be batter, ive been using it like.

Axe := WhatAxe;

If you stored it in variable its shorter :p

WhatAxe(axe);

Yes, that is true.

[offtopic] NiCbaZ go on msn??

Tommorro its like 11:16 pm here not that late but im getting like burnt here lots of bush fires… btw i made this function a while back thats why its so noobie..

il try and update in this post here..

Theese may not work as im writting them in the post as no scar on this computer

SearchForAxeInAllInv

function N_WhatAxe(var Axe: String):Boolean;
var
  I,IIAxeNum : Integer;
  ColorsTPA: TPointArray;
  ColorsArray:  TIntegerArray;
  HaveAxe: Boolean;
  
begin
  If GetCurrentTab <> 4 then
    GameTab(4);
  ColorsArray := [791905,6313793,4478276,5914173];
  for I:= 1 to 28 do 
  begin
    H := InvBox(I);
    for II:= 0 to High(col) do
    begin
      if FindColorsTolerance(ColorsTPA,Col[II], h.X1, h.Y1, h.X2, h.Y2 , 15) then
      if Length(ColorsTPA) <> 0 then
      begin
        AxeNum:= II + 1;
        HaveAxe:= True;
        Break;
      end;
    end;
  if HaveAxe then
    Break;
  end;
  Axe:= ' ';
  case z of
    1: Axe:= 'dragon';
    2: Axe:= 'rune';
    3: Axe:= 'addy';
    4: Axe:= 'mith';
  end;
  Result := Axe <> ' ';
end;

UserDefinedInvSearch

You Also Need an InArray Function for this to work please keep in mind that i am writing all thing in this post and i do not have scar

function N_InArr(III: Integer;II: TIntergerArr): Boolean;
var
  I: Integer;
begin
  for I:= 0 to High(II) do
    if III = II[I] then
      Result:= true;
    if Result then
      Break;
end;  

function N_WhatAxe(var Axe: String;InvBoxs: TIntergerArray):Boolean;
var
  I,IIAxeNum : Integer;
  ColorsTPA: TPointArray;
  ColorsArray:  TIntegerArray;
  HaveAxe: Boolean;
  
begin
  If GetCurrentTab <> 4 then
    GameTab(4);
  ColorsArray := [791905,6313793,4478276,5914173];
  for I:= 1 to 28 do 
  begin
    if not N_InArray(I,InvBoxes) then
      Continue;
    H := InvBox(I);
    for II:= 0 to High(col) do
    begin
      if FindColorsTolerance(ColorsTPA,Col[II], h.X1, h.Y1, h.X2, h.Y2 , 15) then
      if Length(ColorsTPA) <> 0 then
      begin
        AxeNum:= II + 1;
        HaveAxe:= True;
        Break;
      end;
    end;
  if HaveAxe then
    Break;
  end;
  Axe:= ' ';
  case z of
    1: Axe:= 'dragon';
    2: Axe:= 'rune';
    3: Axe:= 'addy';
    4: Axe:= 'mith';
  end;
  Result := Axe <> ' ';
end;

I wrote theese function ( off my old one) in the HTML editor of this forum, they mostliky wont compile but should all work in thoery.

is there such thing as a tboxarray… because you could add that to your functions… for the inv boxes(instead of TIntegerArray, but i know that you just did it in scar tags…)

Yes, there is such thing as a TBoxArray.