Training - Discordance w/ Runes

////////////////////////////
//Title: Macro for training Discordance w/ runes
//Author: Maelune
//
//Requirements: Many charges of an instrument.
//              Hiding skill at 100+
//
//Instructions: Stand so that you are within 8 tiles of as many vendors
//as possible. Check the "Loop" box in UOSteam. Hit 'Play'.
//
//Notes: This mod is setup to be used at a player VM. The more player vendors, //the better.
//       Player VMs will only get you into the low 50s in Discordance. Investigations into
//       methods of getting max Discordance without finding animals and locking them away
//       is ongoing.
////////////////////////////
//For each vendor, discord once then ignore. Clear list when finished
if not listexists 'runes'
  createlist 'runes'
endif
@clearlist! 'runes'
@pushlist! 'runes' 0x44f1243c //replace these rune serials with runes of your own
@pushlist! 'runes' 0x44f1245e //Easiest to use public VMs, as you cannot mark
@pushlist! 'runes' 0x44f12477 //runes inside of a player's house.
@pushlist! 'runes' 0x44f123d3
@pushlist! 'runes' 0x44f124bc
if not timerexists 'location'
  createtimer 'location'
  settimer 'location' 0
endif
for 0 to runes
  cast 'sacred journey'
  waitfortarget 5000
  target! runes[]
  pause 5000
  clearignorelist
  while timer 'location' < 900000
    while @findtype 0x191 'any' 'ground' 'any' '8' or @findtype 0x190 'any' 'ground' 'any' '8'
      if not @property 'shop name' 'found'
        ignoreobject 'found'
      else
        useskill 'Discordance'
        if @injournal 'instrument shall you'
          @targettype! 0xeb1 'any' 'backpack'
          @targettype! 0xeb2 'any' 'backpack'
          @targettype! 0xeb3 'any' 'backpack'
          @targettype! 0xebc 'any' 'backpack'
          @targettype! 0xebd 'any' 'backpack'
          @targettype! 0xebe 'any' 'backpack'
          @targettype! 0x2805 'any' 'backpack'
          clearjournal
        endif
        if @injournal 'the target for your'
          pause 200
          target! 'found'
          if @injournal 'creature is already'
            ignoreobject 'found'
            clearjournal
            pause 150
          else
            //ignoreobject 'found'
          endif
          if @injournal 'You play'
            ignoreobject 'found'
            pause 13000
            clearjournal
          elseif @injournal 'You attempt'
            pause 13000
            clearjournal
          endif
        endif
      endif
    endwhile
    //while not hidden 'self'
    //  useskill 'hiding'
    //endwhile
    //pause 20000
    clearignorelist
  endwhile
  settimer 'location' 0
endfor