万物换钱系统

布冷.逆天

卖肾知道吗？为了钱，豁出去了！
@chd114 [pre lang="ruby"]=begin
万物换钱
别名：卖肾系统
v0.3
作者：布冷逆天
介绍：当你缺钱时，可以卖血，卖魔，卖你的一切，甚至卖人！
=end
class Creation_Change_money
=begin
血量换钱
加钱 = Creation_Change_money.new
加钱.reduce_hp
=end
def reduce_hp
  reduce_hp = 1000
  reduce_hp = [reduce_hp,$game_party.actors[0].maxhp-=10].min
  if $game_party.actors[0].hp<=10
  print"你快死亡了！"
   else
   $game_party.actors[0].hp -= reduce_hp
   $game_party.gain_gold(reduce_hp*=10)   
   print"交换完成！"
   return [$game_party.actors[0].hp+=10,$game_party.lose_gold(10)]
  end
end
=begin
魔换钱
加钱 = Creation_Change_money.new
加钱.reduce_sp
=end
def reduce_sp
  reduce_sp = 1000
  reduce_sp = [reduce_sp,$game_party.actors[0].sp].min
  if $game_party.actors[0].sp==0
  print"你已经没魔了！"
   else
   $game_party.actors[0].sp -= reduce_sp
   $game_party.gain_gold(reduce_sp*=10)   
   print"交换完成！"
   return [$game_party.actors[0].sp==0,$game_party.gain_gold(reduce_sp*=10)]
  end
end
=begin
等级换钱
加钱 = Creation_Change_money.new
加钱.reduce_level
=end
def reduce_level
  reduce_level=10
  reduce_level=[reduce_level,$game_party.actors[0].level-=1].min
  if $game_party.actors[0].level==1
  print"已经是最低级了！"
   else
   $game_party.actors[0].level-=reduce_level
   $game_party.gain_gold(reduce_level*=100)
   print"交换完成"
   return [$game_party.actors[0].level==1,$game_party.gain_gold(reduce_level*=100)]
  end
end
end [/pre]

chd114

这个有点像我哥正在写的一个剧本···

952193683

物品呢？看起来不错的样子。

952193683

952193683 发表于 2015-2-24 01:35
物品呢？看起来不错的样子。

那你还说万物{:2_277:}

952193683

952193683 发表于 2015-2-24 01:35
物品呢？看起来不错的样子。

有学习RGSS脚本的文档教程么？求！

952193683

952193683 发表于 2015-2-24 20:39
有学习RGSS脚本的文档教程么？求！

丫的不纯的教程，坑我10经验。

952193683

952193683 发表于 2015-2-25 00:41
丫的不纯的教程，坑我10经验。

那种文档，办公文档就行了。

布冷.逆天

952193683 发表于 2015-2-24 01:35
物品呢？看起来不错的样子。

1. =begin
   
2. 万物换钱
   
3. 别名：卖肾系统
   
4. v0.5
   
5. 作者：布冷逆天
   
6. 介绍：当你缺钱时，可以卖血，卖魔，卖你的一切，甚至卖人！
   
7. 注意，物品换钱完全可以用商店处理，只不过为了好看添上去，有可能会报错，我没有实验的！
   
8. =end
   
9. class Creation_Change_money
   
10. =begin
    
11. 血量换钱
    
12. 加钱 = Creation_Change_money.new
    
13. 加钱.reduce_hp
    
14. =end
    
15. def reduce_hp
    
16.   reduce_hp = 1000
    
17.   reduce_hp = [reduce_hp,$game_party.actors[0].maxhp-=10].min
    
18.   if $game_party.actors[0].hp<=10
    
19.   print"你快死亡了！"
    
20.    else
    
21.    $game_party.actors[0].hp -= reduce_hp
    
22.    $game_party.gain_gold(reduce_hp*=10)   
    
23.    print"交换完成！"
    
24.    return [$game_party.actors[0].hp+=10,$game_party.lose_gold(10)]
    
25.   end
    
26. end
    
27. =begin
    
28. 魔换钱
    
29. 加钱 = Creation_Change_money.new
    
30. 加钱.reduce_sp
    
31. =end
    
32. def reduce_sp
    
33.   reduce_sp = 1000
    
34.   reduce_sp = [reduce_sp,$game_party.actors[0].sp].min
    
35.   if $game_party.actors[0].sp==0
    
36.   print"你已经没魔了！"
    
37.    else
    
38.    $game_party.actors[0].sp -= reduce_sp
    
39.    $game_party.gain_gold(reduce_sp*=10)   
    
40.    print"交换完成！"
    
41.    return [$game_party.actors[0].sp==0,$game_party.gain_gold(reduce_sp*=10)]
    
42.   end
    
43. end
    
44. =begin
    
45. 等级换钱
    
46. 加钱 = Creation_Change_money.new
    
47. 加钱.reduce_level
    
48. =end
    
49. def reduce_level
    
50.   reduce_level=10
    
51.   reduce_level=[reduce_level,$game_party.actors[0].level-=1].min
    
52.   if $game_party.actors[0].level==1
    
53.   print"已经是最低级了！"
    
54.    else
    
55.    $game_party.actors[0].level-=reduce_level
    
56.    $game_party.gain_gold(reduce_level*=100)
    
57.    print"交换完成"
    
58.    return [$game_party.actors[0].level==1,$game_party.gain_gold(reduce_level*=100)]
    
59.   end
    
60. end
    
61. =begin
    
62. 经验换钱
    
63. 加钱 = Creation_Change_money.new
    
64. 加钱.reduce_exp
    
65. =end
    
66. def reduce_exp
    
67.   reduce_exp=1000
    
68.   reduce_exp=[reduce_exp,$game_party.actors[0].exp].min
    
69.    if $game_party.actors[0].exp==0
    
70.    print"你没经验了！"
    
71.     else
    
72.         $game_party.actors[0].exp-=reduce_exp
    
73.         $game_party.gain_gold(reduce_exp)
    
74.         print"交换完成!"
    
75.         return [$game_party.actors[0].exp==0,$game_party.gain_gold(reduce_exp)]
    
76.    end
    
77. end
    
78. =begin
    
79. 物品换钱
    
80. 加钱 = Creation_Change_money.new
    
81. 加钱.reduce_items
    
82. =end
    
83. def reduce_items
    
84.   reduce_items=$game_party.lose_item(1, 1)#自己设置(代码,数量)
    
85.   reduce_items==$data_items[1].price
    
86.    if $game_party.item_number(1)===0
    
87.    print"抱歉，你没有这样东西！"
    
88.    else
    
89.    $game_party.item_number(1)-=reduce_items
    
90.    $game_party.gain_gold(reduce_items)
    
91.    end
    
92. end
    
93. end

复制代码

新增了物品

苍穹之罚

好。。好丧病的脚本Σ( ﾟдﾟ)