Grimrock

Code: Select all

dungeon_door_wooden_locked_1:setOpenedBy("iron_key")

Code: Select all

mycooldoor:setOpenedBy("iron_key")

Code: Select all

mycooldoor:setOpenedBy("brass_key")

Code: Select all

-- plate lever toggle
function platetoggle()
     mylever:toggle()
end

Code: Select all

-- do something special script
function leveraction()
     if mylever:getLeverState() == "activated" then
          superdoor:open()
     else
          superdoor:close()
     end
end

Code: Select all

-- start teleporter if both torch holders are filled
function cooltele()
    if leftholder:hasTorch() == true and
    rightholder:hasTorch() == true then
        coolteleporter:activate()
    else
        coolteleporter:deactivate()
    end
end

Code: Select all

function checkAlcoveForItems()
   -- change these variables to match your alcove's ID and the item you want to test for
   local itemName = "dagger"
   local alcoveID = dungeon_alcove_1
   
   -- iterate through all the contained items on alcove, checking for a matching name
   for i in alcoveID:containedItems() do
      if i.name == itemName then
         itemFound()
      else
         itemNotFound()
      end
   end
end

-- run this script _once for each item_ with a matching name
function itemFound()
   playSound("level_up")
end

-- run this script _once for each item_ without a matching name
function itemNotFound()
   spawn("poison_cloud", party.level, party.x, party.y, 0)
end

Code: Select all

function daggerCheck()
   for i in my_alcove:containedItems() do
      if i.name == "dagger" then
         my_door:open()
      end
   end
end

Code: Select all

function daggerCheck()
   if my_alcove:getItemCount() == 0 then
      my_door:close()
   else
      for i in my_alcove:containedItems() do
         if i.name == "dagger" then
            my_door:open()
            break
         else
            my_door:close()
         end
      end
   end
end

Code: Select all

function daggerCheck()
   if my_alcove:getItemCount() == 0 then
      my_door:close()
   else
      for i in my_alcove:containedItems() do
         if i.name == "dagger" then
            my_door:open()
            return
         end
      end
      my_door:close()
   end
end

Code: Select all

function daggerCheck()
	local itemFound = false

	for i in my_alcove:containedItems() do
		if i.name == "dagger" then
			itemFound = true
		end
	end

	if itemFound then
		my_door:open()
	else
		my_door:close()
	end
end

Code: Select all

-- This function returns true if the entity contains a given item.
-- It works for any entity that implements the containedItems() method.
function containsItem(entity, item)
	for i in entity:containedItems() do
		if i.name == item then
			return true
		end
	end
	-- if we get here the item was not found
	return false
end

-- example usage
if containsItem(my_alcove, "dagger") then
	my_door:open()
else
	my_door:close()
end

Code: Select all

function activate()
  for i=1,10 do
    local door = findEntity("secret_door_"..i)
    if door then
      door:open()
    end
  end
end

Code: Select all

function pullLever()
   if combinationLever1:getLeverState() == "activated" and
   combinationLever2:getLeverState() == "activated" then
      combinationDoor:open()
      playSound("secret")
   else
      combinationDoor:close()
   end
end

Code: Select all

defineSound{
   name = "cool_sound",
   filename = "mod_assets/sounds/cool_sound.wav",
   loop = false,
   volume = 0.8,
}

Code: Select all

function teststat(stat, value, xpmin, xpmax)

   local astat = {}
   astat[1] = party:getChampion(1):getStat(stat)
   astat[2] = party:getChampion(2):getStat(stat)
   astat[3] = party:getChampion(3):getStat(stat)
   astat[4] = party:getChampion(4):getStat(stat)
   
   local aname = {}
   aname[1] = party:getChampion(1):getName()
   aname[2] = party:getChampion(2):getName()
   aname[3] = party:getChampion(3):getName()
   aname[4] = party:getChampion(4):getName()
   
   for i=1,4 do
      if astat[i] < math.random(value) then
         hudPrint(aname[i].." doesn't learn anything.")
      else
         local experiencegained = math.random(xpmin,xpmax)
              hudPrint(aname[i].." succeeds to understand what is going on and gain "..experiencegained.." XP." )
              party:getChampion(i):gainExp(experiencegained)
      end   
   end
end

Code: Select all

function teststat(stat, testmaxvalue, xpmin, xpmax)

   local astat = 0
   local aname = ""
   
   for i=1,4 do
      astat = party:getChampion(i):getStat(stat)
      aname = party:getChampion(i):getName()
      if astat < math.random(testmaxvalue) then
         hudPrint(aname.." doesn't learn anything.")
      else
         local experiencegained = math.random(xpmin,xpmax)
         hudPrint(aname.." succeeds to understand what is going on and gain "..experiencegained.." XP." )
         party:getChampion(i):gainExp(experiencegained)
      end   
   end
end

Code: Select all

counter = 2

function activate()
  counter = counter - 1
  checkValue()
end

function deactivate()
  counter = counter + 1
  checkValue()
end

function checkValue()
  if counter == 0 then
    mydoor:open()
  else
    mydoor:close()
  end
end

Code: Select all

fuction checkValue()
    if counter == 0 then
        basementdoor:open()
        basementtele:activate()
        teletimer:activate()
        basementtimer:activate()
        autobackuptimer:activate()
    end
end

Code: Select all

local name1 = party:getChampion(1):getName()
hudPrint("You know "..name1..", you are an incredibly effective adventurer!")