Под RUNUO(Nova) и не только,скрипт на БС и в мусор

[Chico]

Делает до упора вещи, если нет молотков и тонгов, изготавливает и далее делает, как обычно сетуп

Code: Select all

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