Pokeballs

[Nighandy 0]

Espero que esse script ajude quem quera fazer um otserv de Pokemon. :yes:

• Nome do Script: Pokeball
  
• Nome do Autor: Nighandy e Nahruto
  
• Versão do Tibia testado: 8.50
  

 

POKEBALL SCRIPT

 

Pois bem,

 

Em Global Functions

Adicione:

_warpzone = 2147483648
_maxlength = 1024 

setPlayerStorageInteger = setPlayerStorageValue
getPlayerStorageInteger = getPlayerStorageValue

function  setPlayerStorageString(cid, key, value)
   if #value > (_maxlength-1) * 3 - 1 then 
       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 can't 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)

Em data/actions/scripts Cria um arquivo pokeball.lua

 local status_storage = 25650
local poke_name = 25651 
function onUse(cid, item, frompos, item2, topos) 
pokeball_status = getPlayerStorageValue(cid, status_storage) 
name = getPlayerStorageString(cid, poke_name) 
if getTilePzInfo(topos) == 0 and getTilePzInfo(frompos) == 0 then 
if pokeball_status == -1 then       pokepos = {x = topos.x, y = topos.y, z = topos.z, stackpos = 253}
     poke = getThingfromPos(pokepos)
     if poke.itemid > 0 then
         if isCreature(poke.uid) == 1 and isPlayer(poke.uid) == 0 then
             pokename = getCreatureName(poke.uid)
             setPlayerStorageString(cid, poke_name, "" .. pokename .. "")
             doRemoveCreature(poke.uid)
             doSendDistanceShoot(frompos, topos, 37)
             setPlayerStorageValue(cid, status_storage, 1)
             doSetItemSpecialDescription(item.uid, "it contains a " .. pokename .. ".")
         else
             doPlayerSendCancel(cid, "You cannot catch this creature")
         end
     else
         doPlayerSendCancel(cid, "Creature not found")
     end
elseif pokeball_status == 1 then           doConvinceSummon(cid, name, 0, topos)
     doSendDistanceShoot(frompos, topos, 37)
     doPlayerSay(cid, "" .. name .. " Go!!", TALKTYPE_SAY)
     setPlayerStorageValue(cid, status_storage, -1)
     doSetItemSpecialDescription(item.uid, "it is empty.")
end 
else       doPlayerSendCancel(cid,"You cannot use pokeballs in protection zone.")
end 
return 1 
end 

Em data/actions/actions.xml adicione

 

[b] [color=#009900][color=#000000]<action[/color] [color=#000066]itemid[/color]=[color=#ff0000]"xxxx"[/color] [color=#000066]script[/color]=[color=#ff0000]"pokeball.lua"[/color] [color=#000066]allowfaruse[/color]=[color=#ff0000]"1"[/color] [color=#000066]blockwalls[/color]=[color=#ff0000]"1"[/color] [color=#000000]/>[/color][/color][/b]

Mude o xxxx para o id do item que vai servir como pokebola

 

Pronto :w00t:

Editado 11 Maio, 2010 por Nighandy

[Mock 32]

Uma palavra para descrever esse script.

Storage value armazena string. (do TFS)

criar uma query na db n doi nada ._.

 

Mais em fim esse topico com certeza vai ter BILHOES de posts pro que muita gente quer fazer um server de P.O e se inrola em todos os sistemas. -1 ai pro povo.

[arthurmaffeis 0]

Deu erro aki .

[12/05/2010 14:09:43] Lua Script Error: [Action Interface]

[12/05/2010 14:09:43] data/actions/scripts/pokeball.lua:onUse

 

[12/05/2010 14:09:43] data/actions/scripts/pokeball.lua:5: attempt to call global 'getPlayerStorageString' (a nil value)

[12/05/2010 14:09:43] stack traceback:

[12/05/2010 14:09:43] data/actions/scripts/pokeball.lua:5: in function <data/actions/scripts/pokeball.lua:3>

Ajuda Aê .

[god_dreamer 1]

show, vou testar agora~^

[Mock 32]

@arthurmaffeis

seguir o topico DIREITO e ler ele TODO ajuda sabia?

[Nighandy 0]

Mock,tem como me ajudar a melhora o script me empaquei

[Mock 32]

@Nighandy

se eu fosse mudar algo eu começaria do 0 pq essa base n fico mto boa

[Dean 1]

Só da para ter 1 pokemon por pessoa?

[godzeldas 0]

what the fuck..

mais complicado que o sistema de invisibilidade que eu criei...

[Shhuratoo 0]

Legal vo testa aqui em casa xD

[krom 0]

HHUm legal...Gratz Nighandy by magnes haha

[Death Monkey 0]

show vo po no meu .

[Voolcom 0]

Script Confuso ein ._.

mais parece funcionar melhor, do que outro script de poke ball postado aqui =)

Parabéens, continue fazendo scripts =P

[jnbrotther 0]

@Nighandy

eu tentei adaptar esse script aí, mas vi q n conseguia modificar pra ele pegar mais de bixo então resolvi modificar outro... se puder da uma olhada la no post.. só por em pesquisa "pokeball" aqui no forum, que vc acha..

abraço

 

obs: é um bom script esse aí ^^ obg por compartilhar

 

se bem que é Ctrl+C Ctrl+V do naruto

[FriesMur 0]

Nice '-'

[Tagner 0]

Vlw pow tava procurando isso fazia tempão funciono certinho aki

[rafa09 0]

VALEOW cara adorei *.*

 

vo passa pra um colega meu tava querendo

 

vlw ai ^^

 

bom trabalho

[Valcon 0]

muiiiiiiiiiittttttooooooo fera agora vai te um monte de projeto de P.O soh por causa que ja tem a funcao principal :>

[bianco001 0]

lol oque tem que por no global.xml?

[UkiroWyxins 0]

.

Editado 13 Setembro, 2014 por UkiroWyxins