antiblock
Elveron
Fast and Secure Downloads: No Ads or Waits

  • Chatbox

    You don't have permission to chat.
    Load More
Sign in to follow this  
Followers 0
OceanusMT2

Quest Item-Shop Ingame

Started by OceanusMT2,

14 posts in this topic

OceanusMT2    110

OceanusMT2
Posted

Boas.

 

Venho partilhar com vocês a minha primeira quest. Eu sei que não é nada de especial e para muitos pode até nem servir para nada. Mas a verdade é que eu a uns 2 meses atrás eu não percebia absolutamente nada no mundo do criar um servidor, mas com a ajuda de todos vocês hoje fiz a minha primeira quest... e o servidor lá vai andando  xD

 

tive a ideia de fazer um NPC que vende alguns dos items que se vendem na IS, a ideia é vender items da IS dentro do jogo sem que o jogador tenha a necessidade de ir ao site.

 

 

 

Eu sei que já existe por ai quests deste género, mas e então? Esta foi feita por mim, deu algum trabalho e eu estou FELIZZZZZZ!!!!!!

 

 

Link download: https://mega.co.nz/#!hYAhxKYB!ibR2ptwXesvTO59C-rHfNx7C21NuFx86_URrKZ1meoM

 

Quest:

 

#############################################################
# #
# Quest made by: Oceanus #
# #
# Cyber-Gamers.org não tem cor, nem raça, nem religião, #
# nem bandeira, nem partido político, nem nacionalidade. #
# AQUI SOMOS TODOS CYBERIANOS. #
# #
#############################################################
 
quest item_shop_ingame begin
state start begin
        when 9003.chat."Item Shop" begin
            say_reward("Shop Item, versao Ingame:")
            say ("")
            local a = select("I", "II", "III", "IV", "V", "Mais", "Fechar")
            if a == 1 then
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("I")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
say ("")
local a1 = select("Comprar", "Cancelar")
if a1 == 1 then
if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)
pc.give_item2(19, 1)
else
say_reward("Shop Item, versao Ingame:")
say ("")
say ("Desculpe "..pc.name.." ")
say ("mas você não tem moedas suficientes.")
say ("")
return
end
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("")
say ("mas você comprou")
say ("")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
end
if a1 == 2 then
return
end
end
            if a == 2 then
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("II")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
say ("")
local a1 = select("Comprar", "Cancelar")
if a1 == 1 then
if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)
pc.give_item2(19, 1)
else
say_reward("Shop Item, versao Ingame:")
say ("")
say ("Desculpe "..pc.name.." ")
say ("mas você não tem moedas suficientes.")
say ("")
return
end
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("")
say ("mas você comprou")
say ("")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
end
if a1 == 2 then
return
end
end
if a == 3 then
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("III")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
say ("")
local a1 = select("Comprar", "Cancelar")
if a1 == 1 then
if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)
pc.give_item2(19, 1)
else
say_reward("Shop Item, versao Ingame:")
say ("")
say ("Desculpe "..pc.name.." ")
say ("mas você não tem moedas suficientes.")
say ("")
return
end
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("")
say ("mas você comprou")
say ("")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
end
if a1 == 2 then
return
end
end
if a == 4 then
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("IV")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
say ("")
local a1 = select("Comprar", "Cancelar")
if a1 == 1 then
if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)
pc.give_item2(19, 1)
else
say_reward("Shop Item, versao Ingame:")
say ("")
say ("Desculpe "..pc.name.." ")
say ("mas você não tem moedas suficientes.")
say ("")
return
end
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("")
say ("mas você comprou")
say ("")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
end
if a1 == 2 then
return
end
end
if a == 5 then
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("V")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
say ("")
local a1 = select("Comprar", "Cancelar")
if a1 == 1 then
if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)
pc.give_item2(19, 1)
else
say_reward("Shop Item, versao Ingame:")
say ("")
say ("Desculpe "..pc.name.." ")
say ("mas você não tem moedas suficientes.")
say ("")
return
end
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("")
say ("mas você comprou")
say ("")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
end
if a1 == 2 then
return
end
end
if a == 6 then
say_reward("Shop Item, versao Ingame:")
say ("")
local b = select("VI", "VII", "VIII", "IX", "X", "Fechar")
if b == 1 then
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("VI")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
say ("")
local a1 = select("Comprar", "Cancelar")
if a1 == 1 then
if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)
pc.give_item2(19, 1)
else
say_reward("Shop Item, versao Ingame:")
say ("")
say ("Desculpe "..pc.name.." ")
say ("mas você não tem moedas suficientes.")
say ("")
return
end
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("")
say ("mas você comprou")
say ("")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
end
if a1 == 2 then
return
end
end
if b == 2 then
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("VII")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
say ("")
local a1 = select("Comprar", "Cancelar")
if a1 == 1 then
if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)
pc.give_item2(19, 1)
else
say_reward("Shop Item, versao Ingame:")
say ("")
say ("Desculpe "..pc.name.." ")
say ("mas você não tem moedas suficientes.")
say ("")
return
end
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("")
say ("mas você comprou")
say ("")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
end
if a1 == 2 then
return
end
end
if b == 3 then
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("VIII")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
say ("")
local a1 = select("Comprar", "Cancelar")
if a1 == 1 then
if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)
pc.give_item2(19, 1)
else
say_reward("Shop Item, versao Ingame:")
say ("")
say ("Desculpe "..pc.name.." ")
say ("mas você não tem moedas suficientes.")
say ("")
return
end
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("")
say ("mas você comprou")
say ("")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
end
if a1 == 2 then
return
end
end
if b == 4 then
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("IX")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
say ("")
local a1 = select("Comprar", "Cancelar")
if a1 == 1 then
if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)
pc.give_item2(19, 1)
else
say_reward("Shop Item, versao Ingame:")
say ("")
say ("Desculpe "..pc.name.." ")
say ("mas você não tem moedas suficientes.")
say ("")
return
end
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("")
say ("mas você comprou")
say ("")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
end
if a1 == 2 then
return
end
end
if b == 5 then
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("X")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
say ("")
local a1 = select("Comprar", "Cancelar")
if a1 == 1 then
if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)
pc.give_item2(19, 1)
else
say_reward("Shop Item, versao Ingame:")
say ("")
say ("Desculpe "..pc.name.." ")
say ("mas você não tem moedas suficientes.")
say ("")
return
end
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("")
say ("mas você comprou")
say ("")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
end
if a1 == 2 then
return
end
end
if b == 6 then
return
end
if a == 7 then
return
end
end
end
end
end
 

