[Fix] Bestiary unlocked creature (#438)

Before, the bestiary did not unlock or account for a creature due to the lack of the script in creaturescripts for its functioning.

data/scripts/bestiary/charms.lua

@@ -6,8 +6,8 @@ local charms = {
                        of its initial hit points as physical damage once.",
 		type = CHARM_OFFENSIVE,
 		damageType = COMBAT_PHYSICALDAMAGE,
-		percent = 5,
-		chance = 10,
+		percent = 10,
+		chance = 20,
 		messageCancel = "You wounded the monster.",
 		messageServerLog = "[Wound charm]",
 		effect = CONST_ME_HITAREA,
@@ -20,8 +20,8 @@ local charms = {
                        of its initial hit points as fire damage once.",
 		type = CHARM_OFFENSIVE,
 		damageType = COMBAT_FIREDAMAGE,
-		percent = 5,
-		chance = 10,
+		percent = 10,
+		chance = 20,
 		messageCancel = "You enflamed the monster.",
 		messageServerLog = "[Enflame charm]",
 		effect = CONST_ME_HITBYFIRE,
@@ -34,8 +34,8 @@ local charms = {
                        of its initial hit points as earth damage once.",
 		type = CHARM_OFFENSIVE,
 		damageType = COMBAT_EARTHDAMAGE,
-		percent = 5,
-		chance = 10,
+		percent = 10,
+		chance = 20,
 		messageCancel = "You poisoned the monster.",
 		messageServerLog = "[Poison charm]",
 		effect = CONST_ME_GREEN_RINGS,
@@ -48,8 +48,8 @@ local charms = {
                        of its initial hit points as ice damage once.",
 		type = CHARM_OFFENSIVE,
 		damageType = COMBAT_ICEDAMAGE,
-		percent = 5,
-		chance = 10,
+		percent = 10,
+		chance = 20,
 		messageCancel = "You frozen the monster.",
 		messageServerLog = "[Freeze charm]",
 		effect = CONST_ME_ICEATTACK,
@@ -62,8 +62,8 @@ local charms = {
                        of its initial hit points as energy damage once.",
 		type = CHARM_OFFENSIVE,
 		damageType = COMBAT_ENERGYDAMAGE,
-		percent = 5,
-		chance = 10,
+		percent = 10,
+		chance = 20,
 		messageCancel = "You eletrocuted the monster.",
 		messageServerLog = "[Zap charm]",
 		effect = CONST_ME_ENERGYHIT,
@@ -76,8 +76,8 @@ local charms = {
                        of its initial hit points as death damage once.",
 		type = CHARM_OFFENSIVE,
 		damageType = COMBAT_DEATHDAMAGE,
-		percent = 5,
-		chance = 10,
+		percent = 10,
+		chance = 20,
 		messageCancel = "You curse the monster.",
 		messageServerLog = "[Curse charm]",
 		effect = CONST_ME_SMALLCLOUDS,
@@ -88,7 +88,7 @@ local charms = {
 		name = "Cripple",
 		description = "Cripples the creature with a certain chance and paralyzes it for 10 seconds.",
 		type = CHARM_OFFENSIVE,
-		chance = 10,
+		chance = 20,
 		messageCancel = "You cripple the monster.",
 		points = 500
 	},
@@ -109,7 +109,7 @@ local charms = {
 		name = "Dodge",
 		description = "Dodges an attack with a certain chance without taking any damage at all.",
 		type = CHARM_DEFENSIVE,
-		chance = 10,
+		chance = 20,
 		messageCancel = "You dodge the attack.",
 		effect = CONST_ME_POFF,
 		points = 600
@@ -120,7 +120,7 @@ local charms = {
 		description = "Bursts of adrenaline enhance your reflexes with a certain chance \z
                        after you get hit and let you move faster for 10 seconds.",
 		type = CHARM_DEFENSIVE,
-		chance = 10,
+		chance = 20,
 		messageCancel = "Your movements where bursted.",
 		points = 500
 	},
@@ -129,7 +129,7 @@ local charms = {
 		name = "Numb",
 		description = "Numbs the creature with a certain chance after its attack and paralyzes the creature for 10 seconds.",
 		type = CHARM_DEFENSIVE,
-		chance = 10,
+		chance = 20,
 		messageCancel = "You numb the monster.",
 		points = 500
 	},
@@ -139,7 +139,7 @@ local charms = {
 		description = "Cleanses you from within with a certain chance after you get hit and \z
                        removes one random active negative status effect and temporarily makes you immune against it.",
 		type = CHARM_DEFENSIVE,
-		chance = 10,
+		chance = 20,
 		messageCancel = "You purified the attack.",
 		points = 700
 	},
@@ -148,7 +148,7 @@ local charms = {
 		name = "Bless",
 		description = "Blesses you and reduces skill and xp loss by 10% when killed by the chosen creature.",
 		type = CHARM_PASSIVE,
-		percent = 5,
+		percent = 10,
 		chance = 100,
 		points = 800
 	},
@@ -157,7 +157,7 @@ local charms = {
 		name = "Scavenge",
 		description = "Enhances your chances to successfully skin/dust a skinnable/dustable creature.",
 		type = CHARM_PASSIVE,
-		percent = 25,
+		percent = 10,
 		points = 800
 	},
 	-- Gut charm
@@ -184,8 +184,8 @@ local charms = {
                        of its initial hit points as holy damage once.",
 		type = CHARM_OFFENSIVE,
 		damageType = COMBAT_HOLYDAMAGE,
-		percent = 5,
-		chance = 10,
+		percent = 10,
+		chance = 20,
 		messageCancel = "You divine the monster.",
 		messageServerLog = "[Divine charm]",
 		effect = CONST_ME_HOLYDAMAGE,

data/scripts/creaturescripts/bestiary_kill.lua

@@ -0,0 +1,27 @@
+local bestiaryOnKill = CreatureEvent("BestiaryOnKill")
+
+function bestiaryOnKill.onKill(player, creature, lastHit)
+	if not player:isPlayer() or not creature:isMonster() or creature:hasBeenSummoned() or creature:isPlayer() then
+		return true
+	end
+
+	for cid, damage in pairs(creature:getDamageMap()) do
+		local participant = Player(cid)
+		if participant and participant:isPlayer() then
+			participant:addBestiaryKill(creature:getName())
+		end
+	end
+
+	return true
+end
+
+bestiaryOnKill:register()
+
+local loginBestiaryPlayer = CreatureEvent("loginBestiaryPlayer")
+
+function loginBestiaryPlayer.onLogin(player)
+	player:registerEvent("BestiaryOnKill")
+	return true
+end
+
+loginBestiaryPlayer:register()