Creatures that split on damage will have reduced split chance with each split

git-svn-id: http://svn.net-core.org/repos/t-engine4@1762 51575b47-30f0-44d4-a5cc-537603b46e54

game/modules/tome/class/Actor.lua

@@ -711,6 +711,7 @@ function _M:onTakeHit(value, src)
 			-- Find a place around to clone
 			local a = self:clone()
 			a.life = math.max(1, a.life - value / 2)
+			a.clone_on_hit.chance = math.ceil(a.clone_on_hit.chance / 2)
 			a.energy.val = 0
 			a.exp_worth = 0.1
 			a.inven = {}