Yoko

Искал через поиск и так просматривал и ненашел того что мне нада. Может у кого есть скрипт на БС чтоб просто брал с сундука 200 ингов в пак, крафтил дагеры и кидал в трэш(переплавки на Андере нету). Ато как не пытался переделать нече неполучаеца. Плз переделайте кто то.

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

А из этого переделать попрбуй

_________________
Нет ничего невозможного...
Кто ИЩЕТ, тот всегда найдёт...

sub UO() 
UO.Chto-To("S Chem-To") 
end sub

© I'm

Ыы =) незаметил ) ща проверю на работаспособность )

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

Чета кажеца фиг переделаю =) поможеш ? =)

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

Может и неправильно, делал на обум

_________________
Нет ничего невозможного...

Кто ИЩЕТ, тот всегда найдёт...

sub UO() 
UO.Chto-To("S Chem-To") 
end sub

© I'm