Gruly

Olá pessoal!
A galera do meu servidor veio pedindo uma mega medicham, então tomei a liberdade de fazer uma com base na já existente mega medicham, dos jogos de nintendo.
O uso dela é livre, ou seja, usem a vontade, coloquem no servidor de vocês e tudo mais. Só espero que, me deem meus devidos direitos, diferente de como fizeram com meu Mega Wobbuffet. zzzzz
 
Beijos beijos.

Notei sim mas não estava entrando muito no TK. e vi um post com uma duvida que eu sabia como sanar. então resolvi arriscar. desculpe mas valeu a pena já ajudei muitos com esse post desculpe a demora de resposta!

Não testei..
 
local vocations = {1,2,3,4,5,6,7,8} -- Vocs local entermsg = "Welcome" -- Msg se puder passar local failmsg = "Sorry, but you aren\'t the right vocation" -- Msg se não tiver voc certa function onStepIn(cid, item, position, lastPosition, fromPosition, toPosition, actor) if isPlayer(cid) then if isInArray(vocations,getPlayerVocation(cid)) then doPlayerSendTextMessage(cid,25,entermsg) doSendAnimatedText(getCreaturePosition(cid), "WELCOME!", TEXTCOLOR_RED) doSendMagicEffect(getCreaturePosition(cid), CONST_ME_FIREWORK_RED) else doTeleportThing(cid,fromPosition) doSendMagicEffect(getCreaturePosition(cid), CONST_ME_TELEPORT) doPlayerSendTextMessage(cid,25,failmsg) end return true end end movements.xml
 
<movevent type="StepIn" actionid="xxx" event="script" value="voctile.lua"/>

@Gruly Tenho a Solução para seu Problema, pode voltar com o seu arquivo antigo sem erros...
Abre a Database, vai em Players > DATA.
 
Copia tudo isso ↓
 
1 Account Manager 0 1 1 1 0 150 150 0 114 114 114 114 152 3 0 0 0 0 0 1 379 107 7 400 1 1462149063 3836477873 0 0 0 0 0 0 0 151200000 0 1000 1000 1000 100 1000 0 0 0 0 0  
 
Clica no "+" que tem pra Adicionar um novo Player e aperta CTRL + V
Dá um Enter e Clica no certinho Verde que tem ali pra Salvar as Alterações!
 
Logo Após vai em Accounts > DATA.
 
Copia esse agora ↓
 
1 1 1 65535 0 0 0 0 1  
 
Clica no "+" que tem pra Adicionar uma nova Account e aperta CTRL + V
Dá um Enter e Clica no certinho Verde que tem ali pra Salvar as Alterações!
 
Pronto! Abre seu Servidor que vai estar funcionando normalmete 
AJUDEI? REP+
Não cai o Dedo

function onStepIn(cid, item, position, fromPosition) local M = { [1] = {"Cyclops",{x=710, y=1083, z=14}}, [2] = {"Demon",{x=710, y=1084, z=14}}, [3] = {"Hydra",{x=710, y=1082, z=14}}, [4] = {"Dragon",{x=710, y=1081, z=14}} } local storage = 13311 local time_summon = 3 -- tempo em minutos para sumonar novamente. local effect = 13 -- effect que dará no local que o monstro for sumonado. if not isPlayer(cid) then return FALSE elseif getGlobalStorageValue(storage) >= os.time() then return FALSE end for i = 1, #M do doCreateMonster(M[i][1], M[i][2]) doSendMagicEffect(M[i][2], effect) end doCreatureSay(cid, "OMG, a trap!", 19) setGlobalStorageValue(storage, os.time()+time_summon*60) return TRUE end  

Não esqueça de mudar o id da box no código.
 
function onUse(cid, item, fromPosition, itemEx, toPosition) local rewarditems = { {id = 2472, chance = 17, count = 1}, -- start with the lowest chances {id = 2498, chance = 17, count = 1}, {id = 2645, chance = 17, count = 1}, {id = 2421, chance = 8, count = 1}, {id = 2514, chance = 13, count = 1}, -- start with the lowest chances {id = 2470, chance = 10, count = 1}, {id = 2646, chance = 5, count = 1}, {id = 2523, chance = 3, count = 1}, -- start with the lowest chances {id = 2522, chance = 4, count = 1}, {id = 2471, chance = 2, count = 1}, {id = 2496, chance = 2, count = 1}, {id = 8977, chance = 2, count = 1} } local box = xx --ID da box. local chance = math.random(1,100) for i = 1, #rewarditems, 1 do if(chance < rewarditems[i].chance) then local info = getItemInfo(rewarditems[i].id) if(rewarditems[i].count > 1) then text = rewarditems[i].count .. " " .. info.plural else text = info.article .. " " .. info.name end if item.itemid == box then doPlayerAddItem(cid, rewarditems[i].id, rewarditems[i].count) doPlayerRemoveItem(cid, box, 1) doSendMagicEffect(getThingPos(cid), CONST_ME_POFF) text = "You have received " .. text .. "." else text = "You have failed to open your mystery box. The item is to heavy or you have not enough space to take it." end doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, text) return true else chance = chance - rewarditems[i].chance end end end  

