Program FinalGE;
{$DEFINE SMART}
{$i AeroLib/AeroLib.Simba}
{$i Reflection/Reflection.simba}
{$i stephen\GE07.simba}



procedure DeclarePlayer();
begin
  Me.Name := 'draprastuc@thrma.com';
  Me.Pass := 'monkey123';
  Me.Active := True;
  me.Member := false;
end;


type _stats = record
  numBought : integer;
  numSold   : integer;
  profitHr  : integer;
end;


type _item = record
  name        : string;
  bought      : integer;
  sold        : integer;
  totalBought : integer;
  totalSold   : integer;
  quantity    : integer;
  profitHr    : integer;
  limit       : integer;
  available   : boolean;
end;

type _auction = record
  isOpen    : boolean;
  time      : ttimer;
  numBought : integer;
  numSold   : integer;
  profitHr  : integer;
  item      : ^_item;
end;


var
  auction : array [0..5] of _auction;
  slot : integer;
  testItem : _item;
  itemsList : array of _item;
  i : integer;


function getItem : ^_item;
begin
  for i := 0 to length(itemsList)-1 do
  begin
    if ( itemsList[i].available ) then
    begin
      itemsList[i].available := false;
      result := @itemsList[i];
    end;
  end;
end;

function GetWordsEx(text, wordCharacters: string): TStringArray;  //thanks  Janilabo
var
  l, r: Integer;
begin
  l := Length(text);
  if ((l > 0) and (wordCharacters <> '')) then
  begin
    SetLength(Result, l);
    for i := 1 to l do
      if (Pos(text[i], wordCharacters) > 0) then
      begin
        Result[r] := text[i];
        for i := (i + 1) to l do
          if (Pos(text[i], wordCharacters) > 0) then
            Result[r] := (Result[r] + text[i])
          else
            Break;
        Inc(r);
      end;
  end;
  SetLength(Result, r);
end;


procedure getItemsList;
var
  ReflectPlayer: TReflectLocalPlayer;
  accountStrings: TStringArray;
  accountString: String;
  myGameTab: TReflectionGameTab;
  itemCt   : integer;
begin
  itemCt := 1;
  while  (itemCt = 1 ) or not ( length(accountString) = 0 ) do
  begin
  setlength(itemsList,itemCt);
  accountString := ReadINI('item', intToStr(itemCt), 'C:/Simba/Scripts/'+'itemList.txt');
  accountStrings := GetWordsEx(accountString, '01234567890@.qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM_-');
  if ( length(accountString) = 0 ) then
    exit;
  itemsList[itemct-1].name := accountStrings[0];
  itemsList[itemct-1].quantity := strToInt(accountStrings[1]);
  itemsList[itemct-1].limit := strToInt(accountstrings[2]);
  writeln(itemsList[itemct-1]);
  inc(itemCt);
  end;
end;





function GEOpen:boolean;
var
  closeButton,x,y: integer;
begin

  result := false;
  closeButton := DTMFromString('mAAEAAHic42FgYHjGwsDwCIhfQzGI/YIFIv4QiN8A8UcgvgvEz4HYmZGBwQOK7aDYCsp3AGInIHaBYl8gZmBgxMATW/IZIn0tGbJjnRlSwh3R5FEBPxpGB5im48fIAACMwRL7');
  if ( findDtm(closeButton,x,y,468,20,500,50) ) then
  begin
    result:= true;
    writeln('-isGEOpen- (true)Found close icon');
  end else
    writeln('-isGEOpen- Failed to find close icon');
  freeDTM(closeButton);
end;

function auctionOpen(var slot_ : integer): boolean;
begin



end;






function listItem(var item : _item; save: boolean):boolean;
begin

end;

function _testItem(var item : _item): boolean;
begin
  result := false;
  if ( listItem(item,false) ) then
    result := true;
end;


function auctionIsDone(_slot : integer) : boolean;
begin
end;


procedure checkAuctions;
var
  _slot : integer;
begin

  for _slot :=0 to 5 do
  begin
   if ( auctionIsDone(_slot) ) then
   begin

   end;
  end;
end;


function itemsAvailable(var item :_item): boolean;
begin

end;

procedure timesUp
var
  _slot: integer;
begin

end;




procedure initItemList;
begin
  for i:=0 to length(itemsList) -1 do
  begin
    itemsList[i].available := true;
  end;
end;

procedure main;
begin
  repeat
    if (true ) then
    begin
      //listItem(listedItems[slot] ,true);
    end;
    //checkAuctions;
    //timesUp;
    wait(1300);
  until 1 = 2;


end;

begin
  //initAL();
  //reflect.Setup;
  clearDebug;
  //declarePlayer;
  getItemsList;

  auction[0].item := @testItem;
  auction[0].item^.name := 'test';
  writeln(auction[0].item^.name);



end.