Тинкеринг

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
zarg
Posts: 116
Joined: 2004-08-29 08:33:44

Тинкеринг

Post by zarg »

У кого нить есть скрипт на производство пустых бутылок?
Top
gmur
Posts: 141
Joined: 2004-07-18 13:01:15
Contact:
Contact gmur

Post 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
Top
Enima
Posts: 5
Joined: 2004-11-07 14:04:24

Post by Enima »

А у мя скрипт не пашет :( Он берут из мешка инги и ничего дальше не делает. В чём может быть проблема?
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

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

Post by Enima »

Я играю на шарде DRW. Заменил, как указано в пункте №3 - всёравно не рабоатет. А если меню другое, то как быть?
Top
MitAl
Posts: 60
Joined: 2004-06-01 16:24:44
Location: DRW

Post 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
Top
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:
Contact Sfagnum

Post by Sfagnum »

Enima wrote:Я играю на шарде DRW. Заменил, как указано в пункте №3 - всёравно не рабоатет. А если меню другое, то как быть?
из последующего скрипта делаем вывод:
меню неправльное.
надо
UO.WaitMenu('Tinkering','Tools','Tools','empty bottle')
Top
Enima
Posts: 5
Joined: 2004-11-07 14:04:24

Post by Enima »

Огромное спасибо! Теперь всё работает :)
Top
Di®A†h
Posts: 24
Joined: 2004-11-14 20:23:48
Location: не важно!
Contact:
Contact Di®A†h

Post 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
хреного, то что он в сундук все не складывает, и аЙрон не берет...
-=$؆=-
Top
Bloodmoon
Posts: 128
Joined: 2004-06-23 08:55:32

Post 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
©Blodmoon :)
Top
Liga
Posts: 11
Joined: 2004-10-24 10:40:04

Post by Liga »

А есть скрипт что бы локпики делал, руду брал из сундка
Top
drcrazy
Junior Expert
Posts: 92
Joined: 2004-10-12 00:48:57
Location: Шард МЕ2

Post by drcrazy »

Поменяй пути в меню и всё.
The pleasure of satisfying a savage instinct, undomesticated by the ego, is incomparably much more intense then the one of satisfying a tamed instinct. S.Freud.
Top
Liga
Posts: 11
Joined: 2004-10-24 10:40:04

Post by Liga »

drcrazy wrote:Поменяй пути в меню и всё.
сенкс, ужо сделал, тока есть ишо одна просьба, нада что бы он перемещал локпикине по одному, как там, а когода 1000 к примеру сделает, тогда пускай и переместит, а то трата времени на перемещение идет
Top
MitAl
Posts: 60
Joined: 2004-06-01 16:24:44
Location: DRW

Post 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
Top
MitAl
Posts: 60
Joined: 2004-06-01 16:24:44
Location: DRW

Post 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
Top
Bloodmoon
Posts: 128
Joined: 2004-06-23 08:55:32

Post by Bloodmoon »

Liga wrote:А есть скрипт что бы локпики делал, руду брал из сундка
Берешь меняешь меню :).

Code: Select all

   uo.automenu("Tinkering","Tools") 
   uo.automenu("Tools","bottle")
Тут меняешь и все.
©Blodmoon :)
Top
Post Reply

Return to “Scripting Ore”