Yoko

При юзании этого скрипта - выкидывает.
плз скажите в чём дело.






#==============================================================
# ExplodeHim() - drop to lastattack char bomb and detonated
# first dropped bomb
#
# Journal has been deleted!!!
#--------------------------------------------------------------
sub ExplodeHim()
VAR i, pack='0x400E49F8',FirstBomb, FirstFlag=1, CountEX
VAR ExHP=20 ; 1 bomb hits

CountEX=INT(UO.GetHP('lastattack')/ExHP+0.99)
UO.Print(STR(CountEX)+" explodov nado ")

For i=1 to CountEX
UO.FindType('0x0F0D','0x0B99',pack)
If UO.GetQuantity('finditem') Then
If FirstFlag Then
FirstFlag=0
FirstBomb='finditem'
Endif
CheckLag()
UO.Drop('1',STR(UO.GetX('lastattack')),STR(UO.GetY('lastattack')),STR(UO.GetZ('lastattack')),'finditem')
wait(400)
Else
UO.Print("Explosives not found!")
EndIf
Next
UO.Cast('Magic Arrow',FirstBomb)
end sub

_________________
Dragon World. [since 2004]

Хе, а вот это что?

FirstBomb='finditem' 

Замени на:

FirstBomb=UO.GetSerial( 'finditem' )

спс.
ща потестю

_________________
Dragon World. [since 2004]

не помогает - зависает и вылитает.

_________________
Dragon World. [since 2004]

Зависает, вылетает - в какой момент? Что при этом делает? Какие сообщения перед этим проходят? Пиши конкретно, телепаты в отпуске.

Если експы есть просто сразу виснет.

а если нету то справа очень много сообщений сразу типа експы не найдены и зависает.

_________________
Dragon World. [since 2004]

Вот от ВЕТЕРАНА куски похожего назначения, правда придется самому тыкать, можешь сравнить и поймешь что не так

sub Bomb() 
UO.FindType('0x0F0D','0x0B99','backpack') 
;UO.FindType('0x0F0E','0x09DA','backpack') 
If UO.GetQuantity('finditem')>0 Then 
UO.DeleteJournal() 
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem') 
Wait(500) 
UO.FindType('0x0F0D','0x0B99','backpack') 
;UO.FindType('0x0F0E','0x09DA','backpack') 
If UO.GetQuantity('finditem')>0 Then 
UO.DeleteJournal() 
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem') 
Wait(500) 
uo.playwav("c:\inject\SOUND\REMINDER.wav") 
UO.Print("!ЖМИ!") 
end sub 

sub Bomb2() 
UO.FindType('0x0F0D','0x0B99','ground') 
UO.Cast('Magic Arrow','finditem') 
end sub 

Я его тоже юзаю.
Но отдельно,немнога ранзные преднозначения.

_________________
Dragon World. [since 2004]

Что значит "виснет"? В чем это выражается? Очень много сообщений "типа" - конкретно какие сообщения? Пиши внятно, никто твой скрипт запускать у себя не будет (мне например просто негде) и тестировать. Расставь по скрипту команды UO.Print( 'test 1' ) , вместо '1' естественно расставь разные номера, запусти и посмотри, какие сообщения выводит, а какие нет. Вполне возможно что он у тебя не виснет, а циклит...

1. это не мой скрипт
а 2. зависает - это просто клиент "не отвечает"

_________________
Dragon World. [since 2004]