Project1

标题: 关于天圣的AVG范例CG系统脚本 [打印本页]
作者: zxlxp2006    时间: 2013-2-15 16:52
标题: 关于天圣的AVG范例CG系统脚本
本帖最后由 zxlxp2006 于 2013-2-15 18:28 编辑
  1. #--------------------------------------------------------------------------
  2. # ● 刷新画面
  3. #--------------------------------------------------------------------------
  4.   def update
  5.   $mouse_x, $mouse_y = Mouse.get_mouse_pos #获得鼠标的即时坐标
  6.     # 按下 B 键的情况下
  7.     if Input.trigger?(Input::B)
  8.       # 演奏取消 SE
  9.       $game_system.se_play($data_system.cancel_se)
  10.       # 切换到菜单画面
  11.       $scene = Scene_Title.new
  12.       return
  13.     end
  14.   #
  15.    
  16.     #【重点注意】关于鼠标的刷新。其实原理就是判断鼠标是否落在缩略图上。
  17.      
  18.     #如果落在上面了，则给变量赋值表示选中了某CG。否则将变量清零。
  19.      
  20.     #以CG1为例，上面设置过X坐标100，Y坐标40（左上角原点坐标）。
  21.     #宽高分别是120和90（按你自己做的缩略图大小）。
  22.      
  23.     #所以，CG左上角在(100,40)处，右上角在(220,40)处，左下角在(100,130)处，
  24.      
  25.     #右下角在(220,130)处。（还搞不清的自己画个长方形就知道怎么回事了）
  26.    
  27.     #所以鼠标的X坐标如果在100～220之间同时Y坐标在40～130之间，
  28.    
  29.     #即表示鼠标移动到了这张缩略图上。

  31.    
  32.   if $mouse_x <= 220 and $mouse_x >= 100 and $mouse_y <= 130 and $mouse_y >= 40
  33.      if $game_party.item_number(1) > 0 #CG已经获得时才进行判定
  34.    if $game_variables[3] != 1 #如果现在还没选中该CG的话
  35.     $game_system.se_play($data_system.cursor_se)
  36.     $game_variables[3] = 1    #当前选定CG1
  37.     @cg_window.refresh #刷新一下CG窗口，让原本半透明的CG正回来
  38.     end
  39.     end
  40.    
  41.   elsif $mouse_x <= 370 and $mouse_x >= 250 and $mouse_y <= 130 and $mouse_y >= 40
  42.     if $game_party.item_number(2) > 0 #CG2已经获得时才进行判定
  43.     if $game_variables[3] != 2 #如果现在还没选中该CG的话
  44.     $game_system.se_play($data_system.cursor_se)
  45.     $game_variables[3] = 2   #当前选定CG2
  46.     @cg_window.refresh
  47.     end
  48.     end #这是第二张CG的判定范例。需要更多请用elsif继续接下去。
  49.    
  50.   elsif $mouse_x <= 520 and $mouse_x >= 400 and $mouse_y <= 130 and $mouse_y >= 40
  51.     if $game_party.item_number(3) > 0 #CG2已经获得时才进行判定
  52.     if $game_variables[3] != 3 #如果现在还没选中该CG的话
  53.     $game_system.se_play($data_system.cursor_se)
  54.     $game_variables[3] = 3   #当前选定CG2
  55.     @cg_window.refresh
  56.     end
  57.     end
  58.   
  59.   else
  60.     $game_variables[3] = 0
  61.     @cg_window.refresh
  62.   end

  64.    if Input.trigger?(Input::C)
  65.     if $game_variables[3] != 0 #有CG被选中的时候
  66.     $game_system.se_play($data_system.decision_se)
  67.     $game_map.setup(2) #移动到2号地图。（地图ID在新建地图可看到）编号自己能改。
  68.     $game_player.moveto(0,0)
  69.     $game_player.refresh
  70.     $game_map.autoplay
  71.     $game_map.update
  72.     $scene = Scene_Map.new
  73.     #接下来显示出CG或者制作回想之类的内容就都是那张地图上的事情了。
  74.     #因为3号变量已经被赋值，所以直接利用条件分歧显示不同图片即可。
  75.   end
  76. end   

  78. end
  79. end
