Yoko
http://forum.yoko.com.ua/

Тинкеринг
http://forum.yoko.com.ua/viewtopic.php?f=20&t=1818		 Page 1 of 1
Author:  zarg [ 2004-11-02 16:27:35 ]
Post subject:  Тинкеринг
У кого нить есть скрипт на производство пустых бутылок?
Author:  gmur [ 2004-11-02 17:51:08 ]
Post subject: 
Code:
##################################################################### 
; 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
Author:  Enima [ 2004-11-07 14:25:48 ]
Post subject: 
А у мя скрипт не пашет :( Он берут из мешка инги и ничего дальше не делает. В чём может быть проблема?
Author:  Sfagnum [ 2004-11-07 14:45:07 ]
Post subject: 
Enima wrote:
А у мя скрипт не пашет :( Он берут из мешка инги и ничего дальше не делает. В чём может быть проблема?
1. у тя меню другое
2. нету инструмента в загашнике
3. вместо UO.UseType(Instrum) пробуй UO.Exec("usetype " + Instrum)
Author:  Enima [ 2004-11-18 15:09:47 ]
Post subject: 
Я играю на шарде DRW. Заменил, как указано в пункте №3 - всёравно не рабоатет. А если меню другое, то как быть?
Author:  MitAl [ 2004-11-18 15:53:57 ]
Post subject: 
Enima wrote:
Я играю на шарде DRW. Заменил, как указано в пункте №3 - всёравно не рабоатет. А если меню другое, то как быть?


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

Code:
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
Author:  Sfagnum [ 2004-11-18 15:59:27 ]
Post subject: 
Enima wrote:
Я играю на шарде DRW. Заменил, как указано в пункте №3 - всёравно не рабоатет. А если меню другое, то как быть?
из последующего скрипта делаем вывод:
меню неправльное.
надо
Quote:
UO.WaitMenu('Tinkering','Tools','Tools','empty bottle')
Author:  Enima [ 2004-11-18 19:46:37 ]
Post subject: 
Огромное спасибо! Теперь всё работает :)
Author:  Di®A†h [ 2004-11-18 20:01:20 ]
Post subject: 
MitAl wrote:
Enima wrote:
Я играю на шарде DRW. Заменил, как указано в пункте №3 - всёравно не рабоатет. А если меню другое, то как быть?


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

Code:
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

хреного, то что он в сундук все не складывает, и аЙрон не берет...
Author:  Bloodmoon [ 2004-11-18 21:41:50 ]
Post subject: 
Скрпит универсальный
Вот скрипт:
Code:
   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
Author:  Liga [ 2004-11-19 11:21:46 ]
Post subject: 
А есть скрипт что бы локпики делал, руду брал из сундка
Author:  drcrazy [ 2004-11-19 12:27:04 ]
Post subject: 
Поменяй пути в меню и всё.
Author:  Liga [ 2004-11-19 12:38:55 ]
Post subject: 
drcrazy wrote:
Поменяй пути в меню и всё.

сенкс, ужо сделал, тока есть ишо одна просьба, нада что бы он перемещал локпикине по одному, как там, а когода 1000 к примеру сделает, тогда пускай и переместит, а то трата времени на перемещение идет
Author:  MitAl [ 2004-11-19 13:40:58 ]
Post subject: 
Di®A†h wrote:
хреного, то что он в сундук все не складывает, и аЙрон не берет...


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

Code:
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
Author:  MitAl [ 2004-11-19 13:49:03 ]
Post subject: 
Liga wrote:
А есть скрипт что бы локпики делал, руду брал из сундка

Скрипт берет не руду, а инготы. Крафтит локпики и складывает их туда, куда указал в скрипте (в моем случае, берет железо и кладет туда же локпики)
Не трудно понять, что сделан он так же как и скрип на бутылки, написанный выше.
Code:
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

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

Берешь меняешь меню :).
Code:
   uo.automenu("Tinkering","Tools") 
   uo.automenu("Tools","bottle")

Тут меняешь и все.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/