Yoko
http://forum.yoko.com.ua/

Помогите добить скриптик
http://forum.yoko.com.ua/viewtopic.php?f=3&t=13381		 Page 1 of 1
Author:  Alex82 [ 2008-03-16 12:49:24 ]
Post subject:  Помогите добить скриптик
Значится цель скрипта в следующем.
Стоят рядом 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. Почему то браслет берет но не бросает на пол
Author:  Kynep [ 2008-03-16 13:10:40 ]
Post subject:  Re: Помогите добить скриптик
Alex82 wrote:
Значится цель скрипта в следующем.
Стоят рядом 2 чара при смерти первого второй должон слутить у него браслет манны и кинуть на пол.
Вот что я набросал

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


Точно набросал ))), пробуй так
Code:
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
Author:  Alex82 [ 2008-03-16 14:11:41 ]
Post subject: 
Ну не ругайте эт моя первая попвтка скриптописания.
Огромное спасибо за помощь.
Author:  Kynep [ 2008-03-16 14:19:44 ]
Post subject: 
Alex82 wrote:
Ну не ругайте эт моя первая попвтка скриптописания.
Огромное спасибо за помощь.


Да нез) Неужели работает ) :shock:
Author:  Alex82 [ 2008-03-16 21:24:52 ]
Post subject: 
Только что проверил,отлично работает.Огромное спасибо еще раз.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/