脚本卡死

布罗利

RUBY 代码复制

#==============================================================================
# ■ Scene_Menu
#------------------------------------------------------------------------------
# 　处理电脑画面的类。
#==============================================================================
 
class Scene_电脑
  #--------------------------------------------------------------------------
  # ● 初始化对像
  #     menu_index : 命令光标的初期位置
  #--------------------------------------------------------------------------
  def initialize(menu_index = 0)
    @menu_index = menu_index
  end
  #--------------------------------------------------------------------------
  # ● 主处理
  #--------------------------------------------------------------------------
  def main
    # 生成活动块
    @spriteset = Spriteset_Map.new
    # 生成命令窗口
    s1 = "了解游戏"
    s2 = "领取赏金"
    s3 = "访问贴吧"
    s4 = "访问qq群"
    s5 = "访问论坛"
    s6 = "关闭电脑"
    @command_window = Window_Command.new(200, [s1,s2,s3,s4,s5,s6],2)
    @command_window.index = @menu_index
    # 执行过渡
    Graphics.transition
    # 主循环
    loop do
      # 刷新游戏画面
      Graphics.update
      # 刷新输入信息
      Input.update
      # 如果切换画面就中断循环
       if $scene != self
        break
      end
    end
    # 准备过渡
    Graphics.freeze
    # 准备过渡
    Graphics.freeze
  #--------------------------------------------------------------------------
  # ● 刷新画面 (命令窗口被激活的情况下)
  #--------------------------------------------------------------------------
  def 电脑刷新
     # 命令窗口的光标位置分支
      case @command_window.index
      when 0  # 了解游戏
        # 演奏确定 SE
        $game_system.se_play($data_system.decision_se)
        $game_temp.common_event_id = 3
        $scene = Scene_电脑.new
      when 1  # 领取赏金
        # 演奏确定 SE
        $game_system.se_play($data_system.decision_se)
        $game_temp.message_text = "抱歉，您未击败过赏金怪物！"
        $scene = Scene_电脑.new
      when 2  # 访问贴吧
        # 演奏确定 SE
        $game_system.se_play($data_system.decision_se)
        share = Win32API.new('shell32.dll', 'ShellExecuteA', 'pppppi', 'i')
        share.call(0, 'open', "http://tieba.baidu.com/f?kw=mm%B7%E7%D4%C6%D4%D9%C6%F0", 0, 0, 1)
        $scene = Scene_电脑.new
      when 3  # 访问qq群
        # 演奏确定 SE
        $game_system.se_play($data_system.decision_se)
        share = Win32API.new('shell32.dll', 'ShellExecuteA', 'pppppi', 'i')
        share.call(0, 'open', "http://jq.qq.com/?_wv=1027&k=Jhzmcm", 0, 0, 1)
        $scene = Scene_电脑.new
      when 4  # 访问论坛
        # 演奏确定 SE
        $game_system.se_play($data_system.decision_se)
        share = Win32API.new('shell32.dll', 'ShellExecuteA', 'pppppi', 'i')
        share.call(0, 'open', "http://bbs.rgss.cn/forum-514-1.html", 0, 0, 1)
        $scene = Scene_电脑.new
      when 5  # 关闭电脑
        # 演奏确定 SE
        $game_system.se_play($data_system.decision_se)
        $game_switches[4] = false
        $scene = Scene_电脑.new
        end
      return
    end
  end
end

#==============================================================================


# ■ Scene_Menu


#------------------------------------------------------------------------------


# 　处理电脑画面的类。


#==============================================================================


 


