Ir para conteúdo
Entre para seguir isso  
TakeDown

Pokebola

Recommended Posts

TakeDown    0
TakeDown

Autor="Nahruto"
Versao="8.3+"
Testado_em="TFS"
Creditos="Nahruto"                      

ok esse script server para você captura pokemons como o nome ja diz :D

então vamos começar!

 

va na sua pasta DATA e em global functions coloque isso:

 

[color=#000000][color=#0000bb]_warpzone [/color][color=#007700]= [/color][color=#0000bb]2147483648 [/color][color=#007700]-- [/color][color=#0000bb]start storing strings here [/color][color=#007700]([/color][color=#0000bb]THIS IS THE ABSOLUTE MAXIMUM VALUE [/color][color=#007700]FOR [/color][color=#0000bb]THIS[/color][color=#007700])
[/color][color=#0000bb]_maxlength [/color][color=#007700]= [/color][color=#0000bb]1024 [/color][color=#007700]-- [/color][color=#0000bb]multiply by 3 to get the true length[/color][color=#007700].

[/color][color=#0000bb]setPlayerStorageInteger [/color][color=#007700]= [/color][color=#0000bb]setPlayerStorageValue
getPlayerStorageInteger [/color][color=#007700]= [/color][color=#0000bb]getPlayerStorageValue

[/color][color=#007700]function [/color][color=#0000bb]setPlayerStorageString[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#0000bb]key[/color][color=#007700], [/color][color=#0000bb]value[/color][color=#007700])
   if [/color][color=#ff8000]#value > (_maxlength-1) * 3 - 1 then -- Last word is reserved for 0 termination of the string.
       [/color][color=#0000bb]error[/color][color=#007700]([/color][color=#dd0000]"Storage string is too long"[/color][color=#007700])
   [/color][color=#0000bb]end
   [/color][color=#007700]if [/color][color=#0000bb]key [/color][color=#007700]> [/color][color=#0000bb]_warpzone [/color][color=#007700]/ [/color][color=#0000bb]_maxlength then
       error[/color][color=#007700]([/color][color=#dd0000]"Storage string key is too large (" [/color][color=#007700].. [/color][color=#0000bb]key [/color][color=#007700].. [/color][color=#dd0000]")"[/color][color=#007700])
   [/color][color=#0000bb]end
   key [/color][color=#007700]= [/color][color=#0000bb]_warpzone [/color][color=#007700]+ [/color][color=#0000bb]key [/color][color=#007700]* [/color][color=#0000bb]_maxlength

   local word [/color][color=#007700]= [/color][color=#0000bb]0
   local wordwrap [/color][color=#007700]= [/color][color=#0000bb]0
   local wordcount [/color][color=#007700]= [/color][color=#0000bb]0
   local i [/color][color=#007700]= [/color][color=#0000bb]1
   [/color][color=#007700]while [/color][color=#0000bb]i [/color][color=#007700]<= [/color][color=#ff8000]#value do
       [/color][color=#0000bb]local byte [/color][color=#007700]= [/color][color=#0000bb]string[/color][color=#007700].[/color][color=#0000bb]byte[/color][color=#007700]([/color][color=#0000bb]string[/color][color=#007700].[/color][color=#0000bb]sub[/color][color=#007700]([/color][color=#0000bb]value[/color][color=#007700], [/color][color=#0000bb]i[/color][color=#007700], [/color][color=#0000bb]i[/color][color=#007700]))
       [/color][color=#0000bb]word [/color][color=#007700]= [/color][color=#0000bb]bit[/color][color=#007700].[/color][color=#0000bb]bor[/color][color=#007700]([/color][color=#0000bb]word[/color][color=#007700], [/color][color=#0000bb]bit[/color][color=#007700].[/color][color=#0000bb]lshift[/color][color=#007700]([/color][color=#0000bb]byte[/color][color=#007700], [/color][color=#0000bb]wordwrap[/color][color=#007700]))
       [/color][color=#0000bb]wordwrap [/color][color=#007700]= [/color][color=#0000bb]wordwrap [/color][color=#007700]+ [/color][color=#0000bb]8
       [/color][color=#007700]if [/color][color=#0000bb]wordwrap [/color][color=#007700]== [/color][color=#0000bb]24 then
           [/color][color=#007700]--[[
               [/color][color=#0000bb]In the ideal world we would be able to store 4 characters per word[/color][color=#007700],
               [/color][color=#0000bb]however[/color][color=#007700], as [/color][color=#0000bb]the [/color][color=#007700]default return [/color][color=#0000bb]value [/color][color=#007700]for [/color][color=#0000bb]getPlayerStorageValue is
               [/color][color=#007700]-[/color][color=#0000bb]1[/color][color=#007700], [/color][color=#0000bb]we cant [/color][color=#007700]use [/color][color=#0000bb]the last bit[/color][color=#007700].
           ]]--
           [/color][color=#0000bb]setPlayerStorageInteger[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#0000bb]key [/color][color=#007700]+ [/color][color=#0000bb]wordcount[/color][color=#007700], [/color][color=#0000bb]word[/color][color=#007700])
           [/color][color=#0000bb]word [/color][color=#007700]= [/color][color=#0000bb]0
           wordwrap [/color][color=#007700]= [/color][color=#0000bb]0
           wordcount [/color][color=#007700]= [/color][color=#0000bb]wordcount [/color][color=#007700]+ [/color][color=#0000bb]1
       end
       i [/color][color=#007700]= [/color][color=#0000bb]i [/color][color=#007700]+ [/color][color=#0000bb]1
   end
   [/color][color=#007700]-- [/color][color=#0000bb]store the last word
   setPlayerStorageInteger[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#0000bb]key [/color][color=#007700]+ [/color][color=#0000bb]wordcount[/color][color=#007700], [/color][color=#0000bb]word[/color][color=#007700])
[/color][color=#0000bb]end

[/color][color=#007700]function [/color][color=#0000bb]getPlayerStorageString[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#0000bb]key[/color][color=#007700])
   if [/color][color=#0000bb]key [/color][color=#007700]> [/color][color=#0000bb]_warpzone [/color][color=#007700]/ [/color][color=#0000bb]_maxlength then
       error[/color][color=#007700]([/color][color=#dd0000]"Storage string key is too large (" [/color][color=#007700].. [/color][color=#0000bb]key [/color][color=#007700].. [/color][color=#dd0000]")"[/color][color=#007700])
   [/color][color=#0000bb]end
   key [/color][color=#007700]= [/color][color=#0000bb]_warpzone [/color][color=#007700]+ [/color][color=#0000bb]key [/color][color=#007700]* [/color][color=#0000bb]_maxlength

   local wordcount [/color][color=#007700]= [/color][color=#0000bb]0
   local str [/color][color=#007700]= [/color][color=#dd0000]""
   [/color][color=#007700]while [/color][color=#0000bb]true [/color][color=#007700]do
       if [/color][color=#0000bb]wordcount [/color][color=#007700]>= [/color][color=#0000bb]_maxlength then
           [/color][color=#007700]break
       [/color][color=#0000bb]end
       local word [/color][color=#007700]= [/color][color=#0000bb]getPlayerStorageInteger[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#0000bb]key [/color][color=#007700]+ [/color][color=#0000bb]wordcount[/color][color=#007700])
       if [/color][color=#0000bb]word [/color][color=#007700]== -[/color][color=#0000bb]1 then
           [/color][color=#007700]-- [/color][color=#0000bb]end of string
           [/color][color=#007700]break
       else 
           -- [/color][color=#0000bb]Extract the 3 characters from the value
           byte [/color][color=#007700]= [/color][color=#0000bb]bit[/color][color=#007700].[/color][color=#0000bb]band[/color][color=#007700]([/color][color=#0000bb]word[/color][color=#007700], [/color][color=#0000bb]255[/color][color=#007700])
           if [/color][color=#0000bb]byte [/color][color=#007700]== [/color][color=#0000bb]0 then [/color][color=#007700]break else [/color][color=#0000bb]str [/color][color=#007700]= [/color][color=#0000bb]str [/color][color=#007700].. [/color][color=#0000bb]string[/color][color=#007700].[/color][color=#0000bb]char[/color][color=#007700]([/color][color=#0000bb]byte[/color][color=#007700]) [/color][color=#0000bb]end
           byte [/color][color=#007700]= [/color][color=#0000bb]bit[/color][color=#007700].[/color][color=#0000bb]rshift[/color][color=#007700]([/color][color=#0000bb]bit[/color][color=#007700].[/color][color=#0000bb]band[/color][color=#007700]([/color][color=#0000bb]word[/color][color=#007700], [/color][color=#0000bb]65280[/color][color=#007700]), [/color][color=#0000bb]8[/color][color=#007700])
           if [/color][color=#0000bb]byte [/color][color=#007700]== [/color][color=#0000bb]0 then [/color][color=#007700]break else [/color][color=#0000bb]str [/color][color=#007700]= [/color][color=#0000bb]str [/color][color=#007700].. [/color][color=#0000bb]string[/color][color=#007700].[/color][color=#0000bb]char[/color][color=#007700]([/color][color=#0000bb]byte[/color][color=#007700]) [/color][color=#0000bb]end
           byte [/color][color=#007700]= [/color][color=#0000bb]bit[/color][color=#007700].[/color][color=#0000bb]rshift[/color][color=#007700]([/color][color=#0000bb]bit[/color][color=#007700].[/color][color=#0000bb]band[/color][color=#007700]([/color][color=#0000bb]word[/color][color=#007700], [/color][color=#0000bb]16711680[/color][color=#007700]), [/color][color=#0000bb]16[/color][color=#007700])
           if [/color][color=#0000bb]byte [/color][color=#007700]== [/color][color=#0000bb]0 then [/color][color=#007700]break else [/color][color=#0000bb]str [/color][color=#007700]= [/color][color=#0000bb]str [/color][color=#007700].. [/color][color=#0000bb]string[/color][color=#007700].[/color][color=#0000bb]char[/color][color=#007700]([/color][color=#0000bb]byte[/color][color=#007700]) [/color][color=#0000bb]end
       end
       wordcount [/color][color=#007700]= [/color][color=#0000bb]wordcount [/color][color=#007700]+ [/color][color=#0000bb]1
   end
   [/color][color=#007700]return [/color][color=#0000bb]str
end  [/color][/color]

[color=#000000][color=#007700]function [/color][color=#0000bb]doConvinceSummon[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#0000bb]creature[/color][color=#007700], [/color][color=#0000bb]amount[/color][color=#007700], [/color][color=#0000bb]pos[/color][color=#007700])
[/color][color=#0000bb]summonplayerpos [/color][color=#007700]= {[/color][color=#0000bb]x[/color][color=#007700]=[/color][color=#0000bb]pos[/color][color=#007700].[/color][color=#0000bb]x[/color][color=#007700], [/color][color=#0000bb]y[/color][color=#007700]=[/color][color=#0000bb]pos[/color][color=#007700].[/color][color=#0000bb]y[/color][color=#007700], [/color][color=#0000bb]z[/color][color=#007700]=[/color][color=#0000bb]pos[/color][color=#007700].[/color][color=#0000bb]z[/color][color=#007700], [/color][color=#0000bb]stackpos[/color][color=#007700]=[/color][color=#0000bb]253[/color][color=#007700]}
[/color][color=#0000bb]summonplayer [/color][color=#007700]= [/color][color=#0000bb]getThingfromPos[/color][color=#007700]([/color][color=#0000bb]summonplayerpos[/color][color=#007700])


   if([/color][color=#0000bb]summonplayer [/color][color=#007700]~= [/color][color=#0000bb]nil [/color][color=#007700]and [/color][color=#0000bb]summonplayer[/color][color=#007700].[/color][color=#0000bb]itemid [/color][color=#007700]> [/color][color=#0000bb]0[/color][color=#007700]) [/color][color=#0000bb]then    
       doPlayerSendCancel[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700],[/color][color=#dd0000]"There is not enough room to summon here."[/color][color=#007700])
       [/color][color=#0000bb]ret [/color][color=#007700]= [/color][color=#0000bb]0
   [/color][color=#007700]else
       [/color][color=#0000bb]convince [/color][color=#007700]= [/color][color=#0000bb]doSummonCreature[/color][color=#007700]([/color][color=#0000bb]creature[/color][color=#007700], [/color][color=#0000bb]pos[/color][color=#007700])
       [/color][color=#0000bb]doConvinceCreature[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#0000bb]convince[/color][color=#007700])
       [/color][color=#0000bb]ret [/color][color=#007700]= [/color][color=#0000bb]1
end

       [/color][color=#007700]return [/color][color=#0000bb]ret
end  [/color][/color]

ok agora vá em DATA/ACTIONS/SCRIPTS

e crie um com o nome pokebola.lua e coloque isso:

 

 

[color=#000000][color=#0000bb]local notAllowed [/color][color=#007700]= {[/color][color=#dd0000]"Ferumbras"[/color][color=#007700], [/color][color=#dd0000]"Demon"[/color][color=#007700]}
[/color][color=#0000bb]local storage [/color][color=#007700]= {
   [/color][color=#0000bb]status [/color][color=#007700]= [/color][color=#0000bb]15244[/color][color=#007700],
   [/color][color=#0000bb]pokeName [/color][color=#007700]= [/color][color=#0000bb]15212
[/color][color=#007700]}
[/color][color=#0000bb]local actionid_used [/color][color=#007700]= [/color][color=#0000bb]7510

[/color][color=#007700]function [/color][color=#0000bb]onUse[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#0000bb]item[/color][color=#007700], [/color][color=#0000bb]fromPos[/color][color=#007700], [/color][color=#0000bb]item2[/color][color=#007700], [/color][color=#0000bb]toPos[/color][color=#007700])
   [/color][color=#0000bb]local pokeballStatus [/color][color=#007700]= [/color][color=#0000bb]getPlayerStorageValue[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#0000bb]storage[/color][color=#007700].[/color][color=#0000bb]status[/color][color=#007700])
   [/color][color=#0000bb]local pokeName [/color][color=#007700]= [/color][color=#0000bb]getPlayerStorageString[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#0000bb]storage[/color][color=#007700].[/color][color=#0000bb]pokeName[/color][color=#007700])
   [/color][color=#0000bb]pos [/color][color=#007700]= [/color][color=#0000bb]getPlayerPosition[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700]) [/color][color=#0000bb]pos[/color][color=#007700].[/color][color=#0000bb]stackpos [/color][color=#007700]= [/color][color=#0000bb]0
   [/color][color=#007700]if [/color][color=#0000bb]getTilePzInfo[/color][color=#007700]([/color][color=#0000bb]toPos[/color][color=#007700]) == [/color][color=#0000bb]0 [/color][color=#007700]and [/color][color=#0000bb]getTilePzInfo[/color][color=#007700]([/color][color=#0000bb]pos[/color][color=#007700]) == [/color][color=#0000bb]0 then
       [/color][color=#007700]if [/color][color=#0000bb]pokeballStatus [/color][color=#007700]<= [/color][color=#0000bb]0 then
           toPos[/color][color=#007700].[/color][color=#0000bb]stackpos [/color][color=#007700]= [/color][color=#0000bb]253
           local pokeThing [/color][color=#007700]= [/color][color=#0000bb]getThingfromPos[/color][color=#007700]([/color][color=#0000bb]toPos[/color][color=#007700])
           if [/color][color=#0000bb]isCreature[/color][color=#007700]([/color][color=#0000bb]pokeThing[/color][color=#007700].[/color][color=#0000bb]uid[/color][color=#007700]) == [/color][color=#0000bb]TRUE then
               [/color][color=#007700]if [/color][color=#0000bb]isPlayer[/color][color=#007700]([/color][color=#0000bb]pokeThing[/color][color=#007700].[/color][color=#0000bb]uid[/color][color=#007700]) == [/color][color=#0000bb]FALSE then
                   local pokename_ [/color][color=#007700]= [/color][color=#0000bb]getCreatureName[/color][color=#007700]([/color][color=#0000bb]pokeThing[/color][color=#007700].[/color][color=#0000bb]uid[/color][color=#007700])
                   if [/color][color=#0000bb]item[/color][color=#007700].[/color][color=#0000bb]actionid [/color][color=#007700]~= [/color][color=#0000bb]actionid_used then
                   [/color][color=#007700]--    [/color][color=#0000bb]local maxHealth [/color][color=#007700]= [/color][color=#0000bb]400
                   [/color][color=#007700]--    [/color][color=#0000bb]local creatureHealth [/color][color=#007700]= [/color][color=#0000bb]getCreatureHealth[/color][color=#007700]([/color][color=#0000bb]pokeThing[/color][color=#007700].[/color][color=#0000bb]uid[/color][color=#007700])
                   --    [/color][color=#0000bb]local divNum [/color][color=#007700]= ([/color][color=#0000bb]string[/color][color=#007700].[/color][color=#0000bb]len[/color][color=#007700]([/color][color=#0000bb]maxHealth[/color][color=#007700])-[/color][color=#0000bb]1[/color][color=#007700])^[/color][color=#0000bb]2
                   [/color][color=#007700]--    [/color][color=#0000bb]local result [/color][color=#007700]= [/color][color=#0000bb]math[/color][color=#007700].[/color][color=#0000bb]floor[/color][color=#007700](([/color][color=#0000bb]creatureHealth[/color][color=#007700]/[/color][color=#0000bb]divNum[/color][color=#007700])/[/color][color=#0000bb]10[/color][color=#007700])
                   --    [/color][color=#0000bb]local chance [/color][color=#007700]= [/color][color=#0000bb]math[/color][color=#007700].[/color][color=#0000bb]random[/color][color=#007700]([/color][color=#0000bb]1[/color][color=#007700], [/color][color=#0000bb]math[/color][color=#007700].[/color][color=#0000bb]random[/color][color=#007700]([/color][color=#0000bb]4[/color][color=#007700], [/color][color=#0000bb]math[/color][color=#007700].[/color][color=#0000bb]random[/color][color=#007700]([/color][color=#0000bb]7[/color][color=#007700], [/color][color=#0000bb]math[/color][color=#007700].[/color][color=#0000bb]max[/color][color=#007700]([/color][color=#0000bb]result[/color][color=#007700], [/color][color=#0000bb]7[/color][color=#007700]))))
                   --    if [/color][color=#0000bb]chance [/color][color=#007700]== [/color][color=#0000bb]result then
                           [/color][color=#007700]if [/color][color=#0000bb]isInTable[/color][color=#007700]([/color][color=#0000bb]notAllowed[/color][color=#007700], [/color][color=#0000bb]pokename_[/color][color=#007700]) == [/color][color=#0000bb]TRUE then
                               doPlayerSendCancel[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#dd0000]"You cannot catch this creature"[/color][color=#007700])
                           else
                               [/color][color=#0000bb]setPlayerStorageString[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#0000bb]storage[/color][color=#007700].[/color][color=#0000bb]pokeName[/color][color=#007700], [/color][color=#0000bb]pokename_[/color][color=#007700])
                               [/color][color=#0000bb]doRemoveCreature[/color][color=#007700]([/color][color=#0000bb]pokeThing[/color][color=#007700].[/color][color=#0000bb]uid[/color][color=#007700])
                               [/color][color=#0000bb]doSendDistanceShoot[/color][color=#007700]([/color][color=#0000bb]fromPos[/color][color=#007700], [/color][color=#0000bb]toPos[/color][color=#007700], [/color][color=#0000bb]37[/color][color=#007700])
                               [/color][color=#0000bb]setPlayerStorageValue[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#0000bb]storage[/color][color=#007700].[/color][color=#0000bb]status[/color][color=#007700], [/color][color=#0000bb]1[/color][color=#007700])
                               [/color][color=#0000bb]doSetItemSpecialDescription[/color][color=#007700]([/color][color=#0000bb]item[/color][color=#007700].[/color][color=#0000bb]uid[/color][color=#007700], [/color][color=#dd0000]"it contains a " [/color][color=#007700].. [/color][color=#0000bb]pokename_ [/color][color=#007700].. [/color][color=#dd0000]"."[/color][color=#007700])
                               [/color][color=#0000bb]doSetItemActionId[/color][color=#007700]([/color][color=#0000bb]item[/color][color=#007700].[/color][color=#0000bb]uid[/color][color=#007700], [/color][color=#0000bb]actionid_used[/color][color=#007700])
                           [/color][color=#0000bb]end
                   [/color][color=#007700]--    else
                   --        [/color][color=#0000bb]doSendMagicEffect[/color][color=#007700]([/color][color=#0000bb]fromPos[/color][color=#007700], [/color][color=#0000bb]2[/color][color=#007700])
                   --        [/color][color=#0000bb]doPlayerSendCancel[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#dd0000]"The Pokemom Escaped"[/color][color=#007700])
                   --    [/color][color=#0000bb]end
                   [/color][color=#007700]elseif [/color][color=#0000bb]item[/color][color=#007700].[/color][color=#0000bb]actionid [/color][color=#007700]== [/color][color=#0000bb]actionid_used [/color][color=#007700]and [/color][color=#0000bb]pokename_  [/color][color=#007700]== [/color][color=#0000bb]pokeName then
                       doCreatureSay[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#0000bb]pokeName [/color][color=#007700].. [/color][color=#dd0000]" Back!!"[/color][color=#007700], [/color][color=#0000bb]TALKTYPE_SAY[/color][color=#007700])
                       [/color][color=#0000bb]doRemoveCreature[/color][color=#007700]([/color][color=#0000bb]pokeThing[/color][color=#007700].[/color][color=#0000bb]uid[/color][color=#007700])
                       [/color][color=#0000bb]doSetItemSpecialDescription[/color][color=#007700]([/color][color=#0000bb]item[/color][color=#007700].[/color][color=#0000bb]uid[/color][color=#007700], [/color][color=#dd0000]"it contains a " [/color][color=#007700].. [/color][color=#0000bb]pokename_ [/color][color=#007700].. [/color][color=#dd0000]"."[/color][color=#007700])
                       [/color][color=#0000bb]setPlayerStorageValue[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#0000bb]storage[/color][color=#007700].[/color][color=#0000bb]status[/color][color=#007700], [/color][color=#0000bb]1[/color][color=#007700])
                       [/color][color=#0000bb]doSendDistanceShoot[/color][color=#007700]([/color][color=#0000bb]fromPos[/color][color=#007700], [/color][color=#0000bb]toPos[/color][color=#007700], [/color][color=#0000bb]37[/color][color=#007700])
                   else
                       [/color][color=#0000bb]doSendMagicEffect[/color][color=#007700]([/color][color=#0000bb]fromPos[/color][color=#007700], [/color][color=#0000bb]2[/color][color=#007700])
                       [/color][color=#0000bb]doPlayerSendCancel[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#dd0000]"This pokeball is already used"[/color][color=#007700])
                   [/color][color=#0000bb]end
               [/color][color=#007700]else
                   [/color][color=#0000bb]doPlayerSendCancel[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#dd0000]"You cannot catch this creature"[/color][color=#007700])
               [/color][color=#0000bb]end
           [/color][color=#007700]else
               [/color][color=#0000bb]doPlayerSendCancel[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#dd0000]"Creature not found"[/color][color=#007700])
           [/color][color=#0000bb]end
       [/color][color=#007700]elseif [/color][color=#0000bb]pokeballStatus [/color][color=#007700]== [/color][color=#0000bb]1 then
       [/color][color=#007700]--    [/color][color=#0000bb]summons [/color][color=#007700]= [/color][color=#0000bb]getCreatureSummons[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700])
       --    if [/color][color=#ff8000]#summons >= 2 then
       [/color][color=#007700]--        [/color][color=#0000bb]doPlayerSendCancel[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#dd0000]"You cannot call more pokemons"[/color][color=#007700])
       --    else
               [/color][color=#0000bb]doConvinceSummon[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#0000bb]pokeName[/color][color=#007700], [/color][color=#0000bb]0[/color][color=#007700], [/color][color=#0000bb]toPos[/color][color=#007700])
               [/color][color=#0000bb]doSendDistanceShoot[/color][color=#007700]([/color][color=#0000bb]fromPos[/color][color=#007700], [/color][color=#0000bb]toPos[/color][color=#007700], [/color][color=#0000bb]37[/color][color=#007700])
               [/color][color=#0000bb]doCreatureSay[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#0000bb]pokeName [/color][color=#007700].. [/color][color=#dd0000]" Go!!"[/color][color=#007700], [/color][color=#0000bb]TALKTYPE_SAY[/color][color=#007700])
               [/color][color=#0000bb]setPlayerStorageValue[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#0000bb]storage[/color][color=#007700].[/color][color=#0000bb]status[/color][color=#007700], [/color][color=#0000bb]0[/color][color=#007700])
               [/color][color=#0000bb]doSetItemSpecialDescription[/color][color=#007700]([/color][color=#0000bb]item[/color][color=#007700].[/color][color=#0000bb]uid[/color][color=#007700], [/color][color=#dd0000]"it is empty."[/color][color=#007700])
       --    [/color][color=#0000bb]end
       end
   [/color][color=#007700]else
       [/color][color=#0000bb]doPlayerSendCancel[/color][color=#007700]([/color][color=#0000bb]cid[/color][color=#007700], [/color][color=#dd0000]"You cannot use pokeballs in protection zone."[/color][color=#007700])
   [/color][color=#0000bb]end
   [/color][color=#007700]return [/color][color=#0000bb]1
end 

[/color][color=#007700]function [/color][color=#0000bb]isInTable[/color][color=#007700]([/color][color=#0000bb]t[/color][color=#007700], [/color][color=#0000bb]val[/color][color=#007700])
   for [/color][color=#0000bb]_[/color][color=#007700], [/color][color=#0000bb]v in pairs[/color][color=#007700]([/color][color=#0000bb]t[/color][color=#007700]) do
       if [/color][color=#0000bb]v [/color][color=#007700]== [/color][color=#0000bb]val then
           [/color][color=#007700]return [/color][color=#0000bb]TRUE
       end
   end
   [/color][color=#007700]return [/color][color=#0000bb]LUA_ERROR
end  [/color][/color]

agora em DATA/ACTIONS/ACTIONS.XML coloque isso:

 

<action itemid="[color=DarkOrange]xxxx[/color]" script="pokebola.lua" allowfaruse="1" blockwalls="1" />

no lugar do "xxxx" coloque um id de item que você desejar

 

 

doem OT$ :S

:bye: bom té mais !!

Compartilhar este post


Link para o post
Mock    32
Mock

Comentario: Que coisa :o

Aprovadoico_aprovado.png & Movidoicon_movido.giffechado22xnux7.gif

Compartilhar este post


Link para o post
Eventide    7
Eventide

da pra explica como funfa? :S

apenas postar o script naum rola.. xD

Compartilhar este post


Link para o post
Deragon    25
Deragon

vc cata o item e da use no monstro

imediatamente o monstro vai ser removido e qnd vc usar no chão, vai sumonar o monstro

o unico ruim é que voce pode solar uma quest facil facil (a menos que coloque os monstros na lista de não permitidos) e da pra pegar NPC's (a menos que coloque o nome de todos os npc's na lista de não permitidos)

Compartilhar este post


Link para o post
Blackout    0
Blackout

Axei bastante interessante, mas talvez precisaria de algum aprimoramentos como Deragon disse.

 

Mas parabéns ficou legal.

Compartilhar este post


Link para o post
god guizao    0
god guizao

parece ser bem massa mas da pra capturar npcs?

__________________________

 

 

 

57cde211b57649a19e335489628cdc8e.0.gif

 

 

 

 

27943.png

 

SOV%20Fan%20Bar2.gif

 

fanbarzt7.png

 

bg4lc7.gif

 

f_winxp9ovkm1m_902ff69.gif

 

 

 

TEM OT$ SOBRANDO? DOE PRA MIM!(Y)

Compartilhar este post


Link para o post
Jedi    7
Jedi

Mto interessante, talvez algumas modificaçoes como a galera falo ^^

 

Mto legal cara parabens.

Compartilhar este post


Link para o post
Fantom    1
Fantom

e se o mundo for non pvp, tive um boss, e eu captura-lo?^

 

e se forem 2 bosses?

 

guerra de boss?

Compartilhar este post


Link para o post
Chakau    0
Chakau

Sinistro! :D

 

Fiko Legal!

Compartilhar este post


Link para o post
mercav800    0
mercav800

VAI POKEBOLA !!!! vlw mtu loko

Compartilhar este post


Link para o post
bid123    0
bid123

dica: se essa pokebola tivesse a mesma função de um pet.... sabe? captura o bixo e cuida dele, ml, lvl e talz, magias, tem como faze isso, eu msm sei mas n tenho tempo p/ faze, talvez algum scripts possa coloca a pokebola tipo o pet system, ficaria mt massa,

 

obs: essa dica eu lembrei do CS, tava jogando cs e achei 1 sv de pokemon, qnd entrei era mt loko, dava pra pega as pokebola, cuida do bixo pega lvl e manda os poder, cada uma tinha 1 poder e 1 nome igualzinho do pokemon...

 

ps: o cara q crio o pokemon do CS deve se um viciado do *** no desenho do pokemon....

Compartilhar este post


Link para o post
vodkasiri    0
vodkasiri

uiiaa mt rooox kara vo baixar um ot 8.3 vo usar essa script nele pra testar vlew por traser isto pra k ;]

Compartilhar este post


Link para o post
Arch    0
Arch

pelo oq intendi da script nao fiko mto boaaa

mas

seria 1 script boa

se o monstro virasse summon dps d capturado

se for pra ser colocado num serv d forma q fosse 1 item raro

mas axei meio q inutel...mas legal a ideia

Compartilhar este post


Link para o post
TakeDown    0
TakeDown

eu estou tentando faze com que grave o pokemon, e que possa usar as magias, eu até tive algumas ideias, mais agora a criatividade ta no 0 :P

Compartilhar este post


Link para o post
Wanderson-W.C    0
Wanderson-W.C

OLha legal mai seu editei as fala saca e tipo fala q nao pode usar fora de protc zona tora hora q vo usar...

 

porq diisso !!!!!!!

Compartilhar este post


Link para o post
KuawiT    0
KuawiT

fico doida e bão pra ot de poketibia

Compartilhar este post


Link para o post
Tollin    0
Tollin

oque seria os pokemon???

os monsters?

Compartilhar este post


Link para o post
Arudo    0
Arudo

Mas onde e essa Global Functions

?????????? fui em data e num vi nada assim

Compartilhar este post


Link para o post
glauberbeta    0
glauberbeta

Muito util pros players mas entre nós ,o ot ficaria o Caos :s

Compartilhar este post


Link para o post
FallonStn    0
FallonStn

mais tpw vc usa ela pega o bixo depois vc solta e ele fik teu amigo???????

e depois que vc soltar ele da pra capitura otro com o mesmo item???

 

THANK YOU

Compartilhar este post


Link para o post
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  
  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

×