Трабла после нововведений на ДРВ

Ilushka · Post by **Ilushka** » 2006-03-21 18:05:26

Помогите пожалуйста исправить скрипт на тинкер. Чар берёт айрон из сундука крафтит бусы кладёт в мешок находящийся в другом контейнере и останавливаеться хотя функция tinckiron не изчезает

Code: Select all

VAR Cont1 = '0x4040B89E' ;сундук с айроном мешками и стейками
VAR Cont2 = '0x400281D2' ; сундук де будут лежать полные мешки
VAR Count = 250 ;кол-во айрона берём за раз 
var Tools = '0x1EBC' ;инструмент 
var Creat = '0x1085' ;тип бус 
VAR Food = '0x097B' ;еда
var Bag = '0x0E76' ;мешки  
var Source = '0x1BEF' 
var BagSer, i=0, fizl=0, control=5, time, z 

sub autostart()
	wait(3000)
	UO.SetGlobal('Connected','Yes')
	UO.SetEasyUO(99,'0')
	UO.Click('self')
	wait(3000)
	UO.SetGlobal('CharName',UO.GetName())
	UO.SetGlobal('BuyScript','Off')
		
	UO.Exec('warmode 0')
end sub

sub tinkIron() 
Tools = '0x1EBC' 
Creat = '0x1085' 
Source = '0x1BEF' 
UO.CancelMenu() 
UO.AutoMenu('Tinkering','Jewelry') 
UO.AutoMenu('Jewelry','necklace') 
if UO.Count(Tools) > 0 then 
   UO.FindType(Tools,'-1','backpack') 
   UO.AddObject('objTools','finditem') 
   main() 
end if 
UO.CancelMenu() 
end sub 

sub main() 
var CountSource = 1 ;êîë-âî ðàçíûõ òèïîâ ñûðüÿ, êîòîðûå ìû âîçüìåì èç ñóíäóêà 
Open('backpack') 
NewBag() 
if UO.Count(Source) then 
   UO.FindType(Source,'0x0000', 'backpack') 
   UO.MoveItem('finditem','-1',Cont1) 
   wait(1000) 
end if 
UO.FindType(Source,'0x0000', Cont1) 
UO.Grab(STR(Count),'finditem') 
wait(1000) 
CheckLag()        
while UO.Count(Source) > 0 
   if UO.Count(Source) < 2 then 
      UO.FindType(Source,'0x0000', Cont1) 
      UO.Grab(STR(Count),'finditem') 
      wait(1000) 
   endif 
   UO.DeleteJournal() 
   UO.UseObject('objTools') 
   Repeat 
      wait(500) 
   Until UO.InJournal('You put ') OR UO.InJournal('failed') or UO.InJournal('You fail ')    
   While UO.Count(Creat)>0 
      UO.FindType(Creat,'-1',-1) 
      UO.MoveItem('finditem','0',BagSer) 
      If UO.Count(Creat)>0 then 
         FastLootCheck() 
      endif 
      if UO.InJournal("Too many items") then 
         NewBag() 
      endif 
   Wend      
Wend 
UO.CancelMenu() 
end sub 

sub Open(Container) 
   UO.DeleteJournal() 
   UO.UseObject(Container) 
   wait(500) 
end sub 

sub FastLootCheck() 
   UO.DeleteJournal() 
   wait(500) 
   If UO.InJournal("FastLoot") OR UO.InJournal("World save") then 
      UO.Click('backpack') 
      repeat 
         wait(300) 
      until UO.InJournal('backpack') 
   Endif 
end sub 

sub NewBag() 
   Open(Cont1) 
   Open(Cont2) 
   ToEat() 
   UO.FindType(Bag, -1, Cont1) 
   UO.Print('Ok') 
   if UO.FindCount() < 1 then 
   end if 
   BagSer=UO.GetSerial('finditem')      
   UO.MoveItem(BagSer, 0, Cont2) 
   wait(1000) 
end sub 

sub ToEat() 
   UO.FindType('0x097B', '0x0000',Cont1) 
   if UO.FindCount() > 0 then 
      UO.MoveItem('finditem','20','backpack') 
   else 
      return 
   end if 
   repeat      
      CheckLag() 
      uo.UseType('0x097B') 
      while not uo.InJournal("can't") and not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not UO.Dead() 
         wait(100) 
      wend 
   until uo.InJournal('too full') or UO.Dead() or uo.InJournal("can't") 
   UO.FindType('0x097B', '0x0000','backpack') 
   if UO.FindCount() > 0 then 
      UO.MoveItem('finditem','20','Cont1')      
   end if 
end sub 

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

Sfagnum · Post by **Sfagnum** » 2006-03-22 11:18:55

проверь есть ли _любой_ неклас на тебе...

Ilushka · Post by **Ilushka** » 2006-03-22 19:50:40

Code: Select all

проверь есть ли _любой_ неклас на тебе...

Спасибо огроменное! Заработало! Не думал что из-за такой мелочи может перестать работать

Sfagnum · Post by **Sfagnum** » 2006-03-23 00:14:56

Ilushka wrote:
Code: Select all
проверь есть ли _любой_ неклас на тебе...
Спасибо огроменное! Заработало! Не думал что из-за такой мелочи может перестать работать

влом просто до ума доводить

а это переделка