BrunooMaciell

Estou com um BUG no autoloot. BUG [21/08/2020 23:13:54] [Error - Action Interface] [21/08/2020 23:13:54] data/actions/scripts/Autoloot.lua:onUse [21/08/2020 23:13:54] Description: [21/08/2020 23:13:54] data/actions/scripts/Autoloot.lua:11: attempt to perform arithmetic on a boolean value [21/08/2020 23:13:54] stack traceback: [21/08/2020 23:13:54] data/actions/scripts/Autoloot.lua:11: in function <data/actions/scripts/Autoloot.lua:5> SCRIPT local toloot = {11441, 11442, 11443, 11444, 11445, 11446, 11447, 11448, 11449,11450, 11451, 11452, 11453, 11454, 12618, 12232, 12244} -- PREFERENCIAL - SE QUISER APENAS COM ALGUNS ITENS local useSpecific = false --True para lotear somente os itens que estiverem na tabela toloot, false para todos os itens do corpse function onUse(cid, item, frompos, item2, topos) if getItemAttribute(item.uid, "corpseowner") ~= cid then doPlayerSendCancel(cid, "Você não é o proprietário.") return true end local items = {} for x = (getContainerSize(item.uid) - 1), 0, -1 do local k = getContainerItem(item.uid, x) table.insert(items, {i=k.itemid, q=k.type}) doRemoveItem(k.uid) end if #items == nil then return false end for y=1, #items do doPlayerAddItemStacking(cid, items[y].i, items[y].q) doPlayerSendTextMessage(cid, 20, "Looted "..items[y].q.."x "..getItemNameById(items[y].i)..".") end return true end --[[ AUTO LOOT BY GABRIEL SALES SE QUISER ATIVAR O AUTOLOOT APENAS PARA ALGUNS ITENS, ADICIONE OS IDS NA TABELA toloot E TIRE OS COMENTÁRIOS(--). --]] Rep++

pse ta bem estranho tipo ultra ball com pokemon se da revive nele transforma em normal ball. E pra min o bug tava na script agora nao sei kkkkkkkkkkk

PDA

Estou tendo um BUG no Revive. Tipo ele funciona normal nao gera ERRO no EXE do server. Porem em game ele da um BUG. Tipo: vc captura um pokemon com uma ultra ball aii caso vc use revive nele a ultra ball nele vira uma normal ball. Queria deixa certo. Tipo: uso revive em um pokemon capturado com ultra ball ele continua ultra ball normal. SCRIPT function onUse(cid, item, frompos, item2, topos) -- if getPlayerStorageValue(cid, 990) >= 1 then -- doPlayerSendCancel(cid, "You can't use revive during gym battles.") -- return true -- end -- if getPlayerStorageValue(cid, 52481) >= 1 then -- return doPlayerSendCancel(cid, "You can't do that while a duel.") --alterado v1.6 -- end if getPlayerStorageValue(cid, 17000) >= 1 then return doPlayerSendCancel(cid, "Nao pode usar revive enquanto esta no Fly") --alterado v1.6 end if getPlayerStorageValue(cid, 17001) >= 1 then return doPlayerSendCancel(cid, "Nao pode usar revive enquanto esta no Ride") --alterado v1.6 end if getPlayerStorageValue(cid, 63215) >= 1 then return doPlayerSendCancel(cid, "Nao pode usar revive enquanto esta no Surf") --alterado v1.6 end -- if item2.itemid <= 0 or not isPokeball(item2.itemid) then doPlayerSendCancel(cid, "Please, use revive only on pokeballs.") return true end for a, b in pairs (pokeballs) do if #getCreatureSummons(cid) <= 0 then doTransformItem(item2.uid, b.on) doSetItemAttribute(item2.uid, "hp", 1) for c = 1, 15 do local str = "move"..c setCD(item2.uid, str, 0) end setCD(item2.uid, "control", 0) setCD(item2.uid, "blink", 0) --alterado v1.6 doSendMagicEffect(getThingPos(cid), 13) doRemoveItem(item.uid, 1) doCureBallStatus(getPlayerSlotItem(cid, 8).uid, "all") doCureStatus(cid, "all", true) cleanBuffs2(item2.uid) --alterado v1.5 return true end end return true end Rep+++

Foi vlw demais mano vlw mesmo ^^

