【新人练手】VA脑残加点系统 0.7

lbq 发表于 2013-1-8 08:02:59

我从来没有想到一个加点都那么难
↑主要是你没有想到切换选项Enable的方法吧↑

好吧，本人第一次真正的脚本。
奉献给大家！

【明明是你上不了6R，先在这里发一下嘛。。。】

同时，也在这里求各位高手的脚本修改建议哦！

#==============================================================================
# ■ VA脑残加点系统0.7版本 by LBQ
#------------------------------------------------------------------------------
# 　这是一个简单的加点系统，里面界面比较粗糙，功能比较弱。
#------------------------------------------------------------------------------
#==============================================================================
#                      ■ 新人练手，大神勿喷 ■
#                      一切喷新人的习惯都是不好的
#                            十分欢迎建议哦！
#==============================================================================
# 【功能】
#简单的加点
#手动分配点数
#==============================================================================
# 【有待追加】
#洗点
#队伍菜单内嵌
#选项消耗不同技能点（初始研发失败）
#==============================================================================
# 【使用说明】
#呼出加点界面：
#$id=n
#SceneManager.call(Scene_StatDist)
#其中n为人物数据库编号（这个脑残的方法我真的会改。。。）
#
#手动分配点数（默认设置）：
#所有点数储存在变量50号+人物数据库编号里面，也就是说，埃里克是数据库的一号，那么他
#的点数就储存在51号变量里面。通过变量操作（只支持进行加减法）即可。
#==============================================================================
#==============================================================================
# 【注意】
#1：本脚本没有取消默认的升级能力提升，请自行设置
#2：本脚本对“降级”这个设定做的处理不好，降级之后恐怕可能出现负数技能点，我也想
# 不出有什么更好的方法了。。。
#3：本脚本默认的加点加的属性不是特别平衡，请自己修改。
#4：本脚本的算法可能会导致在进入加点界面之前，点数都不会发生变化，请不要条件分歧
# 点数变量。那个变量是用来手动分配点数的！
#==============================================================================
#==============================================================================
# 【使用条例】
#你拿去干什么合法的都可以，但是不要剽窃我的脚本。也不要拿来当奖励啊什么的。
#                （↑ 别自恋了，谁会想要剽窃你的脚本！↑）
#==============================================================================

#==============================================================================
#                         ※ 特别感谢：GubiD ※
#==============================================================================

#==============================================================================
# ※ 设置模块
#------------------------------------------------------------------------------
module Lbq
#大家干嘛都用2个module，这样很烦啊，一个不就够了吗。。。
#但是，我还是尊重习惯
module Sta_dist
#点数用语↓
VOCAB_PTS="点数："
#加点储存的基础数↓
VAR_ACT=50
#每升一级获得点数↓
GAIN=3
#行走图是否启动（因为功能不成熟）（貌似名字打错了。。。）↓
FACE_ENABLE=true
#每个选项之前的用语↓
PRE="增加"
#每个选项的用语↓
VOCAB=["力量","体制","魔力","灵巧","幸运"]
#每个选项效果：从左往右依次为：最大HP 最大MP 物攻物防魔攻魔防敏捷幸运↓
STA_ADD=[
[1,0,2,0,0,0,0,0],
[5,1,0,1,0,0,0,0],
[0,3,0,0,1,1,0,0],
[0,0,0,0,0,0,1,1],
[0,1,0,0,0,0,0,2]
]

#--------------------------------------------------------------------------
# ● 注意
# 修改以下内容可能导致头晕眼花、白内障、地中海式贫血、链状红细胞等病症。
# 严重时可导致昏厥，休克，不孕不育等奇葩情况。
# 请谨慎修改，若出现以上病症，本人恕不负责。
#--------------------------------------------------------------------------

#已经失败了的东西，不要修改！↓
STA_COST=[1,1,1,1,1]
end
end

class Game_Actor < Game_Battler
#--------------------------------------------------------------------------
# ● 定义实例变量
#--------------------------------------------------------------------------
attr_accessor :rec_lv                   # 算法用记录变量
attr_accessor :rec_stapts             # 洗点用变量（未完成）

