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

Если рядом
http://forum.yoko.com.ua/viewtopic.php?f=20&t=17573		 Page 2 of 2
Author:  Mirage [ 2015-03-28 18:39:18 ]
Post subject:  Re: Если рядом
sub checkcolor(obj)
не запихивай и все
Author:  dubd [ 2015-03-28 22:22:05 ]
Post subject:  Re: Если рядом
сп-а-сибо Мираж! а чего next делает? такое ощущение, что он мешает :)
Author:  Mirage [ 2015-03-29 17:01:48 ]
Post subject:  Re: Если рядом
next меняет значение n от 1 до 14 - в твоем случае.
в общем твой скрипт должен выглядеть как то типо вот так

Code:
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

ретурн остановит поиск. Туда вместо ретурна можно прописать дополнительные действия требующиеся при нахождении цветного элементаля.
Author:  dubd [ 2015-03-29 19:15:20 ]
Post subject:  Re: Если рядом
Мираж ну спасибо тебе большое за помощь! лайк и подписка.
Author:  Mirage [ 2015-03-29 21:27:09 ]
Post subject:  Re: Если рядом
ну тебе тут уже парни насоветовали - я просто показал как это выглядит :roll:
Author:  dubd [ 2015-05-31 19:13:19 ]
Post subject:  Re: Если рядом
а при вставке test() должен же инвиз пить, но чего то не пьет. Вставляю test() перед улетом на разгрузку.

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

Code:
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
Author:  dubd [ 2015-06-01 14:29:18 ]
Post subject:  Re: Если рядом
помогите пожалуйста, в чем может быть проблема? цвет, тип инвизки прописал. цвет, тип элемов стоит правильный.
Author:  dubd [ 2015-06-01 17:39:08 ]
Post subject:  Re: Если рядом
проблема решена. тему можно закрыть.
Page 2 of 2 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/