Показать сообщение отдельно
Старый 14.01.2009, 23:49   #30
Пользователь
 
Регистрация: 22.04.2008
Сообщений: 51
Сказал Спасибо: 14
Имеет 36 спасибок в 11 сообщенях
alexsl пока неопределено
По умолчанию

классный скрипт, респект автору.
маленькое замечание по скрипту
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 минут все норм.

Последний раз редактировалось alexsl, 15.01.2009 в 14:04. Причина: результат теста
alexsl вне форума   Ответить с цитированием
За это сообщение alexsl нажился 2 спасибками от: