设为首页收藏本站|繁體中文

Project1

 找回密码
 注册会员
搜索
查看: 2449|回复: 5
打印 上一主题 下一主题

[RMXP发布] 地图名显示(可自定义)

[复制链接]

Lv3.寻梦者

○赛

梦石
0
星屑
1249
在线时间
1276 小时
注册时间
2013-1-22
帖子
2246

贵宾

跳转到指定楼层
1
发表于 2013-9-7 14:31:44 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
本帖最后由 天地有正气 于 2013-9-7 14:48 编辑

  1. $地名 = "no"
  2. $地名X坐标 = 120
  3. $地名Y坐标 = 10
  4. $地名不透明度 = 180
  5. $地名内容不透明度 = 255
  6. $地名宽 = 420
  7. $地名高 = 64
  8. class Window_WindowName < Window_Base
  9.   def initialize
  10.     super(0, 0, 0, 0)
  11.     self.opacity = $地名不透明度
  12.     self.x = $地名X坐标
  13.     self.y = $地名Y坐标
  14.     self.contents_opacity = $地名内容不透明度
  15.     self.width = $地名宽
  16.     self.height = $地名高
  17.     self.contents = Bitmap.new(width - 32, height - 32)
  18.     refresh
  19.   end
  20.   def refresh
  21.     self.contents.clear
  22.     cx = contents.text_size($地名).width
  23.     self.contents.font.color = Color.new(255, 255, 255)
  24.     self.contents.draw_text($地名宽/2-cx/2-16, 0, cx, 32, $地名.to_s)
  25.   end
  26. end
  27. class Scene_Map
  28.   #--------------------------------------------------------------------------
  29.   # ● 主处理
  30.   #--------------------------------------------------------------------------
  31.   def main
  32.     # 生成活动块
  33.     @spriteset = Spriteset_Map.new
  34.     # 生成信息窗口
  35.     @message_window = Window_Message.new
  36.     @window_windowname = Window_WindowName.new
  37.     # 执行过渡
  38.     Graphics.transition
  39.     # 主循环
  40.     loop do
  41.       # 刷新游戏画面
  42.       Graphics.update
  43.       # 刷新输入信息
  44.       Input.update
  45.       # 刷新画面
  46.       update
  47.       # 如果画面切换的话就中断循环
  48.       if $scene != self
  49.         break
  50.       end
  51.     end
  52.     # 准备过渡
  53.     Graphics.freeze
  54.     # 释放活动块
  55.     @spriteset.dispose
  56.     # 释放信息窗口
  57.     @message_window.dispose
  58.     @window_windowname.dispose
  59.     # 标题画面切换中的情况下
  60.     if $scene.is_a?(Scene_Title)
  61.       # 淡入淡出画面
  62.       Graphics.transition
  63.       Graphics.freeze
  64.     end
  65.   end
  66.   #--------------------------------------------------------------------------
  67.   # ● 刷新画面
  68.   #--------------------------------------------------------------------------
  69.   def update
  70.     # 循环
  71.     loop do
  72.       # 按照地图、实例、主角的顺序刷新
  73.       # (本更新顺序不会在满足事件的执行条件下成为给予角色瞬间移动
  74.       #  的机会的重要因素)
  75.       $game_map.update
  76.       $game_system.map_interpreter.update
  77.       $game_player.update
  78.       # 系统 (计时器)、画面刷新
  79.       $game_system.update
  80.       $game_screen.update
  81.       # 如果主角在场所移动中就中断循环
  82.       unless $game_temp.player_transferring
  83.         break
  84.       end
  85.       # 执行场所移动
  86.       transfer_player
  87.       # 处理过渡中的情况下、中断循环
  88.       if $game_temp.transition_processing
  89.         break
  90.       end
  91.     end
  92.     # 刷新活动块
  93.     @spriteset.update
  94.     # 刷新信息窗口
  95.     @message_window.update
  96.     @window_windowname.update
  97.     # 游戏结束的情况下
  98.     if $game_temp.gameover
  99.       # 切换的游戏结束画面
  100.       $scene = Scene_Gameover.new
  101.       return
  102.     end
  103.     # 返回标题画面的情况下
  104.     if $game_temp.to_title
  105.       # 切换到标题画面
  106.       $scene = Scene_Title.new
  107.       return
  108.     end
  109.     # 处理过渡中的情况下
  110.     if $game_temp.transition_processing
  111.       # 清除过渡处理中标志
  112.       $game_temp.transition_processing = false
  113.       # 执行过渡
  114.       if $game_temp.transition_name == ""
  115.         Graphics.transition(20)
  116.       else
  117.         Graphics.transition(40, "Graphics/Transitions/" +
  118.           $game_temp.transition_name)
  119.       end
  120.     end
  121.     # 显示信息窗口中的情况下
  122.     if $game_temp.message_window_showing
  123.       return
  124.     end
  125.     # 遇敌计数为 0 且、且遇敌列表不为空的情况下
  126.     if $game_player.encounter_count == 0 and $game_map.encounter_list != []
  127.       # 不是在事件执行中或者禁止遇敌中
  128.       unless $game_system.map_interpreter.running? or
  129.              $game_system.encounter_disabled
  130.         # 确定队伍
  131.         n = rand($game_map.encounter_list.size)
  132.         troop_id = $game_map.encounter_list[n]
  133.         # 队伍有效的话
  134.         if $data_troops[troop_id] != nil
  135.           # 设置调用战斗标志
  136.           $game_temp.battle_calling = true
  137.           $game_temp.battle_troop_id = troop_id
  138.           $game_temp.battle_can_escape = true
  139.           $game_temp.battle_can_lose = false
  140.           $game_temp.battle_proc = nil
  141.         end
  142.       end
  143.     end
  144.     # 按下 B 键的情况下
  145.     if Input.trigger?(Input::B)
  146.       # 不是在事件执行中或菜单禁止中
  147.       unless $game_system.map_interpreter.running? or
  148.              $game_system.menu_disabled
  149.         # 设置菜单调用标志以及 SE 演奏
  150.         $game_temp.menu_calling = true
  151.         $game_temp.menu_beep = true
  152.       end
  153.     end
  154.     # 调试模式为 ON 并且按下 F9 键的情况下
  155.     if $DEBUG and Input.press?(Input::F9)
  156.       # 设置调用调试标志
  157.       $game_temp.debug_calling = true
  158.     end
  159.     # 不在主角移动中的情况下
  160.     unless $game_player.moving?
  161.       # 执行各种画面的调用
  162.       if $game_temp.battle_calling
  163.         call_battle
  164.       elsif $game_temp.shop_calling
  165.         call_shop
  166.       elsif $game_temp.name_calling
  167.         call_name
  168.       elsif $game_temp.menu_calling
  169.         call_menu
  170.       elsif $game_temp.save_calling
  171.         call_save
  172.       elsif $game_temp.debug_calling
  173.         call_debug
  174.       end
  175.     end
  176.   end
  177. end
复制代码
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
以上为不负责任的脚本、、、、、、、虽然也能用。。。。真正的在下面:
  1. # 超烂地图名显示 by 小周
  2. # 功能:显示地图名,可以自定义一些属性。
  3. =begin
  4. 这是一个不负责任的地图名显示,虽然只有短短的十几行,
  5. 但这是小周写的第一个还算是比较实用的功能。特点是注
  6. 释比较全面,适合刚想研究脚本的和小周一样的新手查看
  7. 研究。
  8. =end
  9. class Window_WindowName < Window_Base
  10.   # 用 class 新建一个类用来显示地图
  11.   # 这里的 “< Window_Base”意思是
  12.   # 说这个 Window_WindowName 新类是
  13.   # Window_Base 的子类
  14.   # 这样写好处是可以继承 Window_Base
  15.   # 的定义,从而少些很多内容。
  16.   def initialize
  17.     # 初始化 新建一个方法
  18.     super(0, 0, 0, 0)
  19.     # 使用继承自Window_Base的方法
  20.     # 框中数字的顺序为 x,y,width(宽),height(高)
  21.     # 但是因为后面可以自己修改所以这里写什么都无所谓
  22.     self.opacity = $地名不透明度
  23.     # 定义窗口的不透明度
  24.     # self是指本身的意思
  25.     # 小贴士:如果遇到不理解的代码可以用有道词典查
  26.     # 意思基本相同
  27.     # 理解意思后就能够容易的明白代码的意思了
  28.     # 而这里的不透明度使用的是全局变量
  29.     # 这样做可以方便修改不透明度
  30.     self.x = $地名X坐标
  31.     # X值加入全局变量,这就是为什么可以随意调整X坐标的原因
  32.     self.y = $地名Y坐标
  33.     # Y值加入全局变量,这就是为什么可以随意调整Y坐标的原因
  34.     self.contents_opacity = $地名内容不透明度
  35.     # 内容不透明度的值代入全局变量,方便修改
  36.     self.width = $地名宽
  37.     # 宽度代入全局变量,方便修改
  38.     self.height = $地名高
  39.     # 高度代入全局变量,方便修改
  40.     self.contents = Bitmap.new(width - 32, height - 32)
  41.     # 其实这个我也不怎么理解,总之写窗口一定要有这句
  42.     # 不然如果在窗口里面描绘文字、字符串等内容时会有
  43.     # 显示不全的状况。
  44.     refresh
  45.     # 跳转到下面的刷新
  46.   end
  47.   # def的end
  48.   def refresh
  49.     # 刷新 建立一个新方法
  50.     self.contents.clear
  51.     # 清空内容
  52.     cx = contents.text_size($地名).width
  53.     # 计算地名的宽
  54.     self.contents.font.color = Color.new(255, 255, 255)
  55.     # 设置字体颜色
  56.     self.contents.draw_text($地名宽/2-cx/2-16, 0, cx, 32, $地名.to_s)
  57.     # 描绘地名 地名后要加.to_s使地名变成一个字符串
  58.     # draw_text后面的格式也是x,y,width,height,这是对于
  59.     # 这个窗口而言的数值,
  60.     # cx是文字的宽度
  61.     # 刚才已经计算过了
  62.     # 第一个$地名宽/2-cx/2-16是我想了好久才想出来的
  63.     # 一个使文字居中的算法,这样写能够使字居中
  64.     # 如果想使文字靠左,把它们改为0就行了。
  65.   end
  66.   # def的end
  67. end
  68. # class的end
