Dennyz

@Dennyz
 
 

Amigo tente
 
 

Fala galerinha!
 
Criei e arrumei o servidor para que todos possa colocar online e fazer um ótimo uso do mesmo.
Coloquei ele online por umas semanas e fui arrumando tudo, agora creio eu que está em 70% o projeto.
 
Porfavor, ninguém publique esse servidor em algum outro fórum a não ser que venha me pedir permissão.
 
Vamos ao que interessa.
 
 
LKing OT
TFS 1.2
 
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
 
• King Itens Quest
• King Set (Vendida no Npc)
• Divine Itens Quest
• Super Divine Itens Quest
• Epic Divine Itens Quest
~#~
VIP I, II e III (Quest)
~#~
Pits Of Inferno (POI)
Anihi
Demon Oak
Yalahari Quest
Firewalker Boots Quest
Warzone I, II e III
 
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
 
♦ Cast System (!cast on // !cast off)
♦ Reward Chest
♦ Critical e Dodge System
♦ War System
♦ Battlefield Event
♦ Zombie Event
♦ Bank System
♦ Market System
♦ Training Offline
♦ All Mounts 10.90 (Só com Mount Doll, vendida no npc)
♦ All Addons 10.90 (Só com Addon Doll, vendida no npc)
♦ Mágias modificadas (retirado um pouco do exhausted)
 
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
 
Fuon City (Cidade principal)
3 Cidades VIP
Roshamuul
Grey Island
Gnomebase (Warzone I, II e III)
~#~
+15 Quests
+25 Teleports (com monstros editados)
 
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
 
◄ IMAGENS ►
 
Minimap

 
Templo (+sub solo)

 

 
Depot

 
Teleports

 
Quests (1 e 2)

 

 
Entrada Área Vip I, II e III

 
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
 
◄ DOWNLOAD ►
Servidor + Mapa + Executável 64bits ~ Clique aqui
Executável 32bits ~ Clique aqui
Vírus Total ~ Clique aqui
~#~
Sources ~ Clique aqui
Vírus Total ~ Clique aqui
~#~
Website Gesior Acc + Database ~ Clique aqui
Vírus Total ~ Clique aqui
~#~
LKing - Remere's Map Editor 10.90 ~ Clique aqui
 
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
 
◄ CRÉDITOS ►
Executável 10.90 ~ Marco Oliveira
Mapa, npcs, quests, teleports, vip, itens, magias.. 80% do Servidor ~ Lukaz Giovanni (EU )
 
Espero que vocês goste do servidor.
Se eu ver que a galera curtiu e quer mais atualizações, vou modificando e publicando atualizações sempre.

Amigo tente
 
 

function onStepIn(cid, item, position, fromPosition) if not isPlayer(cid) then return true end if item.actionid == 19456 and not isPremium(cid) then doTeleportThing(cid, fromPosition, TRUE) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"Você não tem acesso Premium Account!") doSendMagicEffect(getThingPos(cid), CONST_ME_MAGIC_BLUE) return true end doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,"Bem Vindo á Área Premium!") return true end

CREATE TABLE "global_storage" (     "key" INTEGER NOT NULL,     "world_id" INTEGER NOT NULL DEFAULT 0,     "value" VARCHAR(255) NOT NULL DEFAULT '0',     UNIQUE ("key", "world_id") );

<item id="13946-13947" article="the" name="epic wisdom">     <attribute key="absorbPercentPhysical" value="10"/>     <attribute key="absorbPercentfire" value="30"/>     <attribute key="weight" value="805"/>     <attribute key="showattributes" value="1" /> </item>

Pronto.
local t = { storage = 34555, -- Storage do baú. gopos = {x = 160, y = 54, z = 7} -- Posição caso não tenha feito a quest. } function onUse(cid, item, fromPos, itemEx, toPos)     if getPlayerStorageValue(cid, t.storage) <= 0 then        doTeleportThing(cid, t.gopos)        doPlayerSendTextMessage(cid, 25, "Boa sorte.")     else        doPlayerSendTextMessage(cid, 25, "Você já fez essa quest.")     end     return true end

