drakylucas

isso nao é vip isso é refinaçao ¬¬ cara vou fazer pa você usando funções "do VIP Sistem do kydrai by Account" http://www.xtibia.com/forum/topic/136543-vip-system-by-account-v10/ pronto.. em data / creaturescripts / scripts / login.lua no finalzin la coloca isso: registerCreatureEvent(cid, "promovip") no creaturescripts.xml coloque isso: <event type="login" name="promovip" event="script" value="promovip.lua"/> em creaturescripts/scripts crie um arquivo chamado promovip e nele coloque isso function onLogin(cid) if not isVip(cid) and getPlayerVocation(cid) >= 9 then doPlayerSetVocation(cid,getPlayerVocation(cid) - 4) doPlayerSendTextMessage(cid,25,"Sua promotion VIP foi removida.") end return true end aceito rep kkk

cara isso é pa OT que usa SQLITE =d o seu deve ser em MySql =d

nao sei se no 8.10 funciona.. mais vc ker um estilo soft boots? =D coloca seu item +/- assim (items.xml) [code] <item id="2640" article="a" name="pair of soft boots"> <attribute key="slotType" value="feet" /> <attribute key="healthGain" value="1000" /> <attribute key="healthTicks" value="2000" /> <attribute key="manaGain" value="1000" /> <attribute key="manaTicks" value="1000" /> </item> as[/code]sim na soft boots a cada 2 sec vc ganha 1000 de health e a cada 1 sec vc ganha 1000 de mana =D caso seja um script de um item que ao der use ganhe health.. use esse: function onUse(cid, item, frompos, item2, topos) doRemoveItem(item.uid,1) doCreatureAddHealth(cid,(getCreatureMaxHealth(cid)-getCreatureHealth(cid))) return true end é uma action =D

cara pa ke reviver akele topico? usa o sistema do kydrai.. é mto melhor e tem o /addvip NICK,DIAS =d.. funfa msmo com o player off ^^ http://www.xtibia.com/forum/topic/136543-vip-system-by-account-v10/

os 10% dele foi muda o numero 3 (TALKTYPE_YELL) pa TALKTYPE_SAY kpeokoekepokeop vlw pelo crédito=D

em globalevents / scripts crie um effect.lua e coloque isso function onThink(interval, lastExecution) local random = math.random(1,254) doSendAnimatedText({x=1000,y=2000,z=7}, "TRAINERS!", random) doSendAnimatedText({x=1010,y=2000,z=7}, "EMO!", random) doSendAnimatedText({x=1020,y=2000,z=7}, "EMOX OWN!", random) return true end só adicione mais linhas e mude os textos / posições <globalevent name="animation" interval="2" script="effect.lua"/> testa ae =D créditos meus =d

vo faze um script pa você e ja edito esse post. nao gostei muito da sua base vo faze um melhorzin ake =d edit: testa isso: function onSay(cid, words, param, channel) local target = db.getResult("SELECT `name`, `id` FROM `players` WHERE `name` = " .. getPlayerGUIDByName(param) .. ";") if(target:getID() == -1) then doPlayerSendCancel(cid, "Esse Player nao Existe.") return TRUE end local str = "" local deaths = db.getResult("SELECT `date`, `level`, `killed_by`, `altkilled_by` FROM `player_deaths` WHERE `player_id` = " .. getPlayerGUIDByName(param) .. ";") 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("date")) 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 > 10 doPlayerPopupFYI(cid, "Deathlist for player: " .. param .. ".\n\n" .. str) return TRUE end é uma talkaction.. fale a palavra que vc coloca no xml espaço nome do player.. exemplo: !deaths "Ronaldo testei aqui e funcionou.. se ai nao funcionar é seu distro =d

esse script é impossivel em lua.. no caso da svke ele foi feito em C++.. arrume um programador =d dica: ele foi feito utilizando o sistema de party, apenas colocaram mais botoes como na pokedex deles (vc abre uma caixa com varios paineis) e fizeram uns if a mais.. tudo nas source.

