SkyLigh

tente assim local gatepos = {x=1351, y=1666, z=5, stackpos=1} --posição do primeiro portão local gatepos2 = {x=1352, y=1666, z=5, stackpos=1} -- posição do segundo portão,altere local gatepos3 = {x=1353, y=1666, z=5, stackpos=1} -- posição do segundo portão local g = 9485 --id do primeiro portão local g2 = 9485 --id do segundo portão local g3 = 9485 --id do terceiro portão function onUse(cid, item, frompos, item2, topos) local getgate = getThingfromPos(gatepos) local getgate2 = getThingfromPos(gatepos2) local getgate3 = getThingfromPos(gatepos3) if item.itemid == 9797 and getgate.itemid == g and getgate2.itemid == g2 and getgate3.itemid == g3 then doRemoveItem(getgate.uid, 1) doRemoveItem(getgate2.uid, 1) doRemoveItem(getgate3.uid, 1) doTransformItem(item.uid, item.itemid+1) elseif item.itemid == 9826 and getgate.itemid == 0 and getgate2.itemid == 0 and getgate3.itemid == 0 then doCreateItem(g, 1, gatepos) doCreateItem(g2, 1, gatepos2) doCreateItem(g3, 1, gatepos3) doTransformItem(item.uid, item.itemid-1) else doPlayerSendCancel(cid,"Nao e possivel.") end return 1 end

Veja assim. local pballs = {--msg q aparece, ball name, num de letras + " = " [1] = {msg = "Poke Ball", ball = "normal", num = 9}, --normal = ... 9 letras [2] = {msg = "Great Ball", ball = "great", num = 8}, --great = ... 8 letras [3] = {msg = "Super Ball", ball = "super", num = 8}, [4] = {msg = "Ultra Ball", ball = "ultra", num = 8}, [5] = {msg = "Saffari Ball", ball = "saffari", num = 10}, } local function sendBrokesCountMsg(cid, name, str) if getPlayerStorageValue(cid, str) == -1 then doPlayerSendTextMessage(cid, 27, "You haven't wasted any pokeball to try catch a "..name) return true end local t = string.explode(getPlayerStorageValue(cid, str), ",") local msg = "You have wasted: " local n = 0 for a = 1, #t do local st2 = string.sub(t[a], d + pballs[a].num, e +5) if tonumber(st2) ~= 0 then if n ~= 0 then msg = msg..", " end if tonumber(st2) ~= 1 then msg = msg..st2.." "..pballs[a].msg.."s" n = n +1 else msg = msg..st2.." "..pballs[a].msg n = n +1 end end end msg = msg.." to try catch a "..name..", ultil now." if n == 0 then msg = "You haven't wasted any pokeball to try catch a "..name end doPlayerSendTextMessage(cid, 27, msg) end function onSay(cid, words, param) if(param == '') then doPlayerSendTextMessage(cid, 27, "Enter with a pokemon name...") return true elseif newpokedex[doCorrectPokemonName(param)] then local storage = newpokedex[doCorrectPokemonName(param)].stoCatch local name = doCorrectPokemonName(param) sendBrokesCountMsg(cid, name, storage) else doPlayerSendTextMessage(cid, 27, "This isn't a pokemon...") return true end return true end

Duvida Sanada Reportado

Troquei algumas funções veja se melhora

function onTime() function doBroadSave(delay) local shallow = "no" if delay ~= 0 then doBroadcastMessage("[sS GLOBAL SERVER SAVE] O server será desligado em "..delay.." Minuto"..(delay > 1 and "s" or "")) doSaveServer(shallow) else doSaveServer() doShutdown() end end doBroadSave(5) return true end

não entendi muito o seu pedido mais veja este http://www.xtibia.com/forum/topic/189703-arena-sobrevivencia-event-system/

Duvida Sanada reportado

so você usar assim function onSay(cid, words, param) local itens = { ["2173"] = {cash = 2157, palavr = "aol", count = 1}, ["2677"] = {cash = 2157, palavr = "food", count = 100} } for k,v in pairs(itens) do if (words == "buy") then if param == v.palavr then if doPlayerRemoveItem(cid,itens.cash,itens.count) == true then doPlayerAddItem(cid, k, v.count) else doPlayerSendCancel(cid, "Desculpe, Você não tem dinheiro suficiente") end end end end end ali em cash poem o id do gold nugget

