Кружок нубов(Вопрос-Ответ)

[QaK]

Jeneok, http://coderx.ru/showthread.php?t=16

[MrAak]

Пожалуйста помогите, попробовал написать просто до ужаса скрипт для рыбалки. Без убивания монстров, просто отправка одного пакета при получении другого. При попытке выполнения что-то булькает и нехочет

begin
buf:=HStr('12F 20 05 00 67 0B 00 48 00 00');
SendToServer;
if FromServer and (pck=HStr('FE 16 00 18 55 1B 48 57 00 00 00 54 01 00 00 00 00 00 00 00 67 0B')) then begin
buf:=Hstr('2F 21 05 00 67 0B 00 48 00 00');
SendToServer;
end;
if FromServer and (pck=HStr('FE 16 00 18 55 1B 48 6A 00 00 00 56 01 00 00 01 00 00 00 00 67 0B')) then begin
buf:=Hstr('2F 22 05 00 67 0B 00 48 00 00');
SendToServer;
end;
end.

вот пакеты которые я отловил

2F 20 05 00 67 0B 00 48 00 00	//юз фишинг
FE 16 00 18 55 1B 48 6A 00 00 00 56 01 00 00 01 00 00 00 00 67 0B 	//рыба дергается
FE 16 00 18 55 1B 48 57 00 00 00 54 01 00 00 00 00 00 00 00 67 0B 	//не дергается
2F 21 05 00 67 0B 00 48 00 00 // скилл не дергается
2F 22 05 00 67 0B 00 48 00 00 //скилл дергается
FE 14 00 18 55 1B 48 49 //конец рыбалки

[QaK]

MrAak, почитай раздел "жесткий скриптинг". топ про рыбалку. там описан алгориитм и написан скрипт.