testa isso =d function onSay(cid, words, param, channel) local summons = getCreatureSummons(cid) if #summons == 0 then return doPlayerSendCancel(cid,"Blabla") end doPlayerCastSpell(getCreatureSummons(cid)[1], param) return true end agora no XML coloque por exemplo words m1 e no jogo fale m1 "Exori =d se nao me engano a thalia é o lukinhas neh? intao cara fazer o summon solta a magia é facil.. tipo só a pessoa digita m1 e ele solta de acordo com o summon.. o problema do m1 m2 é colocar o delay sendo que o os.time pega o tempo em Cpu porém pega o msmo tempo em 2 ou 3 execuções no msmo script =/

ele quer um sistema de pokemon em resumo seta um group id com um flag que o player nao tome dano no seu go e no back seta o group id 1 de volta.

nao intendi direito.. ve se é isso function onLogin(cid) local storage = 1234 local vip = isVip(cid) if getVipTime(cid) > 0 and vip == FALSE then local townid = 1 doPlayerSetTown(cid, townid) local templePos = getTownTemplePosition(getPlayerTown(cid)) doTeleportThing(cid, templePos, false) setVipTime(cid, 0) doTeleportPlayers(cid, templePos) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Sua Vip acabou!") setPlayerStorageValue(cid,storage,0) elseif vip == TRUE then local duration = getVipDate(cid) doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você possui "..getVipDays(cid).." dia(s) de vip."..(duration and (" Ela irá durar até "..duration..".") or "")) setPlayerStorageValue(cid,storage,1) end return TRUE end

cara tipo stages vc define as rates.. caso você almente ou diminua o level dos players nao serao alterados.. as rates claro que serao. se antes tava 100x em detemrinado lvl e vc mudo pa 50x os players antigos tb vao mudar pa 50x.

