Líderes

REMOVIDO

Isso depende muito. Como eu disse, escrevi aquele sistema para uma base específica. Nela, não havia problemas de crash ou coisas do tipo. Bases poketibianas se diferem em muitos quesitos, o que torna a adaptação, as vezes, bem chata e/ou complicada (por isso mesmo que disse no tópico que não pretendia adaptar para ninguém, já que existem dezenas de bases diferentes por aí, o que é sinônimo de muita dor de cabeça). Porém, pergunto-lhe: há algum algum erro no console? Há alguma ação específica que faça o servidor travar/cair? Ou é simplesmente aleatório? Sem detalhes, fica muito difícil adaptar corretamente o sistema para sua base.

local days = 5function onLogin(cid) local account_id = getPlayerAccountId(cid) local storage = account_id + 550 if getGlobalStorageValue(storage) <= 0 then setGlobalStorageValue(storage, 13500) addVipDaysByAccount(account_id, days) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você recebeu "..days.." dias de VIP, bom jogo!") end return trueend

Tag actions <action uniqueid="35400" script="vipname.lua" /> Tenta ai eu tinha de uma base aqui, Mas testa e edita a seu gosto, Bom esse script foi testando em PDA "Poketibia" 8.54 caso foi open ou outro tibia precisara de algumas mudanças(Adaptaçoes). vipname.lua vipname.lua

Tem gift ou video? queria vêr como funciona isto ae

Obrigado :3

local outfit = 20 -- nmr do newtypelocal item1 = 12620local quant1 = 600local vocation547 = 547local pos = {x=655, y=399, z=7}local keywordHandler = KeywordHandler:new()local npcHandler = NpcHandler:new(keywordHandler)NpcSystem.parseParameters(npcHandler)function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) endfunction onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) endfunction onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) endfunction onThink() npcHandler:onThink() endfunction santaNPC(cid, message, keywords, parameters, node)if(not npcHandler:isFocused(cid)) thenreturn falseendif(parameters.present == true) thenif(doPlayerRemoveItem(cid,item1,quant1) == true) thendoPlayerSetVocation(cid, 547)doSetCreatureOutfit(cid, {lookType = outfit}, -1)doTeleportThing(cid, pos)npcHandler:say('Voce agora é broly ultragod.',cid)elsenpcHandler:say('Voce nao tem 600 ultimate coins .',cid)endnpcHandler:resetNpc()return trueendendnpcHandler:setMessage(MESSAGE_GREET, "Ola |PLAYERNAME|. Voce quer ser {broly ultragod}?.")local noNode = KeywordNode:new({'no'}, santaNPC, {present = false})local yesNode = KeywordNode:new({'yes'}, santaNPC, {present = true})local node = keywordHandler:addKeyword({'broly ultragod'}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, text = 'Voce quer realmente ser broly ultragod?, você não ira se arrepender. {yes}'})node:addChildKeywordNode(yesNode)node:addChildKeywordNode(noNode)npcHandler:addModule(FocusModule:new())

local outfit = 100function onEquip(cid, item) doSetCreatureOutfit(cid, {lookType = outfit}, -1) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Equipado") doSendMagicEffect(getCreaturePosition(cid), 22)return trueendfunction onDeEquip(cid, item) doRemoveCondition(cid, CONDITION_OUTFIT)return trueend <movevent type="Equip" itemid="ID do Item" slot="SLOT do Item, armor, legs, shield" script="arquivo.lua"/> <movevent type="DeEquip" itemid="ID do Item" slot="SLOT do Item, armor, legs, shield" script="arquivo.lua"/>

Mapa feito pelo Usuário RokojoM Imagens: Download Mega Créditos: RokojoM