Yoko

All sides of Injection
It is currently 2026-01-17 21:11:16

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 16 posts ] 
  Print view Previous topic | Next topic 
Author Message
zarg
 Post subject: Тинкеринг
PostPosted: 2004-11-02 16:27:35 
Offline

Joined: 2004-08-29 08:33:44
Posts: 116
У кого нить есть скрипт на производство пустых бутылок?
Top
   
Reply with quote  
gmur
 Post subject:
PostPosted: 2004-11-02 17:51:08 
Offline
User avatar

Joined: 2004-07-18 13:01:15
Posts: 141
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
Top
   
Reply with quote  
Enima
 Post subject:
PostPosted: 2004-11-07 14:25:48 
Offline

Joined: 2004-11-07 14:04:24
Posts: 5
А у мя скрипт не пашет :( Он берут из мешка инги и ничего дальше не делает. В чём может быть проблема?
Top
   
Reply with quote  
Sfagnum
 Post subject:
PostPosted: 2004-11-07 14:45:07 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
Enima wrote:
А у мя скрипт не пашет :( Он берут из мешка инги и ничего дальше не делает. В чём может быть проблема?
1. у тя меню другое
2. нету инструмента в загашнике
3. вместо UO.UseType(Instrum) пробуй UO.Exec("usetype " + Instrum)
Top
   
Reply with quote  
Enima
 Post subject:
PostPosted: 2004-11-18 15:09:47 
Offline

Joined: 2004-11-07 14:04:24
Posts: 5
Я играю на шарде DRW. Заменил, как указано в пункте №3 - всёравно не рабоатет. А если меню другое, то как быть?
Top
   
Reply with quote  
MitAl
 Post subject:
PostPosted: 2004-11-18 15:53:57 
Offline

Joined: 2004-06-01 16:24:44
Posts: 60
Location: DRW
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
Top
   
Reply with quote  
Sfagnum
 Post subject:
PostPosted: 2004-11-18 15:59:27 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
Enima wrote:
Я играю на шарде DRW. Заменил, как указано в пункте №3 - всёравно не рабоатет. А если меню другое, то как быть?
из последующего скрипта делаем вывод:
меню неправльное.
надо
Quote:
UO.WaitMenu('Tinkering','Tools','Tools','empty bottle')
Top
   
Reply with quote  
Enima
 Post subject:
PostPosted: 2004-11-18 19:46:37 
Offline

Joined: 2004-11-07 14:04:24
Posts: 5
Огромное спасибо! Теперь всё работает :)
Top
   
Reply with quote  
Di®A†h
 Post subject:
PostPosted: 2004-11-18 20:01:20 
Offline
User avatar

Joined: 2004-11-14 20:23:48
Posts: 24
Location: не важно!
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

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

_________________
-=$؆=-
Top
   
Reply with quote  
Bloodmoon
 Post subject:
PostPosted: 2004-11-18 21:41:50 
Offline
User avatar

Joined: 2004-06-23 08:55:32
Posts: 128
Скрпит универсальный
Вот скрипт:
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

_________________
©Blodmoon :)
Top
   
Reply with quote  
Liga
 Post subject:
PostPosted: 2004-11-19 11:21:46 
Offline

Joined: 2004-10-24 10:40:04
Posts: 11
А есть скрипт что бы локпики делал, руду брал из сундка
Top
   
Reply with quote  
drcrazy
 Post subject:
PostPosted: 2004-11-19 12:27:04 
Offline
Junior Expert
User avatar

Joined: 2004-10-12 00:48:57
Posts: 92
Location: Шард МЕ2
Поменяй пути в меню и всё.

_________________
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
   
Reply with quote  
Liga
 Post subject:
PostPosted: 2004-11-19 12:38:55 
Offline

Joined: 2004-10-24 10:40:04
Posts: 11
drcrazy wrote:
Поменяй пути в меню и всё.

сенкс, ужо сделал, тока есть ишо одна просьба, нада что бы он перемещал локпикине по одному, как там, а когода 1000 к примеру сделает, тогда пускай и переместит, а то трата времени на перемещение идет
Top
   
Reply with quote  
MitAl
 Post subject:
PostPosted: 2004-11-19 13:40:58 
Offline

Joined: 2004-06-01 16:24:44
Posts: 60
Location: DRW
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
Top
   
Reply with quote  
MitAl
 Post subject:
PostPosted: 2004-11-19 13:49:03 
Offline

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



Top
   
Reply with quote  
Bloodmoon
 Post subject:
PostPosted: 2004-11-19 18:32:18 
Offline
User avatar

Joined: 2004-06-23 08:55:32
Posts: 128
Liga wrote:
А есть скрипт что бы локпики делал, руду брал из сундка

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

Тут меняешь и все.

_________________
©Blodmoon :)
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 16 posts ] 

» » »

All times are UTC+02:00

Who is online

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