edita isso: é só vc modificar as msgs e as action ids e a id da ball =d xml: <?xml version="1.0" encoding="UTF-8"?> <npc name="Elric" script="data/npc/scripts/alchemy.lua" walkinterval="3000"> <health now="100" max="100"/> <look type="333"/> </npc> script: local focus = 0 local talk_start = 0 function onCreatureDisappear(cid, pos) if focus == cid then selfSay('Good bye then.') focus = 0 talk_start = 0 end end function msgcontains(txt, str) return (string.find(txt, str) and not string.find(txt, '(%w+)' .. str) and not string.find(txt, str .. '(%w+)')) end function onCreatureSay(cid, type, msg) msg = string.lower(msg) if (msgcontains(msg, 'hi') and (focus == 0)) and getDistanceToCreature(cid) < 4 then selfSay('Hello ' .. getCreatureName(cid) .. '! I sell all things related to "alchemy".') focus = cid talk_start = os.clock() elseif msgcontains(msg, 'hi') and (focus ~= cid) and getDistanceToCreature(cid) < 4 then selfSay('Sorry, ' .. getCreatureName(cid) .. '! I talk to you in a minute.') elseif focus == cid then talk_start = os.clock() if msgcontains(msg, 'alchemy') then selfSay('Ahh, yes I have "recipes", "recipe book", and "alchemic kits" , for sale which do you want to know more about?') talk_state = 1 elseif talk_state == 1 then if msgcontains(msg, 'recipe book') then price = 1000 selfSay('I have this recipe book that you can use to see the recipes you have learned, do you want to buy it for '.. price ..' gold?') talk_state = 4 item = 1965 rtrn = 1 elseif msgcontains(msg, 'recipes') then if getPlayerStorageValue(cid, 50500) == -1 then selfSay('You don\'t seem to know much about alchemy go study first.') talk_state = 1 else selfSay('Yes, I have a list of recipes for "beginner" and "advanced" Alchemists, which would you like to see?.') talk_state = 2 end elseif msgcontains(msg, 'alchemic kit') then price = 10000 selfSay('This is a special kit used just for alchemy, would you like to buy it for '.. price ..' gold?.') talk_state = 4 item = 6104 rtrn = 1 elseif msgcontains(msg, 'bye') then selfSay('Good bye, ' .. getCreatureName(cid) .. '!') focus = 0 talk_start = 0 end elseif talk_state == 2 then if msgcontains(msg, 'beginner') then selfSay('At the beginner level I sell recipes for: "antidote", "platinum coin", "mind stone", "soul orb", "blood orb", "love potion", "ectoplasm", "weak mana rune", "crystal coin", "sparkling mummy doll". which one do you want?') talk_state = 3 elseif msgcontains(msg, 'advanced') then selfSay('At the Advanced level I sell recipes for: "berserk potion", "mastermind potion", "bullseye potion", "mead horn", "gold bar", "mana rune", "clover amulet", "sword", "magic", "arrow". which one do you want?') talk_state = 3 else selfSay('That\'s too bad, maybe next time.') talk_state = 1 end elseif talk_state == 3 then item = 1954 rtrn = 2 if msgcontains(msg, 'antidote') then price = 1000 selfSay('Do you want to buy an Antidote recipe for ' ..price.. ' gold?') action = 50001 desc = 'This contains the recipe to make an Antidote.' talk_state = 4 elseif msgcontains(msg, 'platinum coin') then price = 2000 selfSay('For ' .. price ..' gold i can sell you the secert to minting platinum coins?') action = 50002 desc = 'This contains the formula for minting Platinum Coins.' talk_state = 4 elseif msgcontains(msg, 'mind stone') then price = 2000 selfSay('Do you want to buy a Mind Stone recipe for ' ..price.. ' gold?') action = 50003 desc = 'This contains the recipe to make a Mind Stones.' talk_state = 4 elseif msgcontains(msg, 'soul orb') then price = 2000 selfSay('Do you want to buy a Soul Orb recipe for ' ..price.. ' gold?') action = 50004 desc = 'This contains the recipe to make a Soul Orbs.' talk_state = 4 elseif msgcontains(msg, 'blood orb') then price = 5000 selfSay('Do you want to buy a Blood Orb recipe for ' ..price.. ' gold?') action = 50005 desc = 'This contains the recipe to make a Blood Orbs.' talk_state = 4 elseif msgcontains(msg, 'love potion') then price = 30000 selfSay('Do you want to buy a Love Potion recipe for ' ..price.. ' gold?') action = 50006 desc = 'This contains the recipe to make a Love Potions.' talk_state = 4 elseif msgcontains(msg, 'ectoplasm') then price = 20000 selfSay('Do you want to buy a Ectoplasm recipe for ' ..price.. ' gold?') action = 50007 desc = 'This contains the recipe to make some Ectoplasm.' talk_state = 4 elseif msgcontains(msg, 'intense mana rune') then price = 60000 selfSay('Do you want to buy a Intense Mana Rune recipe for ' ..price.. ' gold?') action = 50008 desc = 'This contains the recipe to make a Intense Mana Runes.' talk_state = 4 elseif msgcontains(msg, 'crystal coin') then price = 100000 selfSay('For ' .. price ..' gold i can sell you the secert to minting crystal coins?') action = 50009 desc = 'This contains the formula for minting Crystal coins.' talk_state = 4 elseif msgcontains(msg, 'sparkling mummy doll') then price = 100000 selfSay('Do you want to buy a Sparkling Mummy Doll Recipe for ' ..price.. ' gold?') action = 50010 desc = 'This contains the recipe to make a Sparkling Mummy Doll.' talk_state = 4 elseif msgcontains(msg, 'berserk potion') then price = 100000 selfSay('Do you want to buy a Berserk Potion recipe for ' ..price.. ' gold?') action = 50018 desc = 'This contains the recipe to make a Beserk Potion.' talk_state = 4 elseif msgcontains(msg, 'mastermind potion') then price = 100000 selfSay('Do you want to buy a Mastermind Potion recipe for ' ..price.. ' gold?') action = 50019 desc = 'This contains the recipe to make a Mastermind Potion.' talk_state = 4 elseif msgcontains(msg, 'bullseye potion') then price = 100000 selfSay('Do you want to buy a Bullseye Potion Recipe for ' ..price.. ' gold?') action = 50020 desc = 'This contains the recipe to make a Bullseye Potion.' talk_state = 4 elseif msgcontains(msg, 'mead horn') then price = 200000 selfSay('Do you want to buy a Mead Horn Recipe for ' ..price.. ' gold?') action = 50021 desc = 'This contains the recipe to make a Mean Horn.' talk_state = 4 elseif msgcontains(msg, 'gold bar') then price = 10000000 selfSay('For ' .. price ..' gold i can sell you the secret to minting gold bars?') action = 50022 desc = 'This contains the formula for minting Gold Bars.' talk_state = 4 elseif msgcontains(msg, 'ultimate mana rune') then price = 500000 selfSay('Do you want to buy a Potion of Ultimate Mana Recipe for ' ..price.. ' gold?') action = 50023 desc = 'This contains the recipe to make a Ultimate Mana rune.' talk_state = 4 elseif msgcontains(msg, 'clover amulet') then price = 1000000 selfSay('Do you want to buy a Clover Amulet Recipe for ' ..price.. ' gold?') action = 50024 desc = 'This contains the recipe to make a Clover Amulet.' talk_state = 4 elseif msgcontains(msg, 'sword') then price = 2000000 selfSay('Do you want to buy a sword Recipe for ' ..price.. ' gold?') action = 50025 desc = 'This contains the recipe to make a sword.' talk_state = 4 elseif msgcontains(msg, 'magic') then price = 2000000 selfSay('Do you want to buy magic Recipe for ' ..price.. ' gold?') action = 50026 desc = 'This contains the recipe to make magic.' talk_state = 4 elseif msgcontains(msg, 'arrow') then price = 2000000 selfSay('Do you want to buy an arrow Recipe for ' ..price.. ' gold?') action = 50027 desc = 'This contains the recipe to make arrow.' talk_state = 4 elseif msgcontains(msg, 'bye') then selfSay('Good bye, ' .. getCreatureName(cid) .. '!') focus = 0 talk_start = 0 end elseif talk_state == 4 then if msgcontains(msg, 'yes') then if getPlayerMoney(cid) >= price then selfSay('Here you go!') doPlayerRemoveMoney(cid, price) doPlayerAddItem(cid, item, 1) if action then doItemSetAttribute(getPlayerItemById(cid, true, 1954).uid, "aid", action) end if desc then doItemSetAttribute(getPlayerItemById(cid, true, 1954).uid, "description", desc) end if rtrn == 1 then talk_state = 2 else talk_state = 3 end else selfSay('You don\'t seem to have enough money.') if rtrn == 1 then talk_state = 2 else talk_state = 3 end end else selfSay('That\'s too bad, maybe next time.') if rtrn == 1 then talk_state = 2 else talk_state = 3 end end elseif msgcontains(msg, 'bye') then selfSay('Good bye, ' .. getCreatureName(cid) .. '!') focus = 0 talk_start = 0 end elseif msgcontains(msg, 'bye') and focus == cid then selfSay('Good bye, ' .. getCreatureName(cid) .. '!') focus = 0 talk_start = 0 end end function onThink() doNpcSetCreatureFocus(focus) if (os.clock() - talk_start) > 30 then if focus > 0 then selfSay('Next Please...') end focus = 0 end if focus ~= 0 then if getDistanceToCreature(focus) > 5 then selfSay('Good bye then.') focus = 0 end end end créditos: a todos os kra que contribuiram nesse sistema da otland. http://otland.net/f81/mod-alchemy-system-new-update-85584/ =d

