Grimrock

Code: Select all

function partyHurt()
  for i=1,4 do
    local theRace = party:getChampion(i):getRace()
    local theSex = party:getChampion(i):getSex()
    champHurt(theRace,theSex)
  end
end

function champHurt(race,sex)
  if race == "Human" then playSound("damage_human_"..sex)
    elseif race == "Minotaur" then playSound("damage_minotaur_"..sex)
    elseif race == "Lizardman" then playSound("damage_lizardman_"..sex)
    elseif race == "Insectoid" then playSound("damage_insectoid_"..sex)
  end
end

Code: Select all

function doDamage()
  for i=1,4 do
    if party:getChampion(i):getEnabled() and
       party:getChampion(i):isAlive() then
       party:getChampion(i):damage(math.random(5,10),"physical")
       party:getChampion(i):playDamageSound()
    end
  end
end

Code: Select all

printON = true

function nt(m1,m2,m3,m4)
  if printON then
     if      m2 == nil and m3 == nil and m4 == nil then print(m1)
      elseif m3 == nil and m4 == nil then print(m1,m2)
      elseif m4 == nil then print(m1,m2,m3)
      else   print(m1,m2,m3,m4)
     end
  end
end

pr.nt("Debug texts are ON")
------------------------------------

-- this function and variable are for console printing. If
-- printON is true then all the console debug text will
-- print during play. Turn this to false before final release.

-- In scripts in the dungeon I might have a line like:
-- pr.nt("blah blah blah")

Code: Select all

cloneObject{
  name = "party",
  baseObject = "party",
  onDrawGui = function(g)
    guiScript.doGui(g)
  end,
}

Code: Select all

function doGui(g) -- triggers EVERY frame by render gui hook
  --code
end

Code: Select all

mFree = true

function doGui(g) -- triggers EVERY frame by render gui hook
  if g.keyDown("m") then
     if mFree then
        print("m key was pressed")
        --other code
     end
     mFree = false
    else -- key no longer being held down
     mFree = true
  end
end

Code: Select all

mFree = true

function doGui(g) -- triggers EVERY frame by render gui hook
  if g.keyDown("m") then
     if mFree then
        --print("m key was pressed")
        myOtherScript.myOtherTestFunction()
     end
     mFree = false
    else
     mFree = true
  end
end

Code: Select all

function ndItemNameInside(entity, itemName)
  if (entity == nil or itemName == nil) then
     print("need two variables")
     return false
  end
  for i in entity:containedItems() do
    if (i.name == itemName) then
      return true
    end
  end
  return false
end

function ndItemIDInside(entity, itemID)
  if (entity == nil or itemID == nil) then
     print("need two variables")
     return false
  end
  for i in entity:containedItems() do
    if (i.id == itemID) then
      return true
    end
  end
  return false
end

Code: Select all

function swordCheck() 
  if (f.ndItemNameInside(mySwordAlcove, "long_sword") then
     hudPrint("The sword was found, you may pass")
    else
     hudPrint("The sword is missing!")
  end
end

Code: Select all

function puzzleCheck() 
  if (f.ndItemNameInside(knife_alcove, "knife") and
     (f.ndItemNameInside(sling_alcove, "sling") and
     (f.ndItemNameInside(long_sword_alcove, "long_sword") then
     hudPrint("WOOT - All 3 items are correct.")
    else
     hudPrint("Not Yet Solved.")
  end
end

Code: Select all

defineObject{
   name = "dungeon_supporting_center_pillar",
   class = "Blockage",
   model = "assets/models/dungeon/dungeon_pillar.fbx",
   placement = "floor",
   hitSound = "impact_blade",
   editorIcon = 100,
   health = 50,
   evasion = -1000,
   hitEffect = "hit_dust",
   brokenModel = "assets/models/dungeon_floor_01.fbx" -- not sure if this works.. add the model you wish to see when the pillar is destroyed.	
   onProjectileHit = function()
      return false -- projectiles can`t shoot down pillars!
   end,	
   onDie = function(self)
        spawn("poison_cloud", self.level, self.x, self.y, 0)
        scriptEntityName.functionName() -- add your earthquake script`s name and the script entity that it is in here.
   end,
}

Code: Select all

defineObject{
   name = "northern_dungeon_supporting_center_pillar",
   class = "Blockage",
   model = "mod_assets/models/northern_dungeon/northern_dungeon_pillar.fbx",
   placement = "floor",
   hitSound = "impact_blade",
   editorIcon = 100,
   health = 50,
   evasion = -1000,
   hitEffect = "hit_dust",
   onProjectileHit = function()
      return false -- projectiles can`t shoot down pillars!
   end,
   brokenModel = "mod_assets/models/northern_dungeon/northern_dungeon_floor_01.fbx",
   onDie = function(self)
        spawn("poison_cloud", self.level, self.x, self.y, 0)
        scriptEntityName.functionName() -- add your earthquake script`s name and the script entity that it is in here.
   end,
}

Code: Select all

-- insert id of door to open
door = "DOOR GOES HERE"
-- insert ids of plates in order
plates = { "PLATES GO HERE" }
					
counter = 0
last_plate = nil

for i = 1, #plates do
	for j = 0, i - 1 do
		if plates[i] == plates[j] then break end
		if j == i - 1 then
			hudPrint(tostring(plates[i]))
			local plate = findEntity(plates[i])
			plate:addConnector("activate", self.id, "isPressed")
			plate:setTriggeredByParty(true)
			plate:setTriggeredByMonster(false)
			plate:setTriggeredByItem(false)
end end end

function isPressed(plate)
	if last_plate == plates[counter] and plate.id == plates[counter + 1] then
		counter = counter + 1
		if counter == #plates then findEntity(door):open() end
		last_plate = plates[counter]
	else
		counter = 0
		last_plate = nil
end end

Code: Select all

-- first is lever id, second is chars to iterate through
-- add more {lever, chars} items if necessary
levers = { {"LEVER ID", "CHARS"} }
-- insert solution here
solution = "SOLUTION"
-- insert door here
door = "DOOR ID"

counters = {}
entity = 1 chars = 2

for k = 1, #levers do
	levers[k][entity] = findEntity(levers[k][entity])
	levers[k][entity]:addConnector("any", self.id, "isPulled")
	counters[k] = 0
end

function isPulled(lever)
	local correct = 0
	local string = ""

	for k = 1, #levers do
		if lever.id == levers[k][entity].id then
			counters[k] = counters[k] + 1
			if counters[k] == #levers[k][chars] then counters[k] = 0 end
		end

		local char = levers[k][chars]:sub(counters[k] + 1, counters[k] + 1)
		if char == solution:sub(k, k) then correct = correct + 1 end
		string = string .. char
	end

	hudPrint(string)
	if correct == #levers then findEntity(door):open() end
end

Code: Select all

function extraPoison()
  if not party:isResting() then return end
  if poisonTick < 2 then poisonTick = poisonTick + 1 return end
  poisonTick = 0

  for i=1,4 do
    local champ = party:getChampion(i)
    if champ:hasCondition("poison") then
      local amt = champ:getCondition("poison")
      local resist = champ:getResistance("poison")
      pr.nt(champ:getName(),amt,"resist"..resist)
      champ:damage(amt/3*(1-((resist+0.1)/100)), "poison")
    end
  end
end

poisonTick = 0

Code: Select all

function getEntity(ent)
    if type(ent) == "string" then ent = findEntity(ent) end
    return ent
end

Code: Select all

function XXX(data)
   data = getEntity(data)
   if data == nil then return false end
   ..
   
   ..
end