PortalInícioCalendárioFAQBuscarMembrosGruposRegistrar-seConectar-se

Compartilhe | 
 

 Script de Banco Simples

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
bellzeboss
Novato
Novato
avatar

Mensagens : 8
Créditos : 22
Reputação : 1
Data de inscrição : 01/02/2011

MensagemAssunto: Script de Banco Simples   Ter Jan 31, 2012 5:20 am

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:
Código:
#=================================================================#
#=============================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(
@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(
@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

Voltando pra cá afro
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Script de Banco Simples
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» A340-600 : MONTANDO A BESTA!
» Arraiolos
» Sistema de aerografia com inalador
» Tão simples, tadinho...
» Outline e seus simples metodos.

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
M. Lords :: RPG Maker XP :: Scripts (RGSS)-
Ir para: