Yoko

Code: Select all

sub KillThemAll() 
;var Victim=0x0032 #тип животного 1
var Victim=0x03CA #тип животного 2
var CuttingTool=0x13C6 #Чем рЭзать(оружие)
var n=6
var x=uo.GetX() 
var y=uo.GetY()
;uo.print('001')
uo.ignorereset() 
;uo.print('002')
;uo.forget('far') 
;uo.print('003')
;uo.forget('counters') 
;uo.print('004')
uo.SetGlobal('KillCount', 0) 
;uo.print('005')

uo.Set('finddistance',str(n)) 

Repeat 
   wait(500) 
   uo.FindType(victim, -1,'ground') 
   if uo.FindCount() then 
      wait(100) 
      if uo.IsNPC('finditem') then 
;         uo.info('finditem') 
         while uo.IsNPC('finditem') 
            if uo.GetDistance('finditem') > 1 then 
               MoveTo('finditem', 1) 
               uo.attack('finditem') 
            end if 
            wait(100) 
         wend 
         uo.SetGlobal('KillCount', val(uo.GetGlobal('KillCount'))+1) 
         uo.forget('finditem') 
;        uo.warmode(0) 
         uo.waittargetobject('lastcorpse') 
         wait(100)
         uo.usetype(CuttingTool) 
         wait(100) 
         uo.useobject('lastcorpse')
         wait(550)
         uo.waittargetobject('lastcorpse')
         uo.say(',emptycontainer 550')
         while uo.waiting() 
            wait(100) 
         wend 
;         uo.disarm() 
         n=1 
      else 
         uo.Ignore('finditem') 
      end if 
   else 
      n=n+1 
      if n > 20 then 
         if (uo.GetX() <> x) or (uo.GetY() <> y) then 
            MoveToXY(x, y, 1) 
         end if 
         n=1 
      end if 
   end if 
Until uo.Dead() 
end sub 

sub Stat() 
   uo.charprint(257, 'Х-ха! Уже '+uo.GetGlobal('KillCount')+' скелетов заготовлено!') 
end sub 

sub Abs(num) 
   if num < 0 then 
      return -num 
   end if 
   return num 
end sub 

sub Sig(num) 
if num < 0 then 
   return -1 
else 
   if num == 0 then 
      return 0 
   endif 
endif 
return 1 
end sub 
       
sub MoveToXY(x, y, prec) 
   var dx, dy 
   dim Key[9] 
      Key[0]=37 
      Key[1]=35 
      Key[2]=40 
      Key[3]=36 
      Key[4]=12 
      Key[5]=34 
      Key[6]=38 
      Key[7]=33 
      Key[8]=39 
      dx=x-uo.GetX() 
      dy=-y+uo.GetY() 
   while (Abs(dx) > prec) or (Abs(dy) > prec) 
      dx=x-uo.GetX() 
      dy=-y+uo.GetY() 
      uo.Press(Key[(sig(dy)+1)*3+1+sig(dx)]) 
      wait(10) 
   wend 
end sub    

sub MoveTo(object, prec) 
   var dx, dy 
   dim Key[9] 
      Key[0]=37 
      Key[1]=35 
      Key[2]=40 
      Key[3]=36 
      Key[4]=12 
      Key[5]=34 
      Key[6]=38 
      Key[7]=33 
      Key[8]=39 
   while uo.GetDistance(object) > prec 
      dx=uo.GetX(object)-uo.GetX() 
      dy=-uo.GetY(object)+uo.GetY() 
      uo.Press(Key[(sig(dy)+1)*3+1+sig(dx)]) 
      wait(10) 
   wend 
end sub    

sub ExtendedInfo()

  var ObjectSerial
  var ObjectGraphics
  var ObjectIsNPC
  var ObjectNotoriety

  UO.Print('Select object to explore') 
  UO.AddObject('ObjectToExplore') 
  While UO.Targeting()==2 
    Wait(50) 
  WEnd 
  
  UO.Click('ObjectToExplore') 
  Wait(500)
  
  UO.Print('Object name is: '+UO.GetName('ObjectToExplore')) 
  
  ObjectSerial = UO.GetSerial('ObjectToExplore')
  UO.Print('Object serial is : '+ObjectSerial) 
  ObjectGraphics = UO.GetGraphic('ObjectToExplore')
  UO.Print('Object type is : '+ObjectGraphics) 
  ObjectIsNPC = UO.IsNPC('ObjectToExplore')
  UO.Print('Object IsNPC number is : '+str(ObjectIsNPC)) 
  ObjectNotoriety = UO.GetNotoriety('ObjectToExplore')
  UO.Print('Object notoriety is : '+str(ObjectNotoriety))