复制代码
  1. =begin

  3. ★修改方面的罗嗦★

  5. 素材替换和排版参见Scene_Menu，这个就不说了。

  7. 这系统其实用起来原理很简单，自定义的部分也多，当然最麻烦的也在于此。
  8. 脚本里你需要修改的大部分只是数字，我会尽可能详细地解释，也欢迎repo使用中
  9. 出现的问题。

  11. =end

  13. class Window_CG < Window_Base
  14.   #--------------------------------------------------------------------------
  15.   # ● 初始化窗口
  16.   #--------------------------------------------------------------------------
  17.   def initialize
  18.     super(-16, -16, 656, 496) #去掉因为边框而导致的坐标误差
  19.     self.contents = Bitmap.new(width - 32, height - 32)
  20.     self.opacity = 0
  21.     refresh
  22.   end
  23.   #--------------------------------------------------------------------------
  24.   # ● 刷新
  25.   #--------------------------------------------------------------------------
  26.   def refresh
  27.     self.contents.clear
  28. #从这里开始进入缩略图出现与否的判定。做好教程里提到的『三步骤』之后，
  29. #系统已经记录了你继承的物品数据。接下来就是直接用其判定。
  30. #注意3号变量被用来记录当前选定CG的编号。
  31. #请看下面的例子。
  32. #=========================================================
  33. if $game_party.item_number(1) > 0 #1号物品（CG1）如果已经获得的话
  34.     bitmap=Bitmap.new("Graphics/pictures/CG1_s")  #显示CG1的缩略图
  35.     src_rect = Rect.new(0, 0, bitmap.width, bitmap.height)  
  36.     if $game_variables[3] == 1
  37.     self.contents.blt(100, 40, bitmap, src_rect,255)
  38.     #前两个数字是坐标可自定义。最后一个数字是判定当该CG被选中时透明度是正常的。
  39.     else        #否则透明度降低表示尚未被选中。
  40.       self.contents.blt(100, 40, bitmap, src_rect,155)
  41.       end
  42.   end
  43. #=========================================================
  44. #这是CG2的设置，改几个小地方即可
  45.   if $game_party.item_number(2) > 0 #这里是对应的2号物品
  46.     bitmap=Bitmap.new("Graphics/pictures/CG2_s")  #显示CG2的缩略图
  47.     src_rect = Rect.new(0, 0, bitmap.width, bitmap.height)  
  48.     if $game_variables[3] == 2 #选中CG变量改为2
  49.     self.contents.blt(250, 40, bitmap, src_rect,255) #坐标……
  50.     else                    
  51.       self.contents.blt(250, 40, bitmap, src_rect,155)  
  52.       end
  53. #=========================================================
  54. #这是CG2的设置，改几个小地方即可
  55.   if $game_party.item_number(3) > 0 #这里是对应的2号物品
  56.     bitmap=Bitmap.new("Graphics/pictures/CG3_s")  #显示CG2的缩略图
  57.     src_rect = Rect.new(0, 0, bitmap.width, bitmap.height)  
  58.     if $game_variables[3] == 3 #选中CG变量改为2
  59.     self.contents.blt(400, 40, bitmap, src_rect,255) #坐标……
  60.     else                    
  61.       self.contents.blt(400, 40, bitmap, src_rect,155)  
  62.       end
  63. #=========================================================
  64.     #以此类推，做好你的CG3、CG4……这样基础排版就已经完成了。
  65.    #没有得到的CG，因为物品数为0，所以不会显示出来。底图上可以画个空框啥的……
  66.    
  67.   end
  68. end
  69. end
复制代码
我是一个真·脚本白痴……
我照着注释改的还是改错了……系统提示“Ocorreu um erro em SyntaxError, durante operação de script（在脚本运行中出现了错误的语法）”。
完全两眼一抹黑……求教……
感激不尽，呃，可以的话请尽量说得通俗易懂些？、

另外有涉及的一段脚本，CG系统是采用把CG做成物品的形式，增加一个“CG1”以后输入一段脚本
“file = File.open("Save/CG.rxdata", "wb")
Marshal.dump($game_party,file)
file.close”

范例本体已传百度网盘，请戳
作者: 美丽晨露    时间: 2013-2-15 17:03
楼主能提供一下那个范例吗？
我不知道再哪下手改呢。
作者: 美丽晨露    时间: 2013-2-15 18:07
本帖最后由 美丽晨露 于 2013-2-15 18:08 编辑

修改好了
可以显示第3张CG
没有问题


附上脚本：
  1. =begin

  3. ★修改方面的罗嗦★

  5. 素材替换和排版参见Scene_Menu，这个就不说了。

  7. 这系统其实用起来原理很简单，自定义的部分也多，当然最麻烦的也在于此。
  8. 脚本里你需要修改的大部分只是数字，我会尽可能详细地解释，也欢迎repo使用中
  9. 出现的问题。

  11. =end

  13. class Window_CG < Window_Base
  14.   #--------------------------------------------------------------------------
  15.   # ● 初始化窗口
  16.   #--------------------------------------------------------------------------
  17.   def initialize
  18.     super(-16, -16, 656, 496) #去掉因为边框而导致的坐标误差
  19.     self.contents = Bitmap.new(width - 32, height - 32)
  20.     self.opacity = 0
  21.     refresh
  22.   end
  23.   #--------------------------------------------------------------------------
  24.   # ● 刷新
  25.   #--------------------------------------------------------------------------
  26.   def refresh
  27.     self.contents.clear
  28. #从这里开始进入缩略图出现与否的判定。做好教程里提到的『三步骤』之后，
  29. #系统已经记录了你继承的物品数据。接下来就是直接用其判定。
  30. #注意3号变量被用来记录当前选定CG的编号。
  31. #请看下面的例子。
  32. #=========================================================
  33. if $game_party.item_number(1) > 0 #1号物品（CG1）如果已经获得的话
  34.     bitmap=Bitmap.new("Graphics/pictures/CG_s")  #显示CG1的缩略图
  35.     src_rect = Rect.new(0, 0, bitmap.width, bitmap.height)  
  36.     if $game_variables[3] == 1
  37.     self.contents.blt(100, 40, bitmap, src_rect,255)
  38.     #前两个数字是坐标可自定义。最后一个数字是判定当该CG被选中时透明度是正常的。
  39.     else        #否则透明度降低表示尚未被选中。
  40.       self.contents.blt(100, 40, bitmap, src_rect,155)
  41.       end
  42.   end
  43. #=========================================================
  44. #这是CG2的设置，改几个小地方即可
  45.   if $game_party.item_number(2) > 0 #这里是对应的2号物品
  46.     bitmap=Bitmap.new("Graphics/pictures/CG2_s")  #显示CG2的缩略图
  47.     src_rect = Rect.new(0, 0, bitmap.width, bitmap.height)  
  48.     if $game_variables[3] == 2 #选中CG变量改为2
  49.     self.contents.blt(300, 40, bitmap, src_rect,255) #坐标……
  50.     else                    
  51.       self.contents.blt(300, 40, bitmap, src_rect,155)  
  52.     end
  53.     end
  54. #=========================================================
  55.     #以此类推，做好你的CG3、CG4……这样基础排版就已经完成了。
  56.    #没有得到的CG，因为物品数为0，所以不会显示出来。底图上可以画个空框啥的……
  57.    ####3号
  58.    if $game_party.item_number(3) > 0 #这里是对应的3号物品
  59.     bitmap=Bitmap.new("Graphics/pictures/CG3_s")  #显示CG2的缩略图
  60.     src_rect = Rect.new(0, 0, bitmap.width, bitmap.height)  
  61.     if $game_variables[3] == 3 #选中CG变量改为3
  62.     self.contents.blt(500, 40, bitmap, src_rect,255) #坐标……
  63.     else                    
  64.       self.contents.blt(500, 40, bitmap, src_rect,155)
  65.     end
  66.     end
  67.     ##########
  68. end
  69. end

  71. #==============================================================================
  72. # ■ Scene_CG
  73. #------------------------------------------------------------------------------
  74. # 　处理CG鉴赏画面的类。
  75. #==============================================================================

  77. class Scene_CG
  78. #--------------------------------------------------------------------------
  79. # ● 主处理
  80. #--------------------------------------------------------------------------
  81.   def main
  82.     $game_variables[3] = 0 #初始化变量
  83.     @cg_window = Window_CG.new
  84.     @back = Sprite.new
  85.     @back.bitmap = RPG::Cache.picture("ui_log")
  86.     # 执行过渡
  87.     Graphics.transition
  88.     # 主循环
  89.     loop do
  90.       # 刷新游戏画面
  91.       Graphics.update
  92.       # 刷新输入信息
  93.       Input.update
  94.       # 刷新画面
  95.       update
  96.       # 如果画面被切换的话就中断循环
  97.       if $scene != self
  98.         break
  99.       end
  100.     end
  101.     # 准备过渡
  102.     Graphics.freeze
  103.     # 释放窗口
  104. #    @command_window.dispose
  105.     @cg_window.dispose
  106.     @back.dispose
  107.   end
  108. #--------------------------------------------------------------------------
  109. # ● 刷新画面
  110. #--------------------------------------------------------------------------
  111.   def update
  112.   $mouse_x, $mouse_y = Mouse.get_mouse_pos #获得鼠标的即时坐标
  113.     # 按下 B 键的情况下
  114.     if Input.trigger?(Input::B)
  115.       # 演奏取消 SE
  116.       $game_system.se_play($data_system.cancel_se)
  117.       # 切换到菜单画面
  118.       $scene = Scene_Title.new
  119.       return
  120.     end
  121.   #
  122.    
  123.     #【重点注意】关于鼠标的刷新。其实原理就是判断鼠标是否落在缩略图上。
  124.      
  125.     #如果落在上面了，则给变量赋值表示选中了某CG。否则将变量清零。
  126.      
  127.     #以CG1为例，上面设置过X坐标100，Y坐标40（左上角原点坐标）。
  128.     #宽高分别是120和90（按你自己做的缩略图大小）。
  129.      
  130.     #所以，CG左上角在(100,40)处，右上角在(220,40)处，左下角在(100,130)处，
  131.      
  132.     #右下角在(220,130)处。（还搞不清的自己画个长方形就知道怎么回事了）
  133.    
  134.     #所以鼠标的X坐标如果在100～220之间同时Y坐标在40～130之间，
  135.    
  136.     #即表示鼠标移动到了这张缩略图上。

  138.    
  139.   if $mouse_x <= 220 and $mouse_x >= 100 and $mouse_y <= 130 and $mouse_y >= 40
  140.      if $game_party.item_number(1) > 0 #CG已经获得时才进行判定
  141.    if $game_variables[3] != 1 #如果现在还没选中该CG的话
  142.     $game_system.se_play($data_system.cursor_se)
  143.     $game_variables[3] = 1    #当前选定CG1
  144.     @cg_window.refresh #刷新一下CG窗口，让原本半透明的CG正回来
  145.     end
  146.     end
  147.    
  148.   elsif $mouse_x <= 420 and $mouse_x >= 300 and $mouse_y <= 130 and $mouse_y >= 40
  149.     if $game_party.item_number(2) > 0 #CG2已经获得时才进行判定
  150.     if $game_variables[3] != 2 #如果现在还没选中该CG的话
  151.     $game_system.se_play($data_system.cursor_se)
  152.     $game_variables[3] = 2   #当前选定CG2
  153.     @cg_window.refresh
  154.     end
  155.   end #这是第二张CG的判定范例。需要更多请用elsif继续接下去。
  156.   #
  157.   elsif $mouse_x <= 620 and $mouse_x >= 500 and $mouse_y <= 130 and $mouse_y >= 40
  158.     if $game_party.item_number(3) > 0 #CG3已经获得时才进行判定
  159.     if $game_variables[3] != 3 #如果现在还没选中该CG的话
  160.     $game_system.se_play($data_system.cursor_se)
  161.     $game_variables[3] = 3   #当前选定CG3
  162.     @cg_window.refresh
  163.     end
  164.     end #这是第二张CG的判定范例。需要更多请用elsif继续接下去。
  165. #   
  166.   else
  167.     $game_variables[3] = 0
  168.     @cg_window.refresh
  169.   end

  171.    if Input.trigger?(Input::C)
  172.     if $game_variables[3] != 0 #有CG被选中的时候
  173.     $game_system.se_play($data_system.decision_se)
  174.     $game_map.setup(2) #移动到2号地图。（地图ID在新建地图可看到）编号自己能改。
  175.     $game_player.moveto(0,0)
  176.     $game_player.refresh
  177.     $game_map.autoplay
  178.     $game_map.update
  179.     $scene = Scene_Map.new
  180.     #接下来显示出CG或者制作回想之类的内容就都是那张地图上的事情了。
  181.     #因为3号变量已经被赋值，所以直接利用条件分歧显示不同图片即可。
  182.   end
  183. end   

  185. end
  186. end
复制代码
楼主看看跟你之前设置的地方，是哪里你弄错了？



欢迎光临 Project1 (https://rpg.blue/) Powered by Discuz! X3.1