peckface

em data/actions/scripts crie um arquivo.lua e cole o codigo abaixo:
local function doPlayerAddPremiumPoints(cid, count) db.query('UPDATE accounts SET premium_points = premium_points+'.. count ..' WHERE id = ' .. getAccountNumberByPlayerName(getCreatureName(cid))) end function onUse(cid, item, fromPosition, itemEx, toPosition) doPlayerAddPremiumPoints(cid, 30) doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "You have recived 30 shop points to your account.") doSendMagicEffect(getCreaturePosition(cid), 28) doRemoveItem(item.uid,1) return true end em data/actions/actions.xml cole a seguinte tag:
<action itemid="id do item que ao usar ganha os points" script="nomedoarquivo.lua"/>  

em data/actions/scripts crie um arquivo.lua e cole o codigo abaixo:
local function doPlayerAddPremiumPoints(cid, count) db.query('UPDATE accounts SET premium_points = premium_points+'.. count ..' WHERE id = ' .. getAccountNumberByPlayerName(getCreatureName(cid))) end function onUse(cid, item, fromPosition, itemEx, toPosition) doPlayerAddPremiumPoints(cid, 30) doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "You have recived 30 shop points to your account.") doSendMagicEffect(getCreaturePosition(cid), 28) doRemoveItem(item.uid,1) return true end em data/actions/actions.xml cole a seguinte tag:
<action itemid="id do item que ao usar ganha os points" script="nomedoarquivo.lua"/>  

em data/actions/scripts crie um arquivo.lua e cole o codigo abaixo:
local function doPlayerAddPremiumPoints(cid, count) db.query('UPDATE accounts SET premium_points = premium_points+'.. count ..' WHERE id = ' .. getAccountNumberByPlayerName(getCreatureName(cid))) end function onUse(cid, item, fromPosition, itemEx, toPosition) doPlayerAddPremiumPoints(cid, 30) doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "You have recived 30 shop points to your account.") doSendMagicEffect(getCreaturePosition(cid), 28) doRemoveItem(item.uid,1) return true end em data/actions/actions.xml cole a seguinte tag:
<action itemid="id do item que ao usar ganha os points" script="nomedoarquivo.lua"/>  

Opa... mano eu tava com esse problema e consegui resolver..
 
Solução... vai em Guild.php  usando o ctrl+f procure por  $guild_vice = false;
                                                                                           $guild_leader = false;
 
Troque o false por true..
 
Problema resolvido xD

Atualização de Monstros e Items. 
 
 
  Estarei atualizando essa lista conforme eu for mudando  meus items, e monstros.(a antiga estava bem cagada).
   Estou usando como fonte o tibiawiki, e o wikia, porém algumas criaturas não tem os detalhes certos, como ataque, loot. 
    E outras usam script, a parte de level(movements), de quem ou oque vai usar o item, não irei postar pois cada pessoa acha                melhor como vai usar esse items, deixarei um download e sua respectiva scan no final do tópico, se encontrarem algo errado           e só dizer que arrumo, e claro se quiserem contribuir com algo que ainda não tenha...
 
 
  A principio roshamuul esta linda agora, consegui adicionar todos os items que faltavam.
          " see an item of type "   não tem mais essa coisa la.
 
 Otherworld a mesma coisa, so tem uma parte que não mexi ainda, mais na próxima atualização eu trago.
 
 Todos os itens nostalgia que veio no aniver da cip, consegui add todos desde a 10.94 até 11.01.
          sim ainda faltavam alguns items 10.94, e acredito que ainda falte, mudei o nome de muita coisa que estava igual.
So um lembrete, alguns itens estão com o nome unknow, esses tenho que descobrir ainda.
 
items.rar
 
 
 
 
 
 
 
 
 
 
 
 
 

opa fera, eu tenho alguns aqui tb e vou compartilhar com a galera, só tenho uma duvida, vc teria uma lista com script de magias dos monstros?

(PARA QUEM NÃO SABE COMPILAR UM OT NO LINUX CLIQUE AQUI)
 

Seacrest Grounds  War System  Taming System  DB  WOE Quest  All Mounts Roshamuul, Oramond, Venore, AB, Zao, Farmine  PTR & CR Quest Browse Field  Opção "Report Coordenate" (CTRL+Z)  Todas Hunts do 10.8/10.9 Cast System  REWARD SYTEM BATTLEFIELD EVENT Várias quests desbugadas (YALAHAR QUEST COMO EXEMPLO) Recompensas pra LVL 30+ (BANK SYSTEM)  
 

 
 

 
Datapack: MediaFire
Scan: VirusTotal
 
Website(Gesior): MediaFire
 
Sources: MediaFire
 
Database necessária: MediaFire
 

Créditos à CIPSOFT e ao TFS Team por disponibilizar Sistemas feitos pela equipe CIPSOFT.

Só adicionar no login.lua:
if getPlayerStorageValue(cid, storage) < 1 then setPlayerStorageValue(cid, storage, valor) end

