Code: Select all
uo.waittargetobject("laststatus")
uo.useobject("0x0F0E")
Code: Select all
sub BombHim()
;UO.FindType('0x0F0D','0x0B99','backpack')
UO.FindType('0x0F0E','0x09DA','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.DeleteJournal()
UO.UseObject('finditem')
wait(4000)
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
Endif
end sub
Да и надо ведь чтобы он таргетом щелкал в место , где надо взорвать бомбу, а он пытается просто сбросить.........Code: Select all
#==============================================================
# ExplodeHim() - drop to laststatus 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('laststatus')/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('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
wait(400)
Else
UO.Print("Explosives not found!")
EndIf
Next
UO.Cast('Magic Arrow',FirstBomb)
end sub
Sarafan wrote:Пытался бросять экспложены в человека так..Code: Select all
uo.waittargetobject("laststatus")
uo.useobject("0x0F0E")
Только почему то не применяет он таргет на человека..
Может кто то по другому кидает бомбы?
При этом уо пишет