Ir para conteúdo

fortation

Barão
  • Total de itens

    207
  • Registro em

  • Última visita

  • Dias Ganhos

    1

Tudo que fortation postou

  1. Se o Levi Abrisse a CDQ de Segunda a Sexta So pra Fazer a 2 Promotion eu Voltaria jogar eu era donate mais ele reseto e n devolveu os items ...
  2. Tipo eu queria limitar os resets Por Exemplo o Player so Podera Ter 5 Reset Depois do 5 reset ele nao pode mais resetar Script que eu uso. --[[ <(Advanced Reset System 2.0)> Autor: MarcelloMkez. Contato: (marcello_dirt@hotmail.com) Versão: 2.0 Testado em: 8.50 e 8.60 TFS: 0.3.6 and 0.4.0 Fórum: http://www.xtibia.com/forum/topic/142463-advanced-reset-system-20/ -=[Características]=- ~( Versão 2.0 )~ - Resets agora Armazenados na DataBase; (Sem Valor de Storage) - Instala o System e cria a Tabela de Resets com o comando "/installreset"; - Resets no Look do jogador ex: 22:10 You see Marcello [Reset 2] (Level 8). He is an elder druid.; - [sTAGES] para "Premium Account" e "Free Account"; ]] --=[Functions]=-- -- installReset()' [instala o Sistema.] -- tableResetInstall()' [Verifica Se o Sistema ja foi instaladao.] -- nowReseting()' [Verifica, retorna o erro ou reseta.] -- getPlayerReset(cid)' [Pega numero de resets do player.] -- checLevelStageReset(cid)' [Verifica o Level para Resetar.] -- newReset(cid)' [Verifica todas as Condições de Reset.] -- addValue(value)' [Adiciona numero de resets.] --=[Comandos de Jogadores]=-- -- "/installreset" -- Só será usado uma vez, para instalar o sistema. -- "!resetar" -- Para Resetar. function onSay(cid, words, param) if words =="!resetar" then --[ Condições de Reset ] -- local coNdConf = { needPz = true, -- Precisa estar em Pz pra resetar? [true, false] needPa = false, -- Precisa ser Premium Account Pra resetar? [true, false] withe = false, -- Players com Pk Withe podem resetar? [true, false] red = false, -- Players com Pk Red pode resetar? [true, false] battle = false, -- Players precisão estar sem battle pra resetar? [true, false] teleport = true, -- Teleportar Player para o templo após resetar? [true, false] look = false, -- Aparecer Resets no Look do Player? [true, false] pid = getPlayerGUID(cid), -- Não Mexer. --[ Configurações do Reset ] -- resetConf = { Level = 350, -- Level Necessário para Resetar. [Valor] backLvl = 8, -- Level que voltará após o Reset. [Valor] time = 5, -- Tempo para o Player deslogar ao resetar, em segundos. [Valor] }, } --[[>> STAGES <<]]-- x=true;X=true -- Não Mexer. local stage = {Abilitar = {x}, Desabilitar = {}, --<< Abilitar Stages?? >>-- [{x};{}] -- [RESETS] | [PREMMY] | [FREE] stage1= {resets= 4, premmy= 330, free= 350}, stage2= {resets= 9, premmy= 340, free= 355}, -- EXPLICANDO e Configurando stages. (Se estiver Abilitado [Abilitar = {x}]) stage3= {resets= 14, premmy= 355, free= 360}, -- resets = Número de resets para o Stage; stage4= {resets= 19, premmy= 360, free= 365}, -- premmy = Level necessário para Premium Accounts; stage5= {resets= 24, premmy= 370, free= 380}, -- free = Level necessário para Free Accounts; stage6= {resets= 29, premmy= 380, free= 390}, -- Coloque em Ordem... stage7= {resets= 35, premmy= 400, free= 410}, -- [OBS: MARQUE UM "X" PARA ABILITAR OU DESABILITAR OS STAGES] stage8= {resets= 40, premmy= 410, free= 440}, -- EX: para desabilitar mude: Abilitar = {}, Desabilitar = {x} stage9= {resets= 45, premmy= 450, free= 450}, stage10={resets= 50, premmy= 465, free= 465}, } --[[>> FIM STAGES <<]]-- --=[Pega Valor de Resets]=-- function getPlayerReset(cid) local qr = db.getResult("SELECT `reset` FROM `players` WHERE `id`= "..coNdConf.pid..";") rss = qr:getDataInt("reset", coNdConf.pid) if rss < 0 then rss = 0 end return rss end local success = " ~~ Sucesso! ~~ \nVocê tem agora "..(getPlayerReset(cid)+1).." resets. \nVocê será deslogado em "..coNdConf.resetConf.time.." segundos." ;err = doPlayerSendTextMessage local qrt = db.getResult("SELECT `reset` FROM `players` WHERE `id`= "..coNdConf.pid..";");rss_db = qrt:getDataInt("reset", coNdConf.pid) local lvl_query = "UPDATE `players` SET `level` = "..(coNdConf.resetConf.backLvl)..", `experience` = 0 WHERE `id`= " .. coNdConf.pid .. ";" local reset_query = "UPDATE `players` SET `reset` = "..(getPlayerReset(cid)+(1)).." WHERE `id`= " .. coNdConf.pid .. ";" local nolook_query = "UPDATE `players` SET `description` = '' WHERE `players`.`id`= " .. coNdConf.pid .. ";" local look_query = "UPDATE `players` SET `description` = ' [Reset "..(getPlayerReset(cid)+(1)).."]' WHERE `players`.`id`= " .. coNdConf.pid .. ";" --=[Reseta]=-- function addValue(value) if coNdConf.look == false then doRemoveCreature(cid) db.executeQuery(lvl_query);db.executeQuery(reset_query);db.executeQuery(nolook_query) else doRemoveCreature(cid) db.executeQuery(lvl_query);db.executeQuery(reset_query);db.executeQuery(look_query) return LUA_NO_ERROR end end function nowReseting() if (getPlayerLevel(cid) < coNdConf.resetConf.Level) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "- Level Necessário Para o Reset ["..coNdConf.resetConf.Level.."]. Faltam "..coNdConf.resetConf.Level-getPlayerLevel(cid).." level's para você Resetar. -") return true end if getPlayerLevel(cid) >= coNdConf.resetConf.Level and (coNdConf.teleport == false) then doPlayerPopupFYI(cid, success) addEvent(addValue, coNdConf.resetConf.time*1000, value) else doPlayerPopupFYI(cid, success) addEvent(doTeleportThing, coNdConf.resetConf.time*900, cid, getTownTemplePosition(getPlayerTown(cid))) addEvent(addValue, coNdConf.resetConf.time*1000, value) return true end end --[sTAGES Nao mexer em nada.]-- function checkLevelStageReset(cid) local stages = { {resets= stage.stage1.resets, premmy= stage.stage1.premmy, free= stage.stage1.free}, {resets= stage.stage2.resets, premmy= stage.stage2.premmy, free= stage.stage2.free}, {resets= stage.stage3.resets, premmy= stage.stage3.premmy, free= stage.stage3.free}, {resets= stage.stage4.resets, premmy= stage.stage4.premmy, free= stage.stage4.free}, {resets= stage.stage5.resets, premmy= stage.stage5.premmy, free= stage.stage5.free}, {resets= stage.stage6.resets, premmy= stage.stage6.premmy, free= stage.stage6.free}, {resets= stage.stage7.resets, premmy= stage.stage7.premmy, free= stage.stage7.free}, {resets= stage.stage8.resets, premmy= stage.stage8.premmy, free= stage.stage8.free}, {resets= stage.stage9.resets, premmy= stage.stage9.premmy, free= stage.stage9.free}, {resets=stage.stage10.resets, premmy=stage.stage10.premmy, free=stage.stage10.free}, } local resets = getPlayerReset(cid) for i, tab in ipairs(stages) do if resets <= tab.resets then coNdConf.resetConf.Level = isPremium(cid) and tab.premmy or tab.free break end end if (getPlayerLevel(cid) < coNdConf.resetConf.Level) then err(cid, MESSAGE_STATUS_CONSOLE_BLUE, "- Level Necessário Para o Reset ["..coNdConf.resetConf.Level.."]. Faltam "..coNdConf.resetConf.Level-getPlayerLevel(cid).." level's para você Resetar. -") return TRUE end if getPlayerLevel(cid) >= coNdConf.resetConf.Level and (coNdConf.teleport == false) then doPlayerPopupFYI(cid, success) addEvent(addValue, coNdConf.resetConf.time*1000, value) else doPlayerPopupFYI(cid, success) addEvent(addValue, coNdConf.resetConf.time*1000, value) addEvent(doTeleportThing, coNdConf.resetConf.time*900, cid, getTownTemplePosition(getPlayerTown(cid))) return true end end function newReset(cid) if(coNdConf.needPz == true) and (getTilePzInfo(getCreaturePosition(cid)) == LUA_ERROR) then err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa estar em Protection Zone Para Resetar. -") return TRUE end if(coNdConf.needPa == true) and not isPremium(cid) then err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa ser Premium Account para Resetar. -") return TRUE end if(coNdConf.withe == false) and (getCreatureSkullType(cid) == 3) then err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você não pode resetar em condições de PK Withe. -") return TRUE end if(coNdConf.red == false) and (getCreatureSkullType(cid) == 4) then err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você não pode resetar em condições de PK Red. -") return TRUE end if(coNdConf.battle == true) and (getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE) then err(cid,MESSAGE_STATUS_CONSOLE_BLUE,"- Você Precisa estar sem Battle para Resetar. -") return TRUE end local xy = {true,false} table.insert(stage.Abilitar, false) table.insert(stage.Desabilitar, false) if stage.Abilitar[1] == xy[1] and stage.Desabilitar[1] == xy[2] then checkLevelStageReset(cid) elseif stage.Abilitar[1] == xy[2] and stage.Desabilitar[1] == xy[1] then nowReseting() else doPlayerPopupFYI(cid, "LUA_ERROR; Configure corretamente o Sistema de STAGES!") end return true end function tableResetInstall() print(not rss_db and LUA_ERROR or "Tabela de Resets: Instalada ... [success] ") addEvent(newReset, 1000, cid) return false end if tableResetInstall() then end end --=[install System]=-- function installReset() if db.executeQuery("ALTER TABLE `players` ADD reset INT(11) NOT NULL DEFAULT 0;") then print("[MarcelloMkez] -= Advanced Reset System 2.0 por DataBase =- Instalado com sucesso!") return TRUE end print('[Advanced Reset System/MarcelloMkez] Não foi possível instalar o Sistema.') return FALSE end local tt = { "Preparando Instalação...", "Instalando: TableReset Db...", "Instalando: getPlayerReset()...", "Instalando: addValue()...", "Instalando: checkLevelStageReset()...", "Instalando: newReset() and nowReseting()...", "Finalizando Instalação...", "...", success = { "Iniciando...", "function: TableReset Db... [success]", "function: getPlayerReset()... [success]", "function: addValue(value)... [success]", "function: checkLevelStageReset()... [success]", "function: newReset() and nowReseting()... [success]", "Fim da Instalação. ", "by: ~~ MarcelloMkez ~~ \nContato: marcello_dirt@hotmail.com", inst = {"MarcelloMkez","Advanced Reset System 2.0 por DataBase" }, }, } if words == "/installreset" and getPlayerAccess(cid) >= 3 then function install() if installReset() then print(""..tt.success[7].."") doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE,""..tt.success[8].."") doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "["..tt.success.inst[1].."] -="..tt.success.inst[2].."=- Instalado com sucesso!") else print("["..tt.success.inst[1].."] FALHA NA INSTALAÇÃO! [O sistema ja foi instalado].") doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "["..tt.success.inst[1].."] FALHA NA INSTALAÇÃO! [O sistema ja foi instalado].") end return 1 end function concl(cid) local typetx = MESSAGE_STATUS_CONSOLE_BLUE print(""..tt.success[7].."") print(""..tt[8].."") doPlayerSendTextMessage(cid, typetx,""..tt.success[7].."") doPlayerSendTextMessage(cid, typetx,""..tt[8].."") addEvent(install, 1000,cid) end function finall(cid) local typetx = MESSAGE_STATUS_CONSOLE_BLUE print(""..tt.success[6].."") print(""..tt[7].."") doPlayerSendTextMessage(cid, typetx,""..tt.success[6].."") doPlayerSendTextMessage(cid, typetx,""..tt[7].."") addEvent(concl, 3000,cid) end function installDd(cid) local typetx = MESSAGE_STATUS_CONSOLE_BLUE print(""..tt.success[5].."") print(""..tt[6].."") doPlayerSendTextMessage(cid, typetx,""..tt.success[5].."") doPlayerSendTextMessage(cid, typetx,""..tt[6].."") addEvent(finall, 1000,cid) end function installCc(cid) local typetx = MESSAGE_STATUS_CONSOLE_BLUE print(""..tt.success[4].."") print(""..tt[5].."") doPlayerSendTextMessage(cid, typetx,""..tt.success[4].."") doPlayerSendTextMessage(cid, typetx,""..tt[5].."") addEvent(installDd, 1000,cid) end function installBb(cid) local typetx = MESSAGE_STATUS_CONSOLE_BLUE print(""..tt.success[3].."") print(""..tt[4].."") doPlayerSendTextMessage(cid, typetx,""..tt.success[3].."") doPlayerSendTextMessage(cid, typetx,""..tt[4].."") addEvent(installCc, 1000,cid) end function installAa(cid) local typetx = MESSAGE_STATUS_CONSOLE_BLUE print(""..tt.success[2].."") print(""..tt[3].."") doPlayerSendTextMessage(cid, typetx,""..tt.success[2].."") doPlayerSendTextMessage(cid, typetx,""..tt[3].."") addEvent(installBb, 1000,cid) end function toInstall() local typetx = MESSAGE_STATUS_CONSOLE_BLUE print(""..tt.success[1].."") print(""..tt[2].."") doPlayerSendTextMessage(cid, typetx,""..tt.success[1].."") doPlayerSendTextMessage(cid, typetx,""..tt[2].."") addEvent(installAa, 1000,cid) end function preparation() local typetx = MESSAGE_STATUS_CONSOLE_BLUE print(""..tt[1].."") doPlayerSendTextMessage(cid, typetx,""..tt[1].."") addEvent(toInstall, 3000,cid) end if preparation() then end end return 1 end --=[by: MarcelloMkez]=--
  3. # Novidades - A cada 1 hora nosso sistema Sorteia 50 Golds para todos os players online - NOVAS ASAS LEVEL 4 - Sistema de Gens - Eventos com GM's valendo Golds, nada de Box ou joias - Todos os rankings tem premiações em "Golds" para comprar itens fulls - Novo Char (Rage Fighter) 100% - Vários itens novos - Compre seus Itens em até 18x no cartão de credito - Suporte via Chat Online, Email ou Forum # São diversas novidades acesse nosso forum e fique por dentro de tudo # Cadastre-se e ganhe 30 dias de Vip Gold + 20.000 pontos para adicionar + 1 Kit level 380 + 1 Asa level 2 FULL Site: www.brfun.com.br/?350
  4. Muito Vazio Tenta utilizar Outras Paredes Essas Ai Estao Ficando Podre, Fica Dica Aew... !
  5. Agr Seu Problema é no Config.lua sqlType = "mysql" sqlHost = "localhost" sqlPort = 3306 sqlUser = "root" sqlPass = "Sua Senha" sqlDatabase = "Nome Da database que vc criou" sqlFile = "Nome da database.s3db" sqlKeepAlive = 0 mysqlReadTimeout = 10 mysqlWriteTimeout = 10 encryptionType = "sha1" <------ Nao Mude
  6. A unica coisa que eu quero ver se LORENCIA vai Ficar Igual a Do MU !
  7. QUERIA PEDIR AJUDA DE VCS PARA ME AJUDA A ARRUMAR ESSE ERROR QUE DEU NO MEU SERVER DERREPENTE POR CAUSA DESSE ERRO NEM UM PLAYER E NEM UM GOD E NEM EU POSSO LOGA NO SERVIDOR ! DOU 2 REP+ ! SS DO ERROR :
  8. é tipo qualquer vocation Tipo Assim Knight Vai Pra Promo 9 Sorcerer Vai pra promo 9 Druid Vai Pra Promo 9 Paladin Vai Pra Promo 9 Todos podem Virar a mesma promo !
  9. QUERIA UM SCRIPT ASSIM O PLAYER FAZ A QUEST AI ELE CLIKA NO BAU AI ELE GANHA UMA VOCATION E VOLTA PARA O LEVEL 8 ! E SE FOR POSSIVEL ELE VOLTA COM A MESMA MANA E LIFE DE QUANDO ELE CRIO O CHAR POR EXEMPLO 1500 DE LIFE !
  10. Explique qual é o error que aparece de preferencia uma imagem ou o erro !
  11. tem como arrumar seu refugia queria editar um mais quando tento entrar no server Sempre Da CONNECTION TIME OUT e nao da pra entrar entao se for algum erro me fale como Arruma ?
  12. Alguem Me Ajuda A Passar Meu Server 8.4 Para 8.60 ? se alguem poder me ajuda posta aew ! Dou Rep +
  13. Nessa onda de Subwat Decidi Editar Um Aki Rapidao ! VERSAO 8.60 De Novo No Server : ~Comando /ban ~Monster Bruxa do 71 ~Monster Satanas ~Monster The Demon Old ~Monster Druida Do Mal ~Retirado neve do mapa , reduzia velocidade do player no PvP. ~Itens vip e zoan no templo. ~Exiva + minimap. ( não testado ) ~Super vip arrumada e aperfeiçoada ! ~Comando /mute;/desmute ( Tutor + ) SS's : DOWNLOAD http://www.mediafire...toixd3qeulrb44s SCAN https://www.virustot...sis/1337708404/ . Créditos - EU Kamikaze PTBREC Subwat
  14. Fala Mais Sobre Ele Tipo Se Ele tem pokemons johto shiny se tem respawn de shiny !
  15. Nao funciona nem em spell's e talkations tenho esse spell mais se voce poderia modificar para akilo que eu pedi la em cima quando player fala local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_MANADRAIN) setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE) setCombatParam(combat, COMBAT_PARAM_TARGETCASTERORTOPMOST, 1) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0) setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, 6, 6, 2.5, 3) function onCastSpell(cid, var) return doCombat(cid, combat, var) end
  16. eu nao tenho nem um, eu queria um se for possivel !
  17. queria um script que conforme o player ganhar lvl ela vai aumentando tipo eu healo 1k no level 50 quando chego no level 75 eu healo 1.5k mais queria desse jeito LIFE Mana
  18. fortation

    Erro No Spell.xml

    ele nao esta localizando as vocaçoes do seu server Ex: <instant name="Blood Rage" words="utito tempo" lvl="60" mana="290" prem="1" aggressive="0" selftarget="1" exhaustion="1000" needlearn="0" event="script" value="support/blood rage.lua"> <vocation id="4"/> <vocation id="8"/> em azul as vocations que vao poder usar essa magia No Caso Knight !
  19. entre nesse topico e le http://www.xtibia.com/forum/topic/153789-pedidoservidor-global-87-sem-bugs/
  20. Eae Galera Do Xtibia Vou Postar um Server Dahorinha ! BOM NAO TINHA NADA PRA FAZER ENTAO DECIDI DA UMA EDITADINHA DE LEVE EM UM SERVER QUE EU TINHA AKI BOM VAMOS AO QUE INTERESSA ! SERVER : *Teleports: Dragons, Dragon Lords, Frost Dragons, Giant Spiders, Demons, Grim Reapers,Behemoths, Undead Dragons, Ghastly Dragons,Medusas, Bog Raiders,Hellfire Fighters,Serpent Spawns e muitos outros... *Sistema Vip: !buyvip[/b][/color][/center] [center][color=#4E565E][b]*Protocolo 8.60 *Comando Comprar Aol: !buyaol *Commando Comprar Bless: !bless *Sistema de Addons estilo Alissow Otserv(Npc troca os Addons por items, e outro Npc vende os Items Necessários). *Pits Of Inferno Original. *Anihhilator Edited. *Demon Oak Quest Original. *Inquisition Quest. (Reformulada) *Novas magias,novos monstros e muitas novidades. ENTRE OUTRAS COISAS ! SS's :
  21. NAO GOSTEI TODOS OS DESTRUCTIONS SAO TUDO AS MESMAS COISAS TEMPLO E AS VIPS NAO MUDAM NUNCA ALEM DE TER VARIOS ERROS E NEM UM SCRIPT NOVO !
  22. EU EXPLODIA TODAS AS ESCOLAS DA MINHA CIDADE AI NINGUEM IA MAIS ESTUDAR ! KKKKKKKKK
  23. fortation

    Vip Cave

    Foi mal mais foi mais ou menos assim que eu entendi agr faz um aew pra ele que nao estege com erros agr se ele quiser editar ele fala aki que eu edito so postei pra ele ver se é mais ou menos oque ele quer !
  24. fortation

    Vip Cave

    TEM ESSE AKI MAIS NAO SEI SE É OQUE VC QUER 1°Vá na pasta do ot data/talcktions/scripts crie um arquivo lua renomeie para flysystem.lua apague tudo dentro e coloque: Agr vá em data/talcktions/talcktions.xml e cole isso: <talkaction words="!fly" event="script" value="flysystem.lua"/> -------------Config ---------------- local lugar = { ["depot"] = {{x=129, y=53, z=6}, 1, 0}, (Lugar) (Cordenadas Do Local ) Espero Ter Ajudado
  • Quem Está Navegando   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.
×
×
  • Criar Novo...