[MOD 0.14.x] Personal Teleporter

[keneda83]

Hello i installed this mod it was working good then after sometime it shoot me this error each time i want to use the teleporter

Error while running the event handler: __PersonalTeleporter__/control.lua:111: attempt to index global 'guiTelSetting' (a nil value)

does anyone can help me please? thx.

I will look into this and try to push an update by the end of today.

Ok tyvm , i lost evrything because of this error , i want at least working for it wroth the loss

[WhatheWorld]

Hello i installed this mod it was working good then after sometime it shoot me this error each time i want to use the teleporter

Error while running the event handler: __PersonalTeleporter__/control.lua:111: attempt to index global 'guiTelSetting' (a nil value)

does anyone can help me please? thx.

I will look into this and try to push an update by the end of today.

Ok tyvm , i lost evrything because of this error , i want at least working for it wroth the loss

what version of the mod are you using and what version of factorio are you using.
Also you should not lose your game just uninstall my mod.

[WhatheWorld]

Hello i installed this mod it was working good then after sometime it shoot me this error each time i want to use the teleporter

Error while running the event handler: __PersonalTeleporter__/control.lua:111: attempt to index global 'guiTelSetting' (a nil value)

does anyone can help me please? thx.

I will look into this and try to push an update by the end of today.

I think you are on an old version of the mod. (0.1.4) the new version 0.1.5 fixed this problem.

[keneda83]

i used the 0.1.5 of your mod with the 0.13.11 factorio version, and i lost my save by mistake because i reinstalled the game because i tought reinstalling will solve the pb ( because your mod worked sometime and suddenly for no reason it stopped working) and forgot to keep my save

[WhatheWorld]

i used the 0.1.5 of your mod with the 0.13.11 factorio version, and i lost my save by mistake because i reinstalled the game because i tought reinstalling will solve the pb ( because your mod worked sometime and suddenly for no reason it stopped working) and forgot to keep my save

Well if you have any other errors with the mod let me know. but the problem you had earlier was not using Version 0.1.5 because in that version(0.1.5) there is nothing on line 111.
Sorry you lost your save file.

[keneda83]

it's not your fault about the save =) , i'm searching the teleport technilogie and update how it's going =) anyway thx you very much for the help ^^

[apriori]

If you want to make teleporter gui-rows reorderable, replace some codelines in control.lua with code below

Code for event handler - defines.events.on_gui_click

Code: Select all

script.on_event(defines.events.on_gui_click, function(event)
  local refreshWindow = false
  local refreshWindows = false
  local player = game.players[event.element.player_index]
  
  if event.element.name == "PersonalTeleportTool" and global.guiTelSetting.visiable == false then
    creatTelportWindow(player)
  
  elseif event.element.name == "PersonalTeleportTool" and global.guiTelSetting.visiable == true then
    --close window
	  global.guiTelSetting.visiable = false;
	  global.guiTelSetting.window.destroy()
  
  elseif endsWith(event.element.name, "_TelaportTo") then
	  local noPT = true
	  local PTHasEnergy = false
	  local TBHasEnergy = false
	  if player.get_inventory(defines.inventory.player_armor)[1].valid_for_read then    --get_item_count("Personal-Teleporter") > 0 then
      if player.get_inventory(defines.inventory.player_armor)[1].has_grid then
        local equipment = player.get_inventory(defines.inventory.player_armor)[1].grid.equipment
        for indexE,equip in pairs(equipment) do
          if equip.name == "Personal-Teleporter" then
            noPT = false
            if equip.energy > 2000000 then
              PTHasEnergy = true
              local data = split(event.element.name,"_")
              local telaportLocIndex = tonumber(data[1])
              local TelporterLocation = global.TelaportLocations[telaportLocIndex]
              --check to see if teleport beakon has power
              local localEntities = game.surfaces["nauvis"].find_entities({{TelporterLocation[2]-1,TelporterLocation[3]+1},{TelporterLocation[2]+1,TelporterLocation[3]-1}})
              for x,entity in ipairs(localEntities) do
                if string.find(entity.name,"Teleporter_Beacon")  then
                  if entity.energy > 10000 then
                    TBHasEnergy = true
                    entity.energy = entity.energy - 10000000
                    equip.energy = equip.energy - 2000000
                    game.players[event.element.player_index].teleport({TelporterLocation[2],TelporterLocation[3]})
                  end
                end
              end
              --equip.energy = equip.energy - 2000000
              --local data = split(event.element.name,"_")
              --local telaportLocIndex = tonumber(data[1])
              --game.players[event.element.player_index].teleport({TelporterLocation[2],TelporterLocation[3]})
            end
          end
        end
      end
	  end
		if noPT then
			player.print("You need a Personal Teleporter in you Power Armour before you can Teleport")
		elseif PTHasEnergy == false then
			player.print("Not enough energy in Personal Telaporter, it takes 2MJ to teleport")
		elseif TBHasEnergy == false then
			player.print("The Teleporter Beacon at your requested destination does not have enough energy, it needs 10MJ")
		end
    
  elseif endsWith(event.element.name, "_TelaportRename") then
    if guiTelSettingRenameWindowVisible then
      return
    end
    local data = split(event.element.name,"_")
    local telaportLocIndex = tonumber(data[1])
    guiTelSettingRenameWindowVisible = true
    createTelaPortRenameWindow(player.gui.center,telaportLocIndex,global.TelaportLocations[telaportLocIndex][1])
   
  elseif event.element.name == "TelaportRenameCancel" then
    if guiTelSettingRenameWindowVisible then
      player.gui.center.TelaportRenameWindow.destroy()
      guiTelSettingRenameWindowVisible = false
    end
	
	elseif event.element.name == "teleportPageBack" then
		if global.guiTelSetting.page > 1 then
			global.guiTelSetting.page = global.guiTelSetting.page -1
			creatTelportWindow(player)
		end
			
	elseif event.element.name == "teleportPageForward" then
    local Count = 0
    for Index, Value in pairs( global.TelaportLocations ) do
      Count = Count + 1
    end
		if Count > global.guiTelSetting.page *10 then
			global.guiTelSetting.page = global.guiTelSetting.page + 1
			creatTelportWindow(player)
		end
	
 elseif endsWith(event.element.name,"_TelaportRenameOK") then
    local data = split(event.element.name,"_")
    local TelaportIndex = data[1]
    if guiTelSettingRenameWindowVisible and TelaportIndex ~= nil then
      TelaportIndex = tonumber(TelaportIndex)
      local newName = player.gui.center.TelaportRenameWindow.TelaportRenameText.text
      if newName ~= nil then
        newName = cleanupName(newName)
        if newName ~= ""  then
          global.TelaportLocations[TelaportIndex][1] = newName
          player.gui.center.TelaportRenameWindow.destroy()
          guiTelSettingRenameWindowVisible = false
          if global.guiTelSetting.visiable == true then 
            creatTelportWindow(game.players[1])
          end
        end
      end
    end
  
	elseif endsWith(event.element.name,"_MoveUp") then
		local data = split(event.element.name,"_")
		local tpIndex = data[1]
		if tpIndex == nil 	then return end
		tpIndex = tonumber(tpIndex)
		if tpIndex < 2 		then return end
		local tempTP = global.TelaportLocations[tpIndex]
		global.TelaportLocations[tpIndex] = global.TelaportLocations[tpIndex - 1]
		global.TelaportLocations[tpIndex - 1] = tempTP
		--reopen window
		global.guiTelSetting.visiable = false;
		global.guiTelSetting.window.destroy()
		creatTelportWindow(player)
  
	elseif endsWith(event.element.name,"_MoveDown") then
		local data = split(event.element.name,"_")
		local tpIndex = data[1]
		if tpIndex == nil then
      return
    end
		tpIndex = tonumber(tpIndex)
		if tpIndex > #global.TelaportLocations - 1 then
      return
    end
		local tempTP = global.TelaportLocations[tpIndex]
		global.TelaportLocations[tpIndex] = global.TelaportLocations[tpIndex + 1]
		global.TelaportLocations[tpIndex + 1] = tempTP
		--reopen window
		global.guiTelSetting.visiable = false;
		global.guiTelSetting.window.destroy()
		creatTelportWindow(player)
	
  end
end)

