Lua HELP - WAND CHANGE ELEMENT TFS 0.4

[ribeiiro02]

HOW TO WORK THIS MODS, CAN HELP ME? OR OTHER TYPE TO DONE THATS, TFS 0.4

!WAND HOLY, FIRE, DEATH, ICE, ENERGY, TERA...


CAN HELP ME PLEASE!!

<?xml version="1.0" encoding="UTF-8"?>
<mod name="Weapon multi-elements" version="1.0" author="Leyendario." contact="otserv.es" enabled="yes">
<config name="configuracion"><![CDATA[
   config = {
      storage = 6999,
      dinero = 0 * 1000 -- 1cc, pon 0 si no quieres que cobre.
      }
    par = {
      ["physic"] = {1, CONST_ME_HITAREA},
      ["energy"] = {2, CONST_ME_ENERGYHIT},
      ["earth"] = {3, CONST_ME_HITBYPOISON},
      ["fire"] = {4, CONST_ME_HITBYFIRE},
      ["ice"] = {5, CONST_ME_ICEATTACK},
      ["holy"] = {6, CONST_ME_HOLYDAMAGE},
      ["death"] = {7, CONST_ME_MORTAREA}
      }
]]></config>
   <talkaction words="!wand" event="script"><![CDATA[
   domodlib('configuracion')
   function onSay(cid, words, param, channel)
      local p = par[param]
      if p then
         if getPlayerMoney(cid) < config.dinero then
            return doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "need " ..config.dinero.. " gold coins.")
         end  
         doPlayerRemoveMoney(cid, config.dinero)
         setPlayerStorageValue(cid, config.storage, p[1])
         doSendMagicEffect(getCreaturePosition(cid), p[2])
         doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Now you are using  ".. param ..".")
      else
         doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "the commands are, physic, energy, earth, fire, ice, death and holy.")
      end
      return 0
   end
   ]]></talkaction>
   <item id="7735" level="50" mana="15" event="script"><![CDATA[
   domodlib('configuration')
   local physic = createCombatObject() -- 1
   setCombatParam(element, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
   setCombatParam(element, COMBAT_PARAM_EFFECT, CONST_ME_DRAWBLOOD)
   setCombatParam(element, COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_WHIRLWINDCLUB)
   function onGetFormulaValues(cid, level, skill, attack, factor)
    local skillTotal, levelTotal = skill + attack, level / 5
    return -(skillTotal / 3 + levelTotal), -(skillTotal + levelTotal)
end
   setCombatCallback(combat, CALLBACK_PARAM_SKILLVALUE, "onGetFormulaValues")
   local energy = createCombatObject() -- 2
   setCombatParam(energy, COMBAT_PARAM_TYPE, COMBAT_ENERGYDAMAGE)
   setCombatParam(energy, COMBAT_PARAM_EFFECT, CONST_ME_ENERGYHIT)
   setCombatParam(energy, COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_ENERGY)
   function onGetFormulaValues(cid, level, skill, attack, factor)
    local skillTotal, levelTotal = skill + attack, level / 5
    return -(skillTotal / 3 + levelTotal), -(skillTotal + levelTotal)
end
   setCombatCallback(combat, CALLBACK_PARAM_SKILLVALUE, "onGetFormulaValues")
   local earth = createCombatObject() -- 3
   setCombatParam(earth, COMBAT_PARAM_TYPE, COMBAT_EARTHDAMAGE)
   setCombatParam(earth, COMBAT_PARAM_EFFECT, CONST_ME_HITBYPOISON)
   setCombatParam(earth, COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_POISON)
   function onGetFormulaValues(cid, level, skill, attack, factor)
    local skillTotal, levelTotal = skill + attack, level / 5
    return -(skillTotal / 3 + levelTotal), -(skillTotal + levelTotal)
end
   setCombatCallback(combat, CALLBACK_PARAM_SKILLVALUE, "onGetFormulaValues")
   local fire = createCombatObject() -- 4
   setCombatParam(fire, COMBAT_PARAM_TYPE, COMBAT_FIREDAMAGE)
   setCombatParam(fire, COMBAT_PARAM_EFFECT, CONST_ME_HITBYFIRE)
   setCombatParam(fire, COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_SMALLFIRE)
   function onGetFormulaValues(cid, level, skill, attack, factor)
    local skillTotal, levelTotal = skill + attack, level / 5
    return -(skillTotal / 3 + levelTotal), -(skillTotal + levelTotal)
end
   setCombatCallback(combat, CALLBACK_PARAM_SKILLVALUE, "onGetFormulaValues")
   local ice = createCombatObject()  -- 5
   setCombatParam(ice, COMBAT_PARAM_TYPE, COMBAT_ICEDAMAGE)
   setCombatParam(ice, COMBAT_PARAM_EFFECT, CONST_ME_ICEATTACK)
   setCombatParam(ice, COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_ICE)
   function onGetFormulaValues(cid, level, skill, attack, factor)
    local skillTotal, levelTotal = skill + attack, level / 5
    return -(skillTotal / 3 + levelTotal), -(skillTotal + levelTotal)
end
   setCombatCallback(combat, CALLBACK_PARAM_SKILLVALUE, "onGetFormulaValues")
   local holy = createCombatObject()  -- 6
   setCombatParam(holy, COMBAT_PARAM_TYPE, COMBAT_HOLYDAMAGE)
   setCombatParam(holy, COMBAT_PARAM_EFFECT, CONST_ME_HOLYDAMAGE)
   setCombatParam(holy, COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_SMALLHOLY)
   function onGetFormulaValues(cid, level, skill, attack, factor)
    local skillTotal, levelTotal = skill + attack, level / 5
    return -(skillTotal / 3 + levelTotal), -(skillTotal + levelTotal)
end
   setCombatCallback(combat, CALLBACK_PARAM_SKILLVALUE, "onGetFormulaValues")
   local death = createCombatObject()  -- 7
   setCombatParam(death, COMBAT_PARAM_TYPE, COMBAT_DEATHDAMAGE)
   setCombatParam(death, COMBAT_PARAM_EFFECT, CONST_ME_MORTAREA)
   setCombatParam(death, COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_DEATH)
   function onGetFormulaValues(cid, level, skill, attack, factor)
    local skillTotal, levelTotal = skill + attack, level / 5
    return -(skillTotal / 3 + levelTotal), -(skillTotal + levelTotal)
end
   setCombatCallback(combat, CALLBACK_PARAM_SKILLVALUE, "onGetFormulaValues")
function onUseWeapon(cid, var)
   local valor = getPlayerStorageValue(cid, config.storage)
   doCombat(cid, valor == 2 and energy or valor == 3 and earth or valor == 4 and fire or valor == 5 and ice or valor == 6 and holy or valor == 7 and death or physic, var)
   return true
end
   ]]>
   <vocation id="1"/>
    <vocation id="2"/>
    </item>
    <item id="7735" article="a" name="donate staff">
        <attribute key="description" value="Say !wand info for change element." />
        <attribute key="weight" value="2300" />
        <attribute key="weaponType" value="wand" />
        <attribute key="range" value="3" />
   </item>
</mod>