//////////////////////////////////
////////Setup's
if not @findobject 'Lootbag'
  headmsg 'Please target your Lootbag'
  promptalias 'Lootbag' 15000
endif
////////////////////////
if not @listexists 'Jewelry'
  @createlist 'Jewelry'
endif
if list 'Jewelry' == 0
  @pushlist 'Jewelry' 0x108a
  @pushlist 'Jewelry' 0x1f09
  @pushlist 'Jewelry' 0x1086
  @pushlist 'Jewelry' 0x1f06
endif
/////////
/////////
/////////
///////// Main Loop
@getenemy 'murderer' 'enemy' 'criminal' 'gray' 'closest'
pause 400
if @findobject 'enemy'
  @clearjournal
  if @inrange 'enemy' 10
    attack 'enemy'
  endif
  ////////////////////////////////////////
  ////////////////////////////////////////
  ////////////////////////////////////////
  ////////////////////////////////////////
  ////////////////////////////////////////
  ////////////////////////////////////////
  ////////////////////////////////////////
  ////////////////////////////////////////
  /////////////Ability////////////////////
  ////////////////////////////////////////
  // comment out the one you wish not to use
  if mana >= 64 and timer 'abilitytimer' > 500
    //primary
    setability 'primary' 'on'
    //secondary
    //setability 'secondary' 'on'
    ////////////////////////////////////////
    ////////////////////////////////////////
    ////////////////////////////////////////
    ////////////////////////////////////////
    ////////////////////////////////////////
    ////////////////////////////////////////
    ////////////////////////////////////////
    ////////////////////////////////////////
    ////////////////////////////////////////
    ////////////////////////////////////////
  endif
  if @injournal 'attack with lightning!' or @injournal 'failure message'
    cast "counter attack"
    clearjournal
  endif
  if @injournal 'You attack with lightning precision!' or @injournal 'failure message'
    cast "Lightning Strike"
    clearjournal
  endif
  ///////////////////////////
  ///////////////////////////
  ///////////////////////////
  ////////////////
  ////////////////
  ////////////////
  // Divine Fury
  if not buffexists "divine fury"
    cast 'Divine Fury'
    pause 500
    if @injournal 'not yet recovered' 'system' or @injournal 'you are already' 'system'
      replay
    endif
    clearjournal
  endif
  /////////////////////
  /////////////////////
  /////////////////////
  ///// Consecrate Weapon
  if timer 'consecratetimer' >= 9000
    if not buffexists "Consecrate Weapon"
      cast "Consecrate Weapon"
      pause 500
      settimer 'consecratetimer' 0
      if @injournal 'not yet recovered' 'system' or @injournal 'you are already' 'system'
        replay
      endif
      clearjournal
    endif
  endif
  attack 'enemy'
endif
if @findtype 0xeed 0x0 'backpack'
  @usetype 0xeed 0x0 'backpack'
  pause 400
elseif @findtype 0x14f0 52 'backpack'
  useobject 0x42c79fe3
  waitforgump 0x9021dd59 1500
  replygump 0x9021dd59 5 2
  waitfortarget 1500
  targettype! 0x14f0 52 500
  pause 100
  canceltarget
  pause 400
  replygump 0x9021dd59 0 2
endif
while  @findtype 0xeef 'any' 'ground'
headmsg 'Leprechan Gold!' 2125 'found'
if @inrange 'found' 1
useobject! 'found'
endif
endwhile
while @findtype 0xeed 'any' 'ground' or @findtype 0xeef 'any' 'ground'
  useobject! 'found'
endwhile
////////////////////////////////
////////////////////////////////
////////////////////////////////
///Loot Jewelry
/////////////////////////
//Find Corpse
if @findtype '0x2006' 'any' 'ground' '1' '1'
  @setalias '0' 'found'
  //////////////////////////
  //Locate Jewelry
  for 0 to Jewelry
    if @findtype Jewelry[] 0 '0'
      @setalias 'Skills' 'found'
      waitforproperties 'Skills' 3000
      if @property 'Swordsmanship' 'Skills' >= 12
        sysmsg 'Swords!' '1990'
        @moveitem 'Skills' 'LootBag'
        msg '[e yea'
        pause 1000
      elseif @property 'Magery' 'Skills' >= 14
        sysmsg 'Magery!' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
        msg '[e yea'
      elseif @property 'Parry' 'Skills' >= 11
        sysmsg 'Parry!' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
        msg '[e yea'
      elseif @property 'Tactics' 'Skills' >= 14
        sysmsg 'Tactics' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
        msg '[e yea'
      elseif @property 'Animal Taming' 'Skills' >= 14
        sysmsg 'Taming' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
        msg '[e yea'
      elseif @property 'Archery' 'Skills' >= 15
        sysmsg 'Archery' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
        msg '[e yea'
      elseif @property 'Anatomy' 'Skills' >= 14
        sysmsg 'Anatomy' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
        msg '[e yea'
      elseif @property 'Bushido' 'Skills' >= 14
        sysmsg 'Bushido' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
        msg '[e yea'
      elseif @property 'Peacemaking' 'Skills' >= 15
        sysmsg 'Peacemaking' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
        msg '[e yea'
      elseif @property 'Archery' 'Skills' >= 15
        sysmsg 'Archery' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
        msg '[e yea'
      elseif @property 'Discordance' 'Skills' >= 15
        sysmsg 'Discordance' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
        msg '[e yea'
      elseif @property 'Animal Lore' 'Skills' >= 11
        sysmsg 'Animal Lore' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
        msg '[e yea'
      elseif @property 'Evaluating Intelligence' 'Skills' >= 15
        sysmsg 'Evaluating Intelligence' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
        msg '[e yea'
      elseif @property 'Resist Spells' 'Skills' >= 15
        sysmsg 'Resist Spells' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
        msg '[e yea'
      elseif @property 'Lower Reagent Cost' 'Skills' >= 17
        sysmsg 'Lower Reagent Cost' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
        msg '[e yea'
      elseif @property 'Faster Cast Recovery' 'Skills' >= 2 and @property 'Faster Casting' 'Skills' >=1
        sysmsg 'FCR/FC' '1990'
        @moveitem 'Skills' 'LootBag'
        pause 1000
        msg '[e yea'
      endif
    endif
  endfor
endif