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

[poizon]

взял я значит из стандартных скриптов которы с пакет хаком идут и добавил чтобы он писал ещё одежду надетую на перса , как подрубать внешние базы я хз так что база предметов прям в скрипте, и выводит результат он криво, но информацию нужную передаёт.

//xkor: просьба к автору прикрепить скрипт как файл, он слишком длинный и из за него форум эту тему еле показывает

[poizon]

а вот вторая часть (добавить к первой ) не умещяется ))

//xkor: та же хрень...

[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;

[Sieg]

Емааа... этож как он тормозит наверно када ищет вещь через case... А ведь таких вещей на чаре не одна, да и персонажей не 2-3....