Скрипт Бота(кач/споил)

[OlegDX]

есть более лутший способ читать с ини данные

Добавлено через 2 минуты
В место :

function ItemName(id:integer):string;
begin
 result:=ItemsName.Strings[ID];
end;

function ItemName(id:integer):string;
begin
 result:=ItemsName.Values[ID];
end;

это значт что строка (123=адена) -- 'адена'=ItemName(123)

Добавлено через 3 минуты

var
  ItemsName: TStringList;  //названия предметов
  namestr:String;
procedure Init;
begin
  ItemsName:=TStringList.Create;
  ItemsName.LoadFromFile('itemsid.ini'); //загрузка из файла
end;

function free;
begin
  ItemsName.free;
end;
//******************************************
//название вещи
//******************************************
function ItemName(id:integer):string;
begin
 result:=ItemsName.values[ID];
end;

Begin
  namestr:=ItemName(53);
  //namestr->'adena';
end;