Grimrock

Code: Select all

-- This file is for handling updating old savegames to new versions of the mod.
local CURRENT_VERSION = 3 -- Version 1.1

-- To dynamically create a script entity that actually runs its code,
-- ScriptComponent:loadFile() must be called in the onInit hook of a component
-- that appears before the ScriptComponent.

defineObject{
	name = "script_entity_patched",
	placement = "floor",
	components = {
		{
			class = "Null",
			name = "hackyLoader",
			onInit = function(self)
				self.go.script:loadFile(GameMode.patchScriptFile)
				GameMode.patchScriptFile = nil
			end,
		},
		{
			class = "Script",
		},
		{
			class = "ScriptController",
			name = "controller",
		},
	},
}

Code: Select all

	data		= {amount,maxamount}
function growplants()
	
	data.amount		= 0 --current plant
	data.maxamount	= 1 --put your highest plantnumber here
	local plant = findEntity("forest_oak_trunk_large_"..data.amount)
	

		
		local m = forest_oak_trunk_large_1:getWorldRotation()
		local scale = 0.5
		m.x = m.x * scale
		m.y = m.y * scale
		m.z = m.z * scale
		m.w = m.w * scale
		forest_oak_trunk_large_1:setWorldRotation(m)

		
		
			
					data.amount = data.amount + 1

				
			if data.amount > data.maxamount  then
				self.go:destroy()
			else
				delayedCall(self.go.id,0.04,'growplants') 
			end
end

delayedCall(self.go.id,0.02,'growplants')

Code: Select all

data		= {}
	data.amount		= 0 --current plant
	data.maxamount	= 5 --put your highest plantnumber here

function growplants()

	local plant = findEntity("forest_oak_trunk_large_"..data.amount)
	
	if plant ~= nil then
		local m = plant:getWorldRotation()
		local scale = 0.5
		m.x = m.x * scale
		m.y = m.y * scale
		m.z = m.z * scale
		m.w = m.w * scale
		plant:setWorldRotation(m)
	end	

		data.amount = data.amount + 1
			
		if data.amount > data.maxamount  then
			self.go:destroyDelayed()
		else
			 growplants() 
		end
end

if data.amount == 0 then growplants() end

Code: Select all

defineObject{
   name = "party",
   baseObject = "party",
   components = {
      {
         class = "Party", 
         onCastSpell =
            function(party,champion,spellName) 
                  local itemName = "scroll_"..spellName        
                  for i = 1, 32, 1 do
                         if champion:getItem(i) ~= nil and champion:getItem(i).go.name == itemName then
                             return true
                        end
                  end
                  hudPrint(champion:getName().." needs to have the spell scroll on him to be able to cast it")
                  return false 
           end
      
		}
	}
} 

Code: Select all

baseObject = "party",
	components = {
			{
				class = "Party",
				onCastSpell = function(party,champion,spellName)
								local itemName = "scroll_"..spellName
								local containers = 0
								
								--Inventory Search
								for item = 1, 32 do
									
									if champion:getItem(item) ~= nil then
										
										--Container Search Function
										local function searchContainer(component)																				
													if component ~= nil and component:getClass() == "ContainerItemComponent" then
														for x = 1, component:getCapacity() do
															local item = component:getItem(x)
															if item ~= nil and item.go.name == itemName then
																return true
															end	
														end
													end
													return false	
												end

										--Search Container Component
										for _,component in champion:getItem(item).go:componentIterator() do
											if searchContainer(component) then
												return true	
											end	
										end	
									
										--Search Inventory Slots for [scroll] itemName 
										if champion:getItem(item) ~= nil and champion:getItem(item).go.name == itemName then
											return true
										end 
		
									end
								end
								--Failure [no spell scroll]

								--Sound & Visual Effect
								playSound("spell_fizzle")
								champion:showAttackResult("Fizzle", "SpellFizzle")
								
								--Caster's name
								local formattedName = champion:getName():sub(1,1):upper()..champion:getName():sub(2)

								--Failure Message
								local warningMsg = formattedName.." needs to have the spell scroll on "..iff(champion:getSex()=="female","her", "him").." to be able to cast it."
								hudPrint(warningMsg)
								return false
							end
			}
		}
	}

Code: Select all

party:isCarrying(itemName)