if uo.getgraphic('finditem')=='0x0EED' || uo.getgraphic('finditem')=='0x13B5' then

if uo.injournal("You put|You can't") then

sub main()
   #uo.Print(uo.GetGraphic("self"))
   uo.Print(str(TypeIn("0x0191|0x0191|0x0191|0x0191|0x0190|0x0191|0x0190|0x0191", uo.GetGraphic("self"))))
end sub

sub TypeIn(types, type)

   var types_size = int((len(types)+1)/7)
   var index = 0

   while types_size
      if mid(types, index*7, 6) == type then
         return index
      end if
      index = index+1
      types_size = types_size-1
   wend 
   return -1

end sub

sub main()
var z=uo.getgraphic('self')

if types(z)==true then
uo.print('Совпадает')
else
uo.print('Не совпадает')
endif

end sub

Sub types(type)
var a

dim t[2]
t[0]='0x0191'
t[1]='0x0190'

for a=0 to 1
if type==t[a] then
return true
endif
next
end sub

int(len(...))

int((len(types)+1)/7) 

int(56/7)

int(8)

Sub GetWord( st, nom )
    ; (c) Edred
    ; Возвращает слово из строки str за номером num
    ; если такого слова нет - возвращаем ''
    ;
    ; Разделителем слов считаем пробел. Несколько пробелов подряд считаются за один.
    ; Функция сделана без рекурсии специально для считывания слов из сверхдлинных строк!
    ;
    VAR tmpst, i, dlin, kol = 0, start = 0
    dlin = len( st )
    For i=0 To dlin - 1
        If mid( st, i, 1 ) == ' ' OR i == dlin - 1 Then
            kol = kol + 1
            If kol == nom Then
                ; это первый пробел после нужного нам слова
                tmpst = mid( st, start, i - start )
                return tmpst
            Else
                While mid( st, i, 1 ) == ' '
                    i = i + 1
                Wend
                If kol == nom - 1 Then
                    start = i
                Endif
            Endif
        Endif
    Next
    tmpst = ''
    return tmpst
endsub

@echo off
f:\masm32\bin\ml /coff /c %1.asm
f:\masm32\bin\link /SUBSYSTEM:CONSOLE %1.obj
@echo on