自定义多货币脚本（4/5 更新）

雪流星 · 发表于 2008-3-12 19:30:12

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

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

x

自定义多货币脚本

翻译脚本翻的很累，休息的时候写的

自定义多种货币，可以互相兑换（兑换後自动取整）
在商店介面可以选择用哪一种货币购买

顺便增强了金钱窗口

应求增加让物品只能用特定货币购买的功能

使用脚本：
gain_currency(类型, 数量)增加金钱
lose_currency(类型, 数量)减少金钱
convert(类型, 变量ID)将该变量内的数值转换为该类型并返回
currency_type(类型, 变量ID)将该类型货币金额代入该变量

在物品（武器、防具亦可，技能尚未测试）的备注栏打上
<currency 类型>
则该物品只能使用该类型货币购买

在物品（武器、防具亦可，技能尚未测试）的备注栏打上
<n_currency 类型>
则该物品只能使用该类型以外的货币购买

两个同时定义时，会互相抵销
（例如：同一个物品同时定义了<currency 1> 和<n_currency 1>
也就是同时「只能使用1号货币」和「只能除用除1号以外的货币」
那麽就变成了全部都能使用）

类型为数字代号，就是在脚本中所设定好的顺序
0为默认金钱（直接用事件命令就行了）

☆只能用特定货币购买的商店设定方法
在召唤商店画面的NPC事件指令内容使用：

脚本：$special_currency = n # <== n 为货币类型
商店处理：商品列表
脚本：call_new_shop

设定後，该商店的「货币选择」选项无效

3/13更新部分：
1. 设置可以选择是否在菜单中显示新的金钱窗口
2. 更新在选择必须用特定货币购买时，在右侧窗口显示
3. 加强文字设定部分，方便脚本新手修改
4. 具体设置请看脚本中注释

3/14更新部分：
1. 可以设置多重购买货币
2. 新增「无法使用的货币」选项
3. 新增「无法显示的货币」选项

之所以加上那两个看似蛇足的功能，是为了能够让大家完成更加华丽的效果
例如无法使用的货币可以用来做「存款」的效果
无法显示的货币也可以用来做一些隐藏式的货币

4/5更新部分：
1. 修改了物品可使用货币判断BUG
2. 更新功能：只能用特定货币购买的商店画面
3. 修改货币标签辨识符，用[ ] 代替 < >。

module Currency
#==============================================================================
# 　设定部分
#==============================================================================
# 货币名称 -- 在金钱窗口里使用
@name = ["金", "银", "币", "款", "汇"]
# 货币名称 -- 在商店里选择时使用
@iname =["金币", "银币", "铜币", "存款", "汇票"]
# 货币汇率 -- 计算价钱用
@rate = [ 1, 0.5, 0.25, 1, 1]
# 无法使用的货币
@cannot_use = [3, 4]
# 不在金钱窗口显示的货币
@do_not_show = [4]
# 货币文字 -- 商店画面选项理所显示的文字
def self.word
return "选择货币"
end
# 只能用特定货币购买时显示的文字
# %s代表该货币
One_Currency = "只能用%s来购买！"
# 金钱窗口设置：是否在菜单显示新的金钱窗口
SHOW_NEW_CURRENCY = true
#==============================================================================
# 　设定部分结束
#==============================================================================
#==============================================================================
# 　使用方法
#==============================================================================
=begin
在事件中使用脚本：
gain_currency(类型, 数量)增加该类型货币
lose_currency(类型, 数量)减少该类型货币
convert(类型, 变量ID) 将该变量内的数值转换为该类型并返回
currency_type(类型, 变量ID) 将该类型货币金额代入该变量
在物品（武器、防具亦可，技能尚未测试）的备注栏打上
[currency 类型]
则该物品只能使用该类型货币购买
在物品（武器、防具亦可，技能尚未测试）的备注栏打上
[n_currency 类型]
则该物品只能使用该类型以外的货币购买
两个同时定义时，会互相抵销
（例如：同一个物品同时定义了[currency 1] 和[n_currency 1]
也就是同时「只能使用1号货币」和「只能除用除1号以外的货币」
那麽就变成了全部都能使用）
类型为数字代号，就是在脚本中所设定好的顺序（从0开始算）
0为默认金钱（直接用事件命令就行了）
☆只能用特定货币购买的商店设定方法
在召唤商店画面的NPC事件指令内容使用：
脚本：$special_currency = n # <== n 为货币类型
商店处理：商品列表
脚本：call_new_shop
设定後，该商店的「货币选择」选项无效
=end
#==============================================================================
# 　使用方法结束
#==============================================================================
attr_accessor :name
attr_accessor :rate
def self.get_g_rate(i)
if $game_party.gold != 0
p = @rate[i] * $game_party.gold
return p.to_i == 0? 1 : p.to_i
else
return 0
end
end
def self.get_n_rate(i, number)
if number != 0
p = @rate[i] * number
return p.to_i == 0? 1 : p.to_i
else
return 0
end
end
def self.number
return @name.size
end
def self.name(i)
return @name[i]
end
def self.id(i)
return @iname[i]
end
def self.show?(id)
return !(@do_not_show.include?(id))
end
def self.can_use?(id, item=nil)
return false if @cannot_use.include?(id)
unless item == nil
if item.get_currency_use != nil
return true if item.get_currency_use.include?(id)
elsif item.get_currency_not_use != nil
return false if item.get_currency_not_use.include?(id)
else return true
end
else return true
end
end
end
class Game_Party < Game_Unit
attr_accessor :curr
alias c_ini initialize
def initialize
c_ini
@curr = []
for i in 0...Currency.number
if @curr[i] == nil
@curr[i] = 0
end
end
@curr[0] = @gold
end
# 获得和失去金钱
def gain_curr(type, amount)
@curr[type] = [[@curr[type] + amount, 0].max, 9999999].min
@gold = @curr[0]
end
def lose_curr(type, amount)
gain_curr(type, -amount)
end
def gain_gold(n)
gain_curr(0, n)
end
def curr(n)
return @curr[n] == nil ? 0 : @curr[n]
end
end
class Game_Interpreter
# 获取货币
def gain_currency(type, amount)
$game_party.gain_curr(type, amount)
end
# 失去货币
def lose_currency(type, amount)
$game_party.lose_curr(type, amount)
end
# 货币兑换
def convert(type, vid)
return Currency.get_n_rate(type, $game_variables[vid])
end
# 获取货币持有量
def currency_type(type, vid)
$game_variables[vid] = $game_party.curr(type)
end
# 召唤商店画面
alias old_command_302 command_302
def command_302
if $special_shop != -1
$game_temp.shop_goods = [@params]
$game_temp.shop_purchase_only = @params[2]
loop do
@index += 1
if @list[@index].code == 605
$game_temp.shop_goods.push(@list[@index].parameters)
else
return false
end
end
else
old_command_302
end
end
def call_new_shop
$scene = Scene_Shop.new($special_shop)
$special_shop = -1
end
end
class Scene_Menu < Scene_Base
alias c_menu_start start
def start
c_menu_start
if Currency::SHOW_NEW_CURRENCY
@gold_window.dispose
@gold_window = Window_SGold.new(0, 0)
@gold_window.y = 416-@gold_window.height
end
end
end
class RPG::BaseItem
def get_currency_use
e = []
self.note.split(/[\r\n]+/).each { |line|
if line =~ /\[currency \d+\]/
a = line.split(/ /)[1]
d = ""
while ((c = a.slice!(/./m)) != nil)
d += c if c != ">"
end
e.push(d.to_i)
end
}
return e==[] ? nil : e
end
def get_currency_not_use
e = []
self.note.split(/[\r\n]+/).each { |line|
if line =~ /\[ncurrency \d+\]/
a = line.split(/ /)[1]
d = ""
while ((c = a.slice!(/./m)) != nil)
d += c if c != ">"
end
e.push(d.to_i)
end
}
return e==[] ? nil : e
end
end
#==============================================================================
# ■ Window_SGold
#------------------------------------------------------------------------------
# 　新的显示金钱窗口，可以显示多重货币。
#==============================================================================
class Window_SGold < Window_Base
def initialize(x, y, c=-1)
a = 1
@money = []
for i in 0...Currency::number
@money.push(i) if Currency.show?(i)
end
a = @money.size if c == -1
super(x, y, 160, a * WLH + 32)
@currency = c
refresh
end
def refresh
self.contents.clear
if @currency == -1
for i in @money
draw_scurrency_value(i, 4, i*WLH, 120)
end
else
draw_scurrency_value(@currency, 4, 0, 120)
end
end
def draw_scurrency_value(i, x, y, width)
cx = contents.text_size(Vocab::gold).width
self.contents.font.color = normal_color
self.contents.draw_text(x, y, width-cx-2, WLH, $game_party.curr(i), 2)
self.contents.font.color = system_color
self.contents.draw_text(x, y, width, WLH, Currency.name(i), 2)
end
end
#==============================================================================
# ■ Window_ShopBuy
#------------------------------------------------------------------------------
# 　商店画面、浏览显示可以购买的商品的窗口。
#==============================================================================
class Window_ShopBuy < Window_Selectable
#--------------------------------------------------------------------------
# ● 初始化对像
# x : 窗口 X 座标
# y : 窗口 Y 座标
# c : 货币类型
#--------------------------------------------------------------------------
def initialize(x, y, c=0)
super(x, y, 304, 304)
@shop_goods = $game_temp.shop_goods
@currency = c
refresh
self.index = 0
end
#--------------------------------------------------------------------------
# ● 绘制商品
# index : 商品索引
#--------------------------------------------------------------------------
def draw_item(index)
item = @data[index]
number = $game_party.item_number(item)
price = Currency.get_n_rate(@currency, item.price)
gold = Currency.get_g_rate(@currency)
enabled = Currency.can_use?(@currency, item)
enabled = ( price <= gold and number < 99) if enabled
rect = item_rect(index)
self.contents.clear_rect(rect)
draw_item_name(item, rect.x, rect.y, enabled)
rect.width -= 4
self.contents.draw_text(rect,price, 2)
end
end
class Window_ShopStatus < Window_Base
alias curr_refresh refresh
def refresh
curr_refresh
currency = []
money = ""
if @item != nil
for i in 0...Currency::number
currency.push(i) if Currency.can_use?(i, @item)
end
for i in currency
money += "、" if i>0 and i<=currency.size
money += Currency.name(i)
end
string = sprintf(Currency::One_Currency, money)
self.contents.draw_text(4, 24, 200, WLH, string,1)
end
end
end
#==============================================================================
# ■ Scene_Shop
#------------------------------------------------------------------------------
# 　处理商店画面的类。
#==============================================================================
class Scene_Shop < Scene_Base
def initialize(c=nil)
if c==nil
@special_currency = false
@currency = 0
else
@special_currency = true
@currency = c
end
end
#--------------------------------------------------------------------------
# ● 开始处理
#--------------------------------------------------------------------------
alias c_start start
def start
c_start
@command = []
for i in 0...Currency::number
if Currency.can_use?(i)
@command.push(Currency::id(i))
end
end
@currency_window = Window_Command.new(160, @command, 1, 3)
@currency_window.x = 384
@currency_window.y = 56
@currency_window.active = false
@currency_window.visible = false
@gold_window = Window_SGold.new(384, 56, @currency)
end
#--------------------------------------------------------------------------
# ● 结束处理
#--------------------------------------------------------------------------
alias c_term terminate
def terminate
c_term
@currency_window.dispose
end
#--------------------------------------------------------------------------
# ● 更新画面
#--------------------------------------------------------------------------
def update
super
update_menu_background
@help_window.update
@command_window.update
@gold_window.update
@dummy_window.update
@buy_window.update
@sell_window.update
@number_window.update
@status_window.update
@currency_window.update
if @command_window.active
update_command_selection
elsif @buy_window.active
update_buy_selection
elsif @sell_window.active
update_sell_selection
elsif @number_window.active
update_number_input
elsif @currency_window.active
update_currency_selection
end
end
#--------------------------------------------------------------------------
# ● 生成命令窗口
#--------------------------------------------------------------------------
def create_command_window
s1 = Vocab::ShopBuy
s2 = Vocab::ShopSell
s3 = Vocab::ShopCancel
s4 = Currency.word
@command_window = Window_Command.new(384, [s1, s2, s4, s3], 4)
@command_window.y = 56
@command_window.draw_item(2, false) if @special_currency
if $game_temp.shop_purchase_only
@command_window.draw_item(1, false)
end
end
#--------------------------------------------------------------------------
# ● 更新命令窗口
#--------------------------------------------------------------------------
def update_command_selection
if Input.trigger?(Input::B)
Sound.play_cancel
$scene = Scene_Map.new
elsif Input.trigger?(Input::C)
case @command_window.index
when 0 # 买入
Sound.play_decision
@command_window.active = false
@dummy_window.visible = false
@buy_window.active = true
@buy_window.visible = true
@buy_window.refresh
@status_window.visible = true
when 1 # 卖出
if $game_temp.shop_purchase_only
Sound.play_buzzer
else
Sound.play_decision
@command_window.active = false
@dummy_window.visible = false
@sell_window.active = true
@sell_window.visible = true
@sell_window.refresh
end
when 3 # 离开
Sound.play_decision
$scene = Scene_Map.new
when 2 # 货币
unless @special_currency
Sound.play_decision
@currency_window.active = true
@currency_window.visible = true
@command_window.active = false
@gold_window.visible = false
else
Sound.play_buzzer
end
end
end
end
#--------------------------------------------------------------------------
# ● 更新货币选择窗口
#--------------------------------------------------------------------------
def update_currency_selection
if Input.trigger?(Input::B)
Sound.play_cancel
@currency_window.active = false
@currency_window.visible = false
@command_window.active = true
@gold_window.visible = true
elsif Input.trigger?(Input::C)
Sound.play_decision
@currency_window.active = false
@currency_window.visible = false
@command_window.active = true
@currency = @currency_window.index
@buy_window.dispose
@buy_window = Window_ShopBuy.new(0, 112, @currency)
@buy_window.active = false
@buy_window.visible = false
@gold_window.dispose
@gold_window = Window_SGold.new(384, 56, @currency)
end
end
#--------------------------------------------------------------------------
# ● 更新买入选择
#--------------------------------------------------------------------------
def update_buy_selection
@status_window.item = @buy_window.item
if Input.trigger?(Input::B)
Sound.play_cancel
@command_window.active = true
@dummy_window.visible = true
@buy_window.active = false
@buy_window.visible = false
@status_window.visible = false
@status_window.item = nil
@help_window.set_text("")
return
end
if Input.trigger?(Input::C)
@item = @buy_window.item
number = $game_party.item_number(@item)
price = Currency.get_n_rate(@currency, @item.price)
gold = Currency.get_g_rate(@currency)
enabled = Currency.can_use?(@currency, @item)
enabled = ( price <= gold and number < 99) if enabled
unless enabled
Sound.play_buzzer
else
Sound.play_decision
max = price == 0 ? 99 : gold / @item.price
max = [max, 99 - number].min
@buy_window.active = false
@buy_window.visible = false
@number_window.set(@item, max, @item.price)
@number_window.active = true
@number_window.visible = true
end
end
end
#--------------------------------------------------------------------------
# ● 确认数值输入
#--------------------------------------------------------------------------
def decide_number_input
Sound.play_shop
@number_window.active = false
@number_window.visible = false
case @command_window.index
when 0 # 买入
gold = @number_window.number * @item.price
$game_party.lose_curr(@currency_window.index, gold)
$game_party.gain_item(@item, @number_window.number)
@gold_window.refresh
@buy_window.refresh
@status_window.refresh
@buy_window.active = true
@buy_window.visible = true
when 1 # 卖出
gold = @number_window.number * (@item.price / 2)
$game_party.gain_curr(@currency_window.index, gold)
$game_party.lose_item(@item, @number_window.number)
@gold_window.refresh
@sell_window.refresh
@status_window.refresh
@sell_window.active = true
@sell_window.visible = true
@status_window.visible = false
end
end
end

复制代码

截图：

如下设置事件後：

商店效果：

　　　　　　　　　　　　　　[本贴由风雪优游于 2008-3-20 20:01:39 进行了编辑]

孤单de狗狗 · 发表于 2008-3-12 20:33:56

提示: 作者被禁止或删除内容自动屏蔽

雪流星 · 发表于 2008-3-12 20:41:56

有空再做吧

火鸡三毛老大 · 发表于 2008-3-13 01:54:23

留着用....

越前リョーマ · 发表于 2008-3-13 02:54:16

选择的话……

其实我觉得不同的物品要特定的钱种更好……

雪流星 · 发表于 2008-3-13 05:27:53

以下引用越前リョーマ于2008-3-12 18:54:16的发言：

选择的话……

其实我觉得不同的物品要特定的钱种更好……

我已经做了

风雪优游 · 发表于 2008-3-13 19:34:18

很喜欢,确认无错就可以发布了....已经更新完毕了吗?

雪流星 · 发表于 2008-3-14 07:48:00

已经更新完毕，风版请发布吧

风雪优游 · 发表于 2008-3-21 04:00:36

发布完毕,VIP+4

韩飞 · 发表于 2008-3-27 04:04:55

提示: 作者被禁止或删除内容自动屏蔽

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

[RMVX发布] 自定义多货币脚本（4/5 更新）

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

贵宾

开拓者

第3届短篇游戏大赛主流游戏组亚军

第5届短篇游戏比赛亚军