Simba Code:
unit Unit1;
[LEFT]
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,stdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedureButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
hLibrary : HINST;
a,b:longint;
aa:array of tpoint;
procedure std_setup(ServerURL, SecondParam: PChar; sizeX, sizeY: Integer; SomeStr: PChar); stdcall; external 'libsmart.dll';
procedure FindObjectsByIDs(IDs:Longint;numIDs:LongInt; POINT :array of Tpoint; maxObjects:LongInt;numFound:LongInt); stdcall;external 'CreateVertexBufferHook.dll';
implementation
{$R *.dfm}
{$R a.Res}
{$R smart.Res}
procedure TForm1.Button1Click(Sender: TObject);
begin
FindObjectsByIDs(111,1,aa,100,0);
std_setup('http://world1.runescape.com/','', 765, 504, '');
end;
end.<div style="text-align: left;">here's what im doing
edit: ignore the smart stuff
</div>