万物换钱系统

布冷.逆天 · 发表于 2015-2-23 19:53:35

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

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

x

本帖最后由布冷.逆天于 2015-2-25 18:09 编辑

卖肾知道吗？为了钱，豁出去了！
@chd114

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

=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

chd114 · 发表于 2015-2-23 20:16:52

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

952193683 · 发表于 2015-2-24 01:35:27

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

952193683 · 发表于 2015-2-24 20:38:39

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

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

952193683 · 发表于 2015-2-24 20:39:32

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

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

952193683 · 发表于 2015-2-25 00:41:34

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

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

952193683 · 发表于 2015-2-25 13:37:32

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

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

布冷.逆天 · 发表于 2015-2-25 21:59:23

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

=begin
万物换钱
别名：卖肾系统
v0.5
作者：布冷逆天
介绍：当你缺钱时，可以卖血，卖魔，卖你的一切，甚至卖人！
注意，物品换钱完全可以用商店处理，只不过为了好看添上去，有可能会报错，我没有实验的！
=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
=begin
经验换钱
加钱 = Creation_Change_money.new
加钱.reduce_exp
=end
def reduce_exp
reduce_exp=1000
reduce_exp=[reduce_exp,$game_party.actors[0].exp].min
if $game_party.actors[0].exp==0
print"你没经验了！"
else
$game_party.actors[0].exp-=reduce_exp
$game_party.gain_gold(reduce_exp)
print"交换完成!"
return [$game_party.actors[0].exp==0,$game_party.gain_gold(reduce_exp)]
end
end
=begin
物品换钱
加钱 = Creation_Change_money.new
加钱.reduce_items
=end
def reduce_items
reduce_items=$game_party.lose_item(1, 1)#自己设置(代码,数量)
reduce_items==$data_items[1].price
if $game_party.item_number(1)===0
print"抱歉，你没有这样东西！"
else
$game_party.item_number(1)-=reduce_items
$game_party.gain_gold(reduce_items)
end
end
end

复制代码

新增了物品

苍穹之罚 · 发表于 2015-2-28 22:15:04

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

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

[RMXP发布] 万物换钱系统

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

点评

点评

点评

点评

点评

点评

开拓者