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

[DeVolf]

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.

const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.

где я ошибся?

[NLObP]

Сообщение от ake1a

ratvier

Допустим бегать к кому моно продать, тогда как купить заточки у того самого НПСа тобишь ГМшоп... если на обычных НПСов пашут скрипты и покупки и продажи.... То на ГМшоп не робят (((( Помогите ребят...что делать?

Как здесь пишу пробовал?

[ake1a]

NLObP

Как здесь пишу пробовал?

конешн попробывал я етот форум уже раз 800 перерыл....не работает серовно.... он таргет ГМшопа выделяет....Начинает разговор... но продажу не видит и все тут скрипт тормозит =(
____________________________________
//************************************************** **************************
//обмен состоит из следующих шагов:
//1. таргет на продавце, пауза, снова таргет (c04=Action, c04=Action)
//2. приходит s0F=NpcHtmlMessage:d(MessageID)s(HTML)d(d)
//3. шлем выбранный пункт из меню c21=RequestBypassToServer:s(Cmd)
//4. приходит sD0=MultiSellList:d(listId)d(page_beg)d(page_end)d (onpage)d(entrycount)d(EntryId)b(?)w(prodcount)w(i temcount<)w(pItemId)d(?)w(ptype2)d(pcount)w(pencha nt)w(iItemId)w(itype2)d(icount)w(ienchant)
//5. FindItem(ID) найдем OID, Count нужной вещи по ID
//6. шлем cA7=RequestMultiSellChoose:h(ListID)d(EntryID)d(Am ount)
//************************************************** **************************
if ReadyToMultiSell and (FishermanOID<>0) then begin
if (ConnectName=Name) and FromServer then begin
case pck[1] of
//после того как мы взяли в таргет продавца приходит этот пакет
//s0F=NpcHtmlMessage:d(MessageID)s(HTML)d(d)
#$0F: begin
msg.Lines.Add('S>Пакет NpcHtmlMessage #$0F');
if ReadD(2)=FishermanOID then begin
//шлем запрос выбора пункта - продажа
//c21=RequestBypassToServer:s(Cmd)
delay(1000);
RequestByPassToServer(getmultisell);
msg.Lines.Add('C>Пакет RequestBypassToServer #$21 (multisell)');
end;
end;
//после выбора пункта - обмен, приходит этот пакет
//sD0=MultiSellList:d(listId)d(page_beg)d(page_end)d (onpage)d(entrycount)d(EntryId)b(?)w(prodcount)w(i temcount<)w(pItemId)d(?)w(ptype2)d(pcount)w(pencha nt)w(iItemId)w(itype2)d(icount)w(ienchant)
#$D0: begin
msg.Lines.Add('S>Пакет MultiSellList #$D0');
ListID:=ReadD(2); //запоминаем, он все время разный
msg.Lines.Add('ListID='+inttostr(ListID));
//шлем запрос на обмен
//cA7=RequestMultiSellChoose:h(ListID)d(EntryID)d(Am ount)
msg.Lines.Add('C>Пакет RequestMultiSellChoose #$A7(ListId:'+IntToStr(ListId)+' EntryId:'+IntToStr(Trd*2+1)+' Count:'+IntToStr(ItemBase2[3,1])+')');
delay(1000);
//в java -> EntryId * k=100000
RequestMultiSellItem(ListId,Trd*2+1,ItemBase2[3,1]);
ReadyToMultiSell:=false;
end;
end;
end;
end;

...
end.
>>>>>>>>>>>>>>Чучуть тут подразобрался пакеты клинту пробывал отсылались.... на продажу ....выделение НПСа... и т д.... Ток объясните мне пожл что в етом куске и куда именно надо вписывать под мой серв...

P.S. Был полным нубом в етих делах... щас потихоньку начинаю разбираться....
P.P.S. Не смейтесь если что не так произнес ибо спросил или сказал ))))) Всему свое время =)

[Sieg]

Абсолютно нупский вопрос, ответ на который мне не дает спать:
возможно ли запускать на выполнение альтернативные потоки? И если можно, то как?

[ake1a]

Sieg

P.S. Был полным нубом в етих делах... щас потихоньку начинаю разбираться....
P.P.S. Не смейтесь если что не так произнес ибо спросил или сказал ))))) Всему свое время =)

попойму тут все ясно написано.... не разбираюсь я етом на проф уровне поетому и прошу помощи тут....
Я уже понял что бот не видит кнопки ГМшопа и не может на них нажать....
Вот дайте мне ктонит ответ как сделать скрипт который будет нажимать на ети кнопки?? или еще что нить подобного рода =(

[QaK]

ake1a, если что - это ветка не про бота а про ПНХ, чтобы исполнялись скрипты надо кнопки переделать в ссылки, это возможно как минимум 2мя способами: купить у хкора привязку к манагеру, манагер автоматом, вроде преобразовывает, или наваять скрипт для ПНХ, чтоб тож преобразовывал, и гонять ботов через этот скрипт.

[Stasrus]

Подскажите как можно изменить пакет,
например клиент посылает изменяемый пакет 2E 00 00 00 79 34 15 00 22 05 11 48
нужно допустим заменить неизменные части 79 на 99 и 22 05 11 48 на 11 11 11 11 не трогая при этом остальной изменяемой части и отправить его серверу.

Если пакет неизменный трудностей с переделкой и отправкой нет, но немогу додуматься как переделать изменяемый пакет.

[Sieg]

if (pck[1]=#$2E) and FromClient then
begin
pck[5]:=#$99
pck[9]=#$11
pck[10]:=#$11
pck[11]:=#$11
pck[12]:=#$11
exit;
end;

Либо так, либо я не понял вопроса...

[Stasrus]

Спасибо Sieg, очень помог.

[NLObP]

Сообщение от Stasrus

Подскажите как можно изменить пакет,
например клиент посылает изменяемый пакет 2E 00 00 00 79 34 15 00 22 05 11 48
нужно допустим заменить неизменные части 79 на 99 и 22 05 11 48 на 11 11 11 11 не трогая при этом остальной изменяемой части и отправить его серверу.

Если пакет неизменный трудностей с переделкой и отправкой нет, но немогу додуматься как переделать изменяемый пакет.

Tип: 0x2E (RequestMagicSkillList)
Pазмер: 12+2

0002 c c: 0 (0x00)
0003 c c: 0 (0x00)
0004 c c: 0 (0x00)
0005 d CharID: 1389689 (0x00153479)
0009 d ObjectID: 1209074978 (0x48110522)

if (pck[1]=#$2E) and FromClient then 
begin
  buf:=pck;  //копируем пришедший пакет 2E 00 00 00 79 34 15 00 22 05 11 48
  pck:='';   //удаляем
  //формат команды вставки данных WriteD(data, index: integer), по умолчанию index=0, index увеличивается на длину данных
  WriteC($99, 5);        //заменяем 79 на 99
  WriteD($11111111, 9); //заменяем 22051148 на 11111111
  SendToServer;
end;

PS: вроде так

[Sieg]

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

З.Ы.: жаль, на мой вопрос так и нету ответа...