Плиз нужен скрипт на бросание експлоров
Posted: 2005-01-20 08:46:15
Люди помогите нужен скрипт на кидание експлоров что кидало штук 6 и сразу же меджиков аров стреляло! мне уже давали какойто но он почему-то не работал ! заранее спасибо !
*Oslic Padlo* wrote:Люди помогите нужен скрипт на кидание експлоров что кидало штук 6 и сразу же меджиков аров стреляло! мне уже давали какойто но он почему-то не работал ! заранее спасибо !
*Oslic Padlo* wrote:я что-то нечего не понял ! да и с англиским у меня туго можете поподробее что-то дать ! ветеран спасибо ! и кстати ник у меня зае...ишный
Code: Select all
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