Ir para conteúdo

kkk111

Campones
  • Total de itens

    27
  • Registro em

  • Última visita

  • Dias Ganhos

    1

Tudo que kkk111 postou

  1. Ve ai function onSay(cid, words, param, channel) local money = 4000 -- o preço do item em gold ingot local items = 2150 -- numero do item que vai comprar local StorageVip = 1111 -- numero da storage dos vips if getPlayerStorageValue(cid,StorageVip) >= 1 then if getPlayerItemCount(cid, 9971) >= money then doPlayerRemoveItem(cid, 9971, money) doPlayerAddItem(cid, items, 1) doSendMagicEffect(getCreaturePosition(cid),13) doCreatureSay(cid, "Thanks!", TALKTYPE_ORANGE_1) else doCreatureSay(cid, "Você não tem "..money.." gold ingot!", TALKTYPE_ORANGE_1) end else doCreatureSay(cid, "Você não é VIP!", TALKTYPE_ORANGE_1) end return TRUE end <talkaction words="XXXX" script="buyitems.lua"/> XXXX = !buy nome do item
  2. Usa esse aqui local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_HEALING) setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE) setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, false) setCombatParam(combat, COMBAT_PARAM_TARGETPLAYERSORSUMMONS, true) setCombatParam(combat, COMBAT_PARAM_DISPEL, CONDITION_PARALYZE) function onGetFormulaValues(cid, level, maglevel) local min = ((level/5)+(maglevel*10)) local max = ((level/5)+(maglevel*12)) return min, max end setCombatCallback(combat, CALLBACK_PARAM_LEVELMAGICVALUE, "onGetFormulaValues") local area = createCombatArea(AREA_CIRCLE3X3) setCombatArea(combat, area) function onCastSpell(cid, var) return doCombat(cid, combat, var) end De nada =D
  3. intão é facil ! so trocar if player_money >= money then if bless1 ~= 1 and bless2 ~= 1 and bless3 ~= 1 and bless4 ~= 1 and bless5 ~= 1 then por if bless1 ~= 1 and bless2 ~= 1 and bless3 ~= 1 and bless4 ~= 1 and bless5 ~= 1 then if player_money >= money then fica assim ó: function onUse(cid, item, frompos, item2, topos) local crystalCoins = getPlayerItemCount(cid, 2160) local platinumCoins = getPlayerItemCount(cid, 2152) local goldCoins = getPlayerItemCount(cid, 2148) player_money = crystalCoins * 10000 + platinumCoins * 100 + goldCoins money = 50000 -- 50k bless1 = getPlayerBlessing(cid, 1) bless2 = getPlayerBlessing(cid, 2) bless3 = getPlayerBlessing(cid, 3) bless4 = getPlayerBlessing(cid, 4) bless5 = getPlayerBlessing(cid, 5) if bless1 ~= 1 and bless2 ~= 1 and bless3 ~= 1 and bless4 ~= 1 and bless5 ~= 1 then if player_money >= money then doPlayerAddBlessing(cid, 1) doPlayerAddBlessing(cid, 2) doPlayerAddBlessing(cid, 3) doPlayerAddBlessing(cid, 4) doPlayerAddBlessing(cid, 5) doPlayerRemoveMoney(cid,money) doSendMagicEffect(getCreaturePosition(cid),17) doCreatureSay(cid, "Thanks!", TALKTYPE_ORANGE_1) else doCreatureSay(cid, "Você não tem "..money.." gps!", TALKTYPE_ORANGE_1) else doCreatureSay(cid, "Você ja tem Bless!", TALKTYPE_ORANGE_1) end end <action uniqueid="XXXXX" script="XXXXXX.lua"/> Ve se agora está do seu gosto !
  4. aah.. agora que eu vi esse negosio de "dinheiro unico" ai... passa o id do "dinheiro unico" que eu ja ageito em script aqui se quiser algo de expecial ja fala tambem ou é so !buy axe ja compra ?
  5. =D se alguem tiver mais algum script pra min faze diga ai posso nao fazer direiro mas vou tentar pelo menos
  6. deixa eu ver se entendi... você que se cobre 50k das bless certo? e quer q se tiver bless já nao de para compra mais é isso? se for function onUse(cid, item, frompos, item2, topos) local crystalCoins = getPlayerItemCount(cid, 2160) local platinumCoins = getPlayerItemCount(cid, 2152) local goldCoins = getPlayerItemCount(cid, 2148) player_money = crystalCoins * 10000 + platinumCoins * 100 + goldCoins money = 50000 -- 50k bless1 = getPlayerBlessing(cid, 1) bless2 = getPlayerBlessing(cid, 2) bless3 = getPlayerBlessing(cid, 3) bless4 = getPlayerBlessing(cid, 4) bless5 = getPlayerBlessing(cid, 5) if player_money >= money then if bless1 ~= 1 and bless2 ~= 1 and bless3 ~= 1 and bless4 ~= 1 and bless5 ~= 1 then doPlayerAddBlessing(cid, 1) doPlayerAddBlessing(cid, 2) doPlayerAddBlessing(cid, 3) doPlayerAddBlessing(cid, 4) doPlayerAddBlessing(cid, 5) doPlayerRemoveMoney(cid,money) doSendMagicEffect(getCreaturePosition(cid),17) doCreatureSay(cid, "Você ja tem Bless!", TALKTYPE_ORANGE_1) else doCreatureSay(cid, "Thanks!", TALKTYPE_ORANGE_1) else doCreatureSay(cid, "Você não tem "..money.." gps!", TALKTYPE_ORANGE_1) end end <action uniqueid="XXXXX" script="XXXXXX.lua"/> assim você quer? se não for explica direito
  7. consertesa talkactions/scripts/buyaxe.lua function onSay(cid, words, param, channel) local crystalCoins = getPlayerItemCount(cid, 2160) local platinumCoins = getPlayerItemCount(cid, 2152) local goldCoins = getPlayerItemCount(cid, 2148) player_money = crystalCoins * 10000 + platinumCoins * 100 + goldCoins local money = 4000 -- dinheiro local axe = 2150 -- numero do axe if player_money >= money then doPlayerRemoveMoney(cid,money) doPlayerAddItem(cid, axe, 1) doCreatureSay(cid, "Thanks!", TALKTYPE_ORANGE_1) else doCreatureSay(cid, "Você não tem "..money.." gps!", TALKTYPE_ORANGE_1) end return TRUE end talkactions.xml <talkaction words="!buy super axe" script="buyaxe.lua"/>
  8. kkk111

    Npc Anunciador

    para que ? :S ta no tempo do ot 8.1 ainda? npc para broadcast npc para save tbm?
  9. uhAuhAuhauAHuHAuhA acredite se quiser... NEM VI O SEU SCRIPT (mas vou ver agora) edit realmente está igualzinho... seu... function onStepIn() --Config local Monster = { [1] = {"Demon",{x=130, y=130, z=10}}, [2] = {"Rat",{x=130, y=130, z=10}} } for i = 1, #Monster do doCreateMonster(Monster[i][1], Monster[i][2]) end return true end meu.. local monster = "hydra" -- monstro local lugardele = {x=706, y=608, z=7} -- lugar local msg = "HaHaahahaha..." -- msg function onStepIn(cid, item, topos) if isPlayer(cid) == TRUE then if item.actionid == 19999 then if getPlayerStorageValue(cid, 19999) == -1 then doSummonCreature(monster,lugardele) doSendMagicEffect(lugardele,17) doCreatureSay(cid, msg, TALKTYPE_ORANGE_1) setGlobalStorageValue(19999, 1) end end end end IDENTICO !
  10. kkk111

    Npc Anunciador

    Mas com npc somente as pessoas em volta vai ver ! mas ja que ele quer pera ai que posto... @edit data/npc/name.xml <?xml version="1.0" encoding="UTF-8"?> <npc name="NAME" script="data/npc/scripts/lol.lua"> <health now="100" max="100"/> <look type="130" head="0" body="77" legs="91" feet="0" addons="3"/> </npc> data/npc/scripts/lol.lua 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 function thinkCallback(cid) local rand = math.random(1,100) if rand == 1 then selfSay('PROPRAGANDA AQUIIIIIIIIIIIIIIII') end return true end function greetCallback(cid) return true end npcHandler:setCallback(CALLBACK_ONTHINK, thinkCallback) npcHandler:setCallback(CALLBACK_GREET, greetCallback) npcHandler:addModule(FocusModule:new()) Feito
  11. :S ta feia a coisa hj em usa esse local monster = "hydra" -- monstro local lugardele = {x=706, y=608, z=7} -- lugar local msg = "HaHaahahaha..." -- msg function onStepIn(cid, item, topos) if isPlayer(cid) == TRUE then if item.actionid == 19999 then if getPlayerStorageValue(cid, 19999) == -1 then doSummonCreature(monster,lugardele) doSendMagicEffect(lugardele,17) doCreatureSay(cid, msg, TALKTYPE_ORANGE_1) setGlobalStorageValue(19999, 1) end end end end <movevent type="StepIn" actionid="19999" script="xxxx.lua"/> ta pra fazer 1x só testado e aprovado =D *obs: se você quizer q fique fazendo direto tire essa linha setGlobalStorageValue(19999, 1)
  12. guenta ai que eu ja ajeito aqui *edit so muda esse function onDeath(cid, corpse, killer) registerCreatureEvent(cid, "MonsterKilled") in_pos = {x=703, y=600, z=7, stackpos=1} -- lugar que aparece o teleport to_pos = {x=703, y=603, z=7, stackpos=1} -- lugar que vai ir o teleport timeremove = 180 -- em segundos message = "Msg aqui" -- msg monsterhere = 'Pythius The Rotten' -- nome do monstro local creaturename = getCreatureName(cid) if creaturename == monsterhere then doCreateTeleport(1387, to_pos, in_pos) doSendMagicEffect(in_pos, CONST_ME_TELEPORT) doCreatureSay(cid, message, TALKTYPE_ORANGE_1) addEvent(removeTeleport, (1000*timeremove)) end end function removeTeleport() if getThingfromPos(in_pos).itemid == 1387 then doRemoveItem(getThingfromPos(in_pos).uid,1) doSendMagicEffect(in_pos, CONST_ME_POFF) return TRUE end end esta funcionando agora =D
  13. ai vai... function onUse(cid, item, frompos, item2, topos) local crystalCoins = getPlayerItemCount(cid, 2160) local platinumCoins = getPlayerItemCount(cid, 2152) local goldCoins = getPlayerItemCount(cid, 2148) player_money = crystalCoins * 10000 + platinumCoins * 100 + goldCoins money = 50000 -- 50k if player_money >= money then doPlayerAddBlessing(cid, 31) doPlayerRemoveMoney(cid,money) doSendMagicEffect(getCreaturePosition(cid),17) doCreatureSay(cid, "Thanks!", TALKTYPE_ORANGE_1) else doCreatureSay(cid, "Você não tem "..money.." gps!", TALKTYPE_ORANGE_1) end end <action uniqueid="XXXXX" script="XXXXXX.lua"/> Ve ai se funfo // nem testei
  14. local monster = "hydra" -- monstro local lugardele = {x=3335, y=3071, z=8} -- lugar local msg = "HaHaahahaha..." function onStepIn(cid, item, topos) if item.actionid == 19999 and getPlayerStorageValue(uid, 19999) == -1 then doSummonCreature(monster,lugardele) doSendMagicEffect(lugardele,17) doCreatureSay(cid, msg, TALKTYPE_ORANGE_1) setGlobalStorageValue(19999, 1) then end end <movevent type="StepIn" actionid="19999" script="xxxx.lua"/> ta pra fazer 1x só testa ai e me fala oque deu // nem testei
  15. se tiver ira sumonar 1x só ou quantas você desejar !
  16. Para que vocês complica tanto ? function onStepIn(cid, item, topos) if item.actionid == 19999 then doSummonCreature("Treiner",{x=3335, y=3071, z=8}) end end <movevent type="StepIn" actionid="19999" script="xxxx.lua"/> ???? se quiser use funções getPlayerStorageValue(uid, key) setGlobalStorageValue(key, newValue) sem mais
  17. Blz vamo la... 1º Em data/creaturescripts/scripts/ crie um chamado monsterkilled.lua 2º Coloque endentro: function onDeath(cid, corpse, killer) registerCreatureEvent(cid, "MonsterKilled") local in_pos = {x=859, y=837, z=6, stackpos=2} -- lugar que aparece o teleport local to_pos = {x=588, y=1086, z=7, stackpos=1} -- lugar que vai ir o teleport local timeremove = 180 -- em segundos local message = "Msg aqui" -- msg local monsterhere = 'Orshabaal' -- nome do monstro local creaturename = getCreatureName(cid) if creaturename == monsterhere then doCreateTeleport(1387, to_pos, in_pos) doSendMagicEffect(in_pos, CONST_ME_TELEPORT) doCreatureSay(cid, message, TALKTYPE_ORANGE_1) addEvent(removeTeleport, (1000*timeremove)) end end function removeTeleport() if getThingfromPos(in_pos).itemid == 1387 then doRemoveItem(getThingfromPos(in_pos).uid,1) doSendMagicEffect(in_pos, CONST_ME_POFF) return TRUE end end Edite conforme suas nessecidades... 3º Em data/creaturescripts/creaturescripts.xml <event type="death" name="MonsterKilled" script="monsterkilled.lua"/> 4º Em data/creaturescripts/scripts/login.lua Embaixo de registerCreatureEvent(cid, "Mail") Adicione registerCreatureEvent(cid, "MonsterKilled") 5º Agora vai em data/monster/ Escolha o monstro que vai ter que matar e adicione a ele no final de </flags> vai ficar assim: </flags> <script> <event name="MonsterKilled"/> </script> Fim. *Qualquer coisa fala ai
  18. kkk111

    Npc Anunciador

    usa esse... vai em data/globalevents/scripts/ cria um aquivo chamado msg.lua e coloca isso dentro... texto = "blablablablabla!" function onThink(interval, lastExecution, thinkInterval) doBroadcastMessage(texto) return TRUE end em globalevents.xml coloque <globalevent name="msg" interval="1800" event="script" value="msg.lua"/> em interval="1800" coloque o tempo entre as msg EM SEGUNDOS /// 1800 = 30 MINUTO
  19. Vamo ver... function onStepIn(cid, item, position, fromPosition, param, words) playername = getPlayerName(cid) message = 'You have absorved the spirit of Verminor, the Plaguelord.' status = getPlayerStorageValue(cid,4078) doCreatureSay(cid, message, TALKTYPE_ORANGE_1) setPlayerStorageValue(cid,9000,1) end Atualizando... function onStepIn(cid, position, fromPosition) if isPlayer(cid) == TRUE then doSendMagicEffect(getCreaturePosition(cid), 4) doCreatureSay(cid, "You have absorved the spirit of Verminor, the Plaguelord.", TALKTYPE_ORANGE_1) setPlayerStorageValue(cid,9000,1) end end Movements.xml <movevent type="StepIn" uniqueid="XXX" script=".lua"/> Edita: script=".lua" ---- nome do arquivo ...data/movements/scripts/ ..... .lua uniqueid="XXX" ----Coloca a uniqueid ou action // se for actionid fica assim <movevent type="StepIn" actionid="XXX" script=".lua"/> ... e a respeito do addons, explica um poquinho melhor
  20. Nem vo fala nada Primeiro você me ajuda em algo depois eu coloco creditos pra você ! @pally2008 ja fiz bastante respaw de bicho mas to tentando faze as magias falta 3 ainda
  21. Rashid - Items/Preço RL Vai em .../data/npc/script copie-cole um arquivo renomei para rashid.lua apague oque estiver endentro e cole isso . 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 npcHandler:addModule(FocusModule:new()) Depois em .../data/npc rashid.xml <?xml version="1.0"?> <npc name="Rashid" script="data/npc/scripts/rashid.lua" walkinterval="25" access="3" lookdir="2"> <mana now="800" max="800"/> <health now="200" max="200"/> <look type="146" head="114" body="101" legs="122" feet="115" addons="3"/> <parameters> <parameter key="module_shop" value="1"/> <parameter key="shop_sellable" value="beholder helmet,3972,7500; devil helmet,2462,1000; glacier mask,7902,2500; lightning headband,7901,2500; krimhorn helmet,7461,200; magma monocle,7900,2500; pirate hat,6096,1000; ragnir helmet,7462,400; skull helmet,5741,40000; terra hood,7903,2500; --- Boots --- Steel Boots,2645,30000; crocodile boots,3982,1000; fur boots,7457,2000; glacier shoes,7892,2500; lightning boots,7893,2500; magma boots,7891,2500; pirate boots,5462,3000; terra boots,7886,2500; --- Armors --- dragon scale mail,2492,40000; golden armor,2466,20000; dwarven armor,2503,30000; glacier robe,7897,11000; hibiscus dress,8873,3000; leopard armor,3968,1000; skullcracker armor,8889,18000; paladin armor,8891,15000; lightning robe,7898,11000; magma coat,7899,11000; mammoth fur cape,7463,6000; pirate shirt,6095,500; terra mantle,7884,11000; --- Legs --- glacier kilt,7896,11000; lightning legs,7895,11000; magma legs,7894,11000; pirate knee breeches,5918,200; terra legs,7885,11000; --- Shields --- bone shield,2541,80; demon shield,2520,30000; castle shield,2535,5000; medusa shield,2536,8000; dark shield,2521,400; norse shield,7460,1500; scarab shield,2540,2000; spellbook of enlightenment,8900,4000; tortoise shield,6131,150; --- Armas --- amber staff,7426,8000; beastslayer axe,3962,1500; brutetamer's staff,7379,1500; crystal sword,7449,600; chaos mace,7427,12000; daramanian mace,2439,110; dragon slayer,7402,15000; daramanian waraxe,2440,1000; demonrage sword,7382,25000; diamond sceptre,7387,3000; dragonbone staff,7430,3000; furry club,7432,1000; guardian halberd,2427,11000; heroic axe,7389,30000; heavy machete,2442,90; lunar staff,7424,5000; mammoth whopper,7381,300; mystic blade,7384,30000; noble axe,7456,6000; mercenary sword,7386,12000; ornamented axe,7411,11000; relic sword,7745,10000; sapphire hammer,7437,7000; silver dagger,2402,500; spiked squelcher,7452,5000; taurus mace,7425,500; war axe,2454,9000; wyvern fang,7408,1500; --- Armas Encantadas --- earth dragon slayer,7858,15000; energy dragon slayer,7873,15000; fiery dragon slayer,7748,15000; icy dragon slayer,7767,15000; earth war axe,7863,9000; energy war axe,7878,9000; fiery war axe,7753,9000; icy war axe,7772,9000; earth mystic blade,7856,30000; energy mystic blade,7871,30000; fiery mystic blade,7746,30000; icy mystic blade,7765,30000; --- Amulets e Rings --- platinum amulet,2171,2500; ancient amulet,2142,200; gold ring,2179,8000; ring of the sky,2123,30000; glacier amulet,7888,1500; scarab amulet,2135,200; --- Diversos --- light shovel,5710,300; silver brooch,4845,150 "/> </parameters> </npc>
  22. Seus creditos ? Porque ? Noque voce me ajudo ? :blink: So pode ta de zuera né ?
  • Quem Está Navegando   0 membros estão online

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