eduardo190696

Ok, Mais a intenção do script é auto transformar moedas mais posso fazer por talkactions

Script Criado pelo Apocarai, e editado por mim Adc isso em CreatureScripts function onThink(cid, interval, lastExecution) local config = { [2148] = {quant = 100, to = 2149}, [2149] = {quant = 100, to = 2160} } for k, v in pairs(config) do if getPlayerItemCount(cid, k) >= v.quant then doPlayerRemoveItem(cid, k, v.quant) doPlayerAddItem(cid, v.to,1) doPlayerSendTextMessage(cid, 25, "Changed " .. v.quant .. " " .. getItemNameById(k) .. " into " .. getItemNameById(v.to) .. ".") end end return true end tag <event type="think" name="Transforme" script="transform.lua"/> e Adc isso em login.lua registerCreatureEvent(cid, "Transforme") Por TalkActions add em Talkactions/scripts , nome moedas.lua function onSay(cid, words, param, item) local config = { [2148] = {quant = 100, to = 2152}, [2152] = {quant = 100, to = 2160} } for k, v in pairs(config) do if getPlayerItemCount(cid, k) >= v.quant then doPlayerRemoveItem(cid, k, v.quant) doPlayerAddItem(cid, v.to,1) doPlayerSendTextMessage(cid, 25, "Changed " .. v.quant .. " " .. getItemNameById(k) .. " into " .. getItemNameById(v.to) .. ".") end end return true end Tag add em Talkactions.xml <talkaction words="!juntar" script="moedas.lua"/>

