Ir para conteúdo

DevilMoon

Conde
  • Total de itens

    706
  • Registro em

  • Última visita

  • Dias Ganhos

    10

Tudo que DevilMoon postou

  1. Lol cara, ele Posto os Creditos se nao viu o Script nao adianta vir culpando o Mlk tbm :X Abraços..
  2. Esse Sistema de Afk é o mais podre que tem ( Sem Ofender ). Abraços..
  3. Seçao Incorreta Manolo... Reportado Seçao Serta Seria Pedidos de Scripting Abraços..
  4. @All Obrigado pelos Elogios e pela REP+ @TheSleeper Cara , Tipow Nenhum Player vai falar !stats "DevilMoon , é Pessoal eu Falo !stats e da as minhas informaçoes.. Obs: Nao Editei nenhum Script esse dai eu Fiz dps de alguns tutoriais do Vodkart !! Se quiser deichar !stats "Player name ou !stats PLAYERNAME , so edita -- { By: DevilMoon Edited By: Vodkart } -- function onSay(cid, words, param) if not param then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Invalid param specified.") end local player = getPlayerByName(param) local pid = getPlayerByNameWildcard(param) if(not pid or (isPlayerGhost(pid) and getPlayerGhostAccess(pid) > getPlayerGhostAccess(cid))) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "O Player nao Existe ou esta Offline!") return TRUE end local reset = getPlayerStorageValue(player, 1020) -- Storage value Do Seu Reset System doPlayerPopupFYI(cid, "Informaçao do " .. getPlayerName(player) .."" .. "\nStatus:" .. "\nLevel - " .. getPlayerLevel(player) .. "\nVocation: " .. getVocationInfo(getPlayerVocation(player)).name .. "\nGuild: " .. getPlayerGuildName(player) .. "\nReset - " .. (reset < 0 and 0 or reset) .. "\nMl: " .. getPlayerMagLevel(player) .. "\nHealth - " .. getCreatureHealth(player) .. " / " .. getCreatureMaxHealth(player) .. ", Mana - " .. getCreatureMana(player) .. " / " .. getCreatureMaxMana(player) .. "\nIP: " .. doConvertIntegerToIp(getPlayerIp(player)) .. "") return TRUE end Abraços..
  5. Opa nao tinha visto valew pelo REP + E Pelo Test em 8.6 , Vodkart Valew por ajudar! e Obrigado pelos Elogios! Abraços..
  6. Muinto Boa Apesar de Ser Fraca, Com so Atakes de Gelo mais Esta Otimo!! 1 Perguntinha!! Tem Exaustion Né?, Muintas magias daqui nao tem exaustion! dao o player segura a hotkey da magia e solta 1000 vez a spell!! Abraços..
  7. Bom vlw Pelas Dicas.. Fiz isso "Mais deTalhado" so que eu senquerer puxei um fil do meu pc e desligo "Sorte que Tinha Salvo" Espero voces dar umas sugestoes oque eu posso mudar para eu ageitar!! Abraços..
  8. ~~ HYPER UP ~~ RIAREAIRIARIAIRAI
  9. 1: Muintas Pessoas Conseguem Fazer Isso!! 2: Ageite um Pouco o Topico nao Entendi nada! 3: Reprovado :button_cancel: Abraços..
  10. Desculpa pela pergunta Idiota, é pq eu so Retardado e nao intendo nada de Programaçao!! Aonde eu Coloco Tudu Isso? Abraços..
  11. Cara o Marcell Abandono o Topico, ou nao deu Conta!! Faz 1 Mes+ Que meu Pedido ta ali e n Recebi como Varios Tambem!! Tem que ver se Algum Moderador pode Fechar o Topico, Porque Esta Inutil monte de gente pede e nao recebe!! Abraços..
  12. Vod , no caso o script o cara se fosse "Vip" Logasse ja Ganhava Double? Explica O Script ae!! Abraços..
  13. vou adicionar a funçao de colocar, para escolher qantos podem sumonar ao maximo!! vou testar se conseguir posto aki!! Abraços... @Edit Para os Que Querem Colocar o Maximo de Summons so Editar e Substituir dps!! function onCastSpell(cid, var) local playerpos = getPlayerPosition(cid) local cloth = getCreatureOutfit(cid) local health = getCreatureHealth(cid) local maxhealth = getCreatureMaxHealth(cid) local MaximoSummon = 5 --- Maximo de Monstros Sumonados!! local summons = getCreatureSummons(cid) if(table.maxn(summons) < MaximoSummon) then -- no summons local clone = doCreateMonster("clone", playerpos) doConvinceCreature(cid, clone) setCreatureMaxHealth(clone, maxhealth) doCreatureAddHealth(clone, health) doSetCreatureOutfit(clone, cloth, -1) doSendMagicEffect(playerpos, 2) return TRUE end end
  14. Acho que ja sei o Problema!! Como Posso Dizer!! Seu Otserv nao Roda o Script!! Mais tente Usar este! Blessing
  15. Vá em Data>Npc crie uma pasta.xml chamada Tiger Lucan e coloque isso: <?xml version="1.0" encoding="UTF-8"?> <npc name="Tiger Lucan" script="data/npc/scripts/bless.lua" walkinterval="1000" floorchange="0"> <health now="100" max="100"/> <look type="73" head="0" body="0" legs="0" feet="0" addons="0"/> <parameters> <parameter key="message_greet" value="Oi Vendo 5 Tipos de Bless. {First Bless}, {Second Bless}, {Third Bless}, {Fourth Bless}, {Fifth Bless} Voce Quer Comprar?'"/> <parameter key="message_farewell" value="Abraços.."/> <parameter key="module_keywords" value="1" /> <parameter key="keywords" value="job;" /> <parameter key="keyword_reply1" value="I am a busy man. I run the Ironhouse also im selling bless." /> <parameter key="module_shop" value="1"/> <parameter key="shop_sellable" value="" /> <parameter key="shop_buyable" value="" /> </parameters> </npc> Ok Agora Feche e salve vá em Data>Npc>Scripts crie uma pasta.lua chamada bless e coloque isso dentro: local keywordHandler = KeywordHandler:new() local npcHandler = NpcHandler:new(keywordHandler) NpcSystem.parseParameters(npcHandler) function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end function onThink() npcHandler:onThink() end local node1 = keywordHandler:addKeyword({'first bless'}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, text = 'Do you want to buy the first blessing for 10000 gold?'}) node1:addChildKeyword({'yes'}, StdModule.bless, {npcHandler = npcHandler, bless = 1, premium = true, cost = 10000}) node1:addChildKeyword({'no'}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, reset = true, text = 'Too expensive, eh?'}) local node2 = keywordHandler:addKeyword({'second bless'}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, text = 'Do you want to buy the second blessing for 10000 gold?'}) node2:addChildKeyword({'yes'}, StdModule.bless, {npcHandler = npcHandler, bless = 2, premium = true, cost = 10000}) node2:addChildKeyword({'no'}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, reset = true, text = 'Too expensive, eh?'}) local node3 = keywordHandler:addKeyword({'third bless'}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, text = 'Do you want to buy the third blessing for 10000 gold?'}) node3:addChildKeyword({'yes'}, StdModule.bless, {npcHandler = npcHandler, bless = 3, premium = true, cost = 10000}) node3:addChildKeyword({'no'}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, reset = true, text = 'Too expensive, eh?'}) local node4 = keywordHandler:addKeyword({'fourth bless'}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, text = 'Do you want to buy the fourth blessing for 10000 gold?'}) node4:addChildKeyword({'yes'}, StdModule.bless, {npcHandler = npcHandler, bless = 4, premium = true, cost = 10000}) node4:addChildKeyword({'no'}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, reset = true, text = 'Too expensive, eh?'}) local node5 = keywordHandler:addKeyword({'fifth bless'}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, text = 'Do you want to buy the fifth blessing for 10000 gold?'}) node5:addChildKeyword({'yes'}, StdModule.bless, {npcHandler = npcHandler, bless = 5, premium = true, cost = 10000}) node5:addChildKeyword({'no'}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, reset = true, text = 'Too expensive, eh?'}) npcHandler:addModule(FocusModule:new()) Feche e Salve. Pronto Agora Adicione em Seu Rme, Abra seu Mapa e coloque ele No Lugar Desejado!! Edite ao Seu Gosto. Duvidas e Elogios Somente neste Topico. Abraços...
  16. DevilMoon

    [Pedido] Life E Mana

    Nao testei!! Vá em Data>Talkactions>Scripts crie uma pasta.lua chamada manalife e coloque isso: function onSay(cid, words, param) if(words == "!mana") then doPlayerSendTextMessage(cid,22,"Voce tem " .. getCreatureMana(cid) .. " de mana agora\nVoce tem " .. getCreatureMaxMana(cid) .. " de mana ao total") return TRUE elseif(words == "!life") then doPlayerSendTextMessage(cid,22,"Voce tem " .. getCreatureHealth(cid) .. " de life agora\nVoce tem " .. getCreatureMaxHealth(cid) .. " de life ao total") return TRUE end end Agora vá em Data>Talkactions.xml Adicione isso: <talkaction words="!mana;!life" script="manalife.lua"/> Abraços...
  17. Cara Primeiramente nao tem Como Fazer! Porque Pissos Vips todos tem uma StorageValue que é da sua vip!! Ex: function onStepIn(cid, item, position, fromPosition) local config = { msgDenied = "Você não e vip ,fale com Administrador do Server.", -- Mensagem quando ele Nao For vip msgWelcome = "Seja Bem Vindo a Area vip." -- Mensagem quando Ele Entrar no Local Vip } if getPlayerStorageValue(cid, 13540) - os.time() <= 0 then -- Storage Value da Vip doTeleportThing(cid, fromPosition, true) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, config.msgDenied) doSendMagicEffect(getThingPos(cid), CONST_ME_MAGIC_BLUE) return TRUE end doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, config.msgWelcome) return TRUE end Obs: Nao tente Adicionar este Tile vip no seu ot que nao ira funfar!! Tente mudar seu sistema de vip!! Ja que seu sitema de vip é invitando a house nao tem como! Se voce tiver algum sistema de vip com storage pode acresentar ao Tile... Obs²: Ouuuuuuuuu Colocar uma id no tile que Dara uma Mensagem Bem Vindo a Area Vip. Mais se os Player que nao foram vips "Invitados na House" Se pisarem naquele Tile Receberam a Mensagem!! Deicho na tua Opniao Abraços..
  18. DevilMoon

    Ajude.me

    Talvez no Mapa nao tenha o Piso 439 que é de Ladders, Ramps e etc.. Faça o Download do Remere's Map Editor abra seu mapa vá a essa Ladder suba 1 andar , Aperte a Letra "J" no Rme e coloque 439 e de ok e Adicione o Piso!! Tente Isso!! Abraços..
  19. Cara Antigamente quando nao sabia mecher muinto em Scripting meu Otserv dava Varios Debugs com o DeathList ate que tentei Trocar por este e nunca mais deu Problema.. Tente usar Este Data>Talkactions.xml Adicione isso: <talkaction words="!deathlist" event="script" value="deathlist.lua"/> Agora em Data>Talkactions>Scripts crie uma pasta.lua chamada deathlist e coloque isso: -- [( Created by: GT Thionix, edited by: DoidinMapper for XTibia.com )] -- function onSay(cid, words, param, channel) local config = {displayLimit = 10} local target = db.getResult("SELECT `name`, `id` FROM `players` WHERE `name` = " .. db.escapeString(param) .. ";") if(target:getID() == -1) then doPlayerSendCancel(cid, "Esse Player nao Existe.") return TRUE end local targetName = target:getDataString("name") local targetGUID = target:getDataInt("id") target:free() local str = "" local deaths = db.getResult("SELECT `time`, `level`, `killed_by`, `altkilled_by` FROM `player_deaths` WHERE `player_id` = " .. targetGUID .. " ORDER BY `time` DESC;") if(deaths:getID() ~= -1) then local n = 0 local breakline = "" repeat n = n + 1 if(str ~= "") then breakline = "\n" end local time = os.date("%d %B %Y %X ", deaths:getDataInt("time")) local level = deaths:getDataInt("level") local lastHitKiller = deaths:getDataString("killed_by") local mostDamageKiller = deaths:getDataString("altkilled_by") local killed = "" if(tonumber(lastHitKiller)) then killed = getPlayerNameByGUID(tonumber(lastHitKiller)) else killed = getArticle(lastHitKiller) .. " " .. string.lower(lastHitKiller) end if(mostDamageKiller ~= "") then if(tonumber(mostDamageKiller)) then killed = killed .. " and by " .. getPlayerNameByGUID(tonumber(mostDamageKiller)) else killed = killed .. " and by " .. getArticle(mostDamageKiller) .. " " .. string.lower(mostDamageKiller) end end str = str .. breakline .. " " .. time .. " Died at Level " .. level .. " by " .. killed .. "." until not(deaths:next()) or n > config.displayLimit deaths:free() else str = "No deaths recorded." end doPlayerPopupFYI(cid, "Deathlist for player: " .. targetName .. ".\n\n" .. str) return TRUE end Obs> Delete Tudo, de DeathList antigos que tu tenha na pasta do seu otserv para nao dar debug.. Abraços..
  20. Aff Nunca consigo participar nessas coisas! e quando participo perco
  21. Opa 1 Topico Meu Abraços..
  22. Cara, Vamos ver vou te Fazer 2 Perguntinhas.. Tem que Responder!! 1. Voce Editou as Ids da Vocations? Seu ot tem novas vocations Etc? ou Algo do Script? Poste - As.. 2. Deu Algum Erro no Distro? Poste - Los Meus Comentarios: Eu Acho que Seu ot tem as Ids das Voc Sorc, Kina e etc.. Diferente que ta no script... pq essa versao de Npc esta na 8.40 ou 8.5.. ou Voce mecheu em algo errado do script...
  23. Blz Cara vlw pela ajuda!! vou tentar melhorar !!
  24. Cara tenhu um Aqui , Nao tem Interaçao com os Players ele ve um Pk e Sai Corrento para matar... Se quiser!! Data>Npc crie uma pasta.xml chamada Policial do Ot e coloque isso dentro: <?xml version="1.0" encoding="UTF-8"?> <npc name="Policial do Ot" script="data/npc/scripts/policial.lua" walkinterval="2000" speed="2000" floorchange="0"> <health now="100" max="100"/> <look type="134" head="79" body="86" legs="114" feet="0" addons="3"/> </npc> Agora vá em Data>Npc>Scripts crie uma pasta.lua chamada policial e coloque isso: local target = 0 local prevTarget = 0 local maxChaseDistance = 20 local origPos = 0 local lastAttack = 0 local followTimeout = 1000 local function isSkulled(cid) if(getPlayerSkullType(cid) >= 3 and isPlayerPzLocked(cid) == TRUE) then return true end return false end local function goToOrigPos() target = 0 lastAttack = 0 selfFollow(0) doTeleportThing(getNpcCid(), origPos) end local function updateTarget() if(isPlayer(target) == FALSE) then goToOrigPos() elseif(not isSkulled(target)) then selfSay("Vou te Pegar!! Algum Dia...") goToOrigPos() end if(target == 0) then local list = getSpectators(getNpcPos(), 9, 9, false) for i = 1, table.getn(list) do local _target = list[i] if(_target ~= 0) then if(isPlayer(_target) == TRUE and isSkulled(_target)) then if(getTilePzInfo(getCreaturePosition(_target)) == FALSE) then if(selfFollow(_target)) then target = _target if(target ~= prevTarget) then selfSay("Hahahah Seu Verme Noob , é Hora de Morrer!") end prevTarget = target break end end end end end end end function onCreatureAppear(cid) if(cid == getNpcCid()) then origPos = getNpcPos() end end function onCreatureDisappear(cid) if(cid == target) then goToOrigPos() end end function onCreatureMove(creature, oldPos, newPos) -- end function onThink() updateTarget() if(target == 0) then return end local playerPos = getCreaturePosition(target) local myPos = getNpcPos() if(myPos.z ~= playerPos.z) then goToOrigPos() return end if(math.abs(myPos.x - origPos.x) > maxChaseDistance or math.abs(myPos.y - origPos.y) > maxChaseDistance) then selfSay("I'll catch you next time.") goToOrigPos() return end if(lastAttack == 0) then lastAttack = os.clock() end if(os.clock() - lastAttack > followTimeout) then selfSay("Voce Esta Esgotando Meu Tempo Voce Vai Morrer!") goToOrigPos() return end if((math.abs(playerPos.x - myPos.x) <= 1) and (math.abs(playerPos.y - myPos.y) <= 1)) then doTargetCombatHealth(getNpcCid(), target, COMBAT_LIFEDRAIN, -500000, -1000000, 9) lastAttack = os.clock() end end Depois Edite ao Seu Gosto!!! Se nao Souber editar o Atack, as Falas e o Efeito do Atack do Policial Posta no Topico que te ajudo!! Abraços..
  25. Cara so achei o Son of Verminor se for ele toma ai <?xml version="1.0" encoding="UTF-8"?> <monster name="Son of Verminor" nameDescription="the Son of Verminor" race="venom" experience="5900" speed="220" manacost="0"> <health now="8500" max="8500"/> <look type="19" corpse="1496"/> <targetchange interval="5000" chance="8"/> <strategy attack="100" defense="0"/> <flags> <flag summonable="0"/> <flag attackable="1"/> <flag hostile="1"/> <flag illusionable="0"/> <flag convinceable="0"/> <flag pushable="0"/> <flag canpushitems="1"/> <flag canpushcreatures="1"/> <flag targetdistance="1"/> <flag staticattack="90"/> <flag runonhealth="0"/> </flags> <attacks> <attack name="melee" interval="2000" skill="95" attack="100"/> <attack name="poison" interval="2000" chance="15" range="7" min="-145" max="-300"> <attribute key="shootEffect" value="poison"/> </attack> <attack name="poison" interval="2000" chance="10" range="7" radius="3" target="0" min="-115" max="-600"> <attribute key="areaEffect" value="poison"/> </attack> </attacks> <defenses armor="23" defense="32" > <defense name="outfit" interval="4200" chance="50" monster="rat" duration="5000"> <attribute key="areaEffect" value="blueshimmer"/> </defense> <defense name="outfit" interval="6200" chance="50" monster="larva" duration="4000"> <attribute key="areaEffect" value="blueshimmer"/> </defense> <defense name="outfit" interval="8200" chance="50" monster="scorpion" duration="3000"> <attribute key="areaEffect" value="blueshimmer"/> </defense> </defenses> <immunities> <immunity physical="0"/> <immunity energy="0"/> <immunity fire="0"/> <immunity poison="1"/> <immunity lifedrain="0"/> <immunity paralyze="1"/> <immunity outfit="1"/> <immunity drunk="1"/> <immunity invisible="1"/> </immunities> <voices interval="5000" chance="10"> <voice sentence="Blub!" yell="1"/> <voice sentence="Blub! Blub!" yell="1"/> <voice sentence="Come'on Daddy! Help me" yell="1"/> </voices> </monster>
  • Quem Está Navegando   0 membros estão online

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