local ChatMsg1 = "#Menu"
local ChatMsg2 = "#menu"


local function Hello(event, player)
 player:GossipClearMenu()
 player:GossipMenuAddItem(0, "Hearhstone", 0, 1)
 player:GossipSendMenu(1, player, 100)
end

local function OnSelect(event, player, _, sender, intid, code)

player:GossipClearMenu()

local Q = CharDBQuery("SELECT * FROM hearhstone WHERE `guid` LIKE "..player:GetGUID().."")

 if(intid == 1) then
    if(not Q) then
      player:GossipMenuAddItem(0, "Save my location", 0, 9)
    else
      player:GossipMenuAddItem(0, "Teleport me", 0, 10)
    end

 elseif(intid == 9) then

    CharDBExecute("REPLACE INTO hearthstone (`guid`, `map`, `x`, `y`, `z`, `o`) VALUES (\""..player:GetGUID().."\""..player:GetMap().."\""..player:GetX().."\""..player:GetY().."\""..player:GetZ().."\""..player:GetO()..")")
    player:SendAreaTriggerMessage("Your location have been stored!")

    player:GossipComplete()

 elseif(intid == 10) then

    player:Teleport(Q:GetColumn(2):GetValue?, Q:GetColumn(3):GetValue?, Q:GetColumn(4):GetValue?, Q:GetColumn(5):GetValue?, Q:GetColumn(6))
    player:GossipComplete()
 end
player:GossipSendMenu(1, player, 100)
end

local function Chat(event, player, msg, lang, type)
  if(msg == ChatMsg1 or ChatMsg2) then
    Hello(event, player)
  end
end

RegisterPlayerEvent(18, Chat)
RegisterPlayerGossipEvent(100, 2, OnSelect)