同能RPG制作大师 › 附件中心 › 同能RM技术讨论区 › RPG Maker XP 讨论区 › 范例.rar

板块导航

范例.rar

打开方式: winrar
资料大小: 206.2 KB
下载次数: 0
上传会员: じ☆ve冰风
上传时间: 2024-04-20
本站网址: rm.rgss.cn:50505
查看附件所在的主题
下载附件售价 5

【相隔1年多的更新][22.1.2015][v0.8】便民任务界面:

2015年1月22日正式开坑：下次更新时此脚本将升格为任务系统

@Wait @Cache 防bug=w=

用注释设置使设置更加简单

更新日志： v0.8 1.添加了自动换行功能 2.删除了垂直对齐功能(对已使用的人深感抱歉) 4.更改了文本的解析法 3.描绘内容与刷新同步(可较顺滑的在任务间切换) 4.修正一个没被发现的BUG v0.7 1.对脚本结构进行优化 2.更改数据结构(也就是说之前的存档再度全死) 3.缩短代码 4.加入自动记录并返回上个界面的功能 5.移除一个没用却一直忘了删掉的功能 =_=|| 6.添加垂直对齐功能(很坑，请依情况使用) 7.添加把多行内容显示为一行的功能 v坑爹(超坑爹！失败告终) 1.添加ERB支持(非常坑，已放弃) 2.添加任务系统(已暂停并删除，以后会继续) 3.拥有自己的数据库(很坑，已抛弃) v0.6 1.增加滚动功能 2.对脚本结构进行优化 v0.5 1.改名为任务界面(总觉得这只是界面不是系统) 2.优化所有正则表达式的匹配模式 4.解决一个大BUG 5.更改数据结构(也就是说之前的存档全死) 6.增加“追加说明”的功能 v0.4 1.优化代码 2.增加“任务更新”的功能 v0.3 1.增加“放弃任务”的功能 2.解决一个未曾被发现的BUG 3.设置简单化 4.美化打勾 5.增加打叉 v0.2 1.加强说明显示效果 2.去掉一些不必要的工作复制代码

复制代码

脚本：
RUBY 代码

#==============================================================================#
# 便民任务界面 by EngShun #
# #
# 由于此版本仅做出了一些小优化， #
# 因此设置方法请参考v0.7的范例 #
# #
# 效果说明： #
# 支持普通对话框效果 #
# \a[号码] :更改左右对齐方式(0，1，2)。 #
# \itm[物品id] :物品数量 #
# \wpn[武器id] :武器数量 #
# \amr[防具id] :防具数量 #
# \eval{脚本} :运行脚本 #
# \1line{内容} :把多行的内容显示为一行 #
# \bold :字体加粗，插入多一次关闭 #
# \italic :字体打斜，插入多一次关闭 #
# \f[字体名称] :更改字体 #
# \s[号码] :更改字体大小 #
# \p[名称] :插入图片 #
# \icon[名称] :插入图标 #
# #
#==============================================================================#
#===============================================================================
# ■ 队伍
#===============================================================================
class Game_Party
Mission = Struct.new(:id, :name, :info, :status)
alias org_init_mission initialize if !defined?(org_init_mission)
#--------------------------------------------------------------------------
# ● 重定义初始化
#--------------------------------------------------------------------------
def initialize
@mission = {}
org_init_mission
end
def no_mission?
return@mission == {}
end
def missions
if no_mission?
m = Mission.new(0,"没有任务","\n\n\n\\a[1]\\s[32]你还没有领取任何任务",0)
return[m]
end
return@mission.values.sort_by{|m|m.id}
end
def get_mission(mission,info)
returnif@mission.has_key?(mission)
id = missions[-1].id + 1
@mission[mission] = Mission.new(id,mission,info,0)
end
def done_mission(mission)
@mission[mission].status = 1if@mission[mission].status == 0
end
def delete_mission(mission)
@mission.delete(mission)
end
def fail_mission(mission)
@mission[mission].status = 2if@mission[mission].status == 0
end
def resume_mission(mission)
@mission[mission].status = 0if@mission[mission].status == 2
end
def done_all_mission
@mission.each{|k,m|m.status = 1}
end
def update_mission(mission,info)
@mission[mission].info = info
end
def add_mission_info(mission,info)
@mission[mission].info += "\n" + info
end
def delete_all_mission
@mission = {}
end
def resume_all_mission
@mission.each{|k,m|m.status = 0if m.status == 2}
end
end
#===============================================================================
# ■ 任务列表窗口
#===============================================================================
class Window_Mission < Window_Selectable
#--------------------------------------------------------------------------
# ● 初始化对象
#--------------------------------------------------------------------------
def initialize
super(0, 64, 200, 416)
self.index = 0
@mission = $game_party.missions
@item_max = @mission.size
ifself.contents != nil
self.contents.dispose
self.contents = nil
end
self.contents = Bitmap.new(width - 32, @item_max * 32)
for i in[email]0...@mission.size[/email]
t = @mission[i].status != 0
self.contents.font.color = t ? disabled_color : normal_color
text = @mission[i].name
self.contents.draw_text(4, i * 32, 160, 32, text.to_s)
self.contents.font.color = system_color
self.contents.draw_text(self.contents.width-32, i * 32, 32, 32, "□",1)unless$game_party.no_mission?
if@mission[i].status == 1
self.contents.font.color = crisis_color
self.contents.draw_text(self.contents.width-32, i * 32, 32, 32, "√",1)
elsif@mission[i].status == 2
self.contents.font.color = knockout_color
self.contents.draw_text(self.contents.width-32, i * 32, 32, 32, "×",1)
end
end
end
end
#===============================================================================
# ■ 任务详情窗口
#===============================================================================
class Window_MissionInfo < Window_Base
attr_accessor :wait
attr_accessor :scroll_up
#--------------------------------------------------------------------------
# ● 初始化对象
#--------------------------------------------------------------------------
def initialize
super(200,64,440,416)
self.contents = Bitmap.new(408, 384)
@scroll_up = false
@wait = 90
@items = []
@progress = 0
@draw_y = 0
@align = 0
@cache = Bitmap.new(160,160)
@font = Font.new
end
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
super
parse_items if@items.size > 0
returnifself.contents.height 0
self.oy += @scroll_up ? -1 : 1
self.oy = 0ifself.oy < 0
self.oy = oy_max ifself.oy > oy_max
ifself.oy = oy_max
@scroll_up = true
@wait = 60
end
end
#--------------------------------------------------------------------------
# ● 释放
#--------------------------------------------------------------------------
def dispose
super
@cache.dispose
end
#--------------------------------------------------------------------------
# ● 滚动最大值
#--------------------------------------------------------------------------
def oy_max
returnself.contents.height - 384
end
#--------------------------------------------------------------------------
# ● 刷新
#--------------------------------------------------------------------------
def refresh(str)
str = str.clone
@scroll_up = false
@wait = 120
@draw_y = 0
@align = 0
@progress = 0
@lines = []
self.oy = 0
@cache.font = Font.new
@font = Font.new
self.contents.dispose
self.contents = Bitmap.new(408, 384)
parse_text(str)
12.times{parse_items}
end
#--------------------------------------------------------------------------
# ● 描绘行
#--------------------------------------------------------------------------
def draw_line(width, height, items)
bitmap = Bitmap.new(width, height)
bitmap.font = @font
x = 0
for item in items
if item.is_a?(Color)
bitmap.font.color = item
elsif item.is_a?(Integer)
bitmap.font.size = item
elsif item.is_a?(Array)
bitmap.font.name = item[0]if item.size == 1
elsif item.is_a?(Bitmap)
bitmap.blt(x + 2, (height - item.height) / 2,
item, Rect.new(0,0,item.width,item.height))
x += item.width + 4
elsif item == :bold
bitmap.font.italic = !bitmap.font.bold
elsif item == :italic
bitmap.font.italic = !bitmap.font.italic
else
bitmap.draw_text(x,0,width,height,item)
x += bitmap.text_size(item).width
end
end
return bitmap
end
#--------------------------------------------------------------------------
# ● 解析文本
#--------------------------------------------------------------------------
def parse_text(str)
begin
last_text = str.clone
str.gsub!(/\\v\[(\d+)\]/i){$game_variables[$1.to_i]}
str.gsub!(/\\g/i){$game_party.gold.to_s}
str.gsub!(/\\itm\[(\d+)\]/i){$game_party.item_number($1.to_i)}
str.gsub!(/\\wpn\[(\d+)\]/i){$game_party.weapon_number($1.to_i)}
str.gsub!(/\\amr\[(\d+)\]/i){$game_party.armor_number($1.to_i)}
str.gsub!(/\\1line{(.+?)}/im){ $1.delete("\n")}
str.gsub!(/\\eval{(.+?)}/im){eval($1)}
enduntil str == last_text
str.gsub!(/\\n\[(\d+)\]/i)do
$game_actors[$1.to_i] != nil ? $game_actors[$1.to_i].name : ""
end
str.gsub!(/\n/){"\000\002n\000"}
str.gsub!(/\\\\/){"\001"}
str.gsub!(/\\a\[([0-2])\]/i){"\000\0027#{$1}"}
str.gsub!(/\\c\[(\d+)\]/i){"\000\0020#{$1}\000"}
str.gsub!(/\\bold/i){"\000\0021\000"}
str.gsub!(/\\italic/i){"\000\0022\000"}
str.gsub!(/\\f\[(\w+)\]/i){"\000\0023#{$1}\000"}
str.gsub!(/\\s\[(\d+)\]/i){"\000\0024#{$1}\000"}
str.gsub!(/\\p\[(.+?)\]/i){"\000\0025#{$1}\000"}
str.gsub!(/\\icon\[(.+?)\]/i){"\000\0026#{$1}\000"}
str.gsub!(/\001/){"\"}
@items = str.split("\000")
@items.delete("")
end
#--------------------------------------------------------------------------
# ● 深度解析
#--------------------------------------------------------------------------
def parse_items
returnunless@items.size > 0
bitmap = @cache
width, height, items = 1, 32, []
while item = @items.delete_at(0)
if item[/^\002([0-9a-z])(.*)/]
case(a = $1)
when'7'
@align = $2.to_i
when'0'
color = $2.to_i
bitmap.font.color = if color >= 0and color 408
item.dispose
items.unshift("[图片太大无法显示]")
next
elsif width + item.width > 408
@items.unshift(item)
break
end
items.push(item)
width += item.width + 4
height = item.height + 4if item.height + 4 > height
when'n'
break
end
else
str = ""
size = Rect.new(0, 0, 0, 0)
while s = item.slice!(/./)
size = bitmap.text_size(str + s)
if width + size.width > 408
item.insert(0, s)
break
else
str += s
end
end
if items[-1].is_a?(String)
items[-1] += str
else
items.push(str)
end
width += size.width
height = size.height + 4if size.height + 4 > height
if item != ""
@items.unshift(item)
break
end
end
end
b = draw_line(width, height, items)
if@draw_y + b.height > 384
c = self.contents
self.contents = Bitmap.new(408, @draw_y + b.height)
self.contents.blt(0, 0, c, Rect.new(0,0,c.width, c.height))
c.dispose
end
x = 0
x = 204 - (b.width / 2)if@align == 1
x = 408 - b.widthif@align == 2
self.contents.blt(x, @draw_y, b, Rect.new(0,0,b.width, b.height))
@draw_y += b.height
end
end
#===============================================================================
# ■ 任务界面
#===============================================================================
class Scene_Mission
#--------------------------------------------------------------------------
# ● 初始化
#--------------------------------------------------------------------------
def initialize
@last_scene = $scene
end
#--------------------------------------------------------------------------
# ● 主处理
#--------------------------------------------------------------------------
def main
@mission = $game_party.missions
@window1 = Window_Base.new(0,0,200,64)
@window1.contents = Bitmap.new(168,32)
@window1.contents.draw_text(0,0,168,32,"任务",1)
@window2 = Window_Base.new(200,0,440,64)
@window2.contents = Bitmap.new(408,32)
@window2.contents.draw_text(0,0,408,32,"任务说明",1)
@mission_window = Window_Mission.new
@mission_window.index = @mission.size - 1
@index = @mission_window.index
@info_window = Window_MissionInfo.new
@info_window.refresh(@mission[@index].info)
Graphics.transition
loopdo
Graphics.update
Input.update
update
if$scene != self
break
end
end
Graphics.freeze
@window1.dispose
@window2.dispose
@mission_window.dispose
@info_window.dispose
end
#--------------------------------------------------------------------------
# ● 刷新画面
#--------------------------------------------------------------------------
def update
@mission_window.update
@info_window.update
if@index != @mission_window.index
@index = @mission_window.index
@info_window.refresh(@mission[@index].info)
end
return update_mission if@mission_window.active
update_info
end
#--------------------------------------------------------------------------
# ● 刷新任务
#--------------------------------------------------------------------------
def update_mission
if Input.trigger?(Input::C)
$game_system.se_play($data_system.decision_se)
@mission_window.active = false
@info_window.oy = 0
elsif Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
$scene = @last_scene
return
end
end
#--------------------------------------------------------------------------
# ● 刷新人物详情
#--------------------------------------------------------------------------
def update_info
@info_window.wait = 90
if Input.press?(Input::UP)
@info_window.oy -= 3
@info_window.oy = 0if@info_window.oy < 0
elsif Input.press?(Input::DOWN)
@info_window.oy += 3
@info_window.oy = @info_window.oy_maxif@info_window.oy > @info_window.oy_max
elsif Input.repeat?(Input::L)
$game_system.se_play($data_system.cursor_se)
@mission_window.index -= 1
@mission_window.index = $game_party.missions.size - 1if@mission_window.index < 0
elsif Input.repeat?(Input::R)
$game_system.se_play($data_system.cursor_se)
@mission_window.index += 1
@mission_window.index = 0if@mission_window.index >= $game_party.missions.size
elsif Input.trigger?(Input::B)
$game_system.se_play($data_system.cancel_se)
@mission_window.active = true
@info_window.scroll_up = false
@info_window.oy = 0
end
end
end
#===============================================================================
# ■ 事件处理器
#===============================================================================
class Interpreter
alias orig_ec_mission execute_command if !defined?(orig_ec_mission)
#--------------------------------------------------------------------------
# ● 重定义执行事件命令
#--------------------------------------------------------------------------
def execute_command
if@index >= @list.size - 1
command_end
returntrue
end
@parameters = @list[@index].parameters
return command_108 if@list[@index].code == 108
return orig_ec_mission
end
#--------------------------------------------------------------------------
# ● 注释
#--------------------------------------------------------------------------
def command_108
case@list[@index].parameters[0]
when(/^删除任务\[(\w+)\]$/)
$game_party.delete_mission($1)
returntrue
when(/^完成任务\[(\w+)\]$/)
$game_party.done_mission($1)
returntrue
when"删除所有任务"
$game_party.delete_all_mission
returntrue
when"完成所有任务"
$game_party.done_all_mission
returntrue
when(/^放弃任务\[(\w+)\]$/)
$game_party.fail_mission($1)
returntrue
when(/^恢复任务\[(\w+)\]$/)
$game_party.resume_mission($1)
returntrue
when"恢复所有任务"
$game_party.resume_all_mission
returntrue
end
text = @list[@index].parameters[0]
loopdo
if@list[@index+1].code == 108or@list[@index+1].code == 408
text += "\n" + @list[@index+1].parameters[0]
else
break
end
@index += 1
end
split = text.split("\n")
if(split[0] == "任务设置"orsplit[0] == "任务更新"orsplit[0] == "追加说明")andsplit.size >= 3
info , name = split[2] , split[1]
ifsplit.size >= 4
for i in3...split.size
info += "\n" + split[i]
end
end
$game_party.get_mission(name,info)ifsplit[0] == "任务设置"
$game_party.update_mission(name,info)ifsplit[0] == "任务更新"
$game_party.add_mission_info(name,info)ifsplit[0] == "追加说明"
end
returntrue
end
end

复制代码

截图：

下载：
v0.8并没有在功能上做出改动，因此不提供范例，
需要的请下载v0.7范例。
随工程附送VX→XP窗口皮肤一张

旧版本：

本帖来自P1论坛作者英顺的马甲，因Project1站服务器在国外有时候访问缓慢不方便作者交流学习，经联系P1站长fux2同意署名转载一起分享游戏制作经验，共同为国内独立游戏作者共同创造良好交流环境，原文地址：https://rpg.blue/forum.php?mod=viewthread&tid=167490 若有侵权，发帖作者可联系底部站长QQ在线咨询功能删除，谢谢。

同一主题附件:

便民任务界面v0.7.rar (211.94 KB)

范例v0.6.rar (211.3 KB)

范例 v0.5.rar (210.53 KB)

范例 v0.4.rar (208.41 KB)

范例 v0.3.rar (208.18 KB)

范例.rar (206.2 KB)