Ultima Online Antares

sub Musicianship()
VAR a
    Dim Musicial_instrument[6]
        Musicial_instrument[1] = '0x0E9C'; Drum (барабан)
        Musicial_instrument[2] = '0x0E9D'; Tambourine (бубен)
        Musicial_instrument[3] = '0x0E9E'; Tambourine (бубен с лентой)
        Musicial_instrument[4] = '0x0EB2'; Lap Harp (маленькая арфа)
        Musicial_instrument[5] = '0x0EB1'; Standing Harp (большая арфа)
        Musicial_instrument[6] = '0x0EB3'; Lute (лютня ака балалайка)
    for a=1 to 6
            UO.FindType(Musicial_instrument[a],'-1','2')
        While UO.FindCount() And UO.Skillval('Musicianship') < 1000 And Not UO.Dead()
                UO.UseObject('finditem')
                        Wait(100)
                    UO.WarMode(0)
            UO.FindType(Musicial_instrument[a],'-1','2')
        Wend
    Next
End Sub