Добрый день,хотел использовать скрипт на авто-пати,который есть в этом топике:
begin
if FromServer and (pck[1]=#$39) then begin //от сервера получен пакет $39 AskJoinParty
if ReadS(2) = 'Ник чара' //проверяем от кого
buf:=hstr('2A 01 00 00 00'); //Создаем пакет "принять пати"
else
delay(5000)
buf:=hstr('2A 00 00 00 00'); //Создаем пакет "Отказать в пати"
pck :=''; //убиваем этот пакет
SendToServer; //Отправляем его на сервер
end;
end.
Но замучала ошибка List index out of bounds (8) и соответсвенно скрипт не пашет,как от нее избавиться?
|