set %instruments LQF_MQF

initevents

gosub init


;;### MAINLOOP ###
loop:
 gosub findPet
 goto loop



;;*******************SUBS**********************

sub setInstrument
  finditem %instruments C_ , #backpackid
  if #findkind <> -1
  {
   set #lobjectid #findid
   event macro 17
   wait 10
  }
return

;;********************************************

sub init
 ignoreitem reset
 set %timeReset #scnt
 chooseSkill Disc
return


;;********************************************

sub findPet
 _again:
  finditem ED G_ , 10
  if #findkind <> -1
   gosub setInstrument
  set %temp1 #skill
  set %temp2 #scnt
  _loop:
   finditem ED G_ , 10
   if #findkind <> -1
   {
    gosub disco #findid
    if ( #skill - %temp1 ) < 3 && ( #scnt - %temp2 ) <= 30
     goto _loop
    else
     ignoreitem #findid
    wait 5
    goto _again
   }
return

;;********************************************

sub disco
  event macro 13 15
  target 5s
  set #ltargetid %1
  set #lTargetKind 1
  event Macro 22 0
  wait 20
return

;;********************************************