Автоматизация сдачи всходов МАНОР МЕНЕДЖЕРУ - Страница 8

Grinch · 24.08.2008, 15:24

ovchars, чел в этой теме всё описано если ты такой тупой что не можешь это прочитать то мне проще тя забанить. кстати ещё 1 пост в этой теме от тебя и забаню. просто уже на 4-х страницах отвечено было на все дебильные вопросы.

MIhei · 24.08.2008, 22:09

спасибо VORON за скрипт всё работает на серверах ШОКА

bronik · 29.08.2008, 15:13

Работает, но с приходом ИЛа, не здаётся манор..) Точнее сказать, ктото стал всё сгребать.. на С4 пару раз в неделю ловил свой хлеб, а тут уже месяц сух паёк... Никто по этому поводу инфы ни добавит?

Kuhan · 30.09.2008, 11:59

Я на Шоке здаю манор Иг ботом вот мой скрипт:
MSG
NPCDLG(Manor Manager[ID=35231])
DELAY(150)
LABEL(HOME)
NPCDLG(Manor Manager)
DELAY(150)
DLGSEL(Подсчитать товары.)// то что написано у вас в диологе с НСП
DELAY(150)
SELLCROP(Red Cobol[ID=5078]),510// здесь писать тип семян для сдачи и его айди (возможно вместо SEEDCROP будет работать SEEDSEEL)
DELAY(900)
CALL(HOME)
И не как не могу разобратся как написать скрипт на здачу нескольких сортов плодов за раз.Подскажите плиз.

Breadfan · 06.10.2008, 02:07

В камаеле нельзя выбирать семена\плоды пока не наступило время продажи, так что приходится постоянно жать на менеджера и проверять состояние поместья:

delphi Код:

const
name='';
var
OIDnpc:integer;
MyX,MyY,Myz:integer;
start:boolean;
startsk,startcmd:ttimer;
kolvocmd,i,j,jj,x,step,st,p,SeedID,Seedcount,count,IDlist,ListSize:integer;
Buy:array[1..15,1..2] of integer;
CmdNpc:array[1..50] of string;
findt,oldpck,cmd,itemIDstr,countstr:string;
Ste:array[1..3] of integer;
procedure Init; //Вызывается при включении скрипта
begin
OIDnpc:=268476667;   //ID манор менеджера
startcmd:=TTimer.Create(nil);
startcmd.OnTimer:=@scmd;
startcmd.enabled:=false;
startcmd.interval:=500;
startsk:=TTimer.Create(nil);
startsk.OnTimer:=@skupka;
startsk.enabled:=false;
startsk.interval:=50;
Ste[1]:= 1;
step:=0;
count:=0;
end;
procedure Free; //Вызывается при выключении скрипта
begin
startsk.free;
end;
procedure scmd;
begin
  sendmsg(cmd);
  RequestByPassToServer(cmd);
  startcmd.enabled:=false;
end;

{procedure SendMsg(msg:string);  //отправка системных сообщений клиенту
begin
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(msg);
  SendToClientEx(Name);
end;}

procedure Skupka;
begin
target(OIDnpc);
delay(500);
end;

procedure Target(Attacker: Integer);
begin
sendmsg('Target');
buf:=#$1f;
  WriteD(Attacker);
  WriteD(MyX);
  WriteD(MyY);
  WriteD(MyZ);
  WriteC(00);
  SendToServerEx(Name);
end;

procedure CmdNpcParc;
Begin
kolvocmd:=0;
for j:=1 to 2 do begin
CmdNpc[j]:='';
end;
sendmsg('search command');
for j:=1 to length(oldpck) do  begin
    for x:=0 to 9 do begin
        findt:=findt+oldpck[j+x];
    end;
    if findt='bypass -h ' then begin
       for x:=10 to 25 do begin
           CmdNpc[kolvocmd+1]:=CmdNpc[kolvocmd+1]+oldpck[j+x];
       end;
       kolvocmd:=kolvocmd+1;
       if kolvocmd>0 then exit
       end;
    findt:='';
end;
end;

procedure RequestByPassToServer(cmd:string);
begin
  buf:=#$23;
  WriteS(cmd);
  SendToServerEx(Name);
end;

procedure RequestBuySeed;
begin
  sendmsg('Buy Seed');
  buf:=#$C5;
  WriteD(IDlist);
  WriteD(count);
  for i:=1 to count do begin
  WriteD(buy[i,1]);
  WriteD(buy[i,2]);
  end;
  SendToServerEx(Name);