Não entendi seu pedido da action, fiz esse aqui, veja se é o que você quer.
local t = { storage = 34555, -- Storage do baú. gopos = {x = 160, y = 54, z = 7}, -- Posição caso não tenha feito a quest. nopos = {x = 161, y = 55, z = 7} -- Posição caso já tenha feito a quest. } function onUse(cid, item, fromPos, itemEx, toPos)     if getPlayerStorageValue(cid, t.storage) <= 0 then        doTeleportThing(cid, t.gopos)        doPlayerSendTextMessage(cid, 25, "Boa sorte.")     else        doTeleportThing(cid, t.nopos)        doPlayerSendTextMessage(cid, 25, "Você já fez essa quest.")     end     return true end Se não for, especifique melhor seu pedido.

Confira Novo Servidor Baiak
Devilbaiak.ml
 
Olá Galerinha Tibiana!
Durante 3 anos o baiak ainda está se atualizando cada vez mais e agora eu venho trazer a nova versao 10.10 não esta 100% mais garanto que vao gostar,entao vamos ver oque há de novo nele ?
 
Essa Nova Versão eu conseguir criar em apenas 2 dias e meio e nao deu tempo de testar mais se houver bugs comentem por favor.
 
Versão x10.1-  1.0 Oque há de novo ?
 
• Todas as mountarias da versao 10.10
• Todos os outfits 10.10
• Todos os items 10.10
• Monsters ainda em andamento.
• Templo com cara de 10.10
• City Vip com novo visual 10.10
• War System 100%
- Comandos :/war invite,nomedaguildrival  outra guild ativar a war /accept war,guildrival cancelar war . /war cancel,guildrival
• Cast System 100%
- Comandos:!cast list para ver casts abertos,!cast nomedoplayer para entrar, !cast exit para sair do cast que voce está !cast on para voce abrir um cast e !cast off para sair
• Novo Npc no templo que vende items 10.10
• Novo npc que vende items vip
• Bug das houses retirados
• Bug da Sql retirado
• Novos Comandos
/rank
!mount nomedamount
!addon nomedoaddon
!changesex
!buyhouse,!leavehouse,alana res,!sellhouse funcionando 100%
e muito mais que nao veio na cabeça mais quando eu lembrar posto.
O Servidor está em SQL pronto para por online e os erros do distro nao encomodam o server.
 
• Baiak Yurots V5.2 Oque Mudou ?
 
•Tirei bug das houses
•Tirei todos os erro do distro
•Arrumei o lado >> da city vip agora mais rox.
 
• Baiak Yurots V5.1 Oque Mudou ?
 
• Mudei a Quest do templo lv 150 ganha 2kk agora ganha só 500k
• Melhorei os teleports master lv 300+ agora tem 4 novas quest e 2 hunt +
• Mudei respaw de todas as hunts free , vip e master agora ta 5x melhor.
• Mudei Tempo da loteria tava 15 em 15 minutos agora ta de 1 em 1 hora.
• Melhorei a Exori gran do kina.
• Mudei os loot do monster bosses agora igual da versao 10.30 do global
• Adicionei quest do addon doll na area d lvel 300+
• Adicionei Quest do 2kk na area d Lvl 300+
• Adicionei Quest do necromancer shield na area de Lv 300+
• Adicionei Quest do Dwarven Set e hornede helmet na area de level 300+
• Adicionei o novo monster Master Medusa Lv 300+
• Adicionei 2 novas hunt de Master Medusa.
Se eu lembrar mas alguma coisa eu posto. :S
 
• Baiak Yurots V5.0 Oque Mudou ?
 
