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

БС для Андера =)
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3649		 Page 1 of 1
Author:  mortimer [ 2005-04-10 16:37:12 ]
Post subject:  БС для Андера =)
Искал через поиск и так просматривал и ненашел того что мне нада. Может у кого есть скрипт на БС чтоб просто брал с сундука 200 ингов в пак, крафтил дагеры и кидал в трэш(переплавки на Андере нету). Ато как не пытался переделать нече неполучаеца. Плз переделайте кто то.
Author:  SAMURAI [ 2005-04-10 16:44:47 ]
Post subject: 
Code:
sub camping() 
Uo.DeleteJournal() 
while not UO.Dead() 
Uo.FindType('0x0DE1',-1,'0x0000','backpack') 
UO.MoveItem("finditem","1","ground") 
UO.Ignore("finditem") 
UO.IgnoreReset() 
wait(2000) 
Uo.FindType('0x0DE1','0x0000','ground') 
Uo.UseObject('finditem') 
wait(1500) 
if Uo.InJournal('You fail to ignite the fire')then 
Uo.UseObject('finditem') 
wait(1500) 
endif 
Uo.FindType('0x0DE3','0x0000','ground') 
UO.MoveItem("finditem","0","0x0E77") 
UO.Ignore("finditem") 
UO.IgnoreReset() 
wait(2000) 
if UO.count('0x0DE3','0x0000')>1 then 
UO.FindType('0x0DE3','0x0000','backpack') 
UO.setreceivingcontainer('0xx4021318B') ;serial Trashcan 
UO.Grab('0','finditem') 
wait(300) 
endif 

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

А из этого переделать попрбуй :wink:
Author:  mortimer [ 2005-04-10 16:47:00 ]
Post subject: 
Ыы =) незаметил ) ща проверю на работаспособность )
Author:  mortimer [ 2005-04-10 16:54:49 ]
Post subject: 
Code:
sub BS() 
Uo.DeleteJournal() 
while not UO.Dead() 
Uo.FindType('0x0DE1',-1,'0x0000','backpack')  -это что ? =)
UO.MoveItem("finditem","1","ground") 
UO.Ignore("finditem") 
UO.IgnoreReset() 
wait(2000) 
Uo.FindType('0x0DE1','0x0000','ground') - и это ? 
Uo.UseObject('finditem') 
wait(1500) 
if Uo.InJournal('You fail to ignite the fire')then 
Uo.UseObject('finditem') 
wait(1500) 
endif 
Uo.FindType('0x0DE3','0x0000','ground') 
UO.MoveItem("finditem","0","0x0E77") 
UO.Ignore("finditem") 
UO.IgnoreReset() 
wait(2000) 
if UO.count('0x0DE3','0x0000')>1 then 
UO.FindType('0x0DE3','0x0000','backpack') 
UO.setreceivingcontainer('0xx4021318B') ;serial Trashcan 
UO.Grab('0','finditem') 
wait(300) 
endif 

sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
wend 
end sub
Чета кажеца фиг переделаю =) поможеш ? =)
Author:  SAMURAI [ 2005-04-10 17:16:57 ]
Post subject: 
Code:
sub BS() 
VAR Trash='0x00000000'
VAR Cont='0x400A3A03' 
   var ing = '0x1BEF'   ; type of ingot 
   var color = '0x0750' ;color 
   UO.CancelMenu() 
   UO.SetReceivingContainer('backpack') 
   UO.Automenu("Blacksmithing","Armor") 
   UO.Automenu("Armor","Weapons") 
   UO.Automenu("Weapons","Swords") 
   UO.Automenu("Swords","Dagger") 
;  UO.Automenu("Swords","Dagger") 
   while True 
      UO.DeleteJournal() 
      if UO.Count(ing,color)<=10 then 
         UO.FindType(ing,color,Cont) 
         UO.Grab('100','finditem') 
         wait(2000) 
      endif 
      UO.UseType(ing,color) 
      Repeat 
         wait(1000) 
      Until UO.InJournal("You put") OR UO.InJournal("fail") 
      if UO.Count('0x0F51')>0 then   ;0x0f51 тип даггера, перепроверьте 
         UO.FindType('0x0F51',-1,-1)  ;0x0f51 тип даггера, перепроверьте 
         UO.MoveItem('finditem',0,Trash) 
         wait(1000) 
      endif 
   Wend 
end sub

Может и неправильно, делал на обум :lol:
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/