cara tipo eu nao sei mexer no gesior, mais caso tenha como por com storage tbm da pa por normal eis as funções que podem ser utilizadas: Funções que utilizam o account id: doTeleportPlayersByAccount(acc, topos) -> Teleporta todos os players da account getVipTimeByAccount(acc) -> Pega o tempo de vip setVipTimeByAccount(acc, time) -> Edita o tempo de vip getVipDaysByAccount(acc) -> Pega o tempo de vip em dias isVipAccount(acc) -> Verifica se é vip addVipDaysByAccount(acc, days) -> Adiciona dias de vip doRemoveVipDaysByAccount(acc, days) -> Remove dias de vip getVipDateByAccount(acc) -> Pega a data e hora que irá terminar a vip Funções que utilizam o creature id (cid): doTeleportPlayers(cid, topos) -> Teleporta todos os players da account getVipTime(cid) -> Pega o tempo de vip setVipTime(cid, time) -> Edita o tempo de vip getVipDays(cid) -> Pega o tempo de vip em dias isVip(cid) -> Verifica se é vip addVipDays(cid, days) -> Adiciona dias de vip doRemoveVipDays(cid, days) -> Remove dias de vip getVipDate(cid) -> Pega a data e hora que irá terminar a vip no lugar da checagem de storage como deve ser de player vip coloca isVip(cid).. caso for de conta coloca isVipAccount(acc) e caso seja por tempo de player coloca getVipDays(cid) e se for de conta coloca getVipDaysByAccount(acc) caso vc ja tenha uma base de storage posta aqui que eu edito tudo pa vc =d