• Agora a City Está Maior Mais Bonita e Com Mais Houses.
• Novo Sistema de Treiner não prescisa andar muito para axar um livre.
• Novos monstros vip ( Sea Serpent Vip , Hellhound vip , night mare vip , fury vip ) novos monstros master ( hydra master , frost master , grim master e demon master).
• Nova Quest Master Com Armas Para todas as vocaçao.
• Agora o NPC VIP Vende e compra items vip, pois se voce pegar item vip de algum red algo assim voce pode vender mais so que o npc compra 60% mais barato ☺
• Novo Npc que vender Red Remover.
• Novo Templo.
• Novas Quests.
• Novo Depot.
• Novos Commandos ( !food Compra 100 , !topfrags Ver quem é o top frag , !glist  ver as guild do server e !glist Nameguild para ver os player da guild.
• Teleports Free e vip Agora com nova cara.
• Novo Caminho Para Poi no mesmo lugar so que mais bonito.
• Addon agora é com addon doll npc Varkhal Vende.
• Systema de Loteria a cada 2 Horas.
• Nova arena de team god que organiza.
E muito Mais ..
 
Novos Items.

 
Master vip Quest

 
Teleports Master

Templo vip

Templo city

 
Teleports Master

Teleport Free

 
O Server Está FULL EM SQL Só Baixar e Por Online Abaixo !
 
DOWNLOAD
4shared
 
SCAN
VirusTotal
 
Testado 32bits windows 7.
 
ACC DO GOD
god/god
 
Creditos
10% GOD Bon |  Por editar em 2008 90% Baiak Lula = Luizbaiak | Por editar2010 a 2014  
Obrigado bom jogo!              GOSTOU? DE REP+.

Aperta Alt+E, cole o código e aperte F9.

O tópico foi movido para a área correta, preste mais atenção da próxima vez!
Leia as regras do fórum: http://tibiaking.com/forum/topic/1281-regras-gerais/?p=7680

Este tópico foi movido:
De: "OTServ → Suporte OTServ → Suporte de Scripts"
Para: "OTServ → Suporte OTServ → Suporte de Programação"

protocolgame.cpp, procure por:
    msg->put<uint16_t>(player->getHealth());     msg->put<uint16_t>(player->getPlayerInfo(PLAYERINFO_MAXHEALTH)); troque por:
    if (player->getPlayerInfo(PLAYERINFO_MAXHEALTH) > 0)     {         msg->put<uint16_t>(uint16_t(player->getHealth() * 100 / player->getPlayerInfo(PLAYERINFO_MAXHEALTH)));         msg->put<uint16_t>(100);     }     else     {         msg->put<uint16_t>(0);         msg->put<uint16_t>(0);       } procure por:
    msg->put<uint16_t>(player->getPlayerInfo(PLAYERINFO_MANA));     msg->put<uint16_t>(player->getPlayerInfo(PLAYERINFO_MAXMANA)); troque por:
    if (player->getPlayerInfo(PLAYERINFO_MAXMANA) > 0)     {         msg->put<uint16_t>(player->getPlayerInfo(PLAYERINFO_MANA) * 100 / player->getPlayerInfo(PLAYERINFO_MAXMANA));         msg->put<uint16_t>(100);     }     else     {         msg->put<uint16_t>(0);         msg->put<uint16_t>(0);     }

game.cpp

MessageDetails* details = new MessageDetails(healthChange, COLOR_MAYABLUE);

http://www.tibiaking.com/forum/topic/29643-the-forgotten-server-037-1010x/

Nome: Sistema de reset Versão testada: TFS 0.3.6pl1 / 0.4 / 0.3.7 / 1.1 Créditos: fireelement Imagem:
Vá em data/talkactions/talkactions.xml e adicione essa tag:
Para TFS 0.3/0.4:



Para TFS 1.1/1.0:



 
Agora vá em data/talkactions/scripts/ e crie um arquivo com o nome reset.lua e cole isso nele:
Para TFS 0.3/0.4:



Para TFS 1.1:



Para TFS 1.0:

Oi.
Esse script vai fazer com que sua MW mostre os segundos que faltam para que ela desapareça. Só. 
 
Abra o script da magic wall (data/spells/script/support/magic wall rune.lua)
Troque tudo que estiver lá dentro por:
local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_ENERGY) setCombatParam(combat, COMBAT_PARAM_CREATEITEM, 1497)   function countPos(pos,tempo) if tempo > 0 then doSendAnimatedText(pos,tempo,TEXTCOLOR_RED) addEvent(countPos,1000,pos,tempo-1) else doSendMagicEffect(pos,2) end end   function onCastSpell(cid, var) countPos(var.pos,20) return doCombat(cid, combat, var) end E a MW está pronta!
Agora vamos querer mudar a Wild Growth também, correto?
Abra o script da wild growth (data/spells/script/support/wild growth rune.lua)
local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_EARTH) setCombatParam(combat, COMBAT_PARAM_CREATEITEM, 1499)   function countPos(pos,tempo) if tempo > 0 then doSendAnimatedText(pos,tempo,TEXTCOLOR_RED) addEvent(countPos,1000,pos,tempo-1) else doSendMagicEffect(pos,2) end end   function onCastSpell(cid, var) countPos(var.pos,45) return doCombat(cid, combat, var) end Tudo pronto, agora é só relaxar e gozar!!!

Wisland
 
Download: http://www.mediafire.com/download/glx7v2akja3y7e2/wisland.rar
Scan: https://www.virustotal.com/pt/file/bafe34876cfef16489fdac68dfb68cb8fea9a3a02ea6f6a5a4810660fb73b445/analysis/1423398633/
Imagem:

 
Southshire
 
