get enemy
getenemy 'enemy' 'murderer' 'criminal' 'gray' 'nearest' 'next'
if hits 'enemy' == maxhits 'enemy'
virtue 'honor'
waitingfortarget 5000
target 'enemy'
pause 8
attack 'enemy'
endif
attack 'enemy'
playmacro 'armor ignore'
armor ignore[set loop]
if graphic 'righthand' == 0xf45
playmacro 'mortal'
endif
if graphic 'righthand' == 0x26c2
playmacro 'archery'
endif
if graphic 'righthand' == 0xf4b
playmacro 'mortal'
endif
setability 'primary' 'on'
pause 200
replygump 0x7ec42f38 1001
waitforgump 0x7ec42f38 15000
setability 'primary' 'on'
pause 200
if poisoned
cast "Arch Cure"
waitfortarget 4000
target! 'self'
endif
pause 100
setability 'primary' 'on'
pause 200
cast "Counter Attack"
pause 100
if hits <= 80
cast "Heal"
waitfortarget 500
target "self"
endif
pause 100
setability 'primary' 'on'
pause 200
if stam <= 150
cast "Divine Fury"
endif
pause 100
setability 'primary' 'on'
pause 200
if "yellowhits" 'self'
useobject 0x41373f68
waitforgump 0x56dd0e5b 15000
replygump 0x56dd0e5b 2007
waitforgump 0x56dd0e5b 15000
waitfortarget 15000
target! 'self'
cast "Evasion"
endif
setability 'primary' 'on'
pause 200
if hits < 250
cast "Evasion"
endif
setability 'primary' 'on'
pause 200
if hits <= 180
cast "Counter Attack"
endif
setability 'primary' 'on'
pause 200
if hits <= 200
cast "Consecrate weapon"
waitfortarget 500
target "self"
endif
pause 100
//Set LootBag
if not @findobject 'LootBag'
promptalias 'LootBag'
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
//Find Corpse
if not @findtype '0x2006' 'any' 'ground' '1' '1'
endif
@setalias '0' 'found'
@useobject '0'
//Locate Jewelry
for 0 to Jewelry
for 2
if @findtype Jewelry[] 0 '0'
@setalias 'Skills' 'found'
waitforproperties 'Skills' 3000
if @property 'Stealing' 'Skills' >= 14
sysmsg 'Stealing!' '1990'
@moveitem 'Skills' 'LootBag'
pause 1000
endif
if @property 'Swordsmanship' 'Skills' >= 14
sysmsg 'Swords!' '1990'
@moveitem 'Skills' 'LootBag'
pause 1000
endif
if @property 'Parry' 'Skills' >= 14
sysmsg 'Parry!' '1990'
@moveitem 'Skills' 'LootBag'
pause 1000
endif
if @property 'Tactics' 'Skills' >= 14
sysmsg 'Tactics!' '1990'
@moveitem 'Skills' 'LootBag'
pause 1000
endif
if @property 'Animal Taming' 'Skills' >= 14
sysmsg 'Taming!' '1990'
@moveitem 'Skills' 'LootBag'
pause 1000
endif
if @property 'Animal Lore' 'Skills' >= 14
sysmsg 'Lore!' '1990'
@moveitem 'Skills' 'LootBag'
pause 1000
endif
if @property 'Evaluating Intelligence ' 'Skills' >= 14
sysmsg 'Evaluating Intelligence ' '1990'
@moveitem 'Skills' 'LootBag'
pause 1000
endif
if @property 'Magery' 'Skills' >= 14
sysmsg 'Magery!' '1990'
@moveitem 'Skills' 'LootBag'
pause 1000
endif
if @property 'Spirit Speak' 'Skills' >= 14
sysmsg 'Spirit Speak!' '1990'
@moveitem 'Skills' 'LootBag'
pause 1000
endif
if @property 'Discordance' 'Skills' >= 14
sysmsg 'Disco!' '1990'
@moveitem 'Skills' 'LootBag'
pause 1000
endif
if @property 'Archery' 'Skills' >= 14
sysmsg 'Archery!' '1990'
@moveitem 'Skills' 'LootBag'
pause 1000
endif
endif
endfor
endfor
//Close Corpse
ignoreobject '0'