Code for drawing function - createTelaPortLocationFrame

Code: Select all

function  createTelaPortLocationFrame(Telaport,index,gui)
	local frame = gui.add({type="frame", name=index .. "_TeleportInfoFrame", direction="horizontal", style="blueprint_thin_frame"})
    local buttonFlow = frame.add({type="flow", name=index .. "_InfoButtonFlow", direction="horizontal", style="blueprint_button_flow"})
  --  buttonFlow.add({type="button", name=index .. "_blueprintInfoDelete", caption={"btn-blueprint-delete"}, style="blueprint_button_style"})
  --  buttonFlow.add({type="button", name=index .. "_blueprintInfoLoad", caption={"btn-blueprint-load"}, style="blueprint_button_style"})
    buttonFlow.add({type="button", name=index .. "_TelaportTo", caption="T", style="blueprint_button_style"})
    buttonFlow.add({type="button", name=index .. "_TelaportRename", caption="N", style="blueprint_button_style"})
    local suffix
    if index > 1 then
      suffix = " "
    else
      suffix = "|"
    end
    buttonFlow.add({type="button", name=index .. "_MoveUp", caption=suffix .. "<", style="blueprint_button_style"})
    if index < #global.TelaportLocations then
      suffix = " "
    else
      suffix = "|"
    end
    buttonFlow.add({type="button", name=index .. "_MoveDown", caption=">" .. suffix, style="blueprint_button_style"})
    local label = frame.add({type="label", name=index .. "_TelaportInfoName", caption=Telaport[1], style="blueprint_label_style"})
   
  end

[apriori]

• Fixed game crash when trying to teleport to dismounted or destroyed TP-beacons. Unfortunately now mod doesn't delete GUI-button for such TP-beacons.
• GUI-buttons of beacons become reorderable.
• Multisurface support. Now beacons know on which surfaces they are placed, so you can TP between surfaces if you have TP-beacons there. Be careful with Factorissimo, because this mod doesn't destroy surface and it's content after factory has been destroyed; and you can TP into dismounted factory too. It's a bug, I'll try to fix it myself or together with Factorissimo's author.
• Localizable messages and mod's main GUI-button.

control.lua - replace all codelines in file

Code: Select all

--A lot of Thanks to iUltimateLP and his mod SimpleTeleporters for inspiration and for the use of His Code and graphics


require "config"
require "util"
function createTeleportButton(player)
  if player ~= nil then
    local topGui = player.gui.top
    if not topGui.PersonalTeleportTool  then
      topGui.add({type="button", name="PersonalTeleportTool", caption = {"teleport-main-button"}, style="blueprint_button_style"})
      --guiSettings.foremanVisable = true
    end
  end
end

script.on_init(function()
   initializeVaiables()
  --createTeleportButton(game.players[1])
end)
script.on_configuration_changed(function()
   initializeVaiables()
  --createTeleportButton(game.players[1])
end)

script.on_event(defines.events.on_player_created, function(event)
 initializeVaiables()
 if global.TeleporterButtonActivated == true then
 
	local playerNum5 = 1
		
		while game.players[playerNum5] do
			createTeleportButton(game.players[playerNum5])
			playerNum5 = playerNum5 +1
		end
 
	 --for playernum3,player3 in ipairs(game.players) do
	 --createTeleportButton(player3)
	 -- createTeleportButton(game.players[x])
	  --end
  end
end)

function initializeVaiables()
if global.TelaportLocations == nil then
	global.TelaportLocations = {}
	global.TelaportLocations[0] = {}
	global.TeleporterButtonActivated = false
		--global.TelaportLocations[x][1] = name
		--global.TelaportLocations[x][2] = x 
		--global.TelaportLocations[x][3] = y 
		--global.TelaportLocations[x][4] = surface
	end
