Re: Если рядом
Posted: 2015-03-28 18:39:18
sub checkcolor(obj)
не запихивай и все
не запихивай и все
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
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