SkyLigh

tente assim local msgs = {"use ", ""} function doAlertReady(cid, id, movename, n, cd) function onSay(cid, words, param) if not isCreature(cid) then return true end local myball = getPlayerSlotItem(cid, 8) if myball.itemid > 0 and getItemAttribute(myball.uid, cd) == "cd:"..id.."" then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, getPokeballName(myball.uid).." - "..movename.." (m"..n..") is ready!") return true end local p = getPokeballsInContainer(getPlayerSlotItem(cid, 3).uid) if not p or #p <= 0 then return true end for a = 1, #p do if getItemAttribute(p[a], cd) == "cd:"..id.."" then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, getPokeballName(p[a]).." - "..movename.." (m"..n..") is ready!") return true end end end end function onSay(cid, words, param, channel) if param ~= "" then return true end if string.len(words) > 3 then return true end if #getCreatureSummons(cid) == 0 then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need a pokemon to use moves.") return 0 end --alterado v1.5 local mypoke = getCreatureSummons(cid)[1] if getCreatureCondition(cid, CONDITION_EXHAUST) then return true end if getCreatureName(mypoke) == "Evolution" then return true end if getCreatureName(mypoke) == "Ditto" or getCreatureName(mypoke) == "Shiny Ditto" then name = getPlayerStorageValue(mypoke, 1010) --edited else name = getCreatureName(mypoke) end --local name = getCreatureName(mypoke) == "Ditto" and getPlayerStorageValue(mypoke, 1010) or getCreatureName(mypoke) local it = string.sub(words, 2, 3) local move = movestable[name].move1 if getPlayerStorageValue(mypoke, 212123) >= 1 then cdzin = "cm_move"..it.."" else cdzin = "move"..it.."" --alterado v1.5 end if it == "2" then move = movestable[name].move2 elseif it == "3" then move = movestable[name].move3 elseif it == "4" then move = movestable[name].move4 elseif it == "5" then move = movestable[name].move5 elseif it == "6" then move = movestable[name].move6 elseif it == "7" then move = movestable[name].move7 elseif it == "8" then move = movestable[name].move8 elseif it == "9" then move = movestable[name].move9 elseif it == "10" then move = movestable[name].move10 elseif it == "11" then move = movestable[name].move11 elseif it == "12" then move = movestable[name].move12 elseif it == "13" then move = movestable[name].move13 end if not move then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Your pokemon doesn't recognize this move.") return true end if getPlayerLevel(cid) < move.level then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You need be atleast level "..move.level.." to use this move.") return true end if getCD(getPlayerSlotItem(cid, 8).uid, cdzin) > 0 and getCD(getPlayerSlotItem(cid, 8).uid, cdzin) < (move.cd + 2) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You have to wait "..getCD(getPlayerSlotItem(cid, 8).uid, cdzin).." seconds to use "..move.name.." again.") return true end if getTileInfo(getThingPos(mypoke)).protection then doPlayerSendCancel(cid, "Your pokemon cannot use moves while in protection zone.") return true end if getPlayerStorageValue(mypoke, 3894) >= 1 then return doPlayerSendCancel(cid, "You can't attack because you is with fear") --alterado v1.3 end --alterado v1.6 if (move.name == "Team Slice" or move.name == "Team Claw") and #getCreatureSummons(cid) < 2 then doPlayerSendCancel(cid, "Your pokemon need be in a team for use this move!") return true end --alterado v1.6 if isCreature(getCreatureTarget(cid)) and isInArray(specialabilities["evasion"], getCreatureName(getCreatureTarget(cid))) and math.random(1, 100) <= 10 then local target = getCreatureTarget(cid) if isCreature(getMasterTarget(target)) then --alterado v1.6 doSendMagicEffect(getThingPos(target), 211) doSendAnimatedText(getThingPos(target), "TOO BAD", 215) doTeleportThing(target, getClosestFreeTile(target, getThingPos(mypoke)), false) doSendMagicEffect(getThingPos(target), 211) doFaceCreature(target, getThingPos(mypoke)) return true --alterado v1.6 end end if move.target == 1 then if not isCreature(getCreatureTarget(cid)) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You don\'t have any targets.") return 0 end if getCreatureCondition(getCreatureTarget(cid), CONDITION_INVISIBLE) then return 0 end if getCreatureHealth(getCreatureTarget(cid)) <= 0 then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Your have already defeated your target.") return 0 end if not isCreature(getCreatureSummons(cid)[1]) then return true end if getDistanceBetween(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid))) > move.dist then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Get closer to the target to use this move.") return 0 end if not isSightClear(getThingPos(getCreatureSummons(cid)[1]), getThingPos(getCreatureTarget(cid)), false) then return 0 end end local newid = 0 if isSleeping(mypoke) or isSilence(mypoke) then --alterado v1.5 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Sorry you can't do that right now.") return 0 else newid = setCD(getPlayerSlotItem(cid, 8).uid, cdzin, move.cd) end doCreatureSay(cid, ""..getPokeName(mypoke)..", "..msgs[math.random(#msgs)]..""..move.name.."!", TALKTYPE_SAY) local summons = getCreatureSummons(cid) --alterado v1.6 addEvent(doAlertReady, move.cd * 1000, cid, newid, move.name, it, cdzin) for i = 2, #summons do if isCreature(summons[i]) and getPlayerStorageValue(cid, 637501) >= 1 then docastspell(summons[i], move.name) --alterado v1.6 end end docastspell(mypoke, move.name) doCreatureAddCondition(cid, playerexhaust) if useKpdoDlls then doUpdateCooldowns(cid) end return 0 end duvida sanada reportado