if global.guiTelSetting == nil then
	global.guiTelSetting = {}
	global.guiTelSetting.visiable = false
	global.guiTelSetting.window = nil
	global.guiTelSetting.page = 1
	
end
end


function creatTelportWindow(Parplayer)



	local player = Parplayer
		local gui = player.gui.left
	if gui.personlaTeleportWindow ~= nil then
		gui.personlaTeleportWindow.destroy()

	end

	global.guiTelSetting.visiable = true
		
	local window = gui.add({type="flow", name="personlaTeleportWindow", direction="vertical", style="blueprint_thin_flow"})
	global.guiTelSetting.window = window
	local buttons = window.add({type="frame", name="blueprintButtons", direction="horizontal", style="blueprint_thin_frame"})
    local buttonFlow = buttons.add({type="flow", name="pageButtonFlow", direction="horizontal", style="blueprint_button_flow"})
local Count = 0
for Index, Value in pairs( global.TelaportLocations ) do
  Count = Count + 1
end
if Count %10 == 0 then
		Count = Count /10
	
	else
		Count = Count /10
		Count = math.floor((Count) +1)
		end
   buttonFlow.add({type="button", name="teleportPageBack", caption="<", style="blueprint_button_style"})
   buttonFlow.add({type="label", name="TelaportInfoPages", caption=global.guiTelSetting.page.."/"..Count, style="blueprint_label_style"})
   buttonFlow.add({type="button", name="teleportPageForward", caption=">", style="blueprint_button_style"})
    displayed = 0
	for i,telaportLoc in ipairs(global.TelaportLocations) do
      if (i > (global.guiTelSetting.page -1) *10) then
        displayed = displayed + 1
        createTelaPortLocationFrame(telaportLoc,i,window)
        if displayed >= 10 then
          break
        end
      end
	  
  
    end

end

script.on_event(defines.events.on_gui_click, function(event)
  local refreshWindow = false
  local refreshWindows = false
  local player = game.players[event.element.player_index]
  
  if event.element.name == "PersonalTeleportTool" and global.guiTelSetting.visiable == false then
    creatTelportWindow(player)
  
  elseif event.element.name == "PersonalTeleportTool" and global.guiTelSetting.visiable == true then
    --close window
	  global.guiTelSetting.visiable = false;
	  global.guiTelSetting.window.destroy()
  
  elseif endsWith(event.element.name, "_TelaportTo") then
	  local noPT = true
	  local PTHasEnergy = false
	  local TBHasEnergy = false
	  if player.get_inventory(defines.inventory.player_armor)[1].valid_for_read then    --get_item_count("Personal-Teleporter") > 0 then
      if player.get_inventory(defines.inventory.player_armor)[1].has_grid then
        local equipment = player.get_inventory(defines.inventory.player_armor)[1].grid.equipment
        for indexE,equip in pairs(equipment) do
          if equip.name == "Personal-Teleporter" then
            noPT = false
            if equip.energy > 2000000 then
              PTHasEnergy = true
              local data = split(event.element.name,"_")
              local telaportLocIndex = tonumber(data[1])
              local TelporterLocation = global.TelaportLocations[telaportLocIndex]
              if TelporterLocation == nil then
                return
              end
              --check to see if teleport beakon has power
              local teleportSurface = "nauvis"
              if TelporterLocation[4] ~= nil then
                teleportSurface = TelporterLocation[4]
              end
              local localEntities = game.surfaces[teleportSurface].find_entities({{TelporterLocation[2]-1,TelporterLocation[3]+1},{TelporterLocation[2]+1,TelporterLocation[3]-1}})
              for x,entity in ipairs(localEntities) do
                if string.find(entity.name,"Teleporter_Beacon")  then
                  if entity.energy > 10000 then
                    TBHasEnergy = true
                    entity.energy = entity.energy - 10000000
                    equip.energy = equip.energy - 2000000
                    if TelporterLocation[4] ~= nil then
                      --game.players[event.element.player_index].print("TP to: " .. TelporterLocation[2] .. ", " .. TelporterLocation[3] .. ", " .. TelporterLocation[4] .. ".")
                      game.players[event.element.player_index].teleport({TelporterLocation[2],TelporterLocation[3]},TelporterLocation[4])
                    else
                      --game.players[event.element.player_index].print("TP to: " .. TelporterLocation[2] .. ", " .. TelporterLocation[3] .. ".")
                      game.players[event.element.player_index].teleport({TelporterLocation[2],TelporterLocation[3]},"nauvis")
                    end
                  end
                end
              end
              --equip.energy = equip.energy - 2000000
              --local data = split(event.element.name,"_")
              --local telaportLocIndex = tonumber(data[1])
              --game.players[event.element.player_index].teleport({TelporterLocation[2],TelporterLocation[3]})
            end
          end
        end
      end
	  end
		if noPT then
			player.print({"personal-teleporter-needed"})
		elseif PTHasEnergy == false then
			player.print({"low-power-PT"})
		elseif TBHasEnergy == false then
			player.print({"low-power-TB"})
		end
    
  elseif endsWith(event.element.name, "_TelaportRename") then
    if guiTelSettingRenameWindowVisible then
      return
    end
    local data = split(event.element.name,"_")
    local telaportLocIndex = tonumber(data[1])
    guiTelSettingRenameWindowVisible = true
    createTelaPortRenameWindow(player.gui.center,telaportLocIndex,global.TelaportLocations[telaportLocIndex][1])
   
  elseif event.element.name == "TelaportRenameCancel" then
    if guiTelSettingRenameWindowVisible then
      player.gui.center.TelaportRenameWindow.destroy()
      guiTelSettingRenameWindowVisible = false
    end
	
	elseif event.element.name == "teleportPageBack" then
		if global.guiTelSetting.page > 1 then
			global.guiTelSetting.page = global.guiTelSetting.page -1
			creatTelportWindow(player)
		end
			
	elseif event.element.name == "teleportPageForward" then
    local Count = 0
    for Index, Value in pairs( global.TelaportLocations ) do
      Count = Count + 1
    end
		if Count > global.guiTelSetting.page *10 then
			global.guiTelSetting.page = global.guiTelSetting.page + 1
			creatTelportWindow(player)
		end
	
 elseif endsWith(event.element.name,"_TelaportRenameOK") then
    local data = split(event.element.name,"_")
    local TelaportIndex = data[1]
    if guiTelSettingRenameWindowVisible and TelaportIndex ~= nil then
      TelaportIndex = tonumber(TelaportIndex)
      local newName = player.gui.center.TelaportRenameWindow.TelaportRenameText.text
      if newName ~= nil then
        newName = cleanupName(newName)
        if newName ~= ""  then
          global.TelaportLocations[TelaportIndex][1] = newName
          player.gui.center.TelaportRenameWindow.destroy()
          guiTelSettingRenameWindowVisible = false
          if global.guiTelSetting.visiable == true then 
            creatTelportWindow(game.players[1])
          end
        end
      end
    end
  
	elseif endsWith(event.element.name,"_MoveUp") then
		local data = split(event.element.name,"_")
		local tpIndex = data[1]
		if tpIndex == nil 	then return end
		tpIndex = tonumber(tpIndex)
		if tpIndex < 2 		then return end
		local tempTP = global.TelaportLocations[tpIndex]
		global.TelaportLocations[tpIndex] = global.TelaportLocations[tpIndex - 1]
		global.TelaportLocations[tpIndex - 1] = tempTP
		--reopen window
		global.guiTelSetting.visiable = false;
		global.guiTelSetting.window.destroy()
		creatTelportWindow(player)
  
	elseif endsWith(event.element.name,"_MoveDown") then
		local data = split(event.element.name,"_")
		local tpIndex = data[1]
		if tpIndex == nil then
      return
    end
		tpIndex = tonumber(tpIndex)
		if tpIndex > #global.TelaportLocations - 1 then
      return
    end
		local tempTP = global.TelaportLocations[tpIndex]
		global.TelaportLocations[tpIndex] = global.TelaportLocations[tpIndex + 1]
		global.TelaportLocations[tpIndex + 1] = tempTP
		--reopen window
		global.guiTelSetting.visiable = false;
		global.guiTelSetting.window.destroy()
		creatTelportWindow(player)
	
  end
end)
  
  
  function cleanupName(name)
  return string.gsub(name, "[\\.?~!@#$%^&*(){}\"']", "")
