Yoko

All sides of Injection
It is currently 2024-03-29 11:26:25

All times are UTC+02:00




Post new topic  Reply to topic  [ 16 posts ] 
Author Message
PostPosted: 2012-11-09 13:24:57 
Offline

Joined: 2012-11-09 13:22:02
Posts: 9
Народ, помогите подправить скрипт,чтобы он брал определённое кол-во шесрти в бек пак, переделал и скидывал в кучку с клубками.

Code:
sub dom()
wait(500)
uo.Print("Start")
start:
if uo.count('0x0DF8')<1 then
wait(10000)
uo.Print("Net shersti")
goto klubky
else
UO.Exec("waittargetground 0x1019")
UO.Exec("usetype 0x0DF8")
wait(4000)
goto start
endif


Top
   
PostPosted: 2012-11-09 14:55:01 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
Ставишь рядом с чаром штук 5-6 прялок. Сундук перед запуском открыть. VAR пропиши и запускай.

Code:
sub main()
   var ID = 'ТУТ прописать ID сундука'
   var type1 = '0x0DF8'
   vat type2 = 'Тут ТИП готовых мотков'
   repeat
      GET(type1, ID, 1, 10) ; что брать, откуда, при скольких брать, сколько брать.
      Spinning_Wheel()
      PUT(type2, ID) ; что скидывать, куда.
   until uo.dead()
endsub
################## Прялка ##################
sub Spinning_Wheel()
   var LastTimer
   UO.Set('finddistance', 3)
   while UO.Count(0x0DF9)>0 or UO.Count(0x0DF8)>0
      UO.DeleteJournal()
      UO.WaitTargetGround(0x1015)
      ; ********************************
      ; Auto material
      if UO.Count(0x0DF9) || UO.Count(0x0DF8) then
         if UO.Count(0x0DF9) then
            UO.UseType(0x0DF9);
         else
            UO.UseType(0x0DF8);
         endif
      else
         return 1
      endif
      ; ********************************
      LastTimer=UO.Timer()
      repeat
         wait(300)
      until UO.Timer()>LastTimer+25
   wend
   UO.Print(' = Нитки сделаны = ')
end sub
########################################################################
Sub GET(item, cont, min, max)          ;    предмет, откуда, минимум, сколько брать
   If UO.Count( item ) < min Then
      UO.FindType( item, '-1', cont )
      if UO.FindCount() > 0 Then
         uo.moveitem('finditem', max, 'backpack')
         wait(500)
      else
         UO.Print( 'Полностью кончилось сырье' )
         UO.CancelMenu()
         UO.Exec('terminate all')
         return
      endif
   Endif
end sub
Sub PUT(item, cont)
   while UO.Count( item ) > 0
      UO.FindType( item, -1, -1 )
      UO.MoveItem( 'finditem', 0, cont )
      wait(500)
   wend
end sub

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


Top
   
PostPosted: 2012-11-09 15:09:22 
Offline

Joined: 2012-11-09 13:22:02
Posts: 9
Хе...спасибо за такой огромный скрипт, но он выдаёт ошибку:

Error : no menu to cancel

и мне надо всего лишь на 1 прялку


Top
   
PostPosted: 2012-11-10 11:39:23 
Offline

Joined: 2012-10-30 18:07:33
Posts: 9
Code:
Sub GET(item, cont, min, max)          ;    предмет, откуда, минимум, сколько брать
   If UO.Count( item ) < min Then
      UO.FindType( item, '-1', cont )
      if UO.FindCount() > 0 Then
         uo.moveitem('finditem', max, 'backpack')
         wait(500)
      else
         UO.Print( 'Полностью кончилось сырье' )
         UO.CancelMenu() <==== вот здесь или поставь вначале строки ";"
         return                          или вообще строку убери                           
      endif
   Endif
end sub
Sub PUT(item, cont)
   while UO.Count( item ) > 0
      UO.FindType( item, -1, -1 )
      UO.MoveItem( 'finditem', 0, cont )
      wait(500)
   wend
end sub


Top
   
PostPosted: 2012-11-10 12:30:34 
Offline

Joined: 2012-11-09 13:22:02
Posts: 9
Берёт 60 шерсти, делает один клубок и выключается... почему?
Code:
Sub main ()
Sub GET(item, cont, min, max)          ;    ïðåäìåò, îòêóäà, ìèíèìóì, ñêîëüêî áðàòü
   If UO.Count( '0x0DF8' ) < 1 Then
      UO.FindType( '0x0DF8', '-1', 'ground' )
      if UO.FindCount('ground') > 0 Then
         uo.moveitem('finditem', 60, 'backpack')
         wait(500)
         UO.Exec("waittargetground 0x1019")
         UO.Exec("usetype 0x0DF8")
         wait(4000)
      else
         UO.Print( 'Ïîëíîñòüþ êîí÷èëîñü ñûðüå' )
         return                                                 
      endif
   Endif
