Someone

findItem PRF_MQF C_ , #backPackID if #findKind = -1 pause set %instrument #findID start: while ! #cliLogged { wait 10 } chooseSkill musi real if #skill >= 1000 { display Complete! halt } setUOTitle Ultima Online - #charName ( #shard ) : Music - #skill event sysMessage Playing Music! set %lJindex #jIndex set %lObjectID #lObjectID set #lObjectID %instrument event macro 17 0 ;event macro 13 15 ;target ;event macro 22 0 set #lObjectID %lObjectID set %timer #scnt2 + 31 while %timer > #scnt2 { if #jIndex > %lJindex { set %lJindex %lJindex + 1 scanJournal %lJIndex if poorly in #journal + || fail in #journal { wait 1 BREAK } } wait 5 } if g in #charStatus { event macro 6 0 msg $guards$ } goto start