end;
//----------------------------------------------------------
begin
if FromClient and (ConnectName=name) and (pck[1]=#$59)  then
   begin
        MyX:=ReadD(6);
        MyY:=ReadD(10);
        MyZ:=ReadD(14);
        sendmsg('Есть координаты');
        end;
if FromClient and (ConnectName=name) and (pck[1]=#$34)  and (pck[2]=#$06) then
begin
sendmsg('Proba');
startsk.enabled:=true;
end;
if FromClient and (ConnectName=name) and (pck[1]=#$34)  and (pck[2]=#$05) then startsk.enabled:=false;
if fromserver and (ConnectName=name) and (pck[1]=#$19) then begin
   oldpck:=ReadS(6);
   CmdNpcParc;
   if not startcmd.enabled then step:=step+1;
   if step=2 then step:=1;
   cmd:=CmdNpc[ste[step]];
   startcmd.enabled:=true;
end;
//------------Обрабатываем пакет BuyListSeed--------------
if fromserver and (ConnectName=name) and (pck[1]=#$e9) then begin
sendmsg('Search in packets #$E9');
startsk.enabled:=false;
IDlist:=ReadD(6);
   ListSize:=ReadC(10);
   jj:=1;
   sendmsg(inttostr(Listsize));
   for j:=1 to ListSize do begin
      i:=18+((j-1)*22);
      SeedID:=ReadD(i);
      Seedcount:=ReadD(i);
      if (Seedid=6754) or (Seedid=6755) or (Seedid=6755) or (Seedid=6756) or (Seedid=8521) or (Seedid=6757) or (Seedid=6758) or (Seedid=6759) or (Seedid=6760) or (Seedid=6761) or (Seedid=6773) or (Seedid=6774) or (Seedid=6775) or (Seedid=6776) or (Seedid=6777) or (Seedid=6778) or (Seedid=8228) or (Seedid=6762) or (Seedid=6763) or (Seedid=6764) or (Seedid=6765) or (Seedid=6766) or (Seedid=8229) then begin   //or (Seedid=1829) or (Seedid=7134) or (Seedid=7126)
      buy[jj,1]:=SeedID;
      buy[jj,2]:=Seedcount;
      count:=count+1;
      inc(jj,1);
      end else begin
      startsk.enabled:=true;
      end;
   end;
if count<>0 then begin
   RequestBuySeed;
   startsk.enabled:=true;
   count:=0;
   end;
sendmsg('Finish Check');
end;
end.

Поставил длиннющую проверку совпадения ID, подозреваю что можно выдернуть их из ItemsId.INI по имени семечки но как недогадываюсь)) Также надо следить за OID манорщика, а в остальном скупает нормально. Здесь поставлена скупка простых голд дезерт ред коб семян. Запуск: немного пройтись (получить координаты), взять манорщика в таргет (можно кстати тут и сделать получение OID), нажать соц.ДА
Скрипт под версию 3.3.9

Screamer · 13.10.2008, 09:17

Скрипт на сдачу от ворона работал очень замечательно на С4. А вот можно ли его переписать под ХБ? Прошу пару наводок- как это сделать, или сам скрипт в студию

Заранее спасибо.

Breadfan · 13.10.2008, 22:37

Нууу, скрипт на сдачу лишь в планах ) ибо должен выяснять что есть в сумке из плодов, получать информацию о закупке замков, тип ресурсов выдаваемых взамен, закупочную цену плодов и в зависимости от этого пытаться что либо сдать...в принципе можно сделать это все константами - смотреть заранее в статусе манора, а потом каждый раз вбивать значения, можно и более автоматизировать. В скрипте должны присутствовать процедуры получения команды, выяснения чего там принимают, создания собственно самого пакета (ов) на сдачу. Вроде так

Добавлено через 49 секунд
P.S. А скрипт на скупку у вас работает там? Я пишу ориентируясь на свой сервер, на других не пробовал

Screamer · 13.10.2008, 22:54

Скрипт не работает ни один. Вот Пакетами и покупает и сдает без проблем. Впринципе этого достаточно. Но хотелось бы скриптом сдавать)

Breadfan · 14.10.2008, 01:53

Перса стоящего в городе с аденами - в студию

Screamer · 14.10.2008, 20:43

Цитата:

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

Нууу, скрипт на сдачу лишь в планах ) ибо должен выяснять что есть в сумке из плодов, получать информацию о закупке замков, тип ресурсов выдаваемых взамен, закупочную цену плодов и в зависимости от этого пытаться что либо сдать...в принципе можно сделать это все константами - смотреть заранее в статусе манора, а потом каждый раз вбивать значения, можно и более автоматизировать. В скрипте должны присутствовать процедуры получения команды, выяснения чего там принимают, создания собственно самого пакета (ов) на сдачу. Вроде так

Это конечно все дебри и дебри. Зачем нужны такие сложности?)
Ты Вороновским скриптом пользовался? Там все проще) Пытаешься сдать манор ручками, до того, как Манагер начал принимать плоды, а за пару секунд до сдачи бот тупо повторяет операцию с манор манагером столько раз, сколько тебе нужно. Та же отсылка пакетов, только полностью автоматизированая.
Сегодня попробую покапаться в скрипте. Есть пара мыслишек

Добавлено через 1 минуту
P.S.: А хотя... Такой скрипт, что ты описал- куда приятнее)