Lol, isso não é erro, tu não especificou no tópico, fiz como eu achei que deveria ser.
 
exhaust:
function onUse(cid, item, frompos, item2, topos) local config = { item = 8977, -- ID do item. pos = {x = 160, y = 51, z = 7}, exaust = 48088, --storage do exhaust. tempo = 30, -- tempo de exhaust. } if getCreatureCondition(cid, CONDITION_INFIGHT) then doPlayerSendTextMessage(cid, 22, 'Voce so pode se teletransportar se estiver sem battle.') return false end if getPlayerStorageValue(cid, config.exaust) < os.time() then if item.itemid == config.item then doTeleportThing(cid, config.pos) doSendMagicEffect(getCreaturePosition(cid), CONST_ME_BIGCLOUDS) setPlayerStorageValue(cid, config.exaust, config.tempo + os.time()) end else doPlayerSendTextMessage(cid, 22, 'Espere 30 segundos para usar o item novamente.') end return true end  

Olha, o script parece correto e se mesmo formatando não deu certo. Tente isto:
function onThink(cid, interval, lastExecution) local pos = { templo = {x = 160, y = 54, z = 7}, -- Templo teleports = {x = 1096, y = 1063, z = 7}, -- Teleportes vip = {x = 1096, y = 1063, z = 7}, -- Área VIP } local cores = {205, 210} doSendAnimatedText(pos.templo, "Templo", cores[math.random(#cores)]) doSendAnimatedText(pos.teleports, "Teleports", cores[math.random(#cores)]) doSendMagicEffect(pos.teleports, 39) doSendAnimatedText(pos.vip, "Area Vip", cores[math.random(#cores)]) local efeitos = {39, 10} doSendMagicEffect(pos.vip, efeitos[math.random(#efeitos)]) return true end  
Ou se preferir, podes baixar o anexo que estou postando junto.
falantes.lua

Na pasta creaturescript/scripts crie um documento chamado "Openteleport.lua" ou copie um outro e renomeie.
Coloque esse script dentro:
local tpId = 1387 local tps = { ["Monster"] = {pos = {x=196, y=283, z=10}, toPos = {x=202, y=283, z=10}, time = 15}, } function removeTp(tp) local t = getTileItemById(tp.pos, tpId) if t then doRemoveItem(t.uid, 1) doSendMagicEffect(tp.pos, CONST_ME_POFF) end end function onDeath(cid) local tp = tps[getCreatureName(cid)] if tp then doCreateTeleport(tpId, tp.toPos, tp.pos) doCreatureSay(cid, "O teleport irá desaparecer em "..tp.time.." segundos.", TALKTYPE_ORANGE_1) addEvent(removeTp, tp.time*1000, tp) end return TRUE end ["Monster"] - O nome do monstro que aparecera o portal ao ser morto.
{pos = {x=196, y=283, z=10} -- Posição onde o portal ira abrir
 toPos = {x=202, y=283, z=10}  -- Posição onde o portal ira teletransportar.
 time = 15}   -- Segundos que ele ira ficar aberto
DoCreatureSay(cid, "O teleport irá desaparecer em "..tp.time.." segundos. TALKTYPE_ORANGE_1)   -  Troque a mensagem como desejar ou deixe assim
Em creaturescript.xml
<event type="death" name="openteleport" event="script" value="openteleport1.lua"/> ai no monstro você coloca essa tag:
<script> <event name="openteleport"/> </script> Acho que era isso que queria né?

Primeiro, muda esse script, que coisa feia.
Segundo, tente trocar o actionid da porta, provável que ela deve estar em conflito com algum outro script.
 
local storage = 100 function onUse(cid, item, frompos, item2, topos) if getPlayerStorageValue(cid, storage) ~= 1 then doPlayerSendTextMessage(cid, 22, 'Complete a Annihilator primeiro') return true end doTransformItem(item.uid,item.itemid+1) doTeleportThing(cid, topos) return true end  

Scan Do server
https://www.virustotal.com/pt/file/7661eaf54896f1c93cc0ecaf3ede8526b7f4e8d6542d0d45ba07b7dcde38e66d/analysis/

Const FoodID = '3725' //id da food Sec = '10' // qto tempo pra come Begin While Not Terminated Do Begin Sleep(Sec * 1000) Self.Containers.UseItemWithSelf(FoodID); End End

testa esse aê...
NG eh foda,

Tópico fechado a pedido do membro.

Outland completa para PDA.
 
DOWNLOAD: http://www.4shared.com/rar/VaQnQ718/Outlands_26112013.html?

O 4shared já faz o scan.
 
Outlands
 
Poison


Ghost



Fire (East)


Bug


Normal


Fly 

Electric


Earth


Fight


Dragon


 
 
Os leveis dos ataques dos pokémons de Kanto estão como a do Pxg.
Outlands feitas com itens do server do Bolz (PDA).
Coloquei prints de algumas Outlands, não deu pra por de todas (forum doido).


SE GOSTOU, DÁ UM GOSTEI E DEIXE SEU COMENTÁRIO 

Créditos:
murluka