Sistema VIP para 8.1 (Funciona Certinho)

[4061865 0]

Óla Fas de OT Server!

Criei Um sistema VIP novinho e bem simples que não se nessecita do GM para dar:

"aleta sio"!

Mãos a Obra!

(OBS: este topico esta Dividido em 3 capitulos)

 

Passo Numero 1

O Scripd!

 

Vá em Data>Action>Scripd>E Crie um arquivo .LUA com o nome de VIP.lua. E Adicione isso:

 

--

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

 

door = {x=136, y=27, z=6} < (Para onde o player ira se teleportar se for VIP)

 

if item.uid ==2041 then

queststatus = getPlayerStorageValue(cid,1056)

if queststatus == 1 then

 

doTeleportThing(cid,door)

doSendMagicEffect(topos,12)

 

else

doPlayerSendTextMessage(cid,22,"Somente Players Vip's podem Entra Aki!.") (Mensagem se o player não for VIP)end

return 0

end

return 1

end

 

Em seu mapa fassa uma porta (Aconsselho aquela com brilho na massaneta)

E Ponha o UniquedID:

2041

 

Se Ja estiver sendo usado mude para um que funcione!

(Não esquessa de mudar tambem no Scripd!)

 

Passo Numero 2

 

Agora Vamo Faser a quest que o player vai abrir para ganhar o Vip!

Crie um scripd com o nome de ChestVip.lua em data>action>scripd.

 

Adcione isso dentro:

 

--

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

 

if item.uid ==1056 then

queststatus = getPlayerStorageValue(cid,1056)

if queststatus == 1 then

doPlayerSendTextMessage(cid,22,"Você ja é um Player Vip!.")

 

else

doPlayerSendTextMessage(cid,22,"Parabens, você agora se Transformol em um Player Vip!.")

doSendMagicEffect(topos,12)

coins_uid = doPlayerAddItem(cid,5785,1)

setPlayerStorageValue(cid,1056,1)

end

return 0

end

return 1

end

 

Agora va em Data>Action>Action e addicionem:

 

<action uniqueid="1056" script="VIP.lua" />

<action uniqueid="2041" script="ChestVip.lua" />

 

Agora Va em Seu Mapa e ponha uma Chest com o UniquedID:

1056

 

Passo Numero 3

O NPC

 

Bom agora e so criar um NPC que por o "tau" dinheiro teleportara o player para frente da caixa que ganha VIP.

 

Va em data>npc>scripd e crie um arquivo lua com o nome "SellerVip.lua" e ponha isso dentro dele:

 

local focus = 0

local talk_start = 0

local target = 0

local following = false

local attacking = false

 

function onThingMove(creature, thing, oldpos, oldstackpos)

 

end

 

 

function onCreatureAppear(creature)

 

end

 

 

function onCreatureDisappear(cid, pos)

if focus == cid then

selfSay('Good bye then.')

focus = 0

talk_start = 0

end

end

 

 

function onCreatureTurn(creature)

 

end

 

 

function msgcontains(txt, str)

return (string.find(txt, str) and not string.find(txt, '(%w+)' .. str) and not string.find(txt, str .. '(%w+)'))

end

 

 

function onCreatureSay(cid, type, msg)

msg = string.lower(msg)

 

if (msgcontains(msg, 'hi') and (focus == 0)) and getDistanceToCreature(cid) < 4 then

if getPlayerVocation(cid) < 12 then

selfSay('Ola ' .. getCreatureName(cid) .. '! Eu posso lhe vender VIP por 500k!Você vai querer?')

focus = cid

talk_start = os.clock()

else

selfSay('Desculpe você nao podem viajar no meu barco.')

focus = 0

talk_start = 0

end

 

elseif msgcontains(msg, 'hi') and (focus ~= cid) and getDistanceToCreature(cid) < 4 then

selfSay('Sorry, ' .. getCreatureName(cid) .. '! I talk to you in a minute.')

 

elseif focus == cid then

talk_start = os.clock()

 

elseif msgcontains(msg, 'yes') then

if pay(cid,5000000) then<O Custo do Vip!

travel(cid, 553, 51, 7) <Mude para onde o player ira se teleportara! selfSay('Bom Proveito!')

focus = 0

talk_start = 0

else

selfSay('Decupe, você não tem dinheirom para comprar VIP!.')

enough money.')

end

 

elseif msgcontains(msg, 'bye') and getDistanceToCreature(cid) < 4 then

selfSay('Good bye, ' .. getCreatureName(cid) .. '!')

focus = 0

talk_start = 0

end

end

end

 

 

function onCreatureChangeOutfit(creature)

 

end

 

function onThink()

 

if (os.clock() - talk_start) > 20 then

if focus > 0 then

selfSay('...')

end

focus = 0

end

if focus ~= 0 then

if getDistanceToCreature(focus) > 5 then

selfSay('...')

focus = 0

end

end

end

 

Agora va em:

Data>Npc e crie um arquivo lua com o nome.

(Para isso não vou por porque e so copiar um outro NPC e colar e mudar o Scripd por Vipseller.lua)

...........................................

Gostaram?

Postem

 

(X)Topico 100% Meu!

 

Beijos,

Ramexinho

[joseanjunior999 0]

Pelo jeito ta Bacana, mas só que eu queria que vc adcionasse um comando no GOD/GM

 

EX: (!addvip "NOME DO PLAYER)

 

pronto.. seria mais INTERESSANTE !