Таким вот образом
Code: Select all
Sub dinv()
Var Type='0x0F09'
Var Color='0x0060'
Uo.FindType(Type, Color)
if Uo.FindCount() > 0 Then
Uo.UseObject('finditem')
else
Uo.Print("Achtung!!!no invis!!!")
endif
EndsubCode: Select all
Sub dinv()
Var Type='0x0F09'
Var Color='0x0060'
Uo.FindType(Type, Color)
if Uo.FindCount() > 0 Then
Uo.UseObject('finditem')
else
Uo.Print("Achtung!!!no invis!!!")
endif
Endsub