Тема: МАКРОСЫ
Показать сообщение отдельно
Re: МАКРОСЫ
Старый 11.02.2017, 17:36   #975
KudesNIK
Newbie
 
Регистрация: 12.11.2016
Адрес: old Pycu4u
Сообщений: 31
Репутация: 1 [+/-]
имеет нулевую репутацию
KudesNIK имеет нулевую репутацию
Чар: KudesNIK
Гильдия: old Pycu4u
По умолчанию Re: МАКРОСЫ

Может кому поможет, рабочий макр на кемпинг, качается очень быстро

set #dl 40 //Кратчайшее расстояние между центрами соседних тайлов в пикселях (40для 640*480)
set #mbasex 513 //X координата пикселя кучки щепок под чаром
set #mbasey 386 //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
//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 F1 // 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 F1 // LastObject в клиенте
end_repeat
end_repeat
:next2
end_for
end_for

//repeat 5
alarm
// wait 2s
//end_repeat
//stop_script
//Не забываем биндить кнопку с LastObject
KudesNIK вне форума   Ответить с цитированием