Page 2 of 2

Re: Если рядом

Posted: 2015-03-28 18:39:18
by Mirage
sub checkcolor(obj)
не запихивай и все

Re: Если рядом

Posted: 2015-03-28 22:22:05
by dubd
сп-а-сибо Мираж! а чего next делает? такое ощущение, что он мешает :)

Re: Если рядом

Posted: 2015-03-29 17:01:48
by Mirage
next меняет значение n от 1 до 14 - в твоем случае.
в общем твой скрипт должен выглядеть как то типо вот так

Code: Select all

sub test()
var n
var distance = 20
var elem_type = 'TYPE элементаля'
var invis_type = 'TYPE инвизки'
var invis_color = 'цвет инвизки'
Dim color[14]
   color[1]='0x09DA'
   color[2]='0x0060'
блаблабла
   color[14]='0x0028'
   for n=1 to 14
     if uo.findtype(elem_type, color[n], 'ground', distance) then
        uo.usetype(invis_type, invis_color)
        wait(200)
        return ; выбьет из цикла for next
     endif
   next
end sub

ретурн остановит поиск. Туда вместо ретурна можно прописать дополнительные действия требующиеся при нахождении цветного элементаля.

Re: Если рядом

Posted: 2015-03-29 19:15:20
by dubd
Мираж ну спасибо тебе большое за помощь! лайк и подписка.

Re: Если рядом

Posted: 2015-03-29 21:27:09
by Mirage
ну тебе тут уже парни насоветовали - я просто показал как это выглядит :roll:

Re: Если рядом

Posted: 2015-05-31 19:13:19
by dubd
а при вставке test() должен же инвиз пить, но чего то не пьет. Вставляю test() перед улетом на разгрузку.

вот кусок, но не пьнт зараза.

Code: Select all

for jor = 0 to 9
ser = uo.journalserial(jor)
noto = uo.getnotoriety(ser)
if noto <> 1 and noto <> 0 and not uo.injournal("elemental") then
if uo.waiting() then
uo.canceltarget()
endif
loot()
wait(3000)
endif
next
wend
if uo.weight > 625 then ; Максимальный вес при котором домой с рудой
goto end
endif
wend
UO.DeleteJournal()
next
next
goto na4alo
end:
if uo.waiting() then
uo.canceltarget()
endif
test()
uo.exec("recall Runebook 21") ; to home
wait(10000)
loot()
wait(3000)
reccal:
uo.deletejournal()
if uo.waiting() then
uo.canceltarget()
endif
uo.exec("recall Runebook 94") ; to cave
mx = UO.GetX("self")
my = UO.GetY("self")
wait(10000)
if not UO.GetX("self") <> mx and not UO.GetY("self") <> my then
goto reccal
endif
goto na4alo
end sub

Re: Если рядом

Posted: 2015-06-01 14:29:18
by dubd
помогите пожалуйста, в чем может быть проблема? цвет, тип инвизки прописал. цвет, тип элемов стоит правильный.

Re: Если рядом

Posted: 2015-06-01 17:39:08
by dubd
проблема решена. тему можно закрыть.