Page 1 of 1

Плиз нужен скрипт на бросание експлоров

Posted: 2005-01-20 08:46:15
by *Oslic Padlo*
Люди помогите нужен скрипт на кидание експлоров что кидало штук 6 и сразу же меджиков аров стреляло! мне уже давали какойто но он почему-то не работал ! заранее спасибо !

Re: Плиз нужен скрипт на бросание експлоров

Posted: 2005-01-20 10:37:18
by BETEPAH
*Oslic Padlo* wrote:Люди помогите нужен скрипт на кидание експлоров что кидало штук 6 и сразу же меджиков аров стреляло! мне уже давали какойто но он почему-то не работал ! заранее спасибо !


ослик не надо оправдывать свой ник ........ НЕ ВПАДЛУ НАЖМИ СЮДА

http://yoko.netroof.net/forum/search.php

Posted: 2005-01-21 05:36:38
by *Oslic Padlo*
я что-то нечего не понял ! да и с англиским у меня туго можете поподробее что-то дать ! ветеран спасибо ! и кстати ник у меня зае...ишный :)

Posted: 2005-01-21 10:54:30
by BETEPAH
*Oslic Padlo* wrote:я что-то нечего не понял ! да и с англиским у меня туго можете поподробее что-то дать ! ветеран спасибо ! и кстати ник у меня зае...ишный :)


там была ссылка на Поиск .....просто таких скриптов выкладывали уже многовато

http://yoko.netroof.net/forum/viewtopic.php?p=9517#9517
тут мой автолоуд ...там боевые все и так далее ....

а это то что ты хотел

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