set %instrument LQF_MQF
set %pet FD_ED


initevents

loop:
 gosub disco
 goto loop


sub disco
 findItem %instrument C_ , #backpackid
 if #findKind <> -1
 {
  set #lobjectid #findid
  event macro 17
  wait 10
  event macro 13 15
  target 5s
  finditem %pet G_ , 10
  if #findkind <> -1
   set #ltargetid #findid
  event Macro 22 0
  wait 10
 }
return