// Кладем кучу щепок под чара, желательно быть не на ездовой живности, проверяем чтоб в куче не было слишком много и можно было взять 1шт. Забиваем координаты кучки щепок, забиваем кнопку ласт обжект в клиенте. Самое худшее что может случится это чар подожгет всю кучу, так что не стоит кидать слишком много.

//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