Yoko

Code: Select all

sub Camping()
   var i,j,mX=uo.GetX(),mY=uo.GetY(),mZ=uo.GetZ(),time=uo.Time() 
   uo.FindType('0x0DE1',-1,'backpack') 
   while uo.findcount()
      for i=mx-3 to mx+3 
         for j=my-3 to my+3  
            uo.FindType('0x0DE1',-1,'backpack') 
            uo.Grab("finditem","1","ground",str(i),str(j),str(mz))
            checklag()  
            wait(1000)
            uo.FindType('0x0DE1','0x0000','ground') 
            ;if uo.findcount() then
            checklag()
            uo.UseObject('finditem') 
            wait(4000)
            ; endif
            uo.FindType('0x0DE1',-1,'backpack') 
         wend
end sub

Code: Select all

sub Camping()
   VAR x,y,z,i
   VAR kidl='0x0DE1', n=3  
   UO.Print('Начинаю тренировать туризм')
   UO.Set('quiet','1')
   UO.Set('finddistance','3')
   i=UO.Getserial('self')
   UO.FindType(kidl,-1,'backpack')
   while UO.FindCount()
      for x=UO.GetX(i)-n to UO.GetX(i)+n
         for y=UO.GetY(i)-n to UO.GetY(i)+n
            for z=UO.GetZ(i)-0 to UO.GetZ(i)+10  ; делаем столбики из огня
               UO.FindType(kidl,-1,'backpack')
               if UO.FindCount() then
                  UO.MoveItem('finditem','1','ground',x,y,z)
                  checklag()
                  UO.FindType(kidl,-1,'ground')
                  while UO.FindCount()
                     UO.UseObject('finditem')
                     checklag()
                     UO.FindType(kidl,-1,'ground')
                  wend
               else
                  return
               endif
            next
         next
      next  
      UO.FindType(kidl,-1,'backpack')
   wend
   UO.Set('finddistance','15')
   UO.Set('quiet','0')
   UO.Print('Костры зажжены, палатки поставлены')  
end sub