Ixi , então vo explicar pra ti vai no seu config.lua e troque isto sqlType = "sqlite" sqlHost = "localhost" sqlPort = 3306 sqlUser = "root" sqlPass = "" sqlDatabase = "cdcol" sqlFile = "forgottenserver.s3db" sqlKeepAlive = 0 mysqlReadTimeout = 10 mysqlWriteTimeout = 10 encryptionType = "sha1" Por Isso sqlType = "sqlite" sqlHost = "localhost" sqlPort = 3306 sqlUser = "root" sqlPass = "" sqlDatabase = "theforgottenserver" sqlFile = "forgottenserver.s3db" sqlKeepAlive = 0 mysqlReadTimeout = 10 mysqlWriteTimeout = 10 encryptionType = "plain" creio que ira funcionar

Visite este tópico http://www.xtibia.com/forum/topic/190384-vip-345-ajudem/page__p__1300218#entry1300218

@Fillzy voce usa um script de lvl ou um que sempre quase tem nos servidores e simples so voce por este id na port 1100 - Pode ver que fico o "1" na frente então e so adicionar isso na frente do numero que voce quer q seja o level

O Servidor E Mysql usado com gesior mais talvez este tópico lhe ajude http://www.xtibia.com/forum/topic/134963-sql-lite-por-mysql/

Diogo leia o post acima sempre veja este http://www.xtibia.com/forum/topic/193245-baiak-extreme-otprojects-860-funcionando/page__fromsearch__1 e tudo igual funcionando

Ja Tento ir com o meu pank ? que achoque vai agora

function onUse(cid, item, frompos, item2, topos) local name = "Rat" -- Nick Do Monster local money = 1000 -- Quantos Gp's Ira Remover if item.itemid == 4852 then -- id da lavaca elseif doPlayerRemoveMoney(cid,money) then doPlayerSendCancel(cid,"Sorry you do not have enough money.") return true elseif doSummonCreature(name, getPlayerPosition(cid)) then doPlayerSendTextMessage(cid, 22, "Monster summoned Successfully") return true end end Acho que vai.

Título irregular reportado

Tente Com este function onUse(cid, item, frompos, item2, topos) local name = "Rat" -- Nick Do Monster local money = 1000 -- Quantos Gp's Ira Remover if item.itemid == 4852 then -- id da lavaca elseif doPlayerRemoveMoney(cid,money) then doPlayerSendCancel(cid,"Sorry you do not have enough money.") return true elseif doSummonCreature(name, getThingPos) then doPlayerSendTextMessage(cid, 22, "Monster summoned Successfully") return true end end

Leia Sempre Os Comentários Acima Visite este http://www.xtibia.com/forum/topic/193245-baiak-extreme-otprojects-860-funcionando/page__fromsearch__1

Mais Akilo e definido por minutos so voce arruma

Pronto Edited Desculpe , na proxima eu vejo isto

Arrumei tinha esquecido de por o "config."

Comando O Player Fala !stamina ai ali tem os minutos ai se poem quantos minutos o player vai ficar com a stamina

Parei. Posto. Postei.

Brigado , Brigado Breve Trago Mais Umas Censuradas

E Mesmo e verdade '-' NOSSA MESMO !

Achei o download em outro lugar http://filetram.com/download/file/8946587522/tibiafun3-rar

Dragon Ball Tem Violências

hm veja agora -- configurações: local NOME_MONSTRO = "Cooperative Mode" -- nome do monstro local LIMITE_MONSTROS = 6 -- max de monstros sumonados pelo player de uma só vez local CUSTO_PRA_SUMONAR = 0 -- preço a pagar em gold (para cada monstro sumonado, se sumonar 2 de uma vez, vai pagar 2x o preço) local QUANTIDADE_CRIADA_POR_VEZ = 2 -- quantos monstros vão ser criados a cada puxada local EFEITO_AO_CRIAR_MONSTRO = CONST_ME_TELEPORT -- efeito que aparece quando o monstro é criado local playerMonsterCount = {} function onUse(cid, item, frompos, item2, topos) local summonedCount = 0 if not playerMonsterCount[getPlayerGUID(cid)] then playerMonsterCount[getPlayerGUID(cid)] = {} else for _, mid in pairs (playerMonsterCount[getPlayerGUID(cid)]) do if not isCreature(mid) then playerMonsterCount[getPlayerGUID(cid)][_] = nil else summonedCount = summonedCount + 1 end end end if summonedCount >= LIMITE_MONSTROS then return doPlayerSendCancel(cid, "Você não pode sumonar mais monstros.") end local removeMoney, newMonsters = false, {} for sCount = 1, QUANTIDADE_CRIADA_POR_VEZ do local newMonster = doCreateMonster(NOME_MONSTRO, getThingPos(cid), false) if not newMonster then break end table.insert(newMonsters, newMonster) removeMoney = true if newMonsters + summonedCount >= LIMITE_MONSTROS then break end end if removeMoney and doPlayerRemoveMoney(cid, CUSTO_PRA_SUMONAR * newMonsters) then for _, mid in pairs (newMonsters) do doSendMagicEffect(getThingPos(mid), EFEITO_AO_CRIAR_MONSTRO) table.insert(playerMonsterCount[getPlayerGUID(cid)], mid) end else for _, mid in pairs (newMonsters) do doRemoveCreature(mid) end return doPlayerSendCancel(cid, "Você não tem dinheiro suficiente para sumonar monstros.") end return doTransformItem(item.uid, item.itemid == 1945 and 1946 or 1945) end

editei o dele -- configurações: local NOME_MONSTRO = "Cooperative Mode" -- nome do monstro local LIMITE_MONSTROS = 6 -- max de monstros sumonados pelo player de uma só vez local CUSTO_PRA_SUMONAR = 0 -- preço a pagar em gold (para cada monstro sumonado, se sumonar 2 de uma vez, vai pagar 2x o preço) local QUANTIDADE_CRIADA_POR_VEZ = 2 -- quantos monstros vão ser criados a cada puxada local EFEITO_AO_CRIAR_MONSTRO = CONST_ME_TELEPORT -- efeito que aparece quando o monstro é criado local playerMonsterCount = {} function onUse(cid, item, frompos, item2, topos) local summonedCount = 0 if not playerMonsterCount[getPlayerGUID(cid)] then playerMonsterCount[getPlayerGUID(cid)] = {} else for _, mid in pairs (playerMonsterCount[getPlayerGUID(cid)]) do if not isCreature(mid) then playerMonsterCount[getPlayerGUID(cid)][_] = nil else summonedCount = summonedCount + 1 end end end if summonedCount >= LIMITE_MONSTROS then return doPlayerSendCancel(cid, "Você não pode sumonar mais monstros.") end local removeMoney, newMonsters = false, {} for sCount = 1, QUANTIDADE_CRIADA_POR_VEZ do local newMonster = doCreateMonster(NOME_MONSTRO, getThingPos(cid), false) if not newMonster then break end table.insert(newMonsters, newMonster) removeMoney = true if newMonsters + summonedCount >= LIMITE_MONSTROS then break end end if removeMoney and doPlayerRemoveMoney(cid, CUSTO_PRA_SUMONAR * #newMonsters) then for _, mid in pairs (newMonsters) do doSendMagicEffect(getThingPos(mid), EFEITO_AO_CRIAR_MONSTRO) table.insert(playerMonsterCount[getPlayerGUID(cid)], mid) end else for _, mid in pairs (newMonsters) do doRemoveCreature(mid) end return doPlayerSendCancel(cid, "Você não tem dinheiro suficiente para sumonar monstros.") end return doTransformItem(item.uid, item.itemid == 1945 and 1946 or 1945) end

Iae galera hoje eu venho trazer um script que as vezes e muito necessário em ot's Como , Funciona Quase Todos Sabem O Que E A Stamina Mais Para Os Que Não Sabe Irei Explicar : Stamina E Uma Forma De Definir A Experiência Do Personagem Ou Player Que Faz Com Que Eles Upem Mais Rápido Ou Mais Devagar Quanto Mais Cheia Estiver A Stamina Significa Que E Rápido E Se Tiver Baixa E Devagar Então Vamos La Va Em Data / Talkaction / Scripts / Renome Algum Arquivo Para Stamina E Adicione function onSay(cid, words, param) local config = { stamina = 10, -- Quantos Minutos O Player Vai Ter De Stamina price = 10000, -- Quanto Vai Ser A Stamina s = 11548, -- Nao Mexa exhau = 600 -- Quantos Segundos Para Usar O Comando Denovo } if getPlayerStorageValue(cid, config.s) <= os.time() then doPlayerSendTextMessage(cid,22,"Desculpe Espere 90 Minutos Para Usar O Comando Novamente") return true elseif not doPlayerRemoveMoney(cid, config.price) then doPlayerSendTextMessage(cid,22,"Você Não Tem Dinheiro Suficiente") return true end doPlayerAddStamina(cid, config.stamina) setPlayerStorageValue(cid, config.s,os.time()+config.exhau) doPlayerSendTextMessage(cid,22,"Você Comprou Stamina Por 10 Minutos") return true end Em Talkactions.xml <talkaction words="!stamina" script="stamina.lua"/> Créditos Skyligh 100 % (Postagem E Criação)

Essa Foi Legal ¬¬' Twittar

Infinity veja este meu tópico http://www.xtibia.com/forum/topic/193245-baiak-extreme-otprojects-860-funcionando/page__fromsearch__1 esta 100 % o download e tudo igual so que funcionando o download