查看: 2702|回复: 6

[已经解决] 第二货币对装备无效

[复制链接]
梦石
0
星屑
50
在线时间
10 小时
注册时间
2011-6-18
回帖
5
发表于 2014-8-29 11:01:22 | 显示全部楼层 |阅读模式

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

您需要 登录 才可以下载或查看,没有账号?注册会员

×
脚本如下
  1. #第二货币设置
  2. $SECOND_CURRENCY_SWITCH = 100
  3. $SECOND_CURRENCY_NAME = "**"
  4. #第二货币方法
  5. class Game_Party < Game_Unit
  6.   attr_reader    :spegold
  7.   alias initialize_normal_sc initialize
  8.   def initialize
  9.     initialize_normal_sc
  10.     @spegold = 0
  11.   end
  12.   alias gain_gold_normal_sc gain_gold
  13.   def gain_gold(amount)
  14.     if $game_switches[$SECOND_CURRENCY_SWITCH]
  15.       @spegold = [[@spegold + amount, 0].max, max_gold].min
  16.     else
  17.       gain_gold_normal_sc(amount)
  18.     end
  19.   end
  20. end
  21. #第二货币的显示
  22. class Window_Gold < Window_Base
  23.   #覆盖方法!可能引起冲突
  24.   def initialize
  25.     super(0, 0, window_width, fitting_height(2))
  26.     self.opacity = 100
  27.     refresh
  28.   end
  29.   alias refresh_normal_sc refresh
  30.   def refresh
  31.     refresh_normal_sc
  32.     draw_currency_value($game_party.spegold, $SECOND_CURRENCY_NAME, 4, 24, contents.width - 8)
  33.   end
  34. end
  35. #战斗胜利不获得第二货币
  36. module BattleManager
  37.   #覆盖方法!可能引起冲突
  38.   def self.gain_gold
  39.     if $game_troop.gold_total > 0
  40.       text = sprintf(Vocab::ObtainGold, $game_troop.gold_total)
  41.       $game_message.add('\.' + text)
  42.       $game_party.gain_gold_normal_sc($game_troop.gold_total)
  43.     end
  44.     wait_for_message
  45.   end
  46. end
  47. #用第二货币买东西
  48. module RPG
  49.   class Item
  50.     def price
  51.       if $game_switches[$SECOND_CURRENCY_SWITCH]
  52.         note.split(/[\r\n]+/).each { |line|
  53.           case line
  54.           when /<第二货币价格:(\d+)>/i
  55.             return $1.to_i
  56.           end
  57.         }
  58.         return 0
  59.       else
  60.         return @price
  61.       end
  62.     end
  63.   end
  64. end
  65. #商店中购买灵魄物品显示灵魄
  66. class Window_ShopNumber < Window_Selectable
  67.   alias draw_total_price_normal_sc draw_total_price
  68.   def draw_total_price
  69.     if $game_switches[$SECOND_CURRENCY_SWITCH]
  70.       @currency_unit = $SECOND_CURRENCY_NAME
  71.     end
  72.     draw_total_price_normal_sc
  73.   end
  74. end
  75. class Scene_Shop < Scene_MenuBase
  76.   alias money_normal_sc money
  77.   def money
  78.     if $game_switches[$SECOND_CURRENCY_SWITCH]
  79.       return $game_party.spegold
  80.     else
  81.       return money_normal_sc
  82.     end
  83.   end
  84.   alias create_gold_window_normal_sc create_gold_window
  85.   def create_gold_window
  86.     create_gold_window_normal_sc
  87.     @gold_window.y -= 10
  88.   end
  89. end
复制代码
用同样的方法在商店可以看见物品的价格,但是装备的价格却是0
梦石
0
星屑
1403
在线时间
989 小时
注册时间
2011-5-11
回帖
418
发表于 2014-8-29 11:51:36 | 显示全部楼层
本帖最后由 345912390 于 2014-8-30 17:06 编辑

你需要对物品设置第二货币价格,在物品 的备注中输入
  1. <第二货币价格:100>#100为设置的价格
复制代码
不想在RPG::BaseItem中加入price属性就多改了一点,用以下 脚本替换你发的那个

