Forensing

[shmedish]

#####################################################
# NOVA #
# Dungeon [*HiCk*] © 2005 #
# (http://nova-uo.com) #
#####################################################


###################################
# Заходите в загон с коровами например в СкараБре
# На кнопку F10 нужно забить команду AllNames в макросах уо
# Убивает корову и форенсит труп пока он есть после убивает еще.

sub forens()
telo = '0x2006' #Тайп Трупа
target = '0x00E7' # тайп Убиваемого животного (Корова серая)
targett = '0x00D8' # тайп Убиваемого животного (Корова черная)
uo.exec("set finddistance 6")
forens:
if uo.life < uo.str - 30 then
Uo.Say("GUARDS");
endif
uo.findtype(telo,-1,"ground")
if uo.findcount() > 0 then
uo.waittargetobject("finditem")
uo.UseSkill("Forensic Evaluation")
wait(500)
else
uo.press(121)
uo.findtype(target,-1,"ground")
if uo.findcount() <= 0 then
uo.findtype(targett,-1,"ground")
endif
if uo.findcount() > 0 then
uo.Attack("finditem")
endif
wait(20000)
endif
goto forens
end sub
Добавте пожалуста суда ходилку что бы чар ходил за целью если она на растоянии.