@getenemy  'enemy' 'murderer' 'criminal' 'gray' 'nearest' 'next' pause 8
@setability 'secondary' 'on'
attack 'enemy'
pause 64
if not @findobject 'RingBag'
  promptalias 'RingBag'
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
if not listexists 'Skill'
  @createlist 'Skill'
endif
if list 'Skill' == 0
  @pushlist 'Skill' 'Animal Taming'
  @pushlist 'Skill' 'Animal Lore'
  @pushlist 'Skill' 'Veterinary'
  @pushlist 'Skill' 'Provocation'
  @pushlist 'Skill' 'Anatomy'
  @pushlist 'Skill' 'Archery'
  @pushlist 'Skill' 'Stealing'
  @pushlist 'Skill' 'Tactics'
  @pushlist 'Skill' 'Swordsmanship'
  @pushlist 'Skill' 'Fencing'
  @pushlist 'Skill' 'Ninjitsu'
  @pushlist 'Skill' 'Healing'
  @pushlist 'Skill' 'Focus'
  @pushlist 'Skill' 'Mace Fighting'
  @pushlist 'Skill' 'Magery'
  @pushlist 'Skill' 'Evaluating Intelligence'
  @pushlist 'Skill' 'Spirit Speak'
  @pushlist 'Skill' 'Necromancy'
  @pushlist 'Skill' 'Parrying'
  @pushlist 'Skill' 'Bushido'
  @pushlist 'Skill' 'Discordance'
  @pushlist 'Skill' 'Provocation'
endif
if not @findtype '0x2006' 'any' 'ground' '1' '1'
endif
@setalias '0' 'found'
@useobject '0'
for 0 to Jewelry
  for 2
    if @findtype Jewelry[] 0 '0'
      @setalias 'Skills' 'found'
      waitforproperties 'Skills' 3000
      for 0 to Skill
        if @property Skill[] 'Skills' >= 10
          sysmsg 'Hip Hip Hurray!!! Got one!!!' '1990'
          msg '[e woohoo'
          @moveitem 'Skills' 'RingBag'
          pause 1000
        endif
      endfor
    endif
  endfor
endfor
ignoreobject '0'
if @injournal 'You failed the augment skill check' 'system'
  if stam < 120
    cast 'divine fury'
    pause 500
  endif
  replygump 0x4239a64f 1004
  waitforgump 0x4239a64f 15000
  sysmsg 'SOS Rearmed' '1990'
endif
@clearjournal