=D... tipo eu tinha feito pa poke msmo mais adaptei ao tibia.. antessó curava summon e tals.. agora ele cura summon e player.. as msgs tao pa player.. quem quiser que só cure summons muda isso if not isCreature(item2.uid) and not isPlayer(item2.uid) then pa isso if not isCreature(item2.uid) then =D

function onSay(cid,words,param) local summons = getCreatureSummons(cid) if #summons == 0 then return doPlayerSendCancel(cid,"Summon first please.") end doCreatureSay(getCreatureSummons(cid)[1],param,3) return true end simples =D no xml coloque só a palavra que no caso seria /msay e digita isso.. /msay "BUAHAHAA SEU NOOOB!

EDIT: consegui.. dps de testar todas as strings possiveis achei a que eu keria .. eu ja fiz meu [VIP] aparecer no nome de todos os chars da acc =D se alguem quiser pa tirar duvida tb eis a verificaçao: if string.sub(getCreatureName(cid), 1,6) == "[VIP] " then isso verifica se no nome entre a primeira caracter e a sexta esta escrito "[VIP] " =D dai pa fazer o sistema é só fazer um onLogin que sete o nome e verifique pa setar dinovo.. verificar vip etc.. o que deu mais trabalho foi pa axa a string =d

bem é um sisteminha de potions +/- igual ao do PO vc define o tempo que é pa curar.. a qtd (pode ser em percentagens ou nao.. como vc keira.) e o intervalo entre as curas. bem em actions.xml coloque isso: agora em actions/scripts crie um arquivo chamado greatpotion.lua e coloque isso em ROSA coloque o intervalo entre as curas. em Vinho coloque o tempo maximo que ficará curando. em Laranja coloque a formula do heal.. nesse caso irá curar 10% em 10% da vida maxima.. caso vc keira que cure em qtd e nao em percentagem coloque por exemplo 100.. 200.. que irá curar 100 em 100 ou 200 em 200.. =D tinha feito ele para um pedido na area de pedidos.. eu fiz um mais eu tinha que definir todos os addEvents entao fiz esse aqui.. vc só define o tempo maximo e os intervalos =D THX se gostaram clique no + >> e me deem REP + :button_ok: =D PLZ COMENTS 55 viewers e apenas 4 coments sendo 1 meu =d

rateStaminaGain = 3 muda pa rateStaminaGain = 15 -- isso fará com que ganhe 10 de stamina a cada min off =d

tipo assim no seu talkactions.xml ao invez disso: <talkaction words="craw" script="SexSystem.lua" /> pode estar isso <talkaction words="craw" script="SexSystem.lua" /> /> ou em outra tlak action.. ou ele ta faltando fexamento ou ta com fexamento a mais.. verifica ai.. olha uns pa cima e uns pa baixo dessa linha =d

simples..ta com 2 fexamentos na talkactions.. provavelmente na linha 90 vai ter /> />.. algo do tipo =d

nao intendi direito mas fiz oq eu intendi tipo uma quest que te da um outfit com full addon, certo? =d nela vc tb pode adiciona pa nao dar com addon nem nd.. =d function onUse(cid, item, frompos, item2, topos) local storage = 10000 local looktype = xxx -- looktype do seu outfit local addons = 3 -- 0 para nenhum, 1 para o primeiro, 2 para o segundo e 3 para os dois. if getPlayerStorageValue(cid,storage) >= 1 then return doPlayerSendCancel(cid,"voce ja fez essa quest.") end setPlayerStorageValue(cid,storage,1) doPlayerAddOutfit(cid,looktype,addons) doPlayerSendTextMessage(cid,25,"Voce completou essa quest.") return true end =D.. detalhe é actionid no xml e nao itemid... ai é só coloca a msma actionid do xml no bau da quest. mude o xxx po looktype do outfit que vai ganhar e o 3 para os addons que vai ganhar nakele outfit.

edit: fiz um melhor.. ta praticamente identico ao do PO.. =d só que tb pode usar em players pq tb fiz pa tibia kk mais no msmo tópico ja explikei como fazer pa só usar nos summon ^^ http://www.xtibia.com/forum/topic/142744-potion-diferente/page__gopid__943902#entry943902 =D =D