来点脚本越多越好~~~~~~~~~！等你三毛

火鸡三毛老大 · 发表于 2008-3-23 19:01:04

脚本11 详尽任务显示界面 v2.1

=begin
--------------------------------------------------------------------------
详尽任务显示界面 v2.1
--------------------------------------------------------------------------
By 叶子
日期与更新
3-29-2006 －v1.0
4-3-2006 －v2.0
－可以改变文字颜色，显示变量，显示图标，显示图片
－大幅简化了编写任务内容的过程，加入自动换行功能
－精简了窗口，使其还可以用作图鉴系统、日记系统等等
4-6-2006 －v2.1
－增加了获得全部任务与删除全部任务命令
－改正通假字，修改了示例任务3
--------------------------------------------------------------------------
改版 by ChenWei
修改部分：
- 将XP的一些脚本改成VX版的
- 将窗口大小缩放成VX的大小（依照比例）
- 将一些会变成很长的脚本精简
（如：用$game_pary.item_no(物品编号)
代替原来的$game_party.item_number($data_items[物品编号]) = ="好长）
- 精简一些代码，将 Window_Task_Name 和Window_Task 重合部分用继承方式精简
- 依照VX的 RGSS2 规范编写 Scene_Task
- 增加使用16进位颜色代码变换字体颜色功能
- 修改Scene_Menu的召唤方式，使脚本新手使用起来更容易
--------------------------------------------------------------------------
顾名思义，就是显示任务数据的界面
任务数据要预先在这里设定好
下载范例工程，能帮助你更快更好地掌握使用方法
--------------------------------------------------------------------------
使用方法：
1、召唤任务显示界面：$scene = Scene_Task.new
可以在事件中的「脚本」指令加入这段东西，
又或者修改 Scene_Menu 来增加一个显示任务的选项。
如果是修改 Scene_Menu 增加選項的話，请使用
$scene = Scene_Task.new(任务在菜单的index)
例如：$scene = Scene_Task.new(7)
2、设置任务数据
2.1、相关内容解析
所有内容文字必须用双引号括住
名称：任务的名字（显示在左边窗口中），大小为172×32，如果全部为文字的话，
够放九个全角字符
简介：任务的介绍（显示在右边窗口中），宽308，高不限
文字可以自动换行
2.1.1、控制码解析
名称和内容均可用控制码，注意两条反斜杠都要打！
\\v[n] 显示n号变量
\\c[n] 改变字体颜色。n 为窗口外观图片中所设定的颜色,可为0-31
\\c[HRRGGBB]设定字体颜色为RRGGBB色, RRGGBB 为16进位颜色代码
\\n[i] 显示i号角色名字
\\i[图标编号] 显示图标 # 图标编号为图标在IconSet里的顺序
\\p[文件名] 显示图片
2.1.2、高级：内嵌表达式
请参考帮助－脚本入门－字符串－内嵌表达式相关内容。
它可以用来在任务的名称和简介那里显示变量。
常用的表达式（注意不要漏了井号和大括号）：
#{$game_variables[n]} ——插入n号变量的值
#{$game_party.item_no(n)} —— 插入持有n号物品数量
同理还有 weapon_no，armor_no
还可以预先定义一个变量，再插入（例子见示例任务3－灵魂线）
2.2、注意事项
2.2.1、括号、逗号和双引号 [ ] , " 必须使用半角符号（英文输入），
引号内的内容则没有关系
2.2.2、单引号 ' 和双引号 " 的区别：
为了不出错误，全部用双引号吧！当然如果你对Ruby很熟悉，那就没所谓了
2.3、开始设置吧！
从107行开始设置任务数据，可以参考示例任务来设置，请仔细阅读附加讲解
3、接受任务
事件里的「脚本」指令输入：get_task(任务ID)
例如 get_task(1) 就是接受1号任务
3.1、获得全部任务
事件里的「脚本」指令输入：get_all_task
这个功能基本上是用来在编写好所有任务数据后测试排版的
4、完成/删除任务
事件里的「脚本」指令输入：finish_task(任务ID)
例如 finish_task(1) 就是完成1号任务
注意：本脚本不负责完成任务后的奖励之类的东西，请自行在事件中判断，
这里的完成任务指的是从任务列表中删去此任务
4.1、删除全部任务
事件里的「脚本」指令输入：finish_all_task
作为获得全部任务的对应功能存在，似乎不会怎么用到
=end
class Game_Party
#--------------------------------------------------------------------------
# ● 设置任务资料
#--------------------------------------------------------------------------
def get_tasks_info
@tasks_info = []
#－讲解－
# 三个示例任务由浅入深，其实只要看懂第一个就可以使用了。
# 任务的写法多种多样，不限于这三个任务的方法
#－－－－
#-----------------------------
# 示例任务1：沙漠中的五叶花
#-----------------------------
名称 = "\\c[6]沙漠中的五叶花"
#－讲解－
# 注意！脚本编辑器的变色功能并不是非常完善，所以换行后字变黑了，但仍然是字符
# 串的一部分，所以不要忘记在内容最后打一个双引号
# 按回车是强制换行
#－－－－
简介 = "\\c[6]沙漠中的五叶花
\\c[9]任务目标：
获得5朵五叶花，交给西露达
\\c[0]五叶花数目：\\v[1]/5
西露达：
\\c[Hff0000]人家等着你的花哦～"
#－讲解－
# 每个任务最后一定要加上：
# @tasks_info[任务ID] = Game_Task.new(名称, 简介)
# 接受任务和完成任务都是用这个任务ID来索引
#－－－－
@tasks_info[1] = Game_Task.new(名称, 简介)
#-----------------------------
# 示例任务2：克萝莉亚的药瓶
#-----------------------------
名称 = "\\c[6]克萝莉亚的药瓶"
#－讲解－
# 这里使用了字符串相加，例如 s = "a" + "b" ，s 就是 "ab"
# 还用了内嵌表达式，$game_party.item_number(38) 就是38号物品的数量
#－－－－
简介 = 名称 + "
\\c[9]任务目标：
问克萝莉亚要一个药瓶，交给西露达
\\c[0]药瓶：#{$game_party.item_no(1)}/1
西露达：
克萝莉亚就在西边的屋子里"
@tasks_info[2] = Game_Task.new(名称, 简介)
#-----------------------------
# 示例任务3：灵魂线
#-----------------------------
#－讲解－
# 这里用了条件判断，当3号变量大于等于1时，加上“完成”字样，同时变色
#－－－－
if $game_variables[3] >= 1
名称 = "\\c[8]灵魂线(完成)"
item = "\\c[8]灵魂线：#{$game_variables[3]}/1 (完成)"
else
名称 = "\\c[2]灵魂线"
item = "\\c[0]灵魂线：#{$game_variables[3]}/1"
end
#－讲解－
# 预先定义变量，用内嵌表达式插入
# 最后用了显示图标
#－－－－
简介 = "#{名称}
\\c[9]任务目标：
找到埋起来的灵魂线，交给克萝莉亚
#{item}
\\c[0]克萝莉亚：
灵魂线就埋在其中一棵树下，给我好好找\\i[157]"
@tasks_info[3] = Game_Task.new(名称, 简介)
end
end
#==============================================================================
# ■ Interpreter
#------------------------------------------------------------------------------
# 　执行事件命令的解释器。本类在 Game_System 类
# 与 Game_Event 类的内部使用。
#==============================================================================
class Game_Interpreter
#--------------------------------------------------------------------------
# ● 接受任务
#--------------------------------------------------------------------------
def get_task(id)
task = $game_party.tasks_info[id]
return true if (task.nil? or $game_party.current_tasks.include?(task.id))
$game_party.current_tasks.unshift(task.id)
return true
end
#--------------------------------------------------------------------------
# ● 获得全部任务
#--------------------------------------------------------------------------
def get_all_task
# 清空当前任务
$game_party.current_tasks.clear
for task in $game_party.tasks_info
next if task.nil?
$game_party.current_tasks.unshift(task.id)
end
return true
end
#--------------------------------------------------------------------------
# ● 完成/放弃任务
#--------------------------------------------------------------------------
def finish_task(id)
task = $game_party.tasks_info[id]
return true if task.nil?
$game_party.current_tasks.delete(task.id)
return true
end
#--------------------------------------------------------------------------
# ● 删除全部任务
#--------------------------------------------------------------------------
def finish_all_task
$game_party.current_tasks.clear
return true
end
end
#==============================================================================
# ■ Game_Party
#------------------------------------------------------------------------------
# 　处理同伴的类。包含金钱以及物品的信息。本类的实例
# 请参考 $game_party。
#==============================================================================
class Game_Party
#--------------------------------------------------------------------------
# ● 定义实例变量
#--------------------------------------------------------------------------
attr_writer :latest_task # 上次查看的任务
#--------------------------------------------------------------------------
# ● 取得任务资料
#--------------------------------------------------------------------------
def tasks_info
if @tasks_info.nil?
get_tasks_info
end
return @tasks_info
end
#--------------------------------------------------------------------------
# ● 取得当前任务
#--------------------------------------------------------------------------
def current_tasks
if @current_tasks.nil?
@current_tasks = []
end
return @current_tasks
end
#--------------------------------------------------------------------------
# ● 上次查看的任务
#--------------------------------------------------------------------------
def latest_task
if !current_tasks.include?(@latest_task)
@latest_task = current_tasks[0]
end
return @latest_task
end
end
#==============================================================================
# ■ Game_Task
#------------------------------------------------------------------------------
# 　处理任务的类。包含任务的信息。
#==============================================================================
class Game_Task
attr_accessor :name # 名称
attr_accessor :briefing # 简介
def initialize(name, briefing)
@name = name
@briefing = briefing
end
def height
text = @briefing.clone
x = 0
y = 64
min_y = 0
# 限制文字处理
begin
last_text = text.clone
text.gsub!(/\\[Vv]\[([0-9]+)\]/) { $game_variables[$1.to_i] }
end until text == last_text
text.gsub!(/\\[Nn]\[([0-9]+)\]/) do
$game_actors[$1.to_i] != nil ? $game_actors[$1.to_i].name : ""
end
# 为了方便、将 "\\\\" 变换为 "\000"
text.gsub!(/\\\\/) { "\000" }
# "\C" 变为 "\001"
text.gsub!(/\\[Cc]\[([0-9]+)\]/) { "\001[#{$1}]" }
# "\I" 变为 "\002"
text.gsub!(/\\[Ii]/) { "\002" }
# "\P" 变为 "\003"
text.gsub!(/\\[Pp]/) { "\003" }
# c 获取 1 个字 (如果不能取得文字就循环)
while ((c = text.slice!(/./m)) != nil)
# \\ 的情况下
if c == "\000"
# 还原为本来的文字
c = "\\"
end
# \C[n] 的情况下
if c == "\001"
# 更改文字色
text.sub!(/\[([0-9a-zA-Z]+)\]/, "")
# 下面的文字
next
end
# 图标的情况下
if c == "\002"
icon_name = ''
while ((cha = text.slice!(/./m)) != ']')
next if cha == '['
icon_name += cha
end
if x + 24 > 368
x = 0
y += [24, min_y].max
min_y = 0
end
x += 28
next
end
# 图片的情况下
if c == "\003"
pic_name = ''
while ((cha = text.slice!(/./m)) != ']')
next if cha == '['
pic_name += cha
end
pic = Cache.picture(pic_name)
if x + pic.width > 368
x = 0
y += [24, min_y].max
min_y = 0
end
x += pic.width
min_y = [pic.height, 24].max
next
end
# 另起一行文字的情况下
if c == "\n"
y += [24, min_y].max
min_y = 0
x = 0
# 下面的文字
next
end
# 自动换行处理
if x + 22 > 368
y += [24, min_y].max
min_y = 0
x = 0
end
# x 为要描绘文字的加法运算
x += 22
end
return (y + [24, min_y].max)
end
def id
return $game_party.tasks_info.index(self)
end
end
#==============================================================================
# ■ Window_Task_Name
#------------------------------------------------------------------------------
# 　任务名称显示窗口。
#==============================================================================
class Window_Task_Name < Window_Selectable
#--------------------------------------------------------------------------
# ● 初始化对像
#--------------------------------------------------------------------------
def initialize(tasks)
super(0, 0, 204, 416)
@tasks = []
for id in tasks
@tasks.push($game_party.tasks_info[id])
end
@item_max = tasks.size
self.contents = Bitmap.new(
self.width - 32, @item_max == 0 ? 32 : @item_max * 32)
refresh
self.index = 0
end
#--------------------------------------------------------------------------
# ● 刷新
#--------------------------------------------------------------------------
def refresh
self.contents.clear
if @tasks != []
for task in @tasks
draw_item(task)
end
else
draw_blank
end
end
#--------------------------------------------------------------------------
# ● 描绘项目
#--------------------------------------------------------------------------
def draw_item(task)
text = task.name.clone
y = @tasks.index(task) * WLH
chenge_special_character(text, 0, y)
end
#--------------------------------------------------------------------------
# ● 描绘空行
#--------------------------------------------------------------------------
def draw_blank
self.contents.font.color = Color.new(255, 255, 255, 128)
rect = Rect.new(4, 0, self.contents.width - 8, 32)
self.contents.fill_rect(rect, Color.new(0, 0, 0, 0))
self.contents.draw_text(rect, '当前没有任何任务')
end
#--------------------------------------------------------------------------
# ● 获取任务
#--------------------------------------------------------------------------
def task
return @tasks[self.index]
end
end
#==============================================================================
# ■ Window_Task
#------------------------------------------------------------------------------
# 　任务内容显示窗口。
#==============================================================================
class Window_Task < Window_Base
#--------------------------------------------------------------------------
# ● 初始化对像
#--------------------------------------------------------------------------
def initialize(task_id)
super(204, 0, 340, 416)
refresh(task_id)
end
#--------------------------------------------------------------------------
# ● 刷新内容
#--------------------------------------------------------------------------
def refresh(task_id)
self.oy = 0
self.visible = true
return if task_id.nil?
task = $game_party.tasks_info[task_id]
if !task.nil?
self.contents = Bitmap.new(self.width - 32, task.height)
else
self.contents = Bitmap.new(self.width - 32, self.height - 32)
return
end
self.contents.font.color = normal_color
# 描绘任务内容
draw_task_info(task)
end
#--------------------------------------------------------------------------
# ● 描绘任务内容
#--------------------------------------------------------------------------
def draw_task_info(task)
self.contents.font.color = normal_color
# 描绘任务简介
chenge_special_character(task.briefing.clone)
end
end
class Window_Base < Window
def chenge_special_character(text, x=0, y=0)
# 记录换行时y坐标最小加值
min_y = 0
# 限制文字处理
begin
last_text = text.clone
text.gsub!(/\\[Vv]\[([0-9]+)\]/) { $game_variables[$1.to_i] }
end until text == last_text
text.gsub!(/\\[Nn]\[([0-9]+)\]/) do
$game_actors[$1.to_i] != nil ? $game_actors[$1.to_i].name : ""
end
# 为了方便、将 "\\\\" 变换为 "\000"
text.gsub!(/\\\\/) { "\000" }
# "\C" 变为 "\001"
text.gsub!(/\\[Cc]\[([0-9a-zA-Z]+)\]/) { "\001[#{$1}]" }
# "\I" 变为 "\002"
text.gsub!(/\\[Ii]/) { "\002" }
# "\P" 变为 "\003"
text.gsub!(/\\[Pp]/) { "\003" }
# c 获取 1 个字 (如果不能取得文字就循环)
while ((c = text.slice!(/./m)) != nil)
# \\ 的情况下
if c == "\000"
# 还原为本来的文字
c = "\\"
end
# \C[n] 的情況下
if c == "\001"
# 更改文字色
text.sub!(/\[([0-9a-zA-Z]+)\]/, "")
# 如果是设定RGB颜色
if $1[0,1]=="H"
# 先拷贝一下文字
c=$1.dup
# 分3段分别取出R,G,B颜色
c.sub!(/H([0-9A-Fa-f]{2})([0-9A-Fa-f]{2})([0-9A-Fa-f]{2})/, "")
# 设定文字颜色
self.contents.font.color = Color.new($1.to_i(16), $2.to_i(16), $3.to_i(16))
else
color = $1.to_i
if color >= 0 and color <= 31
self.contents.font.color = text_color(color)
elsif color == 32
self.contents.font.color = disabled_color
elsif color == 33
self.contents.font.color = system_color
end
end
# 下面的文字
next
end
# 图标的情况下
if c == "\002"
icon_name = ''
while ((cha = text.slice!(/./m)) != ']')
next if cha == '['
icon_name += cha
end
if x + 24 > self.contents.width
x = 0
y += [WLH, min_y].max
min_y = 0
end
draw_icon(icon_name.to_i, x+4, y+4, true)
x += 28
next
end
# 图片的情况下
if c == "\003"
pic_name = ''
while ((cha = text.slice!(/./m)) != ']')
next if cha == '['
pic_name += cha
end
pic = Cache.picture(pic_name)
if x + pic.width > self.contents.width
x = 0
y += [WLH, min_y].max
min_y = 0
end
self.contents.blt(x + 4, y, pic, Rect.new(0, 0, pic.width, pic.height))
x += pic.width
min_y = [pic.height, WLH].max
next
end
# 另起一行文字的情况下
if c == "\n"
y += [WLH, min_y].max
min_y = 0
x = 0
# 下面的文字
next
end
# 自动换行处理
if x + self.contents.text_size(c).width > self.contents.width
y += [WLH, min_y].max
min_y = 0
x = 0
end
# 描绘文字
self.contents.draw_text(4 + x, y, 40, WLH, c)
# x 为要描绘文字的加法运算
x += self.contents.text_size(c).width
end
end
end
class Game_Party < Game_Unit
def item_no(n)
return item_number($data_items[n])
end
def weapon_no(n)
return item_number($data_weapons[n])
end
def armor_no(n)
return item_number($data_armors[n])
end
end
#==============================================================================
# ■ Scene_Task
#------------------------------------------------------------------------------
# 　处理任务画面的类。
#==============================================================================
class Scene_Task < Scene_Base
def initialize(index=nil)
@menu_index = index
end
#--------------------------------------------------------------------------
# ● 主处理
#--------------------------------------------------------------------------
def start
# 刷新任务资料
$game_party.get_tasks_info
# 生成任务名称窗口
@task_names_window = Window_Task_Name.new($game_party.current_tasks)
@task_names_window.active = true
if $game_party.current_tasks != []
@task_names_window.index = $game_party.current_tasks.index($game_party.latest_task)
end
# 生成任务内容窗口
@task_info_window = Window_Task.new($game_party.latest_task)
@task_info_window.active = true
end
def terminate
# 释放窗口
@task_names_window.dispose
@task_info_window.dispose
end
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
# 刷新窗口
@task_names_window.update
@task_info_window.update
update_task_names_window
end
#--------------------------------------------------------------------------
# ● 刷新任务名称窗口
#--------------------------------------------------------------------------
def update_task_names_window
# 按下 B 键的情况下
if Input.trigger?(Input::B)
# 演奏取消 SE
Sound.play_cancel
# 这里设置返回的场景，返回地图是Scene_Map.new，菜单是Scene_Menu.new(任务界面index）
if @menu_index == nil
$scene = Scene_Map.new
else
$scene = Scene_Menu.new(@menu_index)
end
return
end
# 按下 C 键的情况下
if Input.trigger?(Input::C)
# 无任务可显示的话
if @task_names_window.task == nil
# 演奏冻结 SE
Sound.play_buzzer
return
end
# 如果光标没有移动的话，翻页
if $game_party.latest_task == @task_names_window.task.id
if @task_info_window.oy + @task_info_window.height - 32 > @task_info_window.contents.height
@task_info_window.oy = 0
else
@task_info_window.oy += 480-32
end
if @task_info_window.contents.height > @task_info_window.height - 32
# 演奏翻页 SE
Sound.se_play(CHANGE_PAGE_SE)
end
else
@task_info_window.refresh(@task_names_window.task.id)
$game_party.latest_task = @task_names_window.task.id
# 演奏确定 SE
Sound.play_decision
end
end
end
end

