Grimrock

Code: Select all

cloneObject{
	name='party',
	baseObject='party',
	onDrawGui = function(g)
	   gui.draw(g)
	end 
}

Code: Select all

elements = {}

function addElement(element)
   elements[element.id] = element
end

function removeElement(id)
   elements[id] = nil
end

function draw(g)
   for id,element in pairs(elements) do
      element:draw(g)
   end
end

function createDialog(id,text)
   local e = {}
   e.id = id
   e.draw = function(self,g)
      g.color(30,30,30,150)
      g.drawRect(30, 50, 345, 300)
      g.drawText(text, 200, 80)
      -- draw button with text
      g.color(128, 128, 128)
      g.drawRect(200, 120, 115, 20)
      g.color(255, 255, 255)
      g.drawText("Ok", 210, 135)
      -- close dialog when the button is pressed
      if g.button("button1", 200, 120, 115, 20) then
         gui.removeElement(self.id)
      end
   end
   return e
end

local dialog = createDialog('hello_dialog_1','Hello grimrockers!')
gui.addElement(dialog)

Code: Select all

cloneObject{
	name='party',
	baseObject='party',
	onDrawGui = function(g)
	   gui.draw(g)
	end, 
	onDrawInventory = function(g,champ)
	   gui.drawInventory(g,champ)
	end, 
	onDrawSkills = function(g,champ)
	   gui.drawSkills(g,champ)
	end, 
	onDrawStats  = function(g,champ)
	   gui.drawStats(g,champ)
	end	
}

Code: Select all

keyHooks = {}

elements = {}

function addElement(element)
   elements[element.id] = element
end

function removeElement(id)
   elements[id] = nil
end

function draw(g)
	processKeyHooks(g)
   	for id,element in pairs(elements) do
		element:draw(g)
   	end
end

function drawInventory(g,champ)

end
function drawStats(g,champ)

end
function drawSkills(g,champ)

end

function processKeyHooks(g)
	for key,hookDef in pairs(keyHooks) do
		if hookDef.toggle then
			-- toggle key state and add small threshold so the state doesn't change immediately
			if not keyToggleThresholdTimer and g.keyDown(key) then
				hookDef.active = not hookDef.active
				local t = spawn('timer',party.level,0,0,1,'keyToggleThresholdTimer')
				t:setTimerInterval(0.1)
				t:addConnector('activate','gui','destroyKeyToggleThresholdTimer')
				t:activate()
			end
			if hookDef.active then
				hookDef.callback(g)
			end	
		elseif g.keyDown(key) then
			hookDef.callback(g)
		end
	end
end

function destroyKeyToggleThresholdTimer()
	keyToggleThresholdTimer:destroy()
end

function setKeyHook(key,pcallback,ptoggle)
	keyHooks[key] = {callback=pcallback,toggle=ptoggle,active=false}
end

Code: Select all

cloneObject {
    name = "party",
    baseObject = "party",
    onDrawGui = function(ctx)
        encounters.update(ctx, self)
    end,
}

Code: Select all

function update(ctx, party)

	local items=""
    for i in entitiesAt(party.level, party.x, party.y) do
		if i.class == "ScriptEntity" then
			processEncounter(ctx, i)
		end
    end
end

-- handles encounter
function processEncounter(ctx, eventScript)
	if not sanityCheck(eventScript) then
		return
	end
	
        -- @todo: this has to be written in a more convenient manner
	eventScript.event(ctx)

end

-- check if e is really an event
function sanityCheck(e)
       -- using lots of separate ifs is lame, but helps with debugging
	if e.name ~= "event" then
		return false
	end

    if e.description == nil then
		return false
	end
	
	if e.active == nil or e.active == false then
		return false
	end
	
	return true

end