Grimrock

Code: Select all

for i=0,3 do 
  damageTile(...)
end

Code: Select all

-- This script Name: trapScript
--[[
	This function kills the party if it is in the cell or spawns a blockage 
	and creates the setup for killing mosnters if there were any.
	It is called by the Spears-"Door" with a onOpen hook.
--]]
function stab(self)
	local block = nil
	for val in entitiesAt(self.level,self.x,self.y) do
		if (val.class == "Blockage") then
				block = val
			break
		end			
	end
	
	local onself = 0
	for val in entitiesAt(self.level,self.x,self.y) do
		if (val.class == "Party" ) then
			onself = 1
			break
		elseif (val.class == "Monster" ) then
			onself = 2
			break
		end			
	end
	
	if (onself == 1) then
		damageTile(self.level, self.x, self.y, self.facing, 6, "physical", 5000)
	elseif (onself == 2) then
		spawn("timer", self.level, self.x, self.y, self.facing) -- timer to run the script repeatedly
			:addConnector("activate", "trapScript", "destroyMonsterGroup")
			:setTimerInterval(0.01)
			:activate()			
		spawn("counter", self.level, self.x, self.y, self.facing) -- counter to limit run to 4 times
			:setValue(0)
	end		
	
	if (block == nil)and(onself ~= 1) then
		spawn("bc_block_invis_resilient", self.level, self.x, self.y, self.facing)
	end
		
	if (onself == 1)then
		spawn("fx", self.level, self.x, self.y, self.facing):setParticleSystem("death_dust")	
		party:playScreenEffect("party_crush")
	end
	

end


--[[
	This function deletes all monsters that step on the field. I had to destroy 
	the monsters because dealing damage with damageTile caused los in performance 
	and wrecked the animation of the doors, plus it caused the blockage hit sound 
	to trigger each time. It also gives some exp to the player, however if it were 
	possible to get the exp value out of the monster it could be the exact ammount.
	So now it is just some fixed value.
--]]
function destroyMonsterGroup(self)
	local count = nil
	for val in entitiesAt(self.level,self.x,self.y) do
		if (val.class == "Counter") then
			count = val
			break
		end			
	end	
	
	if (count:getValue() < 4) then
		count:increment()
		for val in entitiesAt(self.level,self.x,self.y) do
			if (val.class == "Monster" ) then
				val:destroy()				
			end			
		end
	else
		spawn("fx", self.level, self.x, self.y, self.facing):setParticleSystem("bc_monster_death")
		for i=1,4 do		
			if ( party:getChampion(i):getEnabled() ) then
				party:getChampion(i):gainExp(50)
			end
		end
		count:destroy()
		self:destroy()
	end	
end


--[[
	This function opens the path and respawns the pressure plate if there is any.
	It is called by the Spears-"Door" with a onClose hook.
--]]
function clear(self)
	local block = nil
	for val in entitiesAt(self.level,self.x,self.y) do
		if (val.class == "Blockage") then
				val:destroy()
			break
		end			
	end
	
	local plate = false
	for val in entitiesAt(self.level,self.x,self.y) do
		if (val.class == "PressurePlate") then
			val:destroy()
		
			local doors = {}
			
			for val in entitiesAt(self.level,self.x,self.y) do
				if (val.name == "bc_wall_trap_spear_s01") or   --had to call val by names, calling val by class caused always nil don't know why though
				   (val.name == "bc_wall_trap_spear_s01_deco") or
		 		   (val.name == "bc_wall_trap_spear_s02") or
				   (val.name == "bc_wall_trap_spear_s02_deco") then
					table.insert(doors,val)
				end	
			end
			
			local plate = spawn("bc_pressure_plate", self.level, self.x, self.y, self.facing)
								:setTriggeredByParty(true)
								:setTriggeredByMonster(true)
								:setTriggeredByItem(false)
								:setActivateOnce(true)
								:setSilent(false)			
			for i, val in pairs(doors) do
				plate:addConnector("activate", val.id, "toggle")
			end			

			break
		end			
	end
end