Форенсик Шард NOVA

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Dungeon [*HiCk*]
Junior Expert
Posts: 10
Joined: 2005-03-28 18:47:29

Форенсик Шард NOVA

Post by Dungeon [*HiCk*] »

Code: Select all


#####################################################
#                         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

Post Reply