Grimrock

Code: Select all

cloneObject {
   name = "party",
   baseObject = "party",

   onMove = function(party, dir)
      var_storage.set_last_level(party.level)
      var_storage.decrement_feather()
      return true
   end,
 
   onDamage = function(champion, dmg, dmgtype)
      if party.level ~= var_storage.get_last_level() then
         if var_storage.get_feather() then
            -- Feather fall
            return false
         end
      end
      return true
   end
}

Code: Select all

last_level = 1
feather_fall = false
feather_dur = 0

function set_feather(dur)
  feather_fall = true
  feather_dur = dur
  hudPrint("You feel lighter.")
end

function decrement_feather()
   if feather_fall == true then
      feather_dur = feather_dur - 1
      if feather_dur <= 0 then
        feather_fall = false
        hudPrint("You feel heavier.")
      end
   end
end

function get_feather()
  return feather_fall
end

function set_last_level(lev)
  last_level=lev
end

function get_last_level()
  return last_level
end

Code: Select all

spawn("timer",self.level,self.x,self.y,0,self.id.."gcheck")
:setTimerInterval(0.1)
:addConnector("activate", self.id, "groundcheck")
:activate()


TF = {}
TID = {}
function torchout()
	for i=1,4 do
      for j=1,31 do
         if party:getChampion(i):getItem(j) ~= nil then
            local istorch = party:getChampion(i):getItem(j)
            if istorch.name == "torch" and istorch:getFuel() ~= 0 then
				table.insert(TID,istorch)
				local fuel = istorch:getFuel()
				table.insert(TF,fuel)
				istorch:setFuel(0)
		            
            end
         end      
      end
   end
	local mtor = getMouseItem()
	if getMouseItem() ~= nil and mtor.name == "torch" then
		table.insert(TID,mtor)
		local fuel = mtor:getFuel()
		table.insert(TF,fuel)
		getMouseItem():setFuel(0)
		
	end
end


function torchrestore()
	print(TF[1])
	print(TID[1])
	for i=1,25 do
		local tor = TID[i]
		if tor ~= nil then
			tor:setFuel(TF[i])
		end
	end
	for i=1,4 do
		for j=7,8 do
			if party:getChampion(i):getItem(j) ~= nil then
				local istorch = party:getChampion(i):getItem(j)
				party:getChampion(i):removeItem(j)
				party:getChampion(i):insertItem(j, istorch)
			end
		end
	end
end


function groundcheck()
	for i in entitiesAt(self.level, self.x, self.y) do
		if i.name == "torch" and i:getFuel() ~= 0 then
			local fuel = i:getFuel()
			table.insert(TID,i)
			table.insert(TF,fuel)			
			i:setFuel(0)
		end
	end
end

Code: Select all

function randomize(x, y)
  seed = spawn("dagger", 1, 1, 1, 1)  --spawns a dagger at a place where the party can't interfere
  math.randomseed(seed.id)            --uses the ID of the spawned dagger as a random seed
  result = math.random(x, y)          --here we do the random number generation
  print(result)                       --to see the number it picked while debugging, else just remove this line
  print(seed.id)                      --to see the seed it got while debugging, else just remove this line
  seed:destroy()                      --then we destroy the dagger
  return result                       --we need to return the result to whatever asks for it
end

Code: Select all

variable = randomize(1,3)
if variable == 1 then
  hudPrint("I got a 1")
elseif variable == 2 then
  hudPrint("I got a 2")
elseif variable == 3 then)
  hudPrint("I got a 3")
end

Code: Select all

spawn("wall_button", level, x, y, facing, "button_1"):addConnector("toggle", "script", "buttonPress")
spawn("wall_button", level, x, y, facing, "button_2"):addConnector("toggle", "script", "buttonPress")
spawn("wall_button", level, x, y, facing, "button_3"):addConnector("toggle", "script", "buttonPress")

--this example will have a combination of: 2 3 1 

function buttonPress(sender)
	if sender.id == "button_1" and counter:getValue() == 3 then
		counter:setValue(3)
	elseif sender.id == "button_1" and counter:getValue() == 2 then
		counter:setValue(3)
	elseif sender.id == "button_1" and counter:getValue() == 1 then
		counter:setValue(0)
	elseif sender.id == "button_2" and counter:getValue() == 3 then
		counter:setValue(2)
	elseif sender.id == "button_2" and counter:getValue() == 2 then
		counter:setValue(3)
	elseif sender.id == "button_2" and counter:getValue() == 1 then
		counter:setValue(3)
	elseif sender.id == "button_3" and counter:getValue() == 3 then
		counter:setValue(3)
	elseif sender.id == "button_3" and counter:getValue() == 2 then
		counter:setValue(1)
	elseif sender.id == "button_3" and counter:getValue() == 1 then
		counter:setValue(3)
	elseif counter:getValue() == 0 then
		door:open() -- or whatever you want to do
	end
end