怎么做有利息银行

creeper0924 · 发表于 2015-8-8 05:34:55

加入我们，或者，欢迎回来。

您需要登录才可以下载或查看，没有帐号？注册会员

x

如题，请各位大神帮帮忙。
小弟不胜感激！{:8_457:}

未命名 · 发表于 2015-8-8 12:01:49

普通的变量计算就好了……

对话数值输入变量[1]，这是要借的钱数。
然后加在借钱总数（变量[2]）里。

然后利息就用总数算。

还钱的时候也是输入变量[1]，条件分析不要超过总数。

H·H·Y · 发表于 2015-8-8 14:09:10

简单的方法：存钱时用公共事件和变量开始计时，每20帧变量+1，取钱时用这个变量×利息×金钱总额，然后就相当于连本带息取出钱了。记得每次使用的时候将计时变量清零。

亡灵史莱姆 · 发表于 2015-8-12 12:18:55

这银行脚本效果蛮不错的
或者也可以用事件，很简单的

# Created By SephirothSpawn (12.03.05)
# Last Updated: 12.03.05
# Banking System
=begin
=^^=HI~~
这个我只作个界面胡乱翻译啊……
大概的内容翻译完成，只是不太了解债券= =||||，所以……
这个脚本主要功能是：存款，取款，购买债券，债券查看……
汉字的部分大家可以在脚本里替换~~~~基本的界面都汉化了，不影响使用滴~
调用请用此脚本：$scene = Scene_Bank.new
by 秋弦月
=end
# ** Scene_Title
#==============================================================================
class Scene_Title
# * Alias Command: New Game
#--------------------------------------------------------------------------
alias bank_command_new_game command_new_game
#--------------------------------------------------------------------------
# * Command: New Game
#--------------------------------------------------------------------------
def command_new_game
$game_bank = Game_BankSystem.new
bank_command_new_game
end
end
#==============================================================================
# ** Window_RefreshCommand
#==============================================================================
class Window_RefreshCommand < Window_Selectable
#--------------------------------------------------------------------------
# * Object Initialization
# width : window width
# commands : command text string array
#--------------------------------------------------------------------------
def initialize(width, commands)
# Compute window height from command quantity
super(0, 0, width, commands.size * 32 + 32)
@item_max = commands.size
@commands = commands
refresh
self.index = 0
end
#--------------------------------------------------------------------------
# * Refresh
#--------------------------------------------------------------------------
def refresh(commands = @commands)
@commands = commands
@item_max = commands.size
if self.contents != nil
self.contents.dispose
self.contents = nil
end
self.contents = Bitmap.new(width - 32, @item_max * 32)
for i in 0...@item_max
draw_item(i, normal_color)
end
end
#--------------------------------------------------------------------------
# * Draw Item
# index : item number
# color : text color
#--------------------------------------------------------------------------
def draw_item(index, color)
self.contents.font.color = color
self.contents.draw_text(0, 32 * index, self.contents.width - 8, 32, @commands[index], 1)
end
#--------------------------------------------------------------------------
# * Disable Item
# index : item number
#--------------------------------------------------------------------------
def disable_item(index)
draw_item(index, disabled_color)
end
#--------------------------------------------------------------------------
# * Undisable Item
# index : item number
#--------------------------------------------------------------------------
def disable_item(index)
draw_item(index, normal_color)
end
end
#==============================================================================
# ** Game_BankSystem
#==============================================================================
class Game_BankSystem
#--------------------------------------------------------------------------
# * Public Instance Variables
#--------------------------------------------------------------------------
attr_accessor :account_balance
attr_accessor :interest_rate
attr_accessor :saving_bonds
#--------------------------------------------------------------------------
# * Object Initialization
#--------------------------------------------------------------------------
def initialize
@account_balance = 0
@interest_rate = 1
@saving_bonds = []
@last_interest_time = 0
end
# * Update
def update
# Updates Deposited Amount
interest_time = (Graphics.frame_count / Graphics.frame_rate - @last_interest_time) / 3600.0
interest_amt = (@account_balance * @interest_rate / 100.0 * interest_time).to_i
if interest_amt > 0
@last_interest_time = Graphics.frame_count / Graphics.frame_rate
@account_balance += interest_amt
# Refreshes Data Windows
$scene.refresh_windows
end
end
#--------------------------------------------------------------------------
# * Deposit
#--------------------------------------------------------------------------
def deposit(amount)
$game_party.lose_gold(amount)
@account_balance += amount
end
#--------------------------------------------------------------------------
# * Withdraw
#--------------------------------------------------------------------------
def withdraw(amount)
@account_balance -= amount
$game_party.gain_gold(amount)
end
#--------------------------------------------------------------------------
# * Add Savings Bond
#--------------------------------------------------------------------------
def add_bond(bond)
@saving_bonds.push(bond)
@saving_bonds.sort! {|a, b| a.name <=> b.name}
end
end
#==============================================================================
# ** Savings_Bond
#==============================================================================
class Savings_Bond
#--------------------------------------------------------------------------
# * Public Instance Variables
#--------------------------------------------------------------------------
attr_accessor :name
attr_accessor :cost
attr_accessor :interest_rate
attr_accessor :length
attr_accessor :time_bought
attr_accessor :time_finished
attr_accessor :mature_value
#--------------------------------------------------------------------------
# * Object Initialization
# name : Savings Bond Name
# cost : Savings Bond Cost
# interest_rate : Savings Bond Interest Rate (In Percent)
# length : Length of Hours until Mature
#--------------------------------------------------------------------------
def initialize(name, cost, interest_rate, length)
@name = name
@cost = cost
@interest_rate = interest_rate
@length = length
@mature_value = (@cost * (1+ @interest_rate / 100.0)).to_i
end
#--------------------------------------------------------------------------
# * Set Times
#--------------------------------------------------------------------------
def set_times
@time_bought = Graphics.frame_count / Graphics.frame_rate
@time_finished = @time_bought + @length * 3600
end
#--------------------------------------------------------------------------
# * Make Time to HH:MM:SS
#--------------------------------------------------------------------------
def return_time(time)
hours = time / 60 / 60
minutes = time / 60 % 60
seconds = time % 60
return sprintf("%02d:%02d:%02d", hours, minutes, seconds)
end
end
#==============================================================================
# ** Window_BankNumber
#==============================================================================
class Window_BankNumber < Window_Base
#--------------------------------------------------------------------------
# * Object Initialization
#--------------------------------------------------------------------------
def initialize
super(640, 272, 240, 192)
self.opacity = 175
self.contents = Bitmap.new(width - 32, height - 32)
end
#--------------------------------------------------------------------------
# * Refresh
# money : Gold being...
# type : Deposit or Withdraw
#--------------------------------------------------------------------------
def refresh(money, type)
contents.clear
# Deposit or Withdraw
contents.font.color = system_color
contents.draw_text(0, 0, contents.width, 24, "存款信息", 1)
if type == "存入"
# Draws Game Party Gold
contents.draw_text(4, 48, contents.width, 24, "所持金钱:")
contents.font.color = normal_color
contents.draw_text(-4, 48, contents.width, 24, $game_party.gold.to_s, 2)
else
# Draws Account Balance
contents.draw_text(4, 48, contents.width, 24, "银行余额:")
contents.font.color = normal_color
contents.draw_text(-4, 48, contents.width, 24, $game_bank.account_balance.to_s, 2)
end
# Draws Money Being Deposited or Withdrawn
contents.font.color = system_color
contents.draw_text(4, 72, contents.width, 24, "预存金钱:")
contents.font.color = normal_color
contents.draw_text(-4, 72, contents.width, 24, "- #{money}", 2)
# Draws Line
line = ""
while contents.text_size(line).width < contents.width
line += "-"
end
contents.draw_text(0, 96, contents.width, 24, line, 2)
# Draws Game Party Gold Amont
contents.font.color = system_color
contents.draw_text(4, 112, contents.width, 32, "存后金钱:")
amount = $game_party.gold
amount += type == "存入" ? -money : money
contents.font.color = normal_color
contents.draw_text(-4, 112, contents.width, 32, amount.to_s, 2)
# Draws Deposit Amont
amount = $game_bank.account_balance
amount += type == "存入" ? money : -money
contents.font.color = system_color
contents.draw_text(4, 136, contents.width, 32, "存入余额:")
contents.font.color = normal_color
contents.draw_text(-4, 136, contents.width, 32, amount.to_s, 2)
end
end
#==============================================================================
# ** Window_BankBio
#==============================================================================
class Window_BankBio < Window_Base
#--------------------------------------------------------------------------
# * Object Initialization
#--------------------------------------------------------------------------
def initialize
super(-240, 272, 240, 192)
self.opacity = 175
self.contents = Bitmap.new(width - 32, height - 32)
refresh
end
#--------------------------------------------------------------------------
# * Refresh
#--------------------------------------------------------------------------
def refresh
contents.clear
# Deposit or Withdraw
contents.font.color = system_color
# Draws Actor Name in Postition 1
contents.font.color = normal_color
contents.draw_text(0, 0, contents.width, 24, "#{$game_party.actors[0].name}", 1)
# Draws Game Party Gold
contents.font.color = system_color
contents.draw_text(4, 32, contents.width, 24, "持有 #{$data_system.words.gold}:")
contents.font.color = normal_color
contents.draw_text(-4, 32, contents.width, 24, $game_party.gold.to_s, 2)
# Draws Account Balance
contents.font.color = system_color
contents.draw_text(4, 56, contents.width, 24, "银行余额:")
contents.font.color = normal_color
contents.draw_text(-4, 56, contents.width, 24, $game_bank.account_balance.to_s, 2)
# Draws Number of Savings Bond's
contents.font.color = system_color
contents.draw_text(4, 80, contents.width, 24, "债券持有:")
contents.font.color = normal_color
contents.draw_text(-4, 80, contents.width, 24, $game_bank.saving_bonds.size.to_s, 2)
# Draws Value of Savings Bond's
;value = 0
$game_bank.saving_bonds.each { |x| value += x.mature_value}
contents.font.color = system_color
contents.draw_text(4, 104, contents.width, 24, "债券价值:")
contents.font.color = normal_color
contents.draw_text(-4, 104, contents.width, 24, value.to_s, 2)
# Draws Current Interest Rate
contents.font.color = system_color
contents.draw_text(4, 136, contents.width, 24, "利率:")
contents.font.color = normal_color
contents.draw_text(-4, 136, contents.width, 24, "#{$game_bank.interest_rate} %", 2)
end
end
#==============================================================================
# ** Window_Bond
#==============================================================================
class Window_Bond < Window_Base
#--------------------------------------------------------------------------
# * Object Initialization
#--------------------------------------------------------------------------
def initialize
super(-240, 264, 240, 200)
self.opacity = 175
self.contents = Bitmap.new(width - 32, height - 32)
end
#--------------------------------------------------------------------------
# * Refresh
# bond : Savings Bond
#--------------------------------------------------------------------------
def refresh(bond, bought = false)
contents.clear
unless bond == nil
# Draws Bond Name
contents.font.color = system_color
contents.draw_text(0, 0, contents.width, 24, bond.name, 1)
# Draws Bond Cost
contents.font.color = system_color
contents.draw_text(4, 24, contents.width, 24, "债券价格:")
contents.font.color = normal_color
contents.draw_text(-4, 24, contents.width, 24, bond.cost.to_s, 2)
# Draws Bond Mature Value
contents.font.color = system_color
contents.draw_text(4, 48, contents.width, 24, "成熟价值:")
contents.font.color = normal_color
contents.draw_text(-4, 48, contents.width, 24, "#{bond.mature_value}", 2)
# Draws Bond Interest Rate
contents.font.color = system_color
contents.draw_text(4, 72, contents.width, 24, "利率:")
contents.font.color = normal_color
contents.draw_text(-4, 72, contents.width, 24, "#{bond.interest_rate} %", 2)
# Draws Length until Maturity
contents.font.color = system_color
contents.draw_text(4, 96, contents.width, 24, "到期时间:")
contents.font.color = normal_color
contents.draw_text(-4, 96, contents.width, 24, "#{bond.length} 小时", 2)
# Display only if Purchased CD
if bought
# Draws Time Bought
contents.font.color = system_color
contents.draw_text(4, 120, contents.width, 24, "购买时间:")
contents.font.color = normal_color
contents.draw_text(-4, 120, contents.width, 24, bond.return_time(bond.time_bought), 2)
# Draws Time Finished
contents.font.color = system_color
contents.draw_text(4, 144, contents.width, 24, "结束时间:")
contents.font.color = normal_color
contents.draw_text(-4, 144, contents.width, 24, bond.return_time(bond.time_finished), 2)
end
end
end
end
#==============================================================================
# ** Scene_Bank
#==============================================================================
class Scene_Bank
#--------------------------------------------------------------------------
# * Object Initialization
# interest rate : Changes Current Interest Rate (Leave 0 for no Change)
# bonds : Avaliable CD's For Purchasing
#--------------------------------------------------------------------------
def initialize(interest_rate = $game_bank.interest_rate,
bonds = [ Savings_Bond.new("CD-7", 100, 7.5, 7), Savings_Bond.new("CD-14", 500, 15, 14)])
$game_bank.interest_rate = interest_rate unless interest_rate == 0
@bonds = bonds
end
#--------------------------------------------------------------------------
# * Main Processing
#--------------------------------------------------------------------------
def main
# Current Phase
@phase = -1
# Refreshing Variables
@amount, @depositing = 0, true
@current_bond, @bond_bought = nil, false
# Make sprite set
@spriteset = Spriteset_Map.new
# Help Window
@help_window = Window_Help.new
@help_window.y, @help_window.opacity = -64, 175
@help_window.set_text("欢迎来到银行！你可以在这里存取金钱！=^^=", 1)
# Bank Bio
@bank_bio_window = Window_BankBio.new
# Avaliable Bond Information Display Window
@av_bond_display_window = Window_Bond.new
# Owned Bond Information Display Window
@own_bond_display_window = Window_Bond.new
# Main Command
@main_command = Window_RefreshCommand.new(180, [
"存款",
"取款", "购买债券", "债券查看", "退出"])
@main_command.x, @main_command.y, @main_command.opacity = 644, 272, 175
@main_command.active = false
# Bank Number Window
@bank_number_window = Window_BankNumber.new
# Avaliable Bonds Command
commands = []
@bonds.each {|x| commands.push(x.name)}; commands.push("返回")
@av_bond_command = Window_RefreshCommand.new(180, commands)
@av_bond_command.x, @av_bond_command.y = 644, 272
@av_bond_command.height, @av_bond_command.opacity = 192, 175
@av_bond_command.active = false
# CD's Have
@own_bond_command = Window_RefreshCommand.new(180, get_cd_list)
@own_bond_command.x, @own_bond_command.y = 644, 272
@own_bond_command.height, @own_bond_command.opacity = 192, 175
@own_bond_command.active = false
# Scene Objects
@objects = [@spriteset, @help_window, @bank_bio_window, @av_bond_display_window,
@own_bond_display_window, @main_command, @bank_number_window,
@av_bond_command, @own_bond_command]
# Execute transition
Graphics.transition
# Main loop
while $scene == self
# Update game screen
Graphics.update
# Update input information
Input.update
# Update Objects
@objects.each {|x| x.update}
# Updates Bank System
$game_bank.update
# Frame update
update
end
# Prepare for transition
Graphics.freeze
# Dispose of windows
@objects.each {|x| x.dispose}
end
#--------------------------------------------------------------------------
# * Frame Update
#--------------------------------------------------------------------------
def update
# Splits Phases Up
case @phase
when -1 # Intro Phase
intro_update
when 0 # Main Phase
main_update
when 1 # Deposit or Withdraw Phase
account_update
when 2 # Buy CD Phase
buy_bond_update
when 3 # Get Mature CD Phse
get_bond_update
when 99 # Exit Phase
exit_update
end
end
#--------------------------------------------------------------------------
# * Intro Update
#--------------------------------------------------------------------------
def intro_update
# Moves Window Down
@help_window.y += 4 if @help_window.y < 0
if @help_window.y == 0
# Input Processing
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
# Returns to Scene
@phase = 99
elsif Input.trigger?(Input::C)
$game_system.se_play($data_system.decision_se)
# Switchs to Main Phase
@phase = 0
end
end
end
#--------------------------------------------------------------------------
# * Main Update
#--------------------------------------------------------------------------
def main_update
# Turns On Main Command
@main_command.active = true
# Turns Off Other Command Windows
@av_bond_command.active = @own_bond_command.active = false
# Moves In Active Windows
@bank_bio_window.z = @main_command.z = 9999
@bank_bio_window.x += 32 if @bank_bio_window.x < 16
@main_command.x -= 25 if @main_command.x > 444
# Moves Out Inactive Windows
@av_bond_display_window.x -= 32 if @av_bond_display_window.x > - 240
[@av_bond_display_window, @own_bond_display_window, @bank_number_window,
@av_bond_command, @own_bond_command].each {|window| window.z = 9995}
[@av_bond_command, @own_bond_command].each {|command|
command.x += 25 if command.x < 644}
@own_bond_display_window.x -= 25 if @own_bond_display_window.x > - 240
@bank_number_window.x += 32 if @bank_number_window.x < 640
# Sets Help Window
case @main_command.index
when 0; @help_window.set_text("要存款从这里...", 1)
when 1; @help_window.set_text("要提款从这里...", 1)
when 2; @help_window.set_text("要购买债券从这里...", 1)
when 3; @help_window.set_text("要查看债券从这里...", 1)
when 4; @help_window.set_text("亲爱的顾客，您要离开银行吗？", 1)
end
# Input Processing
if Input.trigger?(Input::B) # Returns to Map
$game_system.se_play($data_system.cancel_se)
@phase = 99
elsif Input.trigger?(Input::C)
$game_system.se_play($data_system.decision_se)
case @main_command.index
when 0 # Deposit
@amount, @depositing = 0, true
refresh_windows
@help_window.set_text("存入 #{@amount} #{$data_system.words.gold}", 1)
@phase = 1
when 1 # Withdraw
@amount, @depositing = 0, false
refresh_windows
@help_window.set_text("取出 #{@amount} #{$data_system.words.gold}", 1)
@phase = 1
when 2 # Buy CD
@current_bond = @bonds[@av_bond_command.index]
@bond_bought = false
refresh_windows
@phase = 2
when 3 # Get CD
@current_bond = $game_bank.saving_bonds[@own_bond_command.index]
@bond_bought = true
refresh_windows
@phase = 3
when 4 # Exit Bank
@phase = 99
end
end
end
#--------------------------------------------------------------------------
# * Accpunt Update
#--------------------------------------------------------------------------
def account_update
# Turns Off Command Windows
@main_command.active = @av_bond_command.active = @own_bond_command.active = false
# Moves In Active Windows
@bank_bio_window.z = @bank_number_window.z = 9999
@bank_bio_window.x += 32 if @bank_bio_window.x < 16
@bank_number_window.x -= 32 if @bank_number_window.x > 384
# Moves Out Inactive Windows
@av_bond_display_window.z = @own_bond_display_window.z =
@main_command.z = @av_bond_command.z = @own_bond_command.z = 9995
@av_bond_display_window.x -= 32 if @av_bond_display_window.x > - 240
[@own_bond_display_window].each {|window| window.x -= 25 if window.x > - 240}
[@main_command, @av_bond_command, @own_bond_command].each {|command|
command.x += 25 if command.x < 644}
# Input Processing
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
@phase = 0
elsif Input.trigger?(Input::C)
$game_system.se_play($data_system.shop_se)
if @depositing
$game_bank.deposit(@amount)
refresh_windows
@phase = 0
else
$game_bank.withdraw(@amount)
refresh_windows
@phase = 0
end
elsif Input.repeat?(Input::LEFT) && Input.press?(Input::LEFT)
if @amount > 0
$game_system.se_play($data_system.cursor_se)
@amount -= 1
refresh_windows
@help_window.set_text("#{@depositing ? '存入' : '取出'} #{@amount} #{$data_system.words.gold}", 1)
else
$game_system.se_play($data_system.buzzer_se)
end
elsif Input.repeat?(Input::RIGHT) && Input.press?(Input::RIGHT)
if @depositing
if @amount < $game_party.gold
$game_system.se_play($data_system.cursor_se)
@amount += 1
refresh_windows
@help_window.set_text("#{@depositing ? '存入' : '取出'} #{@amount} #{$data_system.words.gold}", 1)
else
$game_system.se_play($data_system.buzzer_se)
end
else
if @amount < $game_bank.account_balance
$game_system.se_play($data_system.cursor_se)
@amount += 1
refresh_windows
@help_window.set_text("#{@depositing ? '存入' : '取出'} #{@amount} #{$data_system.words.gold}", 1)
else
$game_system.se_play($data_system.buzzer_se)
end
end
elsif Input.repeat?(Input::UP) && Input.press?(Input::UP)
if @amount == 0
$game_system.se_play($data_system.buzzer_se)
else
$game_system.se_play($data_system.cursor_se)
@amount > 10 ? @amount -= 10 : @amount = 0
refresh_windows
@help_window.set_text("#{@depositing ? '存入' : '取出'} #{@amount} #{$data_system.words.gold}", 1)
end
elsif Input.repeat?(Input::DOWN) && Input.press?(Input::DOWN)
if @depositing
if @amount < $game_party.gold
$game_system.se_play($data_system.cursor_se)
@amount < $game_party.gold - 10 ? @amount += 10 : @amount = $game_party.gold
refresh_windows
@help_window.set_text("#{@depositing ? '存入' : '取出'} #{@amount} #{$data_system.words.gold}", 1)
else
$game_system.se_play($data_system.buzzer_se)
end
else
if @amount < $game_bank.account_balance
$game_system.se_play($data_system.cursor_se)
@amount < $game_bank.account_balance - 10 ? @amount += 10 : @amount = $game_bank.account_balance
refresh_windows
@help_window.set_text("#{@depositing ? '存入' : '取出'} #{@amount} #{$data_system.words.gold}", 1)
else
$game_system.se_play($data_system.buzzer_se)
end
end
elsif Input.repeat?(Input::L) && Input.press?(Input::L)
if @amount == 0
$game_system.se_play($data_system.buzzer_se)
else
$game_system.se_play($data_system.cursor_se)
@amount > 100 ? @amount -= 100 : @amount = 0
refresh_windows
@help_window.set_text("#{@depositing ? '存入' : '取出'} #{@amount} #{$data_system.words.gold}", 1)
end
elsif Input.repeat?(Input::R) && Input.press?(Input::R)
if @depositing
if @amount < $game_party.gold
$game_system.se_play($data_system.cursor_se)
@amount < $game_party.gold - 100 ? @amount += 100 : @amount = $game_party.gold
refresh_windows
@help_window.set_text("#{@depositing ? '存入' : '取出'} #{@amount} #{$data_system.words.gold}", 1)
else
$game_system.se_play($data_system.buzzer_se)
end
else
if @amount < $game_bank.account_balance
$game_system.se_play($data_system.cursor_se)
@amount < $game_bank.account_balance - 100 ? @amount += 100 : @amount = $game_bank.account_balance
refresh_windows
@help_window.set_text("#{@depositing ? '存入' : '取出'} #{@amount} #{$data_system.words.gold}", 1)
else
$game_system.se_play($data_system.buzzer_se)
end
end
end
end
#--------------------------------------------------------------------------
# * Buy Bond Update
#--------------------------------------------------------------------------
def buy_bond_update
# Turns On Avaliable Bond Window
@av_bond_command.active = true
# Turns Off Other Command Windows
@main_command.active = @own_bond_command.active = false
# Moves In Active Windows
@av_bond_display_window.z = @av_bond_command.z = 9999
@av_bond_display_window.x += 32 if @av_bond_display_window.x < 16
@av_bond_command.x -= 25 if @av_bond_command.x > 444
# Moves Out Inactive Windows
[@bank_bio_window, @bank_number_window, @own_bond_display_window,
@main_command, @own_bond_command].each {|window| window.z = 9995}
@bank_bio_window.x -= 32 if @bank_bio_window.x > - 240
@bank_number_window.x += 32 if @bank_number_window.x < 640
@own_bond_display_window.x -= 25 if @own_bond_display_window.x > - 240
[@main_command, @own_bond_command].each {|command| command.x += 25 if command.x < 644}
# Input Processing
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
@phase = 0
elsif Input.trigger?(Input::C)
if @av_bond_command.index == @bonds.size
$game_system.se_play($data_system.cancel_se)
@phase = 0
else
current_bond = @bonds[@av_bond_command.index].dup
if current_bond.cost > $game_party.gold
$game_system.se_play($data_system.buzzer_se)
else
$game_system.se_play($data_system.decision_se)
$game_party.lose_gold(current_bond.cost)
current_bond.set_times
$game_bank.add_bond(current_bond)
refresh_windows
@phase = 0
end
end
# Updates Current Bond
elsif Input.trigger?(Input::UP) or Input.trigger?(Input::DOWN)
@current_bond = @bonds[@av_bond_command.index]
refresh_windows
end
end
#--------------------------------------------------------------------------
# * Get Bond Update
#--------------------------------------------------------------------------
def get_bond_update
# Turns On Avaliable Bond Window
@own_bond_command.active = true
# Turns Off Other Command Windows
@main_command.active = @av_bond_command.active = false
# Moves In Active Windows
[@own_bond_display_window, @own_bond_command].each {|window| window.z = 9999}
@own_bond_display_window.x += 32 if @own_bond_display_window.x < 16
@own_bond_command.x -= 25 if @own_bond_command.x > 444
# Moves Out Inactive Windows
[@bank_bio_window, @av_bond_display_window, @main_command, @bank_number_window,
@av_bond_command].each {|window| window.z = 9995}
[@bank_bio_window, @av_bond_display_window].each {|window|
window.x -= 32 if window.x > - 240}
[@main_command, @av_bond_command].each {|window|
window.x += 25 if window.x < 640}
@bank_number_window.x += 32 if @bank_number_window.x < 640
# Input Processing
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
@phase = 0
elsif Input.trigger?(Input::C)
if @own_bond_command.index == $game_bank.saving_bonds.size
$game_system.se_play($data_system.cancel_se)
@phase = 0
else
current_bond = $game_bank.saving_bonds[@own_bond_command.index]
if current_bond.time_finished > Graphics.frame_count / Graphics.frame_rate
$game_system.se_play($data_system.buzzer_se)
@help_window.set_text("储蓄债券还未成熟!", 1)
else
$game_system.se_play($data_system.decision_se)
$game_party.gain_gold(current_bond.mature_value)
$game_bank.saving_bonds.delete_at[@own_bond_command.index]
refresh_windows
@phase = 0
end
end
elsif Input.trigger?(Input::UP) or Input.trigger?(Input::DOWN)
@current_bond = $game_bank.saving_bonds[@own_bond_command.index]
refresh_windows
end
end
# * Exit Update
def exit_update
# Moves Out Windows
@help_window.y -= 4 if @help_window.y > - 64
[@bank_bio_window, @av_bond_display_window].each {|window| window.x -= 32 if window.x > - 240}
[@own_bond_display_window].each {|window| window.x -= 25 if window.x > - 240}
[@main_command, @bank_number_window, @av_bond_command,
@own_bond_command].each {|window| window.x += 25 if window.x < 640}
# Checks To Make Sure All Windows Are Out
if @help_window.y <= - 64 && @bank_bio_window.x <= - 240 && @av_bond_display_window.x <= - 240 &&
@own_bond_display_window.x <= - 240 && @main_command.x >= 644 &&
@bank_number_window.x >= 640 && @av_bond_command.x >= 640 && @own_bond_command.x >= 640
$scene = Scene_Map.new
end
end
#--------------------------------------------------------------------------
# * Get CD List
#--------------------------------------------------------------------------
def get_cd_list
commands = []
$game_bank.saving_bonds.each {|x| commands.push(x.name)}
commands.push("返回")
return commands
end
#--------------------------------------------------------------------------
# * Refresh Windows
#--------------------------------------------------------------------------
def refresh_windows
@bank_bio_window.refresh
@av_bond_display_window.refresh(@current_bond, @bond_bought)
@own_bond_display_window.refresh(@current_bond, @bond_bought)
@bank_number_window.refresh(@amount, @depositing ? "存入" : "取出")
@own_bond_command.refresh(get_cd_list)
end
end

复制代码

creeper0924 · 发表于 2015-8-12 16:00:00

本帖最后由 creeper0924 于 2015-8-12 16:11 编辑

亡灵史莱姆发表于 2015-8-12 12:18
这银行脚本效果蛮不错的
或者也可以用事件，很简单的

不行啊，它显示脚本太深。。。

(σﾟ∀ﾟ)σ

上图：

亡灵史莱姆 · 发表于 2015-8-15 12:10:36

那么让我换个脚本

#==============================================================================
# ● 银行系统 v1.2 by 后知后觉
#==============================================================================
=begin
说明书：
用 $scene = Scene_Bank.new 进入银行信息界面
然后在下面设置好对应的变量编号
用 $game_system.bank 可以获取到存入的本钱
用到这句的人应该不多。
建立了多个数据库变量，可以用这些东西更加方便灵活的控制这个系统
这个是用行走步数来进行的判断
利用1个开关和1个变量来共同对刷钱行为进行控制
计算公式很简单：
增长值=本钱*利息-本钱（结果小于0,就是负增长→亏钱）
现有积蓄+增长值=最后的积蓄（显示在窗口上的那个）
如果想对公式进行修改，主要在下面的Scene_Map里
和脚本最后的有注释的地方
如果想加入第2+n的货币、显示银行服务员画像等个性设置
那就只有你自己动动手了=v= 喵~！很简单哦~~~!
冲突可能：
基本上没有
=end
BANK_SWITCHES = 12 #银行系统的开关编号打开时有效
#本开关只针对地图上的数据处理
#在某些地图开启、在某些地图关闭可以达到某种限制刷钱的效果
GAIN_STEPS = 10 #接受走多少步涨一次积蓄的变量编号
JIXU_VARIABLE = 11 #接受储存积蓄的变量编号
LIXI_VARIABLE = 12 #接受利息的变量编号
#利息是浮点数的话、请用脚本语句进行赋值
#并且不推荐用+-*/法来对浮点数利息进行运算，
#最好用 = 直接赋值,
#就像这样 $game_variables[编号] = 数值
BASE_MONEY = 13 #存钱的最低限制的变量编号
BASE_MONEY_2 = 14 #取钱的最低数额的变量编号
#以上2个不想用的话就把该变量的值赋为0
BATTLE_VAR_1 = 15 #战斗胜利值的变量编号
BATTLE_VAR_2 = 16 #限制值的变量编号
#当1小于2的时候每次增加积蓄时1会加1 如果1等于2
#则不会增长积蓄每次战斗胜利1会减1
#游戏里适当的时候把1清零一下是必要的~~或直接在脚本里添加
#如果不想要这功能就把2设置为很大很大
XIANJIN_FONT = " 现金 " #其他的字符串可以用搜索功能
JIXU_FONT = " 积蓄 " #直接搜索到然后进行修改
LIXI_FONT = " 利息 " #主要说的是播放冻结SE是偶的
CUNQIAN_FONT = "存入现金" #提示窗口。
QVQIAN_FONT = "取回积蓄"
TUICHU_FONT = "离开银行"
class Scene_Map
def initialize
#这个@bs是用来防止刷钱的
@bs = $game_party.steps
end
alias houzhihoujue_update update
def update
houzhihoujue_update
if $game_switches[BANK_SWITCHES] == true
bushu = $game_party.steps
# 存入银行的本钱
gold = $game_system.bank
# 代入利息变量
lixi = $game_variables[LIXI_VARIABLE]
# 增加的金额
gain = gold * lixi - gold
if @bs < bushu
if bushu % $game_variables[GAIN_STEPS] == 0
if $game_variables[BATTLE_VAR_1] < $game_variables[BATTLE_VAR_2]
# 最后的结果
$game_variables[JIXU_VARIABLE] += gain
$game_variables[BATTLE_VAR_1] += 1
# 下面这行可别动哦~
@bs = bushu
end
end
end
end
end
end
class Scene_Battle
alias hzhj_start_phase5 start_phase5
def start_phase5
hzhj_start_phase5
$game_variables[BATTLE_VAR_1] -= 1
end
end
class Game_System
attr_accessor :bank
alias hzhj_ini initialize
def initialize
hzhj_ini
@bank = 0
end
end
class Window_Bank_Message < Window_Base
def initialize(message = 0)
super(0, 0, 320, 96)
self.contents = Bitmap.new(width - 32, height - 32)
self.x = 160
self.y = 240 - self.height / 2 + 16
self.opacity = 255
self.back_opacity = 255
self.z = 9995
@msg = message
self.visible = true
refresh(@msg)
end
def refresh(msg)
self.contents.clear
case msg
when 0 # 低于存钱限制
text_1 = "根据现在的市场行情"
self.contents.font.color = system_color
self.contents.draw_text(0,0,320-32,32,text_1)
text_2 = "最低储存数额为"
self.contents.draw_text(0,32,192+24,32,text_2,2)
self.contents.font.color = Color.new(255,0,0,255)
text_3 = $game_variables[BASE_MONEY].to_s
self.contents.draw_text(192+24,32,96-24,32,text_3)
when 1 # 低于最低取钱
text_1 = "根据现在的市场行情"
self.contents.font.color = system_color
self.contents.draw_text(0,0,320-32,32,text_1)
text_2 = "最低取回数额为"
self.contents.draw_text(0,32,192+24,32,text_2,2)
self.contents.font.color = Color.new(255,0,0,255)
text_3 = $game_variables[BASE_MONEY_2].to_s
self.contents.draw_text(192+24,32,96-24,32,text_3)
when 2 # 存钱超过身上的钱
text_1 = "您身上可没那么多哦~~！"
self.contents.font.color = system_color
self.contents.draw_text(0,16,320-32,32,text_1,1)
when 3 # 取钱超过银行里的钱
text_1 = "有人抢劫啊~~!救命呐~~!"
self.contents.font.color = system_color
self.contents.draw_text(0,16,320-32,32,text_1,1)
end
end
end
class Window_ShuRu < Window_Selectable
def initialize
super(0, 0, 224, 96)
self.contents = Bitmap.new(width - 32, height - 32)
self.x = 320 - self.width / 2
self.y = 240 - self.height / 2 + 16
@item_max = 8
@column_max = 8
refresh
self.visible = false
self.active = false
self.index = 7
self.opacity = 255
self.back_opacity = 255
self.z = 9990
end
def refresh(s1=0,s2=0,s3=0,s4=0,s5=0,s6=0,s7=0,s8=0)
@s1 = s1
@s2 = s2
@s3 = s3
@s4 = s4
@s5 = s5
@s6 = s6
@s7 = s7
@s8= s8
self.contents.clear
self.contents.font.color = normal_color
self.contents.draw_text(4, 0, 96, 32, "输入数值",1)
self.contents.font.color = system_color
self.contents.draw_text(0, 32, 24, 32, @s1.to_s, 1)
self.contents.draw_text(24, 32, 24, 32, @s2.to_s, 1)
self.contents.draw_text(48, 32, 24, 32, @s3.to_s, 1)
self.contents.draw_text(72, 32, 24, 32, @s4.to_s, 1)
self.contents.draw_text(96, 32, 24, 32, @s5.to_s, 1)
self.contents.draw_text(120, 32, 24, 32, @s6.to_s, 1)
self.contents.draw_text(144, 32, 24, 32, @s7.to_s, 1)
self.contents.draw_text(168, 32, 24, 32, @s8.to_s, 1)
end
def update_cursor_rect
if @index < 0
self.cursor_rect.empty
else
self.cursor_rect.set(@index*24, 32, 24, 32)
end
end
end
class Window_Bank < Window_Selectable
def initialize
super(0, 0, 256, 224)
self.contents = Bitmap.new(width - 32, height - 32)
self.x = 320 - self.width / 2
self.y = 240 - self.height / 2
@item_max = 3
refresh
self.index = 0
self.opacity = 255
self.back_opacity = 160
self.z = 5555
end
def refresh
self.contents.clear
self.contents.font.color = normal_color
self.contents.draw_text(4, 0, 96, 32, XIANJIN_FONT, 1)
self.contents.draw_text(4, 32, 96, 32, JIXU_FONT, 1)
self.contents.draw_text(4, 64, 96, 32, LIXI_FONT, 1)
self.contents.font.color = system_color
self.contents.draw_text(0, 96, 224, 32, CUNQIAN_FONT, 1)
self.contents.draw_text(0, 128, 224, 32, QVQIAN_FONT, 1)
self.contents.draw_text(0, 160, 224, 32, TUICHU_FONT, 1)
self.contents.draw_text(120, 0, 104, 32, $game_party.gold.to_s, 1)
self.contents.draw_text(120, 32, 104, 32, $game_variables[JIXU_VARIABLE].to_i.to_s, 1)
self.contents.draw_text(120, 64, 104, 32, $game_variables[LIXI_VARIABLE].to_s, 1)
end
def update_cursor_rect
if @index < 0
self.cursor_rect.empty
else
self.cursor_rect.set(0, @index*32+96, 224, 32)
end
end
end
class Scene_Bank
def initialize(index = 0, bank_window_index = 0)
@bank_index = index
@bank_window_index = bank_window_index
@s1 = 0
@s2 = 0
@s3 = 0
@s4 = 0
@s5 = 0
@s6 = 0
@s7 = 0
@s8 = 0
@s9 = 0
end
def main
@shuru_window = Window_ShuRu.new
@bank_window = Window_Bank.new
@bank_window.index = @bank_window_index
@msg_window = Window_Bank_Message.new
@msg_window.visible = false
@spriteset = Spriteset_Map.new
Graphics.transition
loop do
Graphics.update
Input.update
update
break if $scene != self
end
Graphics.freeze
@shuru_window.dispose
@bank_window.dispose
@msg_window.dispose
@spriteset.dispose
end
def update
@bank_window.update
@shuru_window.update
@msg_window.update
if @msg_window.visible
if Input.trigger?(Input::C)
@msg_window.visible = false
@shuru_window.active = true
return
end
end
if @shuru_window.active
update_shuru
end
if @bank_window.active
if Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
$scene = Scene_Map.new
return
end
if Input.trigger?(Input::C)
case @bank_window.index
when 0
$game_system.se_play($data_system.decision_se)
@bank_window.active = false
@shuru_window.active = true
@shuru_window.visible = true
return
when 1
$game_system.se_play($data_system.decision_se)
@bank_window.active = false
@shuru_window.active = true
@shuru_window.visible = true
return
when 2
$game_system.se_play($data_system.decision_se)
$scene = Scene_Map.new
return
end
end
end
end
def update_shuru
if Input.trigger?(Input::B)
case @bank_window.index
when 0
$game_system.se_play($data_system.cancel_se)
@bank_index += 1
@bank_index %= 2
@bank_window_index = 0
$scene = Scene_Bank.new(@bank_index, @bank_window_index)
when 1
$game_system.se_play($data_system.cancel_se)
@bank_index += 1
@bank_index %= 2
@bank_window_index = 1
$scene = Scene_Bank.new(@bank_index, @bank_window_index)
end
return
end
if Input.trigger?(Input::UP)
$game_system.se_play($data_system.cursor_se)
case @shuru_window.index
when 0
@s1 += 1
@s1 = 0 if @s1 > 9
@shuru_window.refresh(@s1,@s2,@s3,@s4,@s5,@s6,@s7,@s8)
when 1
@s2 += 1
@s2 = 0 if @s2 > 9
@shuru_window.refresh(@s1,@s2,@s3,@s4,@s5,@s6,@s7,@s8)
when 2
@s3 += 1
@s3 = 0 if @s3 > 9
@shuru_window.refresh(@s1,@s2,@s3,@s4,@s5,@s6,@s7,@s8)
when 3
@s4 += 1
@s4 = 0 if @s4 > 9
@shuru_window.refresh(@s1,@s2,@s3,@s4,@s5,@s6,@s7,@s8)
when 4
@s5 += 1
@s5 = 0 if @s5 > 9
@shuru_window.refresh(@s1,@s2,@s3,@s4,@s5,@s6,@s7,@s8)
when 5
@s6 += 1
@s6 = 0 if @s6 > 9
@shuru_window.refresh(@s1,@s2,@s3,@s4,@s5,@s6,@s7,@s8)
when 6
@s7 += 1
@s7 = 0 if @s7 > 9
@shuru_window.refresh(@s1,@s2,@s3,@s4,@s5,@s6,@s7,@s8)
when 7
@s8 += 1
@s8 = 0 if @s8 > 9
@shuru_window.refresh(@s1,@s2,@s3,@s4,@s5,@s6,@s7,@s8)
end
end
if Input.trigger?(Input::DOWN)
$game_system.se_play($data_system.cursor_se)
case @shuru_window.index
when 0
@s1 -= 1
@s1 = 9 if @s1 < 0
@shuru_window.refresh(@s1,@s2,@s3,@s4,@s5,@s6,@s7,@s8)
when 1
@s2 -= 1
@s2 = 9 if @s2 < 0
@shuru_window.refresh(@s1,@s2,@s3,@s4,@s5,@s6,@s7,@s8)
when 2
@s3 -= 1
@s3 = 9 if @s3 < 0
@shuru_window.refresh(@s1,@s2,@s3,@s4,@s5,@s6,@s7,@s8)
when 3
@s4 -= 1
@s4 = 9 if @s4 < 0
@shuru_window.refresh(@s1,@s2,@s3,@s4,@s5,@s6,@s7,@s8)
when 4
@s5 -= 1
@s5 = 9 if @s5 < 0
@shuru_window.refresh(@s1,@s2,@s3,@s4,@s5,@s6,@s7,@s8)
when 5
@s6 -= 1
@s6 = 9 if @s6 < 0
@shuru_window.refresh(@s1,@s2,@s3,@s4,@s5,@s6,@s7,@s8)
when 6
@s7 -= 1
@s7 = 9 if @s7 < 0
@shuru_window.refresh(@s1,@s2,@s3,@s4,@s5,@s6,@s7,@s8)
when 7
@s8 -= 1
@s8 = 9 if @s8 < 0
@shuru_window.refresh(@s1,@s2,@s3,@s4,@s5,@s6,@s7,@s8)
end
end
if Input.trigger?(Input::C)
# @s9就是输入数值的最后结果
@s9=@s1*10000000+@s2*1000000+@s3*100000+@s4*10000+@s5*1000+@s6*100+@s7*10+@s8
case @bank_window.index
when 0 # 存入
# 数额大于身上的钱时
if @s9 > $game_party.gold
$game_system.se_play($data_system.buzzer_se)
@shuru_window.active = false
@msg_window.refresh(2)
@msg_window.visible = true
return
# 数额低于存钱限制时
elsif @s9 < $game_variables[BASE_MONEY]
$game_system.se_play($data_system.buzzer_se)
@shuru_window.active = false
@msg_window.refresh(0)
@msg_window.visible = true
return
else
$game_system.se_play($data_system.equip_se)
# 扣去身上相应的钱
$game_party.lose_gold(@s9)
# 增加积蓄
$game_variables[JIXU_VARIABLE] += @s9
# 替换本钱
$game_system.bank = $game_variables[JIXU_VARIABLE]
@bank_index += 1
@bank_index %= 2
@bank_window_index = 0
$scene = Scene_Bank.new(@bank_index, @bank_window_index)
end
when 1 # 取钱
# 当输入数值大于积蓄时
if @s9 > $game_variables[JIXU_VARIABLE]
$game_system.se_play($data_system.buzzer_se)
@shuru_window.active = false
@msg_window.refresh(3)
@msg_window.visible = true
return
# 低于取钱限制时
elsif @s9 < $game_variables[BASE_MONEY_2]
$game_system.se_play($data_system.buzzer_se)
@shuru_window.active = false
@msg_window.refresh(1)
@msg_window.visible = true
return
else
$game_system.se_play($data_system.equip_se)
# 增加金钱
$game_party.gain_gold(@s9)
# 积蓄减少
$game_variables[JIXU_VARIABLE] -= @s9
# 如果积蓄为0.+ 的浮点数就把他代入为0整数
if $game_variables[JIXU_VARIABLE] < 1
$game_variables[JIXU_VARIABLE] = 0
end
# 本钱代入积蓄
$game_system.bank = $game_variables[JIXU_VARIABLE].to_i
@bank_index += 1
@bank_index %= 2
@bank_window_index = 1
$scene = Scene_Bank.new(@bank_index, @bank_window_index)
end
end
return
end
end
end

复制代码

口冖风清扬冖口 · 发表于 2019-12-26 23:05:28

H·H·Y 发表于 2015-8-8 14:09
简单的方法：存钱时用公共事件和变量开始计时，每20帧变量+1，取钱时用这个变量×利息×金钱总额，然后就相 ...

可不可以弄成操作的形式，我只会模仿，说的不会做

帐号		自动登录	找回密码
密码			注册会员

[已经过期] 怎么做有利息银行

加入我们，或者，欢迎回来。

评分

青铜编剧

史诗剧作家

剧作品鉴家