[pre lang="ruby" line="1"]#第二货币设置
$SECOND_CURRENCY_SWITCH = 100
$SECOND_CURRENCY_NAME = "**"
#第二货币方法
class Game_Party < Game_Unit
  attr_reader    :spegold
  alias initialize_normal_sc initialize
  def initialize
    initialize_normal_sc
    @spegold = 0
  end
  alias gain_gold_normal_sc gain_gold
  def gain_gold(amount)
    if $game_switches[$SECOND_CURRENCY_SWITCH]
      @spegold = [[@spegold + amount, 0].max, max_gold].min
    else
      gain_gold_normal_sc(amount)
    end
  end
end
#第二货币的显示
class Window_Gold < Window_Base
  #覆盖方法!可能引起冲突
  def initialize
    super(0, 0, window_width, fitting_height(2))
    self.opacity = 100
    refresh
  end
  alias refresh_normal_sc refresh
  def refresh
    refresh_normal_sc
    draw_currency_value($game_party.spegold, $SECOND_CURRENCY_NAME, 4, 24, contents.width - 8)
  end
end
#战斗胜利不获得第二货币
module BattleManager
  #覆盖方法!可能引起冲突
  def self.gain_gold
    if $game_troop.gold_total > 0
      text = sprintf(Vocab::ObtainGold, $game_troop.gold_total)
      $game_message.add('\.' + text)
      $game_party.gain_gold_normal_sc($game_troop.gold_total)
    end
    wait_for_message
  end
end
#用第二货币买东西
module RPG
  class Item
    def price
      if $game_switches[$SECOND_CURRENCY_SWITCH]
        note.split(/[\r\n]+/).each { |line|
          case line
          when /<第二货币价格:(\d+)>/i
            return $1.to_i
          end
        }
        return 0
      else
        return @price
      end
    end
  end
  class EquipItem
    def price
      if $game_switches[$SECOND_CURRENCY_SWITCH]
        note.split(/[\r\n]+/).each { |line|
          case line
          when /<第二货币价格:(\d+)>/i
            return $1.to_i
          end
        }
        return 0
      else
        return @price
      end
    end
  end
end
#商店中购买灵魄物品显示灵魄
class Window_ShopNumber < Window_Selectable
  alias draw_total_price_normal_sc draw_total_price
  def draw_total_price
    if $game_switches[$SECOND_CURRENCY_SWITCH]
      @currency_unit = $SECOND_CURRENCY_NAME
    end
    draw_total_price_normal_sc
  end
end
class Scene_Shop < Scene_MenuBase
  alias money_normal_sc money
  def money
    if $game_switches[$SECOND_CURRENCY_SWITCH]
      return $game_party.spegold
    else
      return money_normal_sc
    end
  end
  alias create_gold_window_normal_sc create_gold_window
  def create_gold_window
    create_gold_window_normal_sc
    @gold_window.y -= 10
  end
end[/pre]
http://rpg.blue/static/image/smiley/yct/A059.gif中国字认识都不到一半,哪的心情学英语呀!
回复

使用道具 举报

梦石
0
星屑
50
在线时间
10 小时
注册时间
2011-6-18
回帖
5
 楼主| 发表于 2014-8-29 13:08:45 | 显示全部楼层
345912390 发表于 2014-8-29 11:51
你需要对物品设置第二货币价格,在物品 的备注中输入

这样对物品有用,对装备没用啊...加了这个装备的价格还是0
回复

使用道具 举报

…あたしは天

梦石
0
星屑
2308
在线时间
4033 小时
注册时间
2010-10-4
回帖
10548

开拓者贵宾

发表于 2014-8-29 13:29:37 | 显示全部楼层
woshizhu99999 发表于 2014-8-29 13:08
这样对物品有用,对装备没用啊...加了这个装备的价格还是0


第49行,Item 改成 BaseItem 试试看。不过我不保证有用

评分

参与人数 1星屑 +1 收起 理由
VIPArcher + 1 黑的漂亮。

查看全部评分

回复

使用道具 举报

梦石
0
星屑
50
在线时间
10 小时
注册时间
2011-6-18
回帖
5
 楼主| 发表于 2014-8-30 07:33:47 | 显示全部楼层
taroxd 发表于 2014-8-29 13:29
第49行,Item 改成 BaseItem 试试看。不过我不保证有用

额...改了之后全部价格都变成0了
回复

使用道具 举报

无限の剣制

梦石
0
星屑
10450
在线时间
5019 小时
注册时间
2013-2-28
回帖
4942

开拓者贵宾

