[Encerrado] [Pokemon] Dúvidas? - Pda

[Slicer 1070]

@jeffe000

pra fla a real eu nem olhei muito o do zeref.. mas o dele eh por onThink.. entao achu q ele sempre vai fica vendo se pode transformar o poke em shiny.. sei la.. o meu eh quando um poke "aparece" no respawn dele tem uma chance de ele vira shiny..

 

e sim o ride eh um probleminha.. ;x morre e voltar emcima do "cavalo" eh meio estranhu n? ;p e foda q n tem jeito de verificar se o player morreu.. nem a ball vira ".off" entao eh quase impossivel arrumar isso ;x soh o brun123 ms... mas continuo tentando aki...

 

@BLACKHERT

ques dizer.. mover a pokeball enquanto tem 1 pokemon pra fora? isso n tem como... a ball com o poke pra fora fica "imovable".. ;x

Editado Fevereiro 9, 2012 por Slicer

[Jeffer000 65]

@jeffe000

pra fla a real eu nem olhei muito o do zeref.. mas o dele eh por onThink.. entao achu q ele sempre vai fica vendo se pode transformar o poke em shiny.. sei la.. o meu eh quando um poke "aparece" no respawn dele tem uma chance de ele vira shiny..

 

e sim o ride eh um probleminha.. ;x morre e voltar emcima do "cavalo" eh meio estranhu n? ;p e foda q n tem jeito de verificar se o player morreu.. nem a ball vira ".off" entao eh quase impossivel arrumar isso ;x soh o brun123 ms... mas continuo tentando aki...

 

@BLACKHERT

ques dizer.. mover a pokeball enquanto tem 1 pokemon pra fora? isso n tem como... a ball com o poke pra fora fica "imovable".. ;x

 

Ok....amanha vo testar usar ele...no do zeref ate onde entendi o poke vira shiny quando nasce,,,,pois eles viram ate qnd eu uso /m ,,,porem ele nasce, e qnd da o tempo dakele respaw nasce outro normal junto....ae fica o shiny e o normal no mesmo sqm se n tiver player perto,

 

Pra colocar esse seu tem que colocar em qual arquivo? dentro do spaw;lua do mapa?

[Slicer 1070]

@jeffe000

eh soh substituir pelo teu spawn.lua na pasta creaturescript...

e o "meu" sistema tb tem esse problema de ficar o poke normal e o shiny no ms spot... ;x eu ate pensei em como arrumar isso.. mas daria muito lag entao... ;x

[Jeffer000 65]

kkkk mas e de boa....so fode se for dragonite....mas melhor ainda kkkk

Duvda: teria como separar eles em mais classes? alem do shiny e raro?

Vlw amanha vo testa

Editado Fevereiro 9, 2012 por jeffe000

[Slicer 1070]

sim sim.. soh fazer mais tabelas e ir arrumando aki..

 

if isInArray(shinys, getCreatureName(cid)) then

transform = math.random(1, 100) --1% chance

elseif isInArray(raros, getCreatureName(cid)) then

transform = math.random(1, 1000) --0.1% chance

elseif not isInArray(raros, getCreatureName(cid)) and not isInArray(shinys, getCreatureName(cid)) then

return true

end

 

dai eh soh ir adicionando mais linhas mudando o nome das tabelas.. ;p

[RodrigoSc 8]

Hey people!! Im gonna give you all my recopilation and all my own systems because I closed my server (too much work for 2 persons )

 

Recopilation:

-Full Bike System By Me:

First create a file in actions/scripts:

-----------------------------------Bike System By Knan!~------------------------
function onUse(cid, item, fromPosition, itemEx, toPosition)
local ring = getPlayerSlotItem(cid, CONST_SLOT_RING)

--Demount
if getPlayerStorageValue(cid, 20000) == 1 then

	doChangeSpeed(cid, -getCreatureSpeed(cid) +getPlayerStorageValue(cid, 20001))
	doRemoveCondition(cid, CONDITION_OUTFIT)
	setPlayerStorageValue(cid, 20000, 0)

doPlayerSay(cid, "I'm gonna go walking!", TALKTYPE_SAY)
return true

else

--Mount

if (getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 63215) >= 1) then
doPlayerSendCancel(cid, "You can't use bike while surfing/flying.")
return true
end

if getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 18000) >= 1 or getPlayerStorageValue(cid, 19000) >= 1 then
return doPlayerSendCancel(cid, "You can't ride a bike using habilities!") end

local bikeout = 1394
local bikeoutg = 1393
if getPlayerSex(cid) == 0 then bikeout = bikeout-1 end
local speedbonus = 1.2

setPlayerStorageValue(cid, 20001, getCreatureBaseSpeed(cid))
doChangeSpeed(cid, speedbonus*getCreatureSpeed(cid))
setPlayerStorageValue(cid, 20000, 1)

doSetCreatureOutfit(cid, {lookType = bikeout, lookHead = 0, lookAddons = 0, lookLegs = 0, lookBody = 0, lookFeet = 0}, -1)
doPlayerSay(cid, "Let's Ride!", TALKTYPE_SAY)
registerCreatureEvent(cid, "Biking")

end
return true

end

 

In login.lua put the next line:

elseif getPlayerStorageValue(cid, 20000) >=1 then -- bike
 if getThingPos(cid).z ~= 7 then
  setPlayerStorageValue(cid, 20000, 0)
  doChangeSpeed(cid, PlayerSpeed)
  doRemoveCondition(cid, CONDITION_OUTFIT)
 return true
 end
			local bikeout = 1394
			if getPlayerSex(cid) == 0 then bikeout = bikeout-1 end
			local speedbonus = 1.2
 doSetCreatureOutfit(cid, {lookType = bikeout, lookHead = 0, lookAddons = 0, lookLegs = 0, lookBody = 0, lookFeet = 0}, -1)
 doChangeSpeed(cid, getPlayerStorageValue(cid, 20001))

 

Now, In actions/order.lua put this line in the section of "Start RIDEorFLY"

if getPlayerStorageValue(cid, 20000) ~= 0 then
doPlayerSendCancel(cid, "You cant fly or ride while your are using a bike.")
return true
end

 

Finally put this line in movements/surf.lua:

if getPlayerStorageValue(cid, 20000) ~= 0 then
doTeleportThing(cid, fromPosition, false)
doPlayerSendCancel(cid, "You cant surf while your are using a bike.")
return true
end

 

 

 

-Full Saffari System Edited By Me:

 

First go to data/npc and make a file SaffariNPC.xml and put this inside:

 

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Knan" script="safari.lua" walkinterval="3500" floorchange="0" speed="90">
<health now="150" max="150"/>
<look type="510" head="0" body="116" legs="116" feet="115"/>
<parameters>
  <parameter key="message_greet" value="Welcome to [ Saffari ],this service is only avaible to premium players."/>
  <parameter key="message_farewell" value="Good bye! Hope you come back"/>
  <parameter key="message_idletimeout" value="Next Please ...!"/>
  <parameter key="message_walkaway" value="Good bye, then!"/>
</parameters>
</npc>

 

 

Now go to data/npc/scripts and make a file named safari.lua and put this inside:

 

local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
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 Saffari(cid, message, keywords, parameters, node)
if(not npcHandler:isFocused(cid)) then
return false
end
local pokeball = {2392, 2393, 2391, 2390} -- whit this pokeballs you CANT enter in the saffari.
for i = 1, #pokeball do
if getPlayerItemCount(cid, pokeball[i]) >= 1 then
npcHandler:say('Deposit your pokeballs on the DP!', cid)
return true
end
end
if parameters.premium == true and not isPremium(cid) then
npcHandler:say('Sorry, you need to be premium account!', cid)
return true
elseif doPlayerRemoveMoney(cid, parameters.price) == FALSE then
npcHandler:say('Sorry, you dont have enought money!', cid)
return true
end
doPlayerAddItem(cid, 2149, 30) -- Here you put the id of your saffari balls.
doPlayerSendTextMessage(cid,22,'Good Luck! Enjoy your stay on the Saffari Zone!.')
doTeleportThing(cid, parameters.enter)
npcHandler:resetNpc()
return true
end
local node1 = keywordHandler:addKeyword({'saffari'}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, text = 'Saffari, the zone of strange, dangerous and powerfull creatures. Do you want to enter? You are not allowed to enter whit other pokeballs, only saffari balls.'})
node1:addChildKeyword({'yes'}, Saffari, {premium = true,price = 150000,enter = {x=1147, y=1411, z=7}, exit = {x=1149, y=1411, z=7}, minutes = 1})
node1:addChildKeyword({'no'}, StdModule.say, {npcHandler = npcHandler, onlyFocus = true, text = 'Ok, then.', reset = true})
npcHandler:addModule(FocusModule:new())

 

 

Finally make a file in data/actions/scripts named saffaridoor.lua and put this inside:

 

function onUse (cid,item,frompos,item2,topos)
pos = {x=1149, y=1411, z=7} -- Place of exit
doTeleportThing(cid,pos)
doSendMagicEffect(pos, CONST_ME_TELEPORT)
return 1
end

 

 

 

-BOX 4 Mission Quest Edited By Me.

 

First go to data/npc and make a file named Stoneman.xml and put this inside:

 

<?xml version="1.0" encoding="UTF-8"?>
<npc name="Jorge" script="stoneman.lua" walkinterval="0" floorchange="0">
<health now="100" max="100"/>
<look type="1183" head="17" body="54" legs="114" feet="0" addons="0"/>
<parameters>
 <parameter key="message_greet" value="Hello Trainer, can you help me whit this 'quest', you need lvl 85+.  I can {pay} you whit cool items and great exp." />
</parameters>
</npc>

 

 

Now go to data/npc/scripts and make a file named stoneman.lua and put this inside:

 

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 storage = 59805
	local destino = {x=320,y=558,z=7,stackpos=1}
	destino = {x=320,y=558,z=7,stackpos=1}
	destino = {x=320,y=558,z=7}
	local pos = {x=320,y=558,z=7,stackpos=1}  
	local getstorage = getPlayerStorageValue(cid, storage)
	local sorrymessage = "Sorry, you dont have the necessary stone to do this mission..."
	local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid

	if msgcontains(msg, 'stones') or msgcontains(msg, 'stone') then
			if getstorage == 7 then
					npcHandler:say("You already finished this quest.", cid)
			elseif getstorage < 7 then
					npcHandler:say("You are ready to bring me some stones?", cid)
					talkState[talkUser] = 1
			end
	elseif msgcontains(msg, 'quest') then
			if getstorage  < 1 then
					npcHandler:say("You need 2 leaf stones at start.", cid)
			elseif getstorage == 1 then
					npcHandler:say("You are in the second mission, you need 2 Heart stones to continue.", cid)
			elseif getstorage == 2 then
					npcHandler:say("You are in the third mission, you need 2 Thunder stones to continue.", cid)
			elseif getstorage == 3 then
					npcHandler:say("You are in the fourth mission, you need   2 Rock stones to continue.", cid)
			elseif getstorage == 4 then
					npcHandler:say("You are in the fifth mission, you need 2 Heart stones to continue.", cid)
			elseif getstorage == 5 then
					npcHandler:say("You are in the sixth and last mission, you need 2 Water stones to continue.", cid)
			elseif getstorage == 6 then
					npcHandler:say("You completed all the missions.", cid)
			end

	elseif msgcontains(msg, 'yes') or msgcontains(msg, 'si') then
			if talkState[talkUser] == 1 then
					if getstorage < 0 then
							if doPlayerRemoveItem(cid, 11441, 2) == TRUE then
									npcHandler:say("Thank you. Now I need 2 Heart stones.", cid)
									setPlayerStorageValue(cid, storage, 1)
									doPlayerAddExp(cid, 1000)
									talkState[talkUser] = 0
							elseif doPlayerRemoveItem(cid, 11441, 2) == FALSE then
									npcHandler:say(sorrymessage, cid)
									talkState[talkUser] = 0
							end
					elseif getstorage == 1 then
							if doPlayerRemoveItem(cid, 11453, 2) == TRUE then
									npcHandler:say("Thank you. Now I need 2 Thunder stones.", cid)
									setPlayerStorageValue(cid, storage, 2)
									doPlayerAddExp(cid, 5000)
									talkState[talkUser] = 0
							elseif doPlayerRemoveItem(cid, 11453, 2) == FALSE then
									npcHandler:say(sorrymessage, cid)
									talkState[talkUser] = 0
							end
					elseif getstorage == 2 then
							if doPlayerRemoveItem(cid, 11444, 2) == TRUE then
									npcHandler:say("Thank you. Now I need 2 Rock stones.", cid)
									setPlayerStorageValue(cid, storage, 3)
									doPlayerAddExp(cid, 7000)
									talkState[talkUser] = 0
							elseif doPlayerRemoveItem(cid, 11444, 2) == FALSE then
									npcHandler:say(sorrymessage, cid)
									talkState[talkUser] = 0
							end
					elseif getstorage == 3 then
							if doPlayerRemoveItem(cid, 11445, 2) == TRUE then
									npcHandler:say("Thank you. Now I need 2 Earth stones.", cid)
									setPlayerStorageValue(cid, storage, 4)
									doPlayerAddExp(cid, 10000)
									talkState[talkUser] = 0
							elseif doPlayerRemoveItem(cid, 11445, 2) == FALSE then
									npcHandler:say(sorrymessage, cid)
									talkState[talkUser] = 0
							end
					elseif getstorage == 4 then
							if doPlayerRemoveItem(cid, 11451, 2) == TRUE then
									npcHandler:say("Thank you. Now I need 2 Water Stones.", cid)
									setPlayerStorageValue(cid, storage, 5)
									doPlayerAddExp(cid, 15000)
									talkState[talkUser] = 0
							elseif doPlayerRemoveItem(cid, 11451, 2) == FALSE then
									npcHandler:say(sorrymessage, cid)
									talkState[talkUser] = 0
							end
					elseif getstorage == 5 then
							if doPlayerRemoveItem(cid, 11442, 2) == TRUE then
									npcHandler:say("Thank you for the water stones. For finish I need 3 Punch Stones.", cid)
									setPlayerStorageValue(cid, storage, 6)
									doPlayerAddExp(cid, 30000)
									talkState[talkUser] = 0
							elseif doPlayerRemoveItem(cid, 11442, 2) == FALSE then
									npcHandler:say(sorrymessage, cid)
									talkState[talkUser] = 0
							end

					elseif getstorage == 6 then
	 if doPlayerRemoveItem(cid, 11446, 3) then
	   npcHandler:say("Congratulations! HehEhehehehe, you completed all the missions. Take this Box4 and some experience for reward.", cid)
	   setPlayerStorageValue(cid, storage, 7)
	   doPlayerAddExp(cid, 450000)
	   doPlayerAddItem(cid, 11641, 1)
			  doPlayerAddItem(cid, 2160, 3)
	   talkState[talkUser] = 0
	 elseif doPlayerRemoveItem(cid, 11446, 3) == FALSE then
	   npcHandler:say(sorrymessage, cid)
	   talkState[talkUser] = 0

							end
					end
			end
	elseif(msgcontains(msg, 'no') and talkState[talkUser] == 1) then
			npcHandler:say("OK, come back when you get already.", cid)
			talkState[talkUser] = 0
	end
return TRUE
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

 

 

 

-GhostWalk for shinys.

 

First go to data/libs and open some functions.lua and find this line:

 

function isGhostPokemon(cid)
if not isCreature(cid) then return false end
if isInArray({"Gengar", "Haunter", "Gastly", "Misdreavus"}, getCreatureName(cid)) then
return true
end
return false
end

 

 

Then replace for this:

 

function isGhostPokemon(cid)
if not isCreature(cid) then return false end
if isInArray({"Gengar", "Haunter", "Gastly", "Misdreavus", "Shiny Gengar", "Shiny Haunter", "Shiny Gastly"}, getCreatureName(cid)) then
return true
end
return false
end

 

 

 

-Emoticons Edited By Me.

 

Make a file in data/talkactions/data and put this inside:

 

----------------------------------------------Emoticon System Edited By Knan!-------------------
function onSay(cid, words, param, channel)
if(param == '') then
local str = ""
str = str .. "Type a emoticon [EX: !e ].\n\nEmoticon List:\n:D\n:)\n:|\n:(\n:@\n:S\n:S\n!\nyes\nno\ngo\nlol\n-.-"
doPlayerPopupFYI(cid, str)
return true
end
if param == "" then
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), 183)
end
elseif param == "" then
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), 170)
end
elseif param == "" then
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), 182)
end
elseif param == "" then
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), 169)
end
elseif param == ":@" then
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), 168)
end
elseif param == ":S" then
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), 167)
end
elseif param == "!" then
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), 173)
end
elseif param == "yes" then
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), 175)
end
elseif param == "no" then
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), 176)
end
elseif param == "..." then
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), 166)
end
elseif param == "go" then
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), 167)
end
elseif param == "lol" then
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), 179)
end
elseif param == "-.-" then
if isPlayer(cid) == TRUE then
doSendMagicEffect(getCreaturePosition(cid), 186)
end
else
doPlayerSendCancel(cid, "Wrong parameter.")
stopEvent(say_events[getPlayerGUID(cid)])
say_events[getPlayerGUID(cid)] = nil
end
return TRUE
end

 

 

 

-Pokemon Change Sex Talkaction Adapted By Me.

 

Make a file in data/talkactions/scripts and put this inside:

 

---------------------------------Script By Knan------------------------------------
function onSay(cid, words, param, channel)
local pokeballuid = getPlayerSlotItem(cid, CONST_SLOT_FEET).uid
if #getCreatureSummons(cid) == 1 then return doPlayerSendCancel(cid, "Return your pokemon first.") end

if param == 'male' then
doItemSetAttribute(pokeballuid, "gender", 4)
elseif param == 'female' then
doItemSetAttribute(pokeballuid, "gender", 3)
elseif param == 'none' then
doItemSetAttribute(pokeballuid, "gender", 0)
else
doPlayerSendCancel(cid, "Wrong parameter.")
return true
end

end

 

 

 

-Quest List Talkaction By Me.

 

Make a file in data/talkactions/scripts and put this inside:

 

----------------------------------------------Quest List System By Knan!-------------------
function isAtRange(from, to, value)
return from <= value and value <= to
end
function onSay(cid, words, param, channel)
local quests = { --Storage, QuestName, QuestLv
[1] = {10127, 'Charizard Valley', 100},
[2] = {59805, 'Box4 Quest', 90},
[3] = {8759, 'Tomb Quest', 80},
[4] = {209910, 'Gengar Quest', 70},
[5] = {10078, 'Rock Tunnel Quest', 65},
[6] = {10109, 'Pewter Quest', 35},
[7] = {10083, 'Cerulean Quest', 30},
[8] = {10093, 'Venom Quest', 25},
[9] = {10116, 'Pokeballs Quest', 15},
[10] = {60309, 'Venom Stone Mission', 0},
[11] = {60310, 'Water Stone Mission', 0},
[12] = {60307, 'Coccon Stone Mission', 0},
[13] = {344487, 'Fighting Tower Quest', 0},
[14] = {65530, 'Crystal Quest', 0},
}
local feet = getPlayerSlotItem(cid, CONST_SLOT_FEET)
local list = "QUESTS: \n"

local size = 0
  for i = 1, #quests do
 if #quests[i][2] > size then
 size = #quests[i][2]
 end
end
local nquest = 0
local blank = ""
  for i = 1, #quests do
 if size > #quests[i][2] then
 for i = 1, size - #quests[i][2] do blank = blank.. ' ' end
 end

	if getPlayerStorageValue(cid, quests[i][1]) == 1 then
  nquest = nquest+1
  if quests[i][2] ~= nil and quests[i][3] ~= nil then
  list = list.."\n".. quests[i][2] .." -  Lv: ".. quests[i][3] .."   [x]"
  end
 end
	if getPlayerStorageValue(cid, quests[i][1]) == 7 then
  nquest = nquest+1
  if quests[i][2] ~= nil and quests[i][3] ~= nil then
  list = list.."\n".. quests[i][2] .." -  Lv: ".. quests[i][3] .."   [x]"
  end
 end
	if getPlayerStorageValue(cid, quests[i][1]) == 2 then
  nquest = nquest+1
  if quests[i][2] ~= nil and quests[i][3] ~= nil then
  list = list.."\n".. quests[i][2] .." -  Lv: ".. quests[i][3] .."   [x]"
  end
 end

	if getPlayerStorageValue(cid, quests[i][1]) == -1 and quests[i][2] ~= nil and quests[i][3] ~= nil then
	  list = list.."\n".. quests[i][2] .." -  Lv: ".. quests[i][3] .."   [  ]"
	end

end
doPlayerSendTextMessage(cid, TALKTYPE_ORANGE_1, "You have a total of ".. nquest .." quests done.")
doPlayerPopupFYI(cid, list)
return true
end

 

 

 

-Cassino Reward System Based On Fighting Tower By Me!

 

Make a file in data/actions/scripts and put inside:

 

-------------------------------Cassino System Action Based On Fighting Tower System By Knan!---------------------------
local level = 20
local extrastr = 2
local cost = 25000
local coins = 23254
local btype = "normal"
function onUse(cid, item, frompos, item2, topos)
local pokemon = ""
if item.uid == nil then return true end
if item.actionid == 12420 then
pokemon = "Porygon"
elseif item.actionid == 12421 then
pokemon = "Chansey"
elseif item.actionid == 12422 then
pokemon = "Ditto"
elseif item.actionid == 12423 then
pokemon = "Eevee"
else
return true
end
	if getPlayerStorageValue(cid, coins) < cost then
	doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You dont have enough cassino coins, you need 25000 coins.")
	return true
	end
if getPlayerMana(cid) >= 6 then
return doPlayerSendCancel(cid, "You don't have capacity for your prize!")
end
if pokemon == "" then return true end
local gender = getRandomGenderByName(pokemon)
local mypoke = getPokemonStatus(pokemon)
 if not mypoke then return true end
local offense = mypoke.off * level * extrastr
local defense = mypoke.def * level * extrastr
local speed = mypoke.agi * level * extrastr
local vit = mypoke.vit * level * extrastr
local spatk = mypoke.spatk * level * extrastr
local happy = 180
local leveltable = getPokemonExperienceTable(pokemon)
local item = doCreateItemEx(2219)
 doItemSetAttribute(item, "poke", pokemon)
 doItemSetAttribute(item, "hp", 1)
 doItemSetAttribute(item, "level", level)
 doItemSetAttribute(item, "exp", leveltable[level])
 doItemSetAttribute(item, "nextlevelexp", leveltable[level+1] - leveltable[level])
 doItemSetAttribute(item, "offense", offense)
 doItemSetAttribute(item, "defense", defense)
 doItemSetAttribute(item, "speed", speed)
 doItemSetAttribute(item, "vitality", vit)
 doItemSetAttribute(item, "specialattack", spatk)
 doItemSetAttribute(item, "happy", happy)
 doItemSetAttribute(item, "gender", gender)
 doItemSetAttribute(item, "description", "Contains a "..pokemon..".")
 doItemSetAttribute(item, "fakedesc", "Contains a "..pokemon..".")
 doPlayerAddItemEx(cid, item, true)
 doTransformItem(item, pokeballs[btype].on)
 doPlayerSendTextMessage(cid, 27, "You choose a "..pokemon..".")
			setPlayerStorageValue(cid, 23254, getPlayerStorageValue(cid, 23254) - 25000)
 doSendMagicEffect(getThingPos(cid), 29)
 doSendMagicEffect(getThingPos(cid), 27)
 doSendMagicEffect(getThingPos(cid), 29)
return TRUE
end

 

 

 

Thats all for now people, soon Im gonna put more systems!

Editado Fevereiro 9, 2012 por RodrigoSigrist

[Daimonium 5]

Alguem tem as sources desse servidor? O .exe desse servidor esta com virus, que me causou alguns problemas aqui... Se alguem tiver as sources peço que compilem denovo e poste fazendo favor.

[fagundes14 7]

@RodrigoSigrist

 

Muito Bom =D

Sera Muito Ultil

 

REP ++

[lastdemon 5]

Alguem tem as sources desse servidor? O .exe desse servidor esta com virus, que me causou alguns problemas aqui... Se alguem tiver as sources peço que compilem denovo e poste fazendo favor.

 

vc pegou arquivo de terceiros?

ngm reclamou de virus no exe do servidor até hj

e nunca tive problema

Editado Fevereiro 9, 2012 por lastdemon

[Anoniimos 2]

Apareceu um arquivo no emulador -

Nome:

 

sendtobrun123

 

Dentro tem:

 

[csystem.lua] Anonimos - À

 

Alguem sabe o que seria ?

[lukovisk 0]

caralhoo ja é mais de 4 horas e o retardado aqui ainda não achou purisso vou pedir ajuda de vcs AOSHASOHASHO

como edito o level que o pokemon selvagem aparece no mapa?!

eu to querendo deixar mais com cara de poketibia e não de gameboy pq na minha cabeça n faz sentido um charmander nascer mesmo level que um charmeleon

obrigado aguardo respsota D;

[Nibelins 132]

simples vai na pasta monstre escolhe o pokemon que você que alterar o lvl

abre o arquivo e procura por essa lina

 

head="10" body="30"

 

a numeração que esta dentro vai representa o lvl que o pokemon vai nascer tipo o pokemon as change dele nascer com lvl de 10 a 30 nesse caso você

altera para o lvl que vc quizer

[Daimonium 5]

Olha, ninguem reclamou pois acho que ninguem rodou em um dedicado, o .exe tem 1 trojan que te faz "zumbi" e quem controla isso, escolhe só quem tem maior banda para "atacar".

 

https://www.virustotal.com/file/49eef6f521f6abb395704c4b3dfcd690b090aa80babcb5c190cbfa32cf972104/analysis/1328755401/

[ewertonvcom 9]

vou testar

[lukovisk 0]

REP + ae vlw mlk '-'