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

[ratvier]

ake1a, в гм шопе наверное не ссылки, как у обычных нпц, а кнопки?

[ake1a]

ake1a, в гм шопе наверное не ссылки, как у обычных нпц, а кнопки?

и как тогда быть? подскаите пожл....

[ratvier]

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

и как тогда быть? подскаите пожл....

Бегать к нпц, которому можно продать

[ake1a]

ratvier

Цитата:
Сообщение от ake1a
и как тогда быть? подскаите пожл....

Бегать к нпц, которому можно продать

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

[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]

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

[NLObP]

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

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

Может быть вместо альтернативных потоков устроит параллельное исполнение до 64 скриптов и передача информации между ними?

Пример взаимодействия скриптов:
getvars.txt

function getVar (s: string; i: integer): variant;
const x = 5;
begin
  Result := 'ваш '+ s +' = '+ IntToStr (i * x);
end;

begin end.

myscript.txt

procedure Init;
var res: variant;
begin
   res := CallSF ('getVars', 'getVar', ['SP', 10]);
   sendMSG(res);
end;

begin
end.

[ake1a]

Sieg

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

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

[QaK]

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