Помогите, скрипт не пишется -)

[Destruction]

Есть у меня вредная привычка - писать каждый раз новые скрипты -))

Задача: На полу разные инготы, добрать так, чтобы в сумме в бекпаке их было 20-21, и при этом не было ресов, которых меньше 3ёх.

Итак, пишу скрипт на БС, пока проблема с добором ресурсов:

Code: Select all

sub BlackSmithing()
Des.GetResource("0x1BF2", "-1", 20, "backpack", "ground")
while Des.FixResource("0x1BF2", "-1", 3, "backpack")
	Des.GetResource("0x1BF2", "-1", 20, "backpack", "ground")
wend
endsub

; Функция выкидывает кучки в которых слишком мало итемов
; type - тип предмета
; color - цвет предмета
; count - нужное количество
; cont - где проверять
Sub Des.FixResource(type, color, count, cont)
uo.ignorereset()
uo.findtype(type, color, cont)
while uo.findcount()
	if uo.getQuantity("finditem") < count then
		Des.KillItem( uo.getSerial( "finditem" ) )
		return true
	endif
	uo.ignore("finditem")
	uo.findtype(type, color, cont)
wend
return false
endsub

; Функция докладывает нужное количество ресурсов
; type - тип предмета
; color - цвет предмета
; count - нужное количество
; cont - куда класть
; from - где искать
Sub Des.GetResource(type, color, count, cont, from)
var current = Des.GetQuantity(type, color, cont)
if count - current == 1 then
	current = count - 2
endif
if count - current <= 0 then
	return
endif
uo.ignorereset()
uo.findtype(type, color, from)
while uo.findcount()
	if uo.getQuantity( "finditem" ) > 0 then
		uo.moveitem("finditem", str(count-current), cont)
		checklag()
		current = Des.GetQuantity(type, color, cont)
		if count - current == 1 then
			current = count - 2
		endif
		if count - current <= 0 then
			return true
		endif
	endif
	uo.ignore("finditem") ; откуда-то берётся 0xFFFFFFF
	; и самое странное - лезет invalid object !!!
	uo.findtype(type, color, from)
wend
die( "No resource" )
endsub

; Функция возвращает количество предметов
; type - тип предмета
; color - цвет предмета
; cont - где проверять
Sub Des.GetQuantity(type, color, cont)
var count = 0;
uo.findtype(type, color, cont)
while uo.findcount()
	count = count + uo.getQuantity( "finditem" )
	uo.ignore("finditem")
	uo.findtype(type, color, cont)
wend
uo.ignorereset()
return count
endsub

Где проблема - пометил в скрипте. Спать наверное пора, подскажите кто-нибудь свежую мысль, что не так ?..

Причём проблема вылезает после второго запуска скрипта, видимо инжект в память какую-то лабуду себе записывает..

PS: Пробывал заюзать форгет - не помог.
YokoInjection 505.18 VeNdOr
script.dll из стандартной поставки

[Destruction]

аха..

Кажись просто кранты инже -)

Code: Select all

Sub deljournal(msg)
	while uo.injournal(msg)
		uo.setjournalline(uo.injournal(msg)-1,'') ; ошибка - незнаем, что такое msg !!! Бгагага -) Безобразие -(
	wend
endsub

Sub checklag()
	deljournal('ackpack')
	uo.click("backpack")
	repeat
		wait(100)
	until uo.injournal('ackpack')
endsub

[Nmy]

https://yoko.uokit.com/viewtopic.php?p=50653#50653
вот возьми как пример... все оказывается намного кароче

[Mihail]

самый короткий скрипт такого рода там последним постом

а вообще - примерно это надо?

Code: Select all

var sunduk='0x0000000'

sub regs(Reg,kol) 
var i=0, k=0
UO.FindType(Reg,-1,sunduk) 
k= kol - uo.count(Reg)
if k>0 and uo.findcount()>0 then 
uo.grab(str(k),'finditem') 
wait(500+uo.random(3)*100) 
checklag() 
end if
end sub

[Destruction]

https://yoko.uokit.com/viewtopic.php?p=50653#50653
вот возьми как пример... все оказывается намного кароче

Мне не надо коротко, готов поспорить, что тот скрипт не делает всё, что мне надо -)

[Destruction]

самый короткий скрипт такого рода там последним постом

а вообще - примерно это надо?

Code: Select all

var sunduk='0x0000000'

sub regs(Reg,kol) 
var i=0, k=0
UO.FindType(Reg,-1,sunduk) 
k= kol - uo.count(Reg)
if k>0 and uo.findcount()>0 then 
uo.grab(str(k),'finditem') 
wait(500+uo.random(3)*100) 
checklag() 
end if
end sub

Аха, почти. Надо мой скрипт исправить, а не чужие вталкивать -)

Впринципе, стоило дописать мне процедуру ковки, как проблема себя исчерпала, но теперь мне жутко любопытно, откуда взялась экая проблема -)