Grimrock

Code: Select all

cloneObject{
	name = "dying_scavenger",
	baseObject = "scavenger",
	onDie = function(self)
		return ondie.onDie(self)
	end,
}

Code: Select all

function findpattern(t,p,s)
	local start = string.find(t,p,s)
	print(start)
	if (start == nil) then
		return 0,0
	else
		local part = string.sub(t,string.find(t,p,s))
		return start + 1, start + #part - 2
	end
end

function findparts(str)
	local parts = {}
	local finish = false
	local start = 1
	while (not finish) do
		local sta, fin = findpattern(str,'%b{}',start)
		if (sta * fin == 0) then
			return parts
		else
			if (start == 1) then
				table.insert(parts,string.sub(str,1,sta-2))
			end
			table.insert(parts,string.sub(str,sta,fin))
			start = fin
			if (start == (#str - 1)) then
				finish = true
			end
		end
	end
	return parts
end

function onDie(self)
	local facingDirs = {{x=0,y=1},{x=-1,y=0},{x=0,y=-1},{x=1,y=0}}
	local monsterId = self.id
	local parts = findparts(monsterId)
	if (#parts == 0) then
		return true
	else
		local doCommand = parts[1]
		if (doCommand == "open") and (#parts == 2) then
			findEntity(parts[2]):open()
		end
		if (doCommand == "close") and (#parts == 2)  then
			findEntity(parts[2]):close()
		end
		if (doCommand == "spawn") and (#parts == 3) then
			local newPos = {x = self.x+facingDirs[self.facing+1].x, y = self.y+facingDirs[self.facing+1].y}
			if not isWall(self.level,newPos.x,newPos.y) then
				spawn(parts[2],self.level,newPos.x,newPos.y,self.facing,parts[3])
			end
		end
		if (doCommand == "destroy") and (#parts == 2) then
			findEntity(parts[2]):destroy()
		end
		return true
	end
end

Code: Select all

commands = { 
 dying_scavenger_1 = function(self)
	local id = spawnBehind(self,"dying_scavenger")
	commands[id] = function(self)
		openDoor("dd1")
 	end
 end,
}

spawnBehind = function( self , objectName )
--returns the id of the spawned monster, if monster is successfully spawned
	local x , y = getForward( ( self.facing + 2 ) % 4 )
	x = x + self.x
	y = y + self.y
    if not isWall( self.level , x , y ) then
    	return spawn(objectName,self.level,x,y,self.facing).id
    end
end

openDoor = function( doorName )
	local door = findEntity(doorName)
	if door then
		door:open()
	end
end

closeDoor = function( doorName )
	local door = findEntity(doorName)
	if door then
		door:close()
	end
end

onDie = function(self)
	local c = commands[self.id]
	if c then
		c(self)
	end
end

Code: Select all

function(self)
	local id = spawnBehind(self,"dying_scavenger")
	commands[id] = function(self)
		openDoor("dd1")
 	end
 end,

Code: Select all

function(self)
   openDoor("dd1")
end

Code: Select all

commands = { 
 dying_scavenger_1 = function(self)
	local id = spawnBehind(self,"dying_scavenger","dying_scavenger_2")
	if id then
		commands[id] = function(self)
			openDoor("dd1")
 		end
	end
 end,
}

Code: Select all

makeMonster("dying_scavenger",1,11,15,3,{
	openDoor("dd3"),
	switchLight("tc1","off")
	makeMonster("dying_snail",1,12,15,3,{
		openDoor("dd1"), 
		closeDoor("dd2"),
		doTeleport("tlprt_1",1,6,12,3,1,18,13,1,"none"),
		makeMonster("dying_scavenger",1,12,15,3,{
			doPrint("It was tough, but you managed it!"),
			makeMonster("brass_key",1,12,15,3,{"brass_key_door"})
			})
		},
		false), -- do not spawn directly, save commands in id
	},
	true -- spawn directly the monster
)

Code: Select all

commands = {
	dying_scavenger_1 = function(self)
		dd3:open()
		tc1:deactivate()
		local id = spawn("dying_snail",1,12,15,3).id
		commands[id] = function(self)
			dd1:open()
			dd2:close()
			spawn("teleporter",1,6,12,3):setTeleportTarget(18,13,1,1)
			local id = spawn("dying_scavenger",1,12,15,3).id
			commands[id] = function(self)
				hudPrint("It was tough, but you managed it!")
				spawn("brass_key",1,12,15,3,"brass_key_door")
			end
		end
	end	
}

Code: Select all

commands = {
	dying_scavenger_1 = function(self)
		if (self.x == xpos) and (self.y == ypos) then
			hudPrint("The gods are satisfied!")
			doorX:open()
		else
			hudPrint("The gods are not satisfied!")
			spawn("dying_scavenger",startLevel,startposX,startposY,startFacing,"dying_scavenger_2")
		end
	end,
	dying_scavenger_2 = function(self)
		if (self.x == xpos) and (self.y == ypos) then
			hudPrint("The gods are satisfied!")
			doorX:open()
		else
			hudPrint("The gods are not satisfied!")
			spawn("dying_scavenger",startLevel,startposX,startposY,startFacing,"dying_scavenger_1")
			end
		end
	end,
}

Code: Select all

mySequence = newSequence()
mySequence:addEvent{
	event = function()
		spawn( "snail" , 1 , 15 , 15 , 0 )
	end,
	delayAfter = 1,
}
mySequence:addEvent{
	event = function()
		hudPrint("Where did that snail come from?")
	end,
	delayAfter = 0.5,
}
mySequence:addEvent{
	event = function()
		gate_1:open()
	end,
}


anotherSequence = newSequence()
anotherSequence:addEvent{
	event = function()
		hudPrint("The air behind the gate appears to be congealing")
	end,
}
anotherSequence:addEvent{
	delayBefore = 3,
	event = function()
		mySequence:execute()
	end,
}

function onPressurePlate()
	anotherSequence:execute()
end

Code: Select all

cloneObject{
	name = "scavenger_die",
	baseObject = "scavenger",

	onDie = function(self)
	local k = killcounter
      k:increment()
      return ondie.onDie(self)
   end,
}

Code: Select all

function onDie(self)

	local x , y = getForward( ( self.facing + 2 ) % 4 )
	x = x + self.x
	y = y + self.y
	if killcounter:getValue() == 1 then
		if not isWall( self.level , x , y ) then			
			spawn("scavenger_die",party.level,x,y,self.facing)			
		end
	
	elseif killcounter:getValue() == 2 then
		dd1:open()
	end
end