SRL Archive - Reflection Development

Just a tiny thing, won't break anything, just has been annoying me :P

//------------------------------------------------------------------\\
//--               Simba Reflection Library                       --||
//--                    Tiles Routines                            --||
//------------------------------------------------------------------//

//---                               Constants                               --//
const
  INTERFACE_EQUIPMENT                                   = 387;

{Constants associated with the position in the array of the TEquiptmentSet}
const
  EQUIPMENT_HELMET     = 0;
  EQUIPMENT_CAPE       = 1;
  EQUIPMENT_NECKLACE   = 2;
  EQUIPMENT_WEAPON     = 3;
  EQUIPMENT_TORSO      = 4;
  EQUIPMENT_SHIELD     = 5;
  EQUIPMENT_LEGS       = 6;
  EQUIPMENT_GLOVES     = 7;
  EQUIPMENT_BOOTS      = 8;
  EQUIPMENT_RING       = 9;
  EQUIPMENT_AMMO       = 10;



//---                                Records                                --//

type
{Holds information about an equipment slot}
  TEquipment = record
    ID: Integer;
    Name: String;
    IsAmmo: Boolean;
    Count: Integer;
    Actions: TStringArray;
  end;

{Container for TEquiptment records}
  TEquipmentSet = record
    Items: array [0..10] of TEquipment;
    AmmoCount: Integer;
  end;

{*******************************************************************************
function NULL_EQUIPMENT: TEquipment;
Description: Nulls a TEquipment
*******************************************************************************}
function NULL_EQUIPMENT: TEquipment;
begin
  with result do
  begin
    ID := NULL_INT;
    Name := NULL_STRING;
    IsAmmo := False;
    Count := Null_INT;
    Actions := [];
  end;
end;

{*******************************************************************************
function GetEquippedItemAt(Slot: Integer): TInvItem;
By: Drags111
Description: Returns a TInvItem of the item in the specified equipment slot.
            (see chart at top of page.)
*******************************************************************************}
function GetEquippedItemAt(Slot: Integer): TEquipment;
var
  Inter, child, textbytes, ID, acts: integer;
begin
  Result := NULL_EQUIPMENT;

  if not ValidInterface(INTERFACE_EQUIPMENT)then exit;
  GameTab(TAB_EQUIP);

  try
    inter := SmartGetFieldArrayObject(0, hook_static_GetInterfaces, INTERFACE_EQUIPMENT);
    child := SmartGetFieldArrayObject(inter, '', (slot*3)+8);

    ID := SmartGetFieldInt(child, hook_interface_GetID);
    textbytes := SmartGetFieldObject(child, hook_interface_GetName);
    acts := SmartGetFieldObject(child, hook_interface_GetActions);

    if(ID >0)then
    begin
      Result.Id := ID;
      Result.Name := TrimItemName(GetJavaString(textbytes, 255));
      Result.Count := SmartGetFieldInt(child, hook_interface_GetStack);
      Result.Actions := GetActionList(child, acts);
      Result.IsAmmo := (Result.Count > 1);
    end;

  finally
    SmartFreeObject(acts);
    SmartFreeObject(textbytes);
    SmartFreeObject(child);
    SmartFreeObject(inter);
  end;
end;

{*******************************************************************************
function GetEquipment: TEquipmentSet;
By: Drags111
Description: Returns a TEquipmentSet of your char.
*******************************************************************************}
function GetEquipment: TEquipmentSet;
var
  Inter, child, textbytes, i: integer;
begin
  if not ValidInterface(INTERFACE_EQUIPMENT)then exit;     // const..
  GameTab(TAB_EQUIP);
  try
    inter := SmartGetFieldArrayObject(0,
                                      hook_static_GetInterfaces,
                                      INTERFACE_EQUIPMENT);
    for i := 0 to 10 do
    begin
      Result.Items[i] := NULL_EQUIPMENT;

      child := SmartGetFieldArrayObject(inter, '', (i*3)+8);
      textbytes := SmartGetFieldObject(child, hook_interface_GetName);

      Result.Items[i].ID  := SmartGetFieldInt(child, hook_interface_GetID);
      Result.Items[i].Name := TrimItemName(GetJavaString(textbytes, 255));
      Result.Items[i].Count := SmartGetFieldInt(child, hook_interface_GetStack);
      Result.Items[i].isAmmo := (Result.Items[i].Count > 1);

      if (Result.Items[i].isAmmo) then
        Result.AmmoCount := Result.AmmoCount + Result.Items[i].Count;

      SmartFreeObject(textbytes);
      SmartFreeObject(child);
    end;
  finally
    SmartFreeObject(textbytes);
    SmartFreeObject(child);
    SmartFreeObject(inter);
  end;
end;

{*******************************************************************************
function GetEquppedIDAt(spot: integer): Integer;
By: Drags111
Description: Returns a the ID of the item in the slot.
*******************************************************************************}
function GetEquippedIDAt(spot: integer): Integer;
var
  inter, child: Integer;
begin
  if not ValidInterface(INTERFACE_EQUIPMENT)then exit;     // const..
  GameTab(TAB_EQUIP);
  try
    inter := SmartGetFieldArrayObject(0,
                                      hook_static_GetInterfaces,
                                      INTERFACE_EQUIPMENT);
    child := SmartGetFieldArrayObject(inter, '', (spot*3)+8);

    Result := SmartGetFieldInt(child, hook_interface_GetID);
  finally
    SmartFreeObject(child);
    SmartFreeObject(inter);
  end;
end;

{*******************************************************************************
function GetEquippedNameAt(spot: integer): String;
By: Drags111
Description: Returns a the Name of the item in the slot.
*******************************************************************************}
function GetEquippedNameAt(spot: integer): String;
var
  Equipment: TEquipmentSet;
begin
  Equipment := GetEquipment;
  if(Equipment.Items[spot] = NULL_EQUIPMENT)then
      Exit;
  Result := Equipment.Items[spot].name;
end;

{*******************************************************************************
function HasItemEquipped(spot: integer): boolean;
By: Drags111
Description: Returns true if there is an item equipped at the slot.
*******************************************************************************}
function HasItemEquipped(spot: integer): boolean;          // rename..
var
  Equipment: TEquipmentSet;
begin
  Equipment := GetEquipment;
  Result := (Equipment.Items[spot].ID <> NULL_INT);
end;

{*******************************************************************************
function IsEquippedIDEx(IDs: TIntegerArray): boolean;
By: Drags111
Description: Returns true if there is an item equipped with one of the IDs.
*******************************************************************************}
function IsEquippedIDEx(IDs: TIntegerArray): boolean;
var
  Equipment: TEquipmentSet;
  i, ii: integer;
begin
  Result := False;
  Equipment := GetEquipment;
  for i := High(IDs) downto 0 do
    for ii := 10 downto 0 do
      if (IDs[i] = Equipment.Items[i].ID) then
      begin
        Result := True;
        Exit;
      end;
end;

{*******************************************************************************
function IsEquippedID(ID: Integer): boolean;
By: Drags111
Description: Returns true if there is an item equipped with the ID.
*******************************************************************************}
function IsEquippedID(ID: Integer): boolean;
begin
  Result := IsEquippedIDEx([ID]);
end;

{*******************************************************************************
function IsEquippedNameEx(Names: TStringArray): boolean;
By: Drags111
Description: Returns true if there is an item equipped with one of the Names.
*******************************************************************************}
function IsEquippedNameEx(Names: TStringArray): boolean;
var
  Equipment: TEquipmentSet;
  i, z: integer;
begin
  Result := False;
  Equipment := GetEquipment;
  for i := 0 to 10 do
    for z := High(Names) downto 0 do
      if (Pos(Names[z], Equipment.Items[i].Name) > 0) then
      begin
        Result := True;
        Exit;
      end;
end;

{*******************************************************************************
function IsEquippedName(Name: String): boolean;
By: Drags111
Description: Returns true if there is an item equipped with the name.
*******************************************************************************}
function IsEquippedName(Name: String): boolean;
begin
  Result := IsEquippedNameEx([Name]);
end;

{*******************************************************************************
function R_GetAmmoCount: integer;
By: Drags111
Description: Returns the number of arrows or bolts etc, you have equipped.
*******************************************************************************}
function R_GetAmmoCount: integer;
var
  Slot: TEquipment;
begin
  Slot := GetEquippedItemAt(EQUIPMENT_AMMO);
  Result := Slot.Count;
end;

and Diff:

<   Equipmnt: TEquipmentSet;
---
>   Equipment: TEquipmentSet;
173,174c173,174
<   Equipmnt := GetEquipment;
<   if(Equipmnt.Items[spot] = NULL_EQUIPMENT)then
---
>   Equipment := GetEquipment;
>   if(Equipment.Items[spot] = NULL_EQUIPMENT)then
176c176
<   Result := Equipmnt.Items[spot].name;
---
>   Result := Equipment.Items[spot].name;
186c186
<   Equipmnt: TEquipmentSet;
---
>   Equipment: TEquipmentSet;
188,189c188,189
<   Equipmnt := GetEquipment;
<   Result := (Equipmnt.Items[spot].ID <> NULL_INT);
---
>   Equipment := GetEquipment;
>   Result := (Equipment.Items[spot].ID <> NULL_INT);

-Boom

It doesn't even change anything…just the name of a variable

From: mormonman
It doesn't even change anything…just the name of a variable

I know… that is why I said it, but everytime I look at it, it annoys me :(

< Equipmnt: TEquipmentSet;

Is that a mistake?

From: kitchenrange
< Equipmnt: TEquipmentSet;

Is that a mistake?

All I have done is edited spelling errors.

From: mormonman
It doesn't even change anything…just the name of a variable

Then there wouldn't be any problems committing it then?
I don't see how you made that into a negative