PedroSTT

Olá galera , do TibiaKing , venho trazer pra vocês um bike sistem por movements.
 
QUAL A DIFERENÇA DESSE SISTEMA PARA O ANTIGO ? ( POR ACTIONS)
Esse sistema evita aquele famoso bug do player dar use na bike e jogar pra outro amigo dar use , fazendo os dois terem bike.
 
COMO ESSE SISTEMA FUNCIONA ??
Funciona por movements , ao equipar( no slot do ring[configurável]) ganha a outfit e a speed ( configuráveis)
 
 
XML
<movevent type="Equip" itemid="2195" slot="ring" event="script" value="bike.lua"/> <movevent type="DeEquip" itemid="2195" slot="ring" event="script" value="bike.lua"/> SCRIPT
local bike = {lookType = 100, lookHead = 0, lookBody = 0, lookLegs = 0, lookFeet = 0} --- Esse vai ser Homen local bike1 = {lookType = 101, lookHead = 0, lookBody = 0, lookLegs = 0, lookFeet = 0} --- Esse vai ser mulher local speed = 20 --- Velocidade que a bike dará local storage = 3421 function onEquip(cid, item, slot) if not isPlayer(cid) and not isPremium(cid) then -- tire o primeiro not, atras do isPlayer para ativar o premium doPlayerSendCancel(cid, "Only premium members are allowed to mount.") return true end if getPlayerSex(cid) == 1 then -- Homem doChangeSpeed(cid, speed) doSetCreatureOutfit(cid, bike, -1) doSendMagicEffect(getPlayerPosition(cid), 18) setPlayerStorageValue(cid, storage, 1) elseif getPlayerSex(cid) == 0 then -- Girl doChangeSpeed(cid, speed) doSetCreatureOutfit(cid, bike1, -1) doSendMagicEffect(getPlayerPosition(cid), 18) setPlayerStorageValue(cid, storage, 1) end return true end function onDeEquip(cid, item, slot) doRemoveCondition(cid, CONDITION_OUTFIT) doChangeSpeed(cid, -speed) doSendMagicEffect(getPlayerPosition(cid), 18) setPlayerStorageValue(cid, storage, 0) end  

Ei pfv entrei em contato com a pagina PokemonBR pra poder comprar a base antiga que tanto fez sucesso.. obg pela atenção

Olá galera , do TibiaKing , venho trazer pra vocês um bike sistem por movements.
 
QUAL A DIFERENÇA DESSE SISTEMA PARA O ANTIGO ? ( POR ACTIONS)
Esse sistema evita aquele famoso bug do player dar use na bike e jogar pra outro amigo dar use , fazendo os dois terem bike.
 
COMO ESSE SISTEMA FUNCIONA ??
Funciona por movements , ao equipar( no slot do ring[configurável]) ganha a outfit e a speed ( configuráveis)
 
 
XML
<movevent type="Equip" itemid="2195" slot="ring" event="script" value="bike.lua"/> <movevent type="DeEquip" itemid="2195" slot="ring" event="script" value="bike.lua"/> SCRIPT
local bike = {lookType = 100, lookHead = 0, lookBody = 0, lookLegs = 0, lookFeet = 0} --- Esse vai ser Homen local bike1 = {lookType = 101, lookHead = 0, lookBody = 0, lookLegs = 0, lookFeet = 0} --- Esse vai ser mulher local speed = 20 --- Velocidade que a bike dará local storage = 3421 function onEquip(cid, item, slot) if not isPlayer(cid) and not isPremium(cid) then -- tire o primeiro not, atras do isPlayer para ativar o premium doPlayerSendCancel(cid, "Only premium members are allowed to mount.") return true end if getPlayerSex(cid) == 1 then -- Homem doChangeSpeed(cid, speed) doSetCreatureOutfit(cid, bike, -1) doSendMagicEffect(getPlayerPosition(cid), 18) setPlayerStorageValue(cid, storage, 1) elseif getPlayerSex(cid) == 0 then -- Girl doChangeSpeed(cid, speed) doSetCreatureOutfit(cid, bike1, -1) doSendMagicEffect(getPlayerPosition(cid), 18) setPlayerStorageValue(cid, storage, 1) end return true end function onDeEquip(cid, item, slot) doRemoveCondition(cid, CONDITION_OUTFIT) doChangeSpeed(cid, -speed) doSendMagicEffect(getPlayerPosition(cid), 18) setPlayerStorageValue(cid, storage, 0) end  