Video de Demonstração
________________________________________________
data/firestorm_event.lua
-- firestorm Variables fsJoinedCountGlobalStorage = 18900 --Player joined event count / recuento de players. fsJoinStorage = 18901 --player join storage / storage del jugador a unirse. fsMinPlayers = 2 --min players needed when time runout / minimo de players necesarios para comenzar el evento. fsMaxPlayers = 5 --max players to join / maximo de players. fsTrophy = 7369 --trophy itemid / itemid del premio(que no sea stackable). fsEventCountGlobalStorage = 18902 --firestorm Count (no move/no moverle). fsWaitMinutes = 1 --when event has opened, how long until it starts? / cuantos minutos tarde el evento en empezar. fsWaitingRoomPos = Position(1016, 940, 7) --middle of waiting room / punto medio de el cuarto de espera. fsArena = Position(991, 930, 7) --when even start where should player be teleported in the arena? / punto donde seran transportados los players. fsArenaFromPosition = Position(984, 925, 7) --pos of top left corner / posicion de esquina superior izquierda. fsArenaToPosition = Position(998, 935, 7) --pos of bottom right corner /posicion de esquina inferior derecha. fsMiddleEventArena = Position(991, 930, 7) --Middle pos of the arena / punto medio de la arena fsWaitingRoomRadiusX = 8 --depends how big the waiting room is 20sqm to x / depende de lo grande la sala de espera en x fsWaitingRoomRadiusY = 8 --depends how big the waiting room is 20sqm to y / depende de lo grande la sala de espera en y fsEventArenaRadiusX = 15 --Depends how big the firestorm arena is 50sqm to x / depende de lo grande de la arena en x fsEventArenaRadiusY = 15 --Depends how big the firestorm arena is 50sqm to y / depende de lo grande de la arena en y fsStartedGlobalStorage = 18903 -- Value: 0 == false, 1 == true, 2 == started --State of the event fsCreateTeleportPosition = Position(1000, 1000, 7) --Where should the teleport be created? / posicion donde sera creado el teleport? function startfirestorm() local specs = Game.getSpectators(fsWaitingRoomPos, false, true, 0, fsWaitingRoomRadiusX, 0, fsWaitingRoomRadiusY) if Game.getStorageValue(fsJoinedCountGlobalStorage) <= fsMinPlayers then for i = 1, #specs do specs[i]:teleportTo(specs[i]:getTown():getTemplePosition(), false) specs[i]:setStorageValue(fsJoinStorage, 0) end resetfsVariables() Game.broadcastMessage('firestorm Event failed to start, because of to little players joined the event!', MESSAGE_STATUS_WARNING) return true end for i = 1, #specs do local rX, rY, rZ rX = math.random(fsArenaFromPosition.x, fsArenaToPosition.x) rY = math.random(fsArenaFromPosition.y, fsArenaToPosition.y) rZ = math.random(fsArenaFromPosition.z, fsArenaToPosition.z) specs[i]:teleportTo(Position(rX, rY, rZ)) end Game.broadcastMessage("firestorm Event has started, good luck to all participant.", MESSAGE_STATUS_WARNING) Game.setStorageValue(fsStartedGlobalStorage, 2) doStartfirestorm() end function doStartfirestorm() if Game.getStorageValue(fsJoinedCountGlobalStorage) > fsMaxPlayers then return false end if Game.getStorageValue(fsStartedGlobalStorage) == 2 then local specs = Game.getSpectators(fsArena, false, true, 0, 10, 0, 10) for i = 1, #specs do local randX, randY, randZ randX = math.random(fsArenaFromPosition.x, fsArenaToPosition.x) randY = math.random(fsArenaFromPosition.y, fsArenaToPosition.y) randZ = math.random(fsArenaFromPosition.z, fsArenaToPosition.z) local randfire = Position(randX, randY, randZ) local randX1, randY1, randZ1 randX1 = math.random(fsArenaFromPosition.x, fsArenaToPosition.x) randY1 = math.random(fsArenaFromPosition.y, fsArenaToPosition.y) randZ1 = math.random(fsArenaFromPosition.z, fsArenaToPosition.z) local randfire1 = Position(randX1, randY1, randZ1) local creature, players = nil, Game.getPlayers() for i = 1, #players do creature = players[i] doSendDistanceShoot(fsArenaFromPosition, randfire, 4) doSendDistanceShoot(fsArenaToPosition, randfire, 4) doSendDistanceShoot(Position(998, 925, 7), randfire, 4) doSendDistanceShoot(Position(984, 935, 7), randfire, 4) doAreaCombatHealth(creature.uid, COMBAT_HOLYDAMAGE, randfire,randfire, -9999, -1000000,7) end end addEvent(doStartfirestorm, 500) end end function resetfsVariables() Game.setStorageValue(fsEventCountGlobalStorage, 0) Game.setStorageValue(fsJoinedCountGlobalStorage, 0) Game.setStorageValue(fsStartedGlobalStorage, 0) end creaturescripts/scriptsdofile('data/firestorm_event.lua') function onPrepareDeath(player, killer) local winner = 0 if player:getStorageValue(fsJoinStorage) >= 1 then Game.setStorageValue(fsJoinedCountGlobalStorage, Game.getStorageValue(fsJoinedCountGlobalStorage)-1) player:teleportTo(player:getTown():getTemplePosition()) player:setStorageValue(fsJoinStorage, 0) player:addHealth(player:getMaxHealth()) if Game.getStorageValue(fsJoinedCountGlobalStorage) <= 1 then --Event ended, someone won! local pla, play = nil, Game.getPlayers() for i = 1, #play do pla = play[i] if pla:getStorageValue(fsJoinStorage) == 1 then winner = pla:getId() break end end winner = Player(winner) if winner then winner:teleportTo(winner:getTown():getTemplePosition()) winner:addHealth(winner:getMaxHealth()) local trophy = winner:addItem(fsTrophy, 1) if trophy then trophy:setAttribute(ITEM_ATTRIBUTE_DESCRIPTION, '['.. winner:getName() ..'] has won the firestorm Event.') end Game.broadcastMessage(string.format('%s is the winner of firestorm Event', winner:getName()), MESSAGE_STATUS_WARNING) end resetfsVariables() end return false end return true end
Creaturescripts/scripts
dofile('data/firestorm_event.lua') function onPrepareDeath(player, killer) local winner = 0 if player:getStorageValue(fsJoinStorage) >= 1 then Game.setStorageValue(fsJoinedCountGlobalStorage, Game.getStorageValue(fsJoinedCountGlobalStorage)-1) player:teleportTo(player:getTown():getTemplePosition()) player:setStorageValue(fsJoinStorage, 0) player:addHealth(player:getMaxHealth()) if Game.getStorageValue(fsJoinedCountGlobalStorage) <= 1 then --Event ended, someone won! local pla, play = nil, Game.getPlayers() for i = 1, #play do pla = play if pla:getStorageValue(fsJoinStorage) == 1 then winner = pla:getId() break end end winner = Player(winner) if winner then winner:teleportTo(winner:getTown():getTemplePosition()) winner:addHealth(winner:getMaxHealth()) local trophy = winner:addItem(fsTrophy, 1) if trophy then trophy:setAttribute(ITEM_ATTRIBUTE_DESCRIPTION, '['.. winner:getName() ..'] has won the firestorm Event.') end Game.broadcastMessage(string.format('%s is the winner of firestorm Event', winner:getName()), MESSAGE_STATUS_WARNING) end resetfsVariables() end return false end return true end creaturescripts.xml
<!-- firestorm --> <event type="prepareDeath" name="fire_event" script="xxxx.lua"/> login
player:registerEvent("fire_event") globalevents/scripts
dofile('data/firestorm_event.lua') function onThink(interval, lastExecution, thinkInterval) resetfsVariables() if Game.getStorageValue(fsStartedGlobalStorage) < 1 then local teleport = doCreateItem(11796,1,fsCreateTeleportPosition) if teleport then doSetItemActionId(teleport, 5499) doSendMagicEffect(fsCreateTeleportPosition, CONST_ME_TELEPORT) end local r_tp = Tile(fsCreateTeleportPosition):getItemById(11796) addEvent(function() r_tp:remove() getTileItemById(fsCreateTeleportPosition, 11796) end, 60 * 1000) addEvent(function() doSendMagicEffect(fsCreateTeleportPosition, CONST_ME_TELEPORT) end, 60 * 1000) end Game.setStorageValue(fsStartedGlobalStorage,1) print('firestorm Event has started & waiting for players to join! Min: '.. fsMinPlayers ..'/'.. fsMaxPlayers ..'.') Game.broadcastMessage('The firestorm Event has started! You have '.. fsWaitMinutes ..' minutes to join!', MESSAGE_STATUS_WARNING) addEvent(startfirestorm, fsWaitMinutes * 60 * 1000) return true end globalevents.xml
<!-- FireStorm--> <globalevent name="firestorm_event" interval="72000000" script="xxxx.lua"/> movements/scripts
dofile('data/firestorm_event.lua') function onStepIn(creature, item, position, fromPosition) local player = creature:getPlayer() if Game.getStorageValue(fsStartedGlobalStorage) == 2 then player:sendTextMessage(MESSAGE_INFO_DESCR, 'The Firestorm Event has already started.') player:teleportTo(fromPosition, true) return false end if Game.getStorageValue(fsStartedGlobalStorage) == 0 then player:sendTextMessage(MESSAGE_INFO_DESCR, 'The Firestorm Event has not started yet.') player:teleportTo(fromPosition, true) return false end if Game.getStorageValue(fsJoinedCountGlobalStorage) >= fsMaxPlayers then player:teleportTo(fromPosition, true) player:sendTextMessage(MESSAGE_INFO_DESCR, 'The Firestorm Event is already full! ['.. Game.getStorageValue(fsJoinedCountGlobalStorage) ..'/'.. fsMaxPlayers ..']') return false end player:teleportTo(fsWaitingRoomPos) Game.setStorageValue(fsJoinedCountGlobalStorage, Game.getStorageValue(fsJoinedCountGlobalStorage) + 1) Game.broadcastMessage(string.format('%s has joined the Firestorm Event! [%s/'.. fsMaxPlayers ..'].', player:getName(), Game.getStorageValue(fsJoinedCountGlobalStorage)), MESSAGE_STATUS_WARNING) player:setStorageValue(fsJoinStorage, 1) return true end Movements.xml
<!-- firestorm --> <movevent event="StepIn" actionid="5499" script="xxxx.lua"/> ________________________________________________
Créditos: Scrappy Coco