end


  function createTelaPortRenameWindow(gui,TelportIndex,oldName)
	local frame = gui.add({type="frame", name="TelaportRenameWindow", direction="vertical", caption="Teleport Location Rename"})
    frame.add({type="textfield", name="TelaportRenameText"})
    frame.TelaportRenameText.text = oldName

    local flow = frame.add({type="flow", name="TelaportRenameFlow", direction="horizontal"})
    flow.add({type="button", name="TelaportRenameCancel", caption="Cancel"})
    flow.add({type="button", name=TelportIndex .. "_TelaportRenameOK" , caption="OK"})

    return frame
  
  end
  
  --big thanks to Foreman mod
function  createTelaPortLocationFrame(Telaport,index,gui)
	local frame = gui.add({type="frame", name=index .. "_TeleportInfoFrame", direction="horizontal", style="blueprint_thin_frame"})
    local buttonFlow = frame.add({type="flow", name=index .. "_InfoButtonFlow", direction="horizontal", style="blueprint_button_flow"})
  --  buttonFlow.add({type="button", name=index .. "_blueprintInfoDelete", caption={"btn-blueprint-delete"}, style="blueprint_button_style"})
  --  buttonFlow.add({type="button", name=index .. "_blueprintInfoLoad", caption={"btn-blueprint-load"}, style="blueprint_button_style"})
    buttonFlow.add({type="button", name=index .. "_TelaportTo", caption="T", style="blueprint_button_style"})
    buttonFlow.add({type="button", name=index .. "_TelaportRename", caption="N", style="blueprint_button_style"})
    local suffix
    if index > 1 then
      suffix = " "
    else
      suffix = "|"
    end
    buttonFlow.add({type="button", name=index .. "_MoveUp", caption=suffix .. "<", style="blueprint_button_style"})
    if index < #global.TelaportLocations then
      suffix = " "
    else
      suffix = "|"
    end
    buttonFlow.add({type="button", name=index .. "_MoveDown", caption=">" .. suffix, style="blueprint_button_style"})
    local label = frame.add({type="label", name=index .. "_TelaportInfoName", caption=Telaport[1], style="blueprint_label_style"})
   
  end
  
  
script.on_event(defines.events.on_built_entity, function(event)
	if string.find(event.created_entity.name,"Teleporter_Beacon") then
		--add telaporter to telaportLoc
		local x = event.created_entity.position.x
		local y = event.created_entity.position.y
		local surface = event.created_entity.surface.name
		
		 initializeVaiables()
		
		table.insert(global.TelaportLocations,{"x:"..x..",y:"..y..",s:"..surface,x,y,surface})
		global.TeleporterButtonActivated = true
		local playerNum = 1
		
		while game.players[playerNum] do
			createTeleportButton(game.players[playerNum])
			playerNum = playerNum +1
		end
		
		--for playerNum,playerLoop1 in ipairs(game.players) do
			--game.players[1].print("here 3")
			--createTeleportButton(playerLoop1)
		--end
		if global.guiTelSetting.visiable == true then 
		
			local playerNum1 = 1
		
			while game.players[playerNum1] do
				creatTelportWindow(game.players[playerNum1])
				playerNum1 = playerNum1 +1
			end
		
		
		
			--for playerNum2,playerLoop2 in ipairs(game.players) do
			--game.players[1].print("here 6")
			--	creatTelportWindow(playerLoop2)
			--end
		end
	end

end)