Deu este BUG [14/08/2020 12:56:11] [Error - Npc interface] [14/08/2020 12:56:11] data/npc/scripts/trade/Lucy.lua:onCreatureSay [14/08/2020 12:56:11] Description: [14/08/2020 12:56:11] data/npc/scripts/trade/Lucy.lua:71: attempt to index global 'talkState' (a nil value) [14/08/2020 12:56:11] stack traceback: [14/08/2020 12:56:11] data/npc/scripts/trade/Lucy.lua:71: in function 'callback' [14/08/2020 12:56:11] data/npc/lib/npcsystem/npchandler.lua:391: in function 'onCreatureSay' [14/08/2020 12:56:11] data/npc/scripts/trade/Lucy.lua:6: in function <data/npc/scripts/trade/Lucy.lua:6>

Foi vlw ^^

Deu este BUG [14/08/2020 12:38:24] [Warning - NpcScript::NpcScript] Cannot load script: data/npc/scripts/trade/Lucy.lua [14/08/2020 12:38:24] data/npc/scripts/trade/Lucy.lua:79: ')' expected near ',' [14/08/2020 12:38:26] [Error - LuaScriptInterface::loadFile] data/npc/scripts/trade/Lucy.lua:79: ')' expected near ',' [14/08/2020 12:38:26] [Warning - NpcScript::NpcScript] Cannot load script: data/npc/scripts/trade/Lucy.lua [14/08/2020 12:38:26] data/npc/scripts/trade/Lucy.lua:79: ')' expected near ','

Eu queria por 2 comandos pra so premium account pode usar. Comando CORRER function onSay(cid, words, param) if exhaustion.get(cid, 501) then doPlayerSendCancel(cid, 'Você precisa espera 10 segundos para usar novamente.') return true end if getPlayerStorageValue(cid, 32001) == 1 then doPlayerSendCancel(cid, "Você não pode usar bike e correr ao mesmo tempo") return false end if getPlayerStorageValue(cid, 17000) == 1 then doPlayerSendCancel(cid, "Você não pode usar bike e correr ao mesmo tempo") return false end if getPlayerStorageValue(cid, 17001) == 1 then doPlayerSendCancel(cid, "Você não pode usar bike e correr ao mesmo tempo") return false end if isCreature(cid) then doCreatureSay(cid, "correr", TALKTYPE_ORANGE_1) setPlayerStorageValue(cid, 19000, 1) doChangeSpeed(cid, 1 * 5000) doSendMagicEffect(getPlayerPosition(cid), 1) exhaustion.set(cid, 501, 10) addEvent(function() setPlayerStorageValue(cid, 19000, 0) doRegainSpeed(cid) end, 15000) -- Tempo que vai durar a talkaction return true end end Comando LUZ local minutes = 15 -- Minutos function onSay(cid, words, param) if isPlayer(cid) then doSetCreatureLight(cid, 50000, 2000, minutes*60*1000) doSendAnimatedText(getCreaturePosition(cid), "Luz", math.random(1, 255)) end return true end REP+++

Entao amigo. Eu nao entendi foi nada kkkkkkkkkkkkk se tu puder arruma pra min pois nao entendi nada kkkkkkk Bom este BUG ele sempre da quando vo fala com NPC so de FALA com NPC ele ja BUGA ele ja da isso

sim

Foii vlw ?

Eu queria por a funçao premium account nesta script. Tipo ela e uma script de door so level 300+ pode passar so que queria por que o cara o player tem que ser premium account tbem SCRIPT function onUse(cid, item, frompos, item2, topos) local pos = {x=1411, y=1287, z=5} local need_lv = 300 if getPlayerLevel(cid) >= need_lv then doTeleportThing(cid, pos) doSendMagicEffect(pos, CONST_ME_TELEPORT) else return doPlayerSendCancel(cid, "Você precisa ser level "..need_lv.." para passar por esta porta.") end return 1 end Rep+++

Estou com um BUG em um NPC relacionado a online point. BUG [09/08/2020 11:35:29] [Error - Npc interface] [09/08/2020 11:35:29] data/npc/scripts/trade/Lucy.lua:onCreatureSay [09/08/2020 11:35:29] Description: [09/08/2020 11:35:29] data/lib/050-function.lua:227: attempt to index a boolean value [09/08/2020 11:35:29] stack traceback: [09/08/2020 11:35:29] data/lib/050-function.lua:227: in function 'getItemNameById' [09/08/2020 11:35:29] data/npc/scripts/trade/Lucy.lua:65: in function 'callback' [09/08/2020 11:35:29] data/npc/lib/npcsystem/npchandler.lua:391: in function 'onCreatureSay' [09/08/2020 11:35:29] data/npc/scripts/trade/Lucy.lua:8: in function <data/npc/scripts/trade/Lucy.lua:8> SCRIPT local keywordHandler = KeywordHandler:new() local npcHandler = NpcHandler:new(keywordHandler) NpcSystem.parseParameters(npcHandler) local talkState = {} function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end function onThink() npcHandler:onThink() end function creatureSayCallback(cid, type, msg) if(not npcHandler:isFocused(cid)) then return false end local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid ------------------- Configuração dos Itens ----------------------- local items = {12683, 12682, 12684, 12681, 2365, 15600, 23828, 17069} -- ID dos Itens local nome = {'pokeball backpack', 'greatball backpack', 'superball backpack', 'facebook backpack', 'backpack of holding', 'love teddy', 'dogs house', 'music box'} ------------------- MESSAGES INICIAIS ---------------------------------------- if msgcontains(msg, nome[1]) then selfSay('Deseja comprar 1x {'..getItemNameById(items[1])..'} Por 10 online points?', cid) selfSay('Para saber quantos pontos possui digite {!opshop}.', cid) talkState[talkUser] = 1 elseif msgcontains(msg, nome[2]) then selfSay('Deseja comprar um {'..getItemNameById(items[2])..'} Por 12 online points?', cid) selfSay('Para saber quantos pontos possui digite {!opshop}.', cid) talkState[talkUser] = 2 elseif msgcontains(msg, nome[3]) then selfSay('Deseja comprar um {'..getItemNameById(items[3])..'} Por 15 online points?', cid) selfSay('Para saber quantos pontos possui digite {!opshop}.', cid) talkState[talkUser] = 3 elseif msgcontains(msg, nome[4]) then selfSay('Deseja comprar um {'..getItemNameById(items[5])..'} Por 20 online points?', cid) selfSay('Para saber quantos pontos possui digite {!opshop}.', cid) talkState[talkUser] = 4 elseif msgcontains(msg, nome[5]) then selfSay('Deseja comprar um {'..getItemNameById(items[6])..'} Por 25 online points?', cid) selfSay('Para saber quantos pontos possui digite {!opshop}.', cid) talkState[talkUser] = 5 elseif msgcontains(msg, nome[6]) then selfSay('Deseja comprar um {'..getItemNameById(items[7])..'} Por 30 online points?', cid) selfSay('Para saber quantos pontos possui digite {!opshop}.', cid) talkState[talkUser] = 6 elseif msgcontains(msg, nome[7]) then selfSay('Deseja comprar um {'..getItemNameById(items[8])..'} Por 40 online points?', cid) selfSay('Para saber quantos pontos possui digite {!opshop}.', cid) talkState[talkUser] = 7 elseif msgcontains(msg, nome[8]) then selfSay('Deseja comprar um {'..getItemNameById(items[9])..'} Por 50 online points?', cid) selfSay('Para saber quantos pontos possui digite {!opshop}.', cid) talkState[talkUser] = 8 elseif (msgcontains(msg, 'negociar') or msgcontains(msg, 'trade')) then selfSay('No momento tenho disponivel em meu estoque os seguintes itens: {'..getItemNameById(items[1])..'}, {'..getItemNameById(items[2])..'}, {'..getItemNameById(items[3])..'}, {'..getItemNameById(items[4])..'}, {'..getItemNameById(items[5])..'}, {'..getItemNameById(items[6])..'}, {'..getItemNameById(items[7])..'}, {'..getItemNameById(items[8])..'}, {'..getItemNameById(items[9])..'} e {'..getItemNameById(items[10])..'}.', cid) talkState[talkUser] = 0 ---------------------- NEGOCIAÇÃO ------------------------------- elseif talkState[talkUser] == 1 then if (msgcontains(msg, 'sim') or msgcontains(msg, 'yes')) then local qnt = 10 local bonuscoin = 5984548 if getPlayerStorageValue(cid, bonuscoin) >= qnt then setPlayerStorageValue(cid, bonuscoin, getPlayerStorageValue(cid, bonuscoin) - qnt) doPlayerAddItem(cid, items[1], 1) selfSay('Parabéns, voce acabou de adquirir 1x '..getItemNameById(items[1])..'!', cid) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Agora voce tem: " .. getPlayerStorageValue(cid,5984548) .. " Online Bonus.") else selfSay('Voce precisa de 10 online bonus para adquirir esse item.', cid) talkState[talkUser] = 0 end end elseif talkState[talkUser] == 2 then if (msgcontains(msg, 'sim') or msgcontains(msg, 'yes')) then local qnt = 12 local bonuscoin = 5984548 if getPlayerStorageValue(cid, bonuscoin) >= qnt then setPlayerStorageValue(cid, bonuscoin, getPlayerStorageValue(cid, bonuscoin) - qnt) doPlayerAddItem(cid, items[2], 1) selfSay('Parabens, voce acaba de adquirir um '..getItemNameById(items[2])..'.', cid) else selfSay('Voce precisa de 13 online bonus para adquirir esse item.', cid) talkState[talkUser] = 0 end end elseif talkState[talkUser] == 3 then if (msgcontains(msg, 'sim') or msgcontains(msg, 'yes')) then local bonuscoin = 5984548 local qnt = 15 if getPlayerStorageValue(cid, bonuscoin) >= qnt then setPlayerStorageValue(cid, bonuscoin, getPlayerStorageValue(cid, bonuscoin) - qnt) doPlayerAddItem(cid, items[3], 1) selfSay('Parabens, voce acaba de adquirir um '..getItemNameById(items[3])..'.', cid) else selfSay('Voce precisa de 15 online bonus para adquirir esse item.', cid) talkState[talkUser] = 0 end end elseif talkState[talkUser] == 4 then if (msgcontains(msg, 'sim') or msgcontains(msg, 'yes')) then if getPlayerStorageValue(cid, 5984548) >= 20 then setPlayerStorageValue(cid, 5984548, getPlayerStorageValue(cid, 5984548) - 10) doPlayerAddItem(cid, items[5], 1) selfSay('Parabens, voce acaba de adquirir um '..getItemNameById(items[5])..'.', cid) else selfSay('Voce precisa de 20 online bonus para adquirir esse item.', cid) talkState[talkUser] = 0 end end elseif talkState[talkUser] == 5 then if (msgcontains(msg, 'sim') or msgcontains(msg, 'yes')) then if getPlayerStorageValue(cid, 5984548) >= 25 then setPlayerStorageValue(cid, 5984548, getPlayerStorageValue(cid, 5984548) - 10) doPlayerAddItem(cid, items[6], 1) selfSay('Parabens, voce acaba de adquirir um '..getItemNameById(items[6])..'.', cid) else selfSay('Voce precisa de 30 online bonus para adquirir esse item.', cid) talkState[talkUser] = 0 end end elseif talkState[talkUser] == 6 then if (msgcontains(msg, 'sim') or msgcontains(msg, 'yes')) then if getPlayerStorageValue(cid, 5984548) >= 30 then setPlayerStorageValue(cid, 5984548, getPlayerStorageValue(cid, 5984548) - 10) doPlayerAddItem(cid, items[7], 1) selfSay('Parabens, voce acaba de adquirir um '..getItemNameById(items[7])..'.', cid) else selfSay('Voce precisa de 35 online bonus para adquirir esse item.', cid) talkState[talkUser] = 0 end end elseif talkState[talkUser] == 7 then if (msgcontains(msg, 'sim') or msgcontains(msg, 'yes')) then if getPlayerStorageValue(cid, 5984548) >= 40 then setPlayerStorageValue(cid, 5984548, getPlayerStorageValue(cid, 5984548) - 10) doPlayerAddItem(cid, items[8], 1) selfSay('Parabens, voce acaba de adquirir um '..getItemNameById(items[8])..'.', cid) else selfSay('Voce precisa de 40 online bonus para adquirir esse item.', cid) talkState[talkUser] = 0 end end elseif talkState[talkUser] == 8 then if (msgcontains(msg, 'sim') or msgcontains(msg, 'yes')) then if getPlayerStorageValue(cid, 5984548) >= 50 then setPlayerStorageValue(cid, 5984548, getPlayerStorageValue(cid, 5984548) - 10) doPlayerAddItem(cid, items[9], 1) selfSay('Parabens, voce acaba de adquirir um '..getItemNameById(items[9])..'.', cid) else selfSay('Voce precisa de 45 online bonus para adquirir esse item.', cid) talkState[talkUser] = 0 end end end return true end npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback) npcHandler:addModule(FocusModule:new()) OBS: Caso precise de mais alguma script so fala que posto ^^ REP+++

