Yoko

Народ надо что бы бомбы летели под ноги...
Скрипт
sub Boom1()
VAR i, Bomb, Flag=1
VAR pack='0x40188C12' ;ID бекпека
For i=1 to 5 ;скока бомб
UO.FindType('0x0F0D','0x0B99',pack)
If UO.GetQuantity('finditem')>0 Then
If Flag Then
Flag=0
Bomb='finditem'
Endif
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),-3,'finditem')
wait(410)
Else
UO.Print("Explosives not found!")
EndIf
Next
UO.Cast('Magic Arrow',Bomb)
wait(160)
uo.fontcolor('0x000')
uo.msg(" ")
wait(1)
uo.fontcolor('0x000')
uo.msg(" ")
wait(1)
uo.fontcolor('0x000')
uo.msg(" ")
wait(1)
end sub


Инфо---------БОМБЫ--------ID=0x400BA97F Type=0x0F0D Name=
Quantity: 1 Colour: 0x0000 Layer: 0 Has: 1
X=73 Y=140 Z=0 C=0x4001F39D F=0x00




ИНФО--------ПАК---------ID=0x4001F39D Type=0x0E75 Name=a backpack (248 items)
Quantity: 0 Colour: 0x0424 Layer: 21 Has: 1
X=65535 Y=65535 Z=0 C=0x0001F3A0 F=0x00

Frib wrote:Народ надо что бы бомбы летели под ноги...
Скрипт
sub Boom1()
VAR i, Bomb, Flag=1
VAR pack='0x40188C12' ;ID бекпека
For i=1 to 5 ;скока бомб
UO.FindType('0x0F0D','0x0B99',pack)
If UO.GetQuantity('finditem')>0 Then
If Flag Then
Flag=0
Bomb='finditem'
Endif
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),-3,'finditem')
wait(410)
Else
UO.Print("Explosives not found!")
EndIf
Next
UO.Cast('Magic Arrow',Bomb)
wait(160)
uo.fontcolor('0x000')
uo.msg(" ")
wait(1)
uo.fontcolor('0x000')
uo.msg(" ")
wait(1)
uo.fontcolor('0x000')
uo.msg(" ")
wait(1)
end sub


Инфо---------БОМБЫ--------ID=0x400BA97F Type=0x0F0D Name=
Quantity: 1 Colour: 0x0000 Layer: 0 Has: 1
X=73 Y=140 Z=0 C=0x4001F39D F=0x00




ИНФО--------ПАК---------ID=0x4001F39D Type=0x0E75 Name=a backpack (248 items)
Quantity: 0 Colour: 0x0424 Layer: 21 Has: 1
X=65535 Y=65535 Z=0 C=0x0001F3A0 F=0x00

Так они и так вроде летят, тока не взрываются ??? А вообще народ вы новости читаете на сайте шарда ДРВ??? НЕТУ ТАКОГО УЖЕ!!!! ЗАБУДЬТЕ!!!!!