<instant name="Pikachu beam" words="pikachu beam" direction="1" lvl="20" maglv="10" mana="100" soul="0" exhaustion="1" prem="0" enabled="1" script="pikachu beam.lua"><vocation id="2"/><vocation id="1"/><vocation id="6"/><vocation id="5"/></instant>

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_ENERGYDAMAGE)
setCombatParam(combat, COMBAT_PARAM_EFFECT, 48)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -1.4, -30, -1.8, 0)
local arr = {
{0, 1, 0},
{0, 1, 0},
{0, 1, 0},
{0, 1, 0},
{0, 1, 0},
{0, 3, 0},
}
local area = createCombatArea(arr)
setCombatArea(combat, area)
function onCastSpell(cid, var)
          return doCombat(cid, combat, var)
end

_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 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

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

--[[Created
## by Nahruto ##
   Edited by
 #Arkam Shadow#
]]--
local status_storage = 25650
local nazwa_poka = 25651
local destroyprocent = 80 ---ILE % NA ZNISZCZENIE POKE BALL
local efekt = 20 ---EFEKT POKEBALLA
function onUse(cid, item, frompos, item2, topos)
stat_pokeballa = getPlayerStorageValue(cid, status_storage)
name = getPlayerStorageString(cid, nazwa_poka)
if getTilePzInfo(topos) == 0 and getTilePzInfo(frompos) == 0 then
if stat_pokeballa == -1 then
    pokemonpos = {x = topos.x, y = topos.y, z = topos.z, stackpos = 253}
    poke = getThingfromPos(pokemonpos)
    if poke.itemid > 0 then
        if isCreature(poke.uid) == 1 and isPlayer(poke.uid) == 0 then
            nazwapoka = getCreatureName(poke.uid)
            setPlayerStorageString(cid, nazwa_poka, "" .. nazwapoka .. "")
            doRemoveCreature(poke.uid)
            doSendDistanceShoot(frompos, topos, efekt)
            setPlayerStorageValue(cid, status_storage, 1)
            doSetItemSpecialDescription(item.uid, "tam jest " .. nazwapoka .. ".")
        else
            doPlayerSendCancel(cid, "Nie mozesz zlapac tego PokeMona")
        end
                                        if(destroyprocent > 0) then
                              if(math.random(1,100) <= destroyprocent) then
                                        doRemoveItem(item.uid,1)
                                        doPlayerSendCancel(cid,"PokeBall Zniszczony")
                                        return TRUE
                              end
                    end
    else
        doPlayerSendCancel(cid, "Creature not found")
    end
elseif stat_pokeballa == 1 then    
    doConvinceSummon(cid, name, 0, topos)
    doSendDistanceShoot(frompos, topos, efekt)
    doPlayerSay(cid, "" .. name .. " Wybieram Cie", TALKTYPE_SAY)
    setPlayerStorageValue(cid, status_storage, -1)
    doSetItemSpecialDescription(item.uid, "Jest Pusty.")
end
else
    doPlayerSendCancel(cid,"Nie mozesz uzywac PokeBall na Protection Zone.")
end
return 1
end