alias dist_set setup
def setup(actor_id)
#初始化角色记录登记
@rec_lv=1
dist_set(actor_id)
end
end

class Window_StatDist < Window_Command
def initialize(x, y)
#奇葩的写法，我知道错了。。。
@enable1=true
@enable2=true
@enable3=true
@enable4=true
@enable5=true
judge
super
end
def judge
i=0
while i<5
if $game_variables[Lbq::Sta_dist::VAR_ACT+$id] >= Lbq::Sta_dist::STA_COST[i]
   set_enable(i+1,true)
else
   set_enable(i+1,false)
end
i+=1
end
end
def set_enable(index,bl)
case index
#这个默认的when排列真是蛋疼。。。
when 1
   @enable1=bl
when 2
   @enable2=bl
when 3
   @enable3=bl
when 4
   @enable4=bl
when 5
   @enable5=bl
end
end
#--------------------------------------------------------------------------
# ● 生成指令列表
#--------------------------------------------------------------------------
def make_command_list
add_command(Lbq::Sta_dist::PRE+Lbq::Sta_dist::VOCAB[0], :pow, @enable1)
add_command(Lbq::Sta_dist::PRE+Lbq::Sta_dist::VOCAB[1], :sta, @enable2)
add_command(Lbq::Sta_dist::PRE+Lbq::Sta_dist::VOCAB[2], :man, @enable3)
add_command(Lbq::Sta_dist::PRE+Lbq::Sta_dist::VOCAB[3], :tac, @enable4)
add_command(Lbq::Sta_dist::PRE+Lbq::Sta_dist::VOCAB[4], :luk, @enable5)
end
end

#==============================================================================
# ■ Window_StatDisplay
#------------------------------------------------------------------------------
# 　用于显示当前剩余点数的窗口
#==============================================================================
class Window_StatDisplay < Window_Base
#下面的初始化参数十分奇葩~下次改一改。。。虽然我真的觉得没什么。。。
def initialize(x=0, y=416-50, width=160, height=50)
super
end
def update
super
contents.clear
#偷懒，用这个方法
draw_text_ex(3, 0, Lbq::Sta_dist::VOCAB_PTS+" "+$game_variables[Lbq::Sta_dist::VAR_ACT+$id].to_s)
end
end

#==============================================================================
# ■ Window_StatStatus
#------------------------------------------------------------------------------
# 　用于显示当前角色属性的窗口
#==============================================================================
class Window_StatStatus < Window_Base
def initialize(x=160, y=0,width=Graphics.width-160,height=Graphics.height)
super
end
def update
super
end
def update_data
contents.clear
actor=$game_actors[$id]
draw_actor_face(actor, 3, 2)
if Lbq::Sta_dist::FACE_ENABLE
draw_character(actor.character_name, actor.character_index, 80, 96)
end
draw_actor_simple_status(actor, 100, 3)
draw_equipments(215, 120)
i=0

#话说看着默认的循环看着好晕，还是while比较好理解。《=其实是你不会do循环吧~
#绘制角色能力值
while i < 8
draw_actor_param(actor, 3, 120+24*i, i)
i+=1
end
end
#--------------------------------------------------------------------------
# ● 绘制装备（盗取自默认状态栏）
#--------------------------------------------------------------------------
def draw_equipments(x, y)
actor=$game_actors[$id]
actor.equips.each_with_index do |item, i|
   draw_item_name(item, x, y + line_height * i)
end
end
end

#==============================================================================
# ■ Scene_StatDist
#------------------------------------------------------------------------------
# 　加点界面
#==============================================================================
# 下次我一定要用 include。。。 %>_<%
class Scene_StatDist < Scene_Base
def start
super
@actor=$game_actors[$id]
gain=(@actor.level-@actor.rec_lv)*Lbq::Sta_dist::GAIN
#获得点数
$game_variables[Lbq::Sta_dist::VAR_ACT+$id]+= gain
@actor.rec_lv=@actor.level
create_background
create_window
end
#--------------------------------------------------------------------------
# ● 生成背景（直接盗窃默认菜单~）
#--------------------------------------------------------------------------
def create_background
@background_sprite = Sprite.new
@background_sprite.bitmap = SceneManager.background_bitmap
@background_sprite.color.set(16, 16, 16, 128)
end

