ADM Lucas OTBR

Compilado: https://www.mediafire.com/?i9jv7ql2a7yyi77
Não é 0.4, é 0.3.6pl1 (eu que modifiquei essa source ).

Bom galera,
 
Estou feliz por ter achado este site, sou um ex tibiano top 1 de amera quem não me conhece sou Diego Nepz Smith, em neptera fui conhecido como Nepzin. Estava desanimado de jogar tibia, então hoje me veio a brilhante idéia de criar meu próprio OTserv. Agora em vez de me dedicar a upar, irei me dedicar a criar um server que seja inovador e atraia bastante gente. Conto com a ajuda de todos .
 
 
abs
 
Diego Suarez

local level = x     --Level máximo para receber bless. function onLogin(cid)     if getPlayerLevel(cid) <= level then         for i = 1, 5 do             doPlayerAddBlessing(cid, i)         end         doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "You got blessed.")     end     return true end PS: Não precisa registrar nada no login.lua, visto que o callback é onLogin.

o projeto parece ser bem legal,boa sorte ai!!

Parece ótimo o projeto, boa sorte!

Boa garoto
Aos poucos vai montando seu projeto, logo logo ta muito bom!
Boa sorte, pode contar comigo!
 
Abraço.

~* Introdução *~
O continente de Ethyno é gigantesco e esconde grandes mistérios. Com ambientes de pura tranquilidade e beleza às mais profundas, terríveis e jamais inexploradas terras que você jamais imaginou existir. O OTBrasil conta com um mapa próprio, cheio de surpresas e bem detalhado, trazendo assim um melhor aproveitamento ao jogador enquanto caça, faz quests ou simplesmente explora o continente de Ethyno.
Claro que essa experiência fica melhor, assim como quase tudo, com os amigos.

 
~* Informações do Server *~
* Mais de 60 quests *
~> Blood Brothers
~> Warlock Fortress
~> Black Kngiht Quest
 
* Cidades *
~> Ethyno
~> Dangia 
~> Jungia 
~> Athya  
~> Icya    
 
* Geral *
Total de criaturas ~ +8k
Total de casas ~ 110 casas
 
~* Informações do Gerais *~
IP: otbrasil.servegame.com
Site: Coming soon.
Port: 7171
Cliente: 8.60
Host: À definir
Uptime: Será 24/7
Exp rate: 3x ~ Fixa!
Skill rate:  30x
Magic rate: 7x
Rate loot: 2x
 
~* Algumas imagens *~
 

 
 

 
 

 
 

 
 

 
Servidor em Test Server, até dia 10/03.
 
Muito obrigado à todos!!

~* Introdução *~
O continente de Ethyno é gigantesco e esconde grandes mistérios. Com ambientes de pura tranquilidade e beleza às mais profundas, terríveis e jamais inexploradas terras que você jamais imaginou existir. O OTBrasil conta com um mapa próprio, cheio de surpresas e bem detalhado, trazendo assim um melhor aproveitamento ao jogador enquanto caça, faz quests ou simplesmente explora o continente de Ethyno.
Claro que essa experiência fica melhor, assim como quase tudo, com os amigos.

 
~* Informações do Server *~
* Mais de 60 quests *
~> Blood Brothers
~> Warlock Fortress
~> Black Kngiht Quest
 
* Cidades *
~> Ethyno
~> Dangia 
~> Jungia 
~> Athya  
~> Icya    
 
* Geral *
Total de criaturas ~ +8k
Total de casas ~ 110 casas
 
~* Informações do Gerais *~
IP: otbrasil.servegame.com
Site: Coming soon.
Port: 7171
Cliente: 8.60
Host: À definir
Uptime: Será 24/7
Exp rate: 3x ~ Fixa!
Skill rate:  30x
Magic rate: 7x
Rate loot: 2x
 
~* Algumas imagens *~
 

 
 

 
 

 
 

 
 

 
Servidor em Test Server, até dia 10/03.
 
Muito obrigado à todos!!

local teleport = {     tpId = 1387,          --ID do teleport,     tpDuration = 5,       --Duração, em minutos.     positions = {         {{x = x, y = y, z = z, stackpos = 1}, {x = x, y = y, z = z}},       --{{onde o tp será criado}, {para onde o tp levará}},         {{x = x, y = y, z = z, stackpos = 1}, {x = x, y = y, z = z}},         {{x = x, y = y, z = z, stackpos = 1}, {x = x, y = y, z = z}},         {{x = x, y = y, z = z, stackpos = 1}, {x = x, y = y, z = z}},     }, } function onUse(cid, item, fromPosition, item2, toPosition)     for i = 1, #teleport.positions do         if getThingFromPos(teleport.positions[i][1]).uid > 0 then             return doPlayerSendCancel(cid, "Os teleports já foram criados.")         end         doCreateTeleport(teleport.tpId, teleport.positions[i][2], teleport.positions[i][1])         addEvent(function()             local items = getThingFromPos(teleport.positions[i][1]).uid             if items > 0 then                 doRemoveItem(items, 1)             end         end, teleport.tpDuration * 60 * 1000)     end     return true end

Oi.
Editei o código com outra função. Se possível, teste o novo script.

local vocations = {3, 4, 7, 8} function onStepIn(cid, item, position, fromPosition) if not isInArray(vocations, getPlayerVocation(cid)) and isPlayer(cid) then doTeleportThing(cid, fromPosition, true) doPlayerSendTextMessage(cid, 18, "Sua vocação não pode passar.") doSendMagicEffect(getThingPos(cid), CONST_ME_MAGIC_BLUE) end return true end

Como havia apenas um monstro configurado em tps, imaginei que você queria que o código se aplicasse a apenas um único boss. Por isso, mudei a tabela.

local teleport = {     tpId = 5023,      --ID do teleporte.     tpTime = 10,      --Tempo de duração do teleporte.     tps = {         {{x = 1134, y = 895, z = 3}, {x = 1135, y = 895, z = 2}},         {{posição onde será criado}, {posição onde levará}},         {{posição onde será criado}, {posição onde levará}},         {{posição onde será criado}, {posição onde levará}},     }, } function onDeath(cid)     doCreatureSay(cid, "The teleport will disappear on "..teleport.tpTime.." seconds.", TALKTYPE_ORANGE_1)     for i = 1, #teleport.tps do         doCreateTeleport(teleport.tpId, teleport.tps[i][2], teleport.tps[i][1])         addEvent(function()             local item = getTileItemById(teleport.tps[i][1], teleport.tpId).uid             if item > 0 then                 doRemoveItem(item, 1)                 doSendMagicEffect(teleport.tps[i][1], CONST_ME_POFF)             end         end, teleport.tpTime * 1000)     end     return true end

Tente assim:
local vocation = 4 function onStepIn(cid, item, position, fromPosition) if getPlayerVocation(cid) ~= vocation and isPlayer(cid) then doTeleportThing(cid, fromPosition, true) doPlayerSendTextMessage(cid, 18, 'You need to be a '..(getVocationInfo(vocation).name)..' to pass.') doSendMagicEffect(getThingPos(cid), CONST_ME_MAGIC_BLUE) end return TRUE end