复制代码
这些注释写的应该都很明白了吧= =这是小周学写脚本后第二个小功能(第一个请见讨论区)
但是如果想让他显现出来的话就在这个脚本下面加上另一段Scene_Map的修改:
  1. class Scene_Map
  2.   #--------------------------------------------------------------------------
  3.   # ● 主处理
  4.   #--------------------------------------------------------------------------
  5.   def main
  6.     # 生成活动块
  7.     @spriteset = Spriteset_Map.new
  8.     # 生成信息窗口
  9.     @message_window = Window_Message.new
  10.     @window_windowname = Window_WindowName.new
  11.     # 执行过渡
  12.     Graphics.transition
  13.     # 主循环
  14.     loop do
  15.       # 刷新游戏画面
  16.       Graphics.update
  17.       # 刷新输入信息
  18.       Input.update
  19.       # 刷新画面
  20.       update
  21.       # 如果画面切换的话就中断循环
  22.       if $scene != self
  23.         break
  24.       end
  25.     end
  26.     # 准备过渡
  27.     Graphics.freeze
  28.     # 释放活动块
  29.     @spriteset.dispose
  30.     # 释放信息窗口
  31.     @message_window.dispose
  32.     @window_windowname.dispose
  33.     # 标题画面切换中的情况下
  34.     if $scene.is_a?(Scene_Title)
  35.       # 淡入淡出画面
  36.       Graphics.transition
  37.       Graphics.freeze
  38.     end
  39.   end
  40.   #--------------------------------------------------------------------------
  41.   # ● 刷新画面
  42.   #--------------------------------------------------------------------------
  43.   def update
  44.     # 循环
  45.     loop do
  46.       # 按照地图、实例、主角的顺序刷新
  47.       # (本更新顺序不会在满足事件的执行条件下成为给予角色瞬间移动
  48.       #  的机会的重要因素)
  49.       $game_map.update
  50.       $game_system.map_interpreter.update
  51.       $game_player.update
  52.       # 系统 (计时器)、画面刷新
  53.       $game_system.update
  54.       $game_screen.update
  55.       # 如果主角在场所移动中就中断循环
  56.       unless $game_temp.player_transferring
  57.         break
  58.       end
  59.       # 执行场所移动
  60.       transfer_player
  61.       # 处理过渡中的情况下、中断循环
  62.       if $game_temp.transition_processing
  63.         break
  64.       end
  65.     end
  66.     # 刷新活动块
  67.     @spriteset.update
  68.     # 刷新信息窗口
  69.     @message_window.update
  70.     @window_windowname.update
  71.     # 游戏结束的情况下
  72.     if $game_temp.gameover
  73.       # 切换的游戏结束画面
  74.       $scene = Scene_Gameover.new
  75.       return
  76.     end
  77.     # 返回标题画面的情况下
  78.     if $game_temp.to_title
  79.       # 切换到标题画面
  80.       $scene = Scene_Title.new
  81.       return
  82.     end
  83.     # 处理过渡中的情况下
  84.     if $game_temp.transition_processing
  85.       # 清除过渡处理中标志
  86.       $game_temp.transition_processing = false
  87.       # 执行过渡
  88.       if $game_temp.transition_name == ""
  89.         Graphics.transition(20)
  90.       else
  91.         Graphics.transition(40, "Graphics/Transitions/" +
  92.           $game_temp.transition_name)
  93.       end
  94.     end
  95.     # 显示信息窗口中的情况下
  96.     if $game_temp.message_window_showing
  97.       return
  98.     end
  99.     # 遇敌计数为 0 且、且遇敌列表不为空的情况下
  100.     if $game_player.encounter_count == 0 and $game_map.encounter_list != []
  101.       # 不是在事件执行中或者禁止遇敌中
  102.       unless $game_system.map_interpreter.running? or
  103.              $game_system.encounter_disabled
  104.         # 确定队伍
  105.         n = rand($game_map.encounter_list.size)
  106.         troop_id = $game_map.encounter_list[n]
  107.         # 队伍有效的话
  108.         if $data_troops[troop_id] != nil
  109.           # 设置调用战斗标志
  110.           $game_temp.battle_calling = true
  111.           $game_temp.battle_troop_id = troop_id
  112.           $game_temp.battle_can_escape = true
  113.           $game_temp.battle_can_lose = false
  114.           $game_temp.battle_proc = nil
  115.         end
  116.       end
  117.     end
  118.     # 按下 B 键的情况下
  119.     if Input.trigger?(Input::B)
  120.       # 不是在事件执行中或菜单禁止中
  121.       unless $game_system.map_interpreter.running? or
  122.              $game_system.menu_disabled
  123.         # 设置菜单调用标志以及 SE 演奏
  124.         $game_temp.menu_calling = true
  125.         $game_temp.menu_beep = true
  126.       end
  127.     end
  128.     # 调试模式为 ON 并且按下 F9 键的情况下
  129.     if $DEBUG and Input.press?(Input::F9)
  130.       # 设置调用调试标志
  131.       $game_temp.debug_calling = true
  132.     end
  133.     # 不在主角移动中的情况下
  134.     unless $game_player.moving?
  135.       # 执行各种画面的调用
  136.       if $game_temp.battle_calling
  137.         call_battle
  138.       elsif $game_temp.shop_calling
  139.         call_shop
  140.       elsif $game_temp.name_calling
  141.         call_name
  142.       elsif $game_temp.menu_calling
  143.         call_menu
  144.       elsif $game_temp.save_calling
  145.         call_save
  146.       elsif $game_temp.debug_calling
  147.         call_debug
  148.       end
  149.     end
  150.   end
  151. end
复制代码
这样,,,还是不行。。。
请在这两个脚本之前在加入这些内容:
  1. $地名 = "农村"
  2. $地名X坐标 = 120
  3. $地名Y坐标 = 10
  4. $地名不透明度 = 180
  5. $地名内容不透明度 = 255
  6. $地名宽 = 420
  7. $地名高 = 64
复制代码
这些是属性的设定,可以自己更改。
如果想在游戏中更改的话只要用事件命令中的“脚本”就可以了
对了,还要注意,地图名是要手动修改“$地名”的,别忘了。
如果不想现实的话,只要将地名不透明度和地名内容不透明度
设为零就好了,(可以设置第一次进入时先不显示地名,而是显示图片)
最后,说一下这个脚本的冲突性应该是=0的,此脚本拓展性很高,自己
加一点内容就可以做到一些效果,注释写得都很明白了。
------------------------------------------------------------------------------------------------------------------------
很无耻的给我们百度rmxp团队吧打打广告:
点击进入,百度RMXP团队吧!!!

Lv1.梦旅人

薄凉看客

梦石
0
星屑
50
在线时间
1269 小时
注册时间
2010-6-20
帖子
1316
2
发表于 2013-9-7 16:11:37 | 只看该作者
你可以根据这个模版改进下的
  1. ###########
  2. #by 薄凉看客
  3. #使用方法事件脚本中输入map_name_blkk
  4. ###########
  5. class Interpreter
  6.   def map_name_blkk
  7.     map_name = load_data("Data/MapInfos.rxdata")
  8.     w = Window_Base.new(190, 20, 260, 64)
  9.     w.opacity = 0;w.contents_opacity = 0
  10.     w.contents = Bitmap.new(260-32, 64-32)
  11.     w.contents.font.color = Color.new(50,
  12.     255, 80, 255);tex = map_name[$game_map.map_id].name
  13.     w.contents.draw_text(4, 0, w.width, 32, tex)
  14.     for i in 0..20;Graphics.update;
  15.     w.opacity += 10;w.contents_opacity += 10;
  16.     w.y += 7;end;
  17.     for i in 0..50;Graphics.update;end
  18.     for i in 0..20;Graphics.update;w.opacity -=
  19.     10;w.contents_opacity -= 10;end;w.dispose
  20.   end  
  21. end  
复制代码
回复 支持 反对

使用道具 举报

Lv3.寻梦者

○赛

梦石
0
星屑
1249
在线时间
1276 小时
注册时间
2013-1-22
帖子
2246

贵宾

3
 楼主| 发表于 2013-9-7 16:32:42 | 只看该作者
恋′挂机 发表于 2013-9-7 16:11
你可以根据这个模版改进下的

多谢指导!
但是小周觉得这样改就偏离了我的原意了。
我这个脚本想达成两个目的:
1.能够让和我一样的新人通过看我的注释多多少少学到些东西。
2.我希望这个脚本可以自己定义所有属性。
这样改的话,第一个只要我再勤奋一下,注释注释就可以了,但第二个就不行了。
这样写调用了一个系统文件,与我想要的“自由”脚本不一样,所以我一开始就没有用。
这样写可能方便些,但是调用的都是地图名,不能自己设定的呢= =
回复 支持 反对

使用道具 举报

Lv1.梦旅人

薄凉看客

梦石
0
星屑
50
在线时间
1269 小时
注册时间
2010-6-20
帖子
1316
4
发表于 2013-9-7 16:47:32 | 只看该作者
天地有正气 发表于 2013-9-7 16:32
多谢指导!
但是小周觉得这样改就偏离了我的原意了。
我这个脚本想达成两个目的:

修改版,可以给参数map_name_blkk(x, y, width, height, contents)contents内容可有可无可以自定义地图名
设置了所有属性,希望对你有帮助,写的很乱,不是不想让别人看懂,而是为了减少行数。。
帮助新人的话开帖写教程吧~!本来想用attr_accessor :map_blkk_x;$game_temp.map_blkk_x等等的,一想算了还是直接给参数方便些。
  1. ###########
  2. #by 薄凉看客
  3. #使用方法事件脚本中输入map_name_blkk
  4. ###########
  5. class Interpreter
  6.   def map_name_blkk(x = 190, y = 20, wid = 260, hei = 64, contents = nil)
  7.     map_name = load_data("Data/MapInfos.rxdata");
  8.     w = Window_Base.new(x, y, wid, hei);w.opacity = 0;w.contents_opacity = 0
  9.     w.contents = Bitmap.new(wid-32, hei-32);w.contents.font.color = Color.new(50,
  10.     255, 80, 255);if contents == nil;tex = map_name[$game_map.map_id].name;else;
  11.     tex = contents;end;w.contents.draw_text(4, 0, w.width, 32, tex)
  12.     for i in 0..20;Graphics.update;w.opacity += 10;w.contents_opacity += 10;
  13.     w.y += 7;end;for i in 0..50;Graphics.update;end
  14.     for i in 0..20;Graphics.update;w.opacity -= 10;w.contents_opacity -= 10;
  15.     end;w.dispose;end; end
复制代码
回复 支持 反对

使用道具 举报

Lv3.寻梦者

○赛

梦石
0
星屑
1249
在线时间
1276 小时
注册时间
2013-1-22
帖子
2246

贵宾

5
 楼主| 发表于 2013-9-7 18:08:45 | 只看该作者
请注意,发现BUG,更改属性的事件一定要设成并行处理,否则不会反应!!!!原因不详!!!

点评

那就好= =  发表于 2013-9-7 21:45
我这里测试没问题。。。  发表于 2013-9-7 20:57
回复 支持 反对

使用道具 举报

Lv1.梦旅人

梦石
0
星屑
70
在线时间
19 小时
注册时间
2006-12-27
帖子
30
6
发表于 2013-9-13 09:06:16 | 只看该作者
木有效果图?
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

拿上你的纸笔,建造一个属于你的梦想世界,加入吧。
 注册会员
找回密码

站长信箱:[email protected]|手机版|小黑屋|无图版|Project1游戏制作

GMT+8, 2024-11-11 04:05

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表