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. 1: Muintas Pessoas Conseguem Fazer Isso!! 2: Ageite um Pouco o Topico nao Entendi nada! 3: Reprovado :button_cancel: Abraços..
  9. Desculpa pela pergunta Idiota, é pq eu so Retardado e nao intendo nada de Programaçao!! Aonde eu Coloco Tudu Isso? Abraços..
  10. 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..
  11. Vod , no caso o script o cara se fosse "Vip" Logasse ja Ganhava Double? Explica O Script ae!! Abraços..
  12. 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
  13. Acho que ja sei o Problema!! Como Posso Dizer!! Seu Otserv nao Roda o Script!! Mais tente Usar este! Blessing
  14. 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...
  15. 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...
  16. 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..
  17. 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..
  18. 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..
  19. Aff Nunca consigo participar nessas coisas! e quando participo perco
  20. 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...
  21. 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..
  22. 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...