Source além de ser uma gambiarra , contém traps e foi jogada em cima de um servidor com mais erros ainda ... tópico denunciado.

Olá Caros membros, hoje estou trazendo um servidor para vocês no qual eu fui contratado para adaptar uma source, me "calotaram" e eu achei justo postar a base adaptada. Desfrutem...
 
 

 
 

 
 
 
 

 
 

 
 

 

XML
<event type="think" name="Slot" event="script" value="slot.lua"/> Script
local config = { tempo = 5, --tempo em segundos texto = "[TOP]", --não use mais de 9 caracteres efeito = TEXTCOLOR_LIGHTBLUE --efeito para a função doSendAnimatedText } function Effect(cid) doSendAnimatedText(getCreaturePosition(cid), config.texto, config.efeito) end function onThink(cid, interval) local slot = { head = 2474, -- ID do item que ficara no Slot Head armor = 2503, -- ID do item que ficara no Slot Armor legs = 2504, -- ID do item que ficara no Slot Legs boots = 2195, -- ID do item que ficara no Slot Boots ring = 2164 -- ID do item que ficara no Slot Ring } if getPlayerSlotItem(cid, 1).itemid == slot.head then if getPlayerSlotItem(cid, 4).itemid == slot.armor then if getPlayerSlotItem(cid, 7).itemid == slot.legs then if getPlayerSlotItem(cid, 8).itemid == slot.boots then if getPlayerSlotItem(cid, 9).itemid == slot.ring then addEvent(Effect, config.tempo * 1000, cid) end end end end end end Registrar no login.lua
registerCreatureEvent(cid, "Slot")  

