Module_RP

--[[=========================
@Module JDR
@Interface de Total RP adapté pour ce script
@Code par Meow/Miaxos
@Version 1
=========================]]--

--Variables
PLAYER_EVENT_ON_LOGIN = 3

print("[INFO] : Module JDR")
--=========================/\Scripts Btns/\=========================
local function UnlockDoor(player, Event, EventParamsTable, ClientFuncRet) -- TO DO
    local gob = player:GetNearestGameObject( 3, 750036)
    if(gob ~= nil) then
        if(gob:GetGoState() == 0) then
            gob:SetGoState(1)
        else
            gob:SetGoState(0)
        end
    else
    player:SendBroadcastMessage(LIGHTRED.."Aucune porte ouverte.")
    end
end
local function Talk(player, Event, EventParamsTable, ClientFuncRet)
    local target = player:GetSelection()
        if target ~= nil then
            if target:GetTypeId() == 4 then --Player
            player:SendBroadcastMessage(LIGHTRED.."Vous ne pouvez utiliser cette action sur un joueur.")
            else
            player:GetData().DialQuestFrameNameText:SetText(LIGHTBLUE..target:GetName())
            player:GetData().DialQuestFrameMainText:SetText("Hum... ?\nOui j'ai la flemme d'ajouter des textes.")
            player:GetData().DialQuestFrame:Show()
            player:GetData().DialQuestFrame:Send(player)
            end
        else
        player:SendBroadcastMessage(LIGHTRED.."Vous n'avez personne à qui parler.")
        end
end
--=========================/\Initialization/\=========================
local function CreateLogin_Frame(event, player)
    local sig = player:GetGUIDLow()
    if player:GetData().frame_created ~= true then --On check si il a déjà ses variables
        player:GetData().signature = sig
        --=========================/\Barre de raccourci/\=========================
        player:GetData().DiagRaccBar = Create_DiagRaccBar(sig, "DiagRaccBar_")

        player:GetData().DiagRaccBar_Title = Create_DiagRaccBar_Title(sig, player:GetData().DiagRaccBar, "DiagRaccBar_Title_", "Test")

        player:GetData().DiagRaccBar_Btn_1 = Create_DiagRaccBar_Btn(sig, "DiagRaccBar_Btn_1_", "Interface/ICONS/Ability_Warrior_StrengthOfArms", player:GetData().DiagRaccBar, 1, nil, true)
        player:GetData().DiagRaccBar_Btn_2 = Create_DiagRaccBar_Btn(sig, "DiagRaccBar_Btn_2_", "Interface/ICONS/INV_Misc_Book_11", player:GetData().DiagRaccBar, 2, nil, true)
        player:GetData().DiagRaccBar_Btn_3 = Create_DiagRaccBar_Btn(sig, "DiagRaccBar_Btn_3_", "Interface/ICONS/Achievement_Profession_Fishing_OldManBarlowned", player:GetData().DiagRaccBar, 3, nil, false)
        player:GetData().DiagRaccBar_Btn_4 = Create_DiagRaccBar_Btn(sig, "DiagRaccBar_Btn_4_", "Interface/ICONS/INV_Misc_Coin_01", player:GetData().DiagRaccBar, 4, nil, true)
        player:GetData().DiagRaccBar_Btn_5 = Create_DiagRaccBar_Btn(sig, "DiagRaccBar_Btn_5_", "Interface/ICONS/INV_Misc_Key_04", player:GetData().DiagRaccBar, 5, nil, false)
        --=========================/\Dialogues/\=========================
        player:GetData().DialQuestFrame = Create_DialQuestFrame(sig, "DiagQuestFrame_")
        player:GetData().DialQuestFrame_CloseBtn = Create_DiagCloseButton(sig, "DiagQuestFrame_CloseBtn_", player:GetData().DialQuestFrame)
        player:GetData().DialQuestFrame_ChoiceButton = Create_DiagQuestFrameChoiceButton(sig, "Choix 1", "DiagQuestFrame_ChoiceButton_1_", player:GetData().DialQuestFrame, 1)

        player:GetData().DiagQuestFrame_ModelFrame = Create_DialQuestModel(sig, "DiagQuestFrame_ModelFrame_", player:GetData().DialQuestFrame)
        player:GetData().DiagQuestFrame_PlayerModel = Create_DialQuestFrameModelFrameModel(sig, "DiagQuestFrame_PlayerModel_", player:GetData().DiagQuestFrame_ModelFrame)

        player:GetData().DialQuestFrameNameText = Create_DialQuestFrameNameText(sig, "DialQuestFrame_NameText_", player:GetData().DialQuestFrame)
        player:GetData().DialQuestFrameMainText = Create_DialQuestFrameMainText(sig, "DialQuestFrame_Main_", player:GetData().DialQuestFrame, player:GetData().DialQuestFrameNameText)
        --========/\SCRIPT/\========
        player:GetData().DiagRaccBar_Btn_5:SetScript("OnClick", UnlockDoor, AIO:ObjDo(Sac_Btn_2, ":GetText()"))
        player:GetData().DiagRaccBar_Btn_3:SetScript("OnClick", Talk, AIO:ObjDo(Sac_Btn_3, ":GetText()"))
        --========/\======/\========

        --Pour le moment rien est envoyé au client.
        --On balance l'UI au client sans afficher les frames (Utile?)
        player:GetData().UI = AIO:CreateMsg() -- Create new message
        player:GetData().UI:Append(player:GetData().DiagRaccBar) -- Add all Frame blocks code and child blocks to it
        player:GetData().DiagRaccBar:Clear() -- Clear the blocks from Frame and childs
        player:GetData().UI:Append(player:GetData().DialQuestFrame) -- Add all Frame blocks code and child blocks to it
        --player:GetData().DialQuestFrame:Clear() -- Clear the blocks from Frame and childs
        player:GetData().frame_created = true
    end
--Pour chaque joueur on fait des Frames perso.
end

local function OnCommand(event, player, command)
    if(command == "test") then
    player:GetData().UI:SendIgnoreIf(player:GetData().DiagRaccBar, player)
    player:GetData().DiagRaccBar:Show()
    player:GetData().DialQuestFrame:Hide()
    player:GetData().DialQuestFrame:Send(player)
    player:GetData().DiagRaccBar:Send(player)
    --player:GetData().UI:SendIgnoreIf(player:GetData().DialQuestFrame, player) --On balance les Frames

        return false
    end
    if(command == "test2") then
        player:GetData().UI:SendIgnoreIf(player:GetData().DiagRaccBar, player)
        player:GetData().DiagRaccBar:Hide()
        player:GetData().DiagRaccBar:Send(player)
        return false
    end
end

RegisterPlayerEvent(42, OnCommand)
RegisterPlayerEvent(PLAYER_EVENT_ON_LOGIN, CreateLogin_Frame) --RegisterPlayerEvent(event, function) PLAYER_EVENT_ON_LOGIN =     3,        // (event, player)