Coleção: Sistema Vip/premmy

guizo3
Por guizo3
em Actions e Talkactions

guizo3

Single Scripter~~
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 13/12/07Posts: 56Char no Tibia: Filho Do Stun of Pacera

vou postar aki os melhores sistemas de VIP e Premium e os mais práticos

 

 

1º~~

 

O sistema foi feito por Noobinhu, é o sistema VIP, este sistema tem uma vantagem, ao remover uma VIP o player vai diretamente para o templo, e é tudo em 3 scripts... muito fácil de editar :]

 

Primeiro, vá em data ~> movements ~> movements.xml e adcione:

 

 

 

<movevent event="StepIn" actionid="13540" script="vip.lua" />

 

Salve e feche.

 

Crie outro arquivo agora em movements ~> scripts, com o nome de vip.lua e adcione:

 

 

function onStepIn(cid, item, pos)

 

 

 

-- teleports config

teleport1 ={x=97, y=156, z=8}

 

 

 

if isPlayer(cid) then

 

if item.actionid == 13540 then

 

vip = getPlayerStorageValue(cid,13540)

if vip == -1 then

doPlayerSendCancel(cid,"Esta área é exclusiva para players vips.")

 

 

doTeleportThing(cid,teleport1)

 

 

else

 

end

 

end

 

end

 

end

 

Só precisa editar ali onde está azul, edite para as posições do mapa onde o player será teletransportado ao tentar entrar na área vip, porém sem VIP.

 

Salve e feche.

 

 

 

 

 

2º~~

 

 

sistema muito prático e fácil de adicionar e remover VIPS por talkactions!

 

Em talkactions ~> talkactions.xml adcione:

 

 

<talkaction words="/addvip" script="addvip.lua" />

<talkaction words="/removevip" script="removevip.lua" />

 

Salve, feche.

 

 

Agora em talkactions ~> scripts crie 2 arquivos, addvip.lua e removevip.lua e adcione o seguinte que está no quote respectivamente:

 

addvip.lua

 

 

function onSay(cid,words,param)

 

 

 

if getPlayerAccess(cid) > 3 and param ~= "" and getPlayerStorageValue(getPlayerByName(param), 13540) == -1 or getPlayerStorageValue(getPlayerByName(param), 13540) == 0 then

 

doPlayerSendTextMessage(getPlayerByName(param),20,'Uma VIP acabou de ser adcionada a você!')

setPlayerStorageValue(getPlayerByName(param), 13540, 1)

doPlayerSendTextMessage(cid,21,'Você acabou de adcionar uma VIP!')

elseif getPlayerAccess(cid) < 3 then

doPlayerSendTextMessage(cid,25,"Você não pode adcionar VIPs.")

 

elseif getPlayerStorageValue(getPlayerByName(param), 13540) ~= -1 then

doPlayerSendTextMessage(cid,25,"Este player já tem VIP.")

else

doPlayerSendTextMessage(cid,21,"Você precisa de escrever o nome do player que vai ganhar a VIP.")

 

end

end

 

removevip.lua

 

 

function onSay(cid,words,param)

 

temple = getPlayerMasterPos(getPlayerByName(param))

 

if getPlayerAccess(cid) > 3 and param ~= "" and getPlayerStorageValue(getPlayerByName(param), 13540) == 1 then

 

doPlayerSendTextMessage(getPlayerByName(param),25,'Você acabou de perder VIP!')

doPlayerSendTextMessage(cid,21,'Você acabou de remover uma VIP!')

setPlayerStorageValue(getPlayerByName(param), 13540, -1)

doTeleportThing(getPlayerByName(param),temple)

 

elseif getPlayerAccess(cid) < 3 then

doPlayerSendTextMessage(cid,25,"Você não pode remover VIPs.")

 

elseif getPlayerStorageValue(getPlayerByName(param), 13540) ~= 1 then

doPlayerSendTextMessage(cid,25,"Este player ainda não tem VIP.")

else

doPlayerSendTextMessage(cid,21,"Você precisa de escrever o nome do player que vai perder a VIP.")

 

end

end

 

Salve, feche e está pronto seu sistema de VIP.

 

No mapa, no piso em que o player não poderá pisar caso não for VIP, coloque action 13540, por exemplo:

 

http://img101.imagevenue.com/img.php?image...1_122_885lo.jpg

http://img101.imagevenue.com/img.php?image...1_122_885lo.jpg

 

O piso branco no caso, seria onde o player seria teletransportado caso NÃO fosse vip e o piso preto seriam os pisos com a action 13540.

 

Para adcionar VIP fale /addvip "nick e para remover fale /removevip "nick

mais lembre-se, o player tem que estar on-line!!!!

 

 

Creditos: Noobinhu~~//Yunie~

 

 

 

3º~~

agora o sistema PREMIUM

 

simstema de tile premium, foi feiot bY: DOJAN

 

adicione em movements/script:

 

function onStepIn(cid, item, pos)

 

player1pos = getPlayerPosition(cid)

novapos1 = {x=132, y=348, z=7}

msg = "Allowed only for Premium Accounts"

 

if item.uid == 1200 then

if isPremium(cid) then

 

else

doPlayerSendTextMessage(cid, 22, msg)

getThingfromPos(player1pos)

doSendMagicEffect(player1pos,2)

doTeleportThing(cid,novapos1)

doSendMagicEffect(novapos1,10)

 

end

return 1

end

end

 

edite assim:

azul:onde o player sera teletransportado se não for premium

verde:uid do piso que só permitirá premiums

vermelho:Mensagem caso o player não seja premium

 

e em movements/movements.xml isso:

 

<movevent event="StepIn" uniqueid="1200" script="premium tile.lua" />

 

 

creditos: DOJAN

 

estão aq1ui os melhores sistemas de VIP e PREMIUM que encontrei ^^

espero que ajudem a vocês tanto quanto me ajudou

cYa~~

 

Guizo³³³³³³³³³³³³³³³³³³³³³³³³³³##############

cYa~~

------------------------------------------------------------------------------------->

Um b0m MaPpEr PrEcIsA SeMpRe De Um BoM MaPeDiToR!!!!!!!!




Agleum me ajude a curar minha megalomania plz =\

xiloida

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 25/11/06Posts: 7

bem melhor =D,

 

tem server q faz o sistema vip colocacando "casas" nos teleports e soh entra qem ta invitado(facil e pratico), mas nao gosto

 

vlw pelo post

richardXkennedy

Banido
avatar
Banidos
Banidos

INFOS

Grupo: BanidosRegistrado: 02/10/06Posts: 5Char no Tibia: Arcian Sepol

Vou testar :smile_positivo:

--------------------Richard Shinigami----------------

Terereko

we will rock you
avatar
Cavaleiro
Cavaleiro

INFOS

Grupo: CavaleiroRegistrado: 23/03/08Posts: 184

vo ve como fico e depois digo se funfo

physic

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 02/11/06Posts: 4

aff carinha num deu certo num

eu fiz td do jeitinho certo

mais o cara num ganha vip de jeito nenhum

tem ke faze algo?

tem ke faze algum unike id?

vlw ai se puder ajudeeeeeeee =]

854768

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 06/07/07Posts: 17

Parabens!!

 

Funcioneu sertinho :D Mais podia ajudar a faser isso para editar pelo xml do player Se puder me ajudar nisso add msn ai plx diego.c.ss@hotmail.com XAu ;D :smile_positivo:

manirao

Atualmente Design e Programador (Freelancer): Adalton Roosevelt
avatar
Cavaleiro
Cavaleiro

INFOS

Grupo: CavaleiroRegistrado: 27/07/07Posts: 153

Cara ta DAndo Erro aqui

 

function onStepIn(cid, item, pos)

 

onStepIn ta dando erro aqui

dudu2530

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 27/06/08Posts: 76

parabens auqi em casa funciono belezinha

Mimow

Guilherme Couto
avatar
Visconde
Visconde

INFOS

Grupo: ViscondeRegistrado: 02/03/08Posts: 255

gostei....jah to colokando em meu ot!!!

 

 

----EDITED----

 

Em ot Thyrania não funciona!

Att,
Mimow



ORAkQ.png

Asterzhart

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 17/07/08Posts: 10

É facil copia o sistema de vip neh? Copiou de min ou do noobinho certeza.

satranlol

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 08/03/08Posts: 26Char no Tibia: Coronel Gladiator

Asterzhart, ele escreveu no inicio do topico que quem criou a action foi o Noobinho.. ¬¬

///Victor Gabriel.



fan de:

Eu Jogarei :






Spectrals World Team: Fan bar!

lucas1000

avatar
Artesão
Artesão

INFOS

Grupo: ArtesãoRegistrado: 16/10/05Posts: 118

No meu thyrania naum funfoumas no aries deu tudo de boa vlws :D

MINHAS METAS

Metas:

[X]1.....Post....SERVO

[X]10...Posts...CAMPONÊS

[X]25...Posts...CAÇADOR

[X]50...Posts...CAVALEIRO

[X]100..Posts...BARONETE

[_]200..Posts...BARÃO

[_]300..Posts...VISCONDE

[_]400..Posts...DUQUE

[_]600..Posts...ARQUEDUQUE

[_]800..Posts...ARISTOCRATA

[_]1000.Posts...REGENTE

[_]1400.Posts...SÁBIO

[_]1800.Posts...SACERDOTE

[_]2500.Posts...PRÍNCIPE

[_]3000.Posts...REI

Bate aqui?

.0/ .0

/| . /|\

./\ /\

Peitinho!

.0 \0...?

/|‾.|\

./\ /\

... RONALDO ...

Mazer

.:: Designer ::.
avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 03/10/07Posts: 95

Muito Boa, mas aqui não deu certo (Não consegui fazer player ficar VIP)

O que tem q fazer?

 

:hehe:

Atenciosamente,
Mazer



Crie, poste e comente: Blogs Xtibia!

Nunca nenhum outro portal de tibia e otserv
ofereceu um sistema gratuito desses para você usuário.

leoloko12

LeozeraRox
avatar
Visconde
Visconde

INFOS

Grupo: ViscondeRegistrado: 16/02/08Posts: 364Gênero: MasculinoChar no Tibia: Infernus

Hey aki no evolutions naum deu certo tem que cria alguma pasta chamada vip????

pq os /addvip /removevip nao funcionao

Criador e fundador do Styller Yourots!

Criado em 2010, onde teve sua primeira edição na versão 8.1.

Obrigado a todos que apoiaram esse projeto!

 

>> http://www.xtibia.com/forum/topic/138461-original-styller-yourots-gold-edition-2016-860-completo/

Abrass..
Att
LeozeraRox


Respeite os direitos autorais, não copiei!!!

gustavocordeiro

Sei Lah
avatar
Artesão
Artesão

INFOS

Grupo: ArtesãoRegistrado: 24/09/07Posts: 103Char no Tibia: Kirack Tyril

Manow vou fazer questão de testar esse =D

 

-------------

 

Funcionou Direitinho Parabens! :smile_positivo:



OoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOo

~º ~º ~º ~º ~º ~º ~º ~º ~º ~º ~º ~º ~º ~º ~º ~º ~º

Se eu lutar, lute ao meu lado
Se eu morrer, morra junto a mim
Se eu correr, corra que fudeu tudo...

~º ~º ~º ~º ~º ~º ~º ~º ~º ~º ~º ~º ~º ~º ~º ~º ~º

OoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOoOo





~>ExORi OT SeRv =D