Grimrock

Code: Select all

function gamble()

   if checkContents(alcove_bet, "torch_everburning") then
      if math.random(100) < math.random(90) then
         hudPrint("You Win")
         playSound("level_up")
         alcove_win:addItem(spawn("boots_valor"))
      else
         hudPrint("You lose")
         spawn("poison_cloud", party.level, party.x, party.y, 0)
      end
   end

   lever_gamble:setLeverState("deactivated")
end

function checkContents(location,item)
   for object in location:containedItems() do

      -- if you want to show the name of items you actually put in the alcove
      -- then uncomment the hudPrint below
      -- hudPrint(object.name)
      if object.name == item then
         --remove object (but havent worked out how yet!)
         return true
      end
   end
   return false
end

Code: Select all

local playerRoll = math.random(100)
local houseRoll = math.random(90)
hudPrint("Player rolled "..playerRoll.." House rolled "..houseRoll)
if playerRoll < houseRoll then

Code: Select all

function gamble()

   if checkContents(alcove_bet, "torch_everburning") then
       local playerRoll = math.random(90)
       local houseRoll = math.random(100)
       hudPrint("Player rolled "..playerRoll.." House rolled "..houseRoll)
       if playerRoll > houseRoll then
         hudPrint("You Win")
         playSound("level_up")
         alcove_win:addItem(spawn("boots_valor"))
      else
         hudPrint("You lose")
         spawn("poison_cloud", party.level, party.x, party.y, 0)
      end
   end

   lever_gamble:setLeverState("deactivated")
end

Code: Select all

party:getChampion(1):removeItem(7)

Code: Select all

-- Lever in level01 opens the door in level02
function sdoor01()
   if lever01:getLeverState() == "activated" then
      door01:setDoorState("open")
   else
      door01:setDoorState("closed")
   end
end

Code: Select all

-- Button in level01 opens the door in level02
function openmydoor()
    door01:open()
end

Code: Select all

function championBackbagIterator(t)
	local i = 10
	local n = 31
	return function ()
		i = i + 1
		while i <= n and t:getItem(i) == nul do
			i = i + 1
		end
		if i <= n then return t:getItem(i) end
	end
end

Code: Select all

for item in championBackbagIterator(party:getChampion(1)) do
	if item.name = "blueberry_pie" then
		eatPie()
	end
end

Code: Select all

function checkForItemParty(item)
	local i = 1
	repeat
		if checkForItem(party:getChampion(i), item)
			then return true
		end
		i = i + 1
	until i == 5
	return false
end

function checkForItem(champion, item)
	local i = 1
	repeat
		local itemObj = champion:getItem(i)
		if itemObj ~= nil then
			if itemObj.name == item
				then return true
			end
		end
		i = i+1
		until i == 32
	return false
end

Code: Select all

if checkForItemParty("torch")
 then print("We have a torch")
 else print("We don't have a torch")
end

Code: Select all

function itemCheck(thisItem)
	local thisPlayer = 1
	local itemSlot = 1
	local currItem
	
	for thisPlayer=1,4,1 do
		for itemSlot=1,31,1 do
			if party:getChampion(thisPlayer):getItem(itemSlot) ~= nil then 
				currItem = party:getChampion(thisPlayer):getItem(itemSlot).name
				if currItem == thisItem then
					return true
				end
			end	
		itemSlot = itemSlot + 1
		end
	thisPlayer = thisPlayer + 1		
	end	
end

Code: Select all

function checkInventory()
	if itemCheck("dagger") then
		--found it!
        else
      --no such item in inventory.
	end 
end 

Code: Select all

function platedown()
    if plate1:isDown() and plate2:isDown() then
        door1:open()
    else
        door1:close()
    end
end

Code: Select all

function exampleLua()
   print("This code runs once.")
end
exampleLua()

Code: Select all

print("This code runs once.")

Code: Select all

-- Bump up hitpoints
   for x = 1, 4, 1 do
     party:getChampion(x):modifyStatCapacity("health",120)
     party:getChampion(x):modifyStat("health",120)
   end

Code: Select all

function resethits()
   -- Bump down hitpoints
    for x = 1, 4, 1 do
       party:getChampion(x):modifyStatCapacity("health",-120)
    end
end

Code: Select all

function tempImmunity()
     for i = 1,4 do
	pitImmunity = party:getChampion(i)
	pitImmunity:setEnabled(false)
     end
end

function immunityRovoke()
  for i = 1,4 do
    pitImmunity = party:getChampion(i)
    pitImmunity:setEnabled(true)
  end
end

Code: Select all

cloneObject{
   name = "npcGoromorg",
   baseObject = "goromorg",
   evasion = 100000,
   onAttack = function(self, dir)
      return false
   end,
   onMove = function(self, dir)
      return false
   end,
}

Code: Select all

-- to add some dialogue :)
traded = false
function Merchant1()
   if traded == false then
      hudPrint("Hello traveler!")
      hudPrint("I'm a merchant and I would really like to trade with you.")
      hudPrint("If you give me your torch I will give you nice loot!")
   else
      hudPrint("At the moment I have nothing to offer")
   end
end

function checkAlcoveForItems()
   -- Offer
   local itemName = "torch_everburning"
   -- offer alcove
   local alcoveID = alcove_offer
   -- checks if the offer alcove has an item
   if alcoveID:getItemCount() == 0 then
      hudPrint("First you have to place an item into the alcove!")
   end
 
   -- checks if the offer is equal to the item you want
   for i in alcoveID:containedItems() do
      if i.name == itemName then
           hudPrint("The trade was successful!")
           -- spawns the item which you will get
           alcove_win:addItem(spawn("boots_valor"))
           -- spawns a secret door in front of the offer alcove so that you cant get the offer back
           spawn("dungeon_secret_door", party.level, 14, 14, 0)
           traded = true
      else
           hudPrint("The trade was not successful!")
      end
   end
end

Code: Select all

cloneObject{
   name = "npcGoromorg",
   baseObject = "goromorg",
   onAttack = function(self, dir)
      return false
   end,
   onMove = function(self, dir)
      return false
   end,
   onDamage = function(self, dir)
        hudPrint("Hello traveler!")
        hudPrint("I'm a merchant and I would really like to trade with you.")
        hudPrint("If you give me your torch I will give you nice loot!")
      return false
   end,
}