script.on_event(defines.events.on_robot_built_entity, function(event)
	if string.find(event.created_entity.name,"Teleporter_Beacon") then
		--add telaporter to telaportLoc
		local x = event.created_entity.position.x
		local y = event.created_entity.position.y
    local surface = event.created_entity.surface.name
		
		 initializeVaiables()
		
		table.insert(global.TelaportLocations,{"x:"..x..",y:"..y..",s:"..surface,x,y,surface})
		global.TeleporterButtonActivated = true
		local playerNum = 1
		
		while game.players[playerNum] do
			createTeleportButton(game.players[playerNum])
			playerNum = playerNum +1
		end
		
		--for playerNum,playerLoop1 in ipairs(game.players) do
			--game.players[1].print("here 3")
			--createTeleportButton(playerLoop1)
		--end
		if global.guiTelSetting.visiable == true then 
		
			local playerNum1 = 1
		
			while game.players[playerNum1] do
				creatTelportWindow(game.players[playerNum1])
				playerNum1 = playerNum1 +1
			end
		
		
		
			--for playerNum2,playerLoop2 in ipairs(game.players) do
			--game.players[1].print("here 6")
			--	creatTelportWindow(playerLoop2)
			--end
		end
	end

end)


script.on_event(defines.events.on_robot_mined, function(event)
	if string.find(event.item_stack.name ,"Teleporter_Beacon") then
		updateTelporterList()
	end


end)


script.on_event(defines.events.on_player_mined_item, function(event)
	if string.find(event.item_stack.name ,"Teleporter_Beacon") then
		updateTelporterList()
	end


end)



script.on_event(defines.events.on_entity_died, function(event)
	if string.find(event.entity.name ,"Teleporter_Beacon") then
		updateTelporterList()
	end


end)

function updateTelporterList()
	for i,telaportLoc in ipairs(global.TelaportLocations) do
    if (i > 0) then
      local teleportSurface = "nauvis"
      if telaportLoc[4] ~= nil then
        teleportSurface = telaportLoc[4]
      end
      local localEntities = game.surfaces[teleportSurface].find_entities({{telaportLoc[2]-1,telaportLoc[3]+1},{telaportLoc[2]+1,telaportLoc[3]-1}})
      --local localEntities = game.surfaces["nauvis"].find_entity("T",{telaportLoc[2],telaportLoc[3]})
      local destoryed = true
      for x,entity in ipairs(localEntities) do
        if string.find(entity.name,"Teleporter_Beacon") then
          if entity.type == "accumulator" then
            if entity.health > 0 then
              destoryed = false
            end
          end
        end
      end
      if destoryed == true then
        removeTelFromList(i)
      end
    end
  end
end

function removeTelFromList(localTelIndex)
	table.remove(global.TelaportLocations,localTelIndex)
	if global.guiTelSetting.visiable == true then 
		for x,player in ipairs(game.players) do
				creatTelportWindow(player)
			end
		end
end


--thanks to Foreman modd
function endsWith(String,End)
  return End=='' or string.sub(String,-string.len(End))==End
end

