Vinc

o nome do bixo é protector mesmo,ou isso é so o nome pra sumona?

acho que é porque é 8.40,no 8.60 tanto faz dois jeitos repotado como resolvido para que movam para area de pedidos atendidos

editado tinha uma aspas(") a mais function onTargetTile(cid, position) position.stackpos = 255 doConvinceCreature(cid, doCreateMonster("protector", position, false)) doSendMagicEffect(position, CONST_ME_MAGIC_BLUE) return true end local arr = { {0, 0, 0}, {0, 2, 0}, {0, 1, 0}, } local removeTime = 30.0 --time to remove the clones local function removeCreatures(cid, creature) if isCreature(creature) == TRUE then doRemoveCreature(creature) end end function onTargetTile(cid, pos) local creature = doSummonCreature("Protector", pos) doCreatureAddMana(cid, -1500) doConvinceCreature(cid, creature) addEvent(removeCreatures, removeTime * 3000, cid, creature) return TRUE end local area, combat = createCombatArea(arr), createCombatObject() setCombatArea(combat, area) setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE) setCombatCallback(combat, CALLBACK_PARAM_TARGETTILE, "onTargetTile") function onCastSpell(cid, var) m = {} s = getCreatureSummons(cid) for k = 1 , #s do table.insert(m, getCreatureName(s[k])) end if table.find(m, "protector" ) then doPlayerSendCancel(cid, "Você já fez seu Cyber Protector.") return false else return doCombat(cid, combat, var) end end

printo algum erro no comsole? de qualquer jeito temta assim function onTargetTile(cid, position) position.stackpos = 255 doConvinceCreature(cid, doCreateMonster("protector", position, false)) doSendMagicEffect(position, CONST_ME_MAGIC_BLUE) return true end local arr = { {0, 0, 0}, {0, 2, 0}, {0, 1, 0}, } local removeTime = 30.0 --time to remove the clones local function removeCreatures(cid, creature) if isCreature(creature) == TRUE then doRemoveCreature(creature) end end function onTargetTile(cid, pos) local creature = doSummonCreature("Protector", pos) doCreatureAddMana(cid, -1500) doConvinceCreature(cid, creature) addEvent(removeCreatures, removeTime * 3000, cid, creature) return TRUE end local area, combat = createCombatArea(arr), createCombatObject() setCombatArea(combat, area) setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE) setCombatCallback(combat, CALLBACK_PARAM_TARGETTILE, "onTargetTile") function onCastSpell(cid, var) m = {} s = getCreatureSummons(cid) for k = 1 , #s do table.insert(m, getCreatureName(s[k]) end if table.find(m, ""protector" ) then doPlayerSendCancel(cid, "Você já fez seu Cyber Protector.") return false else return doCombat(cid, combat, var) end end

bom n sei se funfa em 8.4 mas tenta ae crie um aruivo lua, nomeio para changecolor.lua e coloque isto dentro function onStepIn(cid, item, position, fromPosition) doTransformItem(item.uid, (ID DO ITEM QUE VIRA ao pisar)) return true end function onStepOut(cid, item, position, fromPosition) doTransformItem(item.uid, (ID DO ITEM origial)) --id do item que era antes de pisar return true end comfigure va em moveevemts.xml e coloque esta tag <movevent type="StepIn" itemid="id do item original" event="script" value="changecolor.lua"/> <movevent type="StepOut" itemid="id do item que vria ao pisar" event="script" value="changecolor.lua"/>

se sabe como ponhe a tag né,se era scripter. ta ae(n testei) sto = 65656 --storage function onUse(cid, item) if getPlayerStorageValue(cid,sto) <= 0 then doPlayerAddExp(cid, getExperienceForLevel(getPlayerLevel(cid)+1)) setPlayerStorageValue(cid, sto, 1) doRemoveItem(item.uid) return TRUE else doPlayerSendCancel(cid, "este item so pode ser usado uma ves") -- mesagem se temta usa denovo return False end end

@up se quise pode até fase o mewtwo evolui pra ratata sauhsuhsahusahasuhu obs:nem sei que poke é milotic

tenta assim local stor, limit = 7575, 5 --storage, limit to add. local allow_container = false --empty! not looted with items, atleast for now. function onSay(cid, words, param) if param == "" then doPlayerSendCalcel(cid, esse comando presisa de parametros) return FALSE end local expl = param:explode(':') local action, rst = expl[1], expl[2] if (action:lower() == 'check') then local infos, list = getPlayerStorageValue(cid, stor), {} if (infos ~= -1) then list = tostring(infos):explode(',') end local txt = 'Autoloot List:\n' if (#list > 0) then for k, id in ipairs(list) do id = id:gsub('_', '') if tonumber(id) then txt = txt .. getItemNameById(tonumber(id)) .. ((k < #list) and '\n' or '') end end else txt = 'Empty' end doPlayerPopupFYI(cid, txt) elseif (action:lower() == 'add') then local infos, list = getPlayerStorageValue(cid, stor), {} if (infos ~= -1) then list = tostring(infos):gsub('_', ''):explode(',') end if (#list >= limit) then return doPlayerSendCancel(cid, 'You already have ' .. limit .. ' autolooting items.') end local item = tonumber(rst) if not item then item = getItemIdByName(rst, false) if not item then return doPlayerSendCancel(cid, 'not valid item.') end end if not allow_container and isItemContainer(item) then return doPlayerSendCancel(cid, 'this item can not be autolooted.') end local attrs = getItemInfo(item) if not attrs then return doPlayerSendCancel(cid, 'not valid item.') elseif not attrs.movable or not attrs.pickupable then return doPlayerSendCancel(cid, 'this item can not be autolooted.') end if isInArray(list, item) then return doPlayerSendCancel(cid, 'already added.') end table.insert(list, tostring(item)) local new = '' for v, id in ipairs(list) do new = new .. '_' .. id:gsub('_' ,'') .. ((v < #list) and ',' or '') end doPlayerSetStorageValue(cid, stor, tostring(new)) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'Item >>' .. getItemNameById(item) .. '<< has been added to the autoloot list.') elseif (action:lower() == 'remove') then local infos, list = getPlayerStorageValue(cid, stor), {} if (infos ~= -1) then list = tostring(infos):gsub('_', ''):explode(',') end if (#list == 0) then return doPlayerSendCancel(cid, 'You dont have any item added.') end if (#list >= limit) then return doPlayerSendCancel(cid, 'You already have ' .. limit .. ' autolooting items.') end local item = tonumber(rst) if not item then item = getItemIdByName(rst, false) if not item then return doPlayerSendCancel(cid, 'not valid item.') end end if not isInArray(list, item) then return doPlayerSendCancel(cid, 'This item is not in the list.') end local new = '' for v, id in ipairs(list) do if (tonumber(id) ~= item) then new = new .. '_' .. id:gsub('_' ,'') .. ((v < #list) and ',' or '') end end doPlayerSetStorageValue(cid, stor, tostring(new)) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'Item >>' .. getItemNameById(item) .. '<< removed from the autoloot list.') end return true end

tenta assim function onTargetTile(cid, position) position.stackpos = 255 doConvinceCreature(cid, doCreateMonster("protector", position, false)) doSendMagicEffect(position, CONST_ME_MAGIC_BLUE) return true end local arr = { {0, 0, 0}, {0, 2, 0}, {0, 1, 0}, } local removeTime = 30.0 --time to remove the clones local function removeCreatures(cid, creature) if isCreature(creature) == TRUE then doRemoveCreature(creature) end end function onTargetTile(cid, pos) local creature = doSummonCreature("Protector", pos) doCreatureAddMana(cid, -1500) doConvinceCreature(cid, creature) addEvent(removeCreatures, removeTime * 3000, cid, creature) return TRUE end local area, combat = createCombatArea(arr), createCombatObject() setCombatArea(combat, area) setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE) setCombatCallback(combat, CALLBACK_PARAM_TARGETTILE, "onTargetTile") function onCastSpell(cid, var) m = {} s = getCreatureSummons(cid) for k = 1 , #s do table.insert(m, getCreatureName(s[k]) end if table.find(m, ""protector" ) then doPlayerSendCancel(cid, "Você já fez seu Cyber Protector.") return false end return doCombat(cid, combat, var) end

acho que isso deve funciona function onSay(cid, words, param, itemEx, params) local summons = getCreatureSummons(cid) if words == "!petback" then for k = 1, #summons do doRemoveCreature(summons[k]) end return True end local pet = { ["Pet Verde"] = {100,400}, ["Pet Azul"] = {401,700}, ["Pet Vermelho"] = {701,9999} }for k,v in pairs(pet) do -- 1 if getPlayerLevel(cid) >= v[1] and getPlayerLevel(cid) < v[2] then -- 2 if getPlayerStorageValue(cid, 78552) == 1 then -- 3 if (table.maxn(summons) < 1)then -- 4 if getTilePzInfo(getCreaturePosition(cid)) == false then --5 x = doSummonCreature(k, getCreaturePosition(cid)) doConvinceCreature(cid, x) doCreatureSay(cid, k ..", go!", 1)doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 2) else doPlayerSendCancel(cid,"Você não pode sumonar seu Pet em Pz.") return true end -- 5 else doPlayerSendCancel(cid,"Você só pode sumonar 1 Pet.") return true end -- 4 else doPlayerSendCancel(cid,"Você não tem um Pet.") doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, "Você não tem um Pet.") end -- 3 else doPlayerSendCancel(cid,"Pet System.") end -- 2 end -- 1 return true end

seu serve ja ta abreto(me refiro se ja abriu alguma ves)? se n tiver posto online nehuma ves é de boa é so troca uma negocio no npc que vende ad soft normal e no moveevents e pronto, mas se vc ja tive aberto vai te que fase um script pra troca as soft bots de todo mundo que ja tem se não elas vai se infinitas tbm ou passa o script que entraga os item comprados no site e eu faso uma gambiarra pra elas nuca acabarem(coloco "<attribute key="decayTo" value="2640" />" dai quando ela acaba ela vira ela mesma)

tem que ve se n ta faltando no cliente usa o god e vai testando as looktype apartir do 250

junta os script que tem nele... bom vai te que fase umas adptações,mais é diboa caso tenha noção de script

passa o script das soft e do npc que vai vende a vip soft

use uma aid(action id) em uma, na outra sem aid(action id)

bom pelo que eu vi o script do zmovir n dexa ivunerave,então vo posta o meu va em creaturescript/script crie um arquivo lua renomeio para imoratl.lua e cole isto dentro ---config storage = 757575 --caso formuda o storage mude na talkaction tbm st = 76765 --storage de time players = true --ivuneravel a attacks de players true or false creature = true --ivurenavel a attack de monstros true or false function onStatsChange(cid, attacker, type, combat, value) if getPlayerStorageValue(cid, storage) == 1 or (getPlayerStorageValue(cid, storage) == 2 and getPlayerStorageValue(cid, st) >= os.time then if type == STATSCHANGE_HEALTHLOSS then if players == true and isPlayer(attacker) then return false end if creature == true and not isPlayer(attacker) then return false end else return true end end end feche, abra login.lua e coloque antes do ultimo end registerCreatureEvent(cid, "imortal") va em creaturescript.xml e coloque esta tag <event type="statschange" name="imortal" event="script" value="imortal.lua"/> agora vá em talkaction/script crie um arquivo lua nomeio imortal.lua e cole isto dentro(confugure comforme o que se quiser) se n funcionar ou quiser alguma alteração é so fala --edit-- post avia bugado,se copio antes,copie novamente

cara n seria melhor usar onStepIn e colocar na tag from 1 to (id do ultimo item)?dai qualquer item que ele pisase ia executa,e não ia pesa tanto(isso pode causa leg,muitos addeventes num mesmo player da um lag nervoso),esse vai executa muitas coisas pra checa mesmo sem anda

quando sai ele n tinha nhenhuma função pra chega se tinha o item,so uma pra checa se tinha o storage que o player ganha quando entra.. tanto que o o demonb comcordo que ta desgradavel epero que corrija isso mals por ser meio rude,mais é meu jeito mesmo,nada contra tu

é so procura aki no xtibia,use o "pesquisar" la emcima e coloque na opção "fórum" e coloque "pet system" e ponhe pra pocura

se n tive onKill usa onDeath

eu tenho varias ideias locas pra fase mas n tenhu equipe nem host,e n quero usa-las no servidor de outra pessoa(afinal são minhas ideias),reamente n da pra deixa sus ideias systemas n mão de qualquer um,você pode ser hipado,hackiado,traido,entre outros. tenhu umas ideias de script novos que ajudariam muitas pessoas e que n iria usa, mas eles estavam quase prontos,dai tive que formata o pc,dai passei pro laptop da minha mãe as coisa e ate agora n pegei de volta(fase deis do comomeço denovo quebra) tinha ate uma ideia pra resolve o problema dos server high exp,de o hp e mana buga, com um sistema bem simples(ainda sem nenhum teste) sistemas como auto-reset(ainda inacabado) acho que ainda da pra inova muito em tibia,mesmo que seja roubando ideias de outros jogos

os item devia ta afundado na agua,quenem quando voce taca

qual o problema em usar while?eu ainda coloquei pra da break se n tive mais player on os for é pra na fase uma tabela dessa local effectPositions = { {x = pos.x, y = pos.y - 1, z = pos.z}, {x = pos.x, y = pos.y + 1, z = pos.z}, {x = pos.x - 1, y = pos.y, z = pos.z}, {x = pos.x + 1, y = pos.y, z = pos.z}, {x = pos.x - 1, y = pos.y - 1, z = pos.z}, {x = pos.x + 1, y = pos.y - 1, z = pos.z}, {x = pos.x + 1, y = pos.y + 1, z = pos.z}, {x = pos.x - 1, y = pos.y + 1, z = pos.z} } normalmente os cara que que sai emvolta do player n so nele

é di boa masi os cara vai pode taca pela janela de batlte,dai fica facil

tenta assim