Kronos.scar

unit kronos.Kronos;

//----------------------------------------------------------------------------//
//--                      Kronos Reflection Library                         --//
//----------------------------------------------------------------------------//
//--  In Greek mythology, Cronus or Kronos was the leader and the youngest  --//
//--  of the first generation of Titans, divine descendants of Gaia, the    --//
//--  earth, and Uranus, the sky. He overthrew his father and ruled during  --//
//--  the mythological Golden Age, until he was overthrown by his own sons, --//
//--  Zeus, Hades, and Poseidon, and imprisoned in Tartarus.                --//
//--                                                                        --//
//--  Kronos is the reflection library for the new SCAR 4: Titan. It is a   --//
//--  pilot include designed to make use of the newly added object          --//
//--  oriented programming features. This include is designed for speed and --//
//--  accuracy while maintaining easy coding practices for beginning        --//
//--  programmers. We hope to make this a fun but powerful include for      --//
//--  botters and scripters alike.                                          --//
//--                                                                        --//
//--  Kronos is written and maintained by Drags111 with help and            --//
//--  special thanks to:                                                    --//
//--    Benland100, Freddy1990 mormonman, pyroryan, Trilez,                 --//
//--    and The SRL Community                                               --//
//--                                                                        --//
//----------------------------------------------------------------------------//

interface

  uses
    kronos.smart.SMART,
    kronos.lib.core.Hooks,
    kronos.lib.core.Globals,
    kronos.lib.wrappers.Renderable,
    kronos.lib.wrappers.Node,
    kronos.lib.wrappers.NodeCache,
    kronos.lib.wrappers.NodeList,
    kronos.lib.wrappers.RSObject,
    kronos.lib.wrappers.NPCDef,
    Types;

  procedure SetupKronos;
  function IsRSReady: Boolean;
  procedure CheckUnfreedObjects;

implementation

(*
SetupKronos
~~~~~~~~~~~

.. code-block:: pascal

    procedure SetupKronos;

Initiates Kronos and sets up SMART.

.. note::

  by Drags111

*)
procedure SetupKronos;
var
  T: Integer;
begin
  SmartSetup('http://world1.runescape.com/',
    'plugin.js?param=o0,a0,m1', 765, 503, 's');
  T := Time.SysTime;
  while(not IsRSReady) and ((Time.SysTime - T) < 300000)do
    Time.Wait(500);
end;

(*
IsRSReady
~~~~~~~~~

.. code-block:: pascal

    function IsRSReady: Boolean;

Returns true if Runescape is done loading.

.. note::

  by Drags111

*)
function IsRSReady: Boolean;
var
  LoginIndex: Integer;
begin
  LoginIndex := SmartGetFieldInt(0, hook_static_LoginIndex);
  Result := LoginIndex >= 3;
end;

(*
CheckUnfreedObjects
~~~~~~~~~~~~~~~~~~~

.. code-block:: pascal

    procedure CheckUnfreedObjects;

Checks for unfreed objects at the end of the script. Called in the finialization
of the Kronos unit.

.. note::

  by Drags111

*)
procedure CheckUnfreedObjects;
var
  I, H, C: Integer;
begin
  C := 0;
  if(UnfreedObjects.Count < 1)then
  begin
    Println('There are no unfreed objects!');
    Exit;
  end;
  Println('There are '+ToStr(UnfreedObjects.Count)+' unfreed objects remaining.');
  H := UnfreedObjects.Count -1;
  for I := 0 to H do
  begin
    if(UnfreedObjects.Count <= 0)then
      Exit;
    Print('Freed Object['+ToStr(I)+'];');
    try
      if(UnfreedObjects[C] is TRenderable)then
        Println(' Instance of TRenderable;')
      else if(UnfreedObjects[C] is TNode)then
        Println(' Instance of TNode;')
      else if(UnfreedObjects[C] is TNodeCache)then
        Println(' Instance of TNodeCache;')
      else if(UnfreedObjects[C] is TNodeList)then
        Println(' Instance of TNodeList;')
      else if(UnfreedObjects[C] is TRSObjectDef)then
        Println(' Instance of TRSObjectDef;')
      else if(UnfreedObjects[C] is TNPCDef)then
        Println(' Instance of TNPCDef;')
      else if(UnfreedObjects[C] is TNPCDefLoader)then
        Println(' Instance of TNPCDefLoader;')
      else
        Println('');
      UnfreedObjects[C].Free;
    except
      Println(' Caught exception while freeing an object.');
      C++;
    end;
  end;
end;

finalization

  CheckUnfreedObjects;

  UnfreedObjects.Free;

end.