Yoko

Posted: **2005-09-12 21:46:41**

Вобщем кучу скриптов перерыл, скрипта 3 разных пытался переделать, никак не получается, нужен скрипт на бс, что бы брал из сундука айрон, ковал даггеры, раскладывал их по мешкам и кидал в другой сундук, вот вобщем то и всё, у меня даже получилось переделать 1 скрипт(на боукрафт вроде) но почему то очень часто скрипт заедает на меню выбора... помогите плиз, очень нужен скрипт

Posted: **2005-09-14 09:18:04**

Так никто и не ответил, хотя у самого получилось...

Code: Select all

VAR sunduk='0x402A3325'; Откуда брать инги, пустые мешки
VAR sundukk='0x409B7F09'; куда всё будем кидать
VAR meshok='0x0E76';тип мешков
VAR iron='0x1BEF'
VAR smeshok
VAR molotok ='0x13E3'
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( 630 ), 'finditem' )  ; если будет айро в конце падать в мешок, увеличить цифру
wait(3000)
   UO.UseType('0x097B') #fishsteaks 
wait(500)
   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.AutoMenu('Blacksmithing','Weapons')
      UO.AutoMenu('Weapons','Fencing')
      UO.AutoMenu('Fencing','Dagger')
      UO.WaitTargetType(iron)
      UO.UseType(molotok)
   while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") 
wait(250) 
wend 

wait (250) 

if UO.InJournal('You put') then
   a = a + 1
   wait(200)
endif
If a==100 then             ;когда добирать айрон
   Dobor()
EndIf
UO.DeleteJournal()
until a==200               ;скока даггеров у вас будет в мешке
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()


UO.UseType('0x097B') #fishsteaks
wait(500)

   UO.UnSetCatchBag()
wait(300)
   UO.FindType( iron, -1, sunduk ) 
   UO.Grab( Str( 630 ), '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

Yoko

БС

БС