Тема: МАКРОСЫ
Показать сообщение отдельно
СКРИПТ НА ФИШИНГ
Старый 06.02.2010, 13:43   #17
IYDA
Newbie
 
Регистрация: 04.09.2009
Сообщений: 52
Репутация: 1 [+/-]
имеет нулевую репутацию
IYDA имеет нулевую репутацию
Чар: IYDA
По умолчанию СКРИПТ НА ФИШИНГ

[PHP]
//-----------FISHING-------------
gosub fishingsub //вылов рыбы
//13 тайлов по мосту
repeat 13
send PageDown 200 //направление движения. Изменить на нужное
end_repeat
end_repeat
//идем по берегу на исходную точку 7 тайл.
repeat 27 //один тайл на разворот.
send home 200
end_repeat
send PageDown 200 //разворот.
// сколько циклов сделали за ночь (для оптимистов и статистиков)
set #counter #counter +1
:fishingsub //fishing sub
// энта часть заимствована у кого-то, но оптимизирована и доработана до слабой узнаваемости.
for #y -6 6 1 // !!!воот тут, если копаете с берега, а не с моста,
for #x -6 6 1 // !!!надо подправить макс координаты по X и Y.
:fishing //подпрограмма вылова рыбы
set lasttargetx charposx + #x
set lasttargety charposy + #y
set lasttargetkind 2
send F1 1000 // LastObject, WaitForTarget, LastTarget
set timer 0
while_not (lastmsg pull) or (lastmsg fail) or (lastmsg Try) or (lastmsg quick) or (lastmsg no fish) or (timer > 6000)
end_while
if (lastmsg Try) or (lastmsg quick) or (lastmsg no fish) or (lastmsg fail)
wait 1500 // задержка после неудачного использования на удочке.
end_if

if (lastmsg pull) and (wght < 620) //!!! если цель просто прокачка, это можно отключить для экономии времени.
drag 406, 298 404, 254 all // перетаскивание рыбы на себя.
drag 406, 298 404, 254 all // перетаскивание рыбы на себя.
wait 500
end_if

if lastmsg destroer //сломалась удочка
send f3 500 //!!! в ассисте - target type на удочку
double_left 810, 68 //!!! координаты удочки в руке. Надежнее, чем брать из пака.
wait 500
send f2 1000
end_if
if_not (lastmsg are no fish) or (lastmsg Try) or (lastmsg pull)
//!!! последний or - ловля будет продолжаться только один раз вместо ловли до no fish
//если длина берега достаточная, это ускоряет процесс ловли и прокачки.
//Если скилл меньше 60, то имеет смысл поставить // перед or (lastmsg pull)
goto fishing // процедура вылова рыбы.
end_if
end_for
end_for
return //fishing


+ дополнение к скрипту
//паузы скрипта фишинга чтобы скрипт не прервался в какой-нибудь неудобный момент
if lastmsg world
pause_script 3 //!!!номер останавливаемого скрипта прописать надо!
wait 10000
say Save the Power of Macros! //эт чтобы сбросить Lastmsg
resume_script 3 //!!!номер останавливаемого скрипта прописать надо!
end_if
// проверка - не убивают ли вас, пока вы спокойно удите..
if (lastmsg hit) or (lastmsg attacking you) or (hits < str)
repeat 3
say guards
wait 1000
end_repeat
end_if
[/PHP]
IYDA вне форума   Ответить с цитированием