keilost

Eu sou totalmente contra isso que você fez, se você comprou, ou mesmo assim de onde achou isso, não está certo!
A linguagem programação, não é que tem que ser "OPEN-SOURCE", é que quem fez trabalhou muito nisso, eu sou programador e entendo, esse Cast system foi programado como qualquer um sistema de Banco por exemplo, Supermercado, Programadores trabalham para vender seus sistemas, mas não para serem publicados.
TFS É Open-Source para todos, porém os sistemas "adicionais", é de uso propio da pessoa ou da vontade da pessoa ter isso, pagando para algum programador fazer o mesmo trabalho.
Até mais, boa sorte. 

Como funciona?
O meu código faz o seguinte, ele registra a quantidade de players online em tal hora no dia (configurável) em um bloco de notas..
 
Para que eu vou usar isso?
Ai vai da sua criatividade, eu mesmo uso para identificar quais são os horários de picos e também para saber se tem um crescimento de players ao passar dos dias.
 
Aqui vai um exemplo de como ele registra os players:
http://prntscr.com/2vb4zt
 
Vamos ao script:
 
Em globalevents.xml coloque essa tag:
<globalevent name="Monitor_Online" interval="60000" event="script" value="monitoronline.lua"/> Em interval se o seu tfs não for 0.4, coloque 60
 
Agora na pasta scripts crie um arquivo lua chamado monitoronline.lua e adicione isso dentro:
function onThink(interval, lastExecution)              local file = io.open("./monitoronline.txt", "a")     local hora = {"7:30","11:30","13:30","15:30","17:30","20:30","22:30"}          if table.find(hora, os.date("%H:%M")) then          file:write("\n Players Online: ".. #getPlayersOnline() .." \n ["..os.date("%x").."] ["..tostring(os.date("%X")):sub(1, 5).."]")     file:close()     end     return true end E pronto, seu sistema já vai estar funcionando, o arquivo de texto aparece na pasta do seu executável..
 
 
 
Eu sincronizei ele com minha página web, se quiserem o código em PHP me mande PM.
 
http://jogar.snowots...nitoramento.php
 
Créditos: Keilost - 100%

local combat1 = createCombatObject() setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_ICEDAMAGE) setCombatParam(combat1, COMBAT_PARAM_EFFECT, 43) setAttackFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -800, -1500, 52) local combat2 = createCombatObject() setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_EARTHDAMAGE) setCombatParam(combat2, COMBAT_PARAM_EFFECT, 46) setAttackFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, -1, -2, 45) local arr2 = { {0, 0, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 1}, {1, 0, 1} } local arr = { {0}, {1}, {1}, {1}, {1}, {1}, {3} } local err = createCombatArea(arr) local err2 = createCombatArea(arr2) setCombatArea(combat1, err) setCombatArea(combat2, err2) local function onCastSpell1(parameters) doCombat(parameters.cid, combat1, parameters.var) end local function onCastSpell2(parameters) doCombat(parameters.cid, combat2, parameters.var) end function onCastSpell(cid, var) local parameters = { cid = cid, var = var} addEvent(onCastSpell1, 1000, parameters) addEvent(onCastSpell2, 500, parameters) return doCombat(cid, combat, var) end eu tinha errado em um parâmetro, agora tá correto, testei e tá 100%

local combat1 = createCombatObject() setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_ICEDAMAGE) setCombatParam(combat1, COMBAT_PARAM_EFFECT, 43) setAttackFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -800, -1500, 52) local combat2 = createCombatObject() setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_EARTHDAMAGE) setCombatParam(combat2, COMBAT_PARAM_EFFECT, 46) setAttackFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, -1, -2, 45) local arr2 = { {0, 0, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 1}, {1, 0, 1} } local arr = { {0}, {1}, {1}, {1}, {1}, {1}, {3} } local err = createCombatArea(arr) local err2 = createCombatArea(arr2) setCombatArea(combat1, err) setCombatArea(combat2, err2) local function onCastSpell1(parameters) doCombat(parameters.cid, combat1, parameters.var) end local function onCastSpell2(parameters) doCombat(parameters.cid, combat2, parameters.var) end function onCastSpell(cid, var) local parameters = { cid = cid, var = var} addEvent(onCastSpell1, 1000, parameters) addEvent(onCastSpell2, 500, parameters) return true end 100% hehe

Não sei se era para sair isso, mas tive de readaptar o script inteiro..
local combat1 = createCombatObject() setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_ICEDAMAGE) setCombatParam(combat1, COMBAT_PARAM_EFFECT, 43) setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -800, -1500, 52) local combat2 = createCombatObject() setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_EARTHDAMAGE) setCombatParam(combat2, COMBAT_PARAM_EFFECT, 46) setCombatFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, - 1, - 2, 45) local arr2 = { {0, 0, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 1}, {1, 0, 1} } local arr = { {0}, {1}, {1}, {1}, {1}, {1}, {3} } local err = createCombatArea(arr) local err2 = createCombatArea(arr2) setCombatArea(combat1, err) setCombatArea(combat2, err2) local function onCastSpell1(parameters) doCombat(parameters.cid, combat1, parameters.var) end local function onCastSpell2(parameters) doCombat(parameters.cid, combat2, parameters.var) end function onCastSpell(cid, var) local parameters = { cid = cid, var = var} addEvent(onCastSpell1, 1000, parameters) addEvent(onCastSpell2, 500, parameters) return true end qualquer coisa, fala que eu arrumo.

Crie um arquivo lua em talkactions/scripts e renomeie para confirmar e coloque isso dentro
local storage = 6707 local delaytime = 120 local a = "data/logs/confirmação.txt" local f = io.open(a, "a+") if(param == '') then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Command param required.") return true end local exhaust = exhaustion.get(cid, storage) if(not exhaust) then exhaustion.set(cid, storage, delaytime) doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Sua confirmação foi enviada com sucesso!") f:write(""..getPlayerName(cid).." enviou uma confirmação " .. os.date("%d %B %Y - %X.", os.time()) .."\n"..param.." ].\n\n----------------------------------------------------------\n") f:close() else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, "Você deve esperar " .. exhaustion.get(cid, storage) .. " segundos para enviar uma confirmação.") end return TRUE end Em talkactions.xml adicione:
<talkaction log="no" words="/confirmar" event="script" value="confirmar.lua"/> Te ajudei?
 
Rep++

SPELLS/suport/magic wall rune
local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_ENERGY) setCombatParam(combat, COMBAT_PARAM_CREATEITEM, 1497) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, false) function onCastSpell(cid, var) local position = variantToPosition(var) if getTilePzInfo(position) then return false end return doCombat(cid, combat, var) end tenta ai

To achando que sua bliblioteca inteira esta errada, provavelmente...
 
Você tem conta premium na otland? Baixou de lá?
 
Ou pegou tudo pronto de algum fórum qualquer??

Mais uma pergunta, as escadas e bueiros funcionam corretamente??? Aquelas de thais?

deixa eu te passar as libs corretas desse teu OT. Só um segundo. Já posto aqui.
 
 
Puts, o pior é que eu nao achei a pasta lib, nem mesmo na otland.. =///
 
 
Ferrou. Não sei mais o que fazer para te ajudar. =/
 
Não sei mais o que pode ser, e não sei mais nem o que falar.... Tensoo...
 
 

Então a ultima opção possivel, abra o arquivo das suas soucers, chamado: luascript.cpp
 
E procura por este comando, com o CTRL + F
 
 
Veja se ele existe...
 
Att;