GstvoLiber

Olá, esse script foi eu quem desenvolvi, então por favor, dicas podem me dizer... mas funcional eu sei que está. Testando em TFS 0.4 e OTX. Básicamente, esse sistema funciona assim, você utiliza essa medal no lugar no colar, e te deixa passar pela porta, caso contrário, você não consegue passar, pode ser usado para vender no shop, e dentro desse local acessado com a medal os npcs comprarem os items mais caros apenas que os outros não compram... ai fica a critério de vocês hahaha Action\scripts function onUse(cid, item, toPos) configdoor1 = { [1] = {x=951,y=1170,z=6}, [2] = {x=953,y=1170,z=6} } configdoor2 = { [1] = {x=960,y=1174,z=6}, [2] = {x=958,y=1174,z=6} } configdoor3 = { [1] = {x=962,y=1168,z=6}, [2] = {x=960,y=1168,z=6} } if item.uid == 34345 then if getPlayerStorageValue(cid, 5785) ~= 1 and item.uid == 34345 then doPlayerSendTextMessage(cid,25,'Você precisa equipar sua Medal of Honour primeiro!') doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) return false end if getPlayerStorageValue(cid, 57851)==1 and item.uid == 34345 then doTeleportThing(cid, configdoor1[2]) doPlayerSendTextMessage(cid,25,'Até breve, Não perca sua Medal of Honour!') doSendMagicEffect(getPlayerPosition(cid), 10) setPlayerStorageValue(cid, 57851, 0) return true end if getPlayerStorageValue(cid, 5785) == 1 and item.uid == 34345 then doPlayerSendTextMessage(cid,25,'Bem vindo ao Shop VIP!') doTeleportThing(cid, configdoor1[1]) doSendMagicEffect(getPlayerPosition(cid), 10) setPlayerStorageValue(cid, 57851, 1) return true end end if item.uid == 34346 then if getPlayerStorageValue(cid, 5785) ~= 1 and item.uid == 34346 then doPlayerSendTextMessage(cid,25,'Você precisa equipar sua Medal of Honour primeiro!') doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) return false end if getPlayerStorageValue(cid, 57852)==1 and item.uid == 34346 then doTeleportThing(cid, configdoor2[2]) doPlayerSendTextMessage(cid,25,'Até breve, Não perca sua Medal of Honour!') doSendMagicEffect(getPlayerPosition(cid), 10) setPlayerStorageValue(cid, 57852, 0) return true end if getPlayerStorageValue(cid, 5785) == 1 and item.uid == 34346 then doPlayerSendTextMessage(cid,25,'Bem vindo ao Shop VIP!') doTeleportThing(cid, configdoor2[1]) doSendMagicEffect(getPlayerPosition(cid), 10) setPlayerStorageValue(cid, 57852, 1) return true end end if item.uid == 34347 then if getPlayerStorageValue(cid, 5785) ~= 1 and item.uid == 34347 then doPlayerSendTextMessage(cid,25,'Você precisa equipar sua Medal of Honour primeiro!') doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) return false end if getPlayerStorageValue(cid, 57853)==1 and item.uid == 34347 then doTeleportThing(cid, configdoor3[2]) doPlayerSendTextMessage(cid,25,'Até breve, Não perca sua Medal of Honour!') doSendMagicEffect(getPlayerPosition(cid), 10) setPlayerStorageValue(cid, 57853, 0) return true end if getPlayerStorageValue(cid, 5785) == 1 and item.uid == 34347 then doPlayerSendTextMessage(cid,25,'Bem vindo ao Shop VIP!') doTeleportThing(cid, configdoor3[1]) doSendMagicEffect(getPlayerPosition(cid), 10) setPlayerStorageValue(cid, 57853, 1) return true end end return true end POS[1] = local na frente da porta, (entrada) POS[2] = local na frente da porta, (saida) Movements\scripts function onEquip(cid, item, slot, boolean) if getPlayerSlotItem(cid, 2).itemid == 5785 and getPlayerStorageValue(cid, 5785) ~= 1 then setPlayerStorageValue(cid, 5785, 1) doPlayerSendTextMessage(cid,25,'Medal of Honour equipada! agora você pode acessar a área do Shop VIP.') doSendMagicEffect(getPlayerPosition(cid), 28) end return true end function onDeEquip(cid, item, slot, boolean) configdoor1 = { [1] = {x=951,y=1170,z=6}, [2] = {x=953,y=1170,z=6} } configdoor2 = { [1] = {x=960,y=1174,z=6}, [2] = {x=958,y=1174,z=6} } configdoor3 = { [1] = {x=962,y=1168,z=6}, [2] = {x=960,y=1168,z=6} } if getPlayerSlotItem(cid, 2).itemid ~= 5785 and getPlayerStorageValue(cid, 5785) == 1 and getPlayerStorageValue(cid, 57851)==1 then setPlayerStorageValue(cid, 5785, -1) setPlayerStorageValue(cid, 57851, 0) doPlayerSendTextMessage(cid,25,'Medal of Honour retirada! Expulso do Shop.') doTeleportThing(cid,configdoor1[2]) doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) return true else if getPlayerSlotItem(cid, 2).itemid ~= 5785 and getPlayerStorageValue(cid, 5785) == 1 and getPlayerStorageValue(cid, 57852)==1 then setPlayerStorageValue(cid, 5785, -1) setPlayerStorageValue(cid, 57852, 0) doPlayerSendTextMessage(cid,25,'Medal of Honour retirada! Expulso do Shop.') doTeleportThing(cid,configdoor2[2]) doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) return true else if getPlayerSlotItem(cid, 2).itemid ~= 5785 and getPlayerStorageValue(cid, 5785) == 1 and getPlayerStorageValue(cid, 57853)==1 then setPlayerStorageValue(cid, 5785, -1) setPlayerStorageValue(cid, 57853, 0) doPlayerSendTextMessage(cid,25,'Medal of Honour retirada! Expulso do Shop.') doTeleportThing(cid,configdoor3[2]) doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF) return true end end end return true end Mesma configuração. As linhas de action e movements .xml fica por conta de vocês! Abrs,