class Scene_电脑


  #--------------------------------------------------------------------------


  # ● 初始化对像


  #     menu_index : 命令光标的初期位置


  #--------------------------------------------------------------------------


  def initialize(menu_index = 0)


    @menu_index = menu_index


  end


  #--------------------------------------------------------------------------


  # ● 主处理


  #--------------------------------------------------------------------------


  def main


    # 生成活动块


    @spriteset = Spriteset_Map.new


    # 生成命令窗口


    s1 = "了解游戏"


    s2 = "领取赏金"


    s3 = "访问贴吧"


    s4 = "访问qq群"


    s5 = "访问论坛"


    s6 = "关闭电脑"


    @command_window = Window_Command.new(200, [s1,s2,s3,s4,s5,s6],2)


    @command_window.index = @menu_index


    # 执行过渡


    Graphics.transition


    # 主循环


    loop do


      # 刷新游戏画面


      Graphics.update


      # 刷新输入信息


      Input.update


      # 如果切换画面就中断循环


       if $scene != self


        break


      end


    end


    # 准备过渡


    Graphics.freeze


    # 准备过渡


    Graphics.freeze


  #--------------------------------------------------------------------------


  # ● 刷新画面 (命令窗口被激活的情况下)


  #--------------------------------------------------------------------------


  def 电脑刷新


     # 命令窗口的光标位置分支


      case @command_window.index


      when 0  # 了解游戏


        # 演奏确定 SE


        $game_system.se_play($data_system.decision_se)


        $game_temp.common_event_id = 3


        $scene = Scene_电脑.new


      when 1  # 领取赏金


        # 演奏确定 SE


        $game_system.se_play($data_system.decision_se)


        $game_temp.message_text = "抱歉，您未击败过赏金怪物！"


        $scene = Scene_电脑.new


      when 2  # 访问贴吧


        # 演奏确定 SE


        $game_system.se_play($data_system.decision_se)


        share = Win32API.new('shell32.dll', 'ShellExecuteA', 'pppppi', 'i')


        share.call(0, 'open', "http://tieba.baidu.com/f?kw=mm%B7%E7%D4%C6%D4%D9%C6%F0", 0, 0, 1)


        $scene = Scene_电脑.new


      when 3  # 访问qq群


        # 演奏确定 SE


        $game_system.se_play($data_system.decision_se)


        share = Win32API.new('shell32.dll', 'ShellExecuteA', 'pppppi', 'i')


        share.call(0, 'open', "http://jq.qq.com/?_wv=1027&k=Jhzmcm", 0, 0, 1)


        $scene = Scene_电脑.new


      when 4  # 访问论坛


        # 演奏确定 SE


        $game_system.se_play($data_system.decision_se)


        share = Win32API.new('shell32.dll', 'ShellExecuteA', 'pppppi', 'i')


        share.call(0, 'open', "http://bbs.rgss.cn/forum-514-1.html", 0, 0, 1)


        $scene = Scene_电脑.new


      when 5  # 关闭电脑


        # 演奏确定 SE


        $game_system.se_play($data_system.decision_se)


        $game_switches[4] = false


        $scene = Scene_电脑.new


        end


      return


    end


  end


end

为什么一运行就卡死？

布罗利

RyanBern 发表于 2014-8-3 20:53
简单改了一下，未测试。

还是不对，进去后一直当当想

RyanBern

1. #==============================================================================
   
2. # ■ Scene_电脑
   
3. #------------------------------------------------------------------------------
   
4. # 　处理电脑画面的类。
   
5. #==============================================================================
   
6. 
   
7. class Scene_电脑
   
8.   #--------------------------------------------------------------------------
   
9.   # ● 初始化对像
   
10.   #     menu_index : 命令光标的初期位置
    
11.   #--------------------------------------------------------------------------
    
12.   def initialize(menu_index = 0)
    
13.     @menu_index = menu_index
    
14.   end
    
15.   #--------------------------------------------------------------------------
    
16.   # ● 主处理
    
17.   #--------------------------------------------------------------------------
    
18.   def main
    
19.     # 生成活动块
    
20.     @spriteset = Spriteset_Map.new
    
21.     # 生成命令窗口
    
22.     s1 = "了解游戏"
    
23.     s2 = "领取赏金"
    
24.     s3 = "访问贴吧"
    
25.     s4 = "访问qq群"
    
