Grimrock

Code: Select all

defineTrait{
	name = "light_equipment",
	uiName = "Light Equipment",
	icon = 45,
	charGen = false,
	description = "Can not carry heavy stuff.",
	onRecomputeStats = function(champion, level)
		if level > 0 then
			local heavyItem = nil
			for slot = 1,ItemSlot.OffHand2 do
				local item = champion:getItem(slot)
				if item then
					if item:hasTrait("heavy_weapon") 
					or item:hasTrait("heavy_armour") then
						heavyItem = champion:getItem(slot)
						local stackSize = nil
						if heavyItem:getStackable() then

							stackSize = heavyItem:getStackSize()
						end 
						local m = getMouseItem()
						if m == nil then
							champion:removeItemFromSlot(slot)

							if stackSize then

								heavyItem:setStackSize(stackSize)
             
							end 
							setMouseItem(heavyItem)
							playSound("item_drop")
            
							hudPrint("Can not carry heavy stuff.")
							return false
						else 
							heavyItem = champion:getItem(slot)
							local newItem = spawn(heavyItem)
							if heavyItem then
								heavyItem:destroy()
							end
							
                                                        local slot2 = nil
							for slot2 = 1, 32 do
            
								if champion:getItem(slot2) == nil then
									if slot2 ~= nil then
										champion:insertItem(slot2, newItem )
										playSound("item_drop")

										hudPrint("Can not carry heavy stuff.")
										return false
									else
										spawn( newItem , party.level, party.x , party.y, party.facing ,party.elevation)
 
										playSound("item_drop")
            
										hudPrint("Can not carry heavy stuff.")
										return false
									end
								end
							end
						end
					end
				end
			end
		end
	end,
}

Code: Select all

defineTrait{
	name = "faerie_equipment",
	uiName = "Faerie Equipment",
	icon = 45,
	charGen = false,
	description = "Faeries can only wear and wield special items.",
	onRecomputeStats = function(champion, level)
		if level > 0 then
			
			for slot1 = 1 , 12 do
				local item1 = champion:getItem(slot1)
				if item1 then
					if not item1.go.item:hasTrait("faerie") then
						local nonFaeItem = champion:getItem(slot1)
						if nonFaeItem:getStackable() then

							local stackSize = nonFaeItem:getStackSize()
						end
						if getMouseItem() == nil then
							champion:removeItemFromSlot(slot1)
							if stackSize ~= nil then
		
								nonFaeItem:setStackSize(stackSize)
	
							end

							delayedCall("raceClassScript", 0.1, "spawnHeavyMouse", nonFaeItem.go.name)
                   					playSound("item_drop")
            
							hudPrint("Faeries can only wear and wield special items.")
							return
                   				else
                   					for slot2 = 13, 32 do

								local item2 = champion:getItem(slot2)            
								if item2 == nil then
									local s = slot2
									local champ = champion
									champion:removeItemFromSlot(slot1)

									if stackSize ~= nil then
		
										nonFaeItem:setStackSize(stackSize)
	
									end
									delayedCall("raceClassScript", 0.1, "spawnHeavyInvent", nonFaeItem.go.name, champ, s)
                   							playSound("item_drop")
            
									hudPrint("Faeries can only wear and wield special items.")
									return
								else
									champion:removeItemFromSlot(slot1)

									if stackSize ~= nil then
		
										nonFaeItem:setStackSize(stackSize)
	
									end
									delayedCall("raceClassScript", 0.1, "spawnHeavyFloor", nonFaeItem.go.name)
                   							playSound("item_drop")
            
									hudPrint("Faeries can only wear and wield special items.")
									return
								end
							end
						end
					end
				end
			end
		end
	end,
}

Code: Select all

function spawnHeavyMouse(itemName)
	local heavyItem = spawn(itemName)
    setMouseItem(heavyItem.item)
end

function spawnHeavyInvent(itemName, champion, slot)
	local heavyItem = spawn(itemName)
	local s = slot
	local c = champion
	c:insertItem(s, heavyItem.item)  
end

function spawnHeavyFloor(itemName)
    spawn(itemName,party.level,party.x,party.y,party.facing,party.elevation)
end

Code: Select all

nextFrameFunctions = {}
function onFrame()
	for i = #nextFrameFunctions,1,-1 do
		nextFrameFunctions[i].hook(unpack(nextFrameFunctions[i].arg))
	end
	nextFrameFunctions = {}
end
-- Call function func next frame with arguments in table args. They are called
-- in the same order that callNextFrame is called.
function callNextFrame(func,args)
	table.insert(nextFrameFunctions,{hook=func,arg=args})
end

Code: Select all

		{	-- This will trigger once every frame, unless the game is running at over 10000 FPS. (Timers do not trigger more than once per frame.)
			class = "Timer",
			name = "frame_timer",
			timerInterval = 0.0001,
			onActivate = function(self)
				game.frame.onFrame()
			end,
		},