Thread Rating:
  • 3 Vote(s) - 2.67 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Taking Data from file and putting into field
#1
Code:
Teleport = { }
Teleport.coordspath = GetStartupPath() .. [[\LuaMods\Teleport\Coords\]];
Teleport.CoordsProfile = {}
Teleport.lastticks = 0
Teleport.running = false
Teleport.curTask = nil
Teleport.CoordsFiles = {}
Teleport.UIRefreshPending = false
Teleport.UIRefreshTmr = 0

-------------------------------------------------
--             Made by Breckdareck             --
--        Will try to add more soon            --
--Just now learning how to code lua and its fun--
--Thanks to MMOMinion for the code and allowing--
--           the use of add on scripts!        --
--                                             --
--    I hope maybe i could work for you!!      --
-------------------------------------------------

function Teleport.teleport()

    if (Settings.FFXIVMINION.clickteleactive == nil) then
        Settings.FFXIVMINION.clickteleactive = "0"
    end
    
    if (Settings.FFXIVMINION.coordsname == nil) then
        Settings.FFXIVMINION.coordsname = "None"
    end

    GUI_NewWindow("Teleport",400,100,250,430)

    -- Navigation functions
    GUI_NewField("Teleport","X: ","tb_xPos","Teleport Coords")
    GUI_NewField("Teleport","Y: ","tb_yPos","Teleport Coords")
    GUI_NewField("Teleport","Z: ","tb_zPos","Teleport Coords")
    
    --Target Coords
    GUI_NewField("Teleport","Name","TargetName","TargetInfo")
    GUI_NewField("Teleport","X:","TargetPosX","TargetInfo")
    GUI_NewField("Teleport","Y:","TargetPosY","TargetInfo")
    GUI_NewField("Teleport","Z:","TargetPosZ","TargetInfo")
    
    --Save Coords
    GUI_NewField("Teleport","Coords name: ","coordsnewname","Coords Save")
    GUI_NewButton("Teleport","SaveCoords","SaveCoord","Coords Save")
    RegisterEventHandler("SaveCoord", Teleport.Save)
    
    --Saved Coords
    GUI_NewComboBox("Teleport","Coords Name: ","coordsname","Saved Coords","")
    GUI_NewField("Teleport","X:","SavedX","Saved Coords")
    GUI_NewField("Teleport","Y:","SavedY","Saved Coords")
    GUI_NewField("Teleport","Z:","SavedZ","Saved Coords")
    
    --Get Coords Button
    GUI_NewButton("Teleport","GetCurrentPos","Teleport.playerPosition")
    RegisterEventHandler("Teleport.playerPosition", Teleport.Move)    
    
    --Teleport to Saved Coords Button
    GUI_NewButton("Teleport","Tele2SavedCoords","Teleport.saved")
    RegisterEventHandler("Teleport.saved", Teleport.Move4)
    
    --Teleport to Target Button
    GUI_NewButton("Teleport","Tele2Target","Teleport.target")
    RegisterEventHandler("Teleport.target", Teleport.Move2)
    
    --Teleport Button    
    GUI_NewButton("Teleport","Teleport","Teleport.teleport")
    RegisterEventHandler("Teleport.teleport", Teleport.Move)    
    tb_nPoints = 0
    
    --Show Targets Coords
    GUI_NewButton("Teleport","ShowCoords","Teleport.Test2","TargetInfo")
        
    --Turn on/off Click2Tele
    GUI_NewCheckbox("Teleport","Activated","clickteleactive","ClickTele")


    clickteleactive = Settings.FFXIVMINION.clickteleactive

    coordsnewname = ""
    
    Teleport.CoordsProfile = {}
    Teleport.UpdateCoords()
    Teleport.UpdateCoordsData()
    
    TLE_XCOORD = 0
    TLE_YCOORD = 0
    TLE_ZCOORD = 0
    TLE_IDK = 0
    
    
    GUI_UnFoldGroup("Teleport","Teleport Coords")
    GUI_UnFoldGroup("Teleport","TargetInfo")
    GUI_UnFoldGroup("Teleport","Coords Save")
    GUI_UnFoldGroup("Teleport","Saved Coords")
        
    GUI_WindowVisible("Teleport",true)
    
    GUI_SizeWindow("Teleport",250,425)    

    end
    
    
