Code: Select all
var IDChest=0x52210ABF
var TypeChest=0x09AA
var IDCannon=0x51AADAFD
var vragID
sub AutoFire()
uo.usefromground(TypeChest)
uo.ignore("self")
uo.set('finddistance','20')
uo.ignore('0x014EC750') #ID чара для игнора
uo.deletejournal()
repeat
uo.findman()
if uo.findcount() then
VragID=uo.GetSerial('finditem')
UO.WaitTargetObject(IDCannon,VragID) ; dagger
UO.UseType('0x0E73')
wait(2000)
uo.say(UO.GetName('finditem')+': was kill')
CheckBall()
endif
wait(400)
until 1==2
end sub
sub SelfFire()
uo.usefromground(TypeChest)
uo.ignore("self")
uo.set('finddistance','20')
uo.ignore('0x014EC750') #ID чара для игнора
CheckBall()
uo.findman()
if uo.findcount() then
VragID=uo.GetSerial('finditem')
UO.WaitTargetObject(IDCannon,VragID) ; dagger
UO.UseType('0x0E73')
endif
end sub
sub CheckBall()
##################################
#Начало поднятия ядер
UO.FindType('0x0E73','0x047F','backpack') ; Ball
If UO.GetQuantity('finditem')==0 then
UO.FindType('0x0E73','0x047F',IDChest);Ball
wait(100)
UO.Grab('1','finditem')
wait(1000)
Endif
#Конец поднятия ядер
###################################
endsub
Вот листинг, если не в лом подскажите:) зарание Спасибы.