#生成窗口
def create_window
@stat_win=Window_StatDist.new(0,0)
handler_set
@display=Window_StatDisplay.new
@stat=Window_StatStatus.new
@stat.update_data
end

#这个纯粹是出错之后偷懒的结果
def create_choices
@stat_win=Window_StatDist.new(0,0)
end

#设置 handler=》方法
def handler_set
#设定各种选项结果
@stat_win.set_handler(:pow,    method(:command_pow))
@stat_win.set_handler(:sta,    method(:command_sta))
@stat_win.set_handler(:man,    method(:command_man))
@stat_win.set_handler(:tac,    method(:command_tac))
@stat_win.set_handler(:luk,    method(:command_luk))
end
#--------------------------------------------------------------------------
# ● 更新画面
#--------------------------------------------------------------------------
def update
super
#退出界面设定
if Input.trigger?(:B)
   Sound.play_cancel
   SceneManager.call(Scene_Map)
end
end

def reset_win
@stat_win.dispose
create_choices
end

#--------------------------------------------------------------------------
# ● 各个选项的设置（貌似下次应该改进一下选项处理）
#--------------------------------------------------------------------------
def command_pow
   i = 0
while i<Lbq::Sta_dist::STA_ADD[0].length
   @actor.add_param(i, Lbq::Sta_dist::STA_ADD[0][i])
   i+=1
end
$game_variables[Lbq::Sta_dist::VAR_ACT+$id]-=Lbq::Sta_dist::STA_COST[0]
@cost=Lbq::Sta_dist::STA_COST[0]
re_active
return
end

def command_sta
i = 0
while i<Lbq::Sta_dist::STA_ADD[1].length
   @actor.add_param(i, Lbq::Sta_dist::STA_ADD[1][i])
   i+=1
end
$game_variables[Lbq::Sta_dist::VAR_ACT+$id]-=Lbq::Sta_dist::STA_COST[1]
@cost=Lbq::Sta_dist::STA_COST[1]
re_active
end

def command_man
i = 0
while i<Lbq::Sta_dist::STA_ADD[2].length
   @actor.add_param(i, Lbq::Sta_dist::STA_ADD[2][i])
   i+=1
end
$game_variables[Lbq::Sta_dist::VAR_ACT+$id]-=Lbq::Sta_dist::STA_COST[2]
@cost=Lbq::Sta_dist::STA_COST[2]
re_active
end

def command_tac
i = 0
while i<Lbq::Sta_dist::STA_ADD[3].length
   @actor.add_param(i, Lbq::Sta_dist::STA_ADD[3][i])
   i+=1
end
$game_variables[Lbq::Sta_dist::VAR_ACT+$id]-=Lbq::Sta_dist::STA_COST[3]
@cost=Lbq::Sta_dist::STA_COST[3]
re_active
end

def command_luk
i = 0
while i<Lbq::Sta_dist::STA_ADD[4].length
   @actor.add_param(i, Lbq::Sta_dist::STA_ADD[4][i])
   i+=1
end
$game_variables[Lbq::Sta_dist::VAR_ACT+$id]-=Lbq::Sta_dist::STA_COST[4]
@cost=Lbq::Sta_dist::STA_COST[4]
re_active
end

#--------------------------------------------------------------------------
# ● 重新让窗口处于动态状态（active），同时兼任一些很重要的工作
#--------------------------------------------------------------------------
def re_active
if $game_variables[Lbq::Sta_dist::VAR_ACT+$id] >= Lbq::Sta_dist::STA_COST[@cost]
   @stat_win.set_enable(1,true)
else
   #这个地方求大神给建议，方法超级奇葩。。。
   reset_win
end
@stat.update_data
#重新active一下
@stat_win.active = true
end
end
#==============================================================================
#                               ■ 最后 ■
#------------------------------------------------------------------------------
# 　                            感谢您的使用！
#==============================================================================

话说写起来真累啊。。。

Sonic1997 发表于 2013-1-8 13:00:14

{:nm07:}我没看懂这脚本是什么...

页: [1]

URPGs's Archiver

【新人练手】VA脑残加点系统 0.7