Тема: МАКРОСЫ
Показать сообщение отдельно
Re: МАКРОСЫ
Старый 27.01.2010, 11:28   #15
Sindo
The Hero
 
Регистрация: 02.02.2007
Адрес: KIDs
Возраст: 35
Сообщений: 969
Репутация: 52 [+/-]
имеет хорошую репутацию (от 26 до 75)
Sindo имеет хорошую репутацию (от 26 до 75)
Чар: Sindoatan
Гильдия: KIDs
По умолчанию Re: МАКРОСЫ

[PHP]//деление руды с переплавкой
//общая задержка при GPRS 150
drag 848, 562 903, 559 1
wait 300
move 903, 559
double_left 898, 546
wait 200
[/PHP][PHP]// 1) в левый верхний угол пака кладешь свою кучку руды (желательно до 500 единиц за раз)
// 2) в окне "Скрипт" пилота ставишь галочку в квадратике справа от "Точка (Ctrl+A)"
// 3) вставляешь в скрипт вот это:
// //деление руды без переплавки
// drag 848, 562 903, 559 1
// wait 300
// 4) выделяешь в скрипте 848, 562
// 5) в окне уо наводишь курсор на кучку руды в паке и жмешь Ctrl+A. у тя должны вместо 848, 562 появица другие цифры в таком же формате
// 6) выделяешь в скрипте 903, 559
// 7) в окне уо наводишь примерно на центр пака и жмешь Ctrl+A. Терь у тя должны изменица цыфры вместо 903, 559
// 8) запускаешь скрипт и ждешь пока он по 1 кусочку разделит всю кучку
// 9) потом через вкладку "Общее" ставишь даблклик на координаты руды, лежащей у тя в паке по 1 ( или пишешь в скриптах double_left 898, 546 меняя координаты на координаты твоей кучки)[/PHP]
[php]//Camping by Sindoatan
set #dl 40 //Кратчайшее расстояние между центрами соседних тайлов в пикселях (40для 640*480)
set #mbasex 319 //X координата пикселя кучки щепок под чаром
set #mbasey 245 //Y координата пикселя кучки щепок под чаром
//goto test
////////////////////////////////////////
set #basex #mbasex
set #basey #mbasey
for #x -#dl #dl #dl
for #y -#dl #dl #dl
set #Targx #basex +#x
set #Targy #basey +#y
set #a #basex -#dl
set #b #basey +#dl
set #c #basey -#dl
if ((#Targx = #a) and (#Targy = #b)) or ((#Targx = #mbasex) and (#Targy = #mbasey)) or ((#Targx = #mbasex) and (#Targy = #c))
goto next1
end_if
repeat 19
drag #mbasex, #mbasey #Targx, #Targy 1
wait 50
set #a LastLiftedID
set LastObjectID #a
repeat 4
send F11 // LastObject в клиенте
end_repeat
end_repeat
:next1
end_for
end_for

//:test
set #a #dl / 2
set #b #dl / 2
set #basex #mbasex + #a
set #basey #mbasey - #b

for #x -#dl #dl #dl
for #y -#dl #dl #dl
set #Targx #basex +#x
set #Targy #basey +#y
set #a #basex +#dl
set #b #basey -#dl
if (#Targx = #a) and (#Targy = #b)
goto next2
end_if
repeat 19
drag #mbasex, #mbasey #Targx, #Targy 1
wait 50
set #a LastLiftedID
set LastObjectID #a
repeat 4
send F11 // LastObject в клиенте
end_repeat
end_repeat
:next2
end_for
end_for

//repeat 5
alarm
// wait 2s
//end_repeat
//stop_script
//Не забываем биндить кнопку с LastObject[/php]
__________________
May the Force be with you..

Последний раз редактировалось Sindo; 09.12.2012 в 22:51..
Sindo вне форума   Ответить с цитированием