Deu certo ^^ vlw ?

Nao funcionou =/ Nao deu ERRO nem nada porem quando crio ou uso o /cb ele cria com poke ball normal =/

ue nao uso nao aqui ta sem icone ta normal kkkkkkkkkkkk mas vo testa sua script Deu Este BUG @Deadpool [08/08/2020 17:55:22] [Error - TalkAction Interface] [08/08/2020 17:55:22] data/talkactions/scripts/createpokeball.lua:onSay [08/08/2020 17:55:22] Description: [08/08/2020 17:55:22] data/talkactions/scripts/createpokeball.lua:13: attempt to index global 'typess' (a nil value) [08/08/2020 17:55:22] stack traceback: [08/08/2020 17:55:22] data/talkactions/scripts/createpokeball.lua:13: in function <data/talkactions/scripts/createpokeball.lua:1>

Eu queria deixa o comando >> /cb quando o ADM usa-lo pra cria o pokemon dentro da ball que a ball vinha so de ultra ball. Tipo: /cb charizard Ai vinha um charizard dentro de uma ultra ball Quando o ADM ou STAFF que seja usar o comando ela so vinha com pokemons dentro de ultra ball Rep++ SCRIPT >> /CB function onSay(cid, words, param) local typess = { [1] = "normal", [2] = "great", [3] = "super", [4] = "ultra" } if param == "" then doPlayerSendCancel(cid, 'Command needs parameters, function structure: "/cb [Pokemon Name], [boost], [Gender]".') return 0 end local t = string.explode(param, ",") local name = "" local gender = 0 local btype = typess[math.random(1, 4)] --"normal" local typeee = typess[math.random(1, 4)] if t[1] then local n = string.explode(t[1], " ") local str = string.sub(n[1], 1, 1) local sta = string.sub(n[1], 2, string.len(n[1])) name = ""..string.upper(str)..""..string.lower(sta).."" if n[2] then str = string.sub(n[2], 1, 1) sta = string.sub(n[2], 2, string.len(n[2])) name = name.." "..string.upper(str)..""..string.lower(sta).."" end if not pokes[name] then doPlayerSendCancel(cid, "Sorry, a pokemon with the name "..name.." doesn't exists.") return true end print(""..name.." ball has been created by "..getPlayerName(cid)..".") end local genders = { ["male"] = 4, ["female"] = 3, ["1"] = 4, ["0"] = 3} if t[3] then if genders[t[3]] then gender = genders[t[3]] else local rate = newpokedex[name].gender if rate == 0 then gender = 3 elseif rate == 1000 then gender = 4 elseif rate == -1 then gender = 0 elseif math.random(1, 1000) <= rate then gender = 4 else gender = 3 end end else local rate = newpokedex[name].gender if rate == 0 then gender = 3 elseif rate == 1000 then gender = 4 elseif rate == -1 then gender = 0 elseif math.random(1, 1000) <= rate then gender = 4 else gender = 3 end end local mypoke = pokes[name] local happy = 255 local item = doCreateItemEx(2219) doItemSetAttribute(item, "poke", name) doItemSetAttribute(item, "hp", 1) if t[2] and tonumber(t[2]) > 0 and tonumber(t[2]) <= 50 then doItemSetAttribute(item, "boost", tonumber(t[2])) end doItemSetAttribute(item, "happy", happy) doItemSetAttribute(item, "gender", gender) if name == "Shiny Hitmonchan" or name == "Hitmonchan" then doItemSetAttribute(item, "hands", 0) end doItemSetAttribute(item, "description", "Contains a "..name..".") doItemSetAttribute(item, "addon", 0) doItemSetAttribute(item, "fakedesc", "Contains a "..name..".") local x = icons[getItemAttribute(item, "poke")] doPlayerAddItemEx(cid, item, true) doItemSetAttribute(item, "ball", "Icone") doItemSetAttribute(item, "icon", "yes") doItemSetAttribute(item, "morta", "no") doTransformItem(item, x.on) return 1 end Rep+++