复制代码

火鸡三毛老大 · 发表于 2008-3-23 19:02:59

脚本12 地图名显示修改过

#==============================================================================
# ■ Window_MapName
#==============================================================================
class Window_MapName < Window_Base
#--------------------------------------------------------------------------
# ● 初始化
#--------------------------------------------------------------------------
def initialize
@map_id = $game_map.map_id
super(0, 0, 182, 52)
self.contents.font.size = 20
self.z = 151
refresh
end
#--------------------------------------------------------------------------
# ● 刷新
#--------------------------------------------------------------------------
def refresh
self.opacity = 255
self.contents_opacity = 255
name = $data_mapinfos[@map_id].name
width = self.contents.text_size(name).width
height = self.contents.text_size(name).height
self.width = width + 32
self.height = height + 32
self.contents = Bitmap.new(width, height)
self.contents.font.size = 20
self.x = (Graphics.width - self.width) / 2
self.y = (Graphics.height - self.height) / 2
self.contents.font.color = system_color
self.contents.draw_text(0, 0, width, 20, name, 1)
end
#--------------------------------------------------------------------------
# ● 更新
#--------------------------------------------------------------------------
def update
if $game_map.map_id != @map_id
@map_id = $game_map.map_id
refresh
self.opacity = 255
self.contents_opacity = 255
end
return if self.opacity == 0
self.opacity -= 5
self.contents_opacity -= 5
end
end
class Scene_Title < Scene_Base
#--------------------------------------------------------------------------
# ● 数据库载入
#--------------------------------------------------------------------------
alias old_ld load_database
def load_database
old_ld
$data_mapinfos = load_data("Data/MapInfos.rvdata")
end
end
class Scene_Map < Scene_Base
#--------------------------------------------------------------------------
# ● 开始
#--------------------------------------------------------------------------
alias old_start start
def start
old_start
@mapname_window = Window_MapName.new
end
#--------------------------------------------------------------------------
# ● 结束
#--------------------------------------------------------------------------
alias old_ter terminate
def terminate
old_ter
@mapname_window.dispose
end
#--------------------------------------------------------------------------
# ● 更新
#--------------------------------------------------------------------------
alias old_update update
def update
old_update
@mapname_window.update
end
end

复制代码

火鸡三毛老大 · 发表于 2008-3-23 19:04:16

脚本 13 升级手动加点

