[Tutorial] Adicionando Clan's No Poketibia

[cacaiu 10]

Stigal

 

 

aew stigal vlw xd conssegui adapta ele pro centurion

 

 

so tenho uma duvida tipo: quando o player não é do clan msm assim ele pode transforma um poke em shiny =(

 

tem como arruma?

 

rep+ (ja dei hj pra um cara amanha te dou xd)

[Stigal 585]

Npc Gardestrike arrumado:

 

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())			

 

 

Ele troca hitmonchan+20 por shiny hitmonchan!

 

Oque Foi Arrumado?

Agora Somente usuarios do clan podem trocar...

 

Print:

 

Abraço.

Editado Setembro 21, 2012 por Stigal

[Shyrriro 6]

Lá vai o +rep Stigal sistema ta zika--*

[Stigal 585]

Lá vai o +rep Stigal sistema ta zika--*

Obrigado, aguarde o centurion v4 que vira com todos 100% (cacaiu conseguiu ageitar as outifits) *-*

Obrigado por comentar e espero que tenha te ajudado assim como ajudou muitos.

 

Atenciosamente, Stigal.

[josegremista 2]

ae man antes nakela negocio de criar o npc tem que ser .lua ou criar em .XML ???que tem que colocar no pasta do serve.NPC??

[Stigal 585]

ae man antes nakela negocio de criar o npc tem que ser .lua ou criar em .XML ???que tem que colocar no pasta do serve.NPC??

Você viu o tutorial? -.-''

 

Se não que é que parece:

 

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"?>

 

<npc name="Seavel Master" script="seavel master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">

<health now="150" max="150"/>

<look type="1438" 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>

 

 

Volcanic Master

 

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

 

<npc name="Volcanic Master" script="volcanic master.lua" walkinterval="0" floorchange="0" access="5" level="1" maglevel="1">

<health now="150" max="150"/>

<look type="1425" 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>

 

 

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)

 

[DouglasNeves 0]

Npc Gardestrike arrumado:

 

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())			

 

 

Ele troca hitmonchan+20 por shiny hitmonchan!

 

Oque Foi Arrumado?

Agora Somente usuarios do clan podem trocar...

 

Print:

 

Abraço.

 

Esse client que vc usa qual é? queria abrir um servidor com esse modelo.

[Stigal 585]

Esse ai é o PDA 1.5/1.6

Mas o Slicer atualiso 1.7 e so vc dar uma procurada ai.

[DouglasNeves 0]

Ah,os clan no pda nao estão né,terei que seguir o seu tutorial?

[Stigal 585]

Ah,os clan no pda nao estão né,terei que seguir o seu tutorial?

O Pda 1.7 ja contem areas de clã e tudo mais.

Esta completo e com meu mapa bonitinho e arrumado.

 

É So baixar

[tiagodj16 0]

stigal pelo topico vlw msm ajudou muito msm pois eu tava fazendo system de shiny por npc mais esse da de 10 a 0 no meu continue assim q vc ta ajudando muitos

 

 

enquanto 10 critica 1000 elogia

[Stigal 585]

stigal pelo topico vlw msm ajudou muito msm pois eu tava fazendo system de shiny por npc mais esse da de 10 a 0 no meu continue assim q vc ta ajudando muitos

 

 

enquanto 10 critica 1000 elogia

vlw cara, espero que tenha te ajudado assim como ajudou todos que comentarao no topico (96%)

Bom proveito ai jovem.

 

Abraço.

[GodSony 0]

quando tento colocar os scripts .lua dos npc no notepad++ ele transforma todos os scripts em uma unica linha,alguem sabe por que fica assim?

 

mas é só se eu pegar alguma coisa de spoiler daqui,se eu copiar de outro arquivo .lua fica normal

[Stigal 585]

quando tento colocar os scripts .lua dos npc no notepad++ ele transforma todos os scripts em uma unica linha,alguem sabe por que fica assim?

 

mas é só se eu pegar alguma coisa de spoiler daqui,se eu copiar de outro arquivo .lua fica normal

Nem sei cara, aqui ficar normal e sem erros.

Bom uso!

[josegremista 2]

@Stigal na sua scripter do clã tem akelas Task igual da pxg ou tem algum tansk pra fazer, para o payers subir de rank ?