Desculpem-me tantos tópicos com pedidos meus, é que não manjo muito em aplicar novas "features" no gesior, tenho um pouco de dificuldade de fazer sozinho...
 
Se alguém puder me dizer como colocar aquele "header" (não sei se é exatamente um header) com o Top 5 leveis do servidor, dizendo nome e level... Igual ou parecido o da imagem:
 

 
 
--- EDIT ---
 
 
Consegui encontrar um bom widget e adaptar ao meu gesior... Segue o arquivo que se localiza na pasta "htdocs / layouts / tibiacom" chamado "widget_rank.php":



 
 
Tendo esse arquivo, basta procurar por essa linha no arquivo "layout.php" que se localiza na pasta "htdocs / layouts / tibiacom"
 
 
e adicionar na linha de baixo:
 
 
 
Tópico resolvido e encerrado.

Foi mal esqueci de fechar a função, agora vai
 
 

Opa, galerinha do TK, pro meu primeiro tutorial resolvi fazer uma solução de um problema que desde que cheguei no TK, vejo que ocorre com uma certa frequência. Os erros da data base.
 
Neste tutorial vou ensinar a resolver os erros do tipo No such table, Insert into, No such column, ... has no column named... etc.
 
1°) NO SUCH TABLE
 
Bom, para o erro No such table, basta vc visualizar qual table está faltando. Para isso basta ler o erro na distro:

 
No caso da imagem, está faltando a table: player_statements
Para resolver este e qualquer outro problema deste tipo, caso sua data base seja sqlite,
basta abrir sua data base pelo Sqlite Studio(download: http://sqlitestudio.pl/?act=download) e clicar em Open SQL query editor:



 
Mas caso sua data base seja Mysql abra pelo phpMyadmin, ou por outro editor de sua preferencia.
 
1.1°) EXECUTANDO OS COMANDOS PARA RESOLVER O PROBLEMA
  Bom, dependendo da table que estiver faltando, vc irá colocar seu respectivo comando, segue abaixo TODOS os comandos básicos necessários para que sua data base fique Ok! :   (VC VAI PEGAR O COMANDO REFERENTE À TABLE QUE VC QUER!!!)
 
 
