unit setup;

interface
uses windows, iniFiles, SysUtils, Forms, Dialogs, StdCtrls;

procedure rwSetup;
var

  OffSets_BASE_ADD,
  BASE_ADD,
  OffSets_SendPacket,
  OffSets_GAME_ADD,
  OffSets_Player_ADD,
  OffSets_Player_Name_ADD,
  OffSets_Inventory_Array,
  OffSets_Yacheyka,
  OffSets_Item_Id,
  OffSets_Item_Count,
  OffSets_Max_Count_Yacheyek,
  OffSets_ExtraEffectsPtr,
  OffSets_ExtraEffectsId1,
  OffSets_ExtraEffectsId2,
  OffSets_ExtraEffectsId3,
  OffSets_ExtraEffectsValue1,
  OffSets_ExtraEffectsValue2,
  OffSets_ExtraEffectsValue3,
  OffSets_Uchastvuelvotpravkepaketa,
  OffSets_MoneyCount,
  OffSets_TargetWid,
  OffSets_ChatStart,
  OffSets_ChatNumber
  : dword;

  WID: THandle;
  hProcess: dword;
  Found_WID: array [0..10] of THandle;


  ElementClassName,ElementClassName2: string;
implementation

uses main, func, NewItem;

procedure rwSetup;
 var
   ini: TIniFile;
   Path:String;
   offset:string;
 begin
  Path:=Application.ExeName;
  Path:=ExtractFileDir(Path);
  if Path[Length(Path)]<>'\' then Path:=Path+'\';
  ini:=TIniFile.Create(Path+'setup.ini');
  if ini.ReadString('config', 'Client_Version', '0')='Genesis' then offset:='Offsets_in_Genesis';
  if ini.ReadString('config', 'Client_Version', '0')='Descent' then offset:='Offsets_in_Descent';
  if ini.ReadString('config', 'Client_Version', '0')='Insidious' then offset:='Offsets_in_Insidious';
  if ini.ReadString('config', 'Client_Version', '0')='Free_Servers' then offset:='Offsets_in_Free_Servers';
  if ini.ReadString('config', 'Client_Version', '0')='RUOFF_Гнев_Империи' then offset:='Offsets_in_RUOFF_Гнев_Империи';
  if ini.ReadString('config', 'Client_Version', '0')='RUOFF_Возрождение_династий' then offset:='Offsets_in_RUOFF_Возрождение_династий';

  try
    OffSets_BASE_ADD:= strtoint('$'+ini.ReadString(offset, 'BASE_ADD', 'B27A04'));
    BASE_ADD:= strtoint('$'+ini.ReadString(offset, 'BASE_ADD', 'B27A04'));
    OffSets_GAME_ADD:= strtoint('$'+ini.ReadString(offset, 'GAME_ADD', 'B280C4'));
    OffSets_Player_ADD:= strtoint('$'+ini.ReadString(offset, 'Player_ADD', '34'));
    OffSets_Player_Name_ADD:= strtoint('$'+ini.ReadString(offset, 'Player_Name_ADD', '638'));
    OffSets_Inventory_Array:= strtoint('$'+ini.ReadString(offset, 'Inventory_Array', 'CAC'));
    OffSets_Yacheyka:= strtoint('$'+ini.ReadString(offset, 'Yacheyka', 'C'));
    OffSets_Item_Id:= strtoint('$'+ini.ReadString(offset, 'Item_Id', '8'));
    OffSets_Item_Count:= strtoint('$'+ini.ReadString(offset, 'Item_Count', '10'));
    OffSets_Max_Count_Yacheyek:= strtoint('$'+ini.ReadString(offset, 'Max_Count_Yacheyek', '10'));
    OffSets_MoneyCount:= strtoint('$'+ini.ReadString(offset, 'MoneyCount', '554'));

    OffSets_ExtraEffectsPtr:= strtoint('$'+ini.ReadString(offset, 'ExtraEffectsPtr', 'A4'));
    OffSets_ExtraEffectsId1:= strtoint('$'+ini.ReadString(offset, 'ExtraEffectsId1', '00'));
    OffSets_ExtraEffectsId2:= strtoint('$'+ini.ReadString(offset, 'ExtraEffectsId2', '1C'));
    OffSets_ExtraEffectsId3:= strtoint('$'+ini.ReadString(offset, 'ExtraEffectsId3', '38'));
    OffSets_ExtraEffectsValue1:= strtoint('$'+ini.ReadString(offset, 'ExtraEffectsValue1', '0C'));
    OffSets_ExtraEffectsValue2:= strtoint('$'+ini.ReadString(offset, 'ExtraEffectsValue2', '28'));
    OffSets_ExtraEffectsValue3:= strtoint('$'+ini.ReadString(offset, 'ExtraEffectsValue3', '44'));
    OffSets_Uchastvuelvotpravkepaketa:= strtoint('$'+ini.ReadString(offset, 'Используется при отправке пакета BA+$20 в версии 1.4.4', '20'));

    OffSets_SendPacket:= strtoint('$'+ini.ReadString(offset, 'SendPacket', '6737B0'));
    OffSets_TargetWid:= strtoint('$'+ini.ReadString(offset, 'TargetWid', 'BD4'));
    OffSets_ChatStart:= strtoint('$'+ini.ReadString(offset, 'ChatStart', 'BD4'));
    OffSets_ChatNumber:= strtoint('$'+ini.ReadString(offset, 'ChatNumber', 'BD4'));

    ElementClassName:= ini.ReadString('Element', 'ElementClassName', '');
    ElementClassName2:= ini.ReadString('Element', 'ElementClassName2', '');
//    ini.WriteBool('Offset', 'Key_Name3', True);
//      ini.WriteInteger('Offset', 'BASE_ADD', 2002);
   finally
     ini.Free;
   end;

  end;
end.