end sub
Sub PUT(item, cont)
   while UO.Count( '0x0E1D' ) > 0
      UO.FindType( '0x0E1D', -1, -1 )
      UO.MoveItem( 'finditem', 0, 'ground' )
      wait(500)
   wend
end sub


Top
   
PostPosted: 2012-11-10 15:53:39 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
цикла то нет.

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


Top
   
PostPosted: 2012-11-10 15:57:13 
Offline

Joined: 2012-11-09 13:22:02
Posts: 9
Mirage wrote:
цикла то нет.

Ээ...я реально на инжекте не разбираюсь, что да как к и к чему... Как это цикл дописать то?


Top
   
PostPosted: 2012-11-10 16:42:30 
Offline

Joined: 2012-11-09 13:22:02
Posts: 9
Почитал урок 1, там есть про цикл. Но вот в чём фишка, там всё так написано поставишь после else wait(x) и всё...твой цикл будет бесконечным...ставлю в этом скрипте после else
wait (500) и почему-то цикл не бесконечный, а всё так же 1 раз делает и всё...


Top
   
PostPosted: 2012-11-10 17:08:41 
Offline

Joined: 2011-06-11 19:54:23
Posts: 820
Code:
sub main()
   var ID = 'ТУТ прописать ID сундука'
   var type1 = '0x0DF8'
   vat type2 = 'Тут ТИП готовых мотков'
   while true
      GET(type1, ID, 1, 10) ; что брать, откуда, при скольких брать, сколько брать.
      Spinning_Wheel()
      PUT(type2, ID) ; что скидывать, куда.
   wend
endsub


Top
   
PostPosted: 2012-11-10 17:17:42 
Offline

Joined: 2012-11-09 13:22:02
Posts: 9
Juicy Fruit wrote:
Code:
sub main()
   var ID = 'ТУТ прописать ID сундука'
   var type1 = '0x0DF8'
   vat type2 = 'Тут ТИП готовых мотков'
   while true
      GET(type1, ID, 1, 10) ; что брать, откуда, при скольких брать, сколько брать.
      Spinning_Wheel()
      PUT(type2, ID) ; что скидывать, куда.
   wend
endsub


Line 6: Function not found - GET


Top
   
PostPosted: 2012-11-10 19:06:16 
Offline

Joined: 2011-06-11 19:54:23
Posts: 820
Эмм, скрипт миража целиком возьми, замени только функцию main(), остальное оставь как есть.


Top
   
PostPosted: 2012-11-10 19:24:56 
Offline

Joined: 2012-11-09 13:22:02
Posts: 9
Успех на лицо уже. В общем взял скрипт миража и вырезал, чтобы он не делал рулоны.
Так теперь он берёт то кол-во которое мне надо, переделывает, скидывает в сундук и выключается, что сделать, чтобы он не выключался?
И ещё я в скрипте где начало sib get не прописывал итемы и тп...


Top
   
PostPosted: 2012-11-10 22:31:20 
Offline

Joined: 2012-10-30 18:07:33
Posts: 9
теперь бинди скрипт на кнопку, и ставь на юлуп с соответствующей задержкой :D


Top
   
PostPosted: 2012-11-10 22:50:33 
Offline

Joined: 2012-11-09 13:22:02
Posts: 9
Sideus wrote:
теперь бинди скрипт на кнопку, и ставь на юлуп с соответствующей задержкой :D

в чём фишка, я тоже подумал, взять уопилот и закидывать шерсть, но проблема в том, что он её не скидывает в сундук...а будет делать пока веса не станет макс)


Top
   
PostPosted: 2012-11-12 13:25:19 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
Свой скрипт поправил, добавил цикл. Проверь.
Хотя по советам можно было и написать самостоятельно ;)

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


Top
   
PostPosted: 2012-11-12 14:13:36 
Offline

Joined: 2012-11-09 13:22:02
Posts: 9
Mirage wrote:
Свой скрипт поправил, добавил цикл. Проверь.
Хотя по советам можно было и написать самостоятельно ;)

Благодарю тебя, о добрый человек =) Работает, вроде бы всё хорошо =)
Честно пробовал, меня и так и сяк и что-то ни в какую...


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

All times are UTC+02:00


Who is online

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