Несколько ошибок. В первую очередь пропустил 2 закрывашки next для for. Можно еще Z высоту добавить. Grab не правильно используешь. Паузы большие очень (возможно специфика сервера конечно).
В общем вот так должно работать:
Code:
sub Camping()
VAR x,y,z,i
VAR kidl='0x0DE1', n=3
UO.Print('Начинаю тренировать туризм')
UO.Set('quiet','1')
UO.Set('finddistance','3')
i=UO.Getserial('self')
UO.FindType(kidl,-1,'backpack')
while UO.FindCount()
for x=UO.GetX(i)-n to UO.GetX(i)+n
for y=UO.GetY(i)-n to UO.GetY(i)+n
for z=UO.GetZ(i)-0 to UO.GetZ(i)+10 ; делаем столбики из огня
UO.FindType(kidl,-1,'backpack')
if UO.FindCount() then
UO.MoveItem('finditem','1','ground',x,y,z)
checklag()
UO.FindType(kidl,-1,'ground')
while UO.FindCount()
UO.UseObject('finditem')
checklag()
UO.FindType(kidl,-1,'ground')
wend
else
return
endif
next
next
next
UO.FindType(kidl,-1,'backpack')
wend
UO.Set('finddistance','15')
UO.Set('quiet','0')
UO.Print('Костры зажжены, палатки поставлены')
end sub
Исправил