Сбор статистики о продаваемых предметах

[Anton5]

Хочу попробовать написать скрипт для сбора статистики о продаваемых вещах(1) Всё незапомниш, а спрашивать всех про цену заколебало; 2) Надоело вручную писать название итема, его тип и цену; 3) долго.). Что-то типа следующего:

Оружее	Кинжал	A	Bloody Orchid	x Аден
Оружее	Пики(Двуруч)	S	Saint Spear	x Аден
Шмот	Ботинки	A	Sealed Boots of Nightmare	x Аден
Шмот	Верх	A	Dark Crystal Breastplate +3	x Аден
Куски	Мечь(Одноруч)	B	Sword of Damascus Blade	x Аден
Куски	Низ	A	Sealed Dark Crystal Leggings Design	x Аден

Столкнулся с несколькими проблеммами:
1) В пакете(PrivateStoreList)(Интерлюд) со списком продаваемых продавцом товаров плохо различим тип продаваемого товара. Параметр type2 принимает только следующи значения:
0-Weapon
1-Helmet/Chest/Legs/Boots/Gloves/Shield
2-Earring/Ring/Necklace
5-Item
Т.е. неразличается тип оружия, шмота, бижи и т.д.
У кого какие соображения, как эту проблемму можно решить, откуда можно добыть необходимые данные?

2) И ещё один вопрос для другого скрипта. Можно ли и как по окончанию некоторых действий в скрипте воспроизвести звуковой сигнал или вообще как-нибудь проиндицировть завершение некоторых действий? Скрипт длительный и его требуется запускать несколько раз.

Tип: 0x9B (PrivateStoreList)
Pазмер: 153+2
Время прихода: 15:58:01:151
0002 d  ObjectId: 1209066281 (0x4810E329)
0006 d  packSale: 0 (0x00000000)
000A d  adena: 11475059 (0x00AF1873)
000E d  ListCount: 4 (0x00000004)
              [Начало повторяющегося блока 1/4]
0012 d  type2: 1
0016 d  objId: 1074830656
001A d  ItemId: Majestic Boots[Robe] ID:5788 (0x169C)
001E d  count: 1
0022 h  h: 0
0024 h  Enchant: 0
0026 h  h: 0
0028 d  BodyPart: 4096
002C d  price: 90000000
0030 d  storePrice: 1760000
              [Конец повторяющегося блока  1/4]
              [Начало повторяющегося блока 2/4]
0034 d  type2: 1
0038 d  objId: 1074830662
003C d  ItemId: Majestic Boots[Light Armor] ID:5787 (0x169B)
0040 d  count: 1
0044 h  h: 0
0046 h  Enchant: 0
0048 h  h: 0
004A d  BodyPart: 4096
004E d  price: 90000000
0052 d  storePrice: 1760000
              [Конец повторяющегося блока  2/4]
              [Начало повторяющегося блока 3/4]
0056 d  type2: 0
005A d  objId: 1074830666
005E d  ItemId: Soul Separator ID:236 (0x00EC)
0062 d  count: 1
0066 h  h: 0
0068 h  Enchant: 0
006A h  h: 0
006C d  BodyPart: 128
0070 d  price: 150000000
0074 d  storePrice: 27000000
              [Конец повторяющегося блока  3/4]
              [Начало повторяющегося блока 4/4]
0078 d  type2: 0
007C d  objId: 1074830667
0080 d  ItemId: Carnage Bow ID:288 (0x0120)
0084 d  count: 1
0088 h  h: 0
008A h  Enchant: 0
008C h  h: 0
008E d  BodyPart: 16384
0092 d  price: 65000000
0096 d  storePrice: 18300000
              [Конец повторяющегося блока  4/4]

Добавлено через 8 часов 41 минуту
Ещё один вопрос возник. А не видел ли кто-нибудь скрипты или какие-нибудь их куски с вбитым сопостовлением названия итема его ID? Можно зделать и самому, но долго.

[NLObP]

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

сопостовлением названия итема его ID?

Надо смотреть на методы TStringList и Tstring

{В TStringList и Tstring ->      Name=Value
                                 123=ghjdthrf
}
var
  WalkerScript: TStringList;

procedure Init; //Вызывается при включении скрипта
var
  i, j :integer;
begin
  WalkerScript:=TStringList.Create;
  //загружаем скрипт валкера из файла
  WalkerScript.LoadFromFile(PathWalkerScript+NameWalkerScript);
end;

function GetValues(ValName: string): string;
begin
  result:=WalkerScript.Values[ValName];
end;
//..............................................................................
function GetNames(Value: string): string;
begin
  result:=WalkerScript.Names[strtoint(Value)];
end;
//..............................................................................
procedure SetValues(ValName: string; Value: string);
begin
  WalkerScript.Values[ValName]:=Value;
end;
//..............................................................................
procedure SetNames(Value: string; Name: string);
begin
  WalkerScript.Names[strtoint(Value)];
end;