function split(stringA, sep)
  local sep, fields = sep or ":", {}
  local pattern = string.format("([^%s]+)", sep)
  string.gsub(stringA, pattern, function(c) fields[#fields+1] = c end)
  return fields
end

en locale - paste in the beginning of locale.cfg

Code: Select all

personal-teleporter-needed = You need a Personal Teleporter in you Power Armour before you can Teleport.
low-power-PT = Not enough energy in Personal Telaporter, it takes 2MJ to teleport.
low-power-TB = The Teleporter Beacon at your requested destination does not have enough energy, it needs 10MJ.

teleport-main-button = Teleport

[WhatheWorld]

• Fixed game crash when trying to teleport to dismounted or destroyed TP-beacons. Unfortunately now mod doesn't delete GUI-button for such TP-beacons.
• GUI-buttons of beacons become reorderable.
• Multisurface support. Now beacons know on which surfaces they are placed, so you can TP between surfaces if you have TP-beacons there. Be careful with Factorissimo, because this mod doesn't destroy surface and it's content after factory has been destroyed; and you can TP into dismounted factory too. It's a bug, I'll try to fix it myself or together with Factorissimo's author.
• Localizable messages and mod's main GUI-button.

control.lua - replace all codelines in file

Code: Select all

--A lot of Thanks to iUltimateLP and his mod SimpleTeleporters for inspiration and for the use of His Code and graphics


require "config"
require "util"
function createTeleportButton(player)
  if player ~= nil then
    local topGui = player.gui.top
    if not topGui.PersonalTeleportTool  then
      topGui.add({type="button", name="PersonalTeleportTool", caption = {"teleport-main-button"}, style="blueprint_button_style"})
      --guiSettings.foremanVisable = true
    end
  end
end

script.on_init(function()
   initializeVaiables()
  --createTeleportButton(game.players[1])
end)
script.on_configuration_changed(function()
   initializeVaiables()
  --createTeleportButton(game.players[1])
end)

script.on_event(defines.events.on_player_created, function(event)
 initializeVaiables()
 if global.TeleporterButtonActivated == true then
 
	local playerNum5 = 1
		
		while game.players[playerNum5] do
			createTeleportButton(game.players[playerNum5])
			playerNum5 = playerNum5 +1
		end
 
	 --for playernum3,player3 in ipairs(game.players) do
	 --createTeleportButton(player3)
	 -- createTeleportButton(game.players[x])
	  --end
  end
end)

function initializeVaiables()
if global.TelaportLocations == nil then
	global.TelaportLocations = {}
	global.TelaportLocations[0] = {}
	global.TeleporterButtonActivated = false
		--global.TelaportLocations[x][1] = name
		--global.TelaportLocations[x][2] = x 
		--global.TelaportLocations[x][3] = y 
		--global.TelaportLocations[x][4] = surface
	end
if global.guiTelSetting == nil then
	global.guiTelSetting = {}
	global.guiTelSetting.visiable = false
	global.guiTelSetting.window = nil
	global.guiTelSetting.page = 1
	
end
end


function creatTelportWindow(Parplayer)



	local player = Parplayer
		local gui = player.gui.left
	if gui.personlaTeleportWindow ~= nil then
		gui.personlaTeleportWindow.destroy()

	end

	global.guiTelSetting.visiable = true
		
	local window = gui.add({type="flow", name="personlaTeleportWindow", direction="vertical", style="blueprint_thin_flow"})
	global.guiTelSetting.window = window
	local buttons = window.add({type="frame", name="blueprintButtons", direction="horizontal", style="blueprint_thin_frame"})
    local buttonFlow = buttons.add({type="flow", name="pageButtonFlow", direction="horizontal", style="blueprint_button_flow"})
local Count = 0
for Index, Value in pairs( global.TelaportLocations ) do
  Count = Count + 1
end
if Count %10 == 0 then
		Count = Count /10
	
	else
		Count = Count /10
		Count = math.floor((Count) +1)
		end
   buttonFlow.add({type="button", name="teleportPageBack", caption="<", style="blueprint_button_style"})
   buttonFlow.add({type="label", name="TelaportInfoPages", caption=global.guiTelSetting.page.."/"..Count, style="blueprint_label_style"})
   buttonFlow.add({type="button", name="teleportPageForward", caption=">", style="blueprint_button_style"})
    displayed = 0
	for i,telaportLoc in ipairs(global.TelaportLocations) do
      if (i > (global.guiTelSetting.page -1) *10) then
        displayed = displayed + 1
        createTelaPortLocationFrame(telaportLoc,i,window)
        if displayed >= 10 then
          break
        end
      end
	  
  
    end

end

script.on_event(defines.events.on_gui_click, function(event)
  local refreshWindow = false
  local refreshWindows = false
  local player = game.players[event.element.player_index]
  
  if event.element.name == "PersonalTeleportTool" and global.guiTelSetting.visiable == false then
    creatTelportWindow(player)
  
  elseif event.element.name == "PersonalTeleportTool" and global.guiTelSetting.visiable == true then
    --close window
	  global.guiTelSetting.visiable = false;
	  global.guiTelSetting.window.destroy()
  
  elseif endsWith(event.element.name, "_TelaportTo") then
	  local noPT = true
	  local PTHasEnergy = false
	  local TBHasEnergy = false
	  if player.get_inventory(defines.inventory.player_armor)[1].valid_for_read then    --get_item_count("Personal-Teleporter") > 0 then
      if player.get_inventory(defines.inventory.player_armor)[1].has_grid then
        local equipment = player.get_inventory(defines.inventory.player_armor)[1].grid.equipment
        for indexE,equip in pairs(equipment) do
          if equip.name == "Personal-Teleporter" then
            noPT = false
            if equip.energy > 2000000 then
              PTHasEnergy = true
              local data = split(event.element.name,"_")
              local telaportLocIndex = tonumber(data[1])
              local TelporterLocation = global.TelaportLocations[telaportLocIndex]
              if TelporterLocation == nil then
                return
              end
              --check to see if teleport beakon has power
              local teleportSurface = "nauvis"
              if TelporterLocation[4] ~= nil then
                teleportSurface = TelporterLocation[4]
              end
              local localEntities = game.surfaces[teleportSurface].find_entities({{TelporterLocation[2]-1,TelporterLocation[3]+1},{TelporterLocation[2]+1,TelporterLocation[3]-1}})
              for x,entity in ipairs(localEntities) do
                if string.find(entity.name,"Teleporter_Beacon")  then
                  if entity.energy > 10000 then
                    TBHasEnergy = true
                    entity.energy = entity.energy - 10000000
                    equip.energy = equip.energy - 2000000
                    if TelporterLocation[4] ~= nil then
                      --game.players[event.element.player_index].print("TP to: " .. TelporterLocation[2] .. ", " .. TelporterLocation[3] .. ", " .. TelporterLocation[4] .. ".")
                      game.players[event.element.player_index].teleport({TelporterLocation[2],TelporterLocation[3]},TelporterLocation[4])
                    else
                      --game.players[event.element.player_index].print("TP to: " .. TelporterLocation[2] .. ", " .. TelporterLocation[3] .. ".")
                      game.players[event.element.player_index].teleport({TelporterLocation[2],TelporterLocation[3]},"nauvis")
                    end
                  end
                end
              end
              --equip.energy = equip.energy - 2000000
              --local data = split(event.element.name,"_")
              --local telaportLocIndex = tonumber(data[1])
              --game.players[event.element.player_index].teleport({TelporterLocation[2],TelporterLocation[3]})
            end
          end
        end
      end
	  end
		if noPT then
			player.print({"personal-teleporter-needed"})
		elseif PTHasEnergy == false then
			player.print({"low-power-PT"})
		elseif TBHasEnergy == false then
			player.print({"low-power-TB"})
		end
    
  elseif endsWith(event.element.name, "_TelaportRename") then
    if guiTelSettingRenameWindowVisible then
      return
    end
    local data = split(event.element.name,"_")
    local telaportLocIndex = tonumber(data[1])
    guiTelSettingRenameWindowVisible = true
    createTelaPortRenameWindow(player.gui.center,telaportLocIndex,global.TelaportLocations[telaportLocIndex][1])
   
  elseif event.element.name == "TelaportRenameCancel" then
    if guiTelSettingRenameWindowVisible then
      player.gui.center.TelaportRenameWindow.destroy()
      guiTelSettingRenameWindowVisible = false
    end
	
	elseif event.element.name == "teleportPageBack" then
		if global.guiTelSetting.page > 1 then
			global.guiTelSetting.page = global.guiTelSetting.page -1
			creatTelportWindow(player)
		end
			
	elseif event.element.name == "teleportPageForward" then
    local Count = 0
    for Index, Value in pairs( global.TelaportLocations ) do
      Count = Count + 1
    end
		if Count > global.guiTelSetting.page *10 then
			global.guiTelSetting.page = global.guiTelSetting.page + 1
			creatTelportWindow(player)
		end
	
 elseif endsWith(event.element.name,"_TelaportRenameOK") then
    local data = split(event.element.name,"_")
    local TelaportIndex = data[1]
    if guiTelSettingRenameWindowVisible and TelaportIndex ~= nil then
      TelaportIndex = tonumber(TelaportIndex)
      local newName = player.gui.center.TelaportRenameWindow.TelaportRenameText.text
      if newName ~= nil then
        newName = cleanupName(newName)
        if newName ~= ""  then
          global.TelaportLocations[TelaportIndex][1] = newName
          player.gui.center.TelaportRenameWindow.destroy()
          guiTelSettingRenameWindowVisible = false
          if global.guiTelSetting.visiable == true then 
            creatTelportWindow(game.players[1])
          end
        end
      end
    end
  
	elseif endsWith(event.element.name,"_MoveUp") then
		local data = split(event.element.name,"_")
		local tpIndex = data[1]
		if tpIndex == nil 	then return end
		tpIndex = tonumber(tpIndex)
		if tpIndex < 2 		then return end
		local tempTP = global.TelaportLocations[tpIndex]
		global.TelaportLocations[tpIndex] = global.TelaportLocations[tpIndex - 1]
		global.TelaportLocations[tpIndex - 1] = tempTP
		--reopen window
		global.guiTelSetting.visiable = false;
		global.guiTelSetting.window.destroy()
		creatTelportWindow(player)
  
	elseif endsWith(event.element.name,"_MoveDown") then
		local data = split(event.element.name,"_")
		local tpIndex = data[1]
		if tpIndex == nil then
      return
    end
		tpIndex = tonumber(tpIndex)
		if tpIndex > #global.TelaportLocations - 1 then
      return
    end
		local tempTP = global.TelaportLocations[tpIndex]
		global.TelaportLocations[tpIndex] = global.TelaportLocations[tpIndex + 1]
		global.TelaportLocations[tpIndex + 1] = tempTP
		--reopen window
		global.guiTelSetting.visiable = false;
		global.guiTelSetting.window.destroy()
		creatTelportWindow(player)
	
  end
end)
  
  
  function cleanupName(name)
  return string.gsub(name, "[\\.?~!@#$%^&*(){}\"']", "")
end


  function createTelaPortRenameWindow(gui,TelportIndex,oldName)
	local frame = gui.add({type="frame", name="TelaportRenameWindow", direction="vertical", caption="Teleport Location Rename"})
    frame.add({type="textfield", name="TelaportRenameText"})
    frame.TelaportRenameText.text = oldName

    local flow = frame.add({type="flow", name="TelaportRenameFlow", direction="horizontal"})
    flow.add({type="button", name="TelaportRenameCancel", caption="Cancel"})
    flow.add({type="button", name=TelportIndex .. "_TelaportRenameOK" , caption="OK"})

    return frame
  
  end
  
  --big thanks to Foreman mod
function  createTelaPortLocationFrame(Telaport,index,gui)
	local frame = gui.add({type="frame", name=index .. "_TeleportInfoFrame", direction="horizontal", style="blueprint_thin_frame"})
    local buttonFlow = frame.add({type="flow", name=index .. "_InfoButtonFlow", direction="horizontal", style="blueprint_button_flow"})
  --  buttonFlow.add({type="button", name=index .. "_blueprintInfoDelete", caption={"btn-blueprint-delete"}, style="blueprint_button_style"})
  --  buttonFlow.add({type="button", name=index .. "_blueprintInfoLoad", caption={"btn-blueprint-load"}, style="blueprint_button_style"})
    buttonFlow.add({type="button", name=index .. "_TelaportTo", caption="T", style="blueprint_button_style"})
    buttonFlow.add({type="button", name=index .. "_TelaportRename", caption="N", style="blueprint_button_style"})
    local suffix
    if index > 1 then
      suffix = " "
    else
      suffix = "|"
    end
    buttonFlow.add({type="button", name=index .. "_MoveUp", caption=suffix .. "<", style="blueprint_button_style"})
    if index < #global.TelaportLocations then
      suffix = " "
    else
      suffix = "|"
    end
    buttonFlow.add({type="button", name=index .. "_MoveDown", caption=">" .. suffix, style="blueprint_button_style"})
    local label = frame.add({type="label", name=index .. "_TelaportInfoName", caption=Telaport[1], style="blueprint_label_style"})
   
  end
  
  
script.on_event(defines.events.on_built_entity, function(event)
	if string.find(event.created_entity.name,"Teleporter_Beacon") then
		--add telaporter to telaportLoc
		local x = event.created_entity.position.x
		local y = event.created_entity.position.y
		local surface = event.created_entity.surface.name
		
		 initializeVaiables()
		
		table.insert(global.TelaportLocations,{"x:"..x..",y:"..y..",s:"..surface,x,y,surface})
		global.TeleporterButtonActivated = true
		local playerNum = 1
		
		while game.players[playerNum] do
			createTeleportButton(game.players[playerNum])
			playerNum = playerNum +1
		end
		
		--for playerNum,playerLoop1 in ipairs(game.players) do
			--game.players[1].print("here 3")
			--createTeleportButton(playerLoop1)
		--end
		if global.guiTelSetting.visiable == true then 
		
			local playerNum1 = 1
		
			while game.players[playerNum1] do
				creatTelportWindow(game.players[playerNum1])
				playerNum1 = playerNum1 +1
			end
		
		
		
			--for playerNum2,playerLoop2 in ipairs(game.players) do
			--game.players[1].print("here 6")
			--	creatTelportWindow(playerLoop2)
			--end
		end
	end

end)

script.on_event(defines.events.on_robot_built_entity, function(event)
	if string.find(event.created_entity.name,"Teleporter_Beacon") then
		--add telaporter to telaportLoc
		local x = event.created_entity.position.x
		local y = event.created_entity.position.y
    local surface = event.created_entity.surface.name
		
		 initializeVaiables()
		
		table.insert(global.TelaportLocations,{"x:"..x..",y:"..y..",s:"..surface,x,y,surface})
		global.TeleporterButtonActivated = true
		local playerNum = 1
		
		while game.players[playerNum] do
			createTeleportButton(game.players[playerNum])
			playerNum = playerNum +1
		end
		
		--for playerNum,playerLoop1 in ipairs(game.players) do
			--game.players[1].print("here 3")
			--createTeleportButton(playerLoop1)
		--end
		if global.guiTelSetting.visiable == true then 
		
			local playerNum1 = 1
		
			while game.players[playerNum1] do
				creatTelportWindow(game.players[playerNum1])
				playerNum1 = playerNum1 +1
			end
		
		
		
			--for playerNum2,playerLoop2 in ipairs(game.players) do
			--game.players[1].print("here 6")
			--	creatTelportWindow(playerLoop2)
			--end
		end
	end

end)


script.on_event(defines.events.on_robot_mined, function(event)
	if string.find(event.item_stack.name ,"Teleporter_Beacon") then
		updateTelporterList()
	end


end)


script.on_event(defines.events.on_player_mined_item, function(event)
	if string.find(event.item_stack.name ,"Teleporter_Beacon") then
		updateTelporterList()
	end


end)



script.on_event(defines.events.on_entity_died, function(event)
	if string.find(event.entity.name ,"Teleporter_Beacon") then
		updateTelporterList()
	end


end)

function updateTelporterList()
	for i,telaportLoc in ipairs(global.TelaportLocations) do
    if (i > 0) then
      local teleportSurface = "nauvis"
      if telaportLoc[4] ~= nil then
        teleportSurface = telaportLoc[4]
      end
      local localEntities = game.surfaces[teleportSurface].find_entities({{telaportLoc[2]-1,telaportLoc[3]+1},{telaportLoc[2]+1,telaportLoc[3]-1}})
      --local localEntities = game.surfaces["nauvis"].find_entity("T",{telaportLoc[2],telaportLoc[3]})
      local destoryed = true
      for x,entity in ipairs(localEntities) do
        if string.find(entity.name,"Teleporter_Beacon") then
          if entity.type == "accumulator" then
            if entity.health > 0 then
              destoryed = false
            end
          end
        end
      end
      if destoryed == true then
        removeTelFromList(i)
      end
    end
  end
end

function removeTelFromList(localTelIndex)
	table.remove(global.TelaportLocations,localTelIndex)
	if global.guiTelSetting.visiable == true then 
		for x,player in ipairs(game.players) do
				creatTelportWindow(player)
			end
		end
end


--thanks to Foreman modd
function endsWith(String,End)
  return End=='' or string.sub(String,-string.len(End))==End
end

function split(stringA, sep)
  local sep, fields = sep or ":", {}
  local pattern = string.format("([^%s]+)", sep)
  string.gsub(stringA, pattern, function(c) fields[#fields+1] = c end)
  return fields
end

en locale - paste in the beginning of locale.cfg

Code: Select all

personal-teleporter-needed = You need a Personal Teleporter in you Power Armour before you can Teleport.
low-power-PT = Not enough energy in Personal Telaporter, it takes 2MJ to teleport.
low-power-TB = The Teleporter Beacon at your requested destination does not have enough energy, it needs 10MJ.

teleport-main-button = Teleport

Hey I have setup a GitHub at (https://github.com/WhatheWorld/PersonalTeleporter) you can submit code there now and I will test and review it to be added to the official mod.

Thanks for the great idea.

[apriori]

I've also tried to make teleporters available to the force (not to all - just to it's creator and his "friends" by force), but soon became tired and stopped coding... Refactoring was too boring.
And wanted to change "Teleport"-button text to image. How to do it - you can see in any mod with graphical button (for example Orbital Ion Cannon).

I'm too lazy contributor.

[Airat9000]

It would be nice to do things, and teleport goods. it would be even brilliant!

[apriori]

It would be nice to do things, and teleport goods. it would be even brilliant!

It's PERSONAL teleporter. I think there's no need to include such functionality into this mod. It would be better to make another one for it.

[credomane]

Might I offer a suggestion? Currently this mod is nigh worthless to anyone, well me anyways, that isn't making a mega base due to the extreme requirements to not only research the tech but to also make the device to even use the teleporters.

Split the research into two.

1st part is available roughly mid-game enables the manufacture of teleporter pads. This research should be mildly expensive, 1x500 of every science pack, and depend on military 4 as a prerequisite. When a player clicks the "teleport" button the mod should check if they are on a teleporter pad. If they are then they are teleported to the desired destination pad. If they are not then give them the message around not being on a pad and do not have the personal teleporter device.

2nd part will be the super expensive tech, 4x2000 of every science pack. This unlocks the personal teleporter device and the tech still depends rocket silo research and adds military 4 research dependency.

The recipes for the items remain unchanged.

[apriori]

deleted

[Airat9000]

14.1 bug

[WhatheWorld]

14.1 bug

Yes I know about this bug I will release a .14 version of the mod soon. I don't know where you got a .14 version of the mod but there is no official .14 version of Personal Teleporter out yet.

[WhatheWorld]

Have added version 0.1.7 of Personal Teleporter Works with version 0.14.1 of factorio.

https://mods.factorio.com/mods/jroberts ... Teleporter

[WhatheWorld]

Version 0.1.8
changes
-Teleporter Beacons now show up on map with their name!!
-Personal Teleporter now only cost 10 Fusion Reactors instead of 100

https://mods.factorio.com/mods/jroberts ... Teleporter

[iUltimateLP]

Heh, a friend of mine saw this and told me, nice to see that my mod has been extended is now used by more people

[ownlyme]

It seems to be incompatible with logistic train network...