SkyLigh

Duvida Sanada Reportado Para Um Superior

duvida sanada reportado Para Um Superior

faza assim local SPECIAL_QUESTS = {2001} function onStepIn(cid, item, position, lastPosition, fromPosition, toPosition, actor) if(not isPlayer(cid)) then return true end if(isContainer(item.uid)) then if(not isInArray(SPECIAL_QUESTS, item.actionid) and item.uid > 65535) then return true end elseif getTileInfo(position.creatures) <= 1 then return true end if(fromPosition.x == 0) then -- player just logged in fromPosition = getTownTemplePosition(getPlayerTown(cid)) doSendMagicEffect(fromPosition, CONST_ME_TELEPORT) end doTeleportThing(cid, fromPosition, true) return true end

veja assim --[[ SCRIPTING> MarcelloMkez <scriptING ]] --[[ [Advanced Reset System] Autor: MarcelloMkez Versão: 1.0 TFS: 0.3.6 Testado em: 8.50 Fórum: www.xtibia.com/forum/topic/138026-talk-action-advanced-reset-system/ [Características] ~ Versão 1.0 ~ - Resets no Look; - Premium Account ou não; - Mudar Vocação; - Limite de Resets; - Opções para Abilitar e Desabilitar Condições; [Em Construção] - Stages Free e Premium; - 'Talvez' um novo sistema de mudar Vocação; sem data para postagem. ]] function onSay(cid, words, param) --[Configurações de Condição]__ config = { --[[verdadeiro / Falso]] needPa = false, -- Precisa de Premium Account? [true / false] needPz = true, -- Precisa estar em Protection Zone? [true / false] battle = true, -- Precisa estar sem Batlle para Resetar? [true / false] withe = false, -- Players PK Withe pode Resetar? [true / false] red = false, -- Players PK Red pode Resetar? [true / false] tp = true, -- Teleportar para o Templo após o reset? [true / false] look = true, -- Mostrar Resets no Look do Player? [true / false] addLimite = true, -- Abilitar Limite de Resets? [true / false] setClasse = false, -- Mudar Vocação do player quando resetar? [true / false] storage = 2310, -- Storage [valor] --[Configurações do Reset]__ resetStatus = { player = getPlayerGUID(cid), -- Não Mude. lvl = 717217, -- Level Necessário para Resetar. [valor] lvlreset = 8, -- Level que retornará após o Reset. [valor] limite = 100, -- Máximo de resets que um player pode chegar. [valor] newClasse = 1, -- Id da Nova Vocação após o Reset. [valor] tempo= 3 -- Tempo para o Player deslogar para Resetar. Em segundos. [valor] }, } --[Funções]__ function Reseting(cid) resets = getResets(cid) setPlayerStorageValue(cid,config.storage,resets+1) doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid))) doPlayerSetVocation(cid, config.resetStatus.newClasse) doRemoveCreature(cid) doPlayerAddExperience(cid, - getPlayerExperience(cid) + getExperienceForLevel(LEVEL)) db.executeQuery("UPDATE `players` SET `description` = ' [Reset "..resets.."]' WHERE `players`.`id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) return TRUE end function noAll(cid) resets = getResets(cid) setPlayerStorageValue(cid,config.storage,resets+1) doRemoveCreature(cid) doPlayerAddExperience(cid, - getPlayerExperience(cid) + getExperienceForLevel(LEVEL)) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `description` = '' WHERE `players`.`id` = "..config.resetStatus.player) return TRUE end function noTeleporting(cid) resets = getResets(cid) setPlayerStorageValue(cid,config.storage,resets+1) doPlayerSetVocation(cid, config.resetStatus.newClasse) doRemoveCreature(cid) doPlayerAddExperience(cid, - getPlayerExperience(cid) + getExperienceForLevel(LEVEL)) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `description` = ' [Reset "..resets.."]' WHERE `players`.`id` = "..config.resetStatus.player) return TRUE end function noLook(cid) resets = getResets(cid) setPlayerStorageValue(cid,config.storage,resets+1) doPlayerSetVocation(cid, config.resetStatus.newClasse) doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid))) doRemoveCreature(cid) doPlayerAddExperience(cid, - getPlayerExperience(cid) + getExperienceForLevel(LEVEL)) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `description` = '' WHERE `players`.`id` = "..config.resetStatus.player) return TRUE end function noClasse(cid) resets = getResets(cid) setPlayerStorageValue(cid,config.storage,resets+1) doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid))) doRemoveCreature(cid) doPlayerAddExperience(cid, - getPlayerExperience(cid) + getExperienceForLevel(LEVEL)) db.executeQuery("UPDATE `players` SET `description` = ' [Reset "..resets.."]' WHERE `players`.`id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) return TRUE end function setClasse(cid) resets = getResets(cid) setPlayerStorageValue(cid,config.storage,resets+1) doPlayerSetVocation(cid, config.resetStatus.newClasse) doRemoveCreature(cid) doPlayerAddExperience(cid, - getPlayerExperience(cid) + getExperienceForLevel(LEVEL)) db.executeQuery("UPDATE `players` SET `description` = '' WHERE `players`.`id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) return TRUE end function look(cid) resets = getResets(cid) setPlayerStorageValue(cid,config.storage,resets+1) doRemoveCreature(cid) doPlayerAddExperience(cid, - getPlayerExperience(cid) + getExperienceForLevel(LEVEL)) db.executeQuery("UPDATE `players` SET `description` = ' [Reset "..resets.."]' WHERE `players`.`id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) return TRUE end function teleporting(cid) resets = getResets(cid) setPlayerStorageValue(cid,config.storage,resets+1) doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid))) doRemoveCreature(cid) doPlayerAddExperience(cid, - getPlayerExperience(cid) + getExperienceForLevel(LEVEL)) db.executeQuery("UPDATE `players` SET `description` = '' WHERE `players`.`id` = "..config.resetStatus.player) db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player) return TRUE end function getResets(cid) resets = getPlayerStorageValue(cid,config.storage) if resets < 0 then resets = 0 end return resets end local resets = getResets(cid) local needLvl ="You need "..config.resetStatus.lvl-getPlayerLevel(cid).." level's to reset." local msg ="~[Reset: "..getResets(cid).."]~ 'Reset to Success! You will be logged out in "..config.resetStatus.tempo.." Seconds." --[Condiçoes]__ if(config.needPz == true) and (getTilePzInfo(getCreaturePosition(cid)) == FALSE) then doPlayerSendTextMessage(cid,22,"You Need Protection Zone to be Reset.") return TRUE elseif(config.addLimite == true) and (getResets(cid) == config.resetStatus.limite) then doPlayerSendTextMessage(cid, 22, "Congratulations, you reached the limit of Resets.") return TRUE elseif(config.withe == false) and (getCreatureSkullType(cid) == 3) then doPlayerSendTextMessage(cid,22,"You PK White, so I Can not reset.") return TRUE elseif(config.red == false) and (getCreatureSkullType(cid) == 4) then doPlayerSendTextMessage(cid,22,"You PK Red, so I Can not reset.") return TRUE elseif(config.needPa == true) and not isPremium(cid) then doPlayerSendTextMessage(cid,22,"You need to be Premium Account Reset.") return TRUE elseif(config.battle == true) and (getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE) then doPlayerSendTextMessage(cid,22,"You need to be out of Battle Reset.") return TRUE elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == true) and (config.look == true) and (config.setClasse == true) then addEvent(Reseting, config.resetStatus.tempo* 1000, cid) elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == false) and (config.look == false) and (config.setClasse == false) then addEvent(noAll, config.resetStatus.tempo* 1000, cid) elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == false) and (config.look == true) and (config.setClasse == true) then addEvent(noTeleporting, config.resetStatus.tempo* 1000, cid) elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == true) and (config.look == false) and (config.setClasse == true) then addEvent(noLook, config.resetStatus.tempo* 1000, cid) elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == true) and (config.look == true) and (config.setClasse == false) then addEvent(noClasse, config.resetStatus.tempo* 1000, cid) elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == false) and (config.look == false) and (config.setClasse == true) then addEvent(setClasse, config.resetStatus.tempo* 1000, cid) elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == false) and (config.look == true) and (config.setClasse == false) then addEvent(look, config.resetStatus.tempo* 1000, cid) elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == true) and (config.look == false) and (config.setClasse == false) then addEvent(teleporting, config.resetStatus.tempo* 1000, cid) elseif doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, needLvl) then doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) return TRUE end if doPlayerPopupFYI(cid, msg) then end return TRUE end --[by: MarcelloMkez]__

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 == 1 and getgate2.itemid == 1 and getgate3.itemid == 1 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

qual erro que acontece no console

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.