Utiliza esse: http://www.xtibia.com/forum/topic/233066-gesior-pagseguro-automatico-100-funcional/ Tenho certeza que irá funcionar.

Não tem erro algum ai rsrs Utilize os comandos: apt-get install build-essential libxml2-dev libxml++2.6-dev liblua5.1-0-dev libboost-all-dev libmysql++-dev libgmp3-dev zlib1g-dev libcrypto++-dev dh-autoreconf apt-get install subversion autoconf build-essential pkg-config libboost-dev libgmp3-dev libxml2-dev liblua5.1-0-dev libmysqlclient-dev libcrypto++-dev ccache libboost-filesystem-dev libboost-regex-dev libboost-system-dev libboost-thread-dev screen libssl-dev sh autogen.sh ./configure --enable-mysql --enable-server-diag make clean && make simples Ele não vai criar um executável... rsrsrs Mas já foi compilado, olha na sua pasta.

Troca o TFS. Tem várias REVs pela internet, se quiser que eu poste a minha, eu te passo... ai é só compilar Abrs,

Eu aconselho, a desinstalar o lampp, muitos problemas você terá... porque nem todos os Gesior são compativeis, desinstala ele, e instala: apache2 mysql phpmyadmin Ai sim vai funcionar tudo certin

Olá players! Sentimos a sua falta! Estamos voltando com nosso querido servidor! Se você nunca havia jogado nosso servidor, prepare-se! Está prestes a começar a jogar o melhor e mais nostálgico servidor de todos os tempos! -> STYLLER YOUROTS -> 8.60 -> PRÓPRIO MAPA! -> EQUILIBRADO! -> SEM ITENS EDITADOS! -> PACC VALORIZADA! -> SISTEMA DE SOM [HOT] -> CLIENTE PRÓPRIO! -> TOTALMENTE EM PORTUGUÊS! -> DUNGEONS [HOT] -> SISTEMA DE HELPDESK EM TEMPO REAL! Tá esperando o que ? Crie já sua conta! IP: realsoft.servegame.com Site: realsoft.servegame.com:88 Port: 7171 Client: 8.60 Atualizado! -> Pontos de Satus, e Dungeon Liberada! -> Raids automáticas! -> Novos Efeitos de SOM !! Patch 1.2 em Breve!

Se voce quiser deixar por exemplo uma MPA para donates, ou seja utilizar o mesmo item MPA que dropa nos monstros, voc"e vai ter que retirar o id dela de cada monstro que pode dropar.

Amigo, pode retirar o spoiler do script ? Nao consigo abrir aqui no trampo rsrsrs Posso te ajudar. No aguardo -GstavoLiber

É o seguinte, sobre a área, imagino que dê para criar uma área pvp onde não pegue PK, e não perca as coisas, tudo pelo RME, sobre perder o aol, não sei se vai acabar perdendo, mas você pode tentar.. E sobre a vocation, imagino que não esteja salvando o char, se no jogo aparece que mudou a vocação, e depois que relogar ela some, provavelmente porque não está salvando, se você usa site, tem que adicionar no site a nova vocação, e o sample. Tem uma linha na database chamada "save", se tiver com valor 0, não salvará, e se for valor 1, ele salva. Da essa verificada ai. -GstavoLiber

Atualizado 25/4/2014 - Corrigido alguns bugs do mapa. - Mudanças no mapa, adicionar e remover. - Evolução do mini-map. -GstavoLiber

Não consegui entender o que tu quer... você quer que o player seja deslogado depois de um tempo treinando ?? -GstavoLiber

