Líderes

Olá a todos! Estou aqui para mostrar um script aonde será bem útil a servidores de Pokémon. Não é nada mais do quem um SHOP in-game. Como assim? Com estes 3 comandos será possível comprar Revives, Hyper Potions, Ultra Balls, trocar de nome pelo jogo e até mesmo comprar o Ditto. Detalhe o tipo de moeda que utilizei foi Small Diamonds, caso queria modificar leia passo a passo. Como se percebe, a maioria de servidores hoje em dia vende apenas estes items e outros, mais esses são os padrões. Chega de enrolação e vamos direto ao script. Changename Script: Primeiramente crie um arquivo em otserv/talkactions/scripts chamado changename.lua e adicione isso em seu arquivo. (Este script serve para modificar o nome do jogador pelo jogo). -- Creditos a Doughell function onSay(cid, words, param) local maxLen = 15 -- tamanho maximo do nome local itemid = 2145 ------ Numero do Item que ser&#225; removido local proibido = [{"!","@","*"}-- simbolos proibidos for i = 1, #proibido do if string.find(tostring(param), proibido[i]) then doPlayerSendCancel(cid,"[AUTO SHOP] You can not use symbols in their name.") return TRUE end end if tostring(param) == "" then -- checkar se n&#227;o &#233; nome vazio doPlayerSendCancel(cid, "[AUTO SHOP] Choose a name to make the change of his surname.") return TRUE end if string.len(tostring(param)) > maxLen then doPlayerSendCancel(cid, "[AUTO SHOP] You can use a maximum of " .. maxLen .. " letters.") return TRUE end if not getTilePzInfo(getCreaturePosition(cid)) then doPlayerSendCancel(cid,"[AUTO SHOP] Can only be used in Protection Zone.") return TRUE end if getPlayerItemCount(cid, itemid) >= 1 then doPlayerRemoveItem(cid, itemid, 5) db.executeQuery("UPDATE `players` SET `name` = '"..param.."' WHERE `id` = "..getPlayerGUID(cid)..";") doPlayerSendTextMessage(cid,25,"[AUTO SHOP] You will be logged out in 5 seconds for the changes to be made.") addEvent(doRemoveCreature, 5*1000, cid, true) else doPlayerSendCancel(cid,"[AUTO SHOP] You don't have " .. getItemNameById(itemid) .. " to make the purchase of changename.") end return TRUE end Agora em talkactions.xml adicione em Players: <talkaction words="!changename" event="script" value="changename.lua"/> -- Explicação do Script (Changename): local maxLen = 15 -- tamanho maximo do nome O número 15 e a quantidade máxima de caracteres que poderá ser utilizado na troca de nome. local itemid = 2145 ------ Numero do Item que será removido Este e o ID do item que será removido, no caso do 2145 e Small Diamonds (moeda principal do PokeXGames). Aconselho a usar Small Diamonds. local proibido = {"!","@","*"} -- simbolos proibidos Estes e os símbolos proibidos, caso queria adicionar mais faça o seguinte: {"!","@","*","?"} adicionando dessa seguinte maneira: ,"?"} Ditto Script: Crie um arquivo em otserv/talkactions/scripts com o nome de ditto2.lua e adicione isso em seu arquivo: (Este script serve para adicionar a caixa do Ditto no jogador). function onSay(cid,words,param) if doPlayerRemoveItem(cid,2145,10) == TRUE then doPlayerAddItem(cid,1738,1) doCreatureSay(cid,"[AUTO SHOP] You bought your Pokemon Ditto, it cost 10 diamonds.",TALKTYPE_ORANGE_1) else doCreatureSay(cid,"[AUTO SHOP] You do not have two diamonds to make the purchase.",TALKTYPE_ORANGE_1) end end Agora em talkactions.xml adicione em Players: <talkaction words="!buyditto" event="script" value="ditto2.lua"/> A segunda parte do script você precisa ir otserv/actions/scripts crie um arquivo chamado ditto_.lua e adicione o seguinte: (Este script serve para o id da caixa ser usado para conseguir o Ditto) function onUse(cid, item, frompos, item2, topos) if getPlayerStorageValue(cid, 15215) <= 100 then doPlayerSendTextMessage(cid, 20,"[AUTO SHOP] Thank donations.") setPlayerStorageValue(cid, 15215, 1) local pox = getTownTemplePosition(1) local health = 325 local maxhealth = 325 local description = "Contains a Ditto." local poke1 = "This is Ditto's pokeball. HP = ["..health.."/"..maxhealth.."]" item = doCreateItemEx(2219) doItemSetAttribute(item, "poke", poke1) doItemSetAttribute(item, "nome", "Ditto") doItemSetAttribute(item, "apelido", "Ditto") doItemSetAttribute(item, "description", description) doPlayerAddItemEx(cid, item, true) doTransformItem(item, 2222) doPlayerSendTextMessage(cid, 27, "[AUTO SHOP] You just get the Pokemon Ditto.") doPlayerSendTextMessage(cid, 27, "Do not forget to donate this item has a cost of 10 diamonds, and you can not get this Pokemon through quests / npcs / catchs.") doTeleportThing(cid, pox) doSendMagicEffect(pox, 21) doPlayerAddSoul(cid, 1) doPlayerRemoveItem(cid,1738,1) setPlayerStorageValue(cid, 54842, "Ditto, ") return TRUE else doPlayerSendTextMessage(cid, 20, "Have you got this Pokemon.") end end Agora em actions.xml adicione: <action itemid="1738" event="script" value="ditto_.lua"/> -- Explicação do Script (Ditto): PARTE DAS TALKACTIONS if doPlayerRemoveItem(cid,2145,10) == TRUE then O número 2145 e o id da Small Diamonds, já o número 10 e a quantidade de Small Diamonds que precisa para comprar o Ditto. doPlayerAddItem(cid,1738,1) O número 1738 e o id da box, caso modificar este número modifique tambem em actions.xml! PARTE DAS ACTIONS doSendMagicEffect(pox, 21) O número 21 e o número do efeito que vai ser utilizado ao abrir a box, pode ser modificado em qual você preferir. doPlayerAddSoul(cid, 1) Será adicionado 1 de soul, como se fosse 1 de catch (dependendo de alguns servidores) se preferir retire a linha inteira. doPlayerRemoveItem(cid,1738,1) Este e o id da box, caso você muda-lá na talkactions, e na actions.xml mude aqui tambem. Kit Script: Crie um arquivo em otserv/talkactions/scripts chamado kit.lua e adicione isso dentro dele: (Este script serve para receber Revives, Ultra Balls e Hyper Potions). function onSay(cid,words,param) if doPlayerRemoveItem(cid,2145,2) == TRUE then doPlayerAddItem(cid,2269,100) doPlayerAddItem(cid,2275,100) doPlayerAddItem(cid,2146,100) doCreatureSay(cid,"[AUTO-SHOP]: You just buy ultra ball 100x, 100x revive and 100x hyper potion. All this will cost 2 diamonds!",TALKTYPE_ORANGE_1) else doCreatureSay(cid,"[AUTO-SHOP]: You do not have two diamonds to make the purchase.",TALKTYPE_ORANGE_1) end end Agora em talkactions.xml adicione: <talkaction words="!buykit" event="script" value="kit.lua"/> -- Explicação do Script (Kit): if doPlayerRemoveItem(cid,2145,2) == TRUE then O id 2145 e o Small Diamonds e o número 2 e a quantidade que será retirada para a realização da compra do kit. doPlayerAddItem(cid,2269,100) O id 2269 e o da Ultra Ball e o número 100 e a quantidade que o player receberá de Ultra Balls. doPlayerAddItem(cid,2275,100) O id 2275 e o do Revive, e o número 100 e a quantidade que o player receberá de Revives. doPlayerAddItem(cid,2146,100) O id 2146 e o da Hyper Potion, e o número 100 e a quantidade que o player receberá de Hyper Potions. Bom, estes são os scripts prometido, mas se alguém quiser coloca outras talkactions como a !buykit vou colocar abaixo o que poderam usar de base: function onSay(cid,words,param) if doPlayerRemoveMoney(cid,10000) == TRUE then doPlayerAddItem(cid,2173,1) doCreatureSay(cid,"Mensagem que ele conseguiu comprar o item.",TALKTYPE_ORANGE_1) else doCreatureSay(cid,"Mensagem quando n&#227;o possui dinheiro ou diamantes suficientes.",TALKTYPE_ORANGE_1) end end if doPlayerRemoveMoney(cid,10000) == TRUE then Essa função diz que irá remover 10k para comprar o item, se você quiser que remova outra coisa por exemplo um shield você adiciona a seguinte função no lugar dessa: doPlayerRemoveItem(cid,1738,1) ficando assim: doPlayerRemoveItem(cid,1738,1) = TRUE then O id do shield você modifica no 1738 e a quantidade no número 1. doPlayerAddItem(cid,2173,1) Esas função adiciona o item e a quantidade no jogador, exemplo: 2173 e o ID do item, e o número 1 e a quantidade só modificar do seu gosto. O que você pode adicionar em um script? Efeitos, para adicionar um efeito basta colocar essa função: doSendMagicEffect(getThingPos(cid), 132) O número 132 e o número do efeito, para pesquisar mais procure pelo jogo no GOD o seguinte: /z 1, /z 2, /z 3 até o seu limite. É isso ai galera, qualquer dúvida postem ou dêem sujestões! Detalhe: as cores nos scripts foram retiradas por bug, em outra hora adicionarei novamente!

