Global action rename function [vs]

--[[
Global action rename function (v1) [09/02/2014]
Written by AFRLme
-- * --
[email protected] | skype @ AFRLme
--]]

-- * local variables * --
local texts, name, lang, val, t  -- empty variables

-- * tables * --
t = {}
t["de"] = { "Use_de", "Pick up_de", "Push_de", "Pull_de" }
t["en"] = { "Use", "Pick up", "Push", "Pull" }
t["es"] = { "Usar", "Cojer", "Empujar", "Tirar" }
t["fr"] = { "Use_fr", "Pick up_fr", "Push_fr", "Pull_fr" }

-- * function * --
function renameCmd()
 val = getObject("Values[cmd_state]"):getInt(VValueInt) -- get current value
 btn = game:getLink(VGameActiveCommand):getLink(VButtonName) -- store current command
 texts = btn:getLinks(VTextAll) -- get all texts related to the button
 -- * --
 for i = 1, table.maxn(texts) do
  if texts[i]:getLink(VTextsLanguageLanguage) == "English" then
   texts[i]:setValue(VTextsLanguageTexts, t["en"][val])
  elseif texts[i]:getLink(VTextsLanguageLanguage) == "French" then
   texts[i]:setValue(VTextsLanguageTexts, t["fr"][val])
  elseif texts[i]:getLink(VTextsLanguageLanguage) == "German" then
   texts[i]:setValue(VTextsLanguageTexts, t["de"][val])
  elseif texts[i]:getLink(VTextsLanguageLanguage) == "Spanish" then
   texts[i]:setValue(VTextsLanguageTexts, t["es"][val])
  end
 end
end