Ir para conteúdo

matheus1000

Artesão
  • Total de itens

    114
  • Registro em

  • Última visita

Tudo que matheus1000 postou

  1. Você botou isto na pasta function.lua: _warpzone = 2147483648 -- start storing strings here (THIS IS THE ABSOLUTE MAXIMUM VALUE FOR THIS) _maxlength = 1024 -- multiply by 3 to get the true length. setPlayerStorageInteger = setPlayerStorageValue getPlayerStorageInteger = getPlayerStorageValue function setPlayerStorageString(cid, key, value) if #value > (_maxlength-1) * 3 - 1 then -- Last word is reserved for 0 termination of the string. error("Storage string is too long") end if key > _warpzone / _maxlength then error("Storage string key is too large (" .. key .. ")") end key = _warpzone + key * _maxlength local word = 0 local wordwrap = 0 local wordcount = 0 local i = 1 while i <= #value do local byte = string.byte(string.sub(value, i, i)) word = bit.bor(word, bit.lshift(byte, wordwrap)) wordwrap = wordwrap + 8 if wordwrap == 24 then --[[ In the ideal world we would be able to store 4 characters per word, however, as the default return value for getPlayerStorageValue is -1, we cant use the last bit. ]]-- setPlayerStorageInteger(cid, key + wordcount, word) word = 0 wordwrap = 0 wordcount = wordcount + 1 end i = i + 1 end -- store the last word setPlayerStorageInteger(cid, key + wordcount, word) end function getPlayerStorageString(cid, key) if key > _warpzone / _maxlength then error("Storage string key is too large (" .. key .. ")") end key = _warpzone + key * _maxlength local wordcount = 0 local str = "" while true do if wordcount >= _maxlength then break end local word = getPlayerStorageInteger(cid, key + wordcount) if word == -1 then -- end of string break else -- Extract the 3 characters from the value byte = bit.band(word, 255) if byte == 0 then break else str = str .. string.char(byte) end byte = bit.rshift(bit.band(word, 65280), 8) if byte == 0 then break else str = str .. string.char(byte) end byte = bit.rshift(bit.band(word, 16711680), 16) if byte == 0 then break else str = str .. string.char(byte) end end wordcount = wordcount + 1 end return str end E isso: function doConvinceSummon(cid, creature, amount, pos) summonplayerpos = {x=pos.x, y=pos.y, z=pos.z, stackpos=253} summonplayer = getThingfromPos(summonplayerpos) if(summonplayer ~= nil and summonplayer.itemid > 0) then doPlayerSendCancel(cid,"There is not enough room to summon here.") ret = 0 else convince = doSummonCreature(creature, pos) doConvinceCreature(cid, convince) ret = 1 end return ret end Obs.: No script que eu mandei não vem isso.
  2. Ótimo, meu amigo estava precisando. Vou mandar para ele. +REP
  3. Isto fica claro que ele copiou: Se ele mesmo tivesse feito, botaria outro efeito...
  4. Então bote os créditos da primeira pessoa que postou no XTibia e de quem fez. "Lembrando que eu so tive a idea, 99% dos creditos não sou eu que fiz. Creditos no final!" Você não postou quem criou.
  5. Tópico reportado. Pedido atendido.
  6. @Up Vá em data/lib e crie uma pasta chamada functions.lua e bote isso nela: Bom, no meu Ot ( que ta off ) é isso que está na functions, espero ter ajudado.
  7. @Destroyy Reviveu o tópico e será reportado, mas atenção na próxima. @Topic Nossa, muito bom. Vou ver se boto aqui no meu OTServer.
  8. @0maximo Não precisa não, mas se você quiser fazer um server de Pokemon eu recomendo usar um cliente próprio. @zani123 É o mesmo do Narutho, tanto que ele quer saber como há chance de captura. Ele não é scripter, está toda hora no pedidos de script.
  9. Já existe no fórum ( mas é de cocaina ): http://www.xtibia.com/forum/topic/2728-cocaina-action/
  10. data/talkactions/script crie uma pasta .lua e bote isto: Rosa: A animação Verde: Cor do texto data/talkactions/talkactions.xml bote isso: Bege: A palavra que o player terá que falar para aparecer a animação Azul: O nome do arquivo Espero ter ajudado.
  11. Vodkart, muito bom. Isso vale a pena botar nos Ot's. Obrigado por trazer o conteúdo ao XTibia
  12. Tente pôr isto: doCreatureSay(cid, "IRRHAAA", TALKTYPE_ORANGE_1) Espero ter ajudado.
  13. Me passe o script da rune. Que poderei ajuda-lo.
  14. É só adicionar isto no script da mana rune : Espero ter ajudado.
  15. @locosprot Pokeball é uma bola vermelha e branca que captura pokémons.
  16. Não vi o problema. Mas vou passar o da parte do ban, do meu config.lua: notationsToBan = 3 warningsToFinalBan = 4 warningsToDeletion = 5 banLength = 1 * 24 * 60 * 60 finalBanLength = 1 * 24 * 60 * 60 ipBanishmentLength = 1 * 24 * 60 * 60 broadcastBanishments = "yes" killsToBan = 15 maxViolationCommentSize = 200 É só editar para quanto você quizer. Espero ter ajudado. ;D
  17. Olá XTibianos, hoje vim aqui para mostrar uma talkaction muito legal, retirada do Styfler Yourots. Crie uma pasta em data/talkactions/script chamada deathlist.lua e bote isso dentro dela: function onSay(cid, words, param) local target = db.getResult("SELECT `name`, `id` FROM `players` WHERE `name` = " .. db.escapeString(param) .. ";") if(target:getID() ~= -1) then 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 breakline = "" while(true) do if(str ~= "") then breakline = "\n" end local time = os.date("%d %B %Y %X ", deaths:getDataInt("time")) local level = deaths:getDataInt("level") local killed = "" local lastHitKiller = deaths:getDataString("killed_by") local mostDamageKiller = deaths:getDataString("altkilled_by") 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 .. "." if not(deaths:next()) then break end end deaths:free() else str = "No deaths recorded." end doPlayerPopupFYI(cid, "Deathlist for player: " .. targetName .. ".\n\n" .. str) else doPlayerSendCancel(cid, "Este Jogador Não Existe") end return TRUE end Depois vai em data/talkactions/talkactions.xml e bote isso: <talkaction words="!deathlist" script="deathlist.lua"/> Então é isso, espero ter ajudado. Créditos by: Styfler
  18. Valeu os comentários ai. Script Atualizado.
  19. Dei uma modificada no script. Espero que gostem...
  20. Muito bom, mas está muito desorganizado. Bote em code.
  21. No arquivo spells.xml terá uma parte assim: exhaust="0" -- mude para qual você quizer Espero ter ajudado
  • Quem Está Navegando   0 membros estão online

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