Diogozera

Depois de ter adicionado o script e tag aos locais corretos e ter configurado o actionID na tag, adicione esse mesmo actionID (número de identificação da action) ao baú (pelo remere's map editor).



 
Use este script:
local tab = {     [1] = {spell = "hell granade"}, -- [vocId] = {spell = "Instant Name da Spell"} verifique a string usada na spell em seu spells.xml     [2] = {spell = "hell granade"},     [3] = {spell = "hell granade"},     [4] = {spell = "hell granade"} } function onUse(cid, item, fromPos, item2, toPos)     local v = tab[getPlayerVocation(cid)]         if not v then             doPlayerSendCancel(cid, "Your vocation can't do this quest.")         end                      if getPlayerLearnedInstantSpell(cid, v.spell) then                 doPlayerSendCancel(cid, "You already have done this quest.")             end     doPlayerLearnInstantSpell(cid, v.spell)     doSendMagicEffect(toPos, CONST_ME_MAGIC_RED)     doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You have learned a new spell!!")     return true end

local coins = {[2148] = 1, [2152] = 100, [2160] = 10000} No 2148 e no 2160, só trocar o ID ali pelo o ID novo da sua sprite. 

2148 - Gold Coin,
2152 - Platinum Coin.
2160 - Crystal Coin.
Agora é só mudar de acordo com os ID's do seu servidor, onde tiver 2148 que é o ID do gold coin, você substitui pelo ID do gold coin no seu servidor, mesma coisa para os outros ID's.

itemtile.lua (data/movements/scripts): local item = {5432, 1} -- {itemID, count} function onStepIn(cid, item, pos, fromPos)     if isPlayer(cid) and getPlayerItemCount(cid, item[1]) < item[2] then         doTeleportThing(cid, frompos)         doSendMagicEffect(frompos, CONST_ME_POFF)         doPlayerSendCancel(cid, "You can't enter without "..item[2].." "..getItemNameById(item[1]).." in your backpack.")     end          doSendMagicEffect(getThingPos(cid), CONST_ME_MAGIC_BLUE)     return true end


Tag - movements.xml (data/movements):
<movevent type="StepIn" actionid="ACTIONID" event="script" value="itemtile.lua"/>

Aqui amigo:
Faça um bom proveito
local combat = createCombatObject() local combate = createCombatObject() setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_FIREDAMAGE) setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -1, -1, -1, 1) local areas = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0}, {0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0}, {0, 0, 1, 1, 1, 1, 2, 1, 1, 1, 1, 0, 0}, {0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0}, {0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, } local area = createCombatArea(areas) setCombatArea(combate, area) function onTargetTile(cid, pos) local position = getCreaturePosition(cid) local p = getThingPos(cid) local basep = {x = pos.x + 0, y = pos.y - 0, z = pos.z} doSendDistanceShoot(position, basep, 33) doSendDistanceShoot(position, basep, 3) doCombat(cid, combat, positionToVariant(pos)) end setCombatCallback(combate, CALLBACK_PARAM_TARGETTILE, "onTargetTile") local function onCastSpell1(parameters) doCombat(parameters.cid, combate, parameters.var) end function onCastSpell(cid, var) local parameters = { cid = cid, var = var} addEvent(onCastSpell1, 100, parameters) return doCombat(cid, combat, var) end

creaturescripts.xml
<event type="statschange" name="defensive2" event="script" value="defensive2.lua"/> login.lua
---------- Defensive 2 ---------------- registerCreatureEvent(cid, "defensive2") if getPlayerStorageValue(cid, 3482102) < 0 then         setPlayerStorageValue(cid, 3482102, 0)  end defensive2.lua:
 
local config = {  storage = 3482102, effect1 = 2, --- efeito ao ser atacado e teleportar percent = 30 -- porcentagem de esquivar }  function onStatsChange(cid, attacker, type, combat, value) if value >= 1 and (type == STATSCHANGE_HEALTHLOSS or (getCreatureCondition(cid, CONDITION_MANASHIELD) and type == STATSCHANGE_MANALOSS))  then if getPlayerStorageValue(cid,config.storage) > 0 and isCreature(attacker) and math.random(1,100) <= config.percent then doSendMagicEffect(getCreaturePosition(cid), config.effect1) doTeleportThing(cid, getCreaturePosition(attacker), false) doTargetCombatHealth(cid, attacker, 1, -50, -100, 255) setPlayerStorageValue(cid, config.storage, getPlayerStorageValue(cid, config.storage) - 1) doPlayerSendTextMessage(cid, 20, "You have now ".. getPlayerStorageValue(cid, config.storage) .." charge(s).") return true end end return true end spells.xml:
<instant name="kawarimi no jutsu attack" words="kawarimi no jutsu attack" lvl="16" mana="500" prem="1" aggressive="0" exhaustion="1000" needlearn="0" event="script" value="especiais/kawarimiattack.lua"> <vocation id="5"/> <vocation id="6"/> <vocation id="7"/> <vocation id="8"/> </instant> kawarimiattack.lua
local config = {  storage = 3482102, cooldown = 3,  --- tempo entre um uso e outro maxcharge = 20, --- máximo de cargas que dá pra acumular effect1 = 29 -- efeito que sai ao falar a spell }  function onCastSpell(cid, var)        if getPlayerStorageValue(cid, config.storage) >= 20 then doPlayerSendCancel(cid, "You already reached the max of charges for this skill.") return false end      if os.time() - getPlayerStorageValue(cid, 55700) >= config.cooldown then setPlayerStorageValue(cid, 55700, os.time()) doSendMagicEffect(getCreaturePosition(cid), config.effect1) setPlayerStorageValue(cid, config.storage, getPlayerStorageValue(cid, config.storage) + 1) doPlayerSendTextMessage(cid, 27, "You have now ".. getPlayerStorageValue(cid, config.storage) .." charge(s).") else doPlayerSendCancel(cid, "Your skill is in cooldown, you must wait "..(config.cooldown - (os.time() - getPlayerStorageValue(cid, 55700))).." seconds.") return false end       return true end Quando eu falei em duplicar tudo e mudar os nomes/storages era isso que eu tava falando..

Microsoft Visual C++ 2010 Redistributable Package (x64) que resolve seu problema