более полный скрипт на charinfo

[NLObP]

Сообщение от poizon

как подрубать внешние базы я хз так что база предметов прям в скрипте

Попробуй вот так (кусок из скрипта бота с картой):

var
  MobsName : TStringList; //имена мобов
procedure Init; //УПРАВЛЯЮЩИЕ ПЕРЕМЕННЫЕ
var
  i: integer;
begin
  kID:=1020000; //коэфф вычитаемый из NpcID C6 theAbyss.ru
  MobsName:=nil;
  MobsName:=TStringList.Create;
  MobsName.LoadFromFile('.\npcsid.ini' );
end;
//***************************************************************
procedure Free;
begin
  MobsName:=nil;
  MobsName.free;
end;

//***************************************************************
procedure OnMap(Sender: TObject); //рисуем карту
begin
      //ставим точку МОБа
      TTlabel[i].caption:=MobsName.Strings[MobsID[i]];
end;