ovchars, чел в этой теме всё описано если ты такой тупой что не можешь это прочитать то мне проще тя забанить. кстати ещё 1 пост в этой теме от тебя и забаню. просто уже на 4-х страницах отвечено было на все дебильные вопросы.
Работает, но с приходом ИЛа, не здаётся манор..) Точнее сказать, ктото стал всё сгребать.. на С4 пару раз в неделю ловил свой хлеб, а тут уже месяц сух паёк... Никто по этому поводу инфы ни добавит?
Я на Шоке здаю манор Иг ботом вот мой скрипт: 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)
И не как не могу разобратся как написать скрипт на здачу нескольких сортов плодов за раз.Подскажите плиз.
В камаеле нельзя выбирать семена\плоды пока не наступило время продажи, так что приходится постоянно жать на менеджера и проверять состояние поместья:
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] ofinteger;
CmdNpc:array[1..50] ofstring;
findt,oldpck,cmd,itemIDstr,countstr:string;
Ste:array[1..3] ofinteger;
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:=1to2dobegin
CmdNpc[j]:='';
end;
sendmsg('search command');
for j:=1tolength(oldpck)dobeginfor x:=0to9dobegin
findt:=findt+oldpck[j+x];
end;
if findt='bypass -h 'thenbeginfor x:=10to25dobegin
CmdNpc[kolvocmd+1]:=CmdNpc[kolvocmd+1]+oldpck[j+x];
end;
kolvocmd:=kolvocmd+1;
if kolvocmd>0thenexitend;
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:=1to count dobegin
WriteD(buy[i,1]);
WriteD(buy[i,2]);
end;
SendToServerEx(Name);
end;
//----------------------------------------------------------beginif FromClient and(ConnectName=name)and(pck[1]=#$59)thenbegin
MyX:=ReadD(6);
MyY:=ReadD(10);
MyZ:=ReadD(14);
sendmsg('Есть координаты');
end;
if FromClient and(ConnectName=name)and(pck[1]=#$34)and(pck[2]=#$06)thenbegin
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)thenbegin
oldpck:=ReadS(6);
CmdNpcParc;
ifnot startcmd.enabledthen step:=step+1;
if step=2then step:=1;
cmd:=CmdNpc[ste[step]];
startcmd.enabled:=true;
end;
//------------Обрабатываем пакет BuyListSeed--------------if fromserver and(ConnectName=name)and(pck[1]=#$e9)thenbegin
sendmsg('Search in packets #$E9');
startsk.enabled:=false;
IDlist:=ReadD(6);
ListSize:=ReadC(10);
jj:=1;
sendmsg(inttostr(Listsize));
for j:=1to ListSize dobegin
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)thenbegin//or (Seedid=1829) or (Seedid=7134) or (Seedid=7126)
buy[jj,1]:=SeedID;
buy[jj,2]:=Seedcount;
count:=count+1;
inc(jj,1);
endelsebegin
startsk.enabled:=true;
end;
end;
if count<>0thenbegin
RequestBuySeed;
startsk.enabled:=true;
count:=0;
end;
sendmsg('Finish Check');
end;
end.
Поставил длиннющую проверку совпадения ID, подозреваю что можно выдернуть их из ItemsId.INI по имени семечки но как недогадываюсь)) Также надо следить за OID манорщика, а в остальном скупает нормально. Здесь поставлена скупка простых голд дезерт ред коб семян. Запуск: немного пройтись (получить координаты), взять манорщика в таргет (можно кстати тут и сделать получение OID), нажать соц.ДА
Скрипт под версию 3.3.9
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 06.10.2008 в 02:12.
За это сообщение Breadfan нажился 2 спасибками от:
Скрипт на сдачу от ворона работал очень замечательно на С4. А вот можно ли его переписать под ХБ? Прошу пару наводок- как это сделать, или сам скрипт в студию
Заранее спасибо.
Нууу, скрипт на сдачу лишь в планах ) ибо должен выяснять что есть в сумке из плодов, получать информацию о закупке замков, тип ресурсов выдаваемых взамен, закупочную цену плодов и в зависимости от этого пытаться что либо сдать...в принципе можно сделать это все константами - смотреть заранее в статусе манора, а потом каждый раз вбивать значения, можно и более автоматизировать. В скрипте должны присутствовать процедуры получения команды, выяснения чего там принимают, создания собственно самого пакета (ов) на сдачу. Вроде так
Добавлено через 49 секунд
P.S. А скрипт на скупку у вас работает там? Я пишу ориентируясь на свой сервер, на других не пробовал
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 13.10.2008 в 22:38.
Причина: Добавлено сообщение
__________________ На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Нууу, скрипт на сдачу лишь в планах ) ибо должен выяснять что есть в сумке из плодов, получать информацию о закупке замков, тип ресурсов выдаваемых взамен, закупочную цену плодов и в зависимости от этого пытаться что либо сдать...в принципе можно сделать это все константами - смотреть заранее в статусе манора, а потом каждый раз вбивать значения, можно и более автоматизировать. В скрипте должны присутствовать процедуры получения команды, выяснения чего там принимают, создания собственно самого пакета (ов) на сдачу. Вроде так
Это конечно все дебри и дебри. Зачем нужны такие сложности?)
Ты Вороновским скриптом пользовался? Там все проще) Пытаешься сдать манор ручками, до того, как Манагер начал принимать плоды, а за пару секунд до сдачи бот тупо повторяет операцию с манор манагером столько раз, сколько тебе нужно. Та же отсылка пакетов, только полностью автоматизированая.
Сегодня попробую покапаться в скрипте. Есть пара мыслишек
Добавлено через 1 минуту
P.S.: А хотя... Такой скрипт, что ты описал- куда приятнее)
Последний раз редактировалось Screamer, 14.10.2008 в 20:43.
Причина: Добавлено сообщение