Download: http://www.mediafire.com/download/lm9c1983dew9db5/southshire.rar
Scan: https://www.virustotal.com/pt/file/295d081d0370d9b5090850f5b852d2e2614d44e03f80786a5acee868aba8cee7/analysis/1423398826/
Imagem:

 
Créditos
 
Equipe RadBR.
wisland.rar
southshire.rar

Não testei:
 
<?xml version="1.0" encoding="UTF-8"?> <mod name="Frag Remover" version="1.1" author="Hermes" contact="otland.net" enabled="yes"> <action itemid="9969" event="script"><![CDATA[ local noRemove = {SKULL_WHITE, SKULL_YELLOW} local playerSkull = getPlayerSkullType(cid) if isInArray(noRemove, playerSkull) then doPlayerSendCancel(cid, "You can't remove this type of skull.") doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) return true elseif playerSkull == SKULL_NONE then doPlayerSendCancel(cid, "You don't have skull.") doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) return true elseif isPlayerPzLocked(cid) then doPlayerSendCancel(cid, "You're PZ.") doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) return true else db.executeQuery("UPDATE `killers` SET `unjustified` = 0 WHERE `id` IN (SELECT `kill_id` FROM `player_killers` WHERE `player_id` = " .. getPlayerGUID(cid) .. ")") doPlayerSendTextMessage(cid, 27, "Your frags & your skull have been removed!") doSendMagicEffect(getPlayerPosition(cid), CONST_ME_MAGIC_RED) doSendAnimatedText(getPlayerPosition(cid), "POFF!", 180) doCreatureSetSkullType(cid,0) doPlayerSetSkullEnd(cid, 0, playerSkull) doRemoveItem(item.uid, 1) end return true ]]></action> </mod>

Vc tem algum np ccom o nome hugo? se sim poste ele junto com o seu script.lua

Você tem 2 opções:

1 - colocar as saidas corretamente pelo map editor
 
2 - dentro do script NomeDoSeuMapa-house.xml aperta ctrl + h, e substitua os entryx="0" entryy="0" entryz="0" pela posição inicial de quando o player morre (TEMPLO) ou de qualquer lugar que queira.

local MIN = 950 local MAX = 1150 local EMPTY_POTION = 7590 local exhaust = createConditionObject(CONDITION_EXHAUST) setConditionParam(exhaust, CONDITION_PARAM_TICKS, (getConfigInfo('timeBetweenExActions') - 100)) function onUse(cid, item, fromPosition, itemEx, toPosition) if isPlayer(itemEx.uid) == FALSE then return FALSE end if hasCondition(cid, CONDITION_EXHAUST_HEAL) == TRUE then doPlayerSendDefaultCancel(cid, RETURNVALUE_YOUAREEXHAUSTED) return TRUE end if doPlayerAddMana(itemEx.uid, math.random(MIN, MAX)) == LUA_ERROR then return FALSE end doAddCondition(cid, exhaust) doSendMagicEffect(getPlayerPosition(cid),12) doCreatureSay(itemEx.uid, "Aaaah...", TALKTYPE_ORANGE_1) doTransformItem(item.uid, EMPTY_POTION) doPlayerRemoveItem(cid,7590,1) return TRUE end Tenta ae.

<!-- Teleport (stairs, ladders) -->
<action itemid="430;1369;1386;3678;5543;8580;8599;10035;13010" event="script" value="other/teleport.lua"/>

teleport.lua 
 
   
depois em actions/lib/actions.lua troque ou adicione por:
 
 

Procure antes de criar o tópico amigo !
http://www.tibiaking.com/forum/topic/2623-creaturescript-ganhar-3-dias-de-premium-ao-logar-pela-primeira-vez/

coloque isso na pasta movements: em arquivo lua
function onStepIn(cid, item, pos, frompos) if getPlayerPremiumDays(cid) < 1 then doTeleportThing(cid, frompos) doPlayerSendCancel(cid, 'Você não é vip.') doSendMagicEffect(frompos, CONST_ME_POFF) end return true end e no movements.xml cooloque isso:
<movevent event="StepIn" actionid="numero" script="Nome o arquivo.lua"/> --o numero é o id da action que você colocar no piso do seu mapa

local destino = {x = 1362, y = 1259, z = 6} -- Aqui vc põe as coordenadas do local pra onde o player vai function onStepIn(cid, item, pos) if isPlayer(cid) == true then doTeleportThing(Player(cid), destino) return true end Vê aí.