[events e_dismount]
On=@Hit
if (<src.flags>&statf_stone) || (<src.region.safe>)
return 0
elseif (((<findlayer(2).type> == t_weapon_sword) && (<swordsmanship> >= 98.0)) || ((<findlayer(2).type> == T_WEAPON_MACE_STAFF) && (<macefighting> >= 98.0)) || ((<findlayer(2).type> == t_weapon_fence) && (<fencing> >= 98.0)))
if (rand(120) <= <eval (<anatomy> / 40)>)
src.damage {15 25}
src.skill fail
var.act <src.act.uid>
src.newitem i_inassa
src.act.equip
src.act <var.act>
return 1
endif
endif
endif       

[events e_inassa]
On=@GetHit
findid.i_inassa.remove

On=@Death
findid.i_inassa.remove

[itemdef i_inassa]
name=atdusur
id=i_gold
type=t_eq_script
weight=0
layer=layer_special

On=@Equip
if (<src.findlayer(layer_horse).id> > 0)
SRC.dclick
src.sayua 075f,6,6,0  *Binekten Duser*
RETURN 1
ENDIF

On=@UnEquip
cont.events -e_inassa
if !(<cont.flags>&statf_dead)
cont.flags <cont.flags>&~04
endif

On=@Timer
attr attr_decay
remove
return 1

[eof]

On=@Equip
src.events +e_inassa
if (<src.findlayer(layer_horse).id> > 0)
if (<src.flags>&statf_war)
src.flags <src.flags>&~statf_war
src.update
endif
src.dclick
src.say @50,,1" * Binekten Duser *
return 1
ENDIF