[itemdef 02006]

defname i_corpse

type t_corpse

tdata2 09



On=@Click

if (<link> != 04fffffff)

if (<amount> == 400) || (<amount> == 401)

if !(strmatch('<name>','corpse'))

name corpse

endif

if (<link.findid.i_rune_incognito>)

message <link.name> *

else

if (<link.memoryfindtype.memory_guild>) && (<link.memoryfindtype.memory_town>)

message [<link.memoryfindtype.memory_guild.link.name>] [<link.memoryfindtype.memory_town.link.name>]

elseif (<link.memoryfindtype.memory_guild>)

message [<link.memoryfindtype.memory_guild.link.name>]

elseif (<link.memoryfindtype.memory_town>)

message [<link.memoryfindtype.memory_town.link.name>]

endif

message <link.name>

endif

endif

endif



On=@DClick

if !(strmatch('<name>','corpse'))

name corpse

endif



On=@SpellEffect

if !(<src.isgm>)

src.action -1

src.skill fail

return 1

endif



On=@Timer

if !(<amount> == 400) || (<amount> == 401)

return 0

endif



if (<link> == 04fffffff)

return 0

endif



if (<findtype.t_hair>)

findtype.t_hair.remove

endif



if (<findtype.t_beard>)

findtype.t_beard.remove

endif



id i_bones

type t_container

name remains of <link.name>

amount 1

link 0

color 0

attr attr_decay|attr_move_never

timer 120

updatex

return 1