Yoko

All sides of Injection
It is currently 2024-03-28 19:44:57

All times are UTC+02:00




Post new topic  Reply to topic  [ 10 posts ] 
Author Message
 Post subject: Camping
PostPosted: 2017-02-18 23:59:39 
Offline

Joined: 2015-11-26 10:16:44
Posts: 61
народ помогите со скриптом надо чтобы он бросал и поджигал хворост а если в бекпаке нету хворост чтобы скрипт остановился как то не получилось у меня
Вот сам скрипт
Code:
sub Camping()
   var i,j,mX=uo.GetX(),mY=uo.GetY(),mZ=uo.GetZ(),time=uo.Time()
   uo.FindType('0x0DE1',-1,'backpack')
   while uo.findcount()
      for i=mx-3 to mx+3
         for j=my-3 to my+3 
            uo.FindType('0x0DE1',-1,'backpack')
            uo.Grab("finditem","1","ground",str(i),str(j),str(mz))
            checklag() 
            wait(1000)
            uo.FindType('0x0DE1','0x0000','ground')
            ;if uo.findcount() then
            checklag()
            uo.UseObject('finditem')
            wait(4000)
            ; endif
            uo.FindType('0x0DE1',-1,'backpack')
         wend
end sub


Top
   
 Post subject: Re: Camping
PostPosted: 2017-02-19 09:01:25 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
Несколько ошибок. В первую очередь пропустил 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


Исправил :roll:

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
 Post subject: Re: Camping
PostPosted: 2017-02-19 22:53:49 
Offline

Joined: 2015-11-26 10:16:44
Posts: 61
спс что помог вот сам не заметил про next
то ко вот твой скрипт не останавливается после как в бекпаке заканчиваются хворост


Top
   
 Post subject: Re: Camping
PostPosted: 2017-02-20 10:32:33 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
Внизу строку
UO.FindType(kidl,-1,'backpack')
ниже всех next опусти попробуй.
Можно переделать немного, скрипт 2009 года :mrgreen:

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
 Post subject: Re: Camping
PostPosted: 2017-02-21 10:35:18 
Offline

Joined: 2015-11-26 10:16:44
Posts: 61
он заканчивает но где то через 30 сек
checklag() это для сэйва


Top
   
 Post subject: Re: Camping
PostPosted: 2017-02-21 14:34:25 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
Через 30 секунд потому что ему надо пройти все точки X Y Z. Надо выбивалку if хвороста нет then return endif вписать внутрь for next, я не парился скрипт для фана делал :roll:

чеклаг жто от лага :)

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
 Post subject: Re: Camping
PostPosted: 2017-02-21 16:26:46 
Offline

Joined: 2015-11-26 10:16:44
Posts: 61
а это долго если делать?


Top
   
 Post subject: Re: Camping
PostPosted: 2017-02-21 20:06:44 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
Поправил. Жжет только если есть хворост.

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
 Post subject: Re: Camping
PostPosted: 2017-02-22 19:52:19 
Offline

Joined: 2012-07-27 23:43:14
Posts: 249
подскажите пожалуйста, как в этот скрипт напалм вставить


Top
   
 Post subject: Re: Camping
PostPosted: 2017-02-22 22:07:16 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
м? :?

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 10 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 17 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited