Yoko

All sides of Injection
https://yoko.uokit.com/

Тинкеринг

https://yoko.uokit.com/viewtopic.php?t=1818

Page 1 of 1

Тинкеринг

Posted: 2004-11-02 16:27:35
by zarg
У кого нить есть скрипт на производство пустых бутылок?

Posted: 2004-11-02 17:51:08
by gmur

Code: Select all

##################################################################### 
; Tinker. v.1.00b (c) Edred 
; 
; Чар берёт из сумки инги, крафтит бутылки 
; ложит их в ту же сумку . 
; Если инги кончились выход.
; 
sub tinker() 
   VAR Sunduk = '0x40EB78AC'       ; сериал сундука
   VAR Ingi = '0x1BEF'          ;  тип ингов
   VAR Instrum = '0x1EBC'          ; инструмент тинкера
   VAR Bottle = '0x0F0E'          ; тип бутылок
   VAR Kolvo = 400        ; сколько ингов брать
   VAR k = 0 
   repeat
   While TRUE 
      UO.FindType( Ingi, -1, Sunduk )   ; ищем инги в сундуке
      If UO.FindCount() == 0 Then 
         UO.Print("Iron Ingots not found, script terminated") 
         return 
      Endif 
      UO.Grab( Str( Kolvo ), 'finditem' ) 
      wait( 2000 ) 
      While UO.Count( Ingi ) > 20 
         ; ???? ? ???? ???? ???? 
         UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' ) 
         UO.DeleteJournal() 
         
         UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'Empty bottle' ) 
         UO.UseType(Instrum) 
         k = 0 
         while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 ) 
            k = k + 1 
            wait(500) 
         wend 
         if UO.Count( Bottle ) > 10 then 
            UO.FindType( Bottle, -1, -1 ) 
            UO.MoveItem( 'finditem', 0, Sunduk ) 
            wait( 1000 ) 
            UO.Print( 'Bottle moved' ) 
         end if 
      Wend 
   Wend 
   until UO.Dead()
end sub