testem esse by me se pega da um tok function onUse(cid, item, itemEx) local pkm = { ["Rat"] = {1} } for k,v in pairs(pkm) if getPlayerSlotItem(cid,2) == 2173 then if getCreatureName(cid) == k then doCreatureAddHealth(cid, 100) doItemSetAttribute(cid, "+"..v[1]) else doPlayerSendCancel(cid, "Desculpe você não pode Bootiar esse summon.) end

KKK, é um bom mode de usar mesmo KKK

CRIADOR : JANO Retirado: Outro forum Script: Auto Loot *-* creaturescripts.xml <event type="login" name="aloot_reg" event="script" value="aloot.lua"/> <event type="kill" name="aloot_kill" event="script" value="aloot.lua"/> creaturescripts/scritps aloot.lua function onLogin(cid) registerCreatureEvent(cid, "aloot_kill") return true end local stor = 7575 function autoloot(cid, target, pos) local function doStack(cid, itemid, new) local count = getPlayerItemCount(cid, itemid) if (count > 100) then count = count - math.floor(count / 100) * 100 end local newCount = count + new if (count ~= 0) then local find = getPlayerItemById(cid, true, itemid, count).uid if (find > 0) then doRemoveItem(find) else newCount = new end end local item = doCreateItemEx(itemid, newCount) doPlayerAddItemEx(cid, item, true) end local function scanContainer(cid, uid, list) for k = (getContainerSize(uid) - 1), 0, -1 do local tmp = getContainerItem(uid, k) if (isInArray(list, tmp.itemid)) then if isItemStackable(tmp.itemid) and (getPlayerItemCount(cid, tmp.itemid) > 0) then doStack(cid, tmp.itemid, tmp.type) else local item = doCreateItemEx(tmp.itemid, tmp.type) doPlayerAddItemEx(cid, item, true) end doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'Looted ' .. tmp.type .. ' ' .. getItemNameById(tmp.itemid) .. '.') doRemoveItem(tmp.uid) elseif isContainer(tmp.uid) then scanContainer(cid, tmp.uid, list) end end end local items = {} for i = getTileInfo(pos).items, 1, -1 do pos.stackpos = i table.insert(items, getThingFromPos(pos)) end if (#items == 0) then return end local corpse = -1 for _, item in ipairs(items) do local name = getItemName(item.uid):lower() if name:find(target:lower()) then corpse = item.uid break end end if (corpse ~= -1) and isContainer(corpse) then scanContainer(cid, corpse, tostring(getPlayerStorageValue(cid, stor)):gsub('_', ''):explode(',')) end end function onKill(cid, target, lastHit) if not isPlayer(target) then local infos = getPlayerStorageValue(cid, stor) if (infos == -1) then return true end local list = tostring(infos):explode(',') if (#list == 0) then return true end addEvent(autoloot, 150, cid, getCreatureName(target), getCreaturePosition(target)) end return true end talkactios.xml <talkaction words="/aloot" hide="yes" event="script" value="aloot.lua"/> Talkaction/scrips 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) 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 Usando /aloot check Cheka a Lista dos Loots /aloot add:itemid ou nome do item Exemplo /aloot add:worm /aloot add:2170 16:42 Item >>worm<< has been added to the autoloot list. Para remover /aloot remove:worm /aloot remove:2170 Exemplo Testado: 16:41 Looted 2 gold coin. 16:41 Looted 1 cheese. é isso pessoal gosto da + Rep

Dá próxima vez o apocarai presta mais atenção xD, errar é humano, apocarai sabe que só to brincando

KKK apocarai doPlayerRemoveItem(cid, k, v.quant) doPlayerRemoveItem(cid, v.to, 1) -- << erro Erro feio em doPlayerAddItem(cid, v.to,1) que seria o certo function onThink(cid, interval, lastExecution) local config = { [2148] = {quant = 100, to = 2149}, [2149] = {quant = 100, to = 2160} } for k, v in pairs(config) do if getPlayerItemCount(cid, k) >= v.quant then doPlayerRemoveItem(cid, k, v.quant) doPlayerAddItem(cid, v.to,1) doPlayerSendTextMessage(cid, 25, "Changed " .. v.quant .. " " .. getItemNameById(k) .. " into " .. getItemNameById(v.to) .. ".") end end return true end 9.1 sem bugs function onThink(cid, interval, lastExecution) local config = { [2148] = {quant = 100, to = 2149}, [2149] = {quant = 100, to = 2160} } for k, v in pairs(config) do if getPlayerItemCount(cid, k) >= v.quant then doPlayerRemoveItem(cid, k, v.quant) doPlayerAddItem(cid, v.to,1) end end return true end tirei a frase pq alem de ser desnecessária bugava

pow add msn vocês 2 e vamos discutir idéias para esse script a minha idéia ta certa e o script era pra tar tb mais n pega essa porra dudugt500@hotmail.com

pow mano eu to tentando fazer uma aqui, se der eu do uma aviso

como bota pro pet teleportar pro player ? e as spell não acertarem os jogadores e eles não poderem atacar seus proprios pets

Bom, para começar precisaremos de 2 programas um programa do Black Demon que ta no anexo esse programa do Black demon só usaremos para ver as signature do DATA e do SPR vamos começar 1° Abra o item editor( by black demon) 2° Abra o data e o spr do seu client 3° Aperte Alt+P 4° Copie as signatures dos Spr e do Data Data 4E12DAFF 9.1 Spr 4E12DB27 9.1 Agora abra o arquivo graphics.dat na pasta do seu item editor e adicione as signatures que você copiou no fim nessa ordem: data spr versão 16 Vai fica mais ou menos assim 4E12DAFF 4E12DB27 910 16 FIM É isso pessoal simples que nem fazer coco, se gosto da +rep item editor.rar

Função Remove Pet ADC

add no msn que nois se fala por lá @edit tony não faz parte da equipe

entendi, mais então não tem como eu usar esse script do jeito que ta ai ?

(vc não tem level para sumonar o pet) estou tentando descobrir o porque esta aparecendo e a parte do lvl n sei n vo rever o script mais auqi pega sux Hyuugax testa agora Hyuugax , eu to usando ele em um 9.1, editado um pouco pq mudaram algumas funções

Bom pessoal eu to hospedando um server na minha casa, e deve aguenta uns 100 player. ele é na versão 9.1 Tem novas Montarias (Criadas Por mim) Vai ter novos systems que estarei criando Sistemas do ot : Pet system, Montarias, Em breve Mais systems Agora eu quero ajuda com: Mapper : 0/1 WebMaster : 0/1 Bom, os fundos arrecadados serão divididos igualmente entre os membros da equipe, Bom, quem quiser Olha o server o Ip é 173.0.8.163 9.1 baiak É isso ai pessoal vamos montar uma equipe para começar a ganhar dinheiro

Amigo falta algumas informações, Infos \/

Me ensina a fazer pfv

Retirado de outro fórum. Vi que o xtibia estava meio carente de ot's decentes 9.1 e vim trazer essa maravilha. DLL Aqui Soucer Aqui Ot Aqui Bom não sei fazer scan então se alguém se habilitar a fazer eu posto. É isso pessoal, Se gostarem postem comentários, E da +Rep se for usar Valeu Galérinha

Testa o meu que eu fiz http://www.xtibia.com/forum/topic/163989-pet-system/page__gopid__1080232#entry1080232 se funfa da + rep please

script editado Hyuugax a formula depende da que vc vai por na tag no talkactions qualquer uma que vc por pega. dmg < WTF ? que merda é essa DESCRIÇÂO O sistem uma quantidade maxima que pode ser sumonado é só um por vez tem que ter o level para usar e tem que comprar o item com o pet pra poder soltalo

isso ai é um tópico de duvida... poste o tópico do script

esse do marcelo ta escrito em vermelho "OBS: NÂO FUNCIONA EM 8.60" e o cara que um que funfe em 8.60...

porque isso não pega local a = "1" or "2" if "1" == a then print("oi") end if "2" == a then print("oi") else print("fals") end --//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-//-- 2° duvida pq isso Isso pega local a = { ["1"] = {9,11} } for k,v in pairs(a) do if 10 >= v[1] and 10 <= v[2] then print("oi") else print("bye") end end Mais pq isso n unction onSay(cid, words, param, itemEx) local summons = getCreatureSummons(cid) local pet = { ["Rat"] = {1,5}, ["Dragon"] = {6,60} } 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 x = doCreateMonster(k, getCreaturePosition(cid)) doConvinceCreature(cid, x) doCreatureSay(cid, v ..", go!", 1) doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 2) else doPlayerSendCancel(cid,"You can summon only 1 Pet.") return true end -- 4 else doPlayerSendCancel(cid,"You no have Pet.") doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, "You no have Pet.") end -- 3 else doPlayerSendCancel(cid,"You no have level for use Pet.") return true end -- 2 end -- 1 return true end sendo que o lvl do player é 23, ele summona o monster mais aparece a mensaguem que ele n tem lvl

TonyHanks, sua intenção foi boa mais tem alguns detalhes a mais do que só mudar as falas e os preços, YuriNoMercy, pfv poste seu vip system para poder fazer um npc baseado nas informações dele, p