классный скрипт, респект автору.
маленькое замечание по скрипту
1. чтоб небыло автобана в #$21 пакете от сервера:
if Bottle_1_ID <> 0 then Bottle_1_Count:=getinv(Bottle_1_ID, 2,3);
if Bottle_2_ID <> 0 then Bottle_2_Count:=getinv(Bottle_2_ID, 2,3);
(без проверки при Bottle_1_ID=0 и Bottle_2_ID=0 в кол-во записывается левые данные)
2. в фун-ции rastoyanie заключить try except
(иногда возникает ошибка "
Overflow while converting variant of type (Double) into type (Integer)")
зы: имхо видать из за 21 пакета 1 эксперемент закончился автобаном (
зыы: тестирую... 30 мин ... пока норм
зыы: сервер ХБ Т1.5
----
неудача
автобан
зы: гг не стоит, юзал 1 клиент, пх 3.4.1.68
зыы: при работе примерно 10 - 15 минут все норм.