account_viplist



 
Sqlite




 
accounts



 
Sqlite




 
bans



 
Sqlite




 
environment_killers



 
Sqlite




 
global_storage



 
Sqlite




 
guild_invites



 
Sqlite




 
guild_kills



 
Sqlite




 
guild_ranks



 
Sqlite




 
guild_wars



 
Sqlite




 
guilds



 
Sqlite




 
house_auctions



 
Sqlite




 
house_data



 
Sqlite




 
house_lists



 
Sqlite




 
houses



 
Sqlite




 
killers



 
Sqlite




 
market_history



 
Sqlite




 
market_offers



 
Sqlite




 
player_deaths



 
Sqlite




 
player_depotitems



 
Sqlite




 
player_inboxitems



 
Sqlite




 
player_items



 
Sqlite




 
player_killers



 
Sqlite




 
player_namelocks



 
Sqlite




 
player_skills



 
Sqlite




 
player_spells



 
Sqlite




 
player_statements



 
Sqlite




 
player_storage



 
Sqlite




 
player_viplist



 
Sqlite




 
players



 
Sqlite




 
server_config



 
Sqlite




 
server_motd



 
Sqlite




 
server_record



 
Sqlite




 
server_reports



 
Sqlite




 
tile_items



 
Sqlite




 
tile_store



 
Sqlite




 
tiles



 
Sqlite




 
announcements



 
Sqlite




 
pagsegurotransacoes



 
Sqlite




 
player_advances



 
Sqlite




 
reports



 
Sqlite




 
thanks



 
Sqlite




 
z_bug_logs



 
Sqlite




 
z_featured_article



 
Sqlite




 
z_forum



 
Sqlite




 
z_helpdesk



 
Sqlite




 
z_monsters



 
Sqlite




 
z_network_box



 
Sqlite




 
z_news_tickers



 
Sqlite




 
z_ots_comunication



 
Sqlite




 
z_polls



 
Sqlite




 
z_polls_answers



 
Sqlite




 
z_poll_votes



 
Sqlite




 
z_shop_history_item



 
Sqlite




 
z_shop_history_pacc



 
Sqlite




 
z_shop_offer



 
Sqlite




 
z_spells



 
Sqlite




 
z_news_big



 
Sqlite




 
 
2°) No such column /  "NOME DA TABLE" has no column named "NOME DA COLUMN QUE FALTA" / Insert into
  Bom, para resolver esse problema vc deve identificar em qual TABLE está essa coluna que falta. Para isso, basta ler o erro como na imagem:

 
No caso da imagem, está faltando a column WORLD_ID dentro da table MARKET_OFFERS. Para resolver, vc deve executar excluir a sua table MARKET_OFFERS existante em sua data base, e em seguida, executar o domando da da market_offers, encontrado acima, logicamente isso só se aplica ao caso da imagem, depende do seu caso, vc deve excutar o comando da table que estiver sendo referida no erro. Mas antes de executá-lo vc deve excluir a sua table EXISTENTE, para então executar o comando.
 
ESTA FORMA DE RESOLUÇÃO SE APLICA AOS TRÊS CASOS: NO SUCH COLUMN, ...HAS NO COLUMN NAMED... e INSERT INTO.
 
 
 
Bom galera, é isso.
 
