[events e_perfect] ///Archery Bonusu

on=@hit     

if (<src.flags>&statf_stone) || (<src.region.safe>)

	return 0

elseif (<findlayer(2).type> == t_weapon_bow) && (<archery> >= 98.0)        

        if (rand(250) <= <eval (<anatomy> / 40)>)

        if (<src.hits> > 50)

                src.act.sayua 075f,6,6,0 *Perfect Shot*

                src.hits (<src.hits> - {20 30})

                src.skill fail

                src.damage {3 5}

		return 1

                endif

        endif

endif