set %instrument LQF_MQF


initevents

loop:
 finditem %instrument
 if #findkind <> -1
 {
  set #lobjectid #findid
  event macro 17
  wait 140
 ]
 goto loop