Бросок с задержкой
Posted: 2010-12-22 10:53:40
Помогите внести следующие изменения в скрипт, чтобы бросок бомбы был с задержкой 2,5 сек.
sub BOMB()
var i
Dim Bomb[2]
Bomb[0]=0x0F0D
Bomb[1]=0x0F0E
Dim Color[2]
Color[0]=0x0B99
Color[1]=0x09DA
for i=0 to 1
UO.FindType(Bomb[i],Color[i],'backpack')
If UO.FindCount() > 0 Then
UO.UseType(Bomb[i],Color[i])
uo.waittargetobject('laststatus')
wait (500)
endif
next
UO.Say("Ãðàíàòà")
end sub
sub BOMB()
var i
Dim Bomb[2]
Bomb[0]=0x0F0D
Bomb[1]=0x0F0E
Dim Color[2]
Color[0]=0x0B99
Color[1]=0x09DA
for i=0 to 1
UO.FindType(Bomb[i],Color[i],'backpack')
If UO.FindCount() > 0 Then
UO.UseType(Bomb[i],Color[i])
uo.waittargetobject('laststatus')
wait (500)
endif
next
UO.Say("Ãðàíàòà")
end sub