代码来源于“易宁”大佬的分享，仅供学习，不要直接复制粘贴。

原帖链接：http://bbs.3dmgame.com/thread-3859071-1-1.html


二六二.传送石（右键点装备的保温石，将主角传送到另一块保温石处）

	用MT管理器打开游戏目录/assets/DLC0002/scripts/prefabs/heatrock.lua文件，在inst:AddComponent("inspectable")下一行插入以下内容：

local function canteleport(inst, caster)
	return true
end
local function teleport(inst)
	local caster = inst.components.inventoryitem.owner
	local range = 3000
	local pos = Vector3(caster.Transform:GetWorldPosition())
	local ents = TheSim:FindEntities(pos.x,pos.y,pos.z, range)
	for k,v in pairs(ents) do
		if v.prefab == "heatrock" and not v.components.inventoryitem:IsHeld() then
			caster.Transform:SetPosition(v.Transform:GetWorldPosition())
		end
	end
	return true
end
	inst:AddComponent("spellcaster")
	inst.components.spellcaster:SetSpellFn(teleport)
	inst.components.spellcaster:SetSpellTestFn(canteleport)
	inst.components.spellcaster.canusefrominventory = false
	inst.components.spellcaster.canuseonpoint = true
	inst:AddComponent("equippable")
	inst.components.equippable.equipslot = EQUIPSLOTS.HANDS

	即可制造2块保温石，1块扔在要传到的地点（比如家、洞穴出口处等），另1块带在身上，无论走到地图何处，只要装备保温石对空地按鼠标右键，马上传送回扔在地上的保温石处。如果制造3块保温石，将2块扔在不同地点，这2点间将形成虫洞效果，装备保温石对空地按鼠标右键，会在这2点间来回传送