#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================
# 脚本使用设定：
LEVEL_UP_POINT = 5 # 每升一级所增加的点数
LEVEL_UP_VARIABLE = 100 # 储存角色点数的变量编号与角色id编号的差值
# 默认情况＝ 100，
# 则是数据库里1号角色的加点数存于101号变量
# 3号角色的加点数存于103号变量。
# 你可以直接操作变量赠与角色可分配点数
# 每增加一次点数，各项能力值的变化：357－410行
# 使用方法介绍：
# 本脚本不会取代原来的升级自动加点也就是说，默认的升级还在，但可以用这个功能手动追加点数。
# 如果你想纯粹使用手动加点(而升级不提升能力)，只要把数据库中角色升级能力，
# 1－99级全部等于一个相同数值就行了。
# 呼唤加点场景的方法：$scene = Scene_Lvup.new(角色编号，返回菜单编号)。
# 默认都是0号
# 加点场景中，page up，page down换人,如果想加点完毕后返回地图，
# 464行$scene = Scene_Menu.new(0)改为$scene = Scene_Map.new
#==============================================================================
# ■ Window_Command
#------------------------------------------------------------------------------
# 　一般的命令选择行窗口。（追加定义）
#==============================================================================
class Window_Command < Window_Selectable
#--------------------------------------------------------------------------
# ● 项目有效化
# index : 项目编号
#--------------------------------------------------------------------------
def able_item(index)
draw_item(index, normal_color)
end
end
#==============================================================================
# ■ Game_Actor
#------------------------------------------------------------------------------
# 　处理角色的类。（再定义）
#==============================================================================
class Game_Actor < Game_Battler
def level_up
@level += 1
$game_variables[self.id + LEVEL_UP_VARIABLE] += LEVEL_UP_POINT
for learning in self.class.learnings
learn_skill(learning.skill_id) if learning.level == @level
end
end
end
#==============================================================================
# ■ Window_Base
#------------------------------------------------------------------------------
# 　游戏中全部窗口的超级类（追加定义）
#==============================================================================
class Window_Base < Window
#--------------------------------------------------------------------------
# ● 描绘 HP
# actor : 角色
# x : 描画目标 X 坐标
# y : 描画目标 Y 坐标
# width : 描画目标的宽
#--------------------------------------------------------------------------
def draw_actor_hp_lvup(actor, x, y)
self.contents.font.color = system_color
self.contents.draw_text(x , y, 96, 32, "最大" + Vocab::hp)
if $temp_hp == 0
self.contents.font.color = normal_color
self.contents.draw_text(x + 120 , y, 48, 32, actor.maxhp.to_s, 2)
else
maxhp = actor.maxhp + $temp_hp
self.contents.font.color = Color.new(255, 128, 128, 255)
self.contents.draw_text(x + 120 , y, 48, 32, maxhp.to_s ,2)
self.contents.font.color = normal_color
self.contents.draw_text(x + 155, y, 36, 32, "( ", 2)
if $temp_hp >=0
self.contents.font.color = Color.new(255, 128, 128, 255)
self.contents.draw_text(x + 155, y, 36, 32, " +",2)
else
self.contents.font.color = Color.new(255,255,0,255)
self.contents.draw_text(x + 155, y, 36, 32, " -",2)
end
self.contents.draw_text(x + 200, y, 36, 32, $temp_hp.to_s, 2)
self.contents.font.color = normal_color
self.contents.draw_text(x + 215, y, 36, 32, ")", 2)
end
end
#--------------------------------------------------------------------------
# ● 描绘 MP
# actor : 角色
# x : 描画目标 X 坐标
# y : 描画目标 Y 坐标
# width : 描画目标的宽
#--------------------------------------------------------------------------
def draw_actor_mp_lvup(actor, x, y)
self.contents.font.color = system_color
self.contents.draw_text(x , y, 96, 32, "最大" + Vocab::mp)
if $temp_mp == 0
self.contents.font.color = normal_color
self.contents.draw_text(x + 120 , y, 48, 32, actor.maxmp.to_s, 2)
else
maxmp = actor.maxmp + $temp_mp
self.contents.font.color = Color.new(255, 128, 128, 255)
self.contents.draw_text(x + 120 , y, 48, 32, maxmp.to_s ,2)
self.contents.font.color = normal_color
self.contents.draw_text(x + 155, y, 36, 32, "( ", 2)
if $temp_mp >=0
self.contents.font.color = Color.new(255, 128, 128, 255)
self.contents.draw_text(x + 155, y, 36, 32, " +",2)
else
self.contents.font.color = Color.new(255,255,0,255)
self.contents.draw_text(x + 155, y, 36, 32, " -",2)
end
self.contents.draw_text(x + 200, y, 36, 32, $temp_mp.to_s, 2)
self.contents.font.color = normal_color
self.contents.draw_text(x + 215, y, 36, 32, ")", 2)
end
end
#--------------------------------------------------------------------------
# ● 描绘能力值
# actor : 角色
# x : 描画目标 X 坐标
# y : 描画目标 Y 坐标
# type : 能力值种类 (0～4)
#--------------------------------------------------------------------------
def draw_actor_lvup(actor, x, y, type)
# 定义数字颜色
lvup = normal_color
upcolor = Color.new(255, 128, 128, 255)
self.contents.font.color = normal_color
case type
when 0
parameter_name = Vocab::atk
parameter_value = actor.atk
parameter_value_temp = parameter_value + $temp_atk
if $temp_atk != 0
lvup = upcolor
self.contents.draw_text(x + 256, y, 16, 32, "(")
if $temp_atk >= 0
self.contents.font.color = lvup
self.contents.draw_text(x + 272, y, 80, 32, "+",0)
else
self.contents.font.color = Color.new(255,255,0,255)
self.contents.draw_text(x + 272, y, 80, 32, "-",0)
end
self.contents.draw_text(x + 272, y, 80, 32, $temp_atk.abs.to_s,1)
self.contents.font.color = normal_color
self.contents.draw_text(x + 272, y, 80, 32, ")", 2)
end
when 1
parameter_name = Vocab::def
parameter_value = actor.def
parameter_value_temp = parameter_value + $temp_def
if $temp_def != 0
lvup = upcolor
self.contents.draw_text(x + 256, y, 16, 32, "(")
if $temp_def >= 0
self.contents.font.color = lvup
self.contents.draw_text(x + 272, y, 80, 32, "+",0)
else
self.contents.font.color = Color.new(255,255,0,255)
self.contents.draw_text(x + 272, y, 80, 32, "-",0)
end
self.contents.draw_text(x + 272, y, 80, 32, $temp_def.abs.to_s,1)
self.contents.font.color = normal_color
self.contents.draw_text(x + 272, y, 80, 32, ")", 2)
end
when 2
parameter_name = Vocab::agi
parameter_value = actor.agi
parameter_value_temp = parameter_value + $temp_agi
if $temp_agi != 0
lvup = upcolor
self.contents.draw_text(x + 256, y, 16, 32, "(")
if $temp_agi >= 0
self.contents.font.color = lvup
self.contents.draw_text(x + 272, y, 80, 32, "+",0)
else
self.contents.font.color = Color.new(255,255,0,255)
self.contents.draw_text(x + 272, y, 80, 32, "-",0)
end
self.contents.draw_text(x + 272, y, 80, 32, $temp_agi.abs.to_s,1)
self.contents.font.color = normal_color
self.contents.draw_text(x + 272, y, 80, 32, ")", 2)
end
when 3
parameter_name = Vocab::spi
parameter_value = actor.spi
parameter_value_temp = parameter_value + $temp_spi
if $temp_spi != 0
lvup = upcolor
self.contents.draw_text(x + 256, y, 16, 32, "(")
if $temp_spi >= 0
self.contents.font.color = lvup
self.contents.draw_text(x + 272, y, 80, 32, "+",0)
else
self.contents.font.color = Color.new(255,255,0,255)
self.contents.draw_text(x + 272, y, 80, 32, "-",0)
end
self.contents.draw_text(x + 272, y, 80, 32, $temp_spi.abs.to_s,1)
self.contents.font.color = normal_color
self.contents.draw_text(x + 272, y, 80, 32, ")", 2)
end
when 4
parameter_name = "剩余点数"
parameter_value = $point
if $point != 0
lvup = upcolor
end
end
self.contents.font.size = 16 if type == 4
self.contents.font.color = system_color
if type != 4 then
self.contents.draw_text(x, y, 120, 32, parameter_name)
else
self.contents.draw_text(x, y, 120, 24, parameter_name)
end
self.contents.font.color = normal_color
if type != 4
self.contents.draw_text(x + 120, y, 36, 32, parameter_value.to_s)
else
self.contents.draw_text(x + 68, y, 36, 24, parameter_value.to_s)
end
if type != 4
self.contents.draw_text(x + 150, y, 36, 32, "→")
end
self.contents.font.color = lvup
self.contents.draw_text(x + 180, y, 60, 32, parameter_value_temp.to_s)
self.contents.font.color = normal_color
end
end
class Window_Lvpoint < Window_Base
def initialize
super(0,198,128,58)
refresh
end
def refresh
self.contents.clear
draw_actor_lvup(@actor, 0, 0, 4)
end
end
#==============================================================================
# ■ Window_lvup
#------------------------------------------------------------------------------
# 　显示升级状态窗口。
#==============================================================================
class Window_Lvup < Window_Base
#--------------------------------------------------------------------------
# ● 初始化对像
# actor : 角色
#--------------------------------------------------------------------------
def initialize(actor)
super(0, 0, 416, 256)
self.contents = Bitmap.new(width - 32, height - 32)
@actor = actor
refresh
end
#--------------------------------------------------------------------------
# ● 刷新
#--------------------------------------------------------------------------
def refresh
self.contents.clear
draw_actor_graphic(@actor, 30, 80)
draw_actor_name(@actor, 4, 0)
draw_actor_class(@actor, 96, 0)
draw_actor_level(@actor, 224, 0)
draw_actor_state(@actor, 96, 32)
draw_actor_hp_lvup(@actor, 96, 32)
draw_actor_mp_lvup(@actor, 96, 64)
draw_actor_lvup(@actor, 4, 96, 0)
draw_actor_lvup(@actor, 4, 128, 1)
draw_actor_lvup(@actor, 4, 160, 2)
draw_actor_lvup(@actor, 4, 192, 3)
end
end
#==============================================================================
# ■ Window_Help
#------------------------------------------------------------------------------
# 　特技及物品的说明、角色的状态显示的窗口。
#==============================================================================
class Window_Lvup_Help < Window_Base
#--------------------------------------------------------------------------
# ● 初始化对像
#--------------------------------------------------------------------------
def initialize
super(0, 256, 544, 160)
self.contents = Bitmap.new(width - 32, height - 32)
@test = "" #——这个东西用来检测，节约内存专用
end
#--------------------------------------------------------------------------
# ● 设置文本
#--------------------------------------------------------------------------
def lvup_text(text1, text2 = nil, text3 = nil, text4 = nil)
if @test != text1
@test = text1
else
return
end
self.contents.clear
self.contents.font.color = normal_color
self.contents.draw_text(4, 0, self.width - 40, 32, text1)
if text2 != nil
self.contents.draw_text(4 , 32, self.width - 40, 32, text2)
end
self.contents.font.size -= 4
if text3 != nil
self.contents.draw_text(4 , 64, self.width - 40, 32, text3)
end
if text4 != nil
self.contents.draw_text(4 , 96, self.width - 40, 32, text4)
end
self.contents.font.size += 4
end
end
#==============================================================================
# ■ Scene_lvup
#------------------------------------------------------------------------------
# 　处理升级画面的类。
#==============================================================================
class Scene_Lvup
#--------------------------------------------------------------------------
# ● 初始化对像
# actor_index : 角色索引
# menu_index : 选项起始位置
#--------------------------------------------------------------------------
def initialize(actor_index = 0 , menu_index = 0)
@actor_index = actor_index
@menu_index = menu_index
end
#--------------------------------------------------------------------------
# ● 主处理
#--------------------------------------------------------------------------
def main
s1 = "增加体力"
s2 = "增加"+Vocab::atk
s3 = "增加"+Vocab::def
s4 = "增加"+Vocab::agi
s5 = "增加"+Vocab::spi
s6 = "确认加点"
s7 = "点数重置"
@command_window = Window_Command.new(128, [s1, s2, s3, s4, s5, s6, s7])
@command_window.index = @menu_index
# 获取角色
@actor = $game_party.members[@actor_index]
# 将角色的剩余点数带入
$point = $game_variables[@actor.id + LEVEL_UP_VARIABLE]
# 初始化临时量
$temp_atk = 0
$temp_def = 0
$temp_agi = 0
$temp_spi = 0
$temp_hp = 0
$temp_mp = 0
#=========================================================================
# 特别提示：这些设置也可以使用小数，但是可能出现0值意外错误
# (各种编程语言都有这种意外)，建议还是使用整数，正负不限
#=========================================================================
# 每提升一次力量，提升多少附加能力
#=========================================================================
@atk_hp = 5 # 每提升一次力量附加提升多少HP
@atk_mp = 0 # 每提升一次力量附加提升多少MP
@atk_def = 0 # 每提升一次力量附加提升多少灵巧
@atk_agi = 0 # 每提升一次力量附加提升多少速度
@atk_spi = 0 # 每提升一次力量附加提升多少魔力
@atk_atk = 1 # 每提升一次力量附加提升多少力量
#=========================================================================
# 每提升一次灵巧，提升多少附加能力
#=========================================================================
@def_hp = 0 # 每提升一次灵巧附加提升多少HP
@def_mp = 0 # 每提升一次灵巧附加提升多少MP
@def_atk = 0 # 每提升一次灵巧附加提升多少力量
@def_agi = 1 # 每提升一次灵巧附加提升多少速度
@def_spi = 0 # 每提升一次灵巧附加提升多少魔力
@def_def = 1 # 每提升一次灵巧附加提升多少灵巧
#=========================================================================
# 每提升一次速度，提升多少附加能力
#=========================================================================
@agi_hp = 0 # 每提升一次速度附加提升多少HP
@agi_mp = 0 # 每提升一次速度附加提升多少MP
@agi_atk = 0 # 每提升一次速度附加提升多少力量
@agi_def = 1 # 每提升一次速度附加提升多少灵巧
@agi_spi = 0 # 每提升一次速度附加提升多少魔力
@agi_agi = 1 # 每提升一次速度附加提升多少速度
#=========================================================================
# 每提升一次魔力，提升多少附加能力
#=========================================================================
@spi_hp = 0 # 每提升一次魔力附加提升多少HP
@spi_mp = 10 # 每提升一次魔力附加提升多少MP
@spi_atk = 0 # 每提升一次魔力附加提升多少力量
@spi_def = 0 # 每提升一次魔力附加提升多少灵巧
@spi_agi = 0 # 每提升一次魔力附加提升多少速度
@spi_spi = 1 # 每提升一次魔力附加提升多少魔力
#=========================================================================
# 每提升一次体力，提升多少附加能力
#=========================================================================
@hp = 15 # 每提升一次体力提升多少HP
@mp = 0 # 每提升一次体力提升多少MP
@hp_atk = 0 # 每提升一次体力提升多少力量
@hp_def = 0 # 每提升一次体力提升多少速度
@hp_agi = 0 # 每提升一次体力提升多少灵巧
@hp_spi = 0 # 每提升一次体力提升多少魔力
# 定义说明文字
@text_hp_sc = "体力可以增加生存的能力，可以延长生存的时间！"
@text_atk_sc = Vocab::atk + "可以增加物理攻击和物理技能的威力！"
@text_def_sc = Vocab::def + "可以提高攻击的命中率和必杀！"
@text_agi_sc = Vocab::agi + "可以提高回避、命中、逃跑成功率！"
@text_spi_sc = Vocab::spi + "可以提高魔法的效果，可以增加1点魔法！"
@text_save = "保存分配情况并返回游戏"
@text_reset= "重新分配能力点数"
@text_2 = "每增加一次此项能力值，可以提升能力值"
@text_hp = "最大" + Vocab::hp + "值"
@text_mp = "最大" + Vocab::mp + "值"
@text_atk = "最大" + Vocab::atk + "值"
@text_def = "最大" + Vocab::def + "值"
@text_agi = "最大" + Vocab::agi + "值"
@text_spi = "最大" + Vocab::spi + "值"
s_disable
# 生成状态窗口
@lvup_window = Window_Lvup.new(@actor)
@lvup_window.x = 128
@lvup_window.y = 0
@lvpoint_window = Window_Lvpoint.new
# 生成帮助窗口并初始化帮助文本
@help_window = Window_Lvup_Help.new
# 执行过渡
Graphics.transition
# 主循环
loop do
# 刷新游戏画面
Graphics.update
# 刷新输入信息
Input.update
# 刷新画面
update
# 如果切换画面就中断循环
if $scene != self
break
end
end
# 准备过渡
Graphics.freeze
# 释放窗口
@lvpoint_window.dispose
@command_window.dispose
@lvup_window.dispose
@help_window.dispose
end
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
# 刷新窗口
@command_window.update
# 选项明暗判断（因为太消耗资源，所以屏蔽掉了）
s_disable
@lvup_window.update
#=============================================================
# 按下 B 键的情况下
#=============================================================
if Input.trigger?(Input::B)
# 演奏取消 SE
Sound.play_cancel
# 切换到地图画面
$scene = Scene_Map.new
return
end
#=============================================================
# 按下 C 键的情况下
#=============================================================
if Input.trigger?(Input::C)
if @command_window.index == 5
# 演奏确定 SE
Sound.play_decision
# 将角色的剩余点数带回
$game_variables[@actor.id + LEVEL_UP_VARIABLE] = $point
# 将角色点数实际加上
@actor.atk += $temp_atk
@actor.def += $temp_def
@actor.agi += $temp_agi
@actor.spi += $temp_spi
@actor.maxhp += $temp_hp
@actor.maxmp += $temp_mp
# 切换到地图画面
$scene = Scene_Map.new
return
end
if @command_window.index == 6
# 演奏确定 SE
Sound.play_decision
# 将角色的剩余点数带入
$point = $game_variables[@actor.id + LEVEL_UP_VARIABLE]
# 初始化临时量
$temp_atk = 0
$temp_def = 0
$temp_agi = 0
$temp_spi = 0
$temp_hp = 0
$temp_mp = 0
@lvup_window.refresh
@lvpoint_window.refresh
return
end
if $point == 0
# 演奏冻结 SE
Sound.play_buzzer
return
end
case @command_window.index
when 0
# 演奏确定 SE
Sound.play_decision
$temp_hp += @hp
$temp_mp += @mp
$temp_atk += @hp_atk
$temp_def += @hp_def
$temp_agi += @hp_agi
$temp_spi += @hp_spi
$point -= 1
@lvup_window.refresh
@lvpoint_window.refresh
s_disable
return
when 1
# 演奏确定 SE
Sound.play_decision
$temp_atk += @atk_atk
$temp_hp += @atk_hp
$temp_mp += @atk_mp
$temp_def += @atk_def
$temp_agi += @atk_agi
$temp_spi += @atk_spi
$point -= 1
@lvup_window.refresh
@lvpoint_window.refresh
s_disable
return
when 2
# 演奏确定 SE
Sound.play_decision
$temp_def += @def_def
$temp_hp += @def_hp
$temp_mp += @def_mp
$temp_atk += @def_atk
$temp_agi += @def_agi
$temp_spi += @def_spi
$point -= 1
@lvup_window.refresh
@lvpoint_window.refresh
s_disable
return
when 3
# 演奏确定 SE
Sound.play_decision
$temp_agi += @agi_agi
$temp_hp += @agi_hp
$temp_mp += @agi_mp
$temp_atk += @agi_atk
$temp_def += @agi_def
$temp_spi += @agi_spi
$point -= 1
@lvup_window.refresh
@lvpoint_window.refresh
s_disable
return
when 4
# 演奏确定 SE
Sound.play_decision
$temp_spi += @spi_spi
$temp_hp += @spi_hp
$temp_mp += @spi_mp
$temp_atk += @spi_atk
$temp_def += @spi_def
$temp_agi += @spi_agi
$point -= 1
@lvup_window.refresh
@lvpoint_window.refresh
s_disable
return
end
end
#=============================================================
# 什么都没有按下的情况
#=============================================================
case @command_window.index
when 0 # 增加体力
temptext1 = @text_hp + @hp.to_s + "点 " + @text_atk + @hp_atk.to_s + "点 " + @text_def + @hp_def.to_s + "点"
temptext2 = @text_mp + @mp.to_s + "点 " + @text_agi + @hp_agi.to_s + "点 " + @text_spi + @hp_spi.to_s + "点"
@help_window.lvup_text(@text_hp_sc , @text_2 , temptext1 , temptext2)
when 1 # 增加力量
temptext1 = @text_hp + @atk_hp.to_s + "点 " + @text_atk + @atk_atk.to_s + "点 " + @text_def + @atk_def.to_s + "点"
temptext2 = @text_mp + @atk_mp.to_s + "点 " + @text_agi + @atk_agi.to_s + "点 " + @text_spi + @atk_spi.to_s + "点"
@help_window.lvup_text(@text_atk_sc , @text_2 , temptext1 , temptext2)
when 2 # 增加灵巧
temptext1 = @text_hp + @def_hp.to_s + "点 " + @text_atk + @def_agi.to_s + "点 " + @text_def + @def_def.to_s + "点"
temptext2 = @text_mp + @def_mp.to_s + "点 " + @text_agi + @def_agi.to_s + "点 " + @text_spi + @def_spi.to_s + "点"
@help_window.lvup_text(@text_def_sc , @text_2 , temptext1 , temptext2)
when 3 # 增加速度
temptext1 = @text_hp + @agi_hp.to_s + "点 " + @text_atk + @agi_atk.to_s + "点 " + @text_def + @agi_def.to_s + "点"
temptext2 = @text_mp + @agi_mp.to_s + "点 " + @text_agi + @agi_agi.to_s + "点 " + @text_spi + @agi_spi.to_s + "点"
@help_window.lvup_text(@text_agi_sc , @text_2 , temptext1 , temptext2)
when 4 # 增加魔力
temptext1 = @text_hp + @spi_hp.to_s + "点 " + @text_atk + @spi_atk.to_s + "点 " + @text_def + @spi_def.to_s + "点"
temptext2 = @text_mp + @spi_mp.to_s + "点 " + @text_agi + @spi_agi.to_s + "点 " + @text_spi + @spi_spi.to_s + "点"
@help_window.lvup_text(@text_spi_sc , @text_2 , temptext1 , temptext2)
when 5 # 保存设定
@help_window.lvup_text(@text_save)
when 6 # 点数重置
@help_window.lvup_text(@text_reset)
end
#=============================================================
# 按下R与L换人的情况
#=============================================================
if Input.trigger?(Input::R)
# 演奏光标 SE
Sound.play_cursor
# 移至下一位角色
@actor_index += 1
@actor_index %= $game_party.members.size
# 切换到别的状态画面
$scene = Scene_Lvup.new(@actor_index , @command_window.index)
return
end
# 按下 L 键的情况下
if Input.trigger?(Input::L)
# 演奏光标 SE
Sound.play_cursor
# 移至上一位角色
@actor_index += $game_party.members.size - 1
@actor_index %= $game_party.members.size
# 切换到别的状态画面
$scene = Scene_Lvup.new(@actor_index , @command_window.index)
return
end
end
#--------------------------------------------------------------------------
# ● 选项明暗判断
#--------------------------------------------------------------------------
def s_disable
# 判断剩余点数是否为0，如果为0，那么增加选项表示为暗色
if $point == 0
enabled = false
else
enabled = true
end
@command_window.draw_item(0,enabled)
@command_window.draw_item(1,enabled)
@command_window.draw_item(2,enabled)
@command_window.draw_item(3,enabled)
@command_window.draw_item(4,enabled)
end
end

