Efim aina é posição onlogin 

 

premiumrate.lua

 

function onLogin(cid)

local exprateb = 2 --exp rate em vezes.... por exemplo 2 é 2x a normal... e assim vai... 0.7 = 70% 0.3 = 30%
local expratei = 1 --exp rate normal não mecha
local texto = "Voce ganhou 100% de bonus exp por ser premium" --texto que sera mostrado se for premiun
local temple = { x =32369, y = 32246, z = 7} --Posição do seu templo

if isPremium(cid) == true then
setPlayerStorageValue(cid, 9899, 1)
doPlayerSetExperienceRate(cid, exprateb)
doPlayerSendTextMessage(cid,22,texto)
elseif getPlayerStorageValue(cid, 9899) == 1 and isPremium(cid) == false then
doPlayerSetExperienceRate(cid, expratei)
doTeleportThing(cid, templo)
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "You premium is Over!")
setPlayerStorageValue(cid, 9899, -1)
else
doPlayerSetExperienceRate(cid, expratei)

end
return true
end

 

creaturescript.xml

 

<event type="login" name="premiumrate" event="script" value="premiunrate.lua"/>

 

login.lua

 

registerCreatureEvent(cid, "premiumrate")

 

Funciona assim... Player quando loga se for premiun da rate e da uma mensagem...

 

Se ele logar e era premiun e não é mais... tira rate e da uma mensagem... e teleporta pro templo.

 

se ele logar e nunca foi premiun deixa rate em 1 

Editado Junho 4, 2014 10 anos por llucas75 (veja o histórico de edições)

Nossa vou testar... mais se o vip acabar e ele fica on, ele é teleportado? 

Acho que o meu da versao 980 nao vai funfar no tfs 1.0

 

Mesmo com a vip no fim ele ficava na vip mais quando o servidor reinicia-se ele iria deslogar entao voltaria pro templo.

 

Mais ai voce tem como fazer também um book de bless pro msmo tfs?

tipo da use no book e ganha todas as bless e que seja infinito.

 

-

tem certeza que esse script funciona para tfs 1.0?

porque eu vi no login.lua

 

atualmente ele usa "player:registerEvent("spawnKill")"

e voce me enviou "registerCreatureEvent(cid, "premiumrate")"

Editado Junho 5, 2014 10 anos por GlobalCores (veja o histórico de edições)

O melhor que consegui fazer foi isso .. porem a função setExperienceRate não existe no TFS 1.0 e tbem não achei nada parecido, se alguém puder ajudar ... 

function onLogin(cid)

	local rate = 1.3 -- 30% -- porcentagem de aumento

	local config =
	{
		premium_true = "você tem "..((rate - 1)*100).."% de exp a mais agora!", -- Editar msg de exp extra premium
		premium_false = "Compre seus dias de VIP ACC e dispare no ranking.", -- Editar msg de não ser premium
	}

	local player = Player(cid)

	if isPremium(cid) then
		player:setExperienceRate(rate) -- ????
		-- doPlayerSetExperienceRate(cid, rate)
		player:sendTextMessage(MESSAGE_INFO_DESCR, config.premium_true)
		-- doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, config.premium_true)
	else
		player:sendTextMessage(MESSAGE_INFO_DESCR, config.premium_false)
		-- doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, config.premium_false)
	end

	return true
end

Aguardo resposta!

Putz, amigo do livro posso tentar fazer, mas não dou garantia.. já que não sei mecher direito com 1.0 ainda.... E do sistema de exprate não sei se tem na função 1.0 como o luan havia dito...

 

Ta ae, porem não faço a mínima idéia se esta funcional... Se não estiver, espero que alguém mais experiente corrija oque estiver errado para mim aprender também .

 

bookbless.lua

 

local bless = {1, 2, 3, 4, 5}

local cost = 0
function onUse(cid, item, fromPosition, itemEx, toPosition)
for i = 1, table.maxn(bless) do
if(player:blessing(cid, bless)) then
player:sendCancel(cid, "Voce ja tem todas as bless.")
return TRUE
end
end


for i = 1, table.maxn(bless) do
player:addBlessing(cid, bless)
end
doCreatureSay(cid, "You are now blessed!" ,19)
doSendMagicEffect(player:position(cid), 49)
else
player:sendCancel(cid, "Voce precisa de 80k para a bless.")
return true
end

 

tag

 

actions.xml

 

<action itemid="id do book" script="bookbless.lua"/>

Editado Junho 5, 2014 10 anos por llucas75 (veja o histórico de edições)

[Warning - Event::checkScript] Can not load script: scripts/bookbless.lua

data/actions/scripts/bookbless.lua:16: 'end' expected (to close 'function' at line 3) near 'else'

 

Quando dei reload...

 

#Luan

Vou tentar o seu pra ver se pega sei la..

Editado Junho 6, 2014 10 anos por GlobalCores (veja o histórico de edições)