Líderes

Olá Membros do Xtibia. eu Kevick, estava visualizando alguns conteúdos do fórum e percebi que estava bastante parado. Muito de vocês que são ot-admins usam uma base bem famosa que seria a DarkXPoke (dxp). como todos já sabem nosso querido membro @KyoGron disponibilizou uma source adaptada para essa base mas não continuou resolvendo os problemas que foram encontrados. Resolvi continuar com a ideia dele e resolvi pequenas coisas na source como o StepDuration do creature.cpp que estava bugando o andar do player impossibilitando ter uma jogabilidade fluida mas em fim vamos parar de enrolação e vamos para o download! PS: quais quer "Sistemas" que necessitarem ser colocado na source comente que eu atualizarei. DOWNLOAD V2.5: DOWNLOAD V2.6: LOG DE ATUALIZAÇÃO: UTILITÁRIOS: SCAN: VIRUSTOTAL NÃO SE ESQUEÇA DE DEIXAR UM REP+ NO POST.

4Fun Server Versão: 9.1 Distro: Crystal Server 1.5 Mapa Base: Vários Foi um edit rápido, 2 dias. Juntei algumas partes de mapas desconhecidos e algo do Azeroth. 2 amigos (ociosos =D) me ajudaram a importar algumas quests e editar o resto. Me disseram que os Ots 9.1 estavam muito ruins, talvez este possa ajudar. 4 Cidades: -> Celestia -> Theos -> Valmun -> Sandrina Mudanças/Conteúdo: Principais Quests: Imagens: Sistema de Guerras pelo Castelo [Honor Castle] Upgrade & Slot System ACC GOD: 222222/password Se acha que ter um OtServ é só baixar, abrir e largar lá, ou ainda editar chars e equipamentos para você mesmo jogar e fazer o que quiser, garanto-lhe que não vai durar 2 dias. Crie eventos, interaja com os jogadores, faça torneios Pvp, marque datas para a Honor Castle, faça updates no mapa, crie monstros, hunts e quests, dê suporte e, o mais importante, mantenha o HELP aberto, sempre. IpChanger 9.1 - Sources - Scan Download 4Fun Server Completo - [MEDIAFIRE] Créditos: Otmind/Kantera, Mistocalana, Mock, Majesty, Bruno0, Crystal Server Team, TFS Team, Coruja e Vmspk. Este tópico recebeu destaque em nosso portal!

Reset_HP = 100000 -- quantia que será adicionada ao hpReset_Max = 100function onUse(cid, item, topos, item2, frompos)local myball = getPlayerSlotItem(cid, 8)local Resets = getItemAttribute(myball.uid, "Reset") or 0if Resets == Reset_Max thenreturn doPlayerSendCancel(cid, "Sorry, is not possible.")end if #getCreatureSummons(cid) >= 1 thenResets = Resets + 1local pokemon = getItemAttribute(myball.uid, "poke")local vit = pokes[pokemon].vitality + (Reset_HP * Resets)doSetItemAttribute(myball.uid, "Reset", Resets)doItemSetAttribute(myball.uid, "vitality", getItemAttribute(myball.uid, "vitality") + vit)setCreatureMaxHealth(getCreatureSummons(cid)[1], getCreatureMaxHealth(getCreatureSummons(cid)[1]) + Reset_HP)doRemoveItem(item.uid)doSendMagicEffect(getThingPos(item2.uid), 40)doPlayerSendTextMessage(cid, 27, "Congrulations, your "..pokemon..", as beem Reseted +1.")doPlayerSendTextMessage(cid, 27, "Now your "..pokemon.." have a Reset +"..Resets + Reset..".")doSendAnimatedText(getThingPos(item2.uid), "Reset!", 71)elsereturn doPlayerSendCancel(cid, "Only use in yours pokemons.")endreturn trueend

Reset_rate = 100000function onUse(cid, item, topos, item2, frompos)local myball = getPlayerSlotItem(cid, 8)local Reset = getItemAttribute(myball.uid, "Reset") or 0local Resets = 0if Reset == 50 thenreturn doPlayerSendCancel(cid, "Sorry, is not possible.")end if #getCreatureSummons(cid) >= 1 thenif getPlayerAccess(cid) == 6 thenResets = ( 10 )endResets = Resets + 1local pokemon = getItemAttribute(myball.uid, "poke")local vit = pokes[pokemon].vitality * Reset_rate * ResetsdoSetItemAttribute(myball.uid, "Reset", Reset + Resets)doItemSetAttribute(myball.uid, "vitality", getItemAttribute(myball.uid, "vitality") + vit)doRemoveItem(item.uid)doSendMagicEffect(getThingPos(item2.uid), 40)doPlayerSendTextMessage(cid, 27, "Congrulations, your "..pokemon..", as beem Reseted +1.")doPlayerSendTextMessage(cid, 27, "Now your "..pokemon.." have a Reset +"..Resets + Reset..".")doSendAnimatedText(getThingPos(item2.uid), "Reset!", 71)doPlayerSetVocation(cid,4)elsereturn doPlayerSendCancel(cid, "Only use in yours pokemons.")endreturn trueend

yep, pode ser.

.

Venho aqui depois de muitos pedidos postar as sources do YTC(2010). Não darei suporte nem explicarei duvidas sobre o codigo, lembrando que o codigo em si não está muito bom. Funciona com Delphi 2010, XE, XE2. E também, vim postar as sources do Client Flash da Cipsoft. Essa source é da epoca do lançamento mas deve servir para alguma coisa(como entediamento do dat, protocolo). Source YTC: http://www.mediafire.com/?tqq20gqott08i7i Source Flash Client: http://www.mediafire.com/?5zkz5upys44hbay Boa sorte Jovens padawans do Forum!