local storage = 3234 local horas = 24 -- tempo para pegar dnv em horas local tabela = {2160, 2152, 2148} -- ID dos itens. function onUse(cid, item, frompos, item2, topos) if getPlayerStorageValue(cid, config.storage) >= os.time() then doPlayerSendTextMessage(cid,25, "voce so pode pegar a cada 24 horas") return true end setPlayerStorageValue(cid, config.storage, os.time() + horas * 3600000 ) doPlayerAddItem(cid, tabela[math.random(#tabela)], 1) doSendMagicEffect(getCreaturePosition(cid), 2) doPlayerSendTextMessage(cid,25, "voce recebeu seu premio") return true end  

Faaala galera , hoje vou trazer pra vocês o sistema do Edo tensei do nto Ultimate , para saber como o sistema funciona , basta ir ao SITE do nto ultimate
 
 
Crie um novo item com essa linha ; <item id="4856" article="an" name="edo pergaminho"> <attribute key="description" value="Neste pergaminho foi selado um [VAZIO]" /> <attribute key="weight" value="7000" /> </item> Agora vamos a spell para criar o pergaminho ;  
XML ;  <instant name="Edo Tensei" words="edo tensen no jutsu" lvl="55" mana="770" prem="1" exhaustion="2000" needlearn="0" event="script" value="edopergaminho"> </instant>          2. Script ;
local id = 4856 -- Id do edo pergaminho local count = 1 -- Quantos pergaminhos serão adiciondos ao usar o comando function onCastSpell(cid, var) doPlayerAddItem(cid, id, count) doPlayerSendTextMessage(cid, 18, "Voce recebeu um pergaminho EDO") end Agora , em ACTIONS, adicione essas 2 scripts  
 
Em seguida , adicione os XML <action itemid="4856" event="script" value="vai.lua"/> <action itemid="4856" event="script" value="pega.lua"/>  
Não se esqueça que são dois itens diferentes
Não se esqueça de criar os monstros com os respectivos nomes ao Edo Tensei
 
Créditos
BananaFight LuckOake MaXwElldEn Gears PsyMcKenzie ManoTobira NtoUltimate PedroSTT -- Correção de bugs , magia do pergaminho edo e reestruturação dos códigos  

Faaala galera , hoje vou trazer pra vocês o sistema do Edo tensei do nto Ultimate , para saber como o sistema funciona , basta ir ao SITE do nto ultimate
 
 
Crie um novo item com essa linha ; <item id="4856" article="an" name="edo pergaminho"> <attribute key="description" value="Neste pergaminho foi selado um [VAZIO]" /> <attribute key="weight" value="7000" /> </item> Agora vamos a spell para criar o pergaminho ;  
XML ;  <instant name="Edo Tensei" words="edo tensen no jutsu" lvl="55" mana="770" prem="1" exhaustion="2000" needlearn="0" event="script" value="edopergaminho"> </instant>          2. Script ;
local id = 4856 -- Id do edo pergaminho local count = 1 -- Quantos pergaminhos serão adiciondos ao usar o comando function onCastSpell(cid, var) doPlayerAddItem(cid, id, count) doPlayerSendTextMessage(cid, 18, "Voce recebeu um pergaminho EDO") end Agora , em ACTIONS, adicione essas 2 scripts  
 
Em seguida , adicione os XML <action itemid="4856" event="script" value="vai.lua"/> <action itemid="4856" event="script" value="pega.lua"/>  
Não se esqueça que são dois itens diferentes
Não se esqueça de criar os monstros com os respectivos nomes ao Edo Tensei
 
Créditos
BananaFight LuckOake MaXwElldEn Gears PsyMcKenzie ManoTobira NtoUltimate PedroSTT -- Correção de bugs , magia do pergaminho edo e reestruturação dos códigos  

@Hokograma , Obrigado pelo report , o bug ja foi corrigido.

Mude
for edo_tensei, v in pairs(mtrs) do Para
for edo_tensei, v in pairs(edo) do  

@Hokograma Pelo o que eu percebi , o ID dos itens não estão iguais nas scripts , esse é o erro 
 
no vai.lua
local id = 8302 -- Id do edo pergaminho no pega.lua
local id = 8301 -- Id do outro pergaminho que conterá o summon
Entendeu ? nas 2 script , coloque o ID do pergaminho que conterá o edo tensei.

local outfit = 123 -- Id da outfit da bike if getCreatureOutfit(cid) == outfit then doPlayerSendCancel(cid, "Dismount to surf.") doTeleportThing(cid, fromPosition, false) return false end Tenta por pela outfit da bike ... se não der certo tente trocar de return false para return true

Faaala galera , hoje vou trazer pra vocês o sistema do Edo tensei do nto Ultimate , para saber como o sistema funciona , basta ir ao SITE do nto ultimate
 
 
Crie um novo item com essa linha ; <item id="4856" article="an" name="edo pergaminho"> <attribute key="description" value="Neste pergaminho foi selado um [VAZIO]" /> <attribute key="weight" value="7000" /> </item> Agora vamos a spell para criar o pergaminho ;  
XML ;  <instant name="Edo Tensei" words="edo tensen no jutsu" lvl="55" mana="770" prem="1" exhaustion="2000" needlearn="0" event="script" value="edopergaminho"> </instant>          2. Script ;
local id = 4856 -- Id do edo pergaminho local count = 1 -- Quantos pergaminhos serão adiciondos ao usar o comando function onCastSpell(cid, var) doPlayerAddItem(cid, id, count) doPlayerSendTextMessage(cid, 18, "Voce recebeu um pergaminho EDO") end Agora , em ACTIONS, adicione essas 2 scripts  
 
Em seguida , adicione os XML <action itemid="4856" event="script" value="vai.lua"/> <action itemid="4856" event="script" value="pega.lua"/>  
Não se esqueça que são dois itens diferentes
Não se esqueça de criar os monstros com os respectivos nomes ao Edo Tensei
 
Créditos
BananaFight LuckOake MaXwElldEn Gears PsyMcKenzie ManoTobira NtoUltimate PedroSTT -- Correção de bugs , magia do pergaminho edo e reestruturação dos códigos  

function onStepIn(cid, item, position, fromPosition) local level = 500 if not isMonster(cid) then if getPlayerLevel(cid) <= level then doTeleportThing(cid, fromPosition, true) doSendMagicEffect(getThingPos(cid), CONST_ME_MAGIC_RED) doPlayerSendCancel(cid,"Somente Vip Players level " .. level .. " ou mais podem passar aqui.") return true end end end  

Faaala galera , hoje vou trazer pra vocês o sistema do Edo tensei do nto Ultimate , para saber como o sistema funciona , basta ir ao SITE do nto ultimate
 
 
Crie um novo item com essa linha ; <item id="4856" article="an" name="edo pergaminho"> <attribute key="description" value="Neste pergaminho foi selado um [VAZIO]" /> <attribute key="weight" value="7000" /> </item> Agora vamos a spell para criar o pergaminho ;  
XML ;  <instant name="Edo Tensei" words="edo tensen no jutsu" lvl="55" mana="770" prem="1" exhaustion="2000" needlearn="0" event="script" value="edopergaminho"> </instant>          2. Script ;
local id = 4856 -- Id do edo pergaminho local count = 1 -- Quantos pergaminhos serão adiciondos ao usar o comando function onCastSpell(cid, var) doPlayerAddItem(cid, id, count) doPlayerSendTextMessage(cid, 18, "Voce recebeu um pergaminho EDO") end Agora , em ACTIONS, adicione essas 2 scripts  
 
Em seguida , adicione os XML <action itemid="4856" event="script" value="vai.lua"/> <action itemid="4856" event="script" value="pega.lua"/>  
Não se esqueça que são dois itens diferentes
Não se esqueça de criar os monstros com os respectivos nomes ao Edo Tensei
 
Créditos
BananaFight LuckOake MaXwElldEn Gears PsyMcKenzie ManoTobira NtoUltimate PedroSTT -- Correção de bugs , magia do pergaminho edo e reestruturação dos códigos  

Blz ? Hoje vou trazer uma script simples , mas que vai ajudar muita gente

Ela funciona assim , caso você morra , não irá perder item , apenas XP

Vá em creaturescripts/script e crie um arquivo chamado nloot.lua e cole isso dentro 

Vá em creaturescripts/creaturescript.xml e cole isso la
 

Depois , vá em creaturescripts/scritps e abra o arquivo login.lua
Registre o evento , colocando a tag
 

Olá galera , venho trazer pra voces o kamui me do obito , pra quem não sabe , é um jutsu que  teleporta vc e o target para uma dimensão diferente e lah , vai ter monstros com o nome Gedou Kay que irão attackar somente o target.
 
Vá em spells/spells.xml e colé a seguinte tag ( coloque o id das voc que poderão usar ) 
 
agora em spells/scripts crie um arquivo .lua com o nome kamuime e cole a seguinte script 
 
Agorá vá em monster/monsters.xml e cole a tag 
 
Vá em monster e crie um arquivo .xml com o nome gedou kay e cole isso dentro
 
 
Agora vá em creaturescripts/creaturescripts.xml e cole a seguinte tag
 
Agora vá em creaturescripts/scripts crie um arquivo .lua com o nome mtarget e cole isso dentro
 
 
Créditos
 

local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatParam(combat, COMBAT_PARAM_HITCOLOR, COLOR_RED) setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -50.2, 1, -65.8, 1) function onCastSpell(cid, var) local waittime = 1.5 -- Tempo de exhaustion -- Lembre-se de na spells.xml deixar exhaustion = 0 local storage = 250002 local effect = 77 local PosTarget = {x=getThingPosition(getCreatureTarget(cid)).x, y=getThingPosition(getCreatureTarget(cid)).y, z=getThingPosition(getCreatureTarget(cid)).z} if exhaustion.check(cid, storage) then doPlayerSendCancel(cid, "You are exhausted") return false end doSendMagicEffect(PosTarget, effect) exhaustion.set(cid, storage, waittime) return doCombat(cid, combat, var) end  

ATUALIZADO DIA 06/07
 
Hey guys , suave ? Hoje vim trazer o rework da base Nto B&W , sendo refeita por mim , Segue as informações
Se achar algum bug comente no tópico.
Scan acusando vírus , já passei Nod32 e Norton e não encontrou vírus , apenas dll's necessárias para funcionar 
 
Informações
 
Erros e bugs
 
Prints
 
Downloads and Scan
 
Créditos
 

Configure
local x = { [0] = {x=p.x+1, y=p.y-1, z=p.z}, [1] = {x=p.x+7, y=p.y+1, z=p.z}, [2] = {x=p.x+1, y=p.y+7, z=p.z}, [3] = {x=p.x-1, y=p.y+1, z=p.z} } local y = { [0] = 172, [1] = 170, [2] = 173, [3] = 171  

Vou trazer um comando pra voces hoje , muito simples e as vezes util .

O que o comando faz ? Simplesmente mostra suas informações , apenas do player que digitar o comando.

Segue o print abaixo 
 

 
XML
<talkaction words="!playerinfo;/playerinfo" event="script" value="info.lua"/>
Script
 

ATUALIZADO DIA 06/07
 
Hey guys , suave ? Hoje vim trazer o rework da base Nto B&W , sendo refeita por mim , Segue as informações
Se achar algum bug comente no tópico.
Scan acusando vírus , já passei Nod32 e Norton e não encontrou vírus , apenas dll's necessárias para funcionar 
 
Informações
 
Erros e bugs
 
Prints
 
Downloads and Scan
 
Créditos
 

O nome dela é Diana Zambrowski ( algo assim )

CNB HyperX Druid.

Atualizado dia 06/07 . Acrescentado o client para editar o mapa e items.otb.

haha , obrigado!!