Тема: Скрипт
Показать сообщение отдельно
Старый 26.10.2011, 13:41   #5
Новичок
 
Аватар для Pocuk
 
Регистрация: 25.10.2011
Сообщений: 17
Сказал Спасибо: 7
Имеет 0 спасибок в 0 сообщенях
Pocuk пока неопределено
По умолчанию

полазил по форуму, нашол тему http://coderx.ru/showthread.php?t=119
заменил SendToServer; на SendToServerEx(ConnectName);
заработало... только спрощенный скрипт заработал, основной еще нет

л2пх юзаю 170 версию

UPD: основной скрипт дальше выдает ошибку, думаю связано ето с вычислениями, а именно - мне надо в Procedure OnTimer01; (в цикле проще говоря) сделать постояную отсылку пакетов на сервер, после чего проверять что пришло с сервера, если ето нужний пакет тогда с него читаем:
Код:
Aa:integer;
Bb:integer;
Cc:integer;
Cc := <число>;
...
Procedure OnTimer01;
begin
buf := HStr(Хх);
SendToServerEx(ConnectName);
pck:='';
if FromServer and (pck[1]=#$00) then
    begin
    Aa := ReadD(12);
    Bb := ReadH(20);
    if ((Aa/Bb)=Сс) then
       begin
       Kill
       end;
    end;
end;
...
так вот опять вопрос - как записать ето <число> "Сс"?? у меня "Аа" будет иметь например такой вид - 00 48 E8 01 (DWord - 32000000), "Bb" - 10 00 (DWord - 16) и мне надо поделить "Аа" на "Bb" (мне наперед известно что всегда выйдет целое число) и сравнять с "Сс". Чтобы скрипт делал ето как if ((32000000/16)=<число>) then ...

UPD2: с числами разобрался, проблема не в них, а гдето в коде:
Код:
...
Procedure OnTimer01;
begin
buf := HStr(Хх);
SendToServerEx(ConnectName);
pck:='';
if FromServer and (pck[1]=#$00) then
    begin
    Aa := ReadD(12);
    Bb := ReadH(20);
    if ((Aa/Bb)=Сс) then
       begin
       Kill
       end;
    end;
end;
...
а именно "if FromServer and (pck[1]=#$00) then" не работает, но
Код:
buf := HStr(Хх);
SendToServerEx(ConnectName);
pck:='';
работает.

Добавлено через 9 часов 40 минут
что то мне подсказывает что надо второй цикл для "if FromServer and (pck[1]=#$00) then"

Последний раз редактировалось Pocuk, 26.10.2011 в 13:41. Причина: Добавлено сообщение
Pocuk вне форума   Ответить с цитированием