万物换钱系统 - Project1 - Powered by Discuz!

=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

=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

复制代码