delphi Код:
if FromServer and (ConnectName=nik) then
begin
if (pck[1]=#$1B) then //если получили итемлист
begin
if (ReadH(4)<10) then //если вещей у рюкзаке <10 (вместимость 200 а купить надо 190)
begin
buf:=HStr('A7 9A 5F 01 00 A0 BB 0D 00 BE 00 00 00 00 00 00 00 00 00 00 00 '); //покупаем 190 вещей
SendToServerEx(nik);
end
else
begin
buf:=HStr('0F '); //запрос на итемлист
SendToServerEx(nik);
end;
скрипт тупо спамит 0F в ответ на любой пакет от серва - что явно не есть гуд.....убей эту ветку, а посылку на итемлист в начало скрипта просто вставь один раз
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
|