Если рядом

Anything and all.

Moderators: Murderator+, Murderator

Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: Если рядом

Post by Mirage »

sub checkcolor(obj)
не запихивай и все
dubd
Posts: 249
Joined: 2012-07-27 23:43:14

Re: Если рядом

Post by dubd »

сп-а-сибо Мираж! а чего next делает? такое ощущение, что он мешает :)
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: Если рядом

Post 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

ретурн остановит поиск. Туда вместо ретурна можно прописать дополнительные действия требующиеся при нахождении цветного элементаля.
dubd
Posts: 249
Joined: 2012-07-27 23:43:14

Re: Если рядом

Post by dubd »

Мираж ну спасибо тебе большое за помощь! лайк и подписка.
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: Если рядом

Post by Mirage »

ну тебе тут уже парни насоветовали - я просто показал как это выглядит :roll:
dubd
Posts: 249
Joined: 2012-07-27 23:43:14

Re: Если рядом

Post 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
dubd
Posts: 249
Joined: 2012-07-27 23:43:14

Re: Если рядом

Post by dubd »

помогите пожалуйста, в чем может быть проблема? цвет, тип инвизки прописал. цвет, тип элемов стоит правильный.
dubd
Posts: 249
Joined: 2012-07-27 23:43:14

Re: Если рядом

Post by dubd »

проблема решена. тему можно закрыть.
Post Reply