Jewel_Loot_Haxorz

if not @findobject 'Loot Bag' and findalias 'Loot Bag'
  unsetalias 'Loot Bag'
endif
if not findalias 'Loot Bag'
  headmsg 'Select Loot Bag'
  promptalias 'Loot Bag'
endif
if not listexists 'Jewelry'
  @createlist 'Jewelry'
endif
if not listexists 'corpses'
  @createlist 'corpses'
endif
if not timerexists 'consecrate'
  createtimer 'consecrate'
  settimer 'consecrate' 10000
endif
if timer 'consecrate' > 10000
  @cast! 'consecrate weapon'
  settimer 'consecrate' 0
endif
if not @buffexists 'divine fury'
  cast 'divine fury'
  waitfortarget 1688
  target! 'self'
endif
if not listexists 'DropChests'
  @createlist 'DropChests'
  @pushlist! 'DropChests' 0xe7e
  @pushlist! 'DropChests' 0xe3f
  @pushlist! 'DropChests' 0xe7f
  @pushlist! 'DropChests' 0xe3e
  @pushlist! 'DropChests' 0x20ca
endif
if list 'Jewelry' == 0
  @pushlist! 'Jewelry' 0x108a
  @pushlist! 'Jewelry' 0x1f09
  @pushlist! 'Jewelry' 0x1086
  @pushlist! 'Jewelry' 0x1f06
endif
if not listexists 'Skill1'
  @createlist 'Skill1'
endif
if @list 'Skill1' != 28
  @pushlist! 'Skill1' 'Animal Taming'
  @pushlist! 'Skill1' 'Animal Lore'
  @pushlist! 'Skill1' 'Veterinary'
  @pushlist! 'Skill1' 'Provocation'
  @pushlist! 'Skill1' 'Anatomy'
  @pushlist! 'Skill1' 'Archery'
  @pushlist! 'Skill1' 'Stealing'
  @pushlist! 'Skill1' 'Tactics'
  @pushlist! 'Skill1' 'Swordsmanship'
  @pushlist! 'Skill1' 'Fencing'
  @pushlist! 'Skill1' 'Ninjitsu'
  @pushlist! 'Skill1' 'Healing'
  @pushlist! 'Skill1' 'Focus'
  @pushlist! 'Skill1' 'Mace Fighting'
  @pushlist! 'Skill1' 'Magery'
  @pushlist! 'Skill1' 'Evaluating Intelligence'
  @pushlist! 'Skill1' 'Resisting Spells'
  @pushlist! 'Skill1' 'Spirit Speak'
  @pushlist! 'Skill1' 'Necromancy'
  @pushlist! 'Skill1' 'Parrying'
  @pushlist! 'Skill1' 'Bushido'
  @pushlist! 'Skill1' 'Peacemaking'
  @pushlist! 'Skill1' 'Discordance'
  @pushlist! 'Skill1' 'Provocation'
  @pushlist! 'Skill1' 'Musicianship'
  @pushlist! 'Skill1' 'Wrestling'
  @pushlist! 'Skill1' 'Chivalry'
endif
if not listexists 'Skill2'
  @createlist 'Skill2'
endif
if @list 'Skill2' != 28
  @pushlist! 'Skill2' 'Animal Taming'
  @pushlist! 'Skill2' 'Animal Lore'
  @pushlist! 'Skill2' 'Veterinary'
  @pushlist! 'Skill2' 'Provocation'
  @pushlist! 'Skill2' 'Anatomy'
  @pushlist! 'Skill2' 'Archery'
  @pushlist! 'Skill2' 'Stealing'
  @pushlist! 'Skill2' 'Tactics'
  @pushlist! 'Skill2' 'Swordsmanship'
  @pushlist! 'Skill2' 'Fencing'
  @pushlist! 'Skill2' 'Ninjitsu'
  @pushlist! 'Skill2' 'Healing'
  @pushlist! 'Skill2' 'Focus'
  @pushlist! 'Skill2' 'Mace Fighting'
  @pushlist! 'Skill2' 'Magery'
  @pushlist! 'Skill2' 'Evaluating Intelligence'
  @pushlist! 'Skill2' 'Resisting Spells'
  @pushlist! 'Skill2' 'Spirit Speak'
  @pushlist! 'Skill2' 'Necromancy'
  @pushlist! 'Skill2' 'Parrying'
  @pushlist! 'Skill2' 'Bushido'
  @pushlist! 'Skill2' 'Peacemaking'
  @pushlist! 'Skill2' 'Discordance'
  @pushlist! 'Skill2' 'Provocation'
  @pushlist! 'Skill2' 'Musicianship'
  @pushlist! 'Skill2' 'Wrestling'
  @pushlist! 'Skill2' 'Chivalry'
endif
//if not inregion 'town'
@Getenemy 'murderer' 'Enemy' 'criminal' 'gray' 'closest'
@setability 'secondary' 'on'
@attack! 'enemy'
//endif
if not @findtype 0x2006 'any' 'ground' 1 2
  pause 250
elseif @setalias 'CorpseToLoot' 'found'
  @useobject! 'CorpseToLoot'
endif
for 0 to 'Jewelry'
  if @findtype 'Jewelry[]' 'any' 'CorpseToLoot'
    @canceltarget
    @setalias! 'JewelToCheck' 'found'
    waitforproperties 'JewelToCheck' 1200
    for 0 to Skill1
      if @property 'Skill1[]' 'found' >= 10
        @poplist 'Skill2' 'Skill1[]'
        for 0 to Skill2
          if @property 'Skill2[]' 'found' >= 10
            pause 80
            msg "[e woohoo"
            headmsg "Grabbing Epic Jewlery!" 1987
            pause 80
            sysmsg 'Moving Jewel to Loot Bag' '1999'
            @moveitem 'JewelToCheck' 'Loot Bag' 50 50 50 1
            pause 1000
            ignoreobject 'JewelToCheck'
            break
            msg "[claim"
            waitfortarget 250
            target! 'CorpseToLoot'
            waitfortarget 250
            @canceltarget
          endif
        endfor
      endif
    endfor
  endif
endfor
if @inrange 'CorpseToLoot'2
  @msg "[claim"
  waitfortarget 250
  target! 'CorpseToLoot'
  waitfortarget 250
  @canceltarget
endif
if @injournal 'Shield of Spikes!' 'system'
  replygump 0x4239a64f 1004
  waitforgump 0x4239a64f 15000
  headmsg 'SOS Rearmed' '1990'
endif
if @injournal 'You failed the augment skill check' 'system'
  replygump 0x4239a64f 1004
  waitforgump 0x4239a64f 15000
  headmsg 'SOS Rearmed' '1990'
endif
@clearjournal
// Inventory check
if @weight >= 500
  @msg "[ffp"
endif
if @contents 'backpack' >= 165 or @contents 'Loot Bag' >= 100
  @msg "[ffp"
  headmsg "Nearly Full Backpack!!!" 1987 'self'
endif
// end Inventory Check
if not inregion 'town'
  @Getenemy 'murderer' 'Enemy' 'criminal' 'gray' 'closest'
  @setability 'secondary' 'on'
  @attack! 'enemy'
endif
// Double Clicks all gold in your pack
if @findtype '0xeed' 'any' 'backpack'
  @useobject! 'found'
endif
// End Double click all gold
//Grab all Ground Gold
while @findtype 0xeed 'any' 'ground'
  useobject! 'found'
  ignoreobject 'found'
endwhile
//End Grab all Ground Gold