Ir para conteúdo

lazarocp

Barão
  • Total de itens

    236
  • Registro em

  • Última visita

  • Dias Ganhos

    3

lazarocp venceu a última vez em Setembro 28 2018

lazarocp had the most liked content!

Sobre lazarocp

Perfil

  • Gênero
    Masculino

Informações

  • Forma que conheci o xTibia
    Otservs
  • Sou
    Scripter

Últimos Visitantes

3666 visualizações

lazarocp's Achievements

  1. lazarocp

    PET SYSTEM!!! AJUDA!!

    local vocs_id = {3,7} function onUse(cid, item, frompos, item2, topos) if not isInArray(vocs_id,getPlayerVocation(cid)) then doPlayerSendCancel(cid,"Sua vocacao nao pode summonar esse pet.") doSendMagicEffect(getThingPos(cid),2) return false end if getTilePzInfo(getCreaturePosition(cid)) then doPlayerSendCancel(cid,"Esse monstro nao pode ser sumonado em protect zone!.") return TRUE end if #getCreatureSummons(cid) >= 1 then local pet = getCreatureSummons(cid)[1] doRemoveCreature(pet) return doPlayerSendCancel(cid,"Voce removeu seu pet!") end if (getPlayerStorageValue(cid, 11548) >= os.time()) then doPlayerSendTextMessage(cid, 6,"Voce so pode sumonar seu pet novamente em " .. (getPlayerStorageValue(cid, 11548)-os.time()+(0)) .. " segundos.") return true end storage = 11548 if getPlayerStorageValue(cid,storsol) == 1 then local z = getCreatureSummons(cid)[1] doSendMagicEffect(getCreaturePosition(z), 2) doSendDistanceShoot(getCreaturePosition(z), getPlayerPosition(cid), 3) return true end local summons = getCreatureSummons(cid) local pet = { ["Wolf lvl 1"] = {1,150}, ["Wolf lvl 2"] = {151,250}, ["Wolf lvl 3"] = {251,350}, ["Wolf lvl 4"] = {351,450}, ["Wolf lvl 5"] = {451,550}, ["Wolf lvl 6"] = {551,650}, ["Wolf lvl 7"] = {651,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,11548,os.time()+30) doCreatureSay(cid, k ..", go!", TALKTYPE_ORANGE_1) doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 2) end end end end return true end Tenta assim.
  2. Você tem que colocar a "marca de água" na frente da porta não em cima dela.
  3. Na source. Mas pelo visto é PDA.
  4. Você pode usar essa: creature:getFollowCreature()
  5. kkk desculpe fiz na pressa. @GniusP Marca melhor resposta. @Jair Kevick Resolvido
  6. local EFFECTS = { --[OutfitID] = {Effect} ["Magmar"] = 35, ["Jynx"] = 17, --alterado v1.5 ["Shiny Jynx"] = 17, ["Piloswine"] = 205, --alterado v1.8 ["Swinub"] = 205, } function onUse(cid, item, frompos, item2, topos) if getPlayerStorageValue(cid, 54275) == 1 then -- doPlayerSendCancel(cid, "mensagem") return true end sendAllPokemonsBarPoke(cid) if exhaustion.get(cid, 6666) and exhaustion.get(cid, 6666) > 0 then return true end if getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 17001) >= 1 or getPlayerStorageValue(cid, 63215) >= 1 or getPlayerStorageValue(cid, 75846) >= 1 or getPlayerStorageValue(cid, 5700) >= 1 then --alterado v1.9 << return true end local ballName = getItemAttribute(item.uid, "poke") local btype = getPokeballType(item.itemid) local usando = pokeballs[btype].use local effect = pokeballs[btype].effect if not effect then effect = 21 end unLock(item.uid) --alterado v1.8 if item.itemid == usando then if getPlayerStorageValue(cid, 990) == 1 then -- GYM doPlayerSendCancel(cid, "You can't return your pokemon during gym battles.") return true end if #getCreatureSummons(cid) > 1 and getPlayerStorageValue(cid, 212124) <= 0 then --alterado v1.6 if getPlayerStorageValue(cid, 637501) == -2 or getPlayerStorageValue(cid, 637501) >= 1 then BackTeam(cid) end end if #getCreatureSummons(cid) == 2 and getPlayerStorageValue(cid, 212124) >= 1 then doPlayerSendCancel(cid, "You can't do that while is controling a mind") return true --alterado v1.5 end if #getCreatureSummons(cid) <= 0 then if isInArray(pokeballs[btype].all, item.itemid) then doTransformItem(item.uid, pokeballs[btype].off) doItemSetAttribute(item.uid, "hp", 0) doPlayerSendCancel(cid, "This pokemon is fainted.") return true end end local cd = getCD(item.uid, "blink", 30) if cd > 0 then setCD(item.uid, "blink", 0) end local z = getCreatureSummons(cid)[1] if getCreatureCondition(z, CONDITION_INVISIBLE) and not isGhostPokemon(z) then return true end doReturnPokemon(cid, z, item, effect) elseif item.itemid == pokeballs[btype].on then if item.uid ~= getPlayerSlotItem(cid, CONST_SLOT_FEET).uid then doPlayerSendCancel(cid, "You must put your pokeball in the correct place!") return TRUE end local thishp = getItemAttribute(item.uid, "hp") if getItemAttribute(item.uid, "hp") == 0 then if isInArray(pokeballs[btype].all, item.itemid) then doTransformItem(item.uid, pokeballs[btype].off) doItemSetAttribute(item.uid, "hp", 0) doPlayerSendCancel(cid, "This pokemon is fainted.") return true end end local pokemon = getItemAttribute(item.uid, "poke") if not pokes[pokemon] then return true end local x = pokes[pokemon] local boost = getItemAttribute(item.uid, "boost") or 0 if getPlayerLevel(cid) < (x.level) then doPlayerSendCancel(cid, "You need level "..(x.level).." to use this pokemon.") return true end local pk = getCreatureSummons(cid)[1] doSummonMonster(cid, pokemon) doItemSetAttribute(item.uid, "pokeballusada", 0) local pk = getCreatureSummons(cid)[1] if not isCreature(pk) then return true end if getCreatureName(pk) == "Ditto" or getCreatureName(pk) == "Shiny Ditto" then --edited local left = getItemAttribute(item.uid, "transLeft") local name = getItemAttribute(item.uid, "transName") if left and left > 0 then setPlayerStorageValue(pk, 1010, name) doSetCreatureOutfit(pk, {lookType = getItemAttribute(item.uid, "transOutfit")}, -1) addEvent(deTransform, left * 1000, pk, getItemAttribute(item.uid, "transTurn")) doItemSetAttribute(item.uid, "transBegin", os.clock()) else setPlayerStorageValue(pk, 1010, getCreatureName(pk) == "Ditto" and "Ditto" or "Shiny Ditto") --edited end end if isGhostPokemon(pk) then doTeleportThing(pk, getPosByDir(getThingPos(cid), math.random(0, 7)), false) end doCreatureSetLookDir(pk, 2) doCreatureSetNick(pk, nick) adjustStatus(pk, item.uid, true, true, true) doAddPokemonInOwnList(cid, pokemon) doTransformItem(item.uid, item.itemid+1) local pokename = getPokeName(pk) --alterado v1.7 local mgo = gobackmsgs[math.random(1, #gobackmsgs)].go:gsub("doka", pokename) local mgoen = gobackmsgsen[math.random(1, #gobackmsgsen)].go:gsub("doka", pokename) local mgoes = gobackmsgses[math.random(1, #gobackmsgses)].go:gsub("doka", pokename) if getPlayerLanguage(cid) == 2 then doCreatureSay(cid, mgoen, 19) end if getPlayerLanguage(cid) == 0 then doCreatureSay(cid, mgo, 19) end if getPlayerLanguage(cid) == 1 then doCreatureSay(cid, mgoes, 19) end -- doItemSetAttribute(item.uid, "gender", math.random(3, 4)) doSendMagicEffect(getCreaturePosition(pk), effect) if useOTClient then doPlayerSendCancel(cid, '12//,show') --alterado v1.7 end local pk = getCreatureSummons(cid)[1] local pb = getPlayerSlotItem(cid, 8).uid local look = getItemAttribute(pb,"addon") if not getItemAttribute(pb,"addon") then doSetItemAttribute(pb,"addon",0) end if getItemAttribute(pb,"addon") > 0 then doSetCreatureOutfit(pk, {lookType = look}, -1) end local pk = getCreatureSummons(cid)[1] local pb = getPlayerSlotItem(cid, 8).uid local look = getItemAttribute(pb,"addon") if not look then doSetItemAttribute(pb,"addon",0) return false end if look > 0 then doSetCreatureOutfit(pk, {lookType = look}, -1) return true end else doPlayerSendCancel(cid, "This pokemon is fainted.") end if useKpdoDlls then doUpdateMoves(cid) end return true end
  7. Tenta assim. local combat = Combat() combat:setParameter(COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) combat:setParameter(COMBAT_PARAM_BLOCKARMOR, true) combat:setParameter(COMBAT_PARAM_BLOCKSHIELD, true) combat:setFormula(COMBAT_FORMULA_SKILL, 0, 0, 1, 0) function onUseWeapon(player, variant) local creature = player:getTarget() creature:say('Cure me irmaos!', TALKTYPE_MONSTER_SAY) return combat:execute(player, variant) end
  8. https://www.dropbox.com/s/rd1gajc918m3oam/Sources Poketibia Erondino Site v15.rar?dl=0 Bom proveito.
  9. Eu tenho , vou upar e mando aqui ! Guardo um monte de servs antigos kkk. Client : https://www.dropbox.com/s/m3g7ylliltdftkt/Poketibia Erondino Site v15 client.rar?dl=0 Server : https://www.dropbox.com/s/b8y4kkna4lngvt8/Poketibia Erondino Site v15.rar?dl=0
  10. O Correto seria HM kkk , Descreva melhor o seu pedido para que tenha mais chances de ser atendido , cite a versão do seu servidor por exemplo.
  11. function onStepIn(cid, item, position, fromPosition) if isPlayer(cid)then cid:teleportTo(fromPosition, true) cid:getPosition():sendMagicEffect(EFEITOAQUI) end end
  12. Tenta usar esse cliente aqui , já está com o Ip local não precisa usar o ipchanger. Tibialocal.zip
  • Quem Está Navegando   0 membros estão online

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