SE ENCONTRAREM, OU SE DEPARAREM COM ALGUM ERRO, BASTA ME PEDIR AJUDA QUE EU DAREI TOTAL SUPORTE PARA VOCÊS!
 
SE ESTIVR FALTANDO MAIS ALGUMA TABLE QUE EU NÃO COLOQUEI AQUI, PF ME INFORMEM E EU ATUALIZAREI O TÓPICO!!!
 
 
Lembrem-se, se eu te ajudei, por favor, deem REP++ pois foi meio trabolhoso fazer este tutorial todo...
 
ESTOU A DISPOSIÇÃO DE TODOS! Tanto por PM quanto por SKYPE, e até mesmo por aqui, pois vou checar este tópico regularmente!!
 
 
Espero ter ajudado!!
Abraços.

substitui por esse action
 

function onUse(cid, item, fromPosition, itemEx, toPosition)
local config={
removeOnUse = "yes" -- remover quando usar ("yes" or "no")
}
local days = 30 -- dias que serão adicionados
local daysvalue = days * 24 * 60 * 60
local storageplayer = getAccountStorageValue(cid, 445566)
local timenow = os.time()
if getAccountStorageValue(cid, 445566) - os.time() <= 0 then
time = timenow + daysvalue
else
time = storageplayer + daysvalue
end
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Foram adicionados ".. days .." dias de VIP no seu character.")
setAccountStorageValue(cid, 445566, time)
local quantity = math.floor((getAccountStorageValue(cid, 445566) - timenow)/(24 * 60 * 60))
doSendMagicEffect(getPlayerPosition(cid), math.random(28,30))
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você tem ".. quantity .." dias de VIP restantes.")
if (config.removeOnUse == "yes") then
doRemoveItem(item.uid, 1)
end
return TRUE
end
Deu certo lekstar?

vc loga no servidor pelo seu ipv4? 
Você já crio conta e host/dns no noip.com?
ja baixo o DUC no noip.com?

function onSay(cid, words, param, channel)   local desbug = 10 local cdesbug = 10 local color = COLOR_ELECTRIC local magic = 1 if hasCondition(cid, CONDITION_INFIGHT) then return doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "Desculpe,voce esta em batalha.") if exhaustion.get(cid, desbug) and exhaustion.get(cid, desbug) > 0 then    local tempo = tonumber(exhaustion.get(cid, desbug)) or 0    doPlayerSendCancel(cid, "Voce precisa esperar "..getStringmytempo(tempo).." para desbugar de novo!.") return true end   pos = getTownTemplePosition(getPlayerTown(cid))  
pos = {x = 1020, y = 917, z = 7} end doTeleportThing(cid, pos, false) doSendAnimatedText(getThingPos(cid), "DESBUGADO!", color) doSendMagicEffect(getThingPos(cid), magic) exhaustion.set(cid, desbug, cdesbug) setPlayerStorageValue(cid, 31040, -1) setPlayerStorageValue(cid, 181643, -1) setPlayerStorageValue(cid, 17769, -1) setPlayerStorageValue(cid, 89050, -1) return true end ​

esqueci do end
 
 
function onSay(cid, words, param, channel)   local desbug = 10 local cdesbug = 10 local color = COLOR_ELECTRIC local magic = 1   if hasCondition(cid, CONDITION_INFIGHT) then return doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "Desculpe,voce esta em batalha.") end if exhaustion.get(cid, desbug) and exhaustion.get(cid, desbug) > 0 then    local tempo = tonumber(exhaustion.get(cid, desbug)) or 0    doPlayerSendCancel(cid, "Voce precisa esperar "..getStringmytempo(tempo).." para desbugar de novo!.") return true end   pos = getTownTemplePosition(getPlayerTown(cid))  
pos = {x = 1020, y = 917, z = 7} end doTeleportThing(cid, pos, false) doSendAnimatedText(getThingPos(cid), "DESBUGADO!", color) doSendMagicEffect(getThingPos(cid), magic) exhaustion.set(cid, desbug, cdesbug) setPlayerStorageValue(cid, 31040, -1) setPlayerStorageValue(cid, 181643, -1) setPlayerStorageValue(cid, 17769, -1) setPlayerStorageValue(cid, 89050, -1) return true end  
​

table.foreach(TheNewFrontier, function(var, key) if player:getStorageValue(key) < 1 then player:setStorageValue(key, 1) end end)

Posta seu login.lua e as storages.

pra galera que ta com dificuldade de compilar pra windows, aqui está...
tfs 1.2 protocolo 10.81.
sem dll's só o executável do server, ah, eu não vou por scan pq eu to com preguiça, então peço que alguém faça o scan pra mim, e se achar que tem virus podem tirar meu comentário !
 
 
 
https://mega.nz/#!TYgyGaLC!wotFPgITHuqwUZMYnQGDhbwrB43ICTkVlAZuTd7iO4o

Olá amigos da Comunidade Tibiaking venho trazer a vocês este tutorial de como compilar o TFS v1.0 em windows 32 or 64 bits com Microsoft Visual Studio 2013 (Obs: Eu uso a 2013 Ultimater Recomendo).   Vamos ao tutorial >>   1) Primeito baixe os programas abaixo se não tiver claro:   MSVS 2013 >> Click Here http://www.visualstudio.com/downloads/download-visual-studio-vs   Agora baixar os Programas do TFS v1.0:   TFS Sdk >> Click Here - Link 2: (Mirror)
  Source Do TFS v1.0 >> Click Here
  Atenção Baixe apenas a Boost da versão do Pc 32 or 64 Bits.   Boost MSVS 2013 32Bits >> Click Here
  Boost MSVS 2013 64Bits >> Click Here
  2) Agora vamos começar a instalar os Programs do TFS v1.0 >> Primeiro instale o Boost 32 or 64Bits No diretorio raiz do seu HD:   Print >>  
  Agora coloque o SDK Extraido na raiz do Seu HD:   Print >>       Faça a mesma coisa com a source do TFS v1.0:   Print>>     Depois de ter feito tudo isso abra a pasta da source e abra a pasta vc12 e siga a print: ( Obs: Você vera Boost32 isso acontece porque na instalação  eu coloquei no diretório como Boost32 (Primeira foto) mas basta você deixar como C:\Boost  ( A letra C:\  Refere-se a letrado do seu HD  ela pode ser D - H - F e Etc... Varia de Pc a Pc.) )   Print >>     Com o Visual Studio (2013 Recomendado) aberto Siga as Prints abaixo:   Click com botão direito no projeto e vá em propriedades:   Print >>     Depois Click em Cofiguration manager:   Print >>   Vamos as explicações: 1 >> Click la Primeiro Quando abrir a caixa com os passos 2-3 and 4 siga-os abaixo >> 2>> Coloque release e só nada mais. 3>> escolha para qual sistema de 32 or 64Bits. (Lembrado que ali e de acordo com a Boost oks. ) 4>> Só Click lá quando terminar de fazer os passos acima. Rsrs.] ------------------------------------|||||------------------------------- 3) Terceira parte Passos 1 do tutorial vamos lá >> Primeiro agora depois de fazer os passos anteriores faça os seguintes passos Click em C/C++ >>> General e siga a Print:   Print>>     Caso você não entendeu siga as explicações: Vamos as explicações: 1>> Onde você Deve clicar C/C++ >> General. 2>> Click onde a seta esta apontado e click em edit ou de dois clicks. 3>> Quando abrir a caixa de dialogo  deixe os diretórios iguais ao da foto e de um Ok. ( Obs: Você vera Boost32 isso acontece porque na instalação  eu coloquei no diretório como Boost32 (Primeira foto) mas basta você deixar como C:\Boost )   Terceira parte passo 2 Click em Linker >> General e siga  as Prints >>   Prints >>     Vamos as explicações: 1>> Onde você deve Clicar depois de fazer os passos anteriores da terceira parte passos 1. Oks. 2>> igual ao passo 2 da parte 1 da terceira parte só que mais explicativo. 3>> Click em Edit e espere abrir a caixa de Dialogo siga a Print 2.   Print 2>>     Deixe igual a caixa de dialogo  onde esta marcado com o 1 Grande Oks. Depois basta da um OK e um Apply e Ok e esperar aparecer Ready >>    
  Print>>     Explicações: 1>> Esperar o Ready. 2>> Click com o botão direito no projeto e depois em BuilD.            Basta Esperar terminar a compilação e Pronto.            Caso o tutorial não tenha sido bem explicativo Posso melhorá-lo a sugestão e depois posto a foto final da compilação Oks.   Se quiser me agradecer eu serei grato pois deu trabalho fazer esse tutorial pois bugo algumas vezes.   Um grande abraço e fiquem com Deus!   Nota: Eu Tenho permissão do autor do tutorial Original em Inglês para criar o post em PT-Br Não e permitido copiar ou reproduzir sem a devida autorização de Dominique120. Não e permitido postar o Faq do mesmo aqui neste tutorial para ver mais informações siga o LINK ou Veja os #créditos.   #Creditos: -------------------///------------------ Dominique120 >> Click aqui para ver o tutorial original  -------------------///-------------------- ZORAN  >> Click aqui para ver o meu perfil

E ai camarada td bem!? tive o mesmo problema o mitsuig me ajudou! sources/src/definitions.h 
 
deixe assim
 
#define CLIENT_VERSION_MIN 1080   #define CLIENT_VERSION_MAX 1089   #define CLIENT_VERSION_STR "10.81"

Biel veja meu tutorial!! 
não esquece do rep+ eim!!! liane veja meu tutorial!! não esquece do rep+ 

Olá galera, nunca postei aqui no fórum pra tentar ajudar a turma.... Bom, esses dias eu estava procurando uma talkaction aqui no fórum, que mude o elemento da wand... Eu não achei nenhum tópico, porém, achei uma resposta em um tópico e eu decidi postar aqui no fórum. Se estiver na seção errada, por favor, mova para a correta, ou se ja tiver um tutorial assim aqui, pode deletar se possível.
 
Bom vamos lá:
 
1 - Vá em data/creaturescripts/scripts/login.lua e adicione a seguinte tag antes do último "Return True":
 
 
2 - Vá em data/items/items.xml e adicione isso, ou edite o item desejado:
 
 
3 - Vá em data/talkactions/talkactions.xml e adicione a seguinte tag:
 
 
Ainda em talkactions, abra a pasta scripts e crie um arquivo chamado wand.lua e coloque o seguinte código dentro deste arquivo:
 
 
4 - Vá em data/weapons/weapons.xml e adicione a seguinte tag:
 
  Ainda em weapons, abra a pasta scripts e crie um arquivo chamado wand1.lua e coloque o seguinte código dentro do mesmo:
 
 
Pronto, basta você retirar o item do loot dos monstros, editar ao seu gosto a wand, e ser feliz com ela 
 
Créditos:
Zaruss por postar esse script na resposta de um tópico aqui no TK
jvcasarin(EU) por postar um tópico aqui no TK
 
Se te ajudei, dê um REP+ ai   

Potions Heal Friend TFS 1.0
 
Em alguns ots que usam tfs 1.0 as potions tem um bug que não da pra healar outros players, então vou postar o scripts desbugado funcionando 100%
local ultimateHealthPot = 8473 local greatHealthPot = 7591 local greatManaPot = 7590 local greatSpiritPot = 8472 local strongHealthPot = 7588 local strongManaPot = 7589 local healthPot = 7618 local manaPot = 7620 local smallHealthPot = 8704 local antidotePot = 8474 local greatEmptyPot = 7635 local strongEmptyPot = 7634 local emptyPot = 7636 local antidote = createCombatObject() setCombatParam(antidote, COMBAT_PARAM_TYPE, COMBAT_HEALING) setCombatParam(antidote, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE) setCombatParam(antidote, COMBAT_PARAM_TARGETCASTERORTOPMOST, TRUE) setCombatParam(antidote, COMBAT_PARAM_AGGRESSIVE, FALSE) setCombatParam(antidote, COMBAT_PARAM_DISPEL, CONDITION_POISON) local exhaust = createConditionObject(CONDITION_EXHAUST_HEAL) setConditionParam(exhaust, CONDITION_PARAM_TICKS, (configManager.getNumber(configKeys.EX_ACTIONS_DELAY_INTERVAL) - 100)) -- 1000 - 100 due to exact condition timing. -100 doesn't hurt us, and players don't have reminding ~50ms exhaustion. function onUse(cid, item, fromPosition, itemEx, toPosition) if itemEx.itemid ~= 1 or itemEx.type ~= THING_TYPE_PLAYER then return true end if(getCreatureCondition(cid, CONDITION_EXHAUST_HEAL) == TRUE) then doPlayerSendDefaultCancel(cid, RETURNVALUE_YOUAREEXHAUSTED) return TRUE end if(item.itemid == antidotePot) then if(doCombat(cid, antidote, numberToVariant(cid)) == LUA_ERROR) then return FALSE end doAddCondition(cid, exhaust) doCreatureSay(cid, "Aaaah...", TALKTYPE_ORANGE_1) doRemoveItem(item.uid, 1) setPlayerStorageValue(cid, 14582, getPlayerStorageValue(cid, 14582) + 1) elseif(item.itemid == smallHealthPot) then if(doTargetCombatHealth(0, itemEx.uid, COMBAT_HEALING, 75, 125, CONST_ME_MAGIC_BLUE) == LUA_ERROR) then return FALSE end doAddCondition(cid, exhaust) doCreatureSay(itemEx.uid, "Aaaah...", TALKTYPE_ORANGE_1) doRemoveItem(item.uid, 1) setPlayerStorageValue(cid, 14582, getPlayerStorageValue(cid, 14582) + 1) elseif(item.itemid == healthPot) then if(doTargetCombatHealth(0, itemEx.uid, COMBAT_HEALING, 130, 180, CONST_ME_MAGIC_BLUE) == LUA_ERROR) then return FALSE end doAddCondition(cid, exhaust) doCreatureSay(itemEx.uid, "Aaaah...", TALKTYPE_ORANGE_1) doRemoveItem(item.uid, 1) setPlayerStorageValue(cid, 14582, getPlayerStorageValue(cid, 14582) + 1) elseif(item.itemid == manaPot) then if(doTargetCombatMana(0, itemEx.uid, 70, 130, CONST_ME_MAGIC_BLUE) == LUA_ERROR) then return FALSE end doAddCondition(cid, exhaust) doCreatureSay(itemEx.uid, "Aaaah...", TALKTYPE_ORANGE_1) doRemoveItem(item.uid, 1) setPlayerStorageValue(cid, 14582, getPlayerStorageValue(cid, 14582) + 1) elseif(item.itemid == strongHealthPot) then if(not(isKnight(cid) or isPaladin(cid)) or (getPlayerLevel(cid) < 50)) and not(getPlayerGroupId(cid) >= 2) then doCreatureSay(cid, "This potion can only be consumed by paladins and knights of level 50 or higher.", TALKTYPE_ORANGE_1) return TRUE end if(doTargetCombatHealth(0, itemEx.uid, COMBAT_HEALING, 270, 320, CONST_ME_MAGIC_BLUE) == LUA_ERROR) then return FALSE end doAddCondition(cid, exhaust) doCreatureSay(itemEx.uid, "Aaaah...", TALKTYPE_ORANGE_1) doRemoveItem(item.uid, 1) setPlayerStorageValue(cid, 14582, getPlayerStorageValue(cid, 14582) + 1) elseif(item.itemid == strongManaPot) then if(not(isSorcerer(cid) or isDruid(cid) or isPaladin(cid)) or (getPlayerLevel(cid) < 50)) and not(getPlayerGroupId(cid) >= 2) then doCreatureSay(cid, "This potion can only be consumed by sorcerers, druids and paladins of level 50 or higher.", TALKTYPE_ORANGE_1) return TRUE end if(doTargetCombatMana(0, itemEx.uid, 115, 185, CONST_ME_MAGIC_BLUE) == LUA_ERROR) then return FALSE end doAddCondition(cid, exhaust) doCreatureSay(itemEx.uid, "Aaaah...", TALKTYPE_ORANGE_1) doRemoveItem(item.uid, 1) setPlayerStorageValue(cid, 14582, getPlayerStorageValue(cid, 14582) + 1) elseif(item.itemid == greatSpiritPot) then if(not(isPaladin(cid)) or (getPlayerLevel(cid) < 80)) and not(getPlayerGroupId(cid) >= 2) then doCreatureSay(cid, "This potion can only be consumed by paladins of level 80 or higher.", TALKTYPE_ORANGE_1) return TRUE end if(doTargetCombatHealth(0, itemEx.uid, COMBAT_HEALING, 250, 350, CONST_ME_MAGIC_BLUE) == LUA_ERROR or doTargetCombatMana(0, cid, 100, 200, CONST_ME_MAGIC_BLUE) == LUA_ERROR) then return FALSE end doAddCondition(cid, exhaust) doCreatureSay(itemEx.uid, "Aaaah...", TALKTYPE_ORANGE_1) doRemoveItem(item.uid, 1) setPlayerStorageValue(cid, 14582, getPlayerStorageValue(cid, 14582) + 1) elseif(item.itemid == greatHealthPot) then if(not(isKnight(cid)) or (getPlayerLevel(cid) < 80)) and not(getPlayerGroupId(cid) >= 2) then doCreatureSay(cid, "This potion can only be consumed by knights of level 80 or higher.", TALKTYPE_ORANGE_1) return TRUE end if(doTargetCombatHealth(0, itemEx.uid, COMBAT_HEALING, 425, 575, CONST_ME_MAGIC_BLUE) == LUA_ERROR) then return FALSE end doAddCondition(cid, exhaust) doCreatureSay(itemEx.uid, "Aaaah...", TALKTYPE_ORANGE_1) doRemoveItem(item.uid, 1) setPlayerStorageValue(cid, 14582, getPlayerStorageValue(cid, 14582) + 1) elseif(item.itemid == greatManaPot) then if(not(isSorcerer(cid) or isDruid(cid)) or (getPlayerLevel(cid) < 80)) and not(getPlayerGroupId(cid) >= 2) then doCreatureSay(cid, "This potion can only be consumed by sorcerers and druids of level 80 or higher.", TALKTYPE_ORANGE_1) return TRUE end if(doTargetCombatMana(0, itemEx.uid, 150, 250, CONST_ME_MAGIC_BLUE) == LUA_ERROR) then return FALSE end doAddCondition(cid, exhaust) doCreatureSay(itemEx.uid, "Aaaah...", TALKTYPE_ORANGE_1) doRemoveItem(item.uid, 1) setPlayerStorageValue(cid, 14582, getPlayerStorageValue(cid, 14582) + 1) elseif(item.itemid == ultimateHealthPot) then if(not(isKnight(cid)) or (getPlayerLevel(cid) < 130)) and not(getPlayerGroupId(cid) >= 2) then doCreatureSay(cid, "This potion can only be consumed by knights of level 130 or higher.", TALKTYPE_ORANGE_1) return TRUE end if(doTargetCombatHealth(0, itemEx.uid, COMBAT_HEALING, 650, 850, CONST_ME_MAGIC_BLUE) == LUA_ERROR) then return FALSE end doAddCondition(cid, exhaust) doCreatureSay(itemEx.uid, "Aaaah...", TALKTYPE_ORANGE_1) doRemoveItem(item.uid, 1) setPlayerStorageValue(cid, 14582, getPlayerStorageValue(cid, 14582) + 1) end return TRUE end e isso pessoal.

Global 11/12x [v32]
 

 
 
- New Falcons
- New Asuras
- Warzone 4,5,6
- Exercise Training
- Raids 100%
- Monstros 100%
- Trainer Offline 100%
- Trainer Online 100%
- Taming system funcionando 100%;
- Database completa
- War System 100%
- Global MAP Full
- Store 100%
- Imbuement
- Prey System
- Entre outros sistemas.
 
Projeto no: GITHUB

Scan Vírus Total
 
IMAGES
 
Créditos:
 
 

Como faço para fazer o char se curar toda vez que upa lvl? '-' Os chars tão estão se curando quando upam quis dizer não estão se curando' certo?
 
vá em data/creaturescripts/scripts e crie um script com o nome hmup
function onAdvance(cid, skill, oldlevel, newlevel) if skill == SKILL__LEVEL then doCreatureAddHealth(cid, getCreatureMaxHealth(cid)) doCreatureAddMana(cid, getCreatureMaxMana(cid)) end return TRUE end ainda em data/creaturescripts/script abra o login.lua e adicione em baixo das linhas
registerCreatureEvent(cid, "hmup") em data/creaturescripts/creaturescripts.xml
<event type="advance" name="hmup" event="script" value="hmup.lua"/>