Проверил. В 171 и 172 версии поломаны скрипты! В 170 - работают.
Буду смотреть, что испортил.
При включении скрипта все время спамит в лог:
Цитата:
07.08.2011 21:41:02 NewScript: Операция успешно завершена; on line 19
07.08.2011 21:41:02 NewScript: Операция успешно завершена; on line 19
07.08.2011 21:41:02 NewScript: Операция успешно завершена; on line 19
07.08.2011 21:41:02 NewScript: Операция успешно завершена; on line 19
07.08.2011 21:41:02 NewScript: Операция успешно завершена; on line 19
07.08.2011 21:41:03 NewScript: Операция успешно завершена; on line 19
07.08.2011 21:41:03 NewScript: Операция успешно завершена; on line 19
07.08.2011 21:41:03 NewScript: Операция успешно завершена; on line 19
07.08.2011 21:41:03 NewScript: Операция успешно завершена; on line 19
07.08.2011 21:41:03 NewScript: Операция успешно завершена; on line 19
07.08.2011 21:41:04 NewScript: Операция успешно завершена; on line 19
07.08.2011 21:41:05 NewScript: Операция успешно завершена; on line 19
07.08.2011 21:41:05 NewScript: Операция успешно завершена; on line 19
|
Добавлено через 20 часов 15 минут
Баг именно в этом куске:
Цитата:
Сообщение от Хламчег
(pck[1]=#$0C)
|
Если его не использовать, то скрипты работают.
Можно использовать аналог
delphi Код:
if FromClient and (ConnectName = Name) then
begin
case pck[1] of
#$0C: begin
//...
end;
//...
end;
end;
Или через ReadC()
delphi Код:
if (fromClient) and (Connectname=name) and (ReadC(1)=#$0C) then ...