Salve Galera do TibiaKing Sou novo Aqui com podem ver Nao estou acostumado com os Habito de Postar no lugar Certo.. Peso ate que Me ajudem aii Movendo para area correta !! Então acho que Devo Agradecer primeiro a quem fez o script, que eu baixei um server e veio nele so que nao me lembro como essa Script ela e De dar Up no Seu char ao inveiz de upar um level do pokemon espero que gostem e ta aii... Desculpe nao por os creditos e por que eu baixei de um server e realmente nao seii quem foi o criador dessa script Vá na pasta actions/script/ crie um arquivo chamado rarecandy.lua depois vá na pasta actions/ actions.xml Cole isto <action itemid="6569" event="script" value="rarecandy.lua" allowfaruse="1"/> e Depois Cole isto dentro do arquivo rarecandy.lua

tenho naum ;s

Amigo se nao der certo me avise Adicione Esse Seguinte linha no: actions/actions.xml <!-- Quests POD --> <action uniqueid="9996" event="script" value="pokeballs.lua"/> <action uniqueid="9997" event="script" value="pokeballs.lua"/> <action uniqueid="9998" event="script" value="pokeballs.lua"/> Feito isso Crie Uma pasta dentro do actions/script/pokeballs.xml e cole isto dentro -- annihilator chests function onUse(cid, item, frompos, item2, topos) local hp = 800 if item.uid == 9996 then queststatus = getPlayerStorageValue(cid,8749) if queststatus == -1 then doPlayerSendTextMessage(cid,22,"Caterpie.") local ball1 = doPlayerAddItem(cid,2522,1) doPlayerAddItem(cid,2149,50) doItemSetAttribute(ball1, "aid", hp) setPlayerStorageValue(cid,8749,1) else doPlayerSendTextMessage(cid,22,"Voce ja pegou seu pokemon.") end elseif item.uid == 9997 then queststatus = getPlayerStorageValue(cid,8749) if queststatus == -1 then doPlayerSendTextMessage(cid,22,"Ratata.") local ball2 = doPlayerAddItem(cid,2527,1) doPlayerAddItem(cid,2149,50) doItemSetAttribute(ball2, "aid", hp) setPlayerStorageValue(cid,8749,1) else doPlayerSendTextMessage(cid,22,"Voce ja pegou seu pokemon.") end elseif item.uid == 9998 then queststatus = getPlayerStorageValue(cid,8749) if queststatus == -1 then doPlayerSendTextMessage(cid,22,"Weddle.") local ball3 = doPlayerAddItem(cid,2522,1) doPlayerAddItem(cid,2149,50) doItemSetAttribute(ball3, "aid", hp) setPlayerStorageValue(cid,8749,1) else doPlayerSendTextMessage(cid,22,"Voce ja pegou seu pokemon.") end else return 0 end return 1 end e Pronto e lembrando se nao der certo me avise

Sei naum ;s iiiiii ? to só começando rsrs

nenhun usa light shovel kk n sei pq ;s

Ainda no config.lua: spellNameInsteadOfWords = false Só passar para true.

class ModuleGoldChanger: def getName(self): return "Gold Changer" def getVersion(self): return "1.0"; def getFunDef(self,nr): if (nr==0): return (0,5000,self.goldChanger); return (); def getConfigParam(self,nr): if (nr==0): return ('platOff','turn plat->cc off'); return (); def goldChanger(self,params): goldId = 0xbd7; platId = 0xbdb; for contNr in range(16): cont=tareader.readContainer(contNr); if cont['flagOnOff']: for itemNr in range(cont['itemsInside']-1,-1,-1): item=tareader.readContainerItem(contNr,itemNr); if (item['objectId']==platId and params['platOff']!='0' or item['objectId']==goldId) and item['quantity']==100: tasender.useItemInContainer(item['objectId'], 0x40+contNr,item['pos']); return(); tibiaauto.registerPlugin(ModuleGoldChanger); download [mediafire]