nicoleroque, .тιαgσ, Cσяvσ⋆ and 1 other reacted to this

Share this post

Link to post
Share on other sites
antiblock
Rodnia | Alpha & Omega

.тιαgσ    624

.тιαgσ
Posted

Esta quest fez-me lembrar aquilo que o Epsilon e o Joker fazem, um código todo mal organizado kkkk

 

+1 pelo esforço

Share this post

Link to post
Share on other sites

OceanusMT2    110

OceanusMT2
Posted

mal organizado? Mentita!! Olha que código e que estrutura mais lindaaa.

Share this post

Link to post
Share on other sites

Shad0w    347

Shad0w
Posted

 

Boas.

 

Venho partilhar com vocês a minha primeira quest. Eu sei que não é nada de especial e para muitos pode até nem servir para nada. Mas a verdade é que eu a uns 2 meses atrás eu não percebia absolutamente nada no mundo do criar um servidor, mas com a ajuda de todos vocês hoje fiz a minha primeira quest... e o servidor lá vai andando  xD

 

tive a ideia de fazer um NPC que vende alguns dos items que se vendem na IS, a ideia é vender items da IS dentro do jogo sem que o jogador tenha a necessidade de ir ao site.

 

 

 

Eu sei que já existe por ai quests deste género, mas e então? Esta foi feita por mim, deu algum trabalho e eu estou FELIZZZZZZ!!!!!!

 

 

Link download: https://mega.co.nz/#!hYAhxKYB!ibR2ptwXesvTO59C-rHfNx7C21NuFx86_URrKZ1meoM

 

Quest:

 

#############################################################
# #
# Quest made by: Oceanus #
# #
# Cyber-Gamers.org não tem cor, nem raça, nem religião, #
# nem bandeira, nem partido político, nem nacionalidade. #
# AQUI SOMOS TODOS CYBERIANOS. #
# #
#############################################################
 
quest item_shop_ingame begin
state start begin
        when 9003.chat."Item Shop" begin
            say_reward("Shop Item, versao Ingame:")
            say ("")
            local a = select("I", "II", "III", "IV", "V", "Mais", "Fechar")
            if a == 1 then
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("I")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
say ("")
local a1 = select("Comprar", "Cancelar")
if a1 == 1 then
if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)
pc.give_item2(19, 1)
else
say_reward("Shop Item, versao Ingame:")
say ("")
say ("Desculpe "..pc.name.." ")
say ("mas você não tem moedas suficientes.")
say ("")
return
end
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("")
say ("mas você comprou")
say ("")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
end
if a1 == 2 then
return
end
end
            if a == 2 then
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("II")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
say ("")
local a1 = select("Comprar", "Cancelar")
if a1 == 1 then
if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)
pc.give_item2(19, 1)
else
say_reward("Shop Item, versao Ingame:")
say ("")
say ("Desculpe "..pc.name.." ")
say ("mas você não tem moedas suficientes.")
say ("")
return
end
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("")
say ("mas você comprou")
say ("")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
end
if a1 == 2 then
return
end
end
if a == 3 then
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("III")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
say ("")
local a1 = select("Comprar", "Cancelar")
if a1 == 1 then
if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)
pc.give_item2(19, 1)
else
say_reward("Shop Item, versao Ingame:")
say ("")
say ("Desculpe "..pc.name.." ")
say ("mas você não tem moedas suficientes.")
say ("")
return
end
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("")
say ("mas você comprou")
say ("")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
end
if a1 == 2 then
return
end
end
if a == 4 then
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("IV")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
say ("")
local a1 = select("Comprar", "Cancelar")
if a1 == 1 then
if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)
pc.give_item2(19, 1)
else
say_reward("Shop Item, versao Ingame:")
say ("")
say ("Desculpe "..pc.name.." ")
say ("mas você não tem moedas suficientes.")
say ("")
return
end
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("")
say ("mas você comprou")
say ("")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
end
if a1 == 2 then
return
end
end
if a == 5 then
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("V")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
say ("")
local a1 = select("Comprar", "Cancelar")
if a1 == 1 then
if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)
pc.give_item2(19, 1)
else
say_reward("Shop Item, versao Ingame:")
say ("")
say ("Desculpe "..pc.name.." ")
say ("mas você não tem moedas suficientes.")
say ("")
return
end
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("")
say ("mas você comprou")
say ("")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
end
if a1 == 2 then
return
end
end
if a == 6 then
say_reward("Shop Item, versao Ingame:")
say ("")
local b = select("VI", "VII", "VIII", "IX", "X", "Fechar")
if b == 1 then
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("VI")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
say ("")
local a1 = select("Comprar", "Cancelar")
if a1 == 1 then
if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)
pc.give_item2(19, 1)
else
say_reward("Shop Item, versao Ingame:")
say ("")
say ("Desculpe "..pc.name.." ")
say ("mas você não tem moedas suficientes.")
say ("")
return
end
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("")
say ("mas você comprou")
say ("")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
end
if a1 == 2 then
return
end
end
if b == 2 then
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("VII")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
say ("")
local a1 = select("Comprar", "Cancelar")
if a1 == 1 then
if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)
pc.give_item2(19, 1)
else
say_reward("Shop Item, versao Ingame:")
say ("")
say ("Desculpe "..pc.name.." ")
say ("mas você não tem moedas suficientes.")
say ("")
return
end
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("")
say ("mas você comprou")
say ("")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
end
if a1 == 2 then
return
end
end
if b == 3 then
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("VIII")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
say ("")
local a1 = select("Comprar", "Cancelar")
if a1 == 1 then
if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)
pc.give_item2(19, 1)
else
say_reward("Shop Item, versao Ingame:")
say ("")
say ("Desculpe "..pc.name.." ")
say ("mas você não tem moedas suficientes.")
say ("")
return
end
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("")
say ("mas você comprou")
say ("")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
end
if a1 == 2 then
return
end
end
if b == 4 then
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("IX")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
say ("")
local a1 = select("Comprar", "Cancelar")
if a1 == 1 then
if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)
pc.give_item2(19, 1)
else
say_reward("Shop Item, versao Ingame:")
say ("")
say ("Desculpe "..pc.name.." ")
say ("mas você não tem moedas suficientes.")
say ("")
return
end
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("")
say ("mas você comprou")
say ("")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
end
if a1 == 2 then
return
end
end
if b == 5 then
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("X")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
say ("")
local a1 = select("Comprar", "Cancelar")
if a1 == 1 then
if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)
pc.give_item2(19, 1)
else
say_reward("Shop Item, versao Ingame:")
say ("")
say ("Desculpe "..pc.name.." ")
say ("mas você não tem moedas suficientes.")
say ("")
return
end
say_reward("Shop Item, versao Ingame:")
say ("Olá "..pc.name..".")
say ("")
say ("mas você comprou")
say ("")
say_item ( "Aqui nome do item" , 19 , "" )
say ("")
end
if a1 == 2 then
return
end
end
if b == 6 then
return
end
if a == 7 then
return
end
end
end
end
end
 

 

