Yoko
http://forum.yoko.com.ua/

Под RUNUO(Nova) и не только,скрипт на БС и в мусор
http://forum.yoko.com.ua/viewtopic.php?f=15&t=10789
Page 1 of 1

Author:  Chico [ 2006-12-25 18:37:17 ]
Post subject:  Под RUNUO(Nova) и не только,скрипт на БС и в мусор

Делает до упора вещи, если нет молотков и тонгов, изготавливает и далее делает, как обычно сетуп
Code:
var INSTR = '0x1EB8'       ; инструмент тинкера
var Metal = '0x1BF2'
var kol_met = '2000'       ;  по сколько хапаем металла
VAR MaxWeight= ((uo.STR*3.5)+39)
var Izd

sub setup()
   uo.Exec('addobject Box1')
   while uo.Targeting()
   wait(100)
   wend
   uo.Exec('addobject Bagpak')
   while uo.Targeting()
   wait(100)
   wend
   uo.Exec('addobject Musorka')
   while uo.Targeting()
   wait(100)
   wend
   uo.Exec('addobject obj')
   while uo.Targeting()
   wait(100)
   wend
    Izd = uo.GetGraphic('obj')
    Uo.addtype('Izdelie',Izd)
end sub

sub main()                      ; Так как сначала изготавливаем инструмент, то эта процедура делает инструмент
uo.setreceivingcontainer('Bagpak')    ; Бакпак по умолчанию приемный контейнер
while not uo.dead() ; нет то берем
   wait(2000)
   uo.useobject('Box1')              ; открываем бокс с металлом
   wait(1000)
   if uo.count(INSTR) < 2  then
       uo.findtype(INSTR,'-1','Box1')
       wait(500)
       UO.grab('1','finditem')
       Wait(2000)
   end if
   if uo.count(Metal) < 20  then             ; ----   Если ингов мало берем
       uo.findtype(Metal,'-1','Box1')
       wait(500)
       UO.grab(Kol_met,'finditem')
      Wait(1000)
   end if
   while uo.count('0x13E3') < 2      ;   если молотков мало то делаем
       uo.print('delaem molot')
      UO.usetype(INSTR)  ;  ---------- Делаем молотки
      wait(3000)
      UO.LClick(422,311)   ; перелистываем на страницу
      wait(2000)
      UO.LClick(273,170)   ;  делаем молоток
      wait(6000)
   wend

   while uo.count('0x0FBB') < 2      ;   если тонгов мало то делаем
      UO.usetype(INSTR)  ;  ---------- Делаем тонги
      wait(3000)
      UO.LClick(422,311)   ; перелистываем на страницу
      wait(2000)
      UO.LClick(275,148)   ;  делаем тонг
      wait(6000)
   wend
   proizv()
wend
end sub

sub proizv()
   while uo.count(Metal) > 20 and  UO.Weight < MaxWeight and uo.count('0x13E3') > 0
   UO.usetype('0x13E3')  ;  ---------- Используем молоток
   wait(1500)
   UO.LClick(323,454)
   wait(5000)             ; Изготовим последнюю вещь   
   wend
   ; sell()
   sbros()
end sub

sub sbros()
   repeat
   uo.findtype('Izdelie')
   uo.moveitem('finditem','0','Musorka')      ; Сбросим изделия в сундук
   wait(600)
   uo.print('naideno -' + str(uo.count('Izdelie')))
   until not uo.count('Izdelie')
end sub

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/