Yoko

Posted: **2008-03-16 12:49:24**

Значится цель скрипта в следующем.
Стоят рядом 2 чара при смерти первого второй должон слутить у него браслет манны и кинуть на пол.
Вот что я набросал

sub spasibrasmanki()
DIM bras[0]
bras[0] = '0x1086' ; нужный итем

VAR i
UO.UseObject( 'lastcorpse' )
wait(1000)
For i = 0 To 0
UO.FindType( Nado[i], '-1', 'lastcorpse' )
While UO.FindCount() > 0
UO.MoveItem( 'finditem' )
wait( 1000 )
UO.MoveItem( '0x12345678', '1', 'ground', '1', '0', '0' )
endsub
Но есть 2 вопроса
1. Как проверить что рядом стоящий чар помер?
2. Почему то браслет берет но не бросает на пол

Posted: **2008-03-16 13:10:40**

Alex82 wrote:Значится цель скрипта в следующем.
Стоят рядом 2 чара при смерти первого второй должон слутить у него браслет манны и кинуть на пол.
Вот что я набросал

Но есть 2 вопроса
1. Как проверить что рядом стоящий чар помер?
2. Почему то браслет берет но не бросает на пол

Точно набросал ))), пробуй так

Code: Select all

sub spasibrasmanki() 
  var bras  = '0x1086'   ; нужный итем 
  while 1
    UO.DeleteJournal()
    repeat
      wait(100)
    until UO.InJournal('Body ')
    UO.DeleteJournal()
    wait(500)
    UO.UseObject('lastcorpse') 
    wait(1000) 
    UO.FindType(bras, '-1', 'lastcorpse') 
    While UO.FindCount() > 0 
      UO.MoveItem('finditem', '-1', 'backpack') 
      wait(1000) 
      UO.MoveItem('finditem', '-1', 'ground')
      wait(1000)
      UO.FindType(bras, '-1', 'lastcorpse')
    wend
  wend
end sub

Posted: **2008-03-16 14:11:41**

Ну не ругайте эт моя первая попвтка скриптописания.
Огромное спасибо за помощь.

Posted: **2008-03-16 14:19:44**

Alex82 wrote:Ну не ругайте эт моя первая попвтка скриптописания.
Огромное спасибо за помощь.

Да нез) Неужели работает ) :shock:

Posted: **2008-03-16 21:24:52**

Только что проверил,отлично работает.Огромное спасибо еще раз.

Yoko

Помогите добить скриптик

Помогите добить скриптик

Re: Помогите добить скриптик