Registre-se gratuitamente e tenha o mundo do RPG na sua mão!
 
PortalInícioCalendárioGaleriaFAQBuscarRegistrar-seGruposConectar-se

Compartilhe | 
 

 Sistema de Banco

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Jimantre
Cidadão
Cidadão


Número de Mensagens : 3
Idade : 20
Data de inscrição : 29/05/2010

Estatísticas
Alertas Alertas:
5/5  (5/5)
Pontos Pontos: 0
Minhas Moedas! Minhas Moedas!: 0

MensagemAssunto: Sistema de Banco   Sab 29 Maio - 9:18:24

Eis aqui um sistema de banco simples e Fácil de usar.
No meio das bagulhadas todas do meu pc aki eu axei esse script funciona perfeitamente sem prescisar de nenhuma picture

script:

#=================================================================#
#=============================Banco===============================#
#============================Por XP===============================#
#===============www.rpgmakerreborn.foruns-br.com==================#
#=================================================================#
=begin
#---------------------------------#
|Sitema de Banco 1.0 |
|Feito por XP |
#---------------------------------#
|Licensa: |
|Livre para usar em seus jogos |
|desde que apresente os créditos. |
#---------------------------------#
|Como chamar: |
|Crie um novo evento e selecione |
|"Chamar script" e coloque |
|"$scene = Scene_Banco.new" |
|sem as aspas. |
#---------------------------------#
|Obs: |
|As variáveis 1 e 2 não devem ser |
|utilizadas pois o sistema vai |
|utilizá-las.A variável 1 é o |
|Saldo e a 2,o Saque/Depósito |
#---------------------------------#
|Edição: |
|Linha 49:Substitua "Banco" pelo |
|nome de seu banco. |
|Linha 66:Subistitua "Bank" pelo |
|nome da figura que gostaria de |
|utilizar como BG na pasta |
|Pictures. |
#---------------------------------#
=end
#=================================================================#
#Window_Caixa=====================================================#
#=================================================================#
class Window_Caixa < Window_Base
#Iniciando
def initialize
super(0, 160, 640, 160)
self.contents = Bitmap.new(width - 32, height - 32)
refresh
end
#Atualizando
def refresh
self.contents.clear
self.contents.draw_text(0, 0, 400, 32, "BANCO")
#(0=hor,0=ver,0=largura,0=altura,"X"=texto)
end
end
#=================================================================#
#Fim==============================================================#
#=================================================================#
###################################################################
#=================================================================#
#Scene_Banco======================================================#
#=================================================================#
class Scene_Banco
#Processo Principal
def main
@janela_caixa = Window_Caixa.new
@janela_caixa.back_opacity = 160
bg = Sprite.new
bg.bitmap = Bitmap.new("Graphics/Pictures/Bank")
s1 = "Saldo"
s2 = "Saque"
s3 = "Depósito"
@command_window = Window_Command.new(192, [s1, s2, s3])
@command_window.back_opacity = 80
@command_window.x = 545 - @command_window.width / 2
@command_window.y = 160
Graphics.transition
loop do
Graphics.update
Input.update
update
if $scene != self
break
end
end
Graphics.freeze
@janela_caixa.dispose
@command_window.dispose
end
#Atualização
def update
@command_window.update
if Input.trigger? (Input::C)
case @command_window.index
when 0
command_saldo
when 1
command_saque
when 2
command_deposito
end
end
if Input.trigger? (Input::B)
$game_system.se_play($data_system.cancel_se)
$scene=Scene_Map.new
end
end
#Escolhas
#Saldo
def command_saldo
$game_system.se_play($data_system.decision_se)
$scene = Scene_Saldo.new
end
#Saque
def command_saque
$game_system.se_play($data_system.decision_se)
$scene = Scene_Saque.new
end
#Depósito
def command_deposito
$game_system.se_play($data_system.decision_se)
$scene = Scene_Deposito.new
end
end
#=================================================================#
#Fim==============================================================#
#=================================================================#
###################################################################
#=================================================================#
#Window_Saldo=====================================================#
#=================================================================#
class Window_Saldo < Window_Base
#Iniciando
def initialize
super(0, 160, 640, 160)
self.contents = Bitmap.new(width - 32, height - 32)
refresh
end
#Atualizando
def refresh
self.contents.clear
text = sprintf("%02d", $game_variables[1])
self.contents.draw_text(0, 0, 400, 32, "Você tem " + text + " G depositados.")
#(0=hor,0=ver,0=largura,0=altura,"X"=texto)
end
end
#=================================================================#
#Fim==============================================================#
#=================================================================#
###################################################################
#=================================================================#
#Scene_Saldo======================================================#
#=================================================================#
class Scene_Saldo
#Processo Principal
def main
@janela_saldo = Window_Saldo.new
Graphics.transition
loop do
Graphics.update
Input.update
update
if $scene != self
break
end
end
Graphics.freeze
@janela_saldo.dispose
end
#Atualização
def update
if Input.trigger? (Input::B)
$game_system.se_play($data_system.cancel_se)
$scene=Scene_Banco.new
end
end
end
#=================================================================#
#Fim==============================================================#
#=================================================================#
###################################################################
#=================================================================#
#Window_Saque=====================================================#
#=================================================================#
class Window_Saque < Window_Base
#Iniciando
def initialize
super(0, 160, 640, 160)
self.contents = Bitmap.new(width - 32, height - 32)
refresh
end
#Atualizando
def refresh
self.contents.clear
self.contents.draw_text(0, 0, 400, 32, "Quanto gostaria de retirar?")
#(0=hor,0=ver,0=largura,0=altura,"X"=texto)
end
end
#=================================================================#
#Fim==============================================================#
#=================================================================#
###################################################################
#=================================================================#
#Scene_Saque======================================================#
#=================================================================#
class Scene_Saque
#Processo Principal
def main
@janela_saque = Window_Saque.new
@quantia = Window_InputNumber.new(Cool
@quantia.y = 192
Graphics.transition
loop do
Graphics.update
Input.update
update
if $scene != self
break
end
end
Graphics.freeze
@janela_saque.dispose
@quantia.dispose
end
#Atualização
def update
@quantia.update
if Input.trigger? (Input::C)
if @quantia.number > $game_variables[1]
$game_system.se_play($data_system.cancel_se)
else
$game_variables[2] = @quantia.number
$game_variables[1] -= $game_variables[2]
$game_party.gain_gold($game_variables[2])
$scene=Scene_Banco.new
end
end
if Input.trigger? (Input::B)
$game_system.se_play($data_system.buzzer_se)
$scene=Scene_Banco.new
end
end
end
#=================================================================#
#Fim==============================================================#
#=================================================================#
###################################################################
#=================================================================#
#Window_Deposito==================================================#
#=================================================================#
class Window_Deposito < Window_Base
#Iniciando
def initialize
super(0, 160, 640, 160)
self.contents = Bitmap.new(width - 32, height - 32)
refresh
end
#Atualizando
def refresh
self.contents.clear
self.contents.draw_text(0, 0, 400, 32, "Quanto gostaria de depositar?")
#(0=hor,0=ver,0=largura,0=altura,"X"=texto)
end
end
#=================================================================#
#Fim==============================================================#
#=================================================================#
###################################################################
#=================================================================#
#Scene_Deposito===================================================#
#=================================================================#
class Scene_Deposito
#Processo Principal
def main
@janela_deposito = Window_Deposito.new
@quantia = Window_InputNumber.new(Cool
@quantia.y = 192
Graphics.transition
loop do
Graphics.update
Input.update
update
if $scene != self
break
end
end
Graphics.freeze
@janela_deposito.dispose
@quantia.dispose
end
#Atualização
def update
@quantia.update
if Input.trigger? (Input::C)
if @quantia.number > $game_party.gold
$game_system.se_play($data_system.cancel_se)
else
$game_variables[2] = @quantia.number
$game_variables[1] += $game_variables[2]
$game_party.lose_gold($game_variables[2])
$scene=Scene_Banco.new
end
end
if Input.trigger? (Input::B)
$game_system.se_play($data_system.buzzer_se)
$scene=Scene_Banco.new
end
end
end
#=================================================================#
#Fim==============================================================#
#=================================================================#

Se quiser alguma picture pra dar uma animadinha no seu banco Vá até a linha 66 e subtitua o "Bank" pelo nome da picture que vc kiser botar Ex: pasta Picture tem lá flores o nome da picture entaum bote "flores" ao invés de "Bank"


Espero ter ajudado sunny sunny sunny
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Sistema de Banco
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
King RPG :: RPG Maker XP :: RPG Maker XP (On-line) :: Scripts-
Ir para: