Grimrock

Code: Select all

function randomLoot(object)

local all_loot = 
{
cave_nettle=75,
blooddrop_blossom=75,
grim_cap=75,
milkreed=75,
slime_bell=75,
tar_bead=75,
}
local spawned_loot = {}
for i,v in pairs(all_loot) do
if (math.random (1,100) <= v) then table.insert(spawned_loot,i)
end
end
-- print (spawned_loot[1], #spawned_loot)
local newitem=nil
	if (#spawned_loot>0) then
		local randomnr = math.random (1,#spawned_loot)
			for i=1,#spawned_loot do
				if (randomnr==i) then newitem=spawn(spawned_loot[i], object.level, object.x, object.y, math.random (0,3))
				end
				end
			end
	end
return newitem
	
end

Code: Select all

 itemsList = {
	weapon = { "torch","torch_everburning","machete","long_sword","cutlass","nex_sword","dismantler","cudgel","knoffer","warhammer","flail","ogre_hammer","icefall_hammer","hand_axe","battle_axe","great_axe","ancient_axe","knife","dagger","fist_dagger","assassin_dagger","legionary_spear","venom_edge","venom_edge_empty","lightning_blade","lightning_blade_empty","lightning_rod","lightning_rod_empty","fire_blade","fire_blade_empty","power_weapon"},
	shield = {"legionary_shield","round_shield","heavy_shield","shield_elements","shield_valor"},
	accessory = {"frostbite_necklace","bone_amulet","fire_torc","spirit_mirror_pendant","gear_necklace","hardstone_bracelet","bracelet_tirin","brace_fortitude","huntsman_cloak","tattered_cloak","scaled_cloak","diviner_cloak","serpent_bracer","pit_gauntlets","nomad_mittens","leather_gloves"},
	bomb = {"fire_bomb","shock_bomb","frost_bomb","poison_bomb"},
	food = {"snail_slice","herder_cap","pitroot_bread","rotten_pitroot_bread","rat_shank","boiled_beetle","baked_maggot","ice_lizard_steak","mole_jerky","blueberry_pie"},
	missileweapon = {  "sling","short_bow","crossbow","longbow","arrow","fire_arrow","cold_arrow","poison_arrow","shock_arrow","quarrel","fire_quarrel","cold_quarrel","poison_quarrel","shock_quarrel"},
	tome = {"tome_health","tome_wisdom","tome_fire"},
	armor = {  "hide_vest","leather_brigandine","leather_greaves","leather_cap","leather_boots","ring_mail","ring_greaves","ring_gauntlets","ring_boots","legionary_helmet","iron_basinet","chitin_mail","chitin_greaves","chitin_boots","chitin_mask","plate_cuirass","plate_greaves","full_helmet","plate_gauntlets","plate_boots","cuirass_valor","greaves_valor","helmet_valor","gauntlets_valor","boots_valor"},
	cloth = {  "peasant_breeches","peasant_tunic","peasant_cap","loincloth","leather_pants","doublet","silk_hose","flarefeather_cap","conjurers_hat","circlet_war","lurker_pants","lurker_vest","lurker_hood","lurker_boots","sandals","pointy_shoes","nomad_boots"},
	herb = {"grim_cap","tar_bead","cave_nettle","slime_bell","blooddrop_blossom","milkreed"},
	machinepart = {  "machine_part_north","machine_part_east","machine_part_south","machine_part_west","machine_junk1","machine_junk2","machine_junk3","machine_junk4","machine_junk5","machine_junk6"},
	potion = { "flask","water_flask","potion_healing","potion_energy","potion_poison","potion_cure_poison","potion_cure_disease","potion_rage","potion_speed"},
	staff = {"whitewood_wand","magic_orb","shaman_staff","zhandul_orb"},
	treasure = {"golden_chalice","golden_figure","golden_goromorg","golden_dragon","golden_crown","golden_orb","ancient_apparatus"},
	container = {"sack","wooden_box","mortar"},
	key = {"iron_key","brass_key","gold_key","round_key","ornate_key","gear_key","prison_key"},
	miscitem = { "skull","blue_gem","green_gem","red_gem","compass","remains_of_toorum"},
	scroll = {  "scroll","note","scroll_light","scroll_darkness","scroll_fireburst","scroll_shock","scroll_fireball","scroll_frostbolt","scroll_ice_shards","scroll_poison_bolt","scroll_poison_cloud","scroll_lightning_bolt","scroll_enchant_fire_arrow","scroll_fire_shield","scroll_frost_shield","scroll_poison_shield","scroll_shock_shield","scroll_invisibility"},
	throwingweapon = { "rock","throwing_knife","shuriken","throwing_axe"},
	consumable = {"snail_slice","herder_cap","pitroot_bread","rotten_pitroot_bread","rat_shank","boiled_beetle","baked_maggot","ice_lizard_steak","mole_jerky","blueberry_pie",
		"grim_cap","water_flask","potion_healing","potion_energy","potion_poison","potion_cure_poison","potion_cure_disease","potion_rage","potion_speed"
	}
}	
function addRandomLoot(monster,itemCategories,amountMin,amountMax)
	amountMin = amountMin or 1
	amountMax = amountMax or 1
	local amount = math.random(amountMin,amountMax)
	for i=1,amount do
		local category = itemCategories[math.random(#itemCategories)]
		local itemName = getRamdomItemName(category)		
		monster:addItem(spawn(itemName))
		--print(itemName)
	end
end

function getRamdomItemName(category)
	return itemsList[category][math.random(#itemsList[category])]
end

Code: Select all

random_loot.addRandomLoot(snail_1,{'weapon','potion'})

Code: Select all

function getDefaultLootTable()
	local loot = {}
	
	loot[#loot + 1] = {category = "sword", {"machete", 1, 1.0}, {"long_sword", 1, 1.0}, {"cutlass", 2, 1.0}, {"nex_sword", 3, 1.0}, {"dismantler", 3, 1.0}}
	loot[#loot + 1] = {category = "mace", {"cudgel", 1, 1.0}, {"knoffer", 1, 1.0}, {"warhammer", 2, 1.0}, {"flail", 2, 1.0}, {"ogre_hammer", 3, 1.0}, {"icefall_hammer", 3, 1.0}}
	loot[#loot + 1] = {category = "axe", {"hand_axe", 1, 1.0}, {"battle_axe", 1, 1.0}, {"great_axe", 2, 1.0}, {"ancient_axe", 3, 1.0}}
	loot[#loot + 1] = {category = "dagger", {"knife", 1, 1.0}, {"dagger", 1, 1.0}, {"fist_dagger", 2, 1.0}, {"assassin_dagger", 3, 1.0}}
	
	return loot
end

function makeLootTableFromList(...)
	-- this doesn't work for now
	local loot = {{category = "simple"}}
	
	for i = 1,arg.n*3,3 do
		loot[1] = {arg[i], arg[i + 1], arg[i + 2]}
		print(loot[1])
	end
	
	return loot
end

function pickItemName(caller, options)
	local doDebug = false
	
	local loot = options[1] or getDefaultLootTable()
	local category = options[2]
	local minTier = options[3]
	local maxTier = options[4] or minTier
	
	if type(category) == "string" then
		category = {category}
	end
	
	if type(category) ~= "table" then
		if doDebug then
			print(self.id .. ": category type " .. type(category) .. " is not supported")
		end
		return nil
	end
	
	local count = 0
	
	for i = 1,#loot do
		for j = 1,#category do
			if loot[i].category == category[j] then
				count = count + 1
			end
		end
	end

	if count == 0 then
		print(self.id .. ": loot table does not have any of the supplied categories")
		return nil
	elseif #category ~= count then
		if doDebug then
			print(self.id .. ": loot table does not have " .. #loot - count .. " of the supplied categories")
		end
	end
	
	local runaway = 0
	
	repeat
		local done = false
		local r1 = math.random(1, #loot)
		local r2 = math.random(1, #loot[r1])

		if loot[r1][r2][2] >= minTier and loot[r1][r2][2] <= maxTier then
			if math.random() <= loot[r1][r2][3] then
				item = loot[r1][r2][1]
				done = true
				break
			elseif doDebug then
				print(self.id .. ": ignoring " .. loot[r1][r2][1] .. "; its chance (" .. loot[r1][r2][3] .. ") did not satisfy random roll")
			end
		elseif doDebug then
			print(self.id .. ": ignoring " .. loot[r1][r2][1] .. "; its tier (" .. loot[r1][r2][2] .. ") is not " .. minTier .. " - " .. maxTier)
		end
		
		runaway = runaway + 1
		
		if runaway == 1000000 then
			print(self.id .. ": item selector caused runaway")
			for i = 1,#loot do
				print(loot[i].category)
			end
			return nil
		end
	until done
	
	return item
end

function spawnItemOnFloor(caller, options, level, x, y, facing, id)
	local item = pickItemName(caller, options)
	
	if item then
		return spawn(item, level, x, y, facing, id)
	end
end

function spawnItemOnMonster(caller, options, monster, id)
	local item = spawnItemInLimbo(caller, options, id)
	
	if item then
		if monster then
			monster:addItem(item)
			return item
		else
			print(self.id .. ": tried to add item to inexistent entity")
			return
		end
	end
end

function spawnItemInAlcove(caller, options, alcove, id)
	return spawnItemOnMonster(caller, options, alcove, id)
end

function spawnItemInLimbo(caller, options, id)
	return spawnItemOnFloor(caller, options, nil, nil, nil, nil, id)
end

Code: Select all

function trigger()
	-- spawns a random sword, mace, axe or dagger from tiers 1-3.
	loot_generator:spawnItemInAlcove({nil, {"sword", "mace", "axe", "dagger"}, 1, 3}, example_alcove)
	
	-- works, but you get a warning if debug is on since the default loot table doesn't have a category called "giblets".
	loot_generator:spawnItemInAlcove({nil, {"sword", "mace", "axe", "giblets"}, 1, 3}, example_alcove)

	-- doesn't work, the generator needs at least one valid category to work with.
	loot_generator:spawnItemInAlcove({nil, {"giblets"}, 1, 3}, example_alcove)
	
	-- you may supply a string if there's only one category.
	loot_generator:spawnItemInAlcove({nil, "sword", 1, 3}, example_alcove)
	
	-- let's put a tier 1 axe in the square to the east of this script entity and give it the id "Fred".
	if not findEntity("Fred") then
		loot_generator:spawnItemOnFloor({nil, "axe", 1}, self.level, self.x + 1, self.y, self.facing, "Fred")
	end
	
	-- this monster needs a mace to go clubbing. Get it? HAHAHAHAaaa! *commits suicide*
	loot_generator:spawnItemOnMonster({nil, "mace", 1, 3}, example_monster)
	
	-- spawns an item but doesn't put actually put it anywhere. Don't forget to get the return value if you do this.
	local my_item = loot_generator:spawnItemInLimbo({nil, {"sword", "mace", "axe", "dagger"}, 1, 3})

	-- let's try a custom loot table (that alcove is getting pretty full by now, by the way).
	-- this will always return a food item (biased towards a baked maggot) since the junk items are tier 1 and we want a tier 2 item.
	-- the rotten pitroot bread won't be included either since it is tier 3.
	loot_generator:spawnItemInAlcove({{{category = "junk", {"skull", 1, 1}, {"rock", 1, 1}}, {category = "food", {"baked_maggot", 2, 1}, {"boiled_beetle", 2, 0.25}, {"rotten_pitroot_bread", 3, 1}}}, {"skull", "food"}, 2}, example_alcove)
end