function Teleport.Move( dir )


    if ( dir == "Teleport.playerPosition") then
            local p = Player.pos
            tb_xPos = tostring(p.x)
            tb_yPos = tostring(p.y)
            tb_zPos = tostring(p.z)
    
    
    elseif( dir == "Teleport.teleport") then
        GameHacks:TeleportToXYZ(tonumber(tb_xPos),tonumber(tb_yPos),tonumber(tb_zPos))
    
    end

    end
    
function Teleport.Move2( dir )


    if ( dir == "Teleport.playerPosition") then
            local p = Player.pos
            TargetPosX = tostring(p.x)
            TargetPosY = tostring(p.y)
            TargetPosZ = tostring(p.z)
    
    
        elseif( dir == "Teleport.target") then
        GameHacks:TeleportToXYZ(tonumber(TargetPosX),tonumber(TargetPosY),tonumber(TargetPosZ))
        
    end
        
    end
    
function Teleport.Move3(event,tickcount)
    
    if ( MeshManager:IsKeyPressed(160) ) then
        GameHacks:TeleportToCursorPosition()
    end
    
    end
    
    
function Teleport.Move4( dir )


    if ( dir == "Teleport.playerPosition") then
    
    
    elseif( dir == "Teleport.saved") then
        GameHacks:TeleportToXYZ(tonumber(SavedX),tonumber(SavedY),tonumber(SavedZ))
    
    end

    end

function Teleport.Update()
    mytarget = Player:GetTarget()
    if (mytarget  ~= nil) then    
        TargetName = mytarget.name
        TargetPosX = (math.floor(mytarget.pos.x * 10) / 10)
        TargetPosY = (math.floor(mytarget.pos.y * 10) / 10)
        TargetPosZ = (math.floor(mytarget.pos.z * 10) / 10)

    end
end

    
function Teleport.Test2()
    Teleport.running = not Teleport.running
    if ( not Teleport.running) then Teleport.curTask = nil end
    d(Teleport.running)
end
    
    
function Teleport.DoTask()
    if (Teleport.curTask) then
        Teleport.curTask()
    end
end
    
--Updates everything
function Teleport.GUIVarUpdate(Event, NewVals, OldVals)
    for k,v in pairs(NewVals) do
        --d(tostring(k).." = "..tostring(v))
        if ( k == "clickteleactive" ) then            
            Settings.FFXIVMINION[tostring(k)] = v
        elseif ( k == "coordsname" )then
            Teleport.CoordsProfile = {}
            Teleport.UpdateCoordsData()
            Settings.FFXIVMINION.coordsname = tostring(v)
        elseif ( k == "TLE_XCOORD") then Teleport.CoordsProfile.XCOord = v
        elseif ( k == "TLE_YCOORD") then Teleport.CoordsProfile.YCOord = v
        elseif ( k == "TLE_ZCOORD") then Teleport.CoordsProfile.ZCOord = v
        elseif ( k == "TLE_IDK") then Teleport.CoordsProfile.idk = v
        end
    end
end


function Teleport.OnUpdateHandler( Event, ticks )     
    if ( ticks - Teleport.lastticks > 500 ) then
        Teleport.lastticks = ticks        
        if ( Teleport.running ) then
            Teleport.Update()
        elseif ( clickteleactive == "1") then
        Teleport.Move3()
        end
    end    
    -- Needed because the UI cant handle clearing + rebuilding of all stuff in the same frame
    if ( Teleport.UIRefreshPending ) then            
        if ( Teleport.UIRefreshTmr == 0 ) then        
            Teleport.UIRefreshTmr = tick            
        elseif( tick - Teleport.UIRefreshTmr > 250 ) then        
            Teleport.UIRefreshTmr = 0            
            Teleport.RefreshSkillList()    
            Teleport.UIRefreshPending = false            
        end        
    end
end
        

--Grasb all Profiles and enlist them in the dropdown field
function Teleport.UpdateCoords()

    local coordsprofiles = "None"
    local found = "None"    
    local coordsprofilelist = dirlist(Teleport.coordspath,".*lua")
    if ( TableSize(coordsprofilelist) > 0) then            
        local i,coordsprofile = next ( coordsprofilelist)
        while i and coordsprofile do                
            coordsprofile = string.gsub(coordsprofile, ".lua", "")
            coordsprofiles = coordsprofiles..","..coordsprofile
            if ( Settings.FFXIVMINION.coordsname ~= nil and Settings.FFXIVMINION.coordsname == coordsprofile ) then
                d("Last Profile found : "..coordsprofile)
                found = coordsprofile
            end
            i,coordsprofile = next ( coordsprofilelist,i)
        end    
    end    
    coordsname_listitems = coordsprofiles
    coordsname = found
end

--Save under new file
function Teleport.Save()
    local xCoord = tonumber(tb_xPos)
    local yCoord = tonumber(tb_yPos)
    local zCoord = tonumber(tb_zPos)
        
    local filename = ""
    local isnew = false
    
    if ( coordsnewname ~= "" ) then
        filename = coordsnewname
        coordsnewname = ""
        isnew = true
    elseif (coordsprofile ~= nil and coordsprofile ~= "None" and coordsprofile ~= "") then
        filename = coordsname
        coordsnewname = ""
    end
    
    if ( filename ~= "" ) then
        local string2write = "TLE_Version_1=1\n"
        local name,coords = next (Teleport.CoordsProfile)
        while name and coords do
        d("Saving Profile Data into File: "..filename)
            string2write = string2write.."TLE_XCOORD="..xCoord.."\n"
            string2write = string2write.."TLE_YCOORD="..yCoord.."\n"
            string2write = string2write.."TLE_ZCOORD="..zCoord.."\n"
            string2write = string2write.."TLE_IDK="..coords.idk.."\n"
            string2write = string2write.."TLE_END=0\n"
            
            name,coords = next (Teleport.CoordsProfile,name)
        end
        d(filewrite(Teleport.coordspath ..filename..".lua",string2write))
        

        if ( isnew ) then
            coordsname_listitems = coordsname_listitems..","..filename
            coordsname = filename
            Settings.FFXIVMINION.coordsname = filename
        end
    end
end

    
function Teleport.UpdateCoordsData()
    if ( coordsname ~= nil and coordsname ~= "" and coordsname ~= "None" ) then
        local profile = fileread(Teleport.coordspath..coordsname..".lua")
        if ( TableSize(profile) > 0) then
        local unsortedCoordsList = {}
        local newcoords = {}
        local i, line = next (profile)

            if ( line ) then
                local version
                -- Check for backwards compatib
                local _, key, id, value = string.match(line, "(%w+)_(%w+)_(%d+)=(.*)")
                if ( tostring(key) == "Version" and tostring(id) == "1") then
                    version = 1
                end
                while i and line do
                    local key, value
                    if ( version == 1 ) then
                        _, key, value = string.match(line, "(%w+)_(%w+)=(.*)")
                    end                    
                    --d("key: "..tostring(key).." value:"..tostring(value))
                    

            if (key and value ) then
                value = string.gsub(value, "\r", "")
                if ( key == "End" )then
                    table.insert(unsortedCoordsList,tonumber(newcoords.idk),newcoords)                        
                    newcoords = {}
                    elseif ( key == "XCOORD") then newcoords.XCOord = tonumber(value)
                    elseif ( key == "YCOORD") then newcoords.YCOord = tonumber(value)
                    elseif ( key == "ZCOORD") then newcoords.ZCOord = tonumber(value)
                    elseif ( key == "IDK") then newcoords.idk = tonumber(value)
                end
            else
                d("Error loading inputline: Key: "..(tostring(key)).." value:"..tostring(value))
            end
            i, line = next (profile,i)
            end    
        end        
    end
    end
end
    


    
RegisterEventHandler("Module.Initalize",Teleport.teleport)
RegisterEventHandler("Gameloop.Update", Teleport.OnUpdateHandler)
RegisterEventHandler("Teleport.Test2", Teleport.Test2)
RegisterEventHandler("GUI.Update",Teleport.GUIVarUpdate)


Everything is Practically done now, all i need is to grab the data from the files and put them into the new Field i have.
Reply
#2
(10-17-2013, 08:31 AM)fxfire Wrote:  ^bug is hree:
coordsprofile_listitems = profiles
coordsprofile = found <----- that is banana

Check when i get on! Thanks for the help, i was reading the getstring from file but since its your own code im not sure how to grab the coords from the file and throw it into a new field.

Ok so i just pull the whole function out of where i had it and threw it into the main function and finally got it to work. Last thing to do is read the file and pull out the coords and throw them into the 3 last boxes.
Reply
 


Forum Jump:


Users browsing this thread: 1 Guest(s)

We help you win the game.

FFXIV Bot and More.

 

Products