Карусель тем сервиса MYBB2.Ru
Ссылка на тему: http://uopilot.mybb2.ru/viewtopic.php?t=2

Сообщение #118715

 
Чар обкапывает вокруг себя

set #ves 430 // максимальный вес
set #proba 4 // кол-во закопов в одной точке
set lastobjectid 1073757117 // id кирки

:main
gosub kopaem
gosub fin

:kopaem
for #y -2 2 1
for #x -2 2 1
set lasttargetx charposx + #x
set lasttargety charposy + #y
set lasttargetkind 2
gosub dyatel
end_for
end_for
return

:dyatel
set #p 0
:mining
send F6 // last object - last targeit в опциях УО
wait 1000
:proverka
if (lastmsg no ore) or (lastmsg mining in rock) or (lastmsg have no line) or (lastmsg get there) or (lastmsg you cant)
return
end_if
if wght > #ves
gosub fin
end_if
wait 1000
set #p #p + 1
if #p > #proba
return
end_if
goto mining
return

:fin
alarm // звуковой сигнал
flash // мигнуть
end_script


Ссылка на тему: http://uopilot.mybb2.ru/viewtopic.php?t=2



Внимание! Если вы считаете, что темы с вашего форума не должны присутствовать в карусели тем или в карусели присутствует содержимое, нарушающее нормы общепринятой морали, либо действующего законодательства - напишите нам на abusereport@mybb2.ru
 

создать форум