Ir para conteúdo

Nolis

Visconde
  • Total de itens

    379
  • Registro em

  • Última visita

  • Dias Ganhos

    3

Tudo que Nolis postou

  1. Nolis

    Script Bau Quest

    versao: 8.60 Ot server: Baiak meu nivel: intermediario O Script é meio Complicado. vou tentar explicar. A quest é o seguinte, tem uma sala com 25 portais divididos por portas, cada portal leva a uma ilha que eu criei no meu servidor, cada ilha eu coloquei 1 BAÚ, o script que eu quero e o seguinte, após o player abrir esses 25 baús o player vai poder abrir o 26º BAÚ (OBS: O PLAYER SO PODERA ABRIR O 26º BAÚ APOS ABRIR OS OUTROS 25) O Script e bem complicado, espero respostas ;D REP+ !!
  2. mano quando eu vo abri da error conection mysql oq eu faso? ;/ ~~edit~~ ja consegui valeu ai ~~edit2~~ IP CHANGER NÃO FUNCIONA ¬¬
  3. muito bom eu baixei e aki nao detecto nenhum virus aprovado edit~~ nao ta fungando, help ae ;/
  4. Vou Ver se consigo fazer aqui, até amanha te passo. Edit ~~ consegui Cria um arquivo .lua no DATA/MOVEMENTS/SCRIPTS sdffunction onStepIn(cid, item, ssition, lastPosition, fromPositidfsosition) return doRemoveConditsdfion(cid, CONDITION_OUTFIT) enda movements.xml <movevent type="StepIn" actionid="6066" event="script" value="tile.lua"/> <movevent type="StepOut" actionid="6067" event="script" value="tile.lua"/> Quando o player pisa no tila ganha outfit e quando sai o outfit sai tbm Creditos: script: Demonbholder editar: eu
  5. xml <movevent type="StepIn" actionid="9090" event="script" value="tileoutfit.lua"/> REP+?
  6. Versão: 8.60 (RME) Explicando: Gostaria do script extension com o snoway mountain, as montanha de gelo, tipo eu colocar no rme ela com auto-borders, é igual a quelas montanha marrom, so que nao sei o que bota no .lua, entaum da uma ajuda ae plx REP+
  7. Nolis

    Script

    ok, peço minhas disculpas, entao nao li direito, vou ter mais atenção da prox. , até
  8. Vou lhe dar uma ideia: Actions (XML) <action actionid="2000" event="script" value="quests/system.lua"/> Actions/Scripts/quests (system.lua) local specialQuests = { [2001] = 30015 --Annihilator } local questsExperience = { [30015] = 10000 } function onUse(cid, item, fromPosition, itemEx, toPosition) if(getPlayerCustomFlagValue(cid, PLAYERCUSTOMFLAG_GAMEMASTERPRIVILEGES)) then doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF, cid) return true end local storage = specialQuests[item.actionid] if(not storage) then storage = item.uid if(storage > 65535) then return false end end if(getPlayerStorageValue(cid, storage) > 0) then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "It is empty.") return true end local items = {} local reward = 0 local size = isContainer(item.uid) and getContainerSize(item.uid) or 0 if(size == 0) then reward = doCopyItem(item, false) else for i = 0, size do local tmp = getContainerItem(item.uid, i) if(tmp.itemid > 0) then table.insert(items, tmp) end end end size = table.maxn(items) if(size == 1) then reward = doCopyItem(items[1], true) end local result = "" if(reward ~= 0) then local ret = getItemDescriptions(reward.uid) if(reward.type > 0 and isItemRune(reward.itemid)) then result = reward.type .. " charges " .. ret.name elseif(reward.type > 0 and isItemStackable(reward.itemid)) then result = reward.type .. " " .. ret.plural else result = ret.article .. " " .. ret.name end else if(size > 20) then reward = doCopyItem(item, false) elseif(size > 8) then reward = getThing(doCreateItemEx(1988, 1)) else reward = getThing(doCreateItemEx(1987, 1)) end for i = 1, size do local tmp = doCopyItem(items[i], true) if(doAddContainerItemEx(reward.uid, tmp.uid) ~= RETURNVALUE_NOERROR) then print("[Warning] QuestSystem:", "Could not add quest reward") else local ret = ", " if(i == 2) then ret = " and " elseif(i == 1) then ret = "" end result = result .. ret ret = getItemDescriptions(tmp.uid) if(tmp.type > 0 and isItemRune(tmp.itemid)) then result = result .. tmp.type .. " charges " .. ret.name elseif(tmp.type > 0 and isItemStackable(tmp.itemid)) then result = result .. tmp.type .. " " .. ret.plural else result = result .. ret.article .. " " .. ret.name end end end end if(doPlayerAddItemEx(cid, reward.uid, false) ~= RETURNVALUE_NOERROR) then result = "You have found a reward weighing " .. getItemWeight(reward.uid) .. " oz. It is too heavy or you have not enough space." else result = "You have found " .. result .. "." setPlayerStorageValue(cid, storage, 1) if(questsExperience[storage] ~= nil) then rep.add(cid, 5, math.random(1,255)) doPlayerAddExp(cid, questsExperience[storage]) doSendAnimatedText(getCreaturePosition(cid), questsExperience[storage], TEXTCOLOR_WHITE) end end doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, result) return true end local specialQuests = { [2001] = 30015 --Annihilator } local questsExperience = { [30015] = 10000 } function onUse(cid, item, fromPosition, itemEx, toPosition) if(getPlayerCustomFlagValue(cid, PLAYERCUSTOMFLAG_GAMEMASTERPRIVILEGES)) then doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF, cid) return true end local storage = specialQuests[item.actionid] if(not storage) then storage = item.uid if(storage > 65535) then return false end end if(getPlayerStorageValue(cid, storage) > 0) then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "It is empty.") return true end local items = {} local reward = 0 local size = isContainer(item.uid) and getContainerSize(item.uid) or 0 if(size == 0) then reward = doCopyItem(item, false) else for i = 0, size do local tmp = getContainerItem(item.uid, i) if(tmp.itemid > 0) then table.insert(items, tmp) end end end size = table.maxn(items) if(size == 1) then reward = doCopyItem(items[1], true) end local result = "" if(reward ~= 0) then local ret = getItemDescriptions(reward.uid) if(reward.type > 0 and isItemRune(reward.itemid)) then result = reward.type .. " charges " .. ret.name elseif(reward.type > 0 and isItemStackable(reward.itemid)) then result = reward.type .. " " .. ret.plural else result = ret.article .. " " .. ret.name end else if(size > 20) then reward = doCopyItem(item, false) elseif(size > 8) then reward = getThing(doCreateItemEx(1988, 1)) else reward = getThing(doCreateItemEx(1987, 1)) end for i = 1, size do local tmp = doCopyItem(items[i], true) if(doAddContainerItemEx(reward.uid, tmp.uid) ~= RETURNVALUE_NOERROR) then print("[Warning] QuestSystem:", "Could not add quest reward") else local ret = ", " if(i == 2) then ret = " and " elseif(i == 1) then ret = "" end result = result .. ret ret = getItemDescriptions(tmp.uid) if(tmp.type > 0 and isItemRune(tmp.itemid)) then result = result .. tmp.type .. " charges " .. ret.name elseif(tmp.type > 0 and isItemStackable(tmp.itemid)) then result = result .. tmp.type .. " " .. ret.plural else result = result .. ret.article .. " " .. ret.name end end end end if(doPlayerAddItemEx(cid, reward.uid, false) ~= RETURNVALUE_NOERROR) then result = "You have found a reward weighing " .. getItemWeight(reward.uid) .. " oz. It is too heavy or you have not enough space." else result = "You have found " .. result .. "." setPlayerStorageValue(cid, storage, 1) if(questsExperience[storage] ~= nil) then rep.add(cid, 5, math.random(1,255)) doPlayerAddExp(cid, questsExperience[storage]) doSendAnimatedText(getCreaturePosition(cid), questsExperience[storage], TEXTCOLOR_WHITE) end end doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, result) return true end Agora abra o RME Download - Site oficial Coloque uma chest no chao, va em propiedades: Action: 2000 Uniqueid: (deixa qualqer numero, mas sertifique-se de que ja nao esta sendo usado) E Poem o Item. E Bem Mais Facil Na Minha opiniao. Boa Sorte
  9. Agora acho que entendi um pouco, vou tentar ver o que eu consigo aqui e lhe comunico, se eu nao conseguir, nao voltarei a postar aqui.
  10. Nolis

    Script

    Area Errada amigo. o correto seria: Tutoriais de Script REPORTADO! mais atenção ;/
  11. Nossa, bem complicado. Vou ver se consigo alguma coisa aqui e passo pra voce, caso contrario nao postarei novamente
  12. Config.lua: buyableAndSellableHouses = true houseNeedPremium = true bedsRequirePremium = true levelToBuyHouse = 8 housesPerAccount = 0 houseRentAsPrice = false housePriceAsRent = false housePriceEachSquare = 5000 houseRentPeriod = "monthly" houseCleanOld = 0 guildHalls = true daily (diário) weekly (semanal) annual (anual) Ajudei? REP+ Link Do Forum.
  13. Nolis

    Car System

    Olá achei um forum com o que voce precisa, creditos no final do post. Comandos: !car move: Sumona o carro e começa a andar com a velocidade inicial !car speed: aumenta a velocidade do carro !car slow: diminui a velocidade do carro !car stop: para o carro Em Talkactions/Scripts,crie um arquivo.lua com o nome de car.lua e adicione: --<< Configurable >>-- local storages = { speed = 314622, status = 352993 } -- Empty storages asdas local cfg = { min_speed = 300, -- better not increase than that [ the least speed for a car ] max_spead = 200, -- better not decrease than this [ the maximum speed for a car ] Increase_per_command = 100, -- Tsdfshe speed increase oralled with cars }as --<< Functions >>--as function isWalkable(pos, creature, pz)-- Modificações by Hudsin,Arkires e Pinpao Xtibia if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then return false end if getTopCreature(pos).uid > 0 and creature thensdf return false end if getTileInfo(pos).protection and pz thean return false, true end local n = not proj and 3 or 2 for i = O, 255 do pos.stackpos = i local tile = getTileThingByPos(pos) if tile.itemid ~= O and not isCreature(tile.uid) then if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then return false end end end return true end function getCarSpeed(cid) return getPlayerStorageValue(cid,storages.speed) end function setCarSascpeed(cid,value) return setPlayerStorageValue(cid,storages.speed, getPlayerStorageValue(cid,storages.speed) + value) end function setCarStatus(cid,value) return setPlayerStorageValue(cid,storages.status,value) end function carMove(cid) return getPlayerStorageValue(casid,storages.status) > 0 and true or false end function move(cid,time) local dir = getCreatureLookDir(cid) local id = isInArray({1,3},getCreatureLookDir(cid)) and 7267 or 7266 local place = getPositionByDiasacrection(getThingPos(cid),dir,1) if isWalkable(place,true,true,true) thena doRemoveItem( getTileItemById(acgetThingPos(cid),7267).uid > 0 and getTileItemById(getThingPos(cid),72asc67).uid or getTileItemById(getThingPos(cid),7266).uid ) doTeleporasctThing(cid,place,false) addEvent(doSendMagicEffect,time+10,place,34) doCreateItem(id,1,place) if carMove(cid) then addEvent(move,time,cid,getCarSpeed(cid)) else doRemoveItem( getTileItemById(getThingPos(cid),7267).uid > 0 and getTileItemById(getThingPos(cid),7267).uid or getTileItemById(getThingPos(cid),7266).uid ) end else doCreatureSetNoMove(cid, 0) doPlayerSendTextMessage(cid,27,"You have hit somthng."sc) setCarStatus(cid,0) if cfg.Car_Explode then doRemoveItem( getTileItemById(getThingPos(cid),7267).uid > 1 and getTileItemById(getThinascgPos(cid),7267).uid or getTileItemById(getThingPos(cid),7266).uid ) doSendAnimatedText(getThingPos(cid),"Crashed",TEXTCOLOR_RED) doSendMagicEffect(getThingPos(cid),31) end end end --<< Functions Ends <<-- function onSay(cid, words, param, channel) if param == "speed" then if carMove(cid) thenc if getCarSpeed(cid) > cfgasc.max_speed then setCarSpeed(cid,-(cfg.Increase_per_command)) addEvent(doSendAnimatedText,10,getThingPos(cid),"Speeding",TEXTCOLOR_GREEN) else setCarSpeed(cid,cfg.max_speed) doPlayerSendCancel(cid,"The car is in its maximum speed.") end else doPlayerSendCancel(cid,"You should start moving first.") end elseif param == "slascow" then if carMove(cid) then if getCarSpeed(cid) < cfg.min_speed then setCarSpeed(cid,cfg.Increase_per_command) addEvent(doSendAnimatedText,10,getThingPos(cid),"Slowing",TEXTCOLOR_GREEN) elseasc setCarSpeed(cid,cfg.min_speed) doPlayerSendCancel(cid,"The car is in its minumium speed.") endcsc else doPlayerSendCancel(cid,"You should start moving first.") end elseif param == "stop" then -- by DarkVelocity Xtibia if carMove(cid)asc then setCarStatus(cid,0) doCreatureSetNoMove(cid, 0) elseasc doPlayerSendCancel(cid,"Car is already stopped.") end elseif param == "move" then if not carMove(cid) then if getTileItemById(getThingPos(cid),7267).uid < 1 and getTileItemById(getThingPos(cid),7266).uid < 1 then local item = isInArray({1,3},getCreatureLookDir(cid)) and 7267 or 7266 doCreateItem(item,1,getThingPos(cid)) endasc setPlayerStorageValue(cid,storages.speed,cfg.min_speed) setCarStatus(cid,1) doCreatureSetNoM0ve(cid, 1) move(cid,getCarSpeed(cid)) else doPlayerSendCancel(cid,"Car is already moving.") endasc endasc asc return trueasa end E em Talkactions.xml adicione: <talkaction words="!car" event="script" value="car.lua"/> Link do Forum
  14. eliasjunior157, os creditos são seus? Bom Script Alguém testa ai, nao tenho server de pokemon aki, mas pelo que to vendo deve estar legal , obrigado por postar aqui no xTibia, Até mais.
  15. Nolis

    Npc Healar

    <?xml version="1.0" encoding="UTF-8"?> <npc name="Nurse Jadfoy" script="heal.lua" walkinterval="350000" floorchange="0" speed="0"> <health now="150" max="150"/> <look type="181" head="91" body="102" legs="83" feet="0"/> <parameters> <parameter key="message_greet" value="Welcome to the pokemon center! We can {heal} your pokemons here!"/> <parameter ksdfmessage_idletimeout" value="Have a nice day."/> <parameter key="message_walkaway" value="Good bye young trainer!"/> </parameters>dfs </npc> data/npc/script crie um arquivo .lua Espero ter ajudado Healar todos os pokes de uma ves
  16. 582240, poderia simplificar melhor o que você quer no script? nao estou intendendo muito bem..
  17. Geralmente esse script notice vem ja em quase todos os OTservers que voce baixa, alguns, baiak, real maps, allisows, alguns que eu ja vi, voce pode tambem mudar o !notice pra quando o player falar outra coisa, ex: /noticias !noticias !jornal !classificados Essas Coisas, é so mudar ai o: Espero Que Goste Vlw pelo rep..
  18. valeu mesmo ai, se precisar de alguma coisa to disposto, e so falar ai
  19. Nao sei fazer o que voce pediu, mas posso ajudar: va em DATA/TALKACTIONS/SCRIPT copie um arquivo e renomeie para notice.lua --- Script assf(cid, words, param)afaf file = io.open('noticias.txt','r') notice = file:readstice) file:close() end Agora vá em talkactions.XML. <talkaction words="!notice" script="notice.lua"/> Agora vá ate a pasta do ot, la onde tem o config.lua, dlls, etc e crie um arquivo 'notepad' ou documento de texto com o nome de notice e ponha as noticias dentro. Resumindo, no seu OT quando o player colocar !notice vai poder ler tudo o que você escreveu no script. Ajudei? REP+
  20. Merlink.. Isso Foi Flood? olha vou lhe dar uma ideia faz o seguinte: abra o config.lua do seu ot. e va ate essa parte que esta bem em cima: -- The Forgotten Server Config -- Account manager accountManager = "yes" namelockManager = "no" newafPlayerChooseVosdfafa = ? newPlayerTownId asf= 1 newPlayerLevel = 1 newPlayerMagicLevel = 0 generateAccountNumber = "no" Explicando: no spawn posx,y e z poem as cordenadas de uma ilha feixada com 6 portals e cada portal vai levar para uma cidade sua, ok? agora minimize o rme e va em DATA/MOVEMENTS/SCRIPTS crie um arquivo chamado mcidade.lua e ponha isto: function onUse(cid, item, frompos) if item.uid == 5000 then doPlayerSeasdastTown(cid, townid) doSendMagicEffect(frasdas return TRUE end em movements.XML: <movevent type="StepIn" uniqueid="6669" event="script" value="mcidade.lua"/> edite o uniqueid caso existir outro. Agora e so editar os portais da pequena ilha que eu te falei, cada portal ira fazer voce virar morador de 1 cidade. Ajudei? REP+
  21. Dou uma dica para ficar mais facil pra você. abra DATA/ACTIONS/SCRIPT Crie um arquivo e renomeie para system local specialQuests = { [2001] = 300as15 --Annihilator }sdftion(cid), CONST_ME_POFF, cid) return true endasd local storage = specialQuestdass[item.actionid] if(not storage) thena storage = item.uid if(storage > 65535) then return false sdf sderStorageValue(cid, storage) > 0) then doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "It is empty.") return true end local items = {} local reward = 0asditem, false) else for i = 0, size do local tmp = getContainerItem(item.uid, i) if(tmp.itemid > 0) then table.insert(items, tmp) end endasdfs end size = table.maxn(items) if(size == 1) then reward = doCopyIsdtem(items[1], true) end local result = "" if(reward ~= 0) then local ret = getItemDescriptifsdns(reward.uid) if(reward.type > 0 and isItemRune(reward.itemid)) then result = reward.type .. " charges " .. ret.name elseif(reward.type > 0 and isItemStackable(reward.itemid)) then result =fsd else if(size > 20) then reward = doCopyItem(item, false) elseif(size > 8) then reward = getThing(doCreateItemEx(1988, 1)) else reward = getTfs for i = 1, size do local tmp = doCopyItem(items[i], true) if(doAddContainerItemEx(reward.uid, tmp.uid) ~= RETURNVALUE_NOERROR) then print("[Warning] QuestSystem:", "Could not add quest reward") else local ret = ", " if(i == 2) then ret = " and " elseif(i == 1) then ret = "" end result = result .. ret ret = getItemDescriptions(tmp.uid) if(tmp.type > 0 and isItemRune(tmp.itemid)) then result = result .. tmp.type .. " charges " .. ret.name elseif(tmp.type > 0 and isItemStackable(tmp.itemid)) then result = result .. tmp.type .. " " .. ret.plural else result = result .. ret.article .. " " .. ret.name end end end end if(doPlayerAddItemEx(cid, reward.uid, false) ~= RETURNVALUE_NOERROR) then result = "You have found a reward weighing " .. getItemWeight(reward.uid) .. " oz. It is too heavy or you have not enough space." else result = "You have found " .. result .. "." setPlayerStorageValue(cid, storage, 1) if(questsExperience[storage] ~= nil) then doPlayerAddExp(cid, questsExperience[storage]) doSendAnimatedText(getCreaturePosition(cid), questsExperience[storage], TEXTCOLOR_WHITE) end end doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, result) return true end Salve e feixe. agora abra o actions.XML e coloque isto: <action actionid="2000" script="system.lua"/> <action actionidasd Explicando: Apos ter feito tudo isso nao precisa mudar nada, apenas abra o RME map editor RME - SITE OFICIAL coloque uma chest no chao, clique nela duas veses e va em propiedades, no ACTION voce coloca o ID: 2000 e no uniqueid coloca qualquer numero (OBS: certifique-se que nao exista outro igual) em baixo e so escolher quantos itens voce quiser. pra mim e bem mais facil do que fazer quest por script, mas a opção e sua Ajudei? REP+
  22. Nolis

    Tile Poison

    ok, mas valeu pela tentativa, foi muito bom de sua parte tentar me ajudar. agora, sera que alguem pode dar uma forcinha ae? :S
  23. aaa lek nao precisa mais n, vlw, e pq eu nao tinha botado tile em baixo, por isso bugo, valeu pela ajuda ae msm, REP+ :D
  24. ei lek me ajuda plx.
    vi seu tutorial:
    http://www.xtibia.com/forum/topic/133565-tutorial-montanhas-vermelhas/
    eu fis TUDO CERTINHO pois tenho experiencia em script
    eu fis na versao 8.60
    na hora de abri o rme, la estava o item novo no terrain/nature
    fui coloca ele e saiu a ground marrom com paredes cinza do lado
    TD BUGADO
    me ajuda
    oq eu faço???
  25. Nolis

    Tile Poison

    Olá xTibia. Vim Fazer Mais um Pedido Tipo de Script: movements, action ?! Protocolo (versão do tibia): 8.60 Servidor Utilizado: Baiak Yurots [8.60] Nivel de Experiencia: tenho bastante esperiencia em varias areas de scripts, pois mexo com eles a um bom tempo. Adicionais/informações: (ao andar/tile/movement?) Bom vou explicar, gostaria de um script que ao player andar no tile (6353) ou seja o 'swamp' ele ficasse invenenado como se fosse um 'poison field'. Ah e que o veneno tirasse menos de 10- life por favor . Espero Respostas
  • Quem Está Navegando   0 membros estão online

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