复制代码

火鸡三毛老大 · 发表于 2008-3-23 19:05:14

脚本14 事件存度进度

class Scene_File
#--------------------------------------------------------------------------
# ● 执行保存
#--------------------------------------------------------------------------
def do_save(id = @index, from_interpreter = false)
if from_interpreter
file = File.open(make_filename(id), "wb")
else
file = File.open(@savefile_windows[id].filename, "wb")
end
write_save_data(file)
file.close
return_scene
end
#--------------------------------------------------------------------------
# ● 执行读取
#--------------------------------------------------------------------------
def do_load(id = @index, from_interpreter = false)
if from_interpreter
file = File.open(make_filename(id), "rb")
else
file = File.open(@savefile_windows[id].filename, "rb")
end
read_save_data(file)
file.close
$scene = Scene_Map.new
RPG::BGM.fade(1500)
Graphics.fadeout(60)
Graphics.wait(40)
@last_bgm.play
@last_bgs.play
end
end
class Game_Interpreter
#------------------------------------------------------------------
# ● 用事件脚本储存进度。方法：save(编号）
#------------------------------------------------------------------
def save(index = 0)
ts = Scene_File.new(true,false,true).do_save(index, true)
end
#------------------------------------------------------------------
# ● 用事件脚本读取进度。方法：load(编号）
#------------------------------------------------------------------
def load(index = 0)
ts = Scene_File.new(false,false,true).do_load(index, true)
end
end