发表于 2014-9-1 14:30:12 | 显示全部楼层
本帖最后由 VIPArcher 于 2014-9-1 14:36 编辑
woshizhu99999 发表于 2014-8-30 07:33
额...改了之后全部价格都变成0了


试试看用这个?
  1. =begin
  2. ===============================================================================
  3.   变量商店 By喵呜喵5
  4. ===============================================================================
  5. 【说明】
  6.   
  7.   可以使用变量在商店进行购物
  8.   
  9.   首先先在事件中使用脚本命令输入:shop_set(变量的ID,"变量的单位"),例如:  
  10.   shop_set(1,"节操")
  11.   
  12.   接着使用事件中的商店处理时,购买物品不会消耗金钱而是消耗对应的变量
  13.   
  14.   使用命令shop_set可以恢复原来使用金钱购物的商店
  15.   
  16. =end
  17. $m5script = {} if $m5script.nil?
  18. $m5script["M5VARShop"] = true
  19. module M5VARShop
  20. #==============================================================================
  21. #  设定部分
  22. #==============================================================================

  23.   PRICE = false   #true
  24.   
  25.   #设置为true的情况下,变量商店物品的出售价格为【数据库中】物品售价的一半
  26.   #设置为false的情况下, 变量商店物品的出售价格为【该商店】物品售价的一半
  27.   
  28.   VAR = 1
  29.   
  30.   #这里设置一个没有使用到的变量的ID,游戏中请不要修改这个ID的变量数值

  31. #==============================================================================
  32. #  设定结束
  33. #==============================================================================
  34. end
  35. class Game_Interpreter
  36.   def shop_set(gold=0,unit="")
  37.     gold = 0 if gold == M5VARShop::VAR
  38.     $game_variables[M5VARShop::VAR]=[gold,unit]
  39.   end
  40. end
  41. class Window_Gold_New < Window_Gold
  42.   def initialize(gold,unit)
  43.     @gold,@unit = gold,unit
  44.     super()
  45.   end
  46.   def value
  47.     @gold == 0 ? super : $game_variables[@gold]   
  48.   end
  49.   def currency_unit
  50.     (@gold == 0 || @unit == "") ? super : @unit
  51.   end
  52. end
  53. class Scene_Shop
  54.   def create_gold_window
  55.     $game_variables[M5VARShop::VAR] = [0,""] if \
  56.     !$game_variables[M5VARShop::VAR].is_a?(Array)
  57.     @gold_window = Window_Gold_New.new($game_variables[M5VARShop::VAR][0],$game_variables[M5VARShop::VAR][1])
  58.     @gold_window.viewport = @viewport
  59.     @gold_window.x = Graphics.width - @gold_window.width
  60.     @gold_window.y = @help_window.height
  61.   end
  62.   alias m5_20140318_do_buy  do_buy  
  63.   def do_buy(number)
  64.     if $game_variables[M5VARShop::VAR][0] == 0
  65.       m5_20140318_do_buy(number)
  66.     else
  67.       $game_variables[$game_variables[M5VARShop::VAR][0]] -= number * buying_price
  68.       $game_party.gain_item(@item, number)
  69.     end   
  70.   end
  71.   alias m5_20140318_do_sell do_sell
  72.   def do_sell(number)
  73.     if $game_variables[M5VARShop::VAR][0] == 0
  74.       m5_20140318_do_sell(number)
  75.     else
  76.       $game_variables[$game_variables[M5VARShop::VAR][0]] += number * selling_price
  77.       $game_party.lose_item(@item, number)
  78.     end
  79.   end
  80.   alias m5_20140318_selling_price selling_price
  81.   def selling_price
  82.     return m5_20140318_selling_price if M5VARShop::PRICE || $game_variables[M5VARShop::VAR][0] == 0
  83.     buying_price / 2
  84.   end
  85. end
复制代码

评分

参与人数 1星屑 +200 收起 理由
taroxd + 200 $m5script = 0

查看全部评分

回复

使用道具 举报

梦石
0
星屑
50
在线时间
10 小时
注册时间
2011-6-18
回帖
5
 楼主| 发表于 2014-9-6 18:09:38 | 显示全部楼层
VIPArcher 发表于 2014-9-1 14:30
试试看用这个?

总感觉这个没有我现在用的好用,不过也行,感谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

Powered by Discuz! X5.0 © 2001-2026 Discuz! Team.

在本版发帖返回顶部