Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в эту темуОткрыть новую тему
> Нужна помошь в модернизации скрипта на мининг, Сервер Tne Abyss
dfczgfgrf
сообщение 11.6.2018, 22:35
Сообщение #1


*

Registred
Сообщений: 4
Регистрация: 7.6.2018
Группа: Пользователи
Наличность: 34
Пользователь №: 18.970



Всем здравствуйте, помогите пожалуйста модернизировать скрипт на Мининг

нашел в нете более менее приличный скрипт с Абусса, копает в хайде, змейкой вниз, или можно сделать вверх, припятствия не обходит, но всё это меня устраивает, было бы замечательно мадернизировать его на
задачу трека, чтоб если видел в треке чара сразу рекол, если у кого есть познания в этом прошу помогите

PS. Скрипт загружаю вместе с Охранным скриптом на You see и прочее...

вот сам скрипт

// Mining Script
start_script 3 //Запустить скрипт безопасности

// F6 Хайдиться
// F11 Lastobject-WaitForTarget-LastTarget

set #hide 1 // 1 - копать схайденным, 0 - нет
set #irn 1 // 1 - Пропускать айрон, 0 - нет
set #napr 0 // В какую сторону копать: 0 - справа-налево, 1 - слева-направо
set #sdvig 0 // Куда сдвигаться при развороте: 0 - вниз, 1 - вверх
set #ves 440 // Максимальный вес, подымаемый чаром минус 10-15 стоунов
set #recall 0 // 1 - реколиться при перевесе, 0 - пищать
set #proba 5 // количество попыток на одном месте

set lastobjectid 04176464d //ID кирки
set lastobjecttype 3717 //Тип кирки

// Начальный блок
if #hide = 1
while_not lastmsg well
send F6
wait 3000 // Пытаемся захайдиться
end_while
end_if

// Основная процедура
:main
set #xx charposx // текущие координаты чара
set #yy charposy
gosub kopaem
gosub idem_hor
if #xx = charposx and #yy = charposy // положение чара при движении не изменилось!
gosub razvorot
end_if
if wght > #ves // Вес превышен!
wait 1500
goto fin // пора заканчивать
end_if
goto main

// Процедура вскапывания
if #hide = 1
while_not lastmsg well
send F6 2500 // Пытаемся захайдиться
end_while
end_if
:kopaem
set lasttargetx charposx
set lasttargety charposy
set lasttargetkind 2
gosub dyatel // копаем в этой точке
return

// Процедура тотальной вскопки данной точки
:dyatel
set #p 0
:mining
send F11 // lastobject - watfortarget - lastarget
wait 1500
:proverka
if (lastmsg no ore) or (lastmsg mining in rock) or (lastmsg have no line) or (lastmsg get there) or (lastmsg you can't)
return
end_if
if wght > #ves
wait 1500
gosub fin
end_if
wait 3500
if #irn = 1 //пропуск айронa
if lastmsg iron
return
end_if
end_if
set #p #p + 1
if #p > #proba
return
end_if
goto mining
return

// Процедура сдвига чара шаг горизонтально
:idem_hor
if #napr = 0
send Left
if #hide = 1 // Если мы в хайде - надо паузу между шагами
wait 1000
if lastmsg been revealed
send F6
wait 2500
end_if
end_if
else
send Right
if #hide = 1 // Если мы в хайде - надо паузу между шагами
wait 1000
if lastmsg been revealed
send F6
wait 2500
end_if
end_if
end_if
return

// Процедура сдвига чара по вертикали при развороте
:razvorot
if #sdvig = 0
if #napr = 0// Меняем направление движения
send pagedown
send pagedown
send Right
set #napr 1
else
send end
send end
send Left
set #napr 0
end_if
if #hide = 1 // Если мы в хайде - надо паузу между шагами
wait 1000
if lastmsg been revealed
send F6
wait 2500
end_if
end_if
else
if #napr = 0// Меняем направление движения
send pageup
send pageup
send Right
set #napr 1
else
send home
send home
send Left
set #napr 0
end_if
if #hide = 1 // Если мы в хайде - надо паузу между шагами
wait 1000
if lastmsg been revealed
send F6
wait 2500
end_if
end_if
end_if
return
:fin
if #recall = 0 // Пищать или реколиться...
stop_script 2
send F12 //Макрос реколла
else
alarm
alarm
end_if
end_script
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия | Версия для КПК Сейчас: 21.6.2018, 18:53
Designed by Nickostyle