等值交换系统

布冷.逆天

使用方法忘写进去了，现在写


[pre lang="ruby"]=begin
作者：布冷.逆天
医院系统：一分钱一分货给多少钱就加多少血！
使用方法：事件—脚本—输入
加血=Hospital_System.new
加血.用钱加血
=end
class Hospital_System
  def 用钱加血
    add_hp = 1000  # 预设最大加血量
    add_hp = [add_hp, $game_party.actors[0].maxhp -  $game_party.actors[0].hp].min
    if $game_party.gold < add_hp or $game_party.actors[0].maxhp == $game_party.actors[0].hp
      tip = $game_party.gold < add_hp ? "金钱不够！" : "你已经满血了"
      p tip
      return
    end
    $game_party.actors[0].hp += add_hp
    $game_party.lose_gold -= add_hp
   end
end[/pre]
本系统还有很大的提升空间，正在写中，估计等下就写好一个了！

taroxd

请问……这个和公共事件有啥区别？

布冷.逆天

我只是开头，还有这适合新手！
[pre lang="ruby"]=begin
作者：一位不想透露名字的人和布冷.逆天
等值系统：脑洞大开的作品，第一个为前面的一位不想透露名字的人与我一起，他占90%.
别名：万能的钱
版本v0.2
=end
class Equivalent_system
  #医院系统：一分钱一分货给多少钱就加多少血！
  #使用方法：事件—脚本—输入
  #加血=Equivalent_system.new
  #加血.Blood_system
  def Blood_system
    add_hp = 1000  # 预设最大加血量
    add_hp = [add_hp, $game_party.actors[0].maxhp -  $game_party.actors[0].hp].min
    if $game_party.gold < add_hp or $game_party.actors[0].maxhp == $game_party.actors[0].hp
      tip = $game_party.gold < add_hp ? "金钱不够！" : "你已经满血了"
      p tip
      return
    end
    $game_party.actors[0].hp += add_hp
    $game_party.lose_gold -= add_hp
   end
end
=begin
钱换经验系统：一分钱一分货！
=end
def Experience_system
   add_exp = 1000
  if $game_party.gold < add_exp
   p "钱不够"
  else
   $game_party.actors[0].exp += add_exp
   $game_party.lose_gold(add_exp)
  end
end[/pre]
我提供的是原版，大家可以扩展，跟我一样扩展！

布冷.逆天

新的版本又出来了！下回我将改进提示。
[pre lang="ruby"]=begin
作者：一位不想透露名字的人和布冷.逆天
等值系统：脑洞大开的作品，第一个医院系统为前面的一位不想透露名字的人与我一起做的，他占90%，其余自己做的，当然有人帮忙的了！
别名：万能的钱
版本v0.3
=end
class Equivalent_system
=begin
医院系统：一分钱一分货给多少钱就加多少血！
使用方法：事件—脚本—输入
加血=Equivalent_system.new
加血.Add_hp
=end
  def Add_hp
    add_hp = 1000  # 预设最大加血量
    add_hp = [add_hp, $game_party.actors[0].maxhp -  $game_party.actors[0].hp].min
    if $game_party.gold < add_hp or $game_party.actors[0].maxhp == $game_party.actors[0].hp
      tip = $game_party.gold < add_hp ? "金钱不够！" : "你已经满血了"
      p tip
      return
    end
    $game_party.actors[0].hp += add_hp
    $game_party.lose_gold -= add_hp
   end
end
=begin
钱换经验系统
使用方法：事件—脚本—输入
加经验=Equivalent_system.new
加经验.Add_exe
=end
def Add_exe
   add_exp = 1000#设置增加的经验数
  if $game_party.gold < add_exp
   p "钱不够"
  else
   $game_party.actors[0].exp += add_exp
   $game_party.lose_gold(add_exp)
  end
end
=begin
钱换等级系统:100换1级
使用方法：事件—脚本—输入
加等级=Equivalent_system.new
加等级.Add_level
=end
def Add_level
   add_level=1#设置增加的等级数
  if $game_party.gold < add_level
    p "钱不够"
  else
   $game_party.actors[0].level += add_level
   $game_party.lose_gold(100)#设置钱数
  end
end  [/pre]

布冷.逆天

新版来了，上回的约定当不存在吧！
[pre lang="ruby"]=begin
作者：一位不想透露名字的人和布冷.逆天
等值系统：脑洞大开的作品，第一个医院系统为前面的一位不想透露名字的人与我一起做的，他占90%，其余自己做的，当然有人帮忙的了！
别名：万能的钱
版本v0.4
=end
class Equivalent_system
=begin
医院系统：一分钱一分货给多少钱就加多少血！
使用方法：事件—脚本—输入
加血=Equivalent_system.new
加血.Add_hp
=end
  def Add_hp
    add_hp = 1000  # 预设最大加血量
    add_hp = [add_hp, $game_party.actors[0].maxhp -  $game_party.actors[0].hp].min
    if $game_party.gold < add_hp or $game_party.actors[0].maxhp == $game_party.actors[0].hp
      tip = $game_party.gold < add_hp ? "金钱不够！" : "你已经满血了"
      p tip
      return
    end
    $game_party.actors[0].hp += add_hp
    $game_party.lose_gold -= add_hp
   end