Local Incorreto reportado para ser movido

Local Incorreto certo seria em pedidos e duvidas de scripting reportado para ser movido

Tópico movido para a seção de dúvidas e pedidos resolvidos.

Olá Seu Tópico esta no lugar errado Irei Reportado para ser movido para Pedidos E Duvidas De Scripting

Este script ja vem em todos os servidores acho que nao e necessário este tópico @FECHADO

Se vocês não perceberam o tópico e de 2008 e claro que foi testado em uma versão antiga

Tópico movido para a seção de dúvidas e pedidos resolvidos.

Tome cuidado com este tipo de post @KUNGLOW ele ja tinha especificado como queria acima

Kung que fico faltando um end no seu ! e desculpem pelo meu que não to com ot no pc ai so fazo pelo debug Seu script Corrigido if(param == "magiclevel") then if getPlayerMagLevel(cid, true) >= 200 then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você não pode ter magic level acima de 200.") return TRUE end if(not isSorcerer(cid) and not isDruid(cid) and not isMasterInfernalist(cid)) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Somente Sorcerers, Druids e Infernalists podem comprar magic level.") return TRUE end if getPlayerItemCount(cid, 9971) >= 3 then local pid = getPlayerGUID(cid) doPlayerRemoveItem(cid, 9971, 3) setPlayerStorageValue(cid,11548,os.time()+0) doRemoveCreature(cid) db.query("UPDATE `players` SET `maglevel` = `maglevel` + 1 WHERE `id` = "..pid) return TRUE else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você não possui a quantidade necessária para comprar.") end return TRUE end

Tem como postar ele aki para mim verificar

Não irei testar que estou sem ot mais parece ser boa . REPUTADO.

talkactions. function onSay(cid, words, param) local magic = { ['magic'] = {7}, money = 10000 -- quanto vai ser cada ml } if doPlayerRemoveMoney(cid,cofig.money) then doPlayerAddSkillTry(cid,config.magic) doPlayerSendTextMessage(cid,22,"Parabens se compro ml") else doPlayerSendTextMessage(cid,22,"Voce nao tem dinheiro suficiente") end return TRUE end

Corrigindo erros local config = { level_Direto = "sim", -- Se for por level direto bote sim. add_Level = 2, -- Aqui você coloca o quando que vai adicionar de level no player, se ewstiver n vai ser por experiencia add_Exp = 500, -- Aqui você coloca a quantidade de experiencia o player vai ganhar uniqueid_Bau = 5033, -- Aqui vai o uniqueid do bau } function onUse(cid, item, frompos, item2, topos) local cd = exhaustion.get(cid, 88726) if not cd then cd = 0 end if cd > 0 then doPlayerSendCancel(cid, "Desculpa, espere 24hrs para usar denovo.") return true end if item.uid == config.uniqueid_Bau then if config.level_Direto == "sim" or config.level_Direto == "SIM" then doPlayerSetSkill(cid, SKILL__LEVEL, getPlayerLevel(cid) + config.add_Level) doPlayerSendTextMessage(cid, 27, "Você ganhou "..config.add_Level..", agora seu level é "..getPlayerLevel(cid).."") doSendMagicEffect(getThingPos(cid), 25) exhaustion.set(cid, 88726, 60 * 1000 * 60 * 24) else doPlayerAddExp(cid, config.add_Exp) doSendAnimatedText(getThingPos(cid), ""..config.add_Exp.."", math.random(25, 100)) doPlayerSendTextMessage(cid, 27, "Você ganhou "..config.add_Exp.." de experiencia.") doSendMagicEffect(getThingPos(cid), 25) exhaustion.set(cid, 88726, 60 * 1000 * 60 * 24) end end return true end function doPlayerSetSkill(cid, skill, amount) local pid = getPlayerGUID(cid) doRemoveCreature(cid,true) db.executeQuery("UPDATE `player_skills` SET `value` = ".. amount .." WHERE `player_id` = ".. pid .. " and `skillid` = ".. skill ..";") return TRUE end

como assim akeles resets você teria que mudar qual erro que da?

Vip local combat1 = createCombatObject() setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_DEATHDAMAGE) setCombatParam(combat1, COMBAT_PARAM_EFFECT, CONST_ME_FIREATTACK) setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -12.5, -130, -12.3, -130) local combat2 = createCombatObject() setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_DEATHDAMAGE) setCombatParam(combat2, COMBAT_PARAM_EFFECT, CONST_ME_ICETORNADO) setCombatFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, -12.5, -130, -12.5, -130) arr1 = { {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0}, {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0}, {1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1}, {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0}, {0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, } arr2 = { {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0}, {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0}, {1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1}, {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0}, {0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, } local area1 = createCombatArea(arr1) local area2 = createCombatArea(arr2) setCombatArea(combat1, area1) setCombatArea(combat2, area2) local function onCastSpell1(parameters) doCombat(parameters.cid, parameters.combat1, parameters.var) end local function onCastSpell2(parameters) doCombat(parameters.cid, parameters.combat2, parameters.var) end function onCastSpell(cid, var) local parameters = { cid = cid, var = var, combat1 = combat1, combat2 = combat2 } addEvent(onCastSpell1, 100, parameters) addEvent(onCastSpell2, 100, parameters) end function onCastSpell(cid, var) if getPlayerStorageValue(cid,22459) >= 1 then return doCombat(cid, acombat, var) else doPlayerSendCancel(cid, "Desculpe,Só jogadores Vips usam está magia.") end return TRUE end Reset. local combat1 = createCombatObject() setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_DEATHDAMAGE) setCombatParam(combat1, COMBAT_PARAM_EFFECT, CONST_ME_FIREATTACK) setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -12.5, -130, -12.3, -130) local combat2 = createCombatObject() setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_DEATHDAMAGE) setCombatParam(combat2, COMBAT_PARAM_EFFECT, CONST_ME_ICETORNADO) setCombatFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, -12.5, -130, -12.5, -130) arr1 = { {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0}, {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0}, {1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1}, {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0}, {0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, } arr2 = { {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0}, {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0}, {1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1}, {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0}, {0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, } local area1 = createCombatArea(arr1) local area2 = createCombatArea(arr2) setCombatArea(combat1, area1) setCombatArea(combat2, area2) local function onCastSpell1(parameters) doCombat(parameters.cid, parameters.combat1, parameters.var) end local function onCastSpell2(parameters) doCombat(parameters.cid, parameters.combat2, parameters.var) end function onCastSpell(cid, var) local parameters = { cid = cid, var = var, combat1 = combat1, combat2 = combat2 } addEvent(onCastSpell1, 100, parameters) addEvent(onCastSpell2, 100, parameters) end local reset_storage = 2310 -- coloque o storage do seu sistema de reset local quant_reset = 3 -- quantidade de resets para poder passar if getPlayerStorageValue(cid, reset_storage) == quant_reset then return true end Os Dois Juntos. local combat1 = createCombatObject() setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_DEATHDAMAGE) setCombatParam(combat1, COMBAT_PARAM_EFFECT, CONST_ME_FIREATTACK) setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -12.5, -130, -12.3, -130) local combat2 = createCombatObject() setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_DEATHDAMAGE) setCombatParam(combat2, COMBAT_PARAM_EFFECT, CONST_ME_ICETORNADO) setCombatFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, -12.5, -130, -12.5, -130) arr1 = { {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0}, {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0}, {1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1}, {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0}, {0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, } arr2 = { {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0}, {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0}, {1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1}, {0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0}, {0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0}, {0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, } local area1 = createCombatArea(arr1) local area2 = createCombatArea(arr2) setCombatArea(combat1, area1) setCombatArea(combat2, area2) local function onCastSpell1(parameters) doCombat(parameters.cid, parameters.combat1, parameters.var) end local function onCastSpell2(parameters) doCombat(parameters.cid, parameters.combat2, parameters.var) end function onCastSpell(cid, var) local parameters = { cid = cid, var = var, combat1 = combat1, combat2 = combat2 } addEvent(onCastSpell1, 100, parameters) addEvent(onCastSpell2, 100, parameters) end local reset_storage = 2310 -- coloque o storage do seu sistema de reset local quant_reset = 3 -- quantidade de resets para poder passar if getPlayerStorageValue(cid, reset_storage) == quant_reset then return true end function onCastSpell(cid, var) if getPlayerStorageValue(cid,22459) >= 1 then return doCombat(cid, acombat, var) else doPlayerSendCancel(cid, "Desculpe,Só jogadores Vips usam está magia.") end return TRUE end

duvida sanada reportado

va em data / creaturescripts / scripts / firstitems.lua ai voce configura