Testei deu bug aquele bug da barra de pokemons que aparece no lado e as mensagens continuo =/

Mesma coisa =/

Bom ja este deu aquele bug de aparecer a barra de pokemons e as mensagens nao saiu kkkkkkkkk Mas se nao souber dboa o principal ja resolveu kkkkk ^^

Deu certo \o/ Viu antes de finaliza so uma coisa caso saiba claro ^^ No account manager aparece estas frases um eu sei que e de sistema de exp pra vip e talz eu queria tira esta frase do account manager so quando o player loga. O outro nao sei se e bug e se tem como tira que e a frase de baixo.

ok ? Eu mandei uma ultima aii e que dei uma editada ^^

Deu certo ^^ Porem deu um problema. No exe do server nao deu ERRO nao deu nada porem em game. Troco a outfit porem aparece as barras como se tive-se em player marquei em vermelho.

Se pode edita a minha eque dei uma editada da que postei ^^ Editei algumas coisinhas rs Se puder editar essa ^^ local config = { loginMessage = getConfigValue('loginMessage'), useFragHandler = getBooleanFromString(getConfigValue('useFragHandler')) } --alterado v2.6 tabelas soh em lib/configuration.lua; function onLogin(cid) registerCreatureEvent(cid, "hmup") registerCreatureEvent(cid, "PlayerAttack") registerCreatureEvent(cid, "dropStone") registerCreatureEvent(cid, "OnAdvanced") registerCreatureEvent(cid, "vipexp") registerCreatureEvent(cid, "ShowPokedex") registerCreatureEvent(cid, "ClosePokedex") registerCreatureEvent(cid, "WatchTv") registerCreatureEvent(cid, "DropShiny") registerCreatureEvent(cid, "StopWatchingTv") registerCreatureEvent(cid, "WalkTv") registerCreatureEvent(cid, "RecordTv") registerCreatureEvent(cid, "Death") registerCreatureEvent(cid, "PlayerLogout") registerCreatureEvent(cid, "WildAttack") registerCreatureEvent(cid, "Idle") registerCreatureEvent(cid, "PokemonIdle") registerCreatureEvent(cid, "EffectOnAdvance") registerCreatureEvent(cid, "reward") registerCreatureEvent(cid, "GeneralConfiguration") registerCreatureEvent(cid, "ExtendedOpcode") registerCreatureEvent(cid, "ReportBug") registerCreatureEvent(cid, "LookSystem") registerCreatureEvent(cid, "T1") registerCreatureEvent(cid, "T2") registerCreatureEvent(cid, "ll1") registerCreatureEvent(cid, "task_count") registerCreatureEvent(cid, "effectdeath") registerCreatureEvent(cid, "dota") registerCreatureEvent(cid, "atk") registerCreatureEvent(cid, "balance") registerCreatureEvent(cid, "BlockHit") registerCreatureEvent(cid, "Ataque") registerCreatureEvent(cid, "NlooT") registerCreatureEvent(cid, "KillTask") registerCreatureEvent(cid, "KillTaske") registerCreatureEvent(cid, "KillTask3") registerCreatureEvent(cid, "KillTask4") registerCreatureEvent(cid, "PlayerDeath") registerCreatureEvent(cid, "PetKill") registerCreatureEvent(cid, "onlinebonus") registerCreatureEvent(cid, "AtLoot") registerCreatureEvent(cid, "Monster Hunterl") registerCreatureEvent(cid, "Monster Hunter") doRegainSpeed(cid) doUpdatePokemonsBar(cid) doPlayerSetLossPercent(cid, PLAYERLOSS_EXPERIENCE, 25) doCreatureSetDropLoot(cid, false) if getPlayerStorageValue(cid, 17000) >= 1 then setPlayerStorageValue(cid, 17000, 0) doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)), false) sendMsgToPlayer(cid, 20, "Voce Deslogou No Fly E Foi Teleportado Para O CP Por Questoes De Seguranca.") return true end setPlayerStorageValue(cid, 17001, 0) --ride setPlayerStorageValue(cid, 92003, 0) --water robotic setPlayerStorageValue(cid, 92002, 0) --fire robotic setPlayerStorageValue(cid, 92001, 0) --water robotic setPlayerStorageValue(cid, 32001, 0) --bike if getCreatureName(cid) ~= "Account Manager" then -- O "ACCOUNT MANAGER" É EXCEÇÃO. doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "(Online Points) Voce Possui " .. getPlayerStorageValue(cid,5984548) .. " Online Points Armazenados Em Seu Personagem. Digite !opshop A Qualquer Momento Para Saber Quantos Online Points Voce Possui.") end if getPlayerStorageValue(cid, 5984548) < 0 then setPlayerStorageValue(cid, 5984548, 0) return true end -- SE AS QUANTIDADES DE FUSION HELDS POINTS FOREM MENOR QUE 0, SETA AS QUANTIDADES DE FUSION HELDS POINTS PARA 0 if getPlayerStorageValue(cid, 1234601) < 0 then setPlayerStorageValue(cid, 1234601, 0) return true end if getPlayerStorageValue(cid, 1234602) < 0 then setPlayerStorageValue(cid, 1234602, 0) return true end if getPlayerStorageValue(cid, 1234603) < 0 then setPlayerStorageValue(cid, 1234603, 0) return true end if getPlayerStorageValue(cid, 1234604) < 0 then setPlayerStorageValue(cid, 1234604, 0) return true end if getPlayerStorageValue(cid, 1234605) < 0 then setPlayerStorageValue(cid, 1234605, 0) return true end if getPlayerStorageValue(cid, 1234606) < 0 then setPlayerStorageValue(cid, 1234606, 0) return true end if getPlayerStorageValue(cid, 1234607) < 0 then setPlayerStorageValue(cid, 1234607, 0) return true end local accountManager = getPlayerAccountManager(cid) if(accountManager == MANAGER_NONE) then local lastLogin, str = getPlayerLastLoginSaved(cid), config.loginMessage if(lastLogin > 0) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str) str = "Your last visit was on " .. os.date("%a %b %d %X %Y", lastLogin) .. "." end doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, 'Bem Vindo Ao Pokemon Venetta Server') doPlayerSendTextMessage(cid, MESSAGE_STATUS_DEFAULT, str) elseif(accountManager == MANAGER_NAMELOCK) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Ola, parece que voce teve seu nome bloqueado (nameblock), escolha outro nome.") elseif(accountManager == MANAGER_ACCOUNT) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, type 'account' to manage your account and if you want to start over then type 'cancel'.") else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Hello, type 'account' to create an account or type 'recover' to recover an account.") end if getCreatureName(cid) == "Account Manager" then local outfit = {} if accountManagerRandomPokemonOutfit then outfit = {lookType = getPokemonXMLOutfit(oldpokedex[math.random(151)][1])} else outfit = accountManagerOutfit end doSetCreatureOutfit(cid, outfit, -1) return true end if(not isPlayerGhost(cid)) then doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT) end local outfit = {} if getPlayerVocation(cid) == 0 then doPlayerSetMaxCapacity(cid, 7) doPlayerSetVocation(cid, 1) setCreatureMaxMana(cid, 6) doPlayerAddSoul(cid, -getPlayerSoul(cid)) setPlayerStorageValue(cid, 19898, 0) if getCreatureOutfit(cid).lookType == 510 then outfit = {lookType = 510, lookHead = math.random(0, 132), lookBody = math.random(0, 132), lookLegs = math.random(0, 132), lookFeet = math.random(0, 132)} elseif getCreatureOutfit(cid).lookType == 511 then outfit = {lookType = 511, lookHead = math.random(0, 132), lookBody = math.random(0, 132), lookLegs = math.random(0, 132), lookFeet = math.random(0, 132)} end doCreatureChangeOutfit(cid, outfit) end if getPlayerStorageValue(cid, 99284) == 1 then setPlayerStorageValue(cid, 99284, -1) end if getPlayerStorageValue(cid, 6598754) >= 1 or getPlayerStorageValue(cid, 6598755) >= 1 then setPlayerStorageValue(cid, 6598754, -1) setPlayerStorageValue(cid, 6598755, -1) doRemoveCondition(cid, CONDITION_OUTFIT) --alterado v2.9 \/ doTeleportThing(cid, posBackPVP, false) doCreatureAddHealth(cid, getCreatureMaxHealth(cid)) end doChangeSpeed(cid, -(getCreatureSpeed(cid))) --///////////////////////////////////////////////////////////////////////////-- -- local storages = {17000, 63215, 17001, 13008, 5700} -- for s = 1, #storages do -- if not tonumber(getPlayerStorageValue(cid, storages)) then -- if s == 3 then -- setPlayerStorageValue(cid, storages, 1) -- elseif s == 4 then -- setPlayerStorageValue(cid, storages, -1) -- else -- if isBeingUsed(getPlayerSlotItem(cid, 8).itemid) then -- setPlayerStorageValue(cid, storages, 1) --alterado v2.6 -- else -- setPlayerStorageValue(cid, storages, -1) -- end -- end -- doPlayerSendTextMessage(cid, 27, "Sorry, but a problem occurred on the server, but now it's alright") -- end -- end --/////////////////////////////////////////////////////////////////////////-- if getPlayerStorageValue(cid, 17000) >= 1 then -- fly local item = getPlayerSlotItem(cid, 8) local poke = getItemAttribute(item.uid, "poke") doChangeSpeed(cid, getPlayerStorageValue(cid, 54844)) doRemoveCondition(cid, CONDITION_OUTFIT) local addonfly = getPlayerSlotItem(cid, 8).uid local addofly = getItemAttribute(addonfly,"addonfly") if not addofly then doSetItemAttribute(addonfly,"addonfly",0) doSetCreatureOutfit(cid, {lookType = flys[poke][1] + 351}, -1) end if addofly > 0 then doSetCreatureOutfit(cid, {lookType = addofly}, -1) end local apos = getFlyingMarkedPos(cid) apos.stackpos = 0 if getTileThingByPos(apos).itemid <= 2 then doCombatAreaHealth(cid, FIREDAMAGE, getFlyingMarkedPos(cid), 0, 0, 0, CONST_ME_NONE) doCreateItem(460, 1, getFlyingMarkedPos(cid)) end doTeleportThing(cid, apos, false) if getItemAttribute(item.uid, "boost") and getItemAttribute(item.uid, "boost") >= 50 and getPlayerStorageValue(cid, 42368) >= 1 then sendAuraEffect(cid, auraSyst[getItemAttribute(item.uid, "aura")]) --alterado v2.8 end local posicao = getTownTemplePosition(getPlayerTown(cid)) markFlyingPos(cid, posicao) elseif getPlayerStorageValue(cid, 63215) >= 1 then -- surf local item = getPlayerSlotItem(cid, 8) local poke = getItemAttribute(item.uid, "poke") local addonsurf = getPlayerSlotItem(cid, 8).uid local addosurf = getItemAttribute(addonsurf,"addonsurf") if not addosurf then doSetItemAttribute(addonsurf,"addonsurf",0) doSetCreatureOutfit(cid, {lookType = surfs[poke].lookType + 351}, -1) end if addosurf > 0 then doSetCreatureOutfit(cid, {lookType = addosurf}, -1) end doChangeSpeed(cid, getPlayerStorageValue(cid, 54844)) if getItemAttribute(item.uid, "boost") and getItemAttribute(item.uid, "boost") >= 50 and getPlayerStorageValue(cid, 42368) >= 1 then sendAuraEffect(cid, auraSyst[getItemAttribute(item.uid, "aura")]) --alterado v2.8 end elseif getPlayerStorageValue(cid, 17001) >= 1 then -- ride local item = getPlayerSlotItem(cid, 8) local poke = getItemAttribute(item.uid, "poke") if rides[poke] then doChangeSpeed(cid, getPlayerStorageValue(cid, 54844)) doRemoveCondition(cid, CONDITION_OUTFIT) local addonride = getPlayerSlotItem(cid, 8).uid local addoride = getItemAttribute(addonride,"addonride") if not addofly then doSetItemAttribute(addonride,"addonride",0) doSetCreatureOutfit(cid, {lookType = rides[poke][1] + 351}, -1) end if addoride > 0 then doSetCreatureOutfit(cid, {lookType = addoride}, -1) end if getItemAttribute(item.uid, "boost") and getItemAttribute(item.uid, "boost") >= 50 and getPlayerStorageValue(cid, 42368) >= 1 then sendAuraEffect(cid, auraSyst[getItemAttribute(item.uid, "aura")]) --alterado v2.8 end else end local posicao2 = getTownTemplePosition(getPlayerTown(cid)) markFlyingPos(cid, posicao2) elseif getPlayerStorageValue(cid, 13008) >= 1 then -- dive if not isInArray({5405, 5406, 5407, 5408, 5409, 5410}, getTileInfo(getThingPos(cid)).itemid) then setPlayerStorageValue(cid, 13008, 0) doRemoveCondition(cid, CONDITION_OUTFIT) return true end if getPlayerSex(cid) == 1 then doSetCreatureOutfit(cid, {lookType = 1034, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet}, -1) else doSetCreatureOutfit(cid, {lookType = 1035, lookHead = getCreatureOutfit(cid).lookHead, lookBody = getCreatureOutfit(cid).lookBody, lookLegs = getCreatureOutfit(cid).lookLegs, lookFeet = getCreatureOutfit(cid).lookFeet}, -1) end doChangeSpeed(cid, 800) elseif getPlayerStorageValue(cid, 5700) > 0 then --bike doChangeSpeed(cid, -getCreatureSpeed(cid)) doChangeSpeed(cid, getPlayerStorageValue(cid, 5700)) --alterado v2.8 if getPlayerSex(cid) == 1 then doSetCreatureOutfit(cid, {lookType = 1394}, -1) else doSetCreatureOutfit(cid, {lookType = 1393}, -1) end elseif getPlayerStorageValue(cid, 75846) >= 1 then --alterado v2.9 \/ doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)), false) setPlayerStorageValue(cid, 75846, -1) sendMsgToPlayer(cid, 20, "You have been moved to your town!") else doRegainSpeed(cid) --alterado v2.6 end if getPlayerStorageValue(cid, 22545) >= 1 then --golden arena setPlayerStorageValue(cid, 22545, -1) --alterado v2.4 doTeleportThing(cid, getClosestFreeTile(cid, posBackGolden), false) setPlayerRecordWaves(cid) --alterado v2.7 end -- local CP = {x=1056, y=1049, z=7} -- if getPlayerStorageValue(cid, 17000) >= 1 then -- setPlayerStorageValue(cid, 17000, 0) -- doTeleportThing(cid, CP) -- end return true end