Grimrock

Code: Select all

defineObject{
	name = "party",
	baseObject = "party",
	components = {
		{
			class = "Party",
			
			onAttack = function(self, champion, action, slot)
				local attackType = action:getClass()
				local dx,dy = getForward(self.go.facing)
				local x = self.go.x + dx
				local y = self.go.y + dy
				
				if attackType == "MeleeAttackComponent" then
					for ent in self.go.map:entitiesAt(x,y) do
						if ent.health then
							local immunities = ent.health:getImmunities()
							local eleDmg = false
							local immune = false
							
							if immunities then
								for _,i in pairs(immunities) do
									if i == "physical" then eleDmg = true end
								end
							end
							
							if eleDmg then
								local eleType = action:getDamageType()
								for _,i in pairs(immunities) do
									if i == eleType then immune = true end
								end
								
								if immune == false then
									local baseDmgStat = action:getBaseDamageStat()
									local dmgMod = champion:getCurrentStat(baseDmgStat)
									local damage = action:getAttackPower() + dmgMod
									damageTile(self.go.level, x, y, self.go.facing, self.go.elevation, 0, eleType, damage)
								end
							end
						end
					end
				end
			end,
		},
	},
}

Code: Select all

function detectmonster(champion, x, y, direction, elevation, skillLevel)

    local monsterNames = {air_elemental = "an Air Elemental", crab = "a Crab", crowern = "a Crowern", dark_acolyte = "a Dark Acolyte",
          eyctopus = "an Eyectopus", fire_elemental = "a Fire Elemental", fjeld_warg = "a Fjeld Warg", fjeld_warg1 = "a Fjeld Warg",
          fjeld_warg2 = "a Fjeld Warg", forest_ogre = "a Forest Ogre", giant_snake = "a giant Snake", goromorg = "a Goromorg",
          herder = "a Herder", herder_big = "a big Herder", herder_small = "a small Herder", ice_guardian = "an Ice Guardian",
          lindworm = "a Lindworm", lizard_ice = "an Ice Lizard", lizard_dark = "a Dark Lizard", lizard_fire= "a Fire Lizard",
          lizard_green = "a Green Lizard", magma_golem = "a Magma Golem", medusa = "a Medusa", mimic = "a Mimic",
          mosquito_swarm = "a Swarm of Mosquitos", mummy = "a Mummy", mummy1 = "a Mummy", mummy2 = "a Mummy", mummy3 = "a Mummy",
          ogre = "a Cave Ogre", rat_swarm = "a Swarm of Rats", ratling = "a Ratling", ratling1 = "a Ratling", ratling2 = "a Ratling",
          ratling_boss = "a Ratling Clan Chief", sand_warg = "a Sand Warg", scavenger = "a Scavenger", shrakk_torr = "a Shrakk Torr",
          skeleton_archer = "a Skeleton Archer", skeleton_commander = "a Skeleton Commander", skeleton_trooper = "a Skeleton Trooper",
          skeleton_trooper1 = "a Skeleton Trooper", skeleton_trooper2 = "a Skeleton Trooper", skeleton_warrior = "a Skeleton Warrior",
          slime_green = "a Green Slime", slime_red = "a Red Slime", slime_blue = "a Blue Slime", slime_fire = "a Fire Slime",
          slime_ice = "an Ice Slime", slime_dark = "a Dark Slime", slime_plasm = "a Plasma Slime",  slime_poison = "a Poison Slime", 
          slime_golden = "a Golden Slime", snail = "a Snail", snail_blue_green = "a Hardshell Snail", snail_green_brown = "a Deep Forest Snail",
          spider = "a Spider", spore_mushroom = "a Mushroom Sporer", summon_stone = "a Summon Stone", swamp_toad = "a Swamp Toad",
          tentacles = "a Pit Tentacle", trickster = "a Trickster", turtle = "a Turtle", turtle_diving = "a Turtle", twigroot = "a Twigroot",
          uggardian = "a Uggardian", undead = "a Zombie", viper_root = "a Viper Root", warden = "a Warden", wizard = "a Wizard", wyvern = "a Wyvern",
          xeloroid = "a Xeloroid", zarchton_diving = "a Zarchton", zarchton = "a Zarchton"}
          
	local monsterNamesplural = {air_elemental = "Air Elementals", crab = "Crabs", crowern = "Crowerns", dark_acolyte = "Dark Acolytes",
          eyctopus = "Eyectopuses", fire_elemental = "Fire Elementals", fjeld_warg = "Fjeld Wargs", fjeld_warg1 = "Fjeld Wargs",
          fjeld_warg2 = "Fjeld Wargs", forest_ogre = "Forest Ogres", giant_snake = "giant Snakes", goromorg = "Goromorgs",
          herder = "Herders", herder_big = "big Herders", herder_small = "small Herders", ice_guardian = "Ice Guardians",
          lindworm = "Lindworms", lizard_ice = "Ice Lizards", lizard_dark = "Dark Lizards", lizard_fire= "Fire Lizards",
          lizard_green = "Green Lizards", magma_golem = "Magma Golems", medusa = "Medusas", mimic = "Mimics",
          mosquito_swarm = "Swarm of Mosquitos", mummy = "Mummies", mummy1 = "Mummies", mummy2 = "Mummies", mummy3 = "Mummies",
          ogre = "Cave Ogres", rat_swarm = "Swarm of Rats", ratling = "Ratlings", ratling1 = "Ratlings", ratling2 = "Ratlings",
          ratling_boss = "Ratling Clan Chiefs", sand_warg = "Sand Wargs", scavenger = "Scavengers", shrakk_torr = "Shrakk Torrs",
          skeleton_archer = "Skeleton Archers", skeleton_commander = "Skeleton Commanders", skeleton_trooper = "Skeleton Troopers",
          skeleton_trooper1 = "Skeleton Troopers", skeleton_trooper2 = "Skeleton Troopers", skeleton_warrior = "Skeleton Warriors",
          slime_green = "Green Slimes", slime_red = "Red Slimes", slime_blue = "Blue Slimes", slime_fire = "Fire Slimes",
          slime_ice = "Ice Slimes", slime_dark = "Dark Slimes", slime_plasm = "Plasma Slimes",  slime_poison = "Poison Slimes", 
          slime_golden = "Golden Slimes", snail = "Snails", snail_blue_green = "Hardshell Snails", snail_green_brown = "Deep Forest Snails",
          spider = "Spiders", spore_mushroom = "Mushroom Sporers", summon_stone = "Summon Stones", swamp_toad = "Swamp Toads",
          tentacles = "Pit Tentacles", trickster = "Tricksters", turtle = "Turtles", turtle_diving = "Turtles", twigroot = "Twigroots",
          uggardian = "Uggardians", undead = "Zombies", viper_root = "Viper Roots", warden = "Wardens", wizard = "Wizards", wyvern = "Wyverns",
          xeloroid = "Xeloroids", zarchton_diving = "Zarchtons", zarchton = "Zarchtons"}
          
         	-------------------------------------------------------------------------------------------------------------
			local class = champion:getClass()
			local skillS = champion:getSkillLevel("staves_runewands")
		  	local skillP = champion:getSkillLevel("perception")
			local skillA = champion:getSkillLevel("accuracy")
			local aura = champion:hasTrait("aura")
			local analytic = champion:hasTrait("trained_instincts")
			local learner = champion:hasTrait("fast_learner")
			local predator = champion:hasTrait("predator")
			local precision = champion:hasTrait("deadly_precision")
			local truthSeer = champion:hasTrait("truth_seer")
			local watcher = champion:hasTrait("watcher")
			local strongMind = champion:hasTrait("watcher")
			local trapper = champion:hasTrait("watcher")
			-----------------------------------------------------------------
			local monstertotal = 0
          	local count = 1 + skillS  		--max range
          	local monsterarray = {}
          	local monsterdistance = {}
          	local maxdist = 0
          	local limit = 1 + skillP		--max targets
			-------------------------------------------------------limit bonus
			if analytic or learner or predator then
				limit = limit + 2
			end
			-------------------------------------------------------range bonus
			if strongMind or aura or trapper then
				count = count + 2
			end
			--------------------------------------
          	for fx = x - count, x + count do
             	for fy = y - count, y + count do
                	for i in party.map:entitiesAt(fx,fy) do
						------------------------------------------------ambushBoss bonus
						if precision or truthSeer or watcher then
							if i:getComponent("ambushtrigger") then
								if i:getComponent("ambushscript") then
									--delayedCall("detectScripts", 4, "detectAmbush", champion, i.go)
									print("ambushtrigger", "TODO")
									-------------------------------------ambush FX
									--addDetectLight(k.id, "detectMlight", 2.2, 1, 1, 50, 10, 0.5, 6, 8)
									----spawn("detect_monster_light", k.level, k.x, k.y, k.facing, k.elevation)
									------------------------------------
									--playSound("tech_scan_04")
									-------------------------------------
								end
								
							elseif i:getComponent("bossfight") then
								if i:getComponent("bossscript") then
									--delayedCall("detectScripts", 4, "detectBossfight", champion, i.go)
									print("bossfight", "TODO")
									-------------------------------------boss FX
									--addDetectLight(k.id, "detectMlight", 2.2, 1, 1, 50, 10, 0.5, 6, 8)
									----spawn("detect_monster_light", k.level, k.x, k.y, k.facing, k.elevation)
									------------------------------------
									--playSound("tech_scan_04")
									-------------------------------------
								end
							end
						end
						---------------------------------------------------		
                   		if i:getComponent("monster") then
						-------------------------------------------
							monstertotal = monstertotal + 1
							-------------------------------------------
                      		local xdist = (x - i.x) * 3
                      		local ydist = (y - i.y) * 3
                      		local zdist = (elevation - i.elevation) * 3
                      		local dist = math.floor(0.5 + math.sqrt(xdist^2 + ydist^2 + zdist^2))
							-------------------------------------------
                      		if i.monster:getGroupSize() > 1 then
                         		if monstertotal > 1 
								and i.x == monsterarray[monstertotal - 1].x 
								and i.y == monsterarray[monstertotal - 1].y 
								and i.elevation == monsterarray[monstertotal - 1].elevation then
                            		monstertotal = monstertotal - 1
                         		else
                            		monsterdistance[i] = dist
                         		end
                      		else
	                         	monsterdistance[i] = dist
                      		end
							--------------------------------------------
                      		if dist > maxdist then
                         		maxdist = dist
                      		end
                      		monsterarray[monstertotal] = i
							--------------------------------------------																				
                   		end
               	 	end
             	end
          	end
          	--------------------------------------------
			local skillcount = 0
			--------------------------------------------
			for m = 0, maxdist do
             	for k,v in pairs(monsterdistance) do
					--------------------------------------------
                	if m == v and skillcount < limit then
						--------------------------------------------
                   		local deltax = x - k.x
                   		local deltay = y - k.y
                   		local mdir = 0
                   		local height = ""
						--------------------------------------------
                   		if math.abs(deltax) <= math.abs(deltay) then
                      		if deltay == 0 then
                         		mdir = -1
                      		elseif deltay > 0 then
                         		mdir = (4 + direction) % 4
                      		else
                         		mdir = (6 + direction) % 4
                      		end
                   		else
                      		if deltax == 0 then
                         		mdir = -1
                      		elseif deltax > 0 then
                         		mdir = (5 + direction) % 4
                      		else
                         		mdir = (7 + direction) % 4
                      		end
                   		end
						--------------------------------------------
                   		if elevation == k.elevation then
                      		height = ""
                   		elseif elevation < k.elevation then
                      		height = ", above you"
                   		else
                      		height = ", below you"
                   		end
						-------------------------------------------------------------------------Staff def, trained Inst
                   		local fdir = ""
						--------------------------------------------nameGroupElevation bonus
						if class == "ranger" or class == "ninja" 
						or class == "illusionist" or class == "rogue" then
                   			if mdir == -1 then
                      			fdir = height
                   			elseif mdir == 0 then
                      			fdir = ""..height..", in front of the party"
                   			elseif mdir == 1 then
                      			fdir = ""..height..", to the left of the party"
                   			elseif mdir == 2 then
                      			fdir = ""..height..", behind the party"
                   			elseif mdir == 3 then
                      			fdir = ""..height..", to the right of the party"
                   			end
						end
                   		--------------------------------------------
						skillcount = skillcount + 1
						------------------------------------------------------------------------
						--addDetectLight(k.id, "detectMlight", 2.2, 1, 1, 50, 10, 0.5, 6, 8)
						--spawn("detect_monster_light", k.level, k.x, k.y, k.facing, k.elevation)
						------------------------------------
						--playSound("tech_scan_04")
						-----------------------------------------------------------------------
                   		if k.monster:getGroupSize() <= 1 then
							--------------------------------------------nameGroupElevation bonus
							if class == "ranger" or class == "ninja" 
							or class == "illusionist" or class == "rogue" then
								hudPrint("There is "..monsterNames[k.name].." "..m.." meters away"..fdir..".")
							else	
								hudPrint("There is an enemy "..m.." meters away"..fdir..".")	
							end
							--------------------------------------------
                   		else
							--------------------------------------------nameGroupElevation bonus
							if class == "ranger" or class == "ninja" 
							or class == "illusionist" or class == "rogue" then
								hudPrint("There is a group of "..k.monster:getGroupSize().." "..monsterNamesplural[k.name].." "..m.." meters away"..fdir..".")
							else	
                      			hudPrint("There is a group of enemies "..m.." meters away"..fdir..".")	
                   			end 						
						end
                	end
            	end
          	end
       	end