Сообщения без ответов | Активные темы Текущее время: Пт сен 22, 2017 8:48 am



Ответить на тему  [ Сообщений: 4 ] 
Доделать не могу, очень простой кто знает 
Автор Сообщение

Зарегистрирован: Пт окт 14, 2016 12:00 pm
Сообщений: 17
Сообщение Доделать не могу, очень простой кто знает
Есть простенький скрипт с которым всегда работаю, только вот быстро возникает перевес на париках и постоянна делаю тп в город и отправляю в почту другому чару потом обратно на спот по сохраненный точки. Попытался сам, пока без тп на спот, ошибку не показывает, но и не работает.
Вот сам скрипт простого фарма-парика:
Begin
while 1<>2 do begin

begin
Engine.FaceControl(0,false);
delay(550);

begin
Engine.UseSkill(10294);
Engine.MoveTo(215960, 111176, -1304);
Engine.MoveTo(216136, 111496, -1304);
Engine.MoveTo(216072, 111976, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(216088, 112280, -1304);
Engine.MoveTo(216248, 112600, -1304);
Engine.MoveTo(216424, 112696, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(216680, 112856, -1304);
Engine.MoveTo(216920, 112920, -1304);
Engine.MoveTo(217352, 112776, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(217720, 112856, -1304);
Engine.MoveTo(218200, 112760, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(218520, 112872, -1304);
Engine.MoveTo(219032, 112888, -1304);
Engine.MoveTo(219064, 112664, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(219368, 112344, -1304);
Engine.MoveTo(219528, 112040, -1304);
Engine.MoveTo(219464, 111752, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(219496, 111304, -1304);
Engine.MoveTo(219560, 111096, -1304);
Engine.MoveTo(219288, 110904, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(219432, 110568, -1304);
Engine.MoveTo(219544, 110088, -1304);
Engine.MoveTo(219480, 109736, -1304);
Engine.MoveTo(219128, 109576, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(218728, 109432, -1304);
Engine.MoveTo(218440, 109496, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(218136, 109384, -1304);
Engine.MoveTo(217768, 109464, -1304);
Engine.MoveTo(217496, 109768, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(217176, 109512, -1304);
Engine.MoveTo(216760, 109384, -1304);
Engine.MoveTo(216344, 109512, -1304);
Engine.MoveTo(216280, 109784, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(216088, 110072, -1304);
Engine.MoveTo(216040, 110360, -1304);
Engine.MoveTo(216232, 110616, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(216616, 110696, -1304);
Engine.MoveTo(216824, 110872, -1304);
Engine.MoveTo(217000, 111128, -1336);
Engine.MoveTo(217208, 111176, -1344);
Engine.UseSkill(10271);
Engine.MoveTo(217464, 110936, -1344);
Engine.MoveTo(217720, 110760, -1344);
Engine.MoveTo(218040, 110792, -1344);
Engine.MoveTo(218232, 111048, -1344);
Engine.MoveTo(218184, 111256, -1344);
Engine.UseSkill(10271);
Engine.MoveTo(217976, 111512, -1344);
Engine.MoveTo(217720, 111592, -1344);
Engine.MoveTo(217560, 111496, -1344);
Engine.UseSkill(10271);
Engine.MoveTo(217368, 111240, -1344);
Engine.MoveTo(217128, 111160, -1344);
Engine.MoveTo(216888, 111176, -1312);
Engine.MoveTo(216472, 111320, -1304);
Engine.MoveTo(215960, 111304, -1304);

delay(1550);
Engine.UseSkill(10265);
delay(1550);
Engine.UseSkill(10265);
delay(1550);
Engine.FaceControl(0,true);

delay(550);
end;
delay(120000);
end;
delay(550);
end;
delay(550);
end.

А вот попытка автоматизировать все кроме тп обратно:



Begin
while 1<>2 do begin

if User.Dead then
begin
Engine.FaceControl(0,false);
Engine.gohome;
delay(5000);
end;

if (User.Load > 60) then begin
begin
Engine.FaceControl(0,false);
Engine.UseItem(1538);
delay(5000);
end;

begin
Engine.SendMail('Кука', 'проба', 'пробаа',[36527,9999,36528,9999,36547,9999,36548,9999,36558,9999,36557,9999,36562,9999,36563,9999,36517,9999,36522,9999,36518,9999,36523,9999]);
delay(1000);
end;

begin
Engine.FaceControl(0,false);
delay(550);

begin
Engine.UseSkill(10294);
Engine.MoveTo(215960, 111176, -1304);
Engine.MoveTo(216136, 111496, -1304);
Engine.MoveTo(216072, 111976, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(216088, 112280, -1304);
Engine.MoveTo(216248, 112600, -1304);
Engine.MoveTo(216424, 112696, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(216680, 112856, -1304);
Engine.MoveTo(216920, 112920, -1304);
Engine.MoveTo(217352, 112776, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(217720, 112856, -1304);
Engine.MoveTo(218200, 112760, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(218520, 112872, -1304);
Engine.MoveTo(219032, 112888, -1304);
Engine.MoveTo(219064, 112664, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(219368, 112344, -1304);
Engine.MoveTo(219528, 112040, -1304);
Engine.MoveTo(219464, 111752, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(219496, 111304, -1304);
Engine.MoveTo(219560, 111096, -1304);
Engine.MoveTo(219288, 110904, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(219432, 110568, -1304);
Engine.MoveTo(219544, 110088, -1304);
Engine.MoveTo(219480, 109736, -1304);
Engine.MoveTo(219128, 109576, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(218728, 109432, -1304);
Engine.MoveTo(218440, 109496, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(218136, 109384, -1304);
Engine.MoveTo(217768, 109464, -1304);
Engine.MoveTo(217496, 109768, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(217176, 109512, -1304);
Engine.MoveTo(216760, 109384, -1304);
Engine.MoveTo(216344, 109512, -1304);
Engine.MoveTo(216280, 109784, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(216088, 110072, -1304);
Engine.MoveTo(216040, 110360, -1304);
Engine.MoveTo(216232, 110616, -1304);
Engine.UseSkill(10271);
Engine.MoveTo(216616, 110696, -1304);
Engine.MoveTo(216824, 110872, -1304);
Engine.MoveTo(217000, 111128, -1336);
Engine.MoveTo(217208, 111176, -1344);
Engine.UseSkill(10271);
Engine.MoveTo(217464, 110936, -1344);
Engine.MoveTo(217720, 110760, -1344);
Engine.MoveTo(218040, 110792, -1344);
Engine.MoveTo(218232, 111048, -1344);
Engine.MoveTo(218184, 111256, -1344);
Engine.UseSkill(10271);
Engine.MoveTo(217976, 111512, -1344);
Engine.MoveTo(217720, 111592, -1344);
Engine.MoveTo(217560, 111496, -1344);
Engine.UseSkill(10271);
Engine.MoveTo(217368, 111240, -1344);
Engine.MoveTo(217128, 111160, -1344);
Engine.MoveTo(216888, 111176, -1312);
Engine.MoveTo(216472, 111320, -1304);
Engine.MoveTo(215960, 111304, -1304);

delay(1550);
Engine.UseSkill(10265);
delay(1550);
Engine.UseSkill(10265);
delay(1550);
Engine.FaceControl(0,true);

delay(550);
end;
delay(120000);
end;
delay(550);
end;
delay(550);
end;
end.

Просьба очень где что не так и еще бы возврат на сохранненую точку

_________________
skype:nyr8888


Вс янв 08, 2017 5:56 pm
Профиль

Зарегистрирован: Пт окт 14, 2016 12:00 pm
Сообщений: 17
Сообщение Re: Доделать не могу, очень простой кто знает
Вообщем проверил, пробовал умереть от мобов--работает,тп в город делает, пробовал сделать перевес инвентаря, тоже работает-- делает тп в город и отправляет почту, а вот потом когда лечу на спот ,то не начинает парики собирать. А скрипт на парик, чисто без дополнении, работает норм. Подскажите плиз что добавить надо? Логично чувствую, что какую то проверку надо добавить перед фармом, но как это реализовать, не хватает грамотности в этом деле. Неужели никто не поможет,просмотров много, и не одной подсказки(

_________________
skype:nyr8888


Пн янв 09, 2017 6:49 am
Профиль

Зарегистрирован: Пт окт 14, 2016 12:00 pm
Сообщений: 17
Сообщение Re: Доделать не могу, очень простой кто знает
Мда... тут наверное ответа не дождаться.. Вообщем поменял скрипты местами, фарм поставил в начале, и эврика!! скрип заработал. Не думал что это имеет значение. Час бы мне вернутся на сохраненную точку через скрипт и главное добавить на уже имеющийся, вот бы тогда это был бы полноценный бот)) А так , тока название. Если не получится, больше и не стоит покупать адрик, уже твердо решил, адрик без скрипта -это не бот, а тока "чертеж"

_________________
skype:nyr8888


Пн янв 09, 2017 1:33 pm
Профиль
Флудер

Зарегистрирован: Ср дек 24, 2014 5:27 pm
Сообщений: 230
Сообщение Re: Доделать не могу, очень простой кто знает
написал в лс


Вт янв 10, 2017 1:48 am
Профиль ICQ YIM
Показать сообщения за:  Сортировать по:  
Ответить на тему   [ Сообщений: 4 ] 

Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Разработано: g-yar.
Русская поддержка phpBB