复制代码

火鸡三毛老大 · 发表于 2008-3-23 19:06:37

脚本15 生成错误日志

#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================
module ERRSettings
#▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
#请设置以下东东
# 游戏测试的时候，是否保存错误信息？（true是false不是）
SaveErrorData = true
# 回溯跟踪错误的文件名
BackTraceFileName = "Backtrace.txt"
#▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲▲
end
module RPG
module_function
def version
case
when defined? Hangup then 1.0
else 2.0
end
end
def debug?
$TEST or $DEBUG
end
end
class Reset < Exception
end
class ScriptInterpreter
include ERRSettings
CallSystemError = true
def run
Graphics.freeze
$scene = Scene_Title.new
$scene.main until $scene.nil?
Graphics.transition(RPG.version == 1 ? 20 : 30)
exit
rescue Reset => exp
raise
rescue SystemExit => exp
raise
rescue Exception => exp
exception(exp)
exit
end
private
def exception(exp)
save_backtrace(exp) if SaveErrorData or RPG.debug?
print(get_error_message(exp))
raise if CallSystemError and RPG.debug?
end
def get_error_message(exp)
if RPG.debug?
bt = BackTrace.get_backtraces(exp.backtrace)
if exp.class.to_s=="SyntaxError"
$outexp="语法错误"
elsif exp.class.to_s=="NameError"
$outexp="变量未定义"
elsif exp.class.to_s=="NoMethodError"
$outexp="方法未定义"
elsif exp.class.to_s=="NoMemoryError"
$outexp="内存占有过大"
elsif exp.class.to_s=="ArgumentError"
$outexp="参数错误" #如果愿意此处可以自定义添加
else
$outexp=exp.class.to_s
end
msg = "◆ 发生错误\n"
msg += "\提醒您：请养成备份游戏文件的习惯。\n \n"
msg += "错误类型 :\n\t#{$outexp}\n"
msg += "错误信息 :\n\t#{exp.message}\n" if exp.message
msg += "错误可能发生的相关位置 :"
bt.each do |i|
msg += " \n\t#{i.name} : 第 #{i.line_no} 行"
msg += " : #{i.method_name}" if i.method_name
end
msg += " \n非常荣幸能为您发送错误报告\n"
else
msg = "内部发生错误强制结束。\n"
msg += "提醒您：请养成备份游戏文件的习惯。\n"
msg += "▲错误报告文件「#{BackTraceFileName}」已经保存。\n\n"
msg += " 非常荣幸能为您发送错误报告\n"
end
msg
end
def save_backtrace(exp)
bt = BackTrace.get_backtraces(exp.backtrace)
if exp.class.to_s=="SyntaxError"
$outexp="语法错误"
elsif exp.class.to_s=="NameError"
$outexp="变量未定义"
elsif exp.class.to_s=="NoMethodError"
$outexp="方法未定义"
elsif exp.class.to_s=="NoMemoryError"
$outexp="内存占有过大"
elsif exp.class.to_s=="ArgumentError"
$outexp="参数错误" #如果愿意此处可以自定义添加
else
$outexp=exp.class.to_s
end
msg = "◆ #{Time.now.strftime('%Y-%m-%d %H:%M:%S')}\n"
msg += "错误类型 :\n\t#{$outexp}\n"
msg += "错误信息 :\n\t#{exp.message}\n" if exp.message
msg += "错误可能发生的相关位置 :"
bt.each do |i|
msg += " \n\t#{i.name} : 第 #{i.line_no} 行"
msg += " : #{i.method_name}" if i.method_name
end
msg += "\n-----------------------------------\n"
File.open(BackTraceFileName, "a") do |file|
file.write(msg)
end
end
end
# 回溯跟踪错误的类
class BackTrace
BacktraceRegexp = /^Section([0-9]+):([0-9]+)(:in `(.+)')?$/
def self.get_backtraces(bt)
r = []
bt.each do |i|
r << self.new(i)
end
r
end
def initialize(line)
name, @line_no, @method_name =
BacktraceRegexp.match(line).to_a.values_at(1,2,4)
@name = get_section_name(name)
end
attr_accessor :name
attr_accessor :line_no
attr_accessor :method_name
private
def get_section_name(index)
$RGSS_SCRIPTS[index.to_i][1]
end
end
begin
si = ScriptInterpreter.new
si.run
end

复制代码

脚本16 战斗会回复一定%的HP

#===============================================================================
#战斗后回复HP
#===============================================================================
class Game_Battler
def remove_states_battle
for state in states
remove_state(state.id) if state.battle_only
end
n = maxhp * 50 #战斗后回复的HP百分比
n /= 100
self.hp += n
end
end

复制代码

火鸡三毛老大 · 发表于 2008-3-23 19:09:24

脚本17 滚动字幕

#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================
#——使用注意：默认会返回地图，如果需要返回开头，请将本脚本中的
#return_scene = Scene_Map.new改为return_scene = Scene_Title.new
class Scene_Credit
CREDIT=<<_END_
#这里输入字幕内容
_END_
end
class Scene_Credit
def initialize(return_scene = nil)
@sprite = Sprite.new
@sprite.bitmap = Bitmap.new("Graphics/Pictures/tit")
@sprite.x = 0
@sprite.y = 0
if return_scene.nil?
return_scene = Scene_Title.new
end
@return_scene = return_scene
end
def scene_start
credit_lines = CREDIT.split(/\n/)
credit_bitmap = Bitmap.new(576,32 * credit_lines.size)
credit_lines.each_index do |i|
line = credit_lines[i]
credit_bitmap.draw_text(0,i * 32,576,32,line,1)
end
@credit_sprite = Sprite.new(Viewport.new(0,50,576,432))
@credit_sprite.bitmap = credit_bitmap
@credit_sprite.oy = -430
@frame_index = 0
@last_flag = false
end
def scene_end
@credit_sprite.dispose
@sprite.dispose
end
def last?
return (@frame_index >= @credit_sprite.bitmap.height + 320)
end
def last
if not @last_flag
Audio.bgm_fade(10000)
@last_flag = true
@last_count = 0
else
@last_count += 1
end
if @last_count >= 300
$scene = @return_scene
end
end
def update
@frame_index += 1
return if cancel?
last if last?
@credit_sprite.oy += 1
end
def cancel?
if Input.trigger?(Input::B)
$scene = @return_scene
return true
end
return false
end
def main
scene_start
# 过渡
Graphics.transition
# 主循环
loop do
Graphics.update
Input.update
update
if $scene != self
break
end
end
# 准备过渡
Graphics.freeze
scene_end
end
end
#==============================================================================
#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================

复制代码

脚本18 物品颜色描绘
作者的话：
此脚本会和其他需要设定注释的脚本冲突。解决方法么，还在研究...
如果对16进制颜色没需求的话（个人感觉系统自己设定好的颜色足够了），请使用下面这个脚本
使用方法同上不过不用打[] 另外没有16进制功能
如果有其他脚本的设定用#分隔开就ok 可以一起用。

#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================
module RPG
class BaseItem
def name_color_66RPG
name_color = @note.split(/#/)[0]
return name_color != nil ? name_color.to_i: 0
end
end
end
class Window_Base < Window
#定义透明色
def disabled_color
return Color.new(255, 255, 255, 128)
end
def draw_item_name(item, x, y, enabled = true)
if item != nil
draw_icon(item.icon_index, x, y, enabled)
self.contents.font.color = text_color(item.name_color_66RPG)
opacity = self.contents.font.color == disabled_color ? 128 : 255
self.contents.draw_text(x + 24, y, 172, WLH, item.name.to_s)
end
end
end
#==============================================================================
#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================

复制代码

火鸡三毛老大 · 发表于 2008-3-23 19:10:34

脚本19 VX开头画面特效

#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================
#==============================================================================
# ■ Scene_Title
#------------------------------------------------------------------------------
# 　タイトル画面の処理を行うクラスです。
#==============================================================================
class Scene_Title < Scene_Base
WEATHER = 4 # 使用自定义效果(0：无，1：雨，2：暴风雨，3：雪，4：自定义)
MAXNUMBER = 18 # 天气图片数量
WEATHER_FILE = "Graphics/Pictures/Title_starlong.png"
# 自定义图片路径，这个文件是流星雨
BLEND_TYPE = 1 # 合成方式(0：普通，1：加法，2：减法)
WEATHER_X = 5 # X方向每回合减少象素
WEATHER_Y = 5 # Y方向每回合减少象素
WEATHER_OPACITY = 2 #每回合减低透明度
START_OPACITY = 200 #出现时的透明度
RAND_X = 1200 # 随机X范围
RAND_Y = 600 # 随机Y范围
HEIGHT = -600 # 出现时候的屏幕Y
WIDTH = 100 # 出现时候的屏幕X
#--------------------------------------------------------------------------
# ● メイン処理
#--------------------------------------------------------------------------
def main
if $BTEST # 戦闘テストの場合
battle_test # 戦闘テストの開始処理
else # 通常のプレイの場合
super # 本来のメイン処理
end
end
#--------------------------------------------------------------------------
# ● 開始処理
#--------------------------------------------------------------------------
def start
super
load_database # データベースをロード
create_game_objects # ゲームオブジェクトを作成
check_continue # コンティニュー有効判定
create_title_graphic # タイトルグラフィックを作成
@ox = 0
@oy = 0
color1 = Color.new(255, 255, 255, 255)
color2 = Color.new(255, 255, 255, 128)
@rain_bitmap = Bitmap.new(7, 56)
for i in 0..6
@rain_bitmap.fill_rect(6-i, i*8, 1, 8, color1)
end
@storm_bitmap = Bitmap.new(34, 64)
for i in 0..31
@storm_bitmap.fill_rect(33-i, i*2, 1, 2, color2)
@storm_bitmap.fill_rect(32-i, i*2, 1, 2, color1)
@storm_bitmap.fill_rect(31-i, i*2, 1, 2, color2)
end
@snow_bitmap = Bitmap.new(6, 6)
@snow_bitmap.fill_rect(0, 1, 6, 4, color2)
@snow_bitmap.fill_rect(1, 0, 4, 6, color2)
@snow_bitmap.fill_rect(1, 2, 4, 2, color1)
@snow_bitmap.fill_rect(2, 1, 2, 4, color1)
@sprites = []
for i in 1..40
sprite = Sprite.new
case WEATHER
when 1
sprite.bitmap = @rain_bitmap
when 2
sprite.bitmap = @storm_bitmap
when 3
sprite.bitmap = @snow_bitmap
when 4
sprite.bitmap = Bitmap.new(WEATHER_FILE)
end
sprite.z = 1000
sprite.x = -1000
sprite.y = -1000
sprite.visible = (i <= MAXNUMBER)
sprite.blend_type = BLEND_TYPE
sprite.opacity = START_OPACITY
@sprites.push(sprite)
end
weather_update
create_command_window # コマンドウィンドウを作成
play_title_music # タイトル画面の音楽を演奏
end
#--------------------------------------------------------------------------
# ● トランジション実行
#--------------------------------------------------------------------------
def perform_transition
Graphics.transition(20)
end
#--------------------------------------------------------------------------
# ● 開始後処理
#--------------------------------------------------------------------------
def post_start
super
open_command_window
end
#--------------------------------------------------------------------------
# ● 終了前処理
#--------------------------------------------------------------------------
def pre_terminate
super
close_command_window
end
#--------------------------------------------------------------------------
# ● 終了処理
#--------------------------------------------------------------------------
def terminate
super
dispose_command_window
snapshot_for_background
@sprite.bitmap.dispose
@sprite.dispose
for sprite in @sprites
sprite.dispose
end
@rain_bitmap.dispose
@storm_bitmap.dispose
@snow_bitmap.dispose
dispose_title_graphic
end
def weather_update
return if WEATHER == 0
for i in 1..MAXNUMBER
sprite = @sprites[i]
if sprite == nil
break
end
if WEATHER == 1
sprite.x -= 2
sprite.y += 16
sprite.opacity -= 8
end
if WEATHER == 2
sprite.x -= 8
sprite.y += 16
sprite.opacity -= 12
end
if WEATHER == 3
sprite.x -= 2
sprite.y += 8
sprite.opacity -= 8
end
if WEATHER == 4
sprite.x -= WEATHER_X
sprite.y += WEATHER_Y
sprite.opacity -= WEATHER_OPACITY
end
x = sprite.x - @ox
y = sprite.y - @oy
if sprite.opacity < 32 or x < -100 or x > 750 or y < -1000 or y > 500
sprite.x = rand(RAND_X) + WIDTH + @ox
sprite.y = rand(RAND_Y) + HEIGHT + @oy
sprite.opacity = START_OPACITY
end
end
end
#--------------------------------------------------------------------------
# ● フレーム更新
#--------------------------------------------------------------------------
def update
super
@command_window.update
if Input.trigger?(Input::C)
case @command_window.index
when 0 # ニューゲーム
command_new_game
when 1 # コンティニュー
command_continue
when 2 # シャットダウン
command_shutdown
end
end
weather_update
end
#--------------------------------------------------------------------------
# ● データベースのロード
#--------------------------------------------------------------------------
def load_database
$data_actors = load_data("Data/Actors.rvdata")
$data_classes = load_data("Data/Classes.rvdata")
$data_skills = load_data("Data/Skills.rvdata")
$data_items = load_data("Data/Items.rvdata")
$data_weapons = load_data("Data/Weapons.rvdata")
$data_armors = load_data("Data/Armors.rvdata")
$data_enemies = load_data("Data/Enemies.rvdata")
$data_troops = load_data("Data/Troops.rvdata")
$data_states = load_data("Data/States.rvdata")
$data_animations = load_data("Data/Animations.rvdata")
$data_common_events = load_data("Data/CommonEvents.rvdata")
$data_system = load_data("Data/System.rvdata")
$data_areas = load_data("Data/Areas.rvdata")
end
#--------------------------------------------------------------------------
# ● 戦闘テスト用データベースのロード
#--------------------------------------------------------------------------
def load_bt_database
$data_actors = load_data("Data/BT_Actors.rvdata")
$data_classes = load_data("Data/BT_Classes.rvdata")
$data_skills = load_data("Data/BT_Skills.rvdata")
$data_items = load_data("Data/BT_Items.rvdata")
$data_weapons = load_data("Data/BT_Weapons.rvdata")
$data_armors = load_data("Data/BT_Armors.rvdata")
$data_enemies = load_data("Data/BT_Enemies.rvdata")
$data_troops = load_data("Data/BT_Troops.rvdata")
$data_states = load_data("Data/BT_States.rvdata")
$data_animations = load_data("Data/BT_Animations.rvdata")
$data_common_events = load_data("Data/BT_CommonEvents.rvdata")
$data_system = load_data("Data/BT_System.rvdata")
end
#--------------------------------------------------------------------------
# ● 各種ゲームオブジェクトの作成
#--------------------------------------------------------------------------
def create_game_objects
$game_temp = Game_Temp.new
$game_message = Game_Message.new
$game_system = Game_System.new
$game_switches = Game_Switches.new
$game_variables = Game_Variables.new
$game_self_switches = Game_SelfSwitches.new
$game_actors = Game_Actors.new
$game_party = Game_Party.new
$game_troop = Game_Troop.new
$game_map = Game_Map.new
$game_player = Game_Player.new
end
#--------------------------------------------------------------------------
# ● コンティニュー有効判定
#--------------------------------------------------------------------------
def check_continue
@continue_enabled = (Dir.glob('Save*.rvdata').size > 0)
end
#--------------------------------------------------------------------------
# ● タイトルグラフィックの作成
#--------------------------------------------------------------------------
def create_title_graphic
@sprite = Sprite.new
@sprite.bitmap = Cache.system("Title")
end
#--------------------------------------------------------------------------
# ● タイトルグラフィックの解放
#--------------------------------------------------------------------------
def dispose_title_graphic
@sprite.bitmap.dispose
@sprite.dispose
end
#--------------------------------------------------------------------------
# ● コマンドウィンドウの作成
#--------------------------------------------------------------------------
def create_command_window
s1 = Vocab::new_game
s2 = Vocab::continue
s3 = Vocab::shutdown
@command_window = Window_Command.new(172, [s1, s2, s3])
@command_window.x = (544 - @command_window.width) / 2
@command_window.y = 288
if @continue_enabled # コンティニューが有効な場合
@command_window.index = 1 # カーソルを合わせる
else # 無効な場合
@command_window.draw_item(1, false) # コマンドを半透明表示にする
end
@command_window.openness = 0
@command_window.open
end
#--------------------------------------------------------------------------
# ● コマンドウィンドウの解放
#--------------------------------------------------------------------------
def dispose_command_window
@command_window.dispose
end
#--------------------------------------------------------------------------
# ● コマンドウィンドウを開く
#--------------------------------------------------------------------------
def open_command_window
@command_window.open
begin
@command_window.update
Graphics.update
end until @command_window.openness == 255
end
#--------------------------------------------------------------------------
# ● コマンドウィンドウを閉じる
#--------------------------------------------------------------------------
def close_command_window
@command_window.close
begin
@command_window.update
Graphics.update
end until @command_window.openness == 0
end
#--------------------------------------------------------------------------
# ● タイトル画面の音楽演奏
#--------------------------------------------------------------------------
def play_title_music
$data_system.title_bgm.play
RPG::BGS.stop
RPG::ME.stop
end
#--------------------------------------------------------------------------
# ● プレイヤーの初期位置存在チェック
#--------------------------------------------------------------------------
def confirm_player_location
if $data_system.start_map_id == 0
print "プレイヤーの初期位置が設定されていません。"
exit
end
end
#--------------------------------------------------------------------------
# ● コマンド : ニューゲーム
#--------------------------------------------------------------------------
def command_new_game
confirm_player_location
Sound.play_decision
$game_party.setup_starting_members # 初期パーティ
$game_map.setup($data_system.start_map_id) # 初期位置のマップ
$game_player.moveto($data_system.start_x, $data_system.start_y)
$game_player.refresh
$scene = Scene_Map.new
RPG::BGM.fade(1500)
close_command_window
Graphics.fadeout(60)
Graphics.wait(40)
Graphics.frame_count = 0
RPG::BGM.stop
$game_map.autoplay
end
#--------------------------------------------------------------------------
# ● コマンド : コンティニュー
#--------------------------------------------------------------------------
def command_continue
if @continue_enabled
Sound.play_decision
$scene = Scene_File.new(false, true, false)
else
Sound.play_buzzer
end
end
#--------------------------------------------------------------------------
# ● コマンド : シャットダウン
#--------------------------------------------------------------------------
def command_shutdown
Sound.play_decision
RPG::BGM.fade(800)
RPG::BGS.fade(800)
RPG::ME.fade(800)
$scene = nil
end
#--------------------------------------------------------------------------
# ● 戦闘テスト
#--------------------------------------------------------------------------
def battle_test
load_bt_database # 戦闘テスト用データベースをロード
create_game_objects # ゲームオブジェクトを作成
Graphics.frame_count = 0 # プレイ時間を初期化
$game_party.setup_battle_test_members
$game_troop.setup($data_system.test_troop_id)
$game_troop.can_escape = true
$game_system.battle_bgm.play
snapshot_for_background
$scene = Scene_Battle.new
end
end
#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================

复制代码

脚本20 调节当前音乐的响度和节奏

#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================
#调节当前音乐的响度和节奏作者：superufo
#使用方法：
#调节响度：bgm/bgs_volume(响度) 其中响度为1-100间的整数
#调节节奏：bgm/bgs_pitch(节奏) 其中节奏为1-100间的整数
#调节只会作用于当前音乐
#如有问题请通过胃转告我
class Game_Interpreter
def bgm_volume(volume)
bgm = RPG::BGM.last
Audio.bgm_play("Audio/BGM/" + bgm.name,volume ,bgm.pitch) unless bgm.name.empty?
end
def bgs_volume(volume)
bgs = RPG::BGS.last
Audio.bgs_play("Audio/BGS/" + bgs.name,volume ,bgs.pitch) unless bgs.name.empty?
end
def bgm_pitch(pitch)
bgm = RPG::BGM.last
Audio.bgm_play("Audio/BGM/" + bgm.name,bgm.volume ,pitch) unless bgm.name.empty?
end
def bgs_pitch(pitch)
bgs = RPG::BGS.last
Audio.bgs_play("Audio/BGS/" + bgs.name,bgs.volume ,pitch) unless bgs.name.empty?
end
end
#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================

复制代码

火鸡三毛老大 · 发表于 2008-3-23 19:12:45

脚本20 游戏窗口中显示金钱

#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================
#显示金钱 by 小夏
#经superufo的帮助一个脚本菜鸟做的不太完美将就着用吧
class Window_goldWindow < Window_Base
def initialize
super(0,0,200,60)
self.opacity = 150
self.visible = false
refresh
end
def refresh
self.contents.clear
self.contents.draw_text(0, 0, 80, WLH, "金钱：")
self.contents.draw_text(80, 0, 40, WLH, $game_party.gold)
self.contents.draw_text(100,0, 40, WLH, Vocab::gold, 2)
end
end
class Scene_Map < Scene_Base
alias goldWindow_start start
alias goldWindow_update
update
alias goldWindow_terminate terminate
def start
goldWindow_start
@goldWindow = Window_goldWindow.new
end
def update
@goldWindow.update
@goldWindow.refresh
@goldWindow.visible = true
goldWindow_update
end
def terminate
goldWindow_terminate
@goldWindow.dispose
end
end
#小夏作品
#转载者注明这个是superufo和小夏的作品谢谢合作
#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================

复制代码

脚本21 用中文顯示數值

#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================
class Window_Base < Window
#===========================================================
# 获取中文数字
# 除了10、100、1000、10000会返回其中文之外
# 只会取其参数的個位數
#===========================================================
def number(num)
ch_number = ["零", "一", "二", "三", "四",
"五", "六", "七", "八", "九",
"十", "百", "千", "万"]
if num == 100
return ch_number[11]
elsif num == 1000
return ch_number[12]
elsif num == 10000
return ch_number[13]
elsif num == 10
return ch_number[10]
else
return ch_number[num%10]
end
end
# 显示中文数字
def change_to_ch(num)
if num < 0
rnum = "负 "
else
rnum = ""
end
num = num.abs
if num <= 10
return rnum+number(num)
else
# 个
ones = number(num%10)
# 十
tens = number(num/10%10)# if num%100!=0
# 百
huns = number(num/100%10)# if num%1000!=0
# 千
thos = number(num/1000%10)
# 万
tths = number(num/10000%10)
# 十万
hths = number(num/100000%10)
# 百万
mils = number(num/1000000%10)
# 千万
tmis = number(num/10000000%10)
# 数字小於100
if num < 100
if num%10==0
rnum += tens+number(10)
else
if num<20
rnum += number(10)+ones
else
rnum += tens+number(10)+ones
end
end
end
# 数字100～999
if num<1000 and num>=100
if num%100==0
rnum += huns+number(100)
else
if tens != number(0)
rnum += huns+number(100)+tens+number(10)+ones
else
rnum += huns+number(100)+number(0)+ones
end
end
end
# 数字1000～9999
if num<10000 and num>=1000
if num%1000==0
rnum += thos+number(1000)
else
if huns != number(0)
if tens != number(0)
rnum += thos+number(1000)+huns+number(100)+tens+number(10)+ones
else
rnum += thos+number(1000)+huns+number(100)+tens+ones
end
else
rnum += thos+number(1000)+tens+ones
end
end
end
# 数字10000～99999
if num>=10000
if num%10000==0
rnum += tths+number(10000)
else
if tths != number(0)
if thos != number(0)
if huns != number(0)
if tens != number(0)
rnum += tths+number(10000)+thos+number(1000)+
huns+number(100)+tens+number(10)+ones
else
rnum += tths+number(10000)+thos+number(1000)+
huns+number(100)+tens+ones
end
else
rnum += tths+number(10000)+thos+number(1000)+huns+ones
end
else
rnum += tths+number(10000)+thos+ones
end
else
rnum += number(10000)+number(0)+ones
end
end
# 数字100000~999999
if num>=100000 and num<1000000
rnum = hths+number(10)+rnum
end
# 数字1000000~9999999
if num>=1000000 and num<10000000
if hths != number(0)
rnum = mils + number(100) + hths+number(10)+rnum
else
rnum = mils + number(100) + number(0)+rnum
end
end
# 数字10000000~99999999
if num>=10000000 and num<100000000
if mils != number(0)
if hths != number(0)
rnum = tmis + number(1000) + mils + number(100) +
hths+number(10)+rnum
else
rnum = tmis + number(1000) + mils + number(100) +
number(0)+rnum
end
else
rnum = tmis + number(1000) + number(0)+rnum
end
end
end
return rnum
end
end
# 显示纯数字
def change_to_ch_pn(num)
if num < 0
rnum = "负 "
else
rnum = ""
end
num = num.abs
if num <= 10
return rnum+number(num)
else
# 个
ones = number(num%10)
# 十
tens = number(num/10%10)# if num%100!=0
# 百
huns = number(num/100%10)# if num%1000!=0
# 千
thos = number(num/1000%10)
# 万
tths = number(num/10000%10)
# 十万
hths = number(num/100000%10)
# 百万
mils = number(num/1000000%10)
# 千万
tmis = number(num/10000000%10)
if num < 100
if num%10==0
rnum += tens+number(10)
else
if num<20
rnum += number(10)+ones
else
rnum += tens+ones
end
end
end
if num<1000 and num>=100
if num%100==0
rnum += huns+number(100)
else
rnum += huns+tens+ones
end
end
if num<10000 and num>=1000
if num%1000==0
rnum += thos+number(1000)
else
rnum += thos+huns+tens+ones
end
end
if num<100000 and num>=10000
if num%10000==0
rnum += tths+number(10000)
else
rnum += tths+thos+huns+ones
end
end
if num<1000000 and num>=100000
if num%100000==0
rnum += hths+number(10)+number(10000)
else
rnum += hths+tths+thos+huns+tens+ones
end
end
if num<10000000 and num>=1000000
if num%1000000==0
rnum += mils+number(100)+number(10000)
else
rnum += mils+hths+tths+thos+huns+tens+ones
end
end
if num<100000000 and num>=10000000
if num%10000000==0
rnum += tmis+number(1000)+number(10000)
else
rnum += tmis+mils+hths+tths+thos+huns+tens+ones
end
end
return rnum
end
end
end
#============================================================================
# 函数重新定义
# 显示微中文数字
#============================================================================
class Window_Base < Window
#--------------------------------------------------------------------------
# ● レベルの描画
# actor : アクター
# x : 描画先 X 座標
# y : 描画先 Y 座標
#--------------------------------------------------------------------------
def draw_actor_level(actor, x, y)
self.contents.font.color = system_color
self.contents.draw_text(x, y, 32, WLH, Vocab::level_a)
self.contents.font.color = normal_color
clevel = change_to_ch(actor.level)
self.contents.draw_text(x + 32, y, 24, WLH, clevel, 2)
end
#--------------------------------------------------------------------------
# ● HP の描画
# actor : アクター
# x : 描画先 X 座標
# y : 描画先 Y 座標
# width : 幅
#--------------------------------------------------------------------------
def draw_actor_hp(actor, x, y, width = 120)
draw_actor_hp_gauge(actor, x, y, width)
self.contents.font.color = system_color
self.contents.draw_text(x, y, 30, WLH, Vocab::hp_a)
self.contents.font.color = hp_color(actor)
xr = x + width
chp = change_to_ch_pn(actor.hp)
chpm= change_to_ch_pn(actor.maxhp)
if width < 120
self.contents.draw_text(xr - 40, y, 40, WLH, chp, 2)
else
self.contents.draw_text(xr - 90, y, 40, WLH, chp, 2)
self.contents.font.color = normal_color
self.contents.draw_text(xr - 50, y, 10, WLH, "/", 2)
self.contents.draw_text(xr - 40, y, 40, WLH, chpm, 2)
end
end
#--------------------------------------------------------------------------
# ● MP の描画
# actor : アクター
# x : 描画先 X 座標
# y : 描画先 Y 座標
# width : 幅
#--------------------------------------------------------------------------
def draw_actor_mp(actor, x, y, width = 120)
draw_actor_mp_gauge(actor, x, y, width)
self.contents.font.color = system_color
self.contents.draw_text(x, y, 30, WLH, Vocab::mp_a)
self.contents.font.color = mp_color(actor)
xr = x + width
cmp = change_to_ch_pn(actor.mp)
cmpm= change_to_ch_pn(actor.maxmp)
if width < 120
self.contents.draw_text(xr - 40, y, 40, WLH, cmp, 2)
else
self.contents.draw_text(xr - 90, y, 40, WLH, cmp, 2)
self.contents.font.color = normal_color
self.contents.draw_text(xr - 50, y, 10, WLH, "/", 2)
self.contents.draw_text(xr - 40, y, 40, WLH, cmpm, 2)
end
end
#--------------------------------------------------------------------------
# ● 能力値の描画
# actor : アクター
# x : 描画先 X 座標
# y : 描画先 Y 座標
# type : 能力値の種類 (0～3)
#--------------------------------------------------------------------------
def draw_actor_parameter(actor, x, y, type)
case type
when 0
parameter_name = Vocab::atk
parameter_value = actor.atk
when 1
parameter_name = Vocab::def
parameter_value = actor.def
when 2
parameter_name = Vocab::spi
parameter_value = actor.spi
when 3
parameter_name = Vocab::agi
parameter_value = actor.agi
end
self.contents.font.color = system_color
cparam = change_to_ch_pn(parameter_value)
width = self.contents.text_size(cparam).width
self.contents.draw_text(x, y, 120, WLH, parameter_name)
self.contents.font.color = normal_color
self.contents.draw_text(x+120, y, width, WLH, cparam, 0)
end
#--------------------------------------------------------------------------
# ● 通貨単位つきの数値描画
# value : 数値 (所持金など)
# x : 描画先 X 座標
# y : 描画先 Y 座標
# width : 幅
#--------------------------------------------------------------------------
def draw_currency_value(value, x, y, width)
cx = contents.text_size(Vocab::gold).width
self.contents.font.color = normal_color
vgold = change_to_ch(value)
self.contents.draw_text(x, y, width-cx-2, WLH, vgold, 2)
self.contents.font.color = system_color
self.contents.draw_text(x, y, width, WLH, Vocab::gold, 2)
end
end
class Window_Status < Window_Base
#--------------------------------------------------------------------------
# ● 経験値情報の描画
# x : 描画先 X 座標
# y : 描画先 Y 座標
#--------------------------------------------------------------------------
def draw_exp_info(x, y)
s1 = change_to_ch_pn(@actor.exp_s)
s2 = change_to_ch_pn(@actor.next_rest_exp_s)
s_next = sprintf(Vocab::ExpNext, Vocab::level)
self.contents.font.color = system_color
self.contents.draw_text(x, y + WLH * 0, 180, WLH, Vocab::ExpTotal)
self.contents.draw_text(x, y + WLH * 2, 180, WLH, s_next)
self.contents.font.color = normal_color
self.contents.draw_text(x, y + WLH * 1, 180, WLH, s1, 2)
self.contents.draw_text(x, y + WLH * 3, 180, WLH, s2, 2)
end
end
class Window_EquipStatus < Window_Base
#--------------------------------------------------------------------------
# ● 能力値の描画
# x : 描画先 X 座標
# y : 描画先 Y 座標
# type : 能力値の種類 (0～3)
#--------------------------------------------------------------------------
def draw_parameter(x, y, type)
case type
when 0
name = Vocab::atk
value = @actor.atk
new_value = @new_atk
when 1
name = Vocab::def
value = @actor.def
new_value = @new_def
when 2
name = Vocab::spi
value = @actor.spi
new_value = @new_spi
when 3
name = Vocab::agi
value = @actor.agi
new_value = @new_agi
end
cv = change_to_ch_pn(value)
self.contents.font.color = system_color
self.contents.draw_text(x + 4, y, 80, WLH, name)
self.contents.font.color = normal_color
self.contents.draw_text(x + 90, y, 30, WLH, cv, 2)
self.contents.font.color = system_color
self.contents.draw_text(x + 122, y, 20, WLH, "→", 1)
if new_value != nil
ncv = change_to_ch_pn(new_value)
self.contents.font.color = new_parameter_color(cv, ncv)
self.contents.draw_text(x + 142, y, 30, WLH, ncv, 2)
end
end
end
#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================

复制代码

殤。 · 发表于 2008-3-23 19:14:08

提示: 作者被禁止或删除内容自动屏蔽

火鸡三毛老大 · 发表于 2008-3-23 19:14:33

脚本22 地图名显示脚本

————————————————————————————————————
# 本脚本来自www.66rpg.com，转载和使用请保留此信息
# ————————————————————————————————————
#==============================================================================
# ■ 地图名显示脚本
# by Yuee
#------------------------------------------------------------------------------
# 在Main的上方插入一个页，将本脚本复制到那页中即可
#==============================================================================
#==============================================================================
# ■ Window_MapName
#------------------------------------------------------------------------------
# 　显示地图名字的窗口。
#==============================================================================
class Window_MapName < Window_Base
#--------------------------------------------------------------------------
# ● 类常量定义
#--------------------------------------------------------------------------
# 暂时屏蔽用的开关
SWITCH = 6
# 窗口位置设定
NAME_X = 544-220 # 矩形左上顶点X坐标
NAME_Y = 0 # 矩形左上顶点Y坐标
NAME_W = 220 # 矩形宽
NAME_H = 60 # 矩形高
# 显示时间设置
SHOW_TIME_0 = 10 # 地图名出现前等待的帧数
SHOW_TIME_1 = 10 # 地图名从不可见变成可见的帧数
SHOW_TIME_2 = 34 # 地图名完全可见的帧数
SHOW_TIME_3 = 16 # 地图名从可见变成不可见的帧数
# 完全可见时的透明度设置
OPACITY_1 = 244 # 边框
OPACITY_2 = 100 # 背景
OPACITY_3 = 255 # 文字
# 地图名字的颜色
TEXT_COLOR = Color.new(255, 255, 255, 255)
#--------------------------------------------------------------------------
# ● 初始化状态
#--------------------------------------------------------------------------
def initialize
super(NAME_X , NAME_Y, NAME_W, NAME_H)
# 初始化窗口透明度
self.opacity = 0
self.back_opacity = 0
self.z = 9999
self.contents_opacity = 0
self.contents = Bitmap.new(width - 32, height - 32)
# 剩余帧数初始化
@show_time = 0
end
#--------------------------------------------------------------------------
# ● 输出文字
#--------------------------------------------------------------------------
def setname
if $game_switches[SWITCH]
# 获取地图ID
newid = $game_map.map_id
time = SHOW_TIME_1 + SHOW_TIME_2 + SHOW_TIME_3
# 如果现在的地图的ID不是刚才显示的地图ID则开始显示
if newid != @id
@id = newid
@show_time = SHOW_TIME_0 + SHOW_TIME_1 + SHOW_TIME_2 + SHOW_TIME_3
# 剩余帧数为0是时，全部窗口透明
elsif @show_time < 1
self.opacity = 0
self.back_opacity = 0
self.contents_opacity = 0
return
end
self.contents.clear
self.contents.font.color = TEXT_COLOR
# 描绘地图名
self.contents.draw_text(4, 0 , width - 40, 32, $data_mapinfos[@id].name, 1)
# 根本帧数设定窗口透明度
if @show_time > (SHOW_TIME_2 + SHOW_TIME_3)
self.opacity = @show_time < time ? (((OPACITY_1 / SHOW_TIME_1) * (time - @show_time)).to_i) : 0
self.back_opacity = @show_time < time ? (((OPACITY_2 / SHOW_TIME_1 )* (time - @show_time)).to_i) : 0
self.contents_opacity = @show_time < time ? (((OPACITY_3 / SHOW_TIME_1) * (time - @show_time)).to_i) : 0
else
self.opacity = @show_time < (SHOW_TIME_3 / 16 * 14) ? ((OPACITY_1 / SHOW_TIME_3) * @show_time).to_i : OPACITY_1
self.back_opacity = @show_time < (SHOW_TIME_3 / 16 * 9) ? ((OPACITY_2 / SHOW_TIME_3) * @show_time).to_i : OPACITY_2
self.contents_opacity = @show_time < SHOW_TIME_3 ? ((OPACITY_3 / SHOW_TIME_3)* @show_time).to_i : OPACITY_3
end
@show_time -= 1
$game_switches[SWITCH] = false if @show_time < 0
end
end
end
#==============================================================================
# ■ Scene_Map
#------------------------------------------------------------------------------
# 　处理地图画面的类。（追加定义）
#==============================================================================
class Scene_Map
alias smn_start start
def start
@mapname = Window_MapName.new
smn_start
end
alias smn_dispose terminate
def terminate
smn_dispose
@mapname.dispose
end
alias smn_update update
def update
smn_update
@mapname.setname
end
end
#==============================================================================
# ■ Scene_Title
#------------------------------------------------------------------------------
# 　处理标题画面的类。（追加定义）
#==============================================================================
class Scene_Title
alias smn_load load_database
def load_database
# 读取地图信息文件
$data_mapinfos = load_data("Data/MapInfos.rvdata")
smn_load
end
end
#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================

复制代码

脚本23 RMVX版图片标题菜单

#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================
#==============================================================================
# ■ Scene_Title
#------------------------------------------------------------------------------
# 　タイトル画面の処理を行うクラスです。
#==============================================================================
class Scene_Title < Scene_Base
#--------------------------------------------------------------------------
# ● メイン処理
#--------------------------------------------------------------------------
def main
if $BTEST # 戦闘テストの場合
battle_test # 戦闘テストの開始処理
else # 通常のプレイの場合
super # 本来のメイン処理
end
end
#--------------------------------------------------------------------------
# ● 開始処理
#--------------------------------------------------------------------------
def start
super
load_database # データベースをロード
create_game_objects # ゲームオブジェクトを作成
check_continue # コンティニュー有効判定
create_title_graphic # タイトルグラフィックを作成
#create_command_window # コマンドウィンドウを作成
new_command
play_title_music # タイトル画面の音楽を演奏
end
#--------------------------------------------------------------------------
# ● トランジション実行
#--------------------------------------------------------------------------
def perform_transition
Graphics.transition(20)
end
#--------------------------------------------------------------------------
# ● 開始後処理
#--------------------------------------------------------------------------
def post_start
super
#open_command_window
end
#--------------------------------------------------------------------------
# ● 終了前処理
#--------------------------------------------------------------------------
def pre_terminate
super
#close_command_window
end
#--------------------------------------------------------------------------
# ● 終了処理
#--------------------------------------------------------------------------
def terminate
super
#dispose_command_window
snapshot_for_background
dispose_title_graphic
end
#--------------------------------------------------------------------------
# ● フレーム更新
#--------------------------------------------------------------------------
def update
super
#@command_window.update
new_inputupdate
if Input.trigger?(Input::C)
case @command_index
when 0 # ニューゲーム
command_new_game
when 1 # コンティニュー
command_continue
when 2 # シャットダウン
command_shutdown
end
end
end
#--------------------------------------------------------------------------
# ● データベースのロード
#--------------------------------------------------------------------------
def load_database
$data_actors = load_data("Data/Actors.rvdata")
$data_classes = load_data("Data/Classes.rvdata")
$data_skills = load_data("Data/Skills.rvdata")
$data_items = load_data("Data/Items.rvdata")
$data_weapons = load_data("Data/Weapons.rvdata")
$data_armors = load_data("Data/Armors.rvdata")
$data_enemies = load_data("Data/Enemies.rvdata")
$data_troops = load_data("Data/Troops.rvdata")
$data_states = load_data("Data/States.rvdata")
$data_animations = load_data("Data/Animations.rvdata")
$data_common_events = load_data("Data/CommonEvents.rvdata")
$data_system = load_data("Data/System.rvdata")
$data_areas = load_data("Data/Areas.rvdata")
end
#--------------------------------------------------------------------------
# ● 戦闘テスト用データベースのロード
#--------------------------------------------------------------------------
def load_bt_database
$data_actors = load_data("Data/BT_Actors.rvdata")
$data_classes = load_data("Data/BT_Classes.rvdata")
$data_skills = load_data("Data/BT_Skills.rvdata")
$data_items = load_data("Data/BT_Items.rvdata")
$data_weapons = load_data("Data/BT_Weapons.rvdata")
$data_armors = load_data("Data/BT_Armors.rvdata")
$data_enemies = load_data("Data/BT_Enemies.rvdata")
$data_troops = load_data("Data/BT_Troops.rvdata")
$data_states = load_data("Data/BT_States.rvdata")
$data_animations = load_data("Data/BT_Animations.rvdata")
$data_common_events = load_data("Data/BT_CommonEvents.rvdata")
$data_system = load_data("Data/BT_System.rvdata")
end
#--------------------------------------------------------------------------
# ● 各種ゲームオブジェクトの作成
#--------------------------------------------------------------------------
def create_game_objects
$game_temp = Game_Temp.new
$game_message = Game_Message.new
$game_system = Game_System.new
$game_switches = Game_Switches.new
$game_variables = Game_Variables.new
$game_self_switches = Game_SelfSwitches.new
$game_actors = Game_Actors.new
$game_party = Game_Party.new
$game_troop = Game_Troop.new
$game_map = Game_Map.new
$game_player = Game_Player.new
end
#--------------------------------------------------------------------------
# ● コンティニュー有効判定
#--------------------------------------------------------------------------
def check_continue
@continue_enabled = (Dir.glob('Save*.rvdata').size > 0)
end
#--------------------------------------------------------------------------
# ● タイトルグラフィックの作成
#--------------------------------------------------------------------------
def create_title_graphic
@sprite_1 = Sprite.new
@sprite_1.bitmap = Cache.system("Title")
end
#--------------------------------------------------------------------------
# ● タイトルグラフィックの解放
#--------------------------------------------------------------------------
def dispose_title_graphic
@sprite_1.bitmap.dispose
@sprite_1.dispose
for i in 0..5
@sprite[i].bitmap.dispose
@sprite[i].dispose
end
end
#--------------------------------------------------------------------------
# ● タイトル画面の音楽演奏
#--------------------------------------------------------------------------
def play_title_music
$data_system.title_bgm.play
RPG::BGS.stop
RPG::ME.stop
end
#--------------------------------------------------------------------------
# ● プレイヤーの初期位置存在チェック
#--------------------------------------------------------------------------
def confirm_player_location
if $data_system.start_map_id == 0
print "プレイヤーの初期位置が設定されていません。"
exit
end
end
#--------------------------------------------------------------------------
# ● コマンド : ニューゲーム
#--------------------------------------------------------------------------
def command_new_game
confirm_player_location
Sound.play_decision
$game_party.setup_starting_members # 初期パーティ
$game_map.setup($data_system.start_map_id) # 初期位置のマップ
$game_player.moveto($data_system.start_x, $data_system.start_y)
$game_player.refresh
$scene = Scene_Map.new
RPG::BGM.fade(1500)
#close_command_window
Graphics.fadeout(60)
Graphics.wait(40)
Graphics.frame_count = 0
RPG::BGM.stop
$game_map.autoplay
end
#--------------------------------------------------------------------------
# ● コマンド : コンティニュー
#--------------------------------------------------------------------------
def command_continue
if @continue_enabled
Sound.play_decision
$scene = Scene_File.new(false, true, false)
else
Sound.play_buzzer
end
end
#--------------------------------------------------------------------------
# ● コマンド : シャットダウン
#--------------------------------------------------------------------------
def command_shutdown
Sound.play_decision
RPG::BGM.fade(800)
RPG::BGS.fade(800)
RPG::ME.fade(800)
$scene = nil
end
#--------------------------------------------------------------------------
# ● 戦闘テスト
#--------------------------------------------------------------------------
def battle_test
load_bt_database # 戦闘テスト用データベースをロード
create_game_objects # ゲームオブジェクトを作成
Graphics.frame_count = 0 # プレイ時間を初期化
$game_party.setup_battle_test_members
$game_troop.setup($data_system.test_troop_id)
$game_troop.can_escape = true
$game_system.battle_bgm.play
snapshot_for_background
$scene = Scene_Battle.new
end
#=========================================================================
#★定义新的标题选择菜单
#=========================================================================
def new_command
@sprite = [Sprite.new]
for i in 0..5
@sprite[i]= Sprite.new
@sprite[i].opacity = 0
@sprite[i].x = 225
@sprite[i].y = 280+i/2*45-(i)%2*10
end
@sprite[0].bitmap = Bitmap.new("Graphics/Pictures/start_1")
@sprite[1].bitmap = Bitmap.new("Graphics/Pictures/start_2")
@sprite[2].bitmap = Bitmap.new("Graphics/Pictures/continue_1")
@sprite[3].bitmap = Bitmap.new("Graphics/Pictures/continue_2")
@sprite[4].bitmap = Bitmap.new("Graphics/Pictures/exit_1")
@sprite[5].bitmap = Bitmap.new("Graphics/Pictures/exit_2")
@command_index = 0
if @continue_enabled
@command_index=1
else
@sprite[2].tone = Tone.new(0,0,0,255)
@sprite[3].tone = Tone.new(0,0,0,255)
end
end
#==========================================================================
#★new_iputupdate
#==========================================================================
def new_inputupdate
if Input.trigger?(Input::UP)
@command_index -= 1
if @command_index < 0
@command_index = 2
end
$data_system.sounds[0].play
end
if Input.trigger?(Input::DOWN)
@command_index += 1
if @command_index > 2
@command_index = 0
end
$data_system.sounds[0].play
end
case @command_index
when 0
if @sprite[0].opacity >= 0
@sprite[0].opacity -= 30
end
if @sprite[1].opacity <= 240
@sprite[1].opacity += 30
end
if @sprite[2].opacity <= 210
@sprite[2].opacity += 30
end
if @sprite[3].opacity >= 0
@sprite[3].opacity -= 30
end
if @sprite[4].opacity <= 210
@sprite[4].opacity += 30
end
if @sprite[5].opacity >= 0
@sprite[5].opacity -= 30
end
when 1
if @sprite[0].opacity <= 210
@sprite[0].opacity += 30
end
if @sprite[1].opacity >= 0
@sprite[1].opacity -= 30
end
if @sprite[2].opacity >= 0
@sprite[2].opacity -= 30
end
if @sprite[3].opacity <= 240
@sprite[3].opacity += 30
end
if @sprite[4].opacity <= 210
@sprite[4].opacity += 30
end
if @sprite[5].opacity >= 0
@sprite[5].opacity -= 30
end
when 2
if @sprite[0].opacity <= 210
@sprite[0].opacity += 30
end
if @sprite[1].opacity >= 0
@sprite[1].opacity -= 30
end
if @sprite[2].opacity <= 210
@sprite[2].opacity += 30
end
if @sprite[3].opacity >= 0
@sprite[3].opacity -= 30
end
if @sprite[4].opacity >= 0
@sprite[4].opacity -= 30
end
if @sprite[5].opacity <= 240
@sprite[5].opacity += 30
end
end
end
end
#==============================================================================
# 本脚本来自www.66RPG.com，使用和转载请保留此信息
#==============================================================================

复制代码

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