Someone

set %instruments LQF_MQF


initevents

gosub init


;;### MAINLOOP ###
loop:
 gosub detPet
 gosub findPet %group
 gosub checkReset
 goto loop



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

sub setInstrument
  finditem %instruments C_ , #backpackid
  if #findkind <> -1
  {
   set #lobjectid #findid
   event macro 17
   wait 10
  }
  else
  {
   display ok no more instruments!
   halt
  }
return

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

sub init
 ignoreitem reset
 set %timeReset #scnt
return

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

sub checkReset
 if ( #scnt - %timeReset ) >= 300
 {
  ignoreitem reset
  set %timeReset #scnt
  event SysMessage 5 Minute Anti-Macro Timer Reset
  wait 20
 }
return

;;********************************************
 
sub detPet
 chooseSkill Disc
 if #skill <= 100
  set %group AG_ZF_WC_JF_NF_RF_TF_PF_IG_NG_CO_BE_EG_DG_TG_HG
 if #skill <= 200 && #skill > 100
  set %group EG_DG_TG_HG_TC_KB_SF_MG_SG_OF_AH_WJ_PG_ZI
 if #skill <= 300 && #skill > 200
  set %group TC_KB_SF_MG_SG_OF_AH_WJ_PG_ZI_VD_QE_BG_JG_CG_UF_GE_ZD_VE_ZE_L_M_YG_XG_YF_VF
 if #skill <= 400 && #skill > 300
  set %group VD_QE_BG_JG_CG_UF_GE_ZD_VE_ZE_L_M_YG_XG_YF_VF_WF_XC_TO_QD_TI
 if #skill <= 500 && #skill > 400
  set %group WF_XC_TO_QD_TI_NC_LD_JB_SE_UD_WGB_QO_SD
 if #skill <= 600 && #skill > 500
  set %group NC_LD_JB_SE_UD_WGB_QO_SD_VGB_AP_RB_ED_UE_NI_RE_YD_W
 if #skill <= 700 && #skill > 600
  set %group VGB_AP_RB_ED_UE_NI_RE_YD_W_FD
 if #skill <= 800 && #skill > 700
  set %group ED_FD
 if #skill <= 900 && #skill > 800
  set %group FD
 if #skill > 900
  set %group FD
  
 ;; TRAINING WITH SUMMONS..
 set %group ED_FD
return

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

;sub checkInstrument


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

sub findPet
 _again:
  finditem %1 ;G_ , 10
  if #findkind <> -1
   gosub setInstrument
  set %temp1 #skill
  set %temp2 #scnt
  _loop:
   finditem %1 ;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
  event Macro 22 0
  wait 20
return

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