Skinning. Шард Антарес. Срезаем кожу с овец.

[Scripts Writer]

В руках дагер.

Code: Select all

sub Skinning()
var pile='0x0DF8'
var leather='0x1078'
var cotton='0x0C4F'
var k
uo.Set('finddistance','15')
#Scripts Writer#Antares#
#02/08/07#
DIM sheep[2]

sheep[0]=0x00CF
sheep[1]=0x00DF

  while uo.Weight < 620
    
    uo.FindType(sheep[0],'-1','ground')      
    if uo.FindCount() then
      WalkN(uo.GetX('finditem'),uo.GetY('finditem'),uo.GetSerial('finditem'))
      k=0
      if uo.GetDistance('finditem') <= 2 then
        uo.Click('finditem')
        wait(100)
        repeat
          wait(100)
          k=k+1
        until uo.InJournal('Sheep') || k>50
        uo.WaitTargetObject('finditem')
        uo.UseObject(uo.GetSerial(uo.ObjAtLayer('Rhand')))
        wait(500)
        if uo.InJournal('Вы положили') then
          uo.Print('You get a pile of wool. There are '+STR(uo.Count(pile))+ ' piles of wool.')
        end if          
        k=0
        uo.DeleteJournal()
        uo.Click('finditem')
        wait(100)
        repeat
          wait(100)
          k=k+1
        until uo.InJournal('Lamb') || k>50       
      end if
    else
      uo.Print('There are no sheep. Start to kill lambs.')
      uo.FindType(sheep[1],'-1','ground')
      if uo.FindCount() then
        WalkN(uo.GetX('finditem'),uo.GetY('finditem'),uo.GetSerial('finditem'))
        k=0
        uo.DeleteJournal()
        if uo.GetDistance('finditem') <= 1 then
          uo.Click('finditem')
          wait(100)
          repeat
            wait(100)
            k=k+1
          until uo.InJournal('Lamb') || k>50  
          if k<50 then
            uo.WarMode(true)
            uo.Attack('finditem')
            uo.DeleteJournal()
            k=0
            wait(100)
            repeat
              wait(100)
              k=k+1
            until uo.InJournal('Тело Lamb') || k>100
            if uo.InJournal('Тело Lamb') && k<100 then
              uo.WarMode(false)
              uo.WaitTargetObject('lastcorpse')
              uo.UseObject(uo.GetSerial(uo.ObjAtLayer('Rhand')))
              uo.DeleteJournal()
              k=0
              wait(100)   
              repeat
                wait(100)
                k=k+1
              until uo.InJournal('You carve') || k>50
              uo.Click('lastcorpse')
              wait(250)
              if uo.InJournal('2 items') || uo.InJournal('3 items') then
                if uo.InJournal('2 items') then
                  wait(500)
                  uo.FindType(leather,'-1','lastcorpse')
                  if uo.FindCount() then
                    uo.moveitem('finditem')
                    wait(500)
                    uo.Print('There are '+STR(uo.Count(leather))+' leather in a backpack.')
                  end if
                else
                  uo.FindType(cotton,'-1','lastcorpse')
                  if uo.FindCount() then
                    uo.moveitem('finditem')
                    wait(500)
                    uo.Print('There are '+STR(uo.Count(cotton))+' cotton in a backpack.')
                  end if
                end if
              end if
            else
              uo.Print('There are no body. 0_0')
            end if
          end if
        end if
      end if
    end if
    wait(1000)
  wend
  
end sub

[Ururu]

А сам на этом скрипте наверно не качаешся =)
Себе и ресалку с ходилкой наверно добавил =)

[Scripts Writer]

Ходилка есть в этом скрипте, WalkN(x,y,Target). На нём и качаюсь.

Ресалку не писал т.к. слежу постоянно.

[Ururu]

Я немного про другую ходилку =) для ресалки. Там и рекол из банка по руне к дому и загрузка\разгрузка.

Нет желания воплотить? =)

[Scripts Writer]

Еслиб дело происходило на дрв где 5-10к реагентов это формальность, а не на антаресе где регов не хватает не перелёты из шахты домой и обратно то мб написал. А так, приходится бегать до банка ручками разгружать кожу, брать новый дагер и обратно.

п.с. Если у тебя есть желание проспонсировать меня 2мя нуби рунками, реагентами и нуби ножиком то мы можем это обсудить.

[Ururu]

реги ножницы и ножи не проблема, рекол по рункам в банке (с дозарядкой), складирование в банке до определенного веса, а после перелет до дома и перетаскивание, при резке выгрузка в банк при наборе определенного веса, либо при наборе Нного кол-ва хлопка

[Scripts Writer]

Напиши мне в асю. Обсудим