Ir para conteúdo

HenrikDiamond

Campones
 Perfil  Explorar Conteúdo

  • Total de itens

    86

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por HenrikDiamond

    Como Colocar Shiny Stone !

    em Lixeira Pública

    Postado · Editado por HenrikDiamond

    Tambem tem essa maneira galera:

    Abra o arquivo data/actions/scripts/evolution.lua

    Adicione esta linha nele

     


    [shiny] = {"Alakazam", "Onix", "Scyther", "Gengar", "Rhydon", "Umbreon", "Espeon", "Arcanine", "Dragonite", "Venomoth", "Venusaur", "Charizard", "Blastoise", "Tentacruel", "Dodrio", "Butterfree", "Rattata", "Raticate", "Pidgeot", "Electabuzz", "Raichu", "Electrode", "Voltorb", "Magneton", "Dratini", "Dragonair", "Ariados", "Abra", "Cubone", "Marowak", "Hitmonlee", "Hitmonchan", "Tangela", "Horsea", "Jynx", "Politoed", "Snorlax", "Gyarados", "Muk", "Krabby", "Kingler", "Magmar", "Shiny Magmar", "Shiny Electabuzz"},

     

    Abra seu actions.xml, procure por evolution, apos achar coloque o id 12415 na frente dos outros, ficando assim:


    <action itemid="11441-11454;12232;12242;12244;12417;12419;12401-12414;12415" event="script" value="evolution.lua" allowfaruse="1"/>

     

    12415 = Id da shiny stone

    Agora abra o configuration.lua, procure por poevo. apos achar desca um pouco e achara as stones com seus ids, adicione este la

    shiny = 12415
    12415= id da shiny stone

    Agora suba a pagina um pouco e coloque isso abaixo do ultimo pokemon que evolui:

     


    ["Scyther"] = {level = 1, evolution = "Scizor", count = 1, stoneid = 11448, stoneid2 = 12232},
    ["Onix"] = {level = 1, evolution = "Steelix", count = 1, stoneid = 11445, stoneid2 = 12232},
    ["Scyther"] = {level = 1, evolution = "Shiny Scyther", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Onix"] = {level = 1, evolution = "Shiny Onix", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Alakazam"] = {level = 1, evolution = "Shiny Alakazam", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Gengar"] = {level = 1, evolution = "Shiny Gengar", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Venusaur"] = {level = 1, evolution = "Shiny Venusaur", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Umbreon"] = {level = 1, evolution = "Shiny Umbreon", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Dragonite"] = {level = 1, evolution = "Shiny Dragonite", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Espeon"] = {level = 1, evolution = "Shiny Espeon", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Arcanine"] = {level = 1, evolution = "Shiny Arcanine", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Rhydon"] = {level = 1, evolution = "Shiny Rhydon", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Ninetales"] = {level = 1, evolution = "Shiny Ninetales", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Charizard"] = {level = 1, evolution = "Shiny Charizard", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Blastoise"] = {level = 1, evolution = "Shiny Blastoise", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Venomoth"] = {level = 1, evolution = "Shiny Venomoth", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Seadra"] = {level = 1, evolution = "Shiny Seadra", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Rattata"] = {level = 1, evolution = "Shiny Rattata", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Raticate"] = {level = 1, evolution = "Shiny Raticate", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Butterfree"] = {level = 1, evolution = "Shiny Butterfree", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Pidgeot"] = {level = 1, evolution = "Shiny Pidgeot", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Tentacool"] = {level = 1, evolution = "Shiny Tentacool", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Tentacruel"] = {level = 1, evolution = "Shiny Tentacruel", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Voltorb"] = {level = 1, evolution = "Shiny Voltorb", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Electrode"] = {level = 1, evolution = "Shiny Electrode", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Raichu"] = {level = 1, evolution = "Shiny Raichu", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Electabuzz"] = {level = 1, evolution = "Shiny Electabuzz", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Magneton"] = {level = 1, evolution = "Shiny Magneton", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Dratini"] = {level = 1, evolution = "Shiny Dratini", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Dragonair"] = {level = 1, evolution = "Shiny Dragonair", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Abra"] = {level = 1, evolution = "Shiny Abra", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Ariados"] = {level = 1, evolution = "Shiny Ariados", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Cubone"] = {level = 1, evolution = "Shiny Cubone", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Marowak"] = {level = 1, evolution = "Shiny Marowak", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Hitmonlee"] = {level = 1, evolution = "Shiny Hitmonlee", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Hitmonchan"] = {level = 1, evolution = "Shiny Hitmonchan", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Tangela"] = {level = 1, evolution = "Shiny Tangela", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Horsea"] = {level = 1, evolution = "Shiny Horsea", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Politoed"] = {level = 1, evolution = "Shiny Politoed", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Snorlax"] = {level = 1, evolution = "Shiny Snorlax", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Jynx"] = {level = 1, evolution = "Shiny Jynx", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Gyarados"] = {level = 1, evolution = "Shiny Gyarados", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Muk"] = {level = 1, evolution = "Shiny Muk", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Krabby"] = {level = 1, evolution = "Shiny Krabby", count = 1, stoneid = 12415, stoneid2 = 0},
    ["Kingler"] = {level = 1, evolution = "Shiny Kingler", count = 1, stoneid = 12415, stoneid2 = 0},

     

    Agora sua Shiny Stone nao e uma action, é uma pedra de evolução! "-"

    Se nao entendeu comente que eu explico alguma coisa.. Se ajudei REp +

     

     

    ---Agora é so ir trocando o id de 12415 pelo id da sua shiny stone

    [Resolvido] [PEDIDO] Npc que troca 3 itens por X item

    em Resolvidos

    Postado · Editado por HenrikDiamond

    Sim Zipter

     

     

     

     

    ---Erro no seu Npc xml homer

     

    [01/05/2014 14:11:15] [Error - Npc interface]
    [01/05/2014 14:11:15] (Unknown script file)
    [01/05/2014 14:11:15] Description:
    [01/05/2014 14:11:15] Stack size changed!
    [01/05/2014 14:11:21] [Warning - Npc::loadFromXml] Cannot load npc file (data/npc/granger.xml).
    [01/05/2014 14:11:21] Line: 8, Info: Input is not proper UTF-8, indicate encoding !
    [01/05/2014 14:11:21] Bytes: 0xE1 0x22 0x2F 0x3E

     

    Ta dando erro na mensagem me parece..

     

     

    <?xml version="1.0" encoding="UTF-8"?>

    <npc name="Granger" script="granger.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
    <health now="150" max="150"/>
    <look type="606" head="86" body="86" legs="86" feet="86" addons="3"/>

    <parameters>
    <parameter key="message_greet" value="Olá"/>
    </parameters>
    </npc>

     

     

    Baú que da pokemon como recompensa

    em Actions e Talkactions

    Postado

    Venho postar este script aqui, pois é muito útil e bem legal!
    é assim: Você pode colocar, por exemplo, 3 baus e o player pode escolher entre os pokemons!

    É tipo o script starter.lua, mas eu editei e com uma ajuda coloquei storage para nao pegar +de 1 vez!

     

    1º Passo: Crie um arquivo formato .lua na pasta data/actions e coloque isto!

     

     

     


    local starterpokes = {
    ["Beldum"] = {x = 723, y = 116, z = 9},
    ["Feebas"] = {x = 724, y = 116, z = 9},
    ["Aron"] = {x = 724, y = 116, z = 9}
    }
    local btype = "ultra"

    local storage = 344355 -- storage

    function onUse(cid, item, frompos, item2, topos)
    local pokemon = ""
    for a, b in pairs (starterpokes) do
    if isPosEqualPos(topos, b) then
    pokemon = a
    end
    end
    if pokemon == "" then return true end
    if getPlayerStorageValue(cid, storage) <= 0 then
    addPokeToPlayer(cid, pokemon, level, extrastr, nil, 0, btype, false) --alterado v2.9
    doPlayerSendTextMessage(cid, 27, "Parabéns!! Você ganhou seu pokemon!!")
    doPlayerSendTextMessage(cid, 27, "Agora entre no teleport para ir para saffron!!")
    doSendMagicEffect(getThingPos(cid), 29)
    doSendMagicEffect(getThingPos(cid), 27)
    doSendMagicEffect(getThingPos(cid), 29)
    setPlayerStorageValue(cid, storage, 1)
    else
    doPlayerSendCancel(cid, "Você já pegou seu Pokémon")
    end
    return TRUE
    end

     

     

     

    Configurando...

     

     

    Nessa parte: ["Beldum"] = {x = 723, y = 116, z = 9}, -- Voce coloca o nome do pokemon e a posição q o bau ou placa ou alavanca que ao dar use recebera o pokemon.

    Você pode remover pokemons ou adicionar mais, mais lembre-se:

    •todos os baus tem que ser iguais

    •não pode ser o mesmo bau que esta no starter.lua (id: 1740), pois ja esta registrado no actions.xml, mais se vc virar o bau e pegar o id dele virado, dá certo tambem.

     

    aqui em: local btype = "ultra" -- Coloque o tipo da ball em que o pokemon vira

     

    Aqui em :addPokeToPlayer(cid, pokemon, level, extrastr, nil, 0, btype, false) ---Ali em false, se vc trocar para 'true' , a pokebola vira como unique item. Como está em false nao virá!

     

    Ali em: local storage = 344355 -- storage --Se vc for criar mais quest com isso, troque a storage no outro script!

     

     

     

    2º Passo: Coloque isto no arquivo actions.xml:

     

    <action itemid="1748" event="script" value="nomedoarquivo.lua"/>

     

     

     

    Em '1748', é o id do item(no caso um bau), que ao ser dado USE, entregara o pokemon ao player. ---este mesmo item de bau tem que estar na posição la do script!

    Em 'nomedoarquivo.lua' é o nome que vc colocou no seu script!

     

    Espero ter ajudado e ate mais!

     

    [Resolvido] [PEDIDO] Npc que troca 3 itens por X item

    em Resolvidos

    Postado · Editado por HenrikDiamond

    Cara, ta sendo ao contrario ainda...

    o NPC tem q trocar as 3 penas (12149,12150,12151) pelo protection amulet (2200)

     

    esse ai troca o protection amulet por penas '-'

     

     

     

    ---E mesmo se eu editar o script, vai trocar as 3 penas por 3 protection amulets e eu quero so 1 em troca das 3!!

    [Resolvido] [PEDIDO] Npc que troca 3 itens por X item

    em Resolvidos

    Postado · Editado por HenrikDiamond

    Vou testar aqui ! ;)

     

     

    ---@Edit

     

    teste aqui e nao deu certo.

    O npc que você passou vende as penas.

    Quero um npc q troque as penas pelo item 2200!

     

    ---Edit 2 ¬¬

     

    Nem tinha comprado, e vi uma coisa.

     

    O script é o contrario do q eu quero.

    ele vende as penas pelo item 2200!

    Ainda n foi resolvido

    [Resolvido] [PEDIDO] Npc que troca 3 itens por X item

    em Resolvidos

    Postado

    Olá galera do xtibia, o titulo ja explica bem o meu pedido e é assim:

     

    Estou reconstruindo meu server pokezot, e quero que os players que tiverem as penas dos 3 lendarios poderao trocar por outro item para pegar a recompensa!

    --So quero o npc q troque os itens.

     

    IDS:

     

     

    Penas a serem trocadas:

    12149

    12150

    12151

    Item que será recebido em troca das penas:

    2200

     

     

     

    Espero que possam me ajudar vlw ;)

    [Resolvido] Problema ao adicionar sprite poketibia

    em Resolvidos

    Postado

    No seu configuration.lua, procure por flys

    e coloque isso la

    Adicione esta linha la

     

    ["Shiny Dragonite"] = {233, 2200},

     

    --Onde esta azul coloque a looktype do pokemon subtraindo 351... Exemplo: a looktype dele é 1500, ai vc subtrai 1500-351= 1549.. ai vc coloca o resultado la

     

    e adiciona ele tbm na tabela "specialabilities" tbm no configuration.lua na parte de fly.

    Se nao der certo avisa

    [DOWNLOAD] Server PokeZot

    em OTServer Alternativo (ATS)

    Postado · Editado por HenrikDiamond

     

     

    Como assim do pda ?,teu o seu post,em baixo tem Galaxy poke ot,uma foto de vc com bike,é essa sprite ?

    Galaxy PokeOT é o meu servidor atual cara. Estou colocando ele para divulgação!

     

    Ah sprite da bike do PokeZot,é a mesma que a do Galaxy PokeOt ?

     

    Não! outra que ja veio no client! Se quiser a sprite dessa bike, descompile o client otpokemon

    [Resolvido] Pedido - Não poder capturar lendarios!

    em Resolvidos

    Postado

    Gostaria que alguem fizesse uma alteração no meu catch.lua para colocar uma pequena lista, e os pokes q estiverem nessa lista nao será possivel capturar!

    Aki embaixo meu Catch.lua

     

     

     

     

    local ballcatch = { --id normal, id da ball shiy
    [2394] = {cr = 3, on = 24, off = 23, ball = {11826, 11737}, send = 47, typeee = "normal"}, --alterado v2.9 \/
    [2391] = {cr = 6, on = 198, off = 197, ball = {11832, 11740}, send = 48, typeee = "great"},
    [2393] = {cr = 10, on = 202, off = 201, ball = {11835, 11743}, send = 46, typeee = "super"},
    [2392] = {cr = 45, on = 200, off = 199, ball = {11829, 11746}, send = 49, typeee = "ultra"},
    [12617] = {cr = 3, on = 204, off = 203, ball = {10975, 12621}, send = 35, typeee = "saffari"},
    [12775] = {cr = 9999, on = 193, off = 23, ball = {12769, 12769}, send = 45, typeee = "master"},
    }

    function onUse(cid, item, frompos, item3, topos)

    local item2 = getTopCorpse(topos)
    if item2 == null then
    return true
    end

    if getItemAttribute(item2.uid, "catching") == 1 then
    return true
    end

    if getItemAttribute(item2.uid, "golden") and getItemAttribute(item2.uid, "golden") == 1 then
    return doPlayerSendCancel(cid, "You can't try to catch a pokemon in the Golden Arena!") --alterado v2.6
    end

    local name = string.lower(getItemNameById(item2.itemid)) --alterado v2.9 \/
    name = string.gsub(name, "fainted ", "")
    name = string.gsub(name, "defeated ", "")
    name = doCorrectPokemonName(name)
    local x = pokecatches[name]

    local storage = newpokedex[doCorrectPokemonName(name)].stoCatch --alterado v2.9 \/
    if getPlayerStorageValue(cid, storage) == -1 or not string.find(getPlayerStorageValue(cid, storage), ";") then
    setPlayerStorageValue(cid, storage, "normal = 0, great = 0, super = 0, ultra = 0, saffari = 0;")
    end

    if not x then return true end

    local owner = getItemAttribute(item2.uid, "corpseowner")

    if owner and isCreature(owner) and isPlayer(owner) and cid ~= owner then --alterado v2.5
    doPlayerSendCancel(cid, "You are not allowed to catch this pokemon.")
    return true
    end

    local newidd = isShinyName(name) and ballcatch[item.itemid].ball[2] or ballcatch[item.itemid].ball[1] --alterado v2.9
    local typeee = ballcatch[item.itemid].typeee

    local catchinfo = {}
    catchinfo.rate = ballcatch[item.itemid].cr
    catchinfo.catch = ballcatch[item.itemid].on
    catchinfo.fail = ballcatch[item.itemid].off
    catchinfo.newid = newidd
    catchinfo.name = doCorrectPokemonName(name)
    catchinfo.topos = topos
    catchinfo.chance = x.chance

    doSendDistanceShoot(getThingPos(cid), topos, ballcatch[item.itemid].send)
    doRemoveItem(item.uid, 1)

    local d = getDistanceBetween(getThingPos(cid), topos)

    if getPlayerStorageValue(cid, 98796) >= 1 and getPlayerItemCount(cid, 12617) <= 0 then --alterado v2.9
    setPlayerStorageValue(cid, 98796, -1)
    setPlayerStorageValue(cid, 98797, -1)
    doTeleportThing(cid, SafariOut, false)
    doSendMagicEffect(getThingPos(cid), 21)
    doPlayerSendTextMessage(cid, 27, "You spend all your 'saffari balls', good luck in the next time...")
    end

    addEvent(doSendPokeBall, d * 70 + 100 - (d * 14) , cid, catchinfo, false, false, typeee)
    addEvent(doSendMagicEffect, (d * 70 + 100 - (d * 14)) - 100, topos, 3)
    return true
    end

     

     

     

     

    [Encerrado] Pedido -- NPC duel que so pode batalhar uma vez com ele!

    em Tópicos Sem Resposta

    Postado

    Olá galera do Xtibia...

    Quero pedir um script de npc de duel comum, mas que so possa batalhar uma vez com ele, pois irei usá-lo para dar bike e masterballs...

    Eu tenho um script aki de npc duel, acho q é so editar...

     

     

     

    local focus = 0
    local max_distance = 8
    local talk_start = 0
    local conv = 0
    local fighting = false
    local challenger = 0
    local afk_limit_time = 30 -- seconds
    local afk_time = 0 -- don't change
    local battle_turn = 1 -- don't change
    local challenger_turn = 0 -- don't change
    local masterpos = {}
    local time_to_fight_again = 15 -- seconds, not ms (so 30 * 60 means 30 minutes)

    local can_walk = true -- true to make this npc walks randomly
    local max_distance = 5 -- maximum distance this npc can get far (sqms)
    local walk_delay = 7 -- every seconds make this npc walk

    local cooldown_table = {}

    local min_pokemons_to_battle = 1-- change to whatever you want
    local number_of_pokemons = 0 -- don't change

    local prizes = {
    [1] = {{itemid = 2393, count = 30}, {itemid = 2392, count = 20}},
    [2] = {{itemid = 2393, count = 40}, {itemid = 2392, count = 30}},
    [3] = {{itemid = 2393, count = 50}, {itemid = 2392, count = 40}},
    [4] = {{itemid = 2393, count = 60}, {itemid = 2392, count = 50}},
    [5] = {{itemid = 2393, count = 70}, {itemid = 2392, count = 60}},
    [6] = {{itemid = 2393, count = 80}, {itemid = 2392, count = 70}}}

    local pokemons = {
    {name = "Cloyster", level = 40, extralevel = 30, sex = SEX_MALE, nick = "Crusher", ball = "super"},
    {name = "Lapras", level = 49, extralevel = 15, sex = SEX_FEMALE, nick = "Laura", ball = "normal"},
    {name = "Electabuzz", level = 43, extralevel = 20, sex = SEX_MALE, nick = "Eletron", ball = "great"},
    {name = "Pinsir", level = 48, extralevel = 30, sex = SEX_MALE, nick = "Headcutter", ball = "normal"},
    {name = "Dragonair", level = 39, extralevel = 37, sex = SEX_FEMALE, nick = "Dragonix", ball = "ultra"},
    }

    local function doSummonGymPokemon(npc)
    local this = npc
    if not isCreature(this) then return true end
    if #getCreatureSummons(this) >= 1 or focus == 0 then return true end
    local it = pokemons[battle_turn]
    doSummonMonster(this, it.name)
    local summon = getCreatureSummons(this)[1]
    local balleffect = pokeballs["normal"].effect
    if it.ball and pokeballs[it.ball] then
    balleffect = pokeballs[it.ball].effect
    end
    doSendMagicEffect(getThingPos(summon), balleffect)
    setPlayerStorageValue(summon, 10000, balleffect)
    setPlayerStorageValue(summon, 10001, gobackmsgs[math.random(#gobackmsgs)].back:gsub("doka", it.nick ~= "" and it.nick or it.name))
    setPlayerStorageValue(summon, 1007, it.nick ~= "" and it.nick or it.name)
    doSetMonsterGym(summon, focus)
    local name = it.nick ~= "" and it.nick or getCreatureName(this).."s "..it.name
    setWildPokemonLevel(summon, it.level, getPokemonStatus(it.name, (it.extralevel + it.level)), name, 1.5)
    doCreatureSay(this, gobackmsgs[math.random(#gobackmsgs)].go:gsub("doka", getPlayerStorageValue(summon, 1007)), 1)
    fighting = true
    battle_turn = battle_turn + 1
    end

    local function doWinDuel(cid, npc)
    if not isCreature(cid) then return true end
    local this = npc
    local x = prizes[number_of_pokemons]
    for n = 1, #x do
    doPlayerAddItem(cid, x[n].itemid, x[n].count)
    end
    doCreatureSay(npc, "Congratulations! You won, here is your prize.", 1)
    cooldown_table[getCreatureName(cid)] = os.clock() + time_to_fight_again
    return true
    end

    function onCreatureSay(cid, type, msg)

    local msg = string.lower(msg)

    if focus == cid then
    talk_start = os.clock()
    end

    if msgcontains(msg, 'hi') and focus == 0 and getDistanceToCreature(cid) <= 4 then

    if cooldown_table[getCreatureName(cid)] and cooldown_table[getCreatureName(cid)] - os.clock() > 0 then
    selfSay("Hello "..getCreatureName(cid)..", I really enjoyed our last battle!")
    conv = 10
    else
    selfSay("Hello "..getCreatureName(cid)..", are you up to a duel? I can give prizes if you win!")
    conv = 1
    end

    focus = cid
    talk_start = os.clock()
    return true
    end

    if (isDuelMsg(msg) or isConfirmMsg(msg)) and (conv == 1 or conv == 10) and focus == cid then

    if conv == 10 then
    selfSay("We have just battled! Please wait for me to recover from out last battle!")
    focus = 0
    return true
    end

    if not hasPokemon(cid) then
    selfSay("You need pokemons to battle!")
    return true
    end

    selfSay("Ok, tell me how many pokemons will fight.")
    conv = 2

    return true
    end

    if conv == 2 and focus == cid then

    if not tonumber(msg) then
    selfSay("Tell me the number of pokemons that will battle.")
    return true
    elseif tonumber(msg) > #pokemons then
    selfSay("I have only "..#pokemons..", so the maximum is "..#pokemons.."!")
    return true
    elseif tonumber(msg) < min_pokemons_to_battle or tonumber(msg) < 1 then
    selfSay("It has to be more than "..min_pokemons_to_battle..".")
    return true
    else
    number_of_pokemons = tonumber(msg)
    selfSay("Ok, the first that defeats "..number_of_pokemons.." wins, let's start!")
    challenger = focus
    setPlayerStorageValue(cid, 990, 1)
    addEvent(doSummonGymPokemon, 850, getThis())
    conv = 3
    return true
    end

    return true
    end

    if isNegMsg(msg) and conv == 1 and focus == cid then

    focus = 0
    selfSay("It is better for you to refuse a battle against me!")

    return true
    end

    if msgcontains(msg, 'bye') and focus == cid then
    selfSay('Bye and do your best trainer!')
    setPlayerStorageValue(focus, 990, -1)
    focus = 0
    return true
    end
    end

    local afk_warning = false
    local change = false
    local walkdelay = 0

    function onThink()

    if not masterpos.x then
    masterpos = getThingPos(getThis())
    end

    if focus == 0 then
    selfTurn(2)
    fighting = false
    challenger = 0
    change = false
    challenger_turn = 0
    battle_turn = 1
    afk_time = 0
    afk_warning = false

    if #getCreatureSummons(getThis()) >= 1 then
    setPlayerStorageValue(getCreatureSummons(getThis())[1], 1006, 0)
    doCreatureAddHealth(getCreatureSummons(getThis())[1], -getCreatureMaxHealth(getCreatureSummons(getThis())[1]))
    end

    walkdelay = walkdelay - 0.5

    if walkdelay <= 0 then
    walkdelay = walk_delay
    local pos = getThingPos(getThis())
    local npos = {}
    for a = 0, 3 do
    if getDistanceBetween(getPosByDir(pos, a), masterpos) <= max_distance and canWalkOnPos(getPosByDir(pos, a), true, false, true, true, false) then
    table.insert(npos, getPosByDir(pos, a))
    end
    end

    if npos and #npos > 0 then
    doTeleportThing(getThis(), npos[math.random(#npos)])
    end
    end

    return true
    else

    if not isCreature(focus) then
    focus = 0
    return true
    end

    if fighting then

    talk_start = os.clock()

    if not isCreature(getCreatureTarget(getThis())) then
    if #getCreatureSummons(challenger) >= 1 then
    if getCreatureOutfit(getCreatureSummons(challenger)[1]).lookType ~= 2 then --alterado v2.6
    selfAttackCreature(getCreatureSummons(challenger)[1])
    challenger_turn = challenger_turn + 1
    afk_time = 0
    end
    else
    afk_time = afk_time + 0.5
    if change then
    change = false
    challenger_turn = challenger_turn + 1
    end
    end
    end

    if afk_time > afk_limit_time then
    setPlayerStorageValue(focus, 990, -1)
    focus = 0
    selfSay("I have waited too long, come back when you are ready!")
    return true
    end

    if not afk_warning and afk_time > afk_limit_time / 2 then
    selfSay("Where's your pokemon? Let's fight!")
    afk_warning = true
    end

    if #getCreatureSummons(getThis()) == 0 then
    if battle_turn > number_of_pokemons then
    addEvent(doWinDuel, 1000, focus, getThis())
    setPlayerStorageValue(focus, 990, -1)
    focus = 0
    return true
    end
    addEvent(doSummonGymPokemon, 1000, getThis())
    end

    if not hasPokemon(challenger) or challenger_turn > 6 or challenger_turn >= number_of_pokemons then
    selfSay("You lost our duel! Maybe some other time you'll defeat me.")
    setPlayerStorageValue(focus, 990, -1)
    focus = 0
    return true
    end

    end

    local npcpos = getThingPos(getThis())
    local focpos = getThingPos(focus)

    if npcpos.z ~= focpos.z then
    setPlayerStorageValue(focus, 990, -1)
    focus = 0
    selfSay("Bye then.")
    return true
    end

    if (os.clock() - talk_start) > 30 then
    selfSay("Good bye and keep training!")
    setPlayerStorageValue(focus, 990, -1)
    focus = 0
    end

    if getDistanceToCreature(focus) > max_distance then
    setPlayerStorageValue(focus, 990, -1)
    focus = 0
    return true
    end

    local dir = doRedirectDirection(getDirectionTo(npcpos, focpos))
    selfTurn(dir)
    end
    return true
    end

     

     

     

    Flws.. Até mais espero que ajudem

    [DOWNLOAD] Server PokeZot

    em OTServer Alternativo (ATS)

    Postado

    testei o server mano muito bom mais com muitos bug....

    BUGS>>>>

    corps nos lenda,

    Magias não tem uma balanceada

    balancear os poke...

    imagem quando passa um tempo buga é não aparece mais a foto de nem um poke...

    algumas quest não aparece teleporte...

    lenda com corpos trocados... Shiny registeel ta com corpo de outro poke é outros poke é etc...

    arrumei isto tudo que falei faça. outra versão so tem isto de bug

    melhores o cp saffron feio pra porra...

     

    fora isto que falei otima base...

     

     

    a mesmo add os outros poke... si vc for fazer outra versão...

    falta:

    zekrom, falta add fly em alguns poke lenda é tudo mais

    reshiram.

    heartran. falta varios lenda faz isto que teu server bomba aqui no xtibia mano... boa sorte si quiser ajuda por que eu peguei o server ontem ai ja add os poke é ageitei os bug das imagem é corps mo facil..... vc consegui Rep+ pra tu xD

    Pois é cara, falta algumas corpses mesmo pq eu fui adicionando pelas sprites todos os pokes.. E assim é muito mais complicado e demoradoo.. O bug das portraits é so colocar elas com immoble no dat editor do client

  • Quem Está Navegando   0 membros estão online

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