Grimrock

Code: Select all

function Sacrifice()

	
	for alcoveItem in sacrificeAltar:containedItems() do
		local itemName = alcoveItem.name
		alcoveItem:destroy()
		rewardAltar1:addItem(spawn(itemName))
		break;
	end
	

	for alcoveItem in rewardAltar1:containedItems() do
		local itemName = alcoveItem.name
		alcoveItem:destroy()
		rewardAltar2:addItem(spawn(itemName))
		break;
	end	
	
	sacrificeAltar:destroy()
	spawn("deep_temple_altar", party.level, 3, 23, 1, "sacrificeAltar");
	
	for alcoveItem in rewardAltar2:containedItems() do
		local itemName = alcoveItem.name
		alcoveItem:destroy()
		sacrificeAltar:addItem(spawn(itemName))
		break;
	end	
	
	sacrificeAltar:addConnector("activate", "sacrificeAltarScript", "Sacrifice")
end

Code: Select all

	
--[[ This script supports up to nine statement entries, with pauses between them. 
	Add or remove the statement entries as needed.

	This script does not ~technically~ support multi-line statements, but it is possible
	to format a string with extra spaces and escape code \n, to fit in a second line of text.
	The extra empty spaces would be needed to center the text manually, and you might want
	to use a number to override the delay, as the spaces would count to lengthen the pause.  
	
	The statement table must have nine entries (statements). They can be empty; empty quotes are
	ignored, and should ~only~ exist as the last entries; to fill up the remainder of the nine slots. 
	
	IMPORTANT: Only call this script once (obviously), you should only call it via script, or with a one-time use pressure plate.	
	If you do call it more than once with script, make sure that it has had time to stop; or else the statements can overlap.

--]]
	

statement = {
			"This is the first statement.",
			"And this is the second. (After a brief pause)",
			"[clears throat]",
			"and this is the final statement.",
			"[an awkward silence ensues]",
			"Where has the rum gone?",
			"               Double line of text, \n it kind of works, but it\'s not perfect.",
			"",
			"",
		} -- There must always be nine statements. Pad the end of your dialog with  "",
                         
pauses = {0,
				#statement[1]/5,
				#statement[2]/5,
				#statement[3]/5,
				#statement[4]/5,
				#statement[5]/5,  -- replacing this line with   35,   would add a 35 second delay after the fifth statement. 
				#statement[6]/5,
				#statement[7]/5,
				#statement[8]/5
				}  
				--[[	Pause #1 should always be zero. The other '#statement[?]/5' values can be replaced with your own number 
					of seconds to wait. One reason that you might wish to do this, is to include an extended pause.
					
					For this you must still type something as a statement entry ~be it only a blank space " ", or even some
					descriptive note like "[an awkward silence ensues]". it cannot be empty quotes.
				--]]


	function _statementPrint(caller) _screenClear() hudPrint(tostring(statement[tonumber(string.sub(caller.id,-1))])) caller:destroy() end

	function _delayEval(x)
			local temp = pauses[1]
			if x ~= nil then
			 	 for y = 1, x do
					if statement[y] == "" then break 
					else
						temp = temp + pauses[y]
					end
				 end
			end
		return temp
	end
							
	function longSpeech()
		for x= 1, #pauses do

				local delay = _delayEval(x)
				local name = 'timer_['..getStatistic('play_time').."]_"..x
			if statement[x] == "" then return 
			else
				spawn('timer', party.level, 1,1,1, name )
				:setTimerInterval(delay)
				:addConnector("activate", self.id, "_statementPrint")
				:addConnector("activate", "name", "destroy")
				:activate()
			end

		end
	end
	
	function _screenClear() hudPrint("") hudPrint("") hudPrint("") hudPrint("") hudPrint("") end
						

		

Code: Select all

function search()
for x=0, 31 do --you can obviously change these if you only want to search a room and not the whole floor
	for y=0, 31 do
	for e in entitiesAt(self.level, x, y) do 
        if e.name =="dungeon_wall_text" then --your item's name here, or it could be any other condition
	hudPrint("Found "..string.lower(e.name).." at x "..tostring(e.x).." y "..tostring(e.y).." .")
	end
	end
	end
	end
end

Code: Select all

function varPrint() --you can get the value of a non-string variable printed, good for testing and debugging
local fact=true
hudPrint(tostring(fact))
if fact then hudPrint("fact is true") else hudPrint("fact is false") end
end

--how to print attributes of objects, ID and class here
function printID()
hudPrint("the X coord is "..tostring(self.x).." for this item")
end

function printClass()
hudPrint("The class of the "..string.lower(readable_note.name).." IS "..string.lower(readable_note.class))
end

function readNote() --what it says on the package; you will need a scroll type item for this
hudPrint(id_of_your_scroll:getScrollText())
end

function readWall() --same with wall text
hudPrint(id_of_your_wall_text:getWallText())
end

function copyToWall() --you can get text stored on one object/item to an other one
if id_of_your_scroll~=nil then 
--sadly this one crashes if the party picks up the scroll so you better check if the scroll can be found
wall_text:setWallText(id_of_your_scroll:getScrollText()) 
end
end

function grafitti() 
--now this is more interesting, you place a counter and a button,
--and connect the button to the function, but not to the counter 
read_counter:increment()
local x=read_counter:getValue() --the lazy way to get the counter value
hudPrint(tostring(x)) --optional
test_text:setWallText("You have pressed the button "..tostring(x).." times.")
end

Code: Select all

for each in party.map:entitiesAt(party.x,party.y) do if each.name=="dig_hole" then each:destroy() end end

Code: Select all

for each in party.map:allEntities() do if each.name=="dig_hole" then each:destroy() end end

Code: Select all

function talk()
hudPrint("example")

end

Code: Select all

function abcdefg()
hudPrint("example")
end