Posted: 2004-11-07 14:25:48
by Enima
А у мя скрипт не пашет :( Он берут из мешка инги и ничего дальше не делает. В чём может быть проблема?

Posted: 2004-11-07 14:45:07
by Sfagnum
Enima wrote:А у мя скрипт не пашет :( Он берут из мешка инги и ничего дальше не делает. В чём может быть проблема?
1. у тя меню другое
2. нету инструмента в загашнике
3. вместо UO.UseType(Instrum) пробуй UO.Exec("usetype " + Instrum)

Posted: 2004-11-18 15:09:47
by Enima
Я играю на шарде DRW. Заменил, как указано в пункте №3 - всёравно не рабоатет. А если меню другое, то как быть?

Posted: 2004-11-18 15:53:57
by MitAl
Enima wrote:Я играю на шарде DRW. Заменил, как указано в пункте №3 - всёравно не рабоатет. А если меню другое, то как быть?


Точно на ДРВ работает - сам на нем бутылки делаю...

Code: Select all

sub Bottles() 
#VAR eda = 0x09bb
repeat
#UO.UseSkill('Spirit')
#wait (600)
#uo.usetype(eda)
wait (300)
CheckLag()
UO.FindType('0x1BEF','0x0000','backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x1BEF','0x0000','0x401D179E') ;serial sunduka s iron 
UO.Grab('100','finditem') 
wait(300) 
Endif 
if UO.count('0x0F0E','0x0000')>110 then
CheckLag()
UO.FindType('0x0F0E','0x0000','backpack') 
UO.setreceivingcontainer('0x401D179E') ;serial sunduka s iron 
UO.Grab('0','finditem') 
wait(300) 
endif
CheckLag()
UO.Usetype('0x1EBC') 
UO.WaitMenu('Tinkering','Tools','Tools','empty bottle')
wait (1000) 
CheckLag()
UO.DeleteJournal() 
while not (UO.InJournal("You put") or UO.InJournal("Tinkering failed")) 
wait(300) 
wend 
UO.UnSetReceivingContainer() 
wait(200) 
until UO.Dead() 
end sub

sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(50) 
   until UO.InJournal('backpack') 
   UO.DeleteJournal()
end sub

Posted: 2004-11-18 15:59:27
by Sfagnum
Enima wrote:Я играю на шарде DRW. Заменил, как указано в пункте №3 - всёравно не рабоатет. А если меню другое, то как быть?
из последующего скрипта делаем вывод:
меню неправльное.
надо
UO.WaitMenu('Tinkering','Tools','Tools','empty bottle')

Posted: 2004-11-18 19:46:37
by Enima
Огромное спасибо! Теперь всё работает :)

Posted: 2004-11-18 20:01:20
by Di®A†h
MitAl wrote:
Enima wrote:Я играю на шарде DRW. Заменил, как указано в пункте №3 - всёравно не рабоатет. А если меню другое, то как быть?


Точно на ДРВ работает - сам на нем бутылки делаю...

Code: Select all

sub Bottles() 
#VAR eda = 0x09bb
repeat
#UO.UseSkill('Spirit')
#wait (600)
#uo.usetype(eda)
wait (300)
CheckLag()
UO.FindType('0x1BEF','0x0000','backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x1BEF','0x0000','0x401D179E') ;serial sunduka s iron 
UO.Grab('100','finditem') 
wait(300) 
Endif 
if UO.count('0x0F0E','0x0000')>110 then
CheckLag()
UO.FindType('0x0F0E','0x0000','backpack') 
UO.setreceivingcontainer('0x401D179E') ;serial sunduka s iron 
UO.Grab('0','finditem') 
wait(300) 
endif
CheckLag()
UO.Usetype('0x1EBC') 
UO.WaitMenu('Tinkering','Tools','Tools','empty bottle')
wait (1000) 
CheckLag()
UO.DeleteJournal() 
while not (UO.InJournal("You put") or UO.InJournal("Tinkering failed")) 
wait(300) 
wend 
UO.UnSetReceivingContainer() 
wait(200) 
until UO.Dead() 
end sub

sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(50) 
   until UO.InJournal('backpack') 
   UO.DeleteJournal()
end sub

хреного, то что он в сундук все не складывает, и аЙрон не берет...

Posted: 2004-11-18 21:41:50
by Bloodmoon
Скрпит универсальный
Вот скрипт:

Code: Select all

   var Cont="0x40191B96"      #container were iron ingots 
   var Food="0x097B"         #type of food 
   var IronCount="600"         #count of iron what we will take 

sub main() 
   var i=0 
   UO.UseType("0x1EBC") 
   wait(700) 
   uo.automenu("Tinkering","Tools") 
   uo.automenu("Tools","bottle") 
   While True 
      While UO.Count("0x1BEF")>1 
         UO.DeleteJournal() 
         UO.UseType("0x1EBC") 
         wait(500) 
         repeat 
            wait(300) 
         until UO.InJournal("You put") or UO.InJournal("failed") 
         if i==50 then 
            Food() 
            i=1 
         else 
            i=i+1 
         endif 
      wend 
      Move() 
   wend 
end sub 

sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(100) 
   until UO.InJournal('backpack') 
end sub 

sub Spirit() 
   UO.UseSkill("Spirit Speak") 
   wait(2500) 
end sub 

sub Food() 
   UO.DeleteJournal() 
   repeat 
      Spirit() 
      UO.UseType(Food) 
      wait(500) 
   until UO.InJournal("simply too full") 
end sub 

sub Move() 
   CheckLag() 
   UO.SetReceivingContainer(Cont) 
   repeat 
      UO.FindType("0x1085","0x0000","backpack") 
      wait(400) 
      UO.Grab("all","finditem") 
      wait(800) 
   until UO.Count("finditem")>0 
   UO.unsetreceivingcontainer() 
   UO.FindType("0x1BEF","0x0000",Cont) 
   wait(400) 
   UO.Grab(IronCount,"finditem") 
   wait(400) 
end sub

Posted: 2004-11-19 11:21:46
by Liga
А есть скрипт что бы локпики делал, руду брал из сундка

Posted: 2004-11-19 12:27:04
by drcrazy
Поменяй пути в меню и всё.

Posted: 2004-11-19 12:38:55
by Liga
drcrazy wrote:Поменяй пути в меню и всё.

сенкс, ужо сделал, тока есть ишо одна просьба, нада что бы он перемещал локпикине по одному, как там, а когода 1000 к примеру сделает, тогда пускай и переместит, а то трата времени на перемещение идет

Posted: 2004-11-19 13:40:58
by MitAl
Di®A†h wrote:хреного, то что он в сундук все не складывает, и аЙрон не берет...


Ты хоть бы читал скрип сначала, а уж потом пургу всякую гнал!
Или хотя бы запускай скрипты перед написанием таких ответов.
Зачем, по-твоему, тогда этот кусок нужен?

Code: Select all

UO.FindType('0x1BEF','0x0000','backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x1BEF','0x0000','0x401D179E') ;serial sunduka s iron 
UO.Grab('100','finditem') 
wait(300) 
Endif 
if UO.count('0x0F0E','0x0000')>110 then
CheckLag()
UO.FindType('0x0F0E','0x0000','backpack') 
UO.setreceivingcontainer('0x401D179E') ;serial sunduka s iron 
UO.Grab('0','finditem') 
wait(300) 
endif

Posted: 2004-11-19 13:49:03
by MitAl
Liga wrote:А есть скрипт что бы локпики делал, руду брал из сундка

Скрипт берет не руду, а инготы. Крафтит локпики и складывает их туда, куда указал в скрипте (в моем случае, берет железо и кладет туда же локпики)
Не трудно понять, что сделан он так же как и скрип на бутылки, написанный выше.

Code: Select all

sub lockpicks() 
VAR eda = 0x09bb
repeat
uo.usetype(eda) 
wait (300)
UO.FindType('0x1BEF','0x0000','backpack') 
If UO.GetQuantity('finditem')<10 then; min kol-vo irona,
#esli men'she - beret esche iz sunduka
UO.FindType('0x1BEF','0x0000','0x401D179E') ;serial sunduka s iron 
UO.Grab('100','finditem') ; skol'ko brat' irona iz sunduka
wait(300) 
Endif 
if UO.count('0x14FB','0x0000')>110 then ; max. kol-vo lockpickov v pake, #pri bol'shem - perekladivaet v sunduk
UO.FindType('0x14FB','0x0000','backpack') 
UO.setreceivingcontainer('0x401D179E') ;serial sunduka s iron 
UO.Grab('0','finditem') 
wait(300) 
endif 
UO.Usetype('0x1EBC') 
UO.WaitMenu('Tinkering','Tools','Tools','lockpick') 
wait (1000) 
UO.DeleteJournal() 
while not (UO.InJournal("You put") or UO.InJournal("Tinkering failed")) 
wait(300) 
wend 
UO.UnSetReceivingContainer() 
wait(200) 
until UO.Dead() 
end sub

Posted: 2004-11-19 18:32:18
by Bloodmoon
Liga wrote:А есть скрипт что бы локпики делал, руду брал из сундка

Берешь меняешь меню :).

Code: Select all

   uo.automenu("Tinkering","Tools") 
   uo.automenu("Tools","bottle")

Тут меняешь и все.
All times are UTC+02:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited