[8.54]Pokeserver Tfs 0.3.6 [V3.0]

[Slicer 1070]

para aparecer todos os types pelo comando /newtype... vai na pasta data/talkactions/scripts e abre o arquivo newtype.lua apague tudo q estiver dentro e cole isso...

 

function onSay(cid, words, param, channel)

if(param == '') then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Command requires param.")

return true

end

 

local t = string.explode(param, ",")

t[1] = tonumber(t[1])

if(not t[1]) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Command requires numeric param.")

return true

end

 

local pid = cid

if(t[2]) then

pid = getPlayerByNameWildcard(t[2])

if(not pid or (isPlayerGhost(pid) and getPlayerGhostAccess(pid) > getPlayerGhostAccess(cid))) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Player " .. t[2] .. " not found.")

return true

end

end

 

if(t[1] <= 1 or t[1] == 135) then

doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Such outfit does not exist.")

return true

end

 

local tmp = getCreatureOutfit(pid)

tmp.lookType = t[1]

 

doCreatureChangeOutfit(pid, tmp)

return true

end

 

 

pro ride vai na pasta data/actions/script abra o ride.lua e apague tudo q estiver dentro e cole isso...

 

function getPokemonMaxLife(name)

local file = io.open('data/monster/monsters.xml','r')

local arquivo = file:read(-1):lower():match('<monster name="'..name:lower()..'" file="(.-)"/>')

file:close()

local data = io.open('data/monster/'..(arquivo or ''),'r')

if not data then

return 100

end

local maximo = data:read(-1):match('max%s*=%s*"(%d+)"')

data:close()

return maximo

end

 

function onUse(cid, item, frompos, item2, topos)

 

local pokes = {

['Tauros'] = {128, 200},

['Ninetales'] = {129, 300},

['Rapidash'] = {130, 350},

['Ponyta'] = {131, 200},

['Rhyhorn'] = {132, 150},

['Arcanine'] = {12, 500},

['Shiny Arcanine'] = {492, 800},

['Shiny Venusaur'] = {494, 700},

['Crystal Onix'] = {293, 400},

['Onix'] = {126, 350},

['Venusaur'] = {134, 350},

['Dodrio'] = {133, 350},

['Doduo'] = {135, 250},

}

local idballs = {

[2531] = {"Pokeball"},

[2557] = {"Superball"},

[2524] = {"Greatball"},

[2525] = {"Ultraball"},

[2523] = {"Masterball"},

}

 

local old_speed = getCreatureBaseSpeed(cid)

local summons = getCreatureSummons(cid)

local storage = 9393

local exhaust = 0

local time = 0

if (getPlayerStorageValue(cid, storage) <= os.time()) then

if getPlayerStorageValue(cid, 18000) == 10 then

local nome = getItemName(getPlayerSlotItem(cid, CONST_SLOT_FEET).uid)

local balls = idballs[getPlayerSlotItem(cid,8).itemid]

local poke_name = nome:match('(.-) '..balls[1])

local action_id = getItemAttribute(getPlayerSlotItem(cid, CONST_SLOT_FEET).uid, "aid")

doChangeSpeed(cid, -(getCreatureSpeed(cid) - getCreatureBaseSpeed(cid)))

setPlayerStorageValue(cid, storage, os.time()+exhaust)

doRemoveCondition(cid, CONDITION_OUTFIT)

setPlayerStorageValue(cid, 18000, 7)

setPlayerStorageValue(cid, 25000, 6)

setPlayerStorageValue(cid,10000, 0)

setPlayerStorageValue(cid,10000, 0)

local monster = doCreateMonster(poke_name, getCreaturePosition(cid))

doConvinceCreature(cid, monster)

doCreatureAddHealth(monster, -(tonumber(getPokemonMaxLife(poke_name) - action_id)))

doPlayerSay(cid, poke_name .. ", I'm tired of riding!", TALKTYPE_SAY)

return true

end

 

if isPremium(cid) == FALSE then

return doPlayerSendCancel(cid, "Você não é premium account.")

end

 

if #getCreatureSummons(cid) < 1 then

return doPlayerSendCancel(cid, "Para dar ride você precisa de um pokemon")

end

 

 

local pokemon = pokes[getCreatureName(getCreatureSummons(cid)[1])]

local name = getCreatureName(getCreatureSummons(cid)[1])

if not pokes[name] then

return doPlayerSendCancel(cid, "Este pokemon não pode dar ride.")

end

setPlayerStorageValue(cid, storage, os.time()+exhaust)

doChangeSpeed(cid, pokemon[2])

setPlayerStorageValue(cid, 18000, 10)

setPlayerStorageValue(cid, 25000, 5)

doSetCreatureOutfit(cid, {lookType = pokemon[1], lookHead = 0, lookAddons = 0, lookLegs = 0, lookBody = 0, lookFeet = 0}, -1)

setPlayerStorageValue(cid,10000,pokemon[1])

setPlayerStorageValue(cid,8889,pokemon[2])

doItemSetAttribute(getPlayerSlotItem(cid, CONST_SLOT_FEET).uid, "aid", getCreatureHealth(getCreatureSummons(cid)[1]))

function getPokemonId(summons)

for _, pid in ipairs(summons) do

return pid

end

end

doRemoveCreature(getPokemonId(summons))

doPlayerSay(cid, name .. ", Let's go RIDE!", TALKTYPE_SAY)

end

end

 

Editado Novembro 2, 2010 por Slicer

[reizan 2]

afffs pokebag dando debug

[kevinloko 10]

ele continua logando com a outfit do ultimo bicho que eu dei ride =/

Edit: deu certo vlw, eu nao tinha colocado direito =D

Editado Novembro 2, 2010 por Lolboss

[Slicer 1070]

Thalia so uma coisa tenta diminuir um pouco a quantidade de poke no map... tem muito poke... 20x1 eh tenso hehe vlws

Lolboss de nds ^^

[iGoRziNN 0]

vlw cara deu certo

me passa seu msn ai?

[xHenrique 0]

nao dah pra fazer download

 

=S

 

link kebrado

 

=(

[skinaa 2]

o map ta zuado . :S

alias ta sem map , pra cria acc vc apareçe no meio do nada .. enfim .. da uma arrumadinha e posta V3.1

mais dessa vez pro povo não causa finaliza tudo certinho

[Slicer 1070]

skinaa

va em config.lua e vá ate essa parte..

	-- Map
-- NOTE: storeTrash costs more memory, but will perform alot faster cleaning.
mapName = "or"
mapAuthor = "POD"
randomizeTiles = true
storeTrash = true
cleanProtectedZones = true
mailboxDisabledTowns = "-1"

e mude o mapName para or11 q tudo vai funcionar ^^

[skinaa 2]

Só tem uma coisa errada lá não da pra heala o pokemon com a magia 'HEAL POKE' alguem arruma ai? (Slicer) coloqei o map de antes muda alguma coisa ? (versão de antes) , vlh alguem pode postar todos os poke morrendo normal a maioria ta virando agua abraços !

[7964858 0]

NAO DA PRA FAZER DOWNLOAD DO CLIENTE =[

[Slicer 1070]

skinaa

tem problema nao ^^ eh so pra quem sei la nao tem a versao antiga ;p

 

desculpa pergunta denovo mas...

alguem conseguiu editar qlqr item no serv pelo otitemeditor? pq quando eu edito qlqr coisa da erro para load o item.otb ;/ falta so isso pra termina o portrait e tb tem q arruma alguns itens... vlws

[pablo361 25]

Slicer Vlw pelo problema de Ride resolvido REP+

=)

 

tem como passar seu msn ?

[skinaa 2]

[GERAL] , quem puder arrumar o negocio do heal poke la posta ae . porque nao ta dando pra heala o pokemon !

 

ABRAÇOS

[xHenrique 0]

ALGUEM ARRUMA O LINK DO DOWNLAOD DO CLIENTE E DO SERV PLZ!!!!

[skinaa 2]

(slicer) , sabe arruma o negocio da spell heal poke ? pq nao da pra heala o pokemon :ss