Tenta utilizar o meu .. -- ### CONFIG ### -- message send to player by script "type" (types you can check in "global.lua") SHOP_MSG_TYPE = 19 -- time (in seconds) between connections to SQL database by shop script SQL_interval = 30 -- ### END OF CONFIG ### function onThink(interval, lastExecution) local result_plr = db.getResult("SELECT * FROM z_ots_comunication WHERE `type` = 'login';") if(result_plr:getID() ~= -1) then while(true) do id = tonumber(result_plr:getDataInt("id")) action = tostring(result_plr:getDataString("action")) delete = tonumber(result_plr:getDataInt("delete_it")) cid = getCreatureByName(tostring(result_plr:getDataString("name"))) if isPlayer(cid) == TRUE then local itemtogive_id = tonumber(result_plr:getDataInt("param1")) local itemtogive_count = tonumber(result_plr:getDataInt("param2")) local container_id = tonumber(result_plr:getDataInt("param3")) local container_count = tonumber(result_plr:getDataInt("param4")) local add_item_type = tostring(result_plr:getDataString("param5")) local add_item_name = tostring(result_plr:getDataString("param6")) local received_item = 0 local full_weight = 0 if add_item_type == 'container' then container_weight = getItemWeightById(container_id, 1) if isItemRune(itemtogive_id) == TRUE then items_weight = container_count * getItemWeightById(itemtogive_id, 1) else items_weight = container_count * getItemWeightById(itemtogive_id, itemtogive_count) end full_weight = items_weight + container_weight else full_weight = getItemWeightById(itemtogive_id, itemtogive_count) if isItemRune(itemtogive_id) == TRUE then full_weight = getItemWeightById(itemtogive_id, 1) else full_weight = getItemWeightById(itemtogive_id, itemtogive_count) end end local free_cap = getPlayerFreeCap(cid) if full_weight <= free_cap then if add_item_type == 'container' then local new_container = doCreateItemEx(container_id, 1) doItemSetAttribute(new_container, "description", 'Bought by ' .. getCreatureName(cid) .. ' [ID:' .. id .. '].') local iter = 0 while iter ~= container_count do local new_item = doCreateItemEx(itemtogive_id, itemtogive_count) doItemSetAttribute(new_item, "description", 'Bought by ' .. getCreatureName(cid) .. ' [ID:' .. id .. '].') doAddContainerItemEx(new_container, new_item) iter = iter + 1 end received_item = doPlayerAddItemEx(cid, new_container) else local new_item = doCreateItemEx(itemtogive_id, itemtogive_count) doItemSetAttribute(new_item, "description", 'Bought by ' .. getCreatureName(cid) .. ' [ID:' .. id .. '].') received_item = doPlayerAddItemEx(cid, new_item) end if received_item == RETURNVALUE_NOERROR then doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, 'You received >> '.. add_item_name ..' << from OTS shop.') doPlayerSave(cid) db.executeQuery("DELETE FROM `z_ots_comunication` WHERE `id` = " .. id .. ";") db.executeQuery("UPDATE `z_shop_history_item` SET `trans_state`='realized', `trans_real`=" .. os.time() .. " WHERE id = " .. id .. ";") else doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, '>> '.. add_item_name ..' << from OTS shop is waiting for you. Please make place for this item in your backpack/hands and wait about '.. SQL_interval ..' seconds to get it.') end else doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, '>> '.. add_item_name ..' << from OTS shop is waiting for you. It weight is '.. full_weight ..' oz., you have only '.. free_cap ..' oz. free capacity. Put some items in depot and wait about '.. SQL_interval ..' seconds to get it.') end end if not(result_plr:next()) then break end end result_plr:free() end return TRUE end Muda sua tag tambem, as vezes esses nomes compridos dao problemas... <globalevent name="shop" interval="30" script="shop.lua"/> Se mesmo assim não entrega, é provável que esteja faltando a as tabelas corretas no banco de dados. -GstavoLiber

Se quiser que de dano também, é só chamar doCombat(parameters.cid, combat1, parameters.var) na combat2 =) -GstavoLiber

Acho que isso deve resolver... local combat1 = createCombatObject() setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) setCombatParam(combat1, COMBAT_PARAM_EFFECT, CONST_ME_FIREATTACK) setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -11.2, -52, -11.2, 6) local combat2 = createConditionObject(CONDITION_PARALYZE) setConditionParam(combat2, CONDITION_PARAM_TICKS, 5000) setCombatParam(combat2, COMBAT_PARAM_EFFECT, 44) setConditionFormula(combat2, -0.8, 0, -0.9, 0) --Se quiser que de dano também, basta aretirar os traços da linha de baixo: --doCombat(parameters.cid, combat1, parameters.var) arr1 = { {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 3, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}, {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0} } local area1 = createCombatArea(arr1) setCombatArea(combat1, area1) setCombatArea(combat2, area1) local function onCastSpell1(parameters) if (getCreatureOutfit(cid).lookType == 130 and getCreatureOutfit(cid).lookAddons == 3) then return isPlayer(parameters.cid) and doCombat(parameters.cid, combat2, parameters.var) else return isPlayer(parameters.cid) and doCombat(parameters.cid, combat1, parameters.var) end end function onCastSpell(cid, var) local position1 = {x=getCreaturePosition(cid).x+2, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z} local parameters = { cid = cid, var = var} addEvent(onCastSpell1, 100, parameters) return TRUE end Ai é só adicionar a linha no spells.xml normalmente como você preferir. -GstavoLiber