1 files changed, 96 insertions, 0 deletions
diff --git a/lib/core/mimc_aux.lua b/lib/core/mimc_aux.lua
new file mode 100644
index 00000000..cea1f4dc
--- /dev/null
+++ b/lib/core/mimc_aux.lua
@@ -0,0 +1,96 @@
+-- Mimic shapes helper file
+
+__mimics = {}
+__mimics_max = 1
+__mimics_names = {}
+
+function add_mimic_shape(t)
+	assert(t.name, "no mimic name")
+	assert(t.desc, "no mimic desc")
+	assert(t.calc, "no mimic calc")
+	assert(t.level, "no mimic level")
+	assert(t.duration, "no mimic duration")
+
+	if not t.limit then t.limit = 0 end
+
+	if not t.obj_name then
+		t.obj_name = t.name
+	end
+
+	t.show_name = '['..t.name..']'
+
+	-- if it needs hooks, add them
+	if t.hooks then
+		add_hooks(t.hooks)
+	end
+
+	-- Add it in a name to index hash table
+	__mimics_names[t.name] = __mimics_max
+
+	__mimics[__mimics_max] = t
+	__mimics_max = __mimics_max + 1
+end
+
+function resolve_mimic_name(name)
+	if __mimics_names[name] then
+		return __mimics_names[name]
+	else
+		return -1
+	end
+end
+
+function find_random_mimic_shape(level, limit, realm)
+	local mimic, tries
+
+	tries = 1000
+	while tries > 0 do
+		tries = tries - 1
+		mimic = rand_range(1, __mimics_max - 1)
+		if (not realm) or (__mimics[mimic].realm == realm) then
+			if limit >= __mimics[mimic].limit then
+				if (rand_int(__mimics[mimic].level * 3) < level) and (__mimics[mimic].rarity < 100)  and (magik(100 - __mimics[mimic].rarity) == TRUE) then
+					break
+				end
+			end
+		end
+	end
+	if tries > 0 then
+		return mimic
+	else
+		return resolve_mimic_name("Abomination")
+	end
+end
+
+function get_mimic_info(mimic, info)
+	if not __mimics[mimic] then return 0 end
+	return __mimics[mimic][info]
+end
+
+function get_mimic_rand_dur(mimic)
+	return rand_range(__mimics[mimic].duration[1], __mimics[mimic].duration[2])
+end
+
+function calc_mimic(mimic)
+	return __mimics[mimic].calc()
+end
+
+function calc_mimic_power(mimic)
+	if __mimics[mimic].power then __mimics[mimic].power() end
+end
+
+--- Here comes the only vital shape
+
+add_mimic_shape
+{
+	["name"] =      "Abomination",
+	["obj_name"] =  "Abominable Cloak",
+	["desc"] = 	"Abominations are failed experiments of powerful wizards.",
+	["realm"] =     nil,
+	["level"] =     1,
+	["rarity"] =    101,
+	["duration"] =  {20, 100},
+	["calc"] =      function ()
+			apply_flags(TR1_SPEED + TR1_STR + TR1_INT + TR1_WIS + TR1_DEX + TR1_CON + TR1_CHR, 0, 0, 0, 0, 0, -10)
+			player.xtra_f3 = bor(player.xtra_f3, TR3_AGGRAVATE)
+       	end,
+}