Funciona?

Share this post

Link to post
Share on other sites

Kɛɛɗ    519

Kɛɛɗ
Posted

Funciona?

Testa >->' ....

Share this post

Link to post
Share on other sites

Shad0w    347

Shad0w
Posted

Testa >->' ....

Posso testa-lo em um NPC qualquer?

Share this post

Link to post
Share on other sites

Kɛɛɗ    519

Kɛɛɗ
Posted

Posso testa-lo em um NPC qualquer?

Pode, pelo que vi olhando superficialmente a quest

me parece uma quest normal, de loja de varias abas... 

Share this post

Link to post
Share on other sites

Shad0w    347

Shad0w
Posted

Dá para meter + de 1 item na mesma Aba.." Exemplo quero meter dois tipos de item a venda, na mesma Loja, em vez de ser 1 item na loja " I " e a outra na Loja " II" queria saber se da para por os 2 itens na Loja " I "

Share this post

Link to post
Share on other sites

OceanusMT2    110

OceanusMT2
Posted

Dá para meter + de 1 item na mesma Aba.." Exemplo quero meter dois tipos de item a venda, na mesma Loja, em vez de ser 1 item na loja " I " e a outra na Loja " II" queria saber se da para por os 2 itens na Loja " I "

sim é possivel.

 

 

if a1 == 1 then

local aa = select("xpto", "aaaa" ")

if aa == 1 thenif pc.count_item(50026) >= 1 thenpc.remove_item(50026, 1)pc.give_item2(19, 1)end

if aa == 2 then

if pc.count_item(50026) >= 1 thenpc.remove_item(50026, 1)pc.give_item2(20, 1)

end

Share this post

Link to post
Share on other sites

Sinister    30

Sinister
Posted

Alguem pode por link download a funcionar? obrigado.

Share this post

Link to post
Share on other sites

emanexx1    0

emanexx1
Posted

nao tem link q funcione?

Share this post

Link to post
Share on other sites

Ted Mosby    60

Ted Mosby
Posted

Estive a ler a quest e o que acontece que ele não vai buscar os valores das coins na db, ou seja, na parte:

if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)

Será preciso o item 50026 para dar efetuar a compra.

Terão que meter no IS o item 50026 à venda, ou terão que fazer uma ligação de forma a ir buscar no navicat.

De qualquer forma, foi bem tentado.

+1

Share this post

Link to post
Share on other sites

Tyler Durden    556

Tyler Durden
Posted

Estive a ler a quest e o que acontece que ele não vai buscar os valores das coins na db, ou seja, na parte:

if pc.count_item(50026) >= 1 then
pc.remove_item(50026, 1)

Será preciso o item 50026 para dar efetuar a compra.

Terão que meter no IS o item 50026 à venda, ou terão que fazer uma ligação de forma a ir buscar no navicat.

De qualquer forma, foi bem tentado.

+1

Provavelmente, como o MetinLife tinha.

Ted Mosby reacted to this

Share this post

Link to post
Share on other sites

emanexx1    0

emanexx1
Posted

cade o link ta off 

Share this post

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  
Followers 0
Go To Topic Listing Quests