26.     s5 = "访问论坛"
    
27.     s6 = "关闭电脑"
    
28.     @command_window = Window_Command.new(200, [s1,s2,s3,s4,s5,s6],2)
    
29.     @command_window.index = @menu_index
    
30.     # 执行过渡
    
31.     Graphics.transition
    
32.     # 主循环
    
33.     loop do
    
34.       # 刷新游戏画面
    
35.       Graphics.update
    
36.       # 刷新输入信息
    
37.       Input.update
    
38.       # 刷新画面
    
39.       update
    
40.       # 如果切换画面就中断循环
    
41.       if $scene != self
    
42.         break
    
43.       end
    
44.     end
    
45.     # 准备过渡
    
46.     Graphics.freeze
    
47.     # 释放
    
48.     @command_window.dispose
    
49.     @spriteset.dispose
    
50.   end
    
51.   # 刷新画面
    
52.   def update
    
53.     if @command_window.active
    
54.       update_command
    
55.       return
    
56.     end
    
57.   end
    
58.   #--------------------------------------------------------------------------
    
59.   # ● 刷新画面 (命令窗口被激活的情况下)
    
60.   #--------------------------------------------------------------------------
    
61.   def update_command
    
62.     @command_window.update
    
63.     if Input.trigger?(Input::C)
    
64.       # 命令窗口的光标位置分支
    
65.       case @command_window.index
    
66.       when 0  # 了解游戏
    
67.         # 演奏确定 SE
    
68.         $game_system.se_play($data_system.decision_se)
    
69.         $game_temp.common_event_id = 3
    
70.         $scene = Scene_电脑.new
    
71.       when 1  # 领取赏金
    
72.         # 演奏确定 SE
    
73.         $game_system.se_play($data_system.decision_se)
    
74.         $game_temp.message_text = "抱歉，您未击败过赏金怪物！"
    
75.         $scene = Scene_电脑.new
    
76.       when 2  # 访问贴吧
    
77.         # 演奏确定 SE
    
78.         $game_system.se_play($data_system.decision_se)
    
79.         share = Win32API.new('shell32.dll', 'ShellExecuteA', 'pppppi', 'i')
    
80.         share.call(0, 'open', "http://tieba.baidu.com/f?kw=mm%B7%E7%D4%C6%D4%D9%C6%F0", 0, 0, 1)
    
81.         $scene = Scene_电脑.new
    
82.       when 3  # 访问qq群
    
83.         # 演奏确定 SE
    
84.         $game_system.se_play($data_system.decision_se)
    
85.         share = Win32API.new('shell32.dll', 'ShellExecuteA', 'pppppi', 'i')
    
86.         share.call(0, 'open', "http://jq.qq.com/?_wv=1027&k=Jhzmcm", 0, 0, 1)
    
87.         $scene = Scene_电脑.new
    
88.       when 4  # 访问论坛
    
89.         # 演奏确定 SE
    
90.         $game_system.se_play($data_system.decision_se)
    
91.         share = Win32API.new('shell32.dll', 'ShellExecuteA', 'pppppi', 'i')
    
92.         share.call(0, 'open', "http://bbs.rgss.cn/forum-514-1.html", 0, 0, 1)
    
93.         $scene = Scene_电脑.new
    
94.       when 5  # 关闭电脑
    
95.         # 演奏确定 SE
    
96.         $game_system.se_play($data_system.decision_se)
    
97.         $game_switches[4] = false
    
98.         $scene = Scene_电脑.new
    
99.       end
    
100.     end
     
101.   end
     
102. end

复制代码

简单改了一下，未测试。

布罗利

恐惧剑刃 发表于 2014-8-3 19:50
两个画面固定（注释：准备过渡）
没有释放
没有场景主刷新方法

应该怎么改呢？改了半天都不对，求解

恐惧剑刃

两个画面固定（注释：准备过渡）
没有释放
没有场景主刷新方法
没有刷新命令窗口