никлейсы в мешочках

The Cheater · Post by **The Cheater** » 2006-03-22 14:27:43

чуваки чото у меня этот скрипт непашет тем кто офигенно шарит или тем у кого есть аналог прошу мне помоч

VAR Cont1 = '0x404457E1' ;ðåñóðñû è ïóñòûå ìåøêè 
VAR Cont2 = '0x404457F5' ;ñóíäóê äå áóäóò ëåæàòü ïîëíûå ìåøêè 
VAR Count = 250 ;êàêîå êîëè÷åñòâî ðåñóñðîâ á¸ðåì 
var Tools = '0x1EBC' ;èíñòðóìåíò, ïðè êîòîðîì ïîÿâëÿåòñÿ 
var Creat = '0x1085' ;òèï ñîçäàííîé âåùè(óäî÷êà, äàããåð è ò.ä.) 
VAR Food = '0x097B' ;òèï åäû, êòîðóþ áóäåì êóøàòü 
var Bag = '0x0E76' ;òèï ìåøî÷êîâ 
var Source = '0x1BE9' 
var BagSer, i=0, fizl=0, control=5, time, z 


sub carpFishingPole() 
Tools = '0x1033' 
Creat = '0x0DBF' 
Source = '0x1BDD' 
UO.CancelMenu() 
UO.AutoMenu('Carpentry','Weapons ') 
UO.AutoMenu('Weapons ','fishing ') 
if UO.Count(Tools) > 0 then 
   UO.FindType(Tools,'-1','backpack') 
   UO.AddObject('objTools','finditem') 
   main() 
end if 
UO.CancelMenu() 
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 tinkGold() 
Tools = '0x1EBC' 
Creat = '0x1086' 
Source = '0x1BE9' 
UO.CancelMenu() 
UO.AutoMenu('Tinkering','Jewelry') 
UO.AutoMenu('Jewelry','bracelet') 
if UO.Count(Tools) > 0 then 
   UO.FindType(Tools,'-1','backpack') 
   UO.AddObject('objTools','finditem') 
end if 
main() 
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() 
Detect_Hidden() 
end sub 

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

sub FastLootCheck() 
   UO.DeleteJournal() 
   wait(450) 
   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 
      Detect_Hidden() 
   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 Detect_Hidden() 
 UO.CancelMenu() 
 repeat 
  CheckLag() 
  uo.UseSkill('Detect Hidden')  
  repeat 
   wait(50) 
  until UO.InJournal("You can see nothing hidden there.") or UO.InJournal("You find") 
 until uo.Dead() 
end sub 

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

Scripts Writer · Post by **Scripts Writer** » 2006-03-22 14:56:33

Code: Select all

VAR sunduk='0x4029541D'; Îòêóäà áðàòü èíãè, ïóñòûå ìåøêè 
VAR sundukk='0x40295369'; êóäà âñ¸ áóäåì êèäàòü 
VAR meshok='0x0E76';òèï ìåøêîâ 
VAR iron='0x1BEF' 
VAR smeshok 
VAR Exit=0, LastTimer 
VAR a=0 

sub main() 

repeat 
while not UO.Hidden() 
   UO.UseSkill("Hiding") 
   wait(3000) 
wend 
UO.UnSetCatchBag() 
wait(300) 
   UO.FindType( iron, -1, sunduk ) 
   UO.Grab( Str( 250 ), 'finditem' )  ; åñëè áóäåò àéðî â êîíöå ïàäàòü â ìåøîê, óâåëè÷èòü öèôðó 
wait(3000) 
   UO.SetCatchBag(sundukk) 
   UO.FindType( meshok, -1, sunduk ) 
   UO.Grab( Str( 1 ), 'finditem' ) 
wait(2000) 
   smeshok=UO.GetSerial('finditem') 
a=0 
   UO.SetCatchBag(smeshok) 
wait(1000) 
BS() 
end sub 

sub BS() 
repeat 
wait(250) 
UO.DeleteJournal() 
LastTimer=UO.Timer() 
uo.findtype('0x1EBC')
      UO.WaitMenu('Tinkering','Jewelry','Jewelry','necklace') 
     UO.UseType('0x1EBC') 
   while NOT UO.InJournal("You put") AND NOT UO.InJournal("Tinkering failed") 
wait(250) 
wend 

wait (250) 

if UO.InJournal('You put') then 
   a = a + 1 
   wait(200) 
endif 
If a==1 then             ;êîãäà äîáèðàòü àéðîí 
   Dobor() 
EndIf 
UO.DeleteJournal() 
until a==255               ;ñêîêà äàããåðîâ ó âàñ áóäåò â ìåøêå 
moveIM() 
end sub 

sub moveIM() 
UO.Unsetcatchbag() 

   UO.FindType( iron, -1, -1 ) 
   UO.MoveItem( 'finditem', 0, sunduk ) 
wait(3000) 
   until FALSE 
end sub 

sub Dobor() 


wait(500) 

   UO.UnSetCatchBag() 
wait(300) 
   UO.FindType( iron, -1, sunduk ) 
   UO.Grab( Str( 250 ), 'finditem' )    
wait(3000) 
   UO.SetCatchBag(smeshok) 
wait(1000) 
end sub 

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

аналог.

п.с. 3.2 кк в твоих мешочках ))

EARNEST · Post by **EARNEST** » 2006-03-22 22:55:03

в этом скрипте проблема
перегрузка идет, и постоянно айрон валяется на полу... он постоянно айрон берет, пробывал задекларировать данную в начале но происходят ошибки, помогите кто разбирается, Я в этом деле новичек

Sfagnum · Post by **Sfagnum** » 2006-03-23 00:20:06

The Cheater wrote:чуваки чото у меня этот скрипт непашет тем кто офигенно шарит или тем у кого есть аналог прошу мне помоч

в этом топике опиши свою проблему

Sfagnum · Post by **Sfagnum** » 2006-03-23 00:21:40

EARNEST wrote:в этом скрипте проблема
перегрузка идет, и постоянно айрон валяется на полу... он постоянно айрон берет, пробывал задекларировать данную в начале но происходят ошибки, помогите кто разбирается, Я в этом деле новичек

ты про который?

Yoko

никлейсы в мешочках

никлейсы в мешочках

Re: никлейсы в мешочках