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.

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í.

opa vi um erro testa agora