[Tutorial] Adicionando Clan's No Poketibia

Stigal · Setembro 6, 2012

Ola Xtibianos,

Venho Postar o Sistema De CLANS Do "PokeXGames"...

Arrumei Uns Problemas Neles e Agora So Podem Entrar Nos Clan Level 80+

Vamos Ao Tutorial Então:

Vá a "Pasta Do Servidor > Data > Lib" Crie Um Um Arquivo.lua Nomeado Como "clan system"

Adicione Isso Dentro Dele:

local clansAtk = {
[1] =  {
  [FIREDAMAGE] =  {
	[1] = {atk = 1.17},
	[2] = {atk = 1.22},
	[3] = {atk = 1.27},
	[4] = {atk = 1.32},
	[5] = {atk = 1.37},
   },
  ["null"] =	{
   },
 },
[2] =  {
  [WATERDAMAGE] = {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
  [iCEDAMAGE] =   {
	[1] = {atk = 1.10},
	[2] = {atk = 1.15},
	[3] = {atk = 1.20},
	[4] = {atk = 1.25},
	[5] = {atk = 1.30},
   },
 },
[3] =  {
  [ROCKDAMAGE] =  {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
 [GROUNDDAMAGE] = {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
 },
[4] =  {
  [FLYDAMAGE] =   {
	[1] = {atk = 1.15},
	[2] = {atk = 1.20},
	[3] = {atk = 1.25},
	[4] = {atk = 1.30},
	[5] = {atk = 1.35},
   },
 [DRAGONDAMAGE] = {
	[1] = {atk = 1.10},
	[2] = {atk = 1.15},
	[3] = {atk = 1.20},
	[4] = {atk = 1.25},
	[5] = {atk = 1.30},
   },
 },
[5] =  {
 [GHOSTDAMAGE] =  {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
 [POISONDAMAGE] = {
	[1] = {atk = 1.08},
	[2] = {atk = 1.13},
	[3] = {atk = 1.18},
	[4] = {atk = 1.23},
	[5] = {atk = 1.28},
   },
 },
[6] =  {
  [FIGHTDAMAGE] = {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
 [NORMALDAMAGE] = {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
 },
[7] =  {
  [PSYCHICDAMAGE] =  {
	[1] = {atk = 1.10},
	[2] = {atk = 1.15},
	[3] = {atk = 1.20},
	[4] = {atk = 1.25},
	[5] = {atk = 1.30},
   },
  ["null"] =   {
   },
 },
[8] =  {
 [GRASSDAMAGE] =  {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
 [bUGDAMAGE] =  {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
 },
[9] =  {
  [ELECTRICDAMAGE] = {
	[1] = {atk = 1.12},
	[2] = {atk = 1.17},
	[3] = {atk = 1.22},
	[4] = {atk = 1.27},
	[5] = {atk = 1.32},
   },
  ["null"] =   {
   },
 }
}
local clansDef = {
[1] =  {
  ["fire"] =  {
   [1] = {def = 0.17},
   [2] = {def = 0.22},
   [3] = {def = 0.27},
   [4] = {def = 0.32},
   [5] = {def = 0.37},
  },
  ["null"] =  {
  },
	},
[2] =   {
  ["water"] = {
   [1] = {def = 0.05},
   [2] = {def = 0.10},
   [3] = {def = 0.15},
   [4] = {def = 0.20},
   [5] = {def = 0.25},
  },
  ["ice"] =  {
   [1] = {def = 0.10},
   [2] = {def = 0.15},
   [3] = {def = 0.20},
   [4] = {def = 0.25},
   [5] = {def = 0.30},
  },
 },
[3] = {
  ["rock"] =  {
   [1] = {def = 0.05},
   [2] = {def = 0.10},
   [3] = {def = 0.15},
   [4] = {def = 0.20},
   [5] = {def = 0.25},
  },
 ["ground"] = {
   [1] = {def = 0.10},
   [2] = {def = 0.15},
   [3] = {def = 0.20},
   [4] = {def = 0.25},
   [5] = {def = 0.30},
  },
 },
[4] =   {
["flying"] =  {
   [1] = {def = 0.15},
   [2] = {def = 0.20},
   [3] = {def = 0.25},
   [4] = {def = 0.30},
   [5] = {def = 0.35},
  },
 ["dragon"] = {
   [1] = {def = 0.10},
   [2] = {def = 0.15},
   [3] = {def = 0.20},
   [4] = {def = 0.25},
   [5] = {def = 0.30},
  },
 },
[5] =  {
  ["ghost"] = {
   [1] = {def = 0.05},
   [2] = {def = 0.10},
   [3] = {def = 0.15},
   [4] = {def = 0.20},
   [5] = {def = 0.25},
  },
 ["poison"] = {
   [1] = {def = 0.08},
   [2] = {def = 0.13},
   [3] = {def = 0.18},
   [4] = {def = 0.23},
   [5] = {def = 0.28},
  },
 },
[6] =   {
  ["fighting"] = {
   [1] = {def = 0.05},
   [2] = {def = 0.10},
   [3] = {def = 0.15},
   [4] = {def = 0.20},
   [5] = {def = 0.25},
  },
 ["normal"] = {
   [1] = {def = 0.05},
   [2] = {def = 0.10},
   [3] = {def = 0.15},
   [4] = {def = 0.20},
   [5] = {def = 0.25},
  },
 },
[7] =   {
["psychic"] = {
   [1] = {def = 0.10},
   [2] = {def = 0.15},
   [3] = {def = 0.20},
   [4] = {def = 0.25},
   [5] = {def = 0.30},
  },
  ["null"] =  {
  },
 },
[8] =   {
  ["grass"] = {
   [1] = {def = 0.05},
   [2] = {def = 0.10},
   [3] = {def = 0.15},
   [4] = {def = 0.20},
   [5] = {def = 0.25},
  },
  ["bug"] =   {
   [1] = {def = 0.05},
   [2] = {def = 0.10},
   [3] = {def = 0.15},
   [4] = {def = 0.20},
   [5] = {def = 0.25},
  },
 },
[9] =   {
 ["electric"] = {
   [1] = {def = 0.12},
   [2] = {def = 0.17},
   [3] = {def = 0.22},
   [4] = {def = 0.27},
   [5] = {def = 0.32},
  },
 }
}					  
function getClanPorcent(master, combat, option, type, type2)
if getPlayerStorageValue(master, 86228) >= 1 then	  
local clanAtk = clansAtk[getPlayerStorageValue(master, 86228)]
local clanDef = clansDef[getPlayerStorageValue(master, 86228)]
for i = 1, 9 do
if getPlayerStorageValue(master, 86228) == i then
   if option == "atk" and clanAtk[combat] then
	  return clanAtk[combat][getPlayerStorageValue(master, 862281)].atk
   else
	   if option == "def" and clanDef[type] then								--alterado v1.3
		  return clanDef[type][getPlayerStorageValue(master, 862281)].def
	   elseif option == "def" and clanDef[type2] then
		  return clanDef[type2][getPlayerStorageValue(master, 862281)].def
	   end
   end
end
end
end
return option == "atk" and 1 or 0
end

Salve e Feche.

Agora Vá a Pasta "NPC" e Crie Os Seguintes Npc's:

Gardestrike Master

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Gardestrike Master" script="gardestrike master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1429" head="114" body="119" legs="114" feet="114" corpse="2212"/>
<parameters>
<parameter key="message_greet" value="Welcome |PLAYERNAME|, you want to join to my {clan}? Or you want to move up of {rank}? Or you want to transform you poke in a {shiny}?"/>
</parameters>
</npc>

Malefic Master

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Malefic Master" script="malefic master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1430" head="114" body="119" legs="114" feet="114" corpse="2212"/>
<parameters>
<parameter key="message_greet" value="Welcome |PLAYERNAME|, you want to join to my {clan}? Or you want to move up of {rank}? Or you want to transform you poke in a {shiny}?"/>
</parameters>
</npc>

Naturia Master

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Naturia Master" script="naturia master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1434" head="114" body="119" legs="114" feet="114" corpse="2212"/>
<parameters>
<parameter key="message_greet" value="Welcome |PLAYERNAME|, you want to join to my {clan}? Or you want to move up of {rank}? Or you want to transform you poke in a {shiny}?"/>
</parameters>
</npc>

Orebound Master

<?xml version="1.0" encoding="UTF-8"?>

<npc name="Orebound Master" script="orebound master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1427" head="114" body="119" legs="114" feet="114" corpse="2212"/>

<parameters>
<parameter key="message_greet" value="Welcome |PLAYERNAME|, you want to join to my {clan}? Or you want to move up of {rank}? Or you want to transform you poke in a {shiny}?"/>
</parameters>
</npc>

Psycraft Master

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Psycraft Master" script="psycraft master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1426" head="114" body="119" legs="114" feet="114" corpse="2212"/>
<parameters>
<parameter key="message_greet" value="Welcome |PLAYERNAME|, you want to join to my {clan}? Or you want to move up of {rank}? Or you want to transform you poke in a {shiny}?"/>
</parameters>
</npc>

Raibolt Master

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Raibolt Master" script="raibolt master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1421" head="114" body="119" legs="114" feet="114" corpse="2212"/>
<parameters>
<parameter key="message_greet" value="Welcome |PLAYERNAME|, you want to join to my {clan}? Or you want to move up of {rank}? Or you want to transform you poke in a {shiny}?"/>
</parameters>
</npc>

Seavel Master

<?xml version="1.0" encoding="UTF-8"?>

</parameters>

</npc>

Volcanic Master

<?xml version="1.0" encoding="UTF-8"?>

</parameters>

</npc>

Wingeon Master

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Wingeon Master" script="wingeon master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1424" head="114" body="119" legs="114" feet="114" corpse="2212"/>
<parameters>
<parameter key="message_greet" value="Welcome |PLAYERNAME|, you want to join to my {clan}? Or you want to move up of {rank}? Or you want to transform you poke in a {shiny}?"/>
</parameters>
</npc>

Apos Criar Todos Feche e Salve.

Agora Va Na Pasta "NPC > Scripts" e Crie Esses Arquivos.lua

gardestrike master


local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end

local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Gardestrike Fist", "a Gardestrike Tamer","a Gardestrike Fighter","a Gardestrike DeathHand","a Gardestrike Champion"}

       if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
          if getPlayerStorageValue(cid, 86228) == 6 then 
             selfSay("You already are of the clan Gardestrike!", cid)
             talkState[talkUser] = 0
             return true
          elseif getPlayerStorageValue(cid, 86228) >= 1 then
             selfSay("You already are of another clan!", cid)
             talkState[talkUser] = 0
             return true    
          end
             selfSay("So you want to join in my clan... Are you sure that?", cid)
             talkState[talkUser] = 2  
       elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
          if getPlayerLevel(cid) < 80 then
             selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
             talkState[talkUser] = 0
             return true
          end
          selfSay("OK then... Now you are a great member of de clan Gardestrike!", cid)
          setPlayerStorageValue(cid, 86228, 6)
          setPlayerStorageValue(cid, 862281, 1)
          setPlayerStorageValue(cid, 181614, 1)
          talkState[talkUser] = 0
       elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
          if getPlayerStorageValue(cid, 86228) == 6 then 
             selfSay("So.. you want to move up of rank?", cid)
             talkState[talkUser] = 3
          else
             selfSay("You aren't of the clan gardestrike! Get out of here!", cid)
             talkState[talkUser] = 0
             return true
          end
       elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then 
          level = 80
          if (getPlayerStorageValue(cid, 862281)+1) == 2 then
             level = 90
          elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
             level = 100
          elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
             level = 110
          elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
             level = 120
          end 

          if getPlayerLevel(cid) < level then
             selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
             talkState[talkUser] = 0
             return true
          end
          if getPlayerStorageValue(cid, 862281) == 6 then
             selfSay("You are already a master of our clan!", cid)
             talkState[talkUser] = 0
             return true
          end
          setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)

          if getPlayerStorageValue(cid, 862281) == 6 then
             setPlayerStorageValue(cid, 181628, 1)
          end
          selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)        
          talkState[talkUser] = 0

       elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
          if getPlayerStorageValue(cid, 86228) ~= 6 then
             selfSay("You aren't of the clan Gardestrike! Get out of here!", cid)
             return true
          else   
             selfSay("So you want to transform your Hitmonchan in a Shiny Hitmonchan? It will cost 500k!", cid)
             talkState[talkUser] = 4
          end
       elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
          if getPlayerSlotItem(cid, 6).uid <= 0 then
             selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
             talkState[talkUser] = 0
    return true
     end 
                                                                           --alterado v1.2
     if #getCreatureSummons(cid) >= 1 then
        selfSay("Go back your pokemon!", cid)
             talkState[talkUser] = 0
             return true
          end

     local pb = getPlayerSlotItem(cid, 8).uid

     if getItemAttribute(pb, "poke") ~= "Hitmonchan" then
        selfSay("Put a Hitmonchan pokeball atleast +20 in main slot!", cid)
             talkState[talkUser] = 0
             return true
          end

          if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
             selfSay("Sorry, your Vileplume is not boosted +20!", cid)
             talkState[talkUser] = 0
             return true
          end
                                         --100000 = 1k, 1000000 = 10k, 10000000 = 100k
          if doPlayerRemoveMoney(cid, 50000000) == true then
             selfSay("So there is it! Enjoy!", cid)
             doItemSetAttribute(pb, "hp", 1)
             doItemSetAttribute(pb, "poke", "Shiny Hitmonchan")
    doItemSetAttribute(pb, "description", "Contains a Shiny Hitmonchan.")
    doItemEraseAttribute(pb, "boost")
    doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Hitmonchan"])
    if useKpdoDlls then
      doCreatureExecuteTalkAction(cid, "/pokeread")
        end
    talkState[talkUser] = 0
    return true
    else
        selfSay("You don't have enough money!", cid)
        talkState[talkUser] = 0
        return true
         end
       end

return true
end

npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

malefic master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Malefic Troublemaker", "a Malefic Venomancer","a Malefic Spectre","a Malefic Nightwalker","a Malefic Master"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 5 then
		  selfSay("You already are of the clan malefic!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan malefic!", cid)
	   setPlayerStorageValue(cid, 86228, 5)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181615, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 5 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan malefic! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181624, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 5 then
		  selfSay("You aren't of the clan Malefic! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Nidoking in a Shiny Nidoking? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Nidoking" then
	   selfSay("Put a Nidoking's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your Nidoking is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Nidoking")
	doItemSetAttribute(pb, "description", "Contains a Shiny Nidoking.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Nidoking"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

naturia master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Naturia Seed", "a Naturia Sprout","a Naturia Webhead","a Naturia Woodtrunk","a Naturia Keeper"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 8 then
		  selfSay("You already are of the clan naturia!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan naturia!", cid)
	   setPlayerStorageValue(cid, 86228, 8)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181612, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 8 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan naturia! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)

	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181623, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 8 then
		  selfSay("You aren't of the clan Naturia! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Vileplume in a Shiny Vileplume? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Vileplume" then
	   selfSay("Put a Vileplume's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your Vileplume is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Vileplume")
	doItemSetAttribute(pb, "description", "Contains a Shiny Vileplume.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Vileplume"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

orebound master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"an Orebound Sand", "an Orebound Rock","an Orebound Solid","an Orebound Hardskin","an Orebound Hero"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 3 then
		  selfSay("You already are of the clan orebound!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan orebound!", cid)
	   setPlayerStorageValue(cid, 86228, 3)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181620, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 3 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan orebound! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181627, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 3 then
		  selfSay("You aren't of the clan Orebound! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Golem in a Shiny Golem? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Golem" then
	   selfSay("Put a Golem's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your Golem is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Golem")
	doItemSetAttribute(pb, "description", "Contains a Shiny Golem.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Golem"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

psycraft master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Psycraft Mind", "a Psycraft Brain","a Psycraft Scholar","a Psycraft Telepath","a Psycraft Medium"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 7 then
		  selfSay("You already are of the clan psycraft!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan psycraft!", cid)
	   setPlayerStorageValue(cid, 86228, 7)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181618, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 7 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan psycraft! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181629, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 7 then
		  selfSay("You aren't of the clan Psycraft! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Hypno in a Shiny Hypno? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Hypno" then
	   selfSay("Put a Hypno's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your Hypno is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Hypno")
	doItemSetAttribute(pb, "description", "Contains a Shiny Hypno.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Hypno"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

raibolt master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Raibolt Shock", "a Raibolt Watt","a Raibolt Electrician","a Raibolt Overcharged","a Raibolt Legend"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 9 then
		  selfSay("You already are of the clan raibolt!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan raibolt!", cid)
	   setPlayerStorageValue(cid, 86228, 9)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181617, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 9 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan raibolt! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181621, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 9 then
		  selfSay("You aren't of the clan Raibolt! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Jolteon in a Shiny Jolteon? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Jolteon" then
	   selfSay("Put a Jolteon's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your Jolteon is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Jolteon")
	doItemSetAttribute(pb, "description", "Contains a Shiny Jolteon.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Jolteon"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

seavel master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Seavell Drop", "a Seavell Icelake","a Seavell Waterfall","a Seavell Frost","a Seavell Master"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 2 then
		  selfSay("You already are of the clan seavel!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan seavel!", cid)
	   setPlayerStorageValue(cid, 86228, 2)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181619, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 2 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan seavel! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181622, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 2 then
		  selfSay("You aren't of the clan Seavel! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Vaporeon in a Shiny Vaporeon? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Vaporeon" then
	   selfSay("Put a Vaporeon's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your Vaporeon is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Vaporeon")
	doItemSetAttribute(pb, "description", "Contains a Shiny Vaporeon.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Vaporeon"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

volcanic master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Volcanic Spark", "a Volcanic Flame","a Volcanic Firetamer","a Volcanic Pyromancer","a Volcanic Master"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 1 then
		  selfSay("You already are of the clan volcanic!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan volcanic!", cid)
	   setPlayerStorageValue(cid, 86228, 1)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181613, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 1 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan volcanic! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181625, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 1 then
		  selfSay("You aren't of the clan Volcanic! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Flareon in a Shiny Flareon? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Flareon" then
	   selfSay("Put a Flareon's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your flareon is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Flareon")
	doItemSetAttribute(pb, "description", "Contains a Shiny Flareon.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Flareon"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

wingeon master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Wingeon Cloud", "a Wingeon Wind","a Wingeon Sky","a Wingeon Falcon","a Wingeon Dragon"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 4 then
		  selfSay("You already are of the clan wingeon!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan wingeon!", cid)
	   setPlayerStorageValue(cid, 86228, 4)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181616, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 4 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan wingeon! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181626, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 4 then
		  selfSay("You aren't of the clan Wingeon! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Fearow in a Shiny Fearow? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Fearow" then
	   selfSay("Put a fearow's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your fearow is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Fearow")
	doItemSetAttribute(pb, "description", "Contains a Shiny Fearow.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Fearow"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end

	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

Salve e Feche.

Agora Vá Na Pasta "XML" Abra o Outifits.xml

e Adicione Isso Nele:

<!-- PROMOTE -->
<outfit id="14" quest="181612">
<list gender="0" lookType="1149" name="Naturia"/>
<list gender="1" lookType="1159" name="Naturia"/>
</outfit>
<outfit id="15" quest="181613">
<list gender="0" lookType="1152" name="Volcanic"/>
<list gender="1" lookType="1154" name="Volcanic"/>
</outfit>
<outfit id="16" quest="181614">
<list gender="0" lookType="1146" name="Gardestrike"/>
<list gender="1" lookType="1155" name="Gardestrike"/>
</outfit>
<outfit id="17" quest="181615">
<list gender="0" lookType="1153" name="Malefic"/>
<list gender="1" lookType="1157" name="Malefic"/>
</outfit>
<outfit id="18" quest="181616">
<list gender="0" lookType="1148" name="Wingeon"/>
<list gender="1" lookType="1158" name="Wingeon"/>
</outfit>
<outfit id="19" quest="181617">
<list gender="0" lookType="1147" name="Raibolt"/>
<list gender="1" lookType="1160" name="Raibolt"/>
</outfit>
<outfit id="20" quest="181618">
<list gender="0" lookType="1145" name="Psycraft"/>
<list gender="1" lookType="1161" name="Psycraft"/>
</outfit>
<outfit id="21" quest="181619">
<list gender="0" lookType="1151" name="Seavell"/>
<list gender="1" lookType="1162" name="Seavell"/>
</outfit>
<outfit id="22" quest="181620">
<list gender="0" lookType="1150" name="Orebound"/>
<list gender="1" lookType="1156" name="Orebound"/>
</outfit>
<!-- PROMOTE RANK 5 -->
<outfit id="23" quest="181621">
<list gender="0" lookType="1179" name="Raibolt Legend"/>
<list gender="1" lookType="1164" name="Raibolt Legend"/>
</outfit>
<outfit id="24" quest="181622">
<list gender="0" lookType="1178" name="Seavell Queen"/>
<list gender="1" lookType="1165" name="Seavell King"/>
</outfit>
<outfit id="25" quest="181623">
<list gender="0" lookType="1177" name="Naturia Keeper"/>
<list gender="1" lookType="1166" name="Naturia Keeper"/>
</outfit>
<outfit id="26" quest="181624">
<list gender="0" lookType="1176" name="Malefic Lady"/>
<list gender="1" lookType="1167" name="Malefic Lord"/>
</outfit>
<outfit id="27" quest="181625">
<list gender="0" lookType="1180" name="Volcanic Master"/>
<list gender="1" lookType="1168" name="Volcanic Master"/>
</outfit>
<outfit id="28" quest="181626">
<list gender="0" lookType="1175" name="Wingeon Dragon"/>
<list gender="1" lookType="1169" name="Wingeon Dragon"/>
</outfit>
<outfit id="29" quest="181627">
<list gender="0" lookType="1174" name="Orebound Hero"/>
<list gender="1" lookType="1170" name="Orebound Hero"/>
</outfit>
<outfit id="30" quest="181628">
<list gender="0" lookType="1173" name="Gardestrike Lady"/>
<list gender="1" lookType="1171" name="Gardestrike Champion"/>
</outfit>
<outfit id="31" quest="181629">
<list gender="0" lookType="1181" name="Psycraft Medium"/>
<list gender="1" lookType="1172" name="Psycraft Medium"/>
</outfit>
<!-- PROMOTE MASTER -->
<outfit id="32" quest="181630">
<list gender="0" lookType="1437" name="Raibolt Master"/>
<list gender="1" lookType="1421" name="Raibolt Master"/>
</outfit>
<outfit id="33" quest="181631">
<list gender="0" lookType="1438" name="Seavell Master"/>
<list gender="1" lookType="1422" name="Seavell Master"/>
</outfit>
<outfit id="34" quest="181632">
<list gender="0" lookType="1434" name="Naturia Master"/>
<list gender="1" lookType="1423" name="Naturia Master"/>
</outfit>
<outfit id="35" quest="181633">
<list gender="0" lookType="1430" name="Malefic Master"/>
<list gender="1" lookType="1428" name="Malefic Master"/>
</outfit>
<outfit id="36" quest="181634">
<list gender="0" lookType="1432" name="Volcanic Superior"/>
<list gender="1" lookType="1425" name="Volcanic Superior"/>
</outfit>
<outfit id="37" quest="181635">
<list gender="0" lookType="1433" name="Wingeon Master"/>
<list gender="1" lookType="1424" name="Wingeon Master"/>
</outfit>
<outfit id="38" quest="181636">
<list gender="0" lookType="1436" name="Orebound Master"/>
<list gender="1" lookType="1427" name="Orebound Master"/>
</outfit>
<outfit id="39" quest="181637">
<list gender="0" lookType="1431" name="Gardestrike Master"/>
<list gender="1" lookType="1429" name="Gardestrike Master"/>
</outfit>
<outfit id="40" quest="181638">
<list gender="0" lookType="1435" name="Psycraft Master"/>
<list gender="1" lookType="1426" name="Psycraft Master"/>
</outfit>

Aviso: Modiciar o Outifit Id Conforme o Seu Servidor!

Aviso2: Não Eskecer De Modificar os Looktypes Dos Clan e Dos Npc Conforme o Seu Client!

Bom Se Acharem Algum Erro Fatal, Avisar...

Mas Porinquanto é So Isso *-*

Abraço, Espero Que Tenhão Costados!

Esse TUTORIAL é Exclusivo Do Xtibia, NÃO DOU A PERMIÇÃO PARA COPIAREM OU PUBLICAREM EM OUTRO FORUM! Caso Aconteça Isso Será Considerado RIPP

Creditos Base:

Slicer. (Edição Inicial)

Editado Setembro 21, 2012 por Stigal

BrunooMaciell · Setembro 6, 2012

Jaja estarei testando

mais ele ta igual pxg mesmo deixa o pokemon shiny e talz ??

Stigal · Setembro 6, 2012

Jaja estarei testando

mais ele ta igual pxg mesmo deixa o pokemon shiny e talz ??

Sim, e Tbm Te Promove...

rank = {"a Raibolt Shock", "a Raibolt Watt","a Raibolt Electrician","a Raibolt Overcharged","a Raibolt Legend"}

Obrigado Por Comentar!

caotic · Setembro 6, 2012

muito bom stigal.

Parabens ao tuto

Stigal · Setembro 6, 2012

muito bom stigal.

Parabens ao tuto

Brigado Gatenho *-*

Vamos Ver Se Fica Funcional Para Todos *-*

Abraço.

lucasf1 · Setembro 6, 2012

muito bom stigal(a esse nome e feio, vo te chamar de mingal agora) acho que ele vai ser muito util para muitas pessoas,conquistou minha confiança, rep+.

Stigal · Setembro 6, 2012

muito bom stigal(a esse nome e feio, vo te chamar de mingal agora) acho que ele vai ser muito util para muitas pessoas,conquistou minha confiança, rep+.

kkk vlws... Espere Que Seja Msm!

Arrumei Os Scripts Buntin e Os Npc Tbm e Ate Fiz Um Tutorialsinho Pra Dizer Oque Fazer e Oque Alterar *-*

Abraço, Obrigado.

lucasf1 · Setembro 6, 2012

muito bom stigal(a esse nome e feio, vo te chamar de mingal agora) acho que ele vai ser muito util para muitas pessoas,conquistou minha confiança, rep+.

kkk vlws... Espere Que Seja Msm!

Arrumei Os Scripts Buntin e Os Npc Tbm e Ate Fiz Um Tutorialsinho Pra Dizer Oque Fazer e Oque Alterar *-*

Abraço, Obrigado.

Foda ficou aquele "Abraço, Espero Que Tenhão Costados!"

Stigal · Setembro 6, 2012

muito bom stigal(a esse nome e feio, vo te chamar de mingal agora) acho que ele vai ser muito util para muitas pessoas,conquistou minha confiança, rep+.

kkk vlws... Espere Que Seja Msm!

Arrumei Os Scripts Buntin e Os Npc Tbm e Ate Fiz Um Tutorialsinho Pra Dizer Oque Fazer e Oque Alterar *-*

Abraço, Obrigado.

Foda ficou aquele "Abraço, Espero Que Tenhão Costados!"

kkkk' Sistema Ta Melhor... Dei Uma Testada BASICA aki...

Mas o Brunoo Testou e Falou q Ta 100%

Entao GOGOGO ;3

Abraço.

Wiisht · Setembro 6, 2012

Ola Xtibianos,

Venho Postar o Sistema De CLANS Do "PokeXGames"...

Arrumei Uns Problemas Neles e Agora So Podem Entrar Nos Clan Level 80+

Vamos Ao Tutorial Então:

Vá a "Pasta Do Servidor > Data > Lib" Crie Um Um Arquivo.lua Nomeado Como "clan system"

Adicione Isso Dentro Dele:

local clansAtk = {
[1] =  {
  [FIREDAMAGE] =  {
	[1] = {atk = 1.17},
	[2] = {atk = 1.22},
	[3] = {atk = 1.27},
	[4] = {atk = 1.32},
	[5] = {atk = 1.37},
   },
  ["null"] =	{
   },
 },
[2] =  {
  [WATERDAMAGE] = {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
  [iCEDAMAGE] =   {
	[1] = {atk = 1.10},
	[2] = {atk = 1.15},
	[3] = {atk = 1.20},
	[4] = {atk = 1.25},
	[5] = {atk = 1.30},
   },
 },
[3] =  {
  [ROCKDAMAGE] =  {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
 [GROUNDDAMAGE] = {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
 },
[4] =  {
  [FLYDAMAGE] =   {
	[1] = {atk = 1.15},
	[2] = {atk = 1.20},
	[3] = {atk = 1.25},
	[4] = {atk = 1.30},
	[5] = {atk = 1.35},
   },
 [DRAGONDAMAGE] = {
	[1] = {atk = 1.10},
	[2] = {atk = 1.15},
	[3] = {atk = 1.20},
	[4] = {atk = 1.25},
	[5] = {atk = 1.30},
   },
 },
[5] =  {
 [GHOSTDAMAGE] =  {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
 [POISONDAMAGE] = {
	[1] = {atk = 1.08},
	[2] = {atk = 1.13},
	[3] = {atk = 1.18},
	[4] = {atk = 1.23},
	[5] = {atk = 1.28},
   },
 },
[6] =  {
  [FIGHTDAMAGE] = {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
 [NORMALDAMAGE] = {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
 },
[7] =  {
  [PSYCHICDAMAGE] =  {
	[1] = {atk = 1.10},
	[2] = {atk = 1.15},
	[3] = {atk = 1.20},
	[4] = {atk = 1.25},
	[5] = {atk = 1.30},
   },
  ["null"] =   {
   },
 },
[8] =  {
 [GRASSDAMAGE] =  {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
 [bUGDAMAGE] =  {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
 },
[9] =  {
  [ELECTRICDAMAGE] = {
	[1] = {atk = 1.12},
	[2] = {atk = 1.17},
	[3] = {atk = 1.22},
	[4] = {atk = 1.27},
	[5] = {atk = 1.32},
   },
  ["null"] =   {
   },
 }
}
local clansDef = {
[1] =  {
  ["fire"] =  {
   [1] = {def = 0.17},
   [2] = {def = 0.22},
   [3] = {def = 0.27},
   [4] = {def = 0.32},
   [5] = {def = 0.37},
  },
  ["null"] =  {
  },
	},
[2] =   {
  ["water"] = {
   [1] = {def = 0.05},
   [2] = {def = 0.10},
   [3] = {def = 0.15},
   [4] = {def = 0.20},
   [5] = {def = 0.25},
  },
  ["ice"] =  {
   [1] = {def = 0.10},
   [2] = {def = 0.15},
   [3] = {def = 0.20},
   [4] = {def = 0.25},
   [5] = {def = 0.30},
  },
 },
[3] = {
  ["rock"] =  {
   [1] = {def = 0.05},
   [2] = {def = 0.10},
   [3] = {def = 0.15},
   [4] = {def = 0.20},
   [5] = {def = 0.25},
  },
 ["ground"] = {
   [1] = {def = 0.10},
   [2] = {def = 0.15},
   [3] = {def = 0.20},
   [4] = {def = 0.25},
   [5] = {def = 0.30},
  },
 },
[4] =   {
["flying"] =  {
   [1] = {def = 0.15},
   [2] = {def = 0.20},
   [3] = {def = 0.25},
   [4] = {def = 0.30},
   [5] = {def = 0.35},
  },
 ["dragon"] = {
   [1] = {def = 0.10},
   [2] = {def = 0.15},
   [3] = {def = 0.20},
   [4] = {def = 0.25},
   [5] = {def = 0.30},
  },
 },
[5] =  {
  ["ghost"] = {
   [1] = {def = 0.05},
   [2] = {def = 0.10},
   [3] = {def = 0.15},
   [4] = {def = 0.20},
   [5] = {def = 0.25},
  },
 ["poison"] = {
   [1] = {def = 0.08},
   [2] = {def = 0.13},
   [3] = {def = 0.18},
   [4] = {def = 0.23},
   [5] = {def = 0.28},
  },
 },
[6] =   {
  ["fighting"] = {
   [1] = {def = 0.05},
   [2] = {def = 0.10},
   [3] = {def = 0.15},
   [4] = {def = 0.20},
   [5] = {def = 0.25},
  },
 ["normal"] = {
   [1] = {def = 0.05},
   [2] = {def = 0.10},
   [3] = {def = 0.15},
   [4] = {def = 0.20},
   [5] = {def = 0.25},
  },
 },
[7] =   {
["psychic"] = {
   [1] = {def = 0.10},
   [2] = {def = 0.15},
   [3] = {def = 0.20},
   [4] = {def = 0.25},
   [5] = {def = 0.30},
  },
  ["null"] =  {
  },
 },
[8] =   {
  ["grass"] = {
   [1] = {def = 0.05},
   [2] = {def = 0.10},
   [3] = {def = 0.15},
   [4] = {def = 0.20},
   [5] = {def = 0.25},
  },
  ["bug"] =   {
   [1] = {def = 0.05},
   [2] = {def = 0.10},
   [3] = {def = 0.15},
   [4] = {def = 0.20},
   [5] = {def = 0.25},
  },
 },
[9] =   {
 ["electric"] = {
   [1] = {def = 0.12},
   [2] = {def = 0.17},
   [3] = {def = 0.22},
   [4] = {def = 0.27},
   [5] = {def = 0.32},
  },
 }
}					  
function getClanPorcent(master, combat, option, type, type2)
if getPlayerStorageValue(master, 86228) >= 1 then	  
local clanAtk = clansAtk[getPlayerStorageValue(master, 86228)]
local clanDef = clansDef[getPlayerStorageValue(master, 86228)]
for i = 1, 9 do
if getPlayerStorageValue(master, 86228) == i then
   if option == "atk" and clanAtk[combat] then
	  return clanAtk[combat][getPlayerStorageValue(master, 862281)].atk
   else
	   if option == "def" and clanDef[type] then								--alterado v1.3
		  return clanDef[type][getPlayerStorageValue(master, 862281)].def
	   elseif option == "def" and clanDef[type2] then
		  return clanDef[type2][getPlayerStorageValue(master, 862281)].def
	   end
   end
end
end
end
return option == "atk" and 1 or 0
end

Salve e Feche.

Agora Vá a Pasta "NPC" e Crie Os Seguintes Npc's:

Gardestrike Master

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Gardestrike Master" script="gardestrike master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1429" head="114" body="119" legs="114" feet="114" corpse="2212"/>
<parameters>
<parameter key="message_greet" value="Welcome |PLAYERNAME|, you want to join to my {clan}? Or you want to move up of {rank}? Or you want to transform you poke in a {shiny}?"/>
</parameters>
</npc>

Malefic Master

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Malefic Master" script="malefic master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1430" head="114" body="119" legs="114" feet="114" corpse="2212"/>
<parameters>
<parameter key="message_greet" value="Welcome |PLAYERNAME|, you want to join to my {clan}? Or you want to move up of {rank}? Or you want to transform you poke in a {shiny}?"/>
</parameters>
</npc>

Naturia Master

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Naturia Master" script="naturia master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1434" head="114" body="119" legs="114" feet="114" corpse="2212"/>
<parameters>
<parameter key="message_greet" value="Welcome |PLAYERNAME|, you want to join to my {clan}? Or you want to move up of {rank}? Or you want to transform you poke in a {shiny}?"/>
</parameters>
</npc>

Orebound Master

<?xml version="1.0" encoding="UTF-8"?>

<npc name="Orebound Master" script="orebound master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1427" head="114" body="119" legs="114" feet="114" corpse="2212"/>

<parameters>
<parameter key="message_greet" value="Welcome |PLAYERNAME|, you want to join to my {clan}? Or you want to move up of {rank}? Or you want to transform you poke in a {shiny}?"/>
</parameters>
</npc>

Psycraft Master

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Psycraft Master" script="psycraft master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1426" head="114" body="119" legs="114" feet="114" corpse="2212"/>
<parameters>
<parameter key="message_greet" value="Welcome |PLAYERNAME|, you want to join to my {clan}? Or you want to move up of {rank}? Or you want to transform you poke in a {shiny}?"/>
</parameters>
</npc>

Raibolt Master

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Raibolt Master" script="raibolt master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1421" head="114" body="119" legs="114" feet="114" corpse="2212"/>
<parameters>
<parameter key="message_greet" value="Welcome |PLAYERNAME|, you want to join to my {clan}? Or you want to move up of {rank}? Or you want to transform you poke in a {shiny}?"/>
</parameters>
</npc>

Seavel Master

<?xml version="1.0" encoding="UTF-8"?>

</parameters>

</npc>

Volcanic Master

<?xml version="1.0" encoding="UTF-8"?>

</parameters>

</npc>

Wingeon Master

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Wingeon Master" script="wingeon master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1424" head="114" body="119" legs="114" feet="114" corpse="2212"/>
<parameters>
<parameter key="message_greet" value="Welcome |PLAYERNAME|, you want to join to my {clan}? Or you want to move up of {rank}? Or you want to transform you poke in a {shiny}?"/>
</parameters>
</npc>

Apos Criar Todos Feche e Salve.

Agora Va Na Pasta "NPC > Scripts" e Crie Esses Arquivos.lua

gardestrike master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Gardestrike Fist", "a Gardestrike Tamer","a Gardestrike Fighter","a Gardestrike DeathHand","a Gardestrike Champion"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 6 then
		  selfSay("You already are of the clan Gardestrike!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan Gardestrike!", cid)
	   setPlayerStorageValue(cid, 86228, 6)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181614, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 6 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan gardestrike! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181628, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end										--alterado v1.4

	ball = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "poke")
	if not isInArray({"Hitmonlee", "Hitmonchan", "Hitmontop"}, ball) then
	   selfSay("Put a Hitmonchan's pokeball or a Hitmonlee's pokeball or a Hitmontop's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true							--alterado v1.4
	   end

	   if getPlayerStorageValue(cid, 86228) ~= 6 and ball == "Hitmontop" then
		  selfSay("You aren't of the clan Gardestrike! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true							--alterado v1.4
	   else
		  selfSay("So you want to transform your "..ball.." in a Shiny "..ball.."? It will cost 200k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if not isInArray({"Hitmonlee", "Hitmonchan", "Hitmontop"}, getItemAttribute(pb, "poke")) then	 --alterado v1.4
	   selfSay("Put a Hitmonchan's pokeball or a Hitmonlee's pokeball or a Hitmontop's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if getPlayerStorageValue(cid, 86228) ~= 6 and getItemAttribute(pb, "poke") == "Hitmontop" then
		  selfSay("You aren't of the clan Gardestrike! Get out of here!", cid)
		  talkState[talkUser] = 0												 --alterado v1.4
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your "..getItemAttribute(pb, "poke").." is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 20000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  local name = getItemAttribute(pb, "poke")
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny "..getItemAttribute(pb, "poke"))
	doItemSetAttribute(pb, "description", "Contains a Shiny "..getItemAttribute(pb, "poke")..".")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny "..name])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

malefic master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Malefic Troublemaker", "a Malefic Venomancer","a Malefic Spectre","a Malefic Nightwalker","a Malefic Master"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 5 then
		  selfSay("You already are of the clan malefic!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan malefic!", cid)
	   setPlayerStorageValue(cid, 86228, 5)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181615, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 5 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan malefic! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181624, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 5 then
		  selfSay("You aren't of the clan Malefic! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Nidoking in a Shiny Nidoking? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Nidoking" then
	   selfSay("Put a Nidoking's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your Nidoking is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Nidoking")
	doItemSetAttribute(pb, "description", "Contains a Shiny Nidoking.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Nidoking"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

naturia master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Naturia Seed", "a Naturia Sprout","a Naturia Webhead","a Naturia Woodtrunk","a Naturia Keeper"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 8 then
		  selfSay("You already are of the clan naturia!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan naturia!", cid)
	   setPlayerStorageValue(cid, 86228, 8)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181612, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 8 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan naturia! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)

	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181623, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 8 then
		  selfSay("You aren't of the clan Naturia! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Vileplume in a Shiny Vileplume? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Vileplume" then
	   selfSay("Put a Vileplume's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your Vileplume is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Vileplume")
	doItemSetAttribute(pb, "description", "Contains a Shiny Vileplume.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Vileplume"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

orebound master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"an Orebound Sand", "an Orebound Rock","an Orebound Solid","an Orebound Hardskin","an Orebound Hero"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 3 then
		  selfSay("You already are of the clan orebound!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan orebound!", cid)
	   setPlayerStorageValue(cid, 86228, 3)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181620, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 3 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan orebound! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181627, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 3 then
		  selfSay("You aren't of the clan Orebound! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Golem in a Shiny Golem? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Golem" then
	   selfSay("Put a Golem's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your Golem is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Golem")
	doItemSetAttribute(pb, "description", "Contains a Shiny Golem.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Golem"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

psycraft master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Psycraft Mind", "a Psycraft Brain","a Psycraft Scholar","a Psycraft Telepath","a Psycraft Medium"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 7 then
		  selfSay("You already are of the clan psycraft!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan psycraft!", cid)
	   setPlayerStorageValue(cid, 86228, 7)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181618, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 7 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan psycraft! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181629, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 7 then
		  selfSay("You aren't of the clan Psycraft! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Hypno in a Shiny Hypno? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Hypno" then
	   selfSay("Put a Hypno's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your Hypno is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Hypno")
	doItemSetAttribute(pb, "description", "Contains a Shiny Hypno.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Hypno"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

raibolt master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Raibolt Shock", "a Raibolt Watt","a Raibolt Electrician","a Raibolt Overcharged","a Raibolt Legend"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 9 then
		  selfSay("You already are of the clan raibolt!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan raibolt!", cid)
	   setPlayerStorageValue(cid, 86228, 9)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181617, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 9 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan raibolt! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181621, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 9 then
		  selfSay("You aren't of the clan Raibolt! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Jolteon in a Shiny Jolteon? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Jolteon" then
	   selfSay("Put a Jolteon's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your Jolteon is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Jolteon")
	doItemSetAttribute(pb, "description", "Contains a Shiny Jolteon.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Jolteon"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

seavel master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Seavell Drop", "a Seavell Icelake","a Seavell Waterfall","a Seavell Frost","a Seavell Master"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 2 then
		  selfSay("You already are of the clan seavel!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan seavel!", cid)
	   setPlayerStorageValue(cid, 86228, 2)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181619, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 2 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan seavel! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181622, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 2 then
		  selfSay("You aren't of the clan Seavel! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Vaporeon in a Shiny Vaporeon? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Vaporeon" then
	   selfSay("Put a Vaporeon's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your Vaporeon is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Vaporeon")
	doItemSetAttribute(pb, "description", "Contains a Shiny Vaporeon.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Vaporeon"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

volcanic master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Volcanic Spark", "a Volcanic Flame","a Volcanic Firetamer","a Volcanic Pyromancer","a Volcanic Master"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 1 then
		  selfSay("You already are of the clan volcanic!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan volcanic!", cid)
	   setPlayerStorageValue(cid, 86228, 1)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181613, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 1 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan volcanic! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181625, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 1 then
		  selfSay("You aren't of the clan Volcanic! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Flareon in a Shiny Flareon? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Flareon" then
	   selfSay("Put a Flareon's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your flareon is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Flareon")
	doItemSetAttribute(pb, "description", "Contains a Shiny Flareon.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Flareon"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

wingeon master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Wingeon Cloud", "a Wingeon Wind","a Wingeon Sky","a Wingeon Falcon","a Wingeon Dragon"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 4 then
		  selfSay("You already are of the clan wingeon!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan wingeon!", cid)
	   setPlayerStorageValue(cid, 86228, 4)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181616, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 4 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan wingeon! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181626, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 4 then
		  selfSay("You aren't of the clan Wingeon! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Fearow in a Shiny Fearow? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Fearow" then
	   selfSay("Put a fearow's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your fearow is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Fearow")
	doItemSetAttribute(pb, "description", "Contains a Shiny Fearow.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Fearow"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end

	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

Salve e Feche.

Agora Vá Na Pasta "XML" Abra o Outifits.xml

e Adicione Isso Nele:

<!-- PROMOTE -->
<outfit id="14" quest="181612">
<list gender="0" lookType="1149" name="Naturia"/>
<list gender="1" lookType="1159" name="Naturia"/>
</outfit>
<outfit id="15" quest="181613">
<list gender="0" lookType="1152" name="Volcanic"/>
<list gender="1" lookType="1154" name="Volcanic"/>
</outfit>
<outfit id="16" quest="181614">
<list gender="0" lookType="1146" name="Gardestrike"/>
<list gender="1" lookType="1155" name="Gardestrike"/>
</outfit>
<outfit id="17" quest="181615">
<list gender="0" lookType="1153" name="Malefic"/>
<list gender="1" lookType="1157" name="Malefic"/>
</outfit>
<outfit id="18" quest="181616">
<list gender="0" lookType="1148" name="Wingeon"/>
<list gender="1" lookType="1158" name="Wingeon"/>
</outfit>
<outfit id="19" quest="181617">
<list gender="0" lookType="1147" name="Raibolt"/>
<list gender="1" lookType="1160" name="Raibolt"/>
</outfit>
<outfit id="20" quest="181618">
<list gender="0" lookType="1145" name="Psycraft"/>
<list gender="1" lookType="1161" name="Psycraft"/>
</outfit>
<outfit id="21" quest="181619">
<list gender="0" lookType="1151" name="Seavell"/>
<list gender="1" lookType="1162" name="Seavell"/>
</outfit>
<outfit id="22" quest="181620">
<list gender="0" lookType="1150" name="Orebound"/>
<list gender="1" lookType="1156" name="Orebound"/>
</outfit>
<!-- PROMOTE RANK 5 -->
<outfit id="23" quest="181621">
<list gender="0" lookType="1179" name="Raibolt Legend"/>
<list gender="1" lookType="1164" name="Raibolt Legend"/>
</outfit>
<outfit id="24" quest="181622">
<list gender="0" lookType="1178" name="Seavell Queen"/>
<list gender="1" lookType="1165" name="Seavell King"/>
</outfit>
<outfit id="25" quest="181623">
<list gender="0" lookType="1177" name="Naturia Keeper"/>
<list gender="1" lookType="1166" name="Naturia Keeper"/>
</outfit>
<outfit id="26" quest="181624">
<list gender="0" lookType="1176" name="Malefic Lady"/>
<list gender="1" lookType="1167" name="Malefic Lord"/>
</outfit>
<outfit id="27" quest="181625">
<list gender="0" lookType="1180" name="Volcanic Master"/>
<list gender="1" lookType="1168" name="Volcanic Master"/>
</outfit>
<outfit id="28" quest="181626">
<list gender="0" lookType="1175" name="Wingeon Dragon"/>
<list gender="1" lookType="1169" name="Wingeon Dragon"/>
</outfit>
<outfit id="29" quest="181627">
<list gender="0" lookType="1174" name="Orebound Hero"/>
<list gender="1" lookType="1170" name="Orebound Hero"/>
</outfit>
<outfit id="30" quest="181628">
<list gender="0" lookType="1173" name="Gardestrike Lady"/>
<list gender="1" lookType="1171" name="Gardestrike Champion"/>
</outfit>
<outfit id="31" quest="181629">
<list gender="0" lookType="1181" name="Psycraft Medium"/>
<list gender="1" lookType="1172" name="Psycraft Medium"/>
</outfit>
<!-- PROMOTE MASTER -->
<outfit id="32" quest="181630">
<list gender="0" lookType="1437" name="Raibolt Master"/>
<list gender="1" lookType="1421" name="Raibolt Master"/>
</outfit>
<outfit id="33" quest="181631">
<list gender="0" lookType="1438" name="Seavell Master"/>
<list gender="1" lookType="1422" name="Seavell Master"/>
</outfit>
<outfit id="34" quest="181632">
<list gender="0" lookType="1434" name="Naturia Master"/>
<list gender="1" lookType="1423" name="Naturia Master"/>
</outfit>
<outfit id="35" quest="181633">
<list gender="0" lookType="1430" name="Malefic Master"/>
<list gender="1" lookType="1428" name="Malefic Master"/>
</outfit>
<outfit id="36" quest="181634">
<list gender="0" lookType="1432" name="Volcanic Superior"/>
<list gender="1" lookType="1425" name="Volcanic Superior"/>
</outfit>
<outfit id="37" quest="181635">
<list gender="0" lookType="1433" name="Wingeon Master"/>
<list gender="1" lookType="1424" name="Wingeon Master"/>
</outfit>
<outfit id="38" quest="181636">
<list gender="0" lookType="1436" name="Orebound Master"/>
<list gender="1" lookType="1427" name="Orebound Master"/>
</outfit>
<outfit id="39" quest="181637">
<list gender="0" lookType="1431" name="Gardestrike Master"/>
<list gender="1" lookType="1429" name="Gardestrike Master"/>
</outfit>
<outfit id="40" quest="181638">
<list gender="0" lookType="1435" name="Psycraft Master"/>
<list gender="1" lookType="1426" name="Psycraft Master"/>
</outfit>

Aviso: Modiciar o Outifit Id Conforme o Seu Servidor!

Aviso2: Não Eskecer De Modificar os Looktypes Dos Clan e Dos Npc Conforme o Seu Client!

Bom Se Acharem Algum Erro Fatal, Avisar...

Mas Porinquanto é So Isso *-*

Abraço, Espero Que Tenhão Costados!

Esse TUTORIAL é Exclusivo Do Xtibia, NÃO DOU A PERMIÇÃO PARA COPIAREM OU PUBLICAREM EM OUTRO FORUM! Caso Aconteça Isso Será Considerado RIPP

Esqueceu de postar os creditos do Slicer, pois foi com base do dele que foi feito isso, você não modificou nada na verdade, só ensinou instalar :x

Stigal · Setembro 6, 2012

Ola Xtibianos,

Venho Postar o Sistema De CLANS Do "PokeXGames"...

Arrumei Uns Problemas Neles e Agora So Podem Entrar Nos Clan Level 80+

Vamos Ao Tutorial Então:

Vá a "Pasta Do Servidor > Data > Lib" Crie Um Um Arquivo.lua Nomeado Como "clan system"

Adicione Isso Dentro Dele:

local clansAtk = {
[1] =  {
  [FIREDAMAGE] =  {
	[1] = {atk = 1.17},
	[2] = {atk = 1.22},
	[3] = {atk = 1.27},
	[4] = {atk = 1.32},
	[5] = {atk = 1.37},
   },
  ["null"] =	{
   },
 },
[2] =  {
  [WATERDAMAGE] = {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
  [iCEDAMAGE] =   {
	[1] = {atk = 1.10},
	[2] = {atk = 1.15},
	[3] = {atk = 1.20},
	[4] = {atk = 1.25},
	[5] = {atk = 1.30},
   },
 },
[3] =  {
  [ROCKDAMAGE] =  {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
 [GROUNDDAMAGE] = {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
 },
[4] =  {
  [FLYDAMAGE] =   {
	[1] = {atk = 1.15},
	[2] = {atk = 1.20},
	[3] = {atk = 1.25},
	[4] = {atk = 1.30},
	[5] = {atk = 1.35},
   },
 [DRAGONDAMAGE] = {
	[1] = {atk = 1.10},
	[2] = {atk = 1.15},
	[3] = {atk = 1.20},
	[4] = {atk = 1.25},
	[5] = {atk = 1.30},
   },
 },
[5] =  {
 [GHOSTDAMAGE] =  {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
 [POISONDAMAGE] = {
	[1] = {atk = 1.08},
	[2] = {atk = 1.13},
	[3] = {atk = 1.18},
	[4] = {atk = 1.23},
	[5] = {atk = 1.28},
   },
 },
[6] =  {
  [FIGHTDAMAGE] = {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
 [NORMALDAMAGE] = {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
 },
[7] =  {
  [PSYCHICDAMAGE] =  {
	[1] = {atk = 1.10},
	[2] = {atk = 1.15},
	[3] = {atk = 1.20},
	[4] = {atk = 1.25},
	[5] = {atk = 1.30},
   },
  ["null"] =   {
   },
 },
[8] =  {
 [GRASSDAMAGE] =  {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
 [bUGDAMAGE] =  {
	[1] = {atk = 1.05},
	[2] = {atk = 1.10},
	[3] = {atk = 1.15},
	[4] = {atk = 1.20},
	[5] = {atk = 1.25},
   },
 },
[9] =  {
  [ELECTRICDAMAGE] = {
	[1] = {atk = 1.12},
	[2] = {atk = 1.17},
	[3] = {atk = 1.22},
	[4] = {atk = 1.27},
	[5] = {atk = 1.32},
   },
  ["null"] =   {
   },
 }
}
local clansDef = {
[1] =  {
  ["fire"] =  {
   [1] = {def = 0.17},
   [2] = {def = 0.22},
   [3] = {def = 0.27},
   [4] = {def = 0.32},
   [5] = {def = 0.37},
  },
  ["null"] =  {
  },
	},
[2] =   {
  ["water"] = {
   [1] = {def = 0.05},
   [2] = {def = 0.10},
   [3] = {def = 0.15},
   [4] = {def = 0.20},
   [5] = {def = 0.25},
  },
  ["ice"] =  {
   [1] = {def = 0.10},
   [2] = {def = 0.15},
   [3] = {def = 0.20},
   [4] = {def = 0.25},
   [5] = {def = 0.30},
  },
 },
[3] = {
  ["rock"] =  {
   [1] = {def = 0.05},
   [2] = {def = 0.10},
   [3] = {def = 0.15},
   [4] = {def = 0.20},
   [5] = {def = 0.25},
  },
 ["ground"] = {
   [1] = {def = 0.10},
   [2] = {def = 0.15},
   [3] = {def = 0.20},
   [4] = {def = 0.25},
   [5] = {def = 0.30},
  },
 },
[4] =   {
["flying"] =  {
   [1] = {def = 0.15},
   [2] = {def = 0.20},
   [3] = {def = 0.25},
   [4] = {def = 0.30},
   [5] = {def = 0.35},
  },
 ["dragon"] = {
   [1] = {def = 0.10},
   [2] = {def = 0.15},
   [3] = {def = 0.20},
   [4] = {def = 0.25},
   [5] = {def = 0.30},
  },
 },
[5] =  {
  ["ghost"] = {
   [1] = {def = 0.05},
   [2] = {def = 0.10},
   [3] = {def = 0.15},
   [4] = {def = 0.20},
   [5] = {def = 0.25},
  },
 ["poison"] = {
   [1] = {def = 0.08},
   [2] = {def = 0.13},
   [3] = {def = 0.18},
   [4] = {def = 0.23},
   [5] = {def = 0.28},
  },
 },
[6] =   {
  ["fighting"] = {
   [1] = {def = 0.05},
   [2] = {def = 0.10},
   [3] = {def = 0.15},
   [4] = {def = 0.20},
   [5] = {def = 0.25},
  },
 ["normal"] = {
   [1] = {def = 0.05},
   [2] = {def = 0.10},
   [3] = {def = 0.15},
   [4] = {def = 0.20},
   [5] = {def = 0.25},
  },
 },
[7] =   {
["psychic"] = {
   [1] = {def = 0.10},
   [2] = {def = 0.15},
   [3] = {def = 0.20},
   [4] = {def = 0.25},
   [5] = {def = 0.30},
  },
  ["null"] =  {
  },
 },
[8] =   {
  ["grass"] = {
   [1] = {def = 0.05},
   [2] = {def = 0.10},
   [3] = {def = 0.15},
   [4] = {def = 0.20},
   [5] = {def = 0.25},
  },
  ["bug"] =   {
   [1] = {def = 0.05},
   [2] = {def = 0.10},
   [3] = {def = 0.15},
   [4] = {def = 0.20},
   [5] = {def = 0.25},
  },
 },
[9] =   {
 ["electric"] = {
   [1] = {def = 0.12},
   [2] = {def = 0.17},
   [3] = {def = 0.22},
   [4] = {def = 0.27},
   [5] = {def = 0.32},
  },
 }
}					  
function getClanPorcent(master, combat, option, type, type2)
if getPlayerStorageValue(master, 86228) >= 1 then	  
local clanAtk = clansAtk[getPlayerStorageValue(master, 86228)]
local clanDef = clansDef[getPlayerStorageValue(master, 86228)]
for i = 1, 9 do
if getPlayerStorageValue(master, 86228) == i then
   if option == "atk" and clanAtk[combat] then
	  return clanAtk[combat][getPlayerStorageValue(master, 862281)].atk
   else
	   if option == "def" and clanDef[type] then								--alterado v1.3
		  return clanDef[type][getPlayerStorageValue(master, 862281)].def
	   elseif option == "def" and clanDef[type2] then
		  return clanDef[type2][getPlayerStorageValue(master, 862281)].def
	   end
   end
end
end
end
return option == "atk" and 1 or 0
end

Salve e Feche.

Agora Vá a Pasta "NPC" e Crie Os Seguintes Npc's:

Gardestrike Master

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Gardestrike Master" script="gardestrike master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1429" head="114" body="119" legs="114" feet="114" corpse="2212"/>
<parameters>
<parameter key="message_greet" value="Welcome |PLAYERNAME|, you want to join to my {clan}? Or you want to move up of {rank}? Or you want to transform you poke in a {shiny}?"/>
</parameters>
</npc>

Malefic Master

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Malefic Master" script="malefic master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1430" head="114" body="119" legs="114" feet="114" corpse="2212"/>
<parameters>
<parameter key="message_greet" value="Welcome |PLAYERNAME|, you want to join to my {clan}? Or you want to move up of {rank}? Or you want to transform you poke in a {shiny}?"/>
</parameters>
</npc>

Naturia Master

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Naturia Master" script="naturia master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1434" head="114" body="119" legs="114" feet="114" corpse="2212"/>
<parameters>
<parameter key="message_greet" value="Welcome |PLAYERNAME|, you want to join to my {clan}? Or you want to move up of {rank}? Or you want to transform you poke in a {shiny}?"/>
</parameters>
</npc>

Orebound Master

<?xml version="1.0" encoding="UTF-8"?>

<npc name="Orebound Master" script="orebound master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1427" head="114" body="119" legs="114" feet="114" corpse="2212"/>

<parameters>
<parameter key="message_greet" value="Welcome |PLAYERNAME|, you want to join to my {clan}? Or you want to move up of {rank}? Or you want to transform you poke in a {shiny}?"/>
</parameters>
</npc>

Psycraft Master

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Psycraft Master" script="psycraft master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1426" head="114" body="119" legs="114" feet="114" corpse="2212"/>
<parameters>
<parameter key="message_greet" value="Welcome |PLAYERNAME|, you want to join to my {clan}? Or you want to move up of {rank}? Or you want to transform you poke in a {shiny}?"/>
</parameters>
</npc>

Raibolt Master

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Raibolt Master" script="raibolt master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1421" head="114" body="119" legs="114" feet="114" corpse="2212"/>
<parameters>
<parameter key="message_greet" value="Welcome |PLAYERNAME|, you want to join to my {clan}? Or you want to move up of {rank}? Or you want to transform you poke in a {shiny}?"/>
</parameters>
</npc>

Seavel Master

<?xml version="1.0" encoding="UTF-8"?>

</parameters>

</npc>

Volcanic Master

<?xml version="1.0" encoding="UTF-8"?>

</parameters>

</npc>

Wingeon Master

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Wingeon Master" script="wingeon master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">
<health now="150" max="150"/>
<look type="1424" head="114" body="119" legs="114" feet="114" corpse="2212"/>
<parameters>
<parameter key="message_greet" value="Welcome |PLAYERNAME|, you want to join to my {clan}? Or you want to move up of {rank}? Or you want to transform you poke in a {shiny}?"/>
</parameters>
</npc>

Apos Criar Todos Feche e Salve.

Agora Va Na Pasta "NPC > Scripts" e Crie Esses Arquivos.lua

gardestrike master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Gardestrike Fist", "a Gardestrike Tamer","a Gardestrike Fighter","a Gardestrike DeathHand","a Gardestrike Champion"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 6 then
		  selfSay("You already are of the clan Gardestrike!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan Gardestrike!", cid)
	   setPlayerStorageValue(cid, 86228, 6)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181614, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 6 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan gardestrike! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181628, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end										--alterado v1.4

	ball = getItemAttribute(getPlayerSlotItem(cid, 8).uid, "poke")
	if not isInArray({"Hitmonlee", "Hitmonchan", "Hitmontop"}, ball) then
	   selfSay("Put a Hitmonchan's pokeball or a Hitmonlee's pokeball or a Hitmontop's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true							--alterado v1.4
	   end

	   if getPlayerStorageValue(cid, 86228) ~= 6 and ball == "Hitmontop" then
		  selfSay("You aren't of the clan Gardestrike! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true							--alterado v1.4
	   else
		  selfSay("So you want to transform your "..ball.." in a Shiny "..ball.."? It will cost 200k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if not isInArray({"Hitmonlee", "Hitmonchan", "Hitmontop"}, getItemAttribute(pb, "poke")) then	 --alterado v1.4
	   selfSay("Put a Hitmonchan's pokeball or a Hitmonlee's pokeball or a Hitmontop's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if getPlayerStorageValue(cid, 86228) ~= 6 and getItemAttribute(pb, "poke") == "Hitmontop" then
		  selfSay("You aren't of the clan Gardestrike! Get out of here!", cid)
		  talkState[talkUser] = 0												 --alterado v1.4
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your "..getItemAttribute(pb, "poke").." is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 20000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  local name = getItemAttribute(pb, "poke")
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny "..getItemAttribute(pb, "poke"))
	doItemSetAttribute(pb, "description", "Contains a Shiny "..getItemAttribute(pb, "poke")..".")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny "..name])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

malefic master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Malefic Troublemaker", "a Malefic Venomancer","a Malefic Spectre","a Malefic Nightwalker","a Malefic Master"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 5 then
		  selfSay("You already are of the clan malefic!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan malefic!", cid)
	   setPlayerStorageValue(cid, 86228, 5)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181615, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 5 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan malefic! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181624, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 5 then
		  selfSay("You aren't of the clan Malefic! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Nidoking in a Shiny Nidoking? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Nidoking" then
	   selfSay("Put a Nidoking's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your Nidoking is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Nidoking")
	doItemSetAttribute(pb, "description", "Contains a Shiny Nidoking.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Nidoking"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

naturia master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Naturia Seed", "a Naturia Sprout","a Naturia Webhead","a Naturia Woodtrunk","a Naturia Keeper"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 8 then
		  selfSay("You already are of the clan naturia!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan naturia!", cid)
	   setPlayerStorageValue(cid, 86228, 8)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181612, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 8 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan naturia! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)

	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181623, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 8 then
		  selfSay("You aren't of the clan Naturia! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Vileplume in a Shiny Vileplume? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Vileplume" then
	   selfSay("Put a Vileplume's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your Vileplume is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Vileplume")
	doItemSetAttribute(pb, "description", "Contains a Shiny Vileplume.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Vileplume"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

orebound master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"an Orebound Sand", "an Orebound Rock","an Orebound Solid","an Orebound Hardskin","an Orebound Hero"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 3 then
		  selfSay("You already are of the clan orebound!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan orebound!", cid)
	   setPlayerStorageValue(cid, 86228, 3)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181620, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 3 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan orebound! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181627, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 3 then
		  selfSay("You aren't of the clan Orebound! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Golem in a Shiny Golem? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Golem" then
	   selfSay("Put a Golem's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your Golem is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Golem")
	doItemSetAttribute(pb, "description", "Contains a Shiny Golem.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Golem"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

psycraft master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Psycraft Mind", "a Psycraft Brain","a Psycraft Scholar","a Psycraft Telepath","a Psycraft Medium"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 7 then
		  selfSay("You already are of the clan psycraft!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan psycraft!", cid)
	   setPlayerStorageValue(cid, 86228, 7)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181618, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 7 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan psycraft! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181629, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 7 then
		  selfSay("You aren't of the clan Psycraft! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Hypno in a Shiny Hypno? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Hypno" then
	   selfSay("Put a Hypno's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your Hypno is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Hypno")
	doItemSetAttribute(pb, "description", "Contains a Shiny Hypno.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Hypno"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

raibolt master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Raibolt Shock", "a Raibolt Watt","a Raibolt Electrician","a Raibolt Overcharged","a Raibolt Legend"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 9 then
		  selfSay("You already are of the clan raibolt!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan raibolt!", cid)
	   setPlayerStorageValue(cid, 86228, 9)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181617, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 9 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan raibolt! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181621, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 9 then
		  selfSay("You aren't of the clan Raibolt! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Jolteon in a Shiny Jolteon? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Jolteon" then
	   selfSay("Put a Jolteon's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your Jolteon is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Jolteon")
	doItemSetAttribute(pb, "description", "Contains a Shiny Jolteon.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Jolteon"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

seavel master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Seavell Drop", "a Seavell Icelake","a Seavell Waterfall","a Seavell Frost","a Seavell Master"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 2 then
		  selfSay("You already are of the clan seavel!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan seavel!", cid)
	   setPlayerStorageValue(cid, 86228, 2)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181619, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 2 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan seavel! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181622, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 2 then
		  selfSay("You aren't of the clan Seavel! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Vaporeon in a Shiny Vaporeon? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Vaporeon" then
	   selfSay("Put a Vaporeon's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your Vaporeon is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Vaporeon")
	doItemSetAttribute(pb, "description", "Contains a Shiny Vaporeon.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Vaporeon"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

volcanic master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Volcanic Spark", "a Volcanic Flame","a Volcanic Firetamer","a Volcanic Pyromancer","a Volcanic Master"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 1 then
		  selfSay("You already are of the clan volcanic!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan volcanic!", cid)
	   setPlayerStorageValue(cid, 86228, 1)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181613, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 1 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan volcanic! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181625, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0

	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 1 then
		  selfSay("You aren't of the clan Volcanic! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Flareon in a Shiny Flareon? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Flareon" then
	   selfSay("Put a Flareon's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your flareon is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Flareon")
	doItemSetAttribute(pb, "description", "Contains a Shiny Flareon.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Flareon"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end
	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

wingeon master

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid) npcHandler:onCreatureAppear(cid) end
function onCreatureDisappear(cid) npcHandler:onCreatureDisappear(cid) end
function onCreatureSay(cid, type, msg) npcHandler:onCreatureSay(cid, type, msg) end
function onThink() npcHandler:onThink() end
function creatureSayCallback(cid, type, msg)
if(not npcHandler:isFocused(cid)) then
return false
end
local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

rank = {"a Wingeon Cloud", "a Wingeon Wind","a Wingeon Sky","a Wingeon Falcon","a Wingeon Dragon"}

	if msgcontains(msg, 'clan') or msgcontains(msg, 'Clan') then
	   if getPlayerStorageValue(cid, 86228) == 4 then
		  selfSay("You already are of the clan wingeon!", cid)
		  talkState[talkUser] = 0
		  return true
	   elseif getPlayerStorageValue(cid, 86228) >= 1 then
		  selfSay("You already are of another clan!", cid)
		  talkState[talkUser] = 0
		  return true  
	   end
		  selfSay("So you want to join in my clan... Are you sure that?", cid)
		  talkState[talkUser] = 2
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 2 then
	   if getPlayerLevel(cid) < 80 then
		  selfSay("You are too weak yet... You need to be atleast level 80 to enter in the clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   selfSay("OK then... Now you are a great member of de clan wingeon!", cid)
	   setPlayerStorageValue(cid, 86228, 4)
	   setPlayerStorageValue(cid, 862281, 1)
	   setPlayerStorageValue(cid, 181616, 1)
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'rank') or msgcontains(msg, 'rank') then
	   if getPlayerStorageValue(cid, 86228) == 4 then
		  selfSay("So.. you want to move up of rank?", cid)
		  talkState[talkUser] = 3
	   else
		  selfSay("You aren't of the clan wingeon! Get out of here!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 3 then
	   level = 80
	   if (getPlayerStorageValue(cid, 862281)+1) == 2 then
		  level = 90
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 3 then
		  level = 100
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 4 then
		  level = 110
	   elseif (getPlayerStorageValue(cid, 862281)+1) == 5 then
		  level = 120
	   end

	   if getPlayerLevel(cid) < level then
		  selfSay("You are too weak yet... You need to be atleast level "..level.." to move up of rank!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  selfSay("You are already a master of our clan!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
	   setPlayerStorageValue(cid, 862281, getPlayerStorageValue(cid, 862281)+1)
	   if getPlayerStorageValue(cid, 862281) == 5 then
		  setPlayerStorageValue(cid, 181626, 1)
	   end
	   selfSay("So here we are... You are now a "..rank[getPlayerStorageValue(cid, 862281)]..", rank "..getPlayerStorageValue(cid, 862281).." of our clan!", cid)	  
	   talkState[talkUser] = 0
	elseif msgcontains(msg, 'shiny') or msgcontains(msg, 'Shiny') then
	   if getPlayerStorageValue(cid, 86228) ~= 4 then
		  selfSay("You aren't of the clan Wingeon! Get out of here!", cid)
		  return true
	   else  
		  selfSay("So you want to transform your Fearow in a Shiny Fearow? It will cost 500k!", cid)
		  talkState[talkUser] = 4
	   end
	elseif (msgcontains(msg, 'yes') or msgcontains(msg, 'Yes')) and talkState[talkUser] == 4 then
	   if getPlayerSlotItem(cid, 8).uid <= 0 then
		  selfSay("Sorry, you don't have a pokemon in the main slot!", cid)
		  talkState[talkUser] = 0
	return true
	end
																		  --alterado v1.2
	if #getCreatureSummons(cid) >= 1 then
	   selfSay("Go back your pokemon!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	local pb = getPlayerSlotItem(cid, 8).uid

	if getItemAttribute(pb, "poke") ~= "Fearow" then
	   selfSay("Put a fearow's pokeball atleast +20 in main slot!", cid)
		  talkState[talkUser] = 0
		  return true
	   end

	   if not getItemAttribute(pb, "boost") or getItemAttribute(pb, "boost") < 20 then
		  selfSay("Sorry, your fearow is not boosted +20!", cid)
		  talkState[talkUser] = 0
		  return true
	   end
									  --100000 = 1k, 1000000 = 10k, 10000000 = 100k
	   if doPlayerRemoveMoney(cid, 50000000) == true then
		  selfSay("So there is it! Enjoy!", cid)
		  doItemSetAttribute(pb, "hp", 1)
		  doItemSetAttribute(pb, "poke", "Shiny Fearow")
	doItemSetAttribute(pb, "description", "Contains a Shiny Fearow.")
	doItemEraseAttribute(pb, "boost")
	doTransformItem(getPlayerSlotItem(cid, 7).uid, fotos["Shiny Fearow"])
	if useKpdoDlls then
	  doCreatureExecuteTalkAction(cid, "/pokeread")
	   end
	talkState[talkUser] = 0
	return true
   else
	   selfSay("You don't have enough money!", cid)
	   talkState[talkUser] = 0
	   return true
	  end

	end
return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

Salve e Feche.

Agora Vá Na Pasta "XML" Abra o Outifits.xml

e Adicione Isso Nele:

<!-- PROMOTE -->
<outfit id="14" quest="181612">
<list gender="0" lookType="1149" name="Naturia"/>
<list gender="1" lookType="1159" name="Naturia"/>
</outfit>
<outfit id="15" quest="181613">
<list gender="0" lookType="1152" name="Volcanic"/>
<list gender="1" lookType="1154" name="Volcanic"/>
</outfit>
<outfit id="16" quest="181614">
<list gender="0" lookType="1146" name="Gardestrike"/>
<list gender="1" lookType="1155" name="Gardestrike"/>
</outfit>
<outfit id="17" quest="181615">
<list gender="0" lookType="1153" name="Malefic"/>
<list gender="1" lookType="1157" name="Malefic"/>
</outfit>
<outfit id="18" quest="181616">
<list gender="0" lookType="1148" name="Wingeon"/>
<list gender="1" lookType="1158" name="Wingeon"/>
</outfit>
<outfit id="19" quest="181617">
<list gender="0" lookType="1147" name="Raibolt"/>
<list gender="1" lookType="1160" name="Raibolt"/>
</outfit>
<outfit id="20" quest="181618">
<list gender="0" lookType="1145" name="Psycraft"/>
<list gender="1" lookType="1161" name="Psycraft"/>
</outfit>
<outfit id="21" quest="181619">
<list gender="0" lookType="1151" name="Seavell"/>
<list gender="1" lookType="1162" name="Seavell"/>
</outfit>
<outfit id="22" quest="181620">
<list gender="0" lookType="1150" name="Orebound"/>
<list gender="1" lookType="1156" name="Orebound"/>
</outfit>
<!-- PROMOTE RANK 5 -->
<outfit id="23" quest="181621">
<list gender="0" lookType="1179" name="Raibolt Legend"/>
<list gender="1" lookType="1164" name="Raibolt Legend"/>
</outfit>
<outfit id="24" quest="181622">
<list gender="0" lookType="1178" name="Seavell Queen"/>
<list gender="1" lookType="1165" name="Seavell King"/>
</outfit>
<outfit id="25" quest="181623">
<list gender="0" lookType="1177" name="Naturia Keeper"/>
<list gender="1" lookType="1166" name="Naturia Keeper"/>
</outfit>
<outfit id="26" quest="181624">
<list gender="0" lookType="1176" name="Malefic Lady"/>
<list gender="1" lookType="1167" name="Malefic Lord"/>
</outfit>
<outfit id="27" quest="181625">
<list gender="0" lookType="1180" name="Volcanic Master"/>
<list gender="1" lookType="1168" name="Volcanic Master"/>
</outfit>
<outfit id="28" quest="181626">
<list gender="0" lookType="1175" name="Wingeon Dragon"/>
<list gender="1" lookType="1169" name="Wingeon Dragon"/>
</outfit>
<outfit id="29" quest="181627">
<list gender="0" lookType="1174" name="Orebound Hero"/>
<list gender="1" lookType="1170" name="Orebound Hero"/>
</outfit>
<outfit id="30" quest="181628">
<list gender="0" lookType="1173" name="Gardestrike Lady"/>
<list gender="1" lookType="1171" name="Gardestrike Champion"/>
</outfit>
<outfit id="31" quest="181629">
<list gender="0" lookType="1181" name="Psycraft Medium"/>
<list gender="1" lookType="1172" name="Psycraft Medium"/>
</outfit>
<!-- PROMOTE MASTER -->
<outfit id="32" quest="181630">
<list gender="0" lookType="1437" name="Raibolt Master"/>
<list gender="1" lookType="1421" name="Raibolt Master"/>
</outfit>
<outfit id="33" quest="181631">
<list gender="0" lookType="1438" name="Seavell Master"/>
<list gender="1" lookType="1422" name="Seavell Master"/>
</outfit>
<outfit id="34" quest="181632">
<list gender="0" lookType="1434" name="Naturia Master"/>
<list gender="1" lookType="1423" name="Naturia Master"/>
</outfit>
<outfit id="35" quest="181633">
<list gender="0" lookType="1430" name="Malefic Master"/>
<list gender="1" lookType="1428" name="Malefic Master"/>
</outfit>
<outfit id="36" quest="181634">
<list gender="0" lookType="1432" name="Volcanic Superior"/>
<list gender="1" lookType="1425" name="Volcanic Superior"/>
</outfit>
<outfit id="37" quest="181635">
<list gender="0" lookType="1433" name="Wingeon Master"/>
<list gender="1" lookType="1424" name="Wingeon Master"/>
</outfit>
<outfit id="38" quest="181636">
<list gender="0" lookType="1436" name="Orebound Master"/>
<list gender="1" lookType="1427" name="Orebound Master"/>
</outfit>
<outfit id="39" quest="181637">
<list gender="0" lookType="1431" name="Gardestrike Master"/>
<list gender="1" lookType="1429" name="Gardestrike Master"/>
</outfit>
<outfit id="40" quest="181638">
<list gender="0" lookType="1435" name="Psycraft Master"/>
<list gender="1" lookType="1426" name="Psycraft Master"/>
</outfit>

Aviso: Modiciar o Outifit Id Conforme o Seu Servidor!

Aviso2: Não Eskecer De Modificar os Looktypes Dos Clan e Dos Npc Conforme o Seu Client!

Bom Se Acharem Algum Erro Fatal, Avisar...

Mas Porinquanto é So Isso *-*

Abraço, Espero Que Tenhão Costados!

Esse TUTORIAL é Exclusivo Do Xtibia, NÃO DOU A PERMIÇÃO PARA COPIAREM OU PUBLICAREM EM OUTRO FORUM! Caso Aconteça Isso Será Considerado RIPP

Esqueceu de postar os creditos do Slicer, pois foi com base do dele que foi feito isso, você não modificou nada na verdade, só ensinou instalar :x

Errado, Slicer Não Criou esse script!

Aperfeiçoei os bug q dava na troca e o bug de "promoção" entao pf amigo antes de falar alguma coisa tome nota!

Abraço.

lucasf1 · Setembro 6, 2012

@stigal

Então pq la aparece alterado v1.2?e o slicer tb tinha alterado na v1.2.

Editado Setembro 6, 2012 por lucasf1

Stigal · Setembro 6, 2012

peguei a base do slicer...

fiz essa na base do pda so q sem os erros q ele cometeu...

dexei o v1.2 .... pra mostrar q passou da versao.

abraço

lucasf1 · Setembro 6, 2012

@mingau

Então coloque os creditos do slicer, por vc te pego a base dele.

Stigal · Setembro 6, 2012

@mingau

Então coloque os creditos do slicer, por vc te pego a base dele.

Ta La o Bendito Creditos kkkk'

Base e Edição Inicial...

Abraço.

Entrar

[Tutorial] Adicionando Clan's No Poketibia

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Posted Images

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Quem Está Navegando 0 membros estão online

Conteúdo Similar

Anúncios