end
=begin
钱换经验系统
使用方法：事件—脚本—输入
加经验=Equivalent_system.new
加经验.Add_exe
=end
def Add_exe
   add_exp = 1000#设置增加的经验数
  if $game_party.gold < add_exp
   p "钱不够"
  else
   $game_party.actors[0].exp += add_exp
   $game_party.lose_gold(add_exp)
  end
end
=begin
钱换等级系统:100换1级
使用方法：事件—脚本—输入
加等级=Equivalent_system.new
加等级.Add_level
=end
def Add_level
   add_level=1#设置增加的等级数
  if $game_party.gold < add_level
    p "钱不够"
  else
   $game_party.actors[0].level += add_level
   $game_party.lose_gold(100)#设置钱数
  end
end  
=begin
钱换血的最大量
使用方法：你懂得
=end
def Add_maxhp
    add_maxhp = 100#预设最大增加的最大量
  if $game_party.gold < add_maxhp
      p "金钱不够！"
    else
    $game_party.actors[0].maxhp += add_maxhp
    $game_party.lose_gold(add_maxhp )
  end
end[/pre]

不死鸟之翼

新版建议直接利用编辑帖子功能进行更新，刷楼不太好吧
另外最好还是利用事件实现

布冷.逆天

新版，增加成功提示

1. =begin
   
2. 作者：一位不想透露名字的人和布冷.逆天
   
3. 等值系统：脑洞大开的作品，第一个医院系统为前面的一位不想透露名字的人与我一起做的，他占90%，其余自己做的，当然有人帮忙的了！
   
4. 别名：万能的钱
   
5. 版本v0.5
   
6. =end
   
7. class Equivalent_system
   
8. =begin
   
9. 医院系统：一分钱一分货给多少钱就加多少血！
   
10. 使用方法：事件—脚本—输入
    
11. 加血=Equivalent_system.new
    
12. 加血.Add_hp
    
13. =end
    
14.   def Add_hp
    
15.     add_hp = 1000  # 预设最大加血量
    
16.     add_hp = [add_hp, $game_party.actors[0].maxhp -  $game_party.actors[0].hp].min
    
17.     if $game_party.gold < add_hp or $game_party.actors[0].maxhp == $game_party.actors[0].hp
    
18.       tip = $game_party.gold < add_hp ? "金钱不够！" : "你已经满血了"
    
19.       p tip
    
20.       return
    
21.     end
    
22.     $game_party.actors[0].hp += add_hp
    
23.     $game_party.lose_gold -= add_hp
    
24.    p "交换完成！"
    
25.   end
    
26. end
    
27. =begin
    
28. 钱换经验系统
    
29. 使用方法：事件—脚本—输入
    
30. 加经验=Equivalent_system.new
    
31. 加经验.Add_exe
    
32. =end
    
33. def Add_exe
    
34.    add_exp = 1000#设置增加的经验数
    
35.   if $game_party.gold < add_exp
    
36.    p "钱不够"
    
37.   else
    
38.    $game_party.actors[0].exp += add_exp
    
39.    $game_party.lose_gold(add_exp)
    
40.   p "交换完成！"
    
41.   end
    
42. end
    
43. =begin
    
44. 钱换等级系统:100换1级
    
45. 使用方法：事件—脚本—输入
    
46. 加等级=Equivalent_system.new
    
47. 加等级.Add_level
    
48. =end
    
49. def Add_level
    
50.    add_level=1#设置增加的等级数
    
51.   if $game_party.gold < add_level
    
52.     p "钱不够"
    
53.   else
    
54.    $game_party.actors[0].level += add_level
    
55.    $game_party.lose_gold(100)#设置钱数
    
56.   p "交换完成！"
    
57.   end
    
58. end  
    
59. =begin
    
60. 钱换血的最大量
    
61. 使用方法：你懂得
    
62. =end
    
63. def Add_maxhp
    
64.     add_maxhp = 100#预设最大增加的最大量
    
65.   if $game_party.gold < add_maxhp
    
66.       p "金钱不够！"
    
67.     else
    
68.     $game_party.actors[0].maxhp += add_maxhp
    
69.     $game_party.lose_gold(add_maxhp )
    
70.   p "交换完成！"
    
71.   end
    
72. end
    
73. =begin
    
74. 钱换魔的最大量
    
75. 使用方法：呵呵！
    
76. =end
    
77. def Add_maxsp
    
78.     add_maxsp=100
    
79.   if $game_party.gold < add_maxsp
    
80.       p "金钱不够！"
    
81.     else
    
82.     $game_party.actors[0].maxsp += add_maxsp
    
83.     $game_party.lose_gold(add_maxsp )
    
84.    p "交换完成！"
    
85.   end  
    
86. end

复制代码

布冷.逆天

以后就不在这里发布最新版了！转帖：https://rpg.blue/thread-376813-1-1.html
到时大家在这里面看就行了！
不过只有新手需要吧！

taroxd

布冷.逆天 发表于 2015-2-22 18:25
新版，增加成功提示

想要通用化的话，还是这种接口比较好吧

1. # max_gold: 消耗金钱的最大值
   
2. # gold_paid: 支付的金钱
   
3. EquivalentSystem.call(max_gold) do |gold_paid|
   
4.   $game_party.actors.first.hp += gold_paid
   
5. end

复制代码

布冷.逆天

taroxd 发表于 2015-2-22 18:35
想要通用化的话，还是这种接口比较好吧

非常感谢，这样RMVA也能用了！
不过是替换原来的，还是新增！
呵呵，我不会用！