Ir para conteúdo

keilost

Membro
  • Registro em

  • Última visita

Tudo que keilost postou

  1. Anúncio Impróprio Membro banido
  2. keilost postou uma resposta no tópico em Suporte Tibia OTServer
    function onUse(cid, item, frompos, item2, topos) storage = 4191 storsol = 1203 if #getCreatureSummons(cid) > 1 then doPlayerSendCancel(cid,"Your Demonio is already summoned.") end if getPlayerStorageValue(cid,storsol) == 1 then local z = getCreatureSummons(cid) addEvent(setPlayerStorageValue,100,cid,storsol,-1) doPlayerSay(cid,"Back my summon!",TALKTYPE_ORANGE_1) doSendMagicEffect(getCreaturePosition(z), 2) doSendDistanceShoot(getCreaturePosition(z), getPlayerPosition(cid), 3) doRemoveCreature(z) end local summons = getCreatureSummons(cid) local pet = { ["Seguranca"] = {1,10000}, } for k,v in pairs(pet) do -- 1 if getPlayerStorageValue(cid,storsol) < 1 then if getPlayerLevel(cid) >= v[1] and getPlayerLevel(cid) < v[2] then -- 2 if (table.maxn(summons) < 1)then -- 3 x = doSummonCreature(k, getCreaturePosition(cid)) doConvinceCreature(cid, x) setPlayerStorageValue(cid,4194,1) setPlayerStorageValue(cid,storsol,1) doCreatureSay(cid, k ..", go!", TALKTYPE_ORANGE_1) doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 2) end end end end return true end
  3. keilost postou uma resposta no tópico em Tutoriais sobre Scripting
    Desculpa reviver o tópico, mas está faltando uma função: getPlayerLastLoginSaved(cid) -- retorna o ultimo lastlogin disponivel
  4. function getLastLogin(id) local result = db.getResult("SELECT `lastlogin` FROM `players` WHERE `id` = '"..id.."'") if result:getID() ~= -1 then return result:getDataInt("lastlogin") else return -1 end result:free() end Essa função serve para retornar o lastlogin do player.. Créditos: Keilost
  5. 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%
  6. keilost postou uma resposta no tópico em Suporte Tibia OTServer
    Então galera, eu to com dificuldades pra gerar o output.log do distro, para ver os erros que aparecem, mas infelizmente ele não está fazendo isso, e está tudo certo =( Alguém pode me ajudar? Minha config: -- Logs disableLuaErrors = false adminLogs = true displayPlayersLogging = true prefixChannelLogs = "" runFile = "run.log" outputLog = "output.log" truncateLogOnStartup = false logPlayersStatements = true
  7. keilost postou uma resposta no tópico em Suporte Tibia OTServer
    Isso é nas sources, e não é bug.
  8. versão do tfs incompativel com o servidor..
  9. tente dropar o item de bicho, ou /i Ice Rapier,1
  10. keilost postou uma resposta no tópico em Suporte Tibia OTServer
    Não é ataque DDOS, o banco mysql não perde conexão, ou mesmo o servidor volta após alguns segundos, e tambem chequei os ips e quantos pacotes.
  11. keilost postou uma resposta no tópico em Suporte Tibia OTServer
    Eu já não sei mais o que faço... O meu servidor está online, e derrepente todos os players são kikados, e para acessar ele vai certinho, mas chega na hora de apertar enter no character para entrar, ele fica carregando, e então tenho que reiniciar o servidor, o site fica carregando também e não entra.. Não tenho nenhuma pista do que pode ser, pois não aparece nada na distro, nem os players deslogam. Alguém pode me dar uma dica do que pode ser?
  12. keilost postou uma resposta no tópico em Suporte Tibia OTServer
    Sim, ela está como Vendedor.
  13. keilost postou uma resposta no tópico em Suporte Tibia OTServer
    Eu tenho um Gesior, do VitorWebMaster, e configurei certinho o pagseguro para realizar doações no servidor, e quando vou fazer a compra, aparece isso: Erro 165 - O VALOR do item 1 não foi informado. Alguém me ajuda?
  14. keilost postou uma resposta no tópico em Suporte Tibia OTServer
    Gostaria de saber como coloco o pagseguro no znote, e se alguem tiver o script, por favor me passe.
  15. Claro que é... Eu teria que mexer bastante coisa nos sources.. não é por lua
  16. Sim, tem como, mas queria alguém disposto a ajudar, para programador avançado não é nada dificil hehe...
  17. Eu não sabia rsrs. Eu estou começando em lua agora, to estudando bastante scripts essas coisas, aí aprendi a base da spell, como é realizada, e fui usando no seu script para corrigir rsrs.. Só procurar uns tutorias essas coisas, ou usar o spellmaker 2.0 que ele faz a spell pra você.
  18. 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
  19. keilost postou uma resposta no tópico em Suporte Tibia OTServer
    function onUse(cid, item, frompos, item2, topos) if item.uid == 13540 then queststatus = getAccountStorageValue(getPlayerAccountId(cid), 7275) if queststatus == 1 then doPlayerSendTextMessage(cid,22,"Você recebeu 2 Dias de VIP. ") doSendMagicEffect(getPlayerPosition(cid), math.random(28,30)) setAccountStorageValue(getPlayerAccountId(cid), 7275, 1) addVipDaysByAccount(getPlayerAccountId(cid), 2) else if queststatus == -1 then doPlayerSendTextMessage(cid,22,"Você já pegou sua recompensa.") end return 0 end return 1 end acho agora vai
  20. 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%
  21. 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.
  22. Bug já solucionado, era um problema no install.php. Topico já pode ser fechado.
  23. keilost postou uma resposta no tópico em Suporte Tibia OTServer
    function onUse(cid, item, frompos, item2, topos) if item.uid == 13540 then queststatus = getAccountStorageValue(getPlayerAccountId(cid), 7275) if queststatus == 1 then doPlayerSendTextMessage(cid,22,"Você recebeu 2 Dias de VIP. ") doSendMagicEffect(getPlayerPosition(cid), math.random(28,30)) setAccountStorageValue(getPlayerAccountId(cid), 7275, 1) addVipDaysByAccount(getPlayerAccountId(cid), 2) else doPlayerSendTextMessage(cid,22,"Você já pegou sua recompensa.") end return 0 end return 1 end

Informação Importante

Confirmação de Termo