Yoko

All sides of Injection
It is currently 2025-10-19 12:11:27

All times are UTC+02:00




Post new topic  Reply to topic  [ 4 posts ] 
Author Message
 Post subject: Резка рыбы
PostPosted: 2009-03-02 20:50:17 
Offline

Joined: 2009-02-25 21:21:04
Posts: 11
Location: Саратов
На форуме не нашел...
От скрипта нужно малое...
1. в паке есть рыбы разная (4 или 5 видов)
2. в руке есть даггер
3. скрит ищет тип рыбки и режет его
4. потом нарезанное скидывает в сундук

если не сложно... будте добры...


Top
   
 Post subject: Re: Резка рыбы
PostPosted: 2009-03-02 22:11:11 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1348
Location: г. Старый Оскол
felkon wrote:
На форуме не нашел...
От скрипта нужно малое...
1. в паке есть рыбы разная (4 или 5 видов)
2. в руке есть даггер
3. скрит ищет тип рыбки и режет его
4. потом нарезанное скидывает в сундук

если не сложно... будте добры...

Code:
sub fish_rezka()
   VAR sunduk = '0x00000000' #ID сундука для стейков
   VAR dagger = '0x00000000' #ID даггера
   VAR i, stake = '0x0000'   #Тип порезаных котлеток

   DIM fish[5]               #Массив типов рыбы
   fish[0] = '0x0000'
   fish[1] = '0x0000'
   fish[2] = '0x0000'
   fish[3] = '0x0000'
   fish[4] = '0x0000'

   for i = 0 to 4
      UO.FindType(fish[i], '-1', 'backpack')
      If UO.FindCount() > 0 then
         repeat
            UO.Print('Режем рыбу типа ' + fish[i])
            UO.WaitTargetObject('finditem')
            UO.UseObject(dagger)
            wait(1000)
            UO.FindType(fish[i], '-1', 'backpack')
         until NOT UO.FindCount()
      endif
   next
   UO.Print('Порезали, выкладываем')
   UO.FindType(stake, '-1', 'backpack')
   If UO.FindCount() > 0 then
      repeat
         UO.MoveItem('finditem', '-1', sunduk)
         wait(1000)
         UO.FindType(stake, '-1', 'backpack')
      until NOT UO.FindCount()
   endif
   UO.Print('Закончили, выход')
end sub


Пробуй.


Top
   
 Post subject:
PostPosted: 2009-03-03 21:09:28 
Offline

Joined: 2009-02-25 21:21:04
Posts: 11
Location: Саратов
спасибо огромное!!! работает.


Top
   
 Post subject:
PostPosted: 2009-03-03 21:13:56 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1348
Location: г. Старый Оскол
felkon wrote:
спасибо огромное!!! работает.

Хорошо, а то писал в окне, даже не запускал :roll: :oops:


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

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 0 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