把亚古的《新金庸无双1.0》中贪吃蛇小游戏修整到RMVA

boby1999

亚古的《新金庸无双1.0》中贪吃蛇小游戏脚本移植到了RMVA，完善了内存释放。并做了两个版本，一个是继承Window_Base类，另一个是继承Scene_Base类。
其中用到的图片有3种，bg即整个小游戏的背景图，还有两个是30x30像素的，分别用来显示 蛇的每一节及要吃的饵食，这图片就不上传了。有兴趣的随手拿几张现成的图片都能用。
截图如下:

两个版本的脚本分别如下：

RUBY 代码复制

#==============================================================================
# ■ Game_Neigong
#------------------------------------------------------------------------------
# 　真气条小游戏(贪吃蛇)，继承Window_Base类来实现
#       调用方法  mywnd = Game_Neigong.new
#                 mywnd.close
#                 mywnd.dispose
#                 显示文字 ：循環周天結束！已沖過的穴道數是\V[859]
#==============================================================================
class Game_Neigong < Window_Base
  #--------------------------------------------------------------------------
  # ● 初始化对像
  #--------------------------------------------------------------------------
  def initialize
    @mySize = 30        # 界面大小（单位：图块）
    @myWidth = 30 * 12  # 界面宽度（单位：像素）
    @myHeight = 30 * 12 # 界面高度（单位：像素）
 
    # 界面背景图的位图
    @bgBitmap = Bitmap.new("Graphics/Pictures/ngxl_bg.png")
    # 分五行的真气的图形文件名，每次小游戏一开始会随机选定一种
    @zhenqi = "Graphics/Pictures/zhenqi" + rand(5).to_s + ".png"
    # 蛇身上的一节的位图，节数会越来越多，蛇也越来越长
    @NeiGongBitmap = Bitmap.new("Graphics/Pictures/neigong.png")
 
    # 小游戏的整个外框，大小与背景图片相同
    super(0, 0, @bgBitmap.width, @bgBitmap.height)
    self.opacity = 32
 
    @score = 0                        # 初始分数
    @level = 1                        # 初始化难度等级
    @max_length =  35                 # 初始化真气条最大长度，即蛇身的最大长度
    @array_Neigong = [[14,8],[13,8]]  # 界面划分成格子
    @speed = 20                       # 初始化速度,数值越大，移动速度越慢
    @direction = "left"               # 初始化方向
    @run = false                      # 初始化真气条是否为运动状态
    @time_count = 0                   # 计时器
    @zhenqi_exist = false             # 标记真气是否存在
    @bGameOver = false                # 标记游戏是否终结
 
    game_Neigong_Main
  end
 
  #--------------------------------------------------------------------------
  # ● 主处理
  #--------------------------------------------------------------------------
  def game_Neigong_Main
    # 真气条背景
    @sprite = Sprite.new
    @sprite.bitmap = @bgBitmap
 
    # 初始化屏幕
    @sprite_clear = Sprite.new
    @sprite_clear.bitmap = Bitmap.new(@myWidth,@myHeight)
    @sprite_clear.x = 254
    @sprite_clear.y = 70
 
    # 显示得分
    @sprite_score = Sprite.new
    @sprite_score.bitmap = Bitmap.new(@myWidth,@myHeight)
    @sprite_score.x = 254
    @sprite_score.y = 440
    refresh_score
 
    # 初始化蛇的图形
    @sprite_Neigong = []
    for i in [email]0...@array_Neigong.length[/email]
      @sprite_Neigong[i] = Sprite.new
      @sprite_Neigong[i].bitmap = @NeiGongBitmap
      @sprite_Neigong[i].x = @array_Neigong[i][0] * @mySize
      @sprite_Neigong[i].y = @array_Neigong[i][1] * @mySize
    end
 
    # 描绘真气(蛇要去吃的饵食)
    @sprite_zhenqi = Sprite.new
    @sprite_zhenqi.bitmap = Bitmap.new(@zhenqi)
    # 执行画面过渡
    Graphics.transition
 
    # 主循环
    loop do
      # 刷新游戏画面
      Graphics.update
      # 刷新输入信息
      Input.update
      # 刷新画面情报
      update
      # 如果标记游戏终结，就中断循环
      if @bGameOver
        break
      end
    end
    # 执行画面过渡
    Graphics.transition
  end
 
  #--------------------------------------------------------------------------
  # ● 刷新画面
  #--------------------------------------------------------------------------
  def update
    # 如果真气不存在则描绘真气
    if @zhenqi_exist == false
      # 描绘真气
      draw_zhenqi
      @zhenqi_exist = true
    end
    # 开始运动
    start_move
    # 如果真气条正在运动
    if @run
      if @time_count % @speed == 0
        move1
        if check_eat
          @score += 1
          # 刷新等级
          if @score >= @level * 20
            @level += 1
            @speed -= 1
            if @level > 6
              #p "本次周天循環沖穴數量已達上限！"
              exit
            end
          end
          refresh_score
          # 增加真气条长度
          if @array_Neigong.length < @max_length
            @array_Neigong.push([@array_Neigong[@array_Neigong.length-1][0],
            @array_Neigong[@array_Neigong.length-1][1]])
            @sprite_Neigong[@array_Neigong.length-1] = Sprite.new
            @sprite_Neigong[@array_Neigong.length-1].bitmap = @NeiGongBitmap
          end
          @zhenqi_exist = false
        end
        # 如果撞到墙壁或自身则游戏结束
        if check_collision
          game_over
        end
      end
    end
    @time_count += 1
  end
 
  #--------------------------------------------------------------------------
  # 开始运动
  def start_move
    # 前后按下两个不同的方向键后开始运动
    if Input.trigger?(Input::UP)
      unless @direction == "down"
        @run = true
        @direction = "up"
      end
    end
    if Input.trigger?(Input::DOWN)
      unless @direction == "up"
        @run = true
        @direction = "down"
      end
    end
    if Input.trigger?(Input::LEFT)
      unless @direction == "right"
        @run = true
        @direction = "left"
      end
    end
    if Input.trigger?(Input::RIGHT)
      unless @direction == "left"
        @run = true
        @direction = "right"
      end
    end
  end
 
  #--------------------------------------------------------------------------
  # 真气条移动
  def move1
    case @direction
      when "up"
        for i in [email]1...@array_Neigong.length[/email]
          @array_Neigong[@array_Neigong.length-i][0] = @array_Neigong[@array_Neigong.length-i-1][0]
          @array_Neigong[@array_Neigong.length-i][1] = @array_Neigong[@array_Neigong.length-i-1][1]
        end
        @array_Neigong[0][1] -= 1
      when "down"
        for i in [email]1...@array_Neigong.length[/email]
          @array_Neigong[@array_Neigong.length-i][0] = @array_Neigong[@array_Neigong.length-i-1][0]
          @array_Neigong[@array_Neigong.length-i][1] = @array_Neigong[@array_Neigong.length-i-1][1]
        end
        @array_Neigong[0][1] += 1
      when "left"
        for i in [email]1...@array_Neigong.length[/email]
          @array_Neigong[@array_Neigong.length-i][0] = @array_Neigong[@array_Neigong.length-i-1][0]
          @array_Neigong[@array_Neigong.length-i][1] = @array_Neigong[@array_Neigong.length-i-1][1]
        end
        @array_Neigong[0][0] -= 1
      when "right"
        for i in [email]1...@array_Neigong.length[/email]
          @array_Neigong[@array_Neigong.length-i][0] = @array_Neigong[@array_Neigong.length-i-1][0]
          @array_Neigong[@array_Neigong.length-i][1] = @array_Neigong[@array_Neigong.length-i-1][1]
        end
        @array_Neigong[0][0] += 1
    end
    draw_Neigong # 描绘真气条
  end
 
  #--------------------------------------------------------------------------
  # 刷新得分
  def refresh_score
    @sprite_score.bitmap.clear
    @sprite_score.bitmap.font.size = 18
    @sprite_score.bitmap.font.color.set(255,255,255)
    @sprite_score.bitmap.draw_text(10, 0, 160, 32, "本次循經穴道：" + @score.to_s)
    @sprite_score.bitmap.draw_text(10, 32, 160, 32, "當前循環周天：" + @array_Neigong.length.to_s)
    @sprite_score.bitmap.draw_text(10, 64, 160, 32, "當前循環度為：" + @level.to_s) 
  end
 
  #--------------------------------------------------------------------------
  # 生成真气坐标
  def creat_zhenqi
    loop do
      zhenqi_x = rand(11) + 8
      zhenqi_y = rand(11) + 3
      creat_succes = true # 标记是否成功生成的开关
      for i in [email]0...@array_Neigong.length[/email]
        if zhenqi_x == @array_Neigong[i][0] and zhenqi_y == @array_Neigong[i][1]
          creat_succes = false
        end
      end
      # 如果成功生成真气则中断循环
      if creat_succes
        return zhenqi_x * @mySize,zhenqi_y * @mySize
        break
      end
    end
  end
 
  #--------------------------------------------------------------------------
  # 描绘真气
  def draw_zhenqi
    @zhenqi_x,@zhenqi_y = creat_zhenqi
    @sprite_zhenqi.x = @zhenqi_x
    @sprite_zhenqi.y = @zhenqi_y
  end
 
  #--------------------------------------------------------------------------
  # 描绘蛇的图形
  def draw_Neigong
    for i in [email]0...@array_Neigong.length[/email]
      @sprite_Neigong[i].x = @array_Neigong[i][0] * @mySize
      @sprite_Neigong[i].y = @array_Neigong[i][1] * @mySize
    end
  end
 
  #--------------------------------------------------------------------------
  # 检测真气条是否撞到墙壁或自身
  def check_collision
    if @array_Neigong[0][0] < 8 or @array_Neigong[0][0] > 18 or
      @array_Neigong[0][1] < 3 or @array_Neigong[0][1] > 13 
      return true
    end
    for i in [email]1...@array_Neigong.length[/email] 
      if @array_Neigong[0][0] == @array_Neigong[i][0] and
        @array_Neigong[0][1] == @array_Neigong[i][1]
        return true
      end
    end
    return false
  end
 
  #--------------------------------------------------------------------------
  # 检测是否吃到真气
  def check_eat
    if @array_Neigong[0][0] == @zhenqi_x / @mySize and 
      @array_Neigong[0][1] == @zhenqi_y / @mySize
      return true
    end
  end
 
  #--------------------------------------------------------------------------
  # 游戏结束的处理
  def game_over
    #print "循環周天結束！本次沖過的穴道數：#{@score}"
    # 第859号系统变量中存放：累计冲穴的穴道总数
    $game_variables[859] += @score
    @bGameOver=true
 
    # 释放初始化、主程序和增加真气条长度时动态分配的内存
    @NeiGongBitmap.dispose
    for i in [email]0...@array_Neigong.length[/email]
      @sprite_Neigong[i].dispose
    end
    @sprite_zhenqi.bitmap.dispose
    @sprite_zhenqi.dispose
    @sprite_score.bitmap.dispose
    @sprite_score.dispose
    @sprite_clear.bitmap.dispose
    @sprite_clear.dispose
    @bgBitmap.dispose
    @sprite.dispose
  end
end

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


# ■ Game_Neigong


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


# 　真气条小游戏(贪吃蛇)，继承Window_Base类来实现


#       调用方法  mywnd = Game_Neigong.new


#                 mywnd.close


#                 mywnd.dispose


#                 显示文字 ：循環周天結束！已沖過的穴道數是\V[859]


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


class Game_Neigong < Window_Base


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


  # ● 初始化对像


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


  def initialize


    @mySize = 30        # 界面大小（单位：图块）


    @myWidth = 30 * 12  # 界面宽度（单位：像素）


    @myHeight = 30 * 12 # 界面高度（单位：像素）


 


    # 界面背景图的位图


    @bgBitmap = Bitmap.new("Graphics/Pictures/ngxl_bg.png")


    # 分五行的真气的图形文件名，每次小游戏一开始会随机选定一种


    @zhenqi = "Graphics/Pictures/zhenqi" + rand(5).to_s + ".png"


    # 蛇身上的一节的位图，节数会越来越多，蛇也越来越长


    @NeiGongBitmap = Bitmap.new("Graphics/Pictures/neigong.png")


 


    # 小游戏的整个外框，大小与背景图片相同


    super(0, 0, @bgBitmap.width, @bgBitmap.height)


    self.opacity = 32


 


    @score = 0                        # 初始分数


    @level = 1                        # 初始化难度等级


    @max_length =  35                 # 初始化真气条最大长度，即蛇身的最大长度


    @array_Neigong = [[14,8],[13,8]]  # 界面划分成格子


    @speed = 20                       # 初始化速度,数值越大，移动速度越慢


    @direction = "left"               # 初始化方向


    @run = false                      # 初始化真气条是否为运动状态


    @time_count = 0                   # 计时器


    @zhenqi_exist = false             # 标记真气是否存在


    @bGameOver = false                # 标记游戏是否终结


 


    game_Neigong_Main


  end


 


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


  # ● 主处理


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


  def game_Neigong_Main


    # 真气条背景


    @sprite = Sprite.new


    @sprite.bitmap = @bgBitmap


 


    # 初始化屏幕


    @sprite_clear = Sprite.new


    @sprite_clear.bitmap = Bitmap.new(@myWidth,@myHeight)


    @sprite_clear.x = 254


    @sprite_clear.y = 70


 


    # 显示得分


    @sprite_score = Sprite.new


    @sprite_score.bitmap = Bitmap.new(@myWidth,@myHeight)


    @sprite_score.x = 254


    @sprite_score.y = 440


    refresh_score


 


    # 初始化蛇的图形


    @sprite_Neigong = []


    for i in [email]0...@array_Neigong.length[/email]


      @sprite_Neigong[i] = Sprite.new


      @sprite_Neigong[i].bitmap = @NeiGongBitmap


      @sprite_Neigong[i].x = @array_Neigong[i][0] * @mySize


      @sprite_Neigong[i].y = @array_Neigong[i][1] * @mySize


    end


 


    # 描绘真气(蛇要去吃的饵食)


    @sprite_zhenqi = Sprite.new


    @sprite_zhenqi.bitmap = Bitmap.new(@zhenqi)


    # 执行画面过渡


    Graphics.transition


 


    # 主循环


    loop do


      # 刷新游戏画面


      Graphics.update


      # 刷新输入信息


      Input.update


      # 刷新画面情报


      update


      # 如果标记游戏终结，就中断循环


      if @bGameOver


        break


      end


    end


    # 执行画面过渡


    Graphics.transition


  end


 


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


  # ● 刷新画面


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


  def update


    # 如果真气不存在则描绘真气


    if @zhenqi_exist == false


      # 描绘真气


      draw_zhenqi


      @zhenqi_exist = true


    end


    # 开始运动


    start_move


    # 如果真气条正在运动


    if @run


      if @time_count % @speed == 0


        move1


        if check_eat


          @score += 1


          # 刷新等级


          if @score >= @level * 20


            @level += 1


            @speed -= 1


            if @level > 6


              #p "本次周天循環沖穴數量已達上限！"


              exit


            end


          end


          refresh_score


          # 增加真气条长度


          if @array_Neigong.length < @max_length


            @array_Neigong.push([@array_Neigong[@array_Neigong.length-1][0],


            @array_Neigong[@array_Neigong.length-1][1]])


            @sprite_Neigong[@array_Neigong.length-1] = Sprite.new


            @sprite_Neigong[@array_Neigong.length-1].bitmap = @NeiGongBitmap


          end


          @zhenqi_exist = false


        end


        # 如果撞到墙壁或自身则游戏结束


        if check_collision


          game_over


        end


      end


    end


    @time_count += 1


  end


 


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


  # 开始运动


  def start_move


    # 前后按下两个不同的方向键后开始运动


    if Input.trigger?(Input::UP)


      unless @direction == "down"


        @run = true


        @direction = "up"


      end


    end


    if Input.trigger?(Input::DOWN)


      unless @direction == "up"


        @run = true


        @direction = "down"


      end


    end


    if Input.trigger?(Input::LEFT)


      unless @direction == "right"


        @run = true


        @direction = "left"


      end


    end


    if Input.trigger?(Input::RIGHT)


      unless @direction == "left"


        @run = true


        @direction = "right"


      end


    end


  end


 


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


  # 真气条移动


  def move1


    case @direction


      when "up"


        for i in [email]1...@array_Neigong.length[/email]


          @array_Neigong[@array_Neigong.length-i][0] = @array_Neigong[@array_Neigong.length-i-1][0]


          @array_Neigong[@array_Neigong.length-i][1] = @array_Neigong[@array_Neigong.length-i-1][1]


        end


        @array_Neigong[0][1] -= 1


      when "down"


        for i in [email]1...@array_Neigong.length[/email]


          @array_Neigong[@array_Neigong.length-i][0] = @array_Neigong[@array_Neigong.length-i-1][0]


          @array_Neigong[@array_Neigong.length-i][1] = @array_Neigong[@array_Neigong.length-i-1][1]


        end


        @array_Neigong[0][1] += 1


      when "left"


        for i in [email]1...@array_Neigong.length[/email]


          @array_Neigong[@array_Neigong.length-i][0] = @array_Neigong[@array_Neigong.length-i-1][0]


          @array_Neigong[@array_Neigong.length-i][1] = @array_Neigong[@array_Neigong.length-i-1][1]


        end


        @array_Neigong[0][0] -= 1


      when "right"


        for i in [email]1...@array_Neigong.length[/email]


          @array_Neigong[@array_Neigong.length-i][0] = @array_Neigong[@array_Neigong.length-i-1][0]


          @array_Neigong[@array_Neigong.length-i][1] = @array_Neigong[@array_Neigong.length-i-1][1]


        end


        @array_Neigong[0][0] += 1


    end


    draw_Neigong # 描绘真气条


  end


 


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


  # 刷新得分


  def refresh_score


    @sprite_score.bitmap.clear


    @sprite_score.bitmap.font.size = 18


    @sprite_score.bitmap.font.color.set(255,255,255)


    @sprite_score.bitmap.draw_text(10, 0, 160, 32, "本次循經穴道：" + @score.to_s)


    @sprite_score.bitmap.draw_text(10, 32, 160, 32, "當前循環周天：" + @array_Neigong.length.to_s)


    @sprite_score.bitmap.draw_text(10, 64, 160, 32, "當前循環度為：" + @level.to_s) 


  end


 


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


  # 生成真气坐标


  def creat_zhenqi


    loop do


      zhenqi_x = rand(11) + 8


      zhenqi_y = rand(11) + 3


      creat_succes = true # 标记是否成功生成的开关


      for i in [email]0...@array_Neigong.length[/email]


        if zhenqi_x == @array_Neigong[i][0] and zhenqi_y == @array_Neigong[i][1]


          creat_succes = false


        end


      end


      # 如果成功生成真气则中断循环


      if creat_succes


        return zhenqi_x * @mySize,zhenqi_y * @mySize


        break


      end


    end


  end


 


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


  # 描绘真气


  def draw_zhenqi


    @zhenqi_x,@zhenqi_y = creat_zhenqi


    @sprite_zhenqi.x = @zhenqi_x


    @sprite_zhenqi.y = @zhenqi_y


  end


 


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


  # 描绘蛇的图形


  def draw_Neigong


    for i in [email]0...@array_Neigong.length[/email]


      @sprite_Neigong[i].x = @array_Neigong[i][0] * @mySize


      @sprite_Neigong[i].y = @array_Neigong[i][1] * @mySize


    end


  end


 


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


  # 检测真气条是否撞到墙壁或自身


  def check_collision


    if @array_Neigong[0][0] < 8 or @array_Neigong[0][0] > 18 or


      @array_Neigong[0][1] < 3 or @array_Neigong[0][1] > 13 


      return true


    end


    for i in [email]1...@array_Neigong.length[/email] 


      if @array_Neigong[0][0] == @array_Neigong[i][0] and


        @array_Neigong[0][1] == @array_Neigong[i][1]


        return true


      end


    end


    return false


  end


 


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


  # 检测是否吃到真气


  def check_eat


    if @array_Neigong[0][0] == @zhenqi_x / @mySize and 


      @array_Neigong[0][1] == @zhenqi_y / @mySize


      return true


    end


  end


 


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


  # 游戏结束的处理


  def game_over


    #print "循環周天結束！本次沖過的穴道數：#{@score}"


    # 第859号系统变量中存放：累计冲穴的穴道总数


    $game_variables[859] += @score


    @bGameOver=true


 


    # 释放初始化、主程序和增加真气条长度时动态分配的内存


    @NeiGongBitmap.dispose


    for i in [email]0...@array_Neigong.length[/email]


      @sprite_Neigong[i].dispose


    end


    @sprite_zhenqi.bitmap.dispose


    @sprite_zhenqi.dispose


    @sprite_score.bitmap.dispose


    @sprite_score.dispose


    @sprite_clear.bitmap.dispose


    @sprite_clear.dispose


    @bgBitmap.dispose


    @sprite.dispose


  end


end

RUBY 代码复制

#==============================================================================
# ■ Scene_Neigong
#------------------------------------------------------------------------------
# 　真气条小游戏(贪吃蛇)，继承Scene_Base类来实现
#       调用方法  SceneManager.call(Game_Neigong)
#                 SceneManager.return
#                 显示文字 ：循環周天結束！已沖過的穴道數是\V[859]
#==============================================================================
class Scene_Neigong < Scene_Base
  #--------------------------------------------------------------------------
  # ● 初始化对像
  #--------------------------------------------------------------------------
  def initialize
    @mySize = 30        # 界面大小（单位：图块）
    @myWidth = 30 * 12  # 界面宽度（单位：像素）
    @myHeight = 30 * 12 # 界面高度（单位：像素）
 
    # 界面背景图的位图
    @bgBitmap = Bitmap.new("Graphics/Pictures/ngxl_bg.png")
    # 分五行的真气的图形文件名，每次小游戏一开始会随机选定一种
    @zhenqi = "Graphics/Pictures/zhenqi" + rand(5).to_s + ".png"
    # 蛇身上的一节的位图，节数会越来越多，蛇也越来越长
    @NeiGongBitmap = Bitmap.new("Graphics/Pictures/neigong.png")
 
    @score = 0                        # 初始分数
    @level = 1                        # 初始化难度等级
    @max_length =  35                 # 初始化真气条最大长度，即蛇身的最大长度
    @array_Neigong = [[14,8],[13,8]]  # 界面划分成格子
    @speed = 20                       # 初始化速度,数值越大，移动速度越慢
    @direction = "left"               # 初始化方向
    @run = false                      # 初始化真气条是否为运动状态
    @time_count = 0                   # 计时器
    @zhenqi_exist = false             # 标记真气是否存在
    @bGameOver = false                # 标记游戏是否终结
 
    game_Neigong_Main
  end
 
  #--------------------------------------------------------------------------
  # ● 主处理
  #--------------------------------------------------------------------------
  def game_Neigong_Main
    # 真气条背景
    @sprite = Sprite.new
    @sprite.bitmap = @bgBitmap
 
    # 初始化屏幕
    @sprite_clear = Sprite.new
    @sprite_clear.bitmap = Bitmap.new(@myWidth,@myHeight)
    @sprite_clear.x = 254
    @sprite_clear.y = 70
 
    # 显示得分
    @sprite_score = Sprite.new
    @sprite_score.bitmap = Bitmap.new(@myWidth,@myHeight)
    @sprite_score.x = 254
    @sprite_score.y = 440
    refresh_score
 
    # 初始化蛇的图形
    @sprite_Neigong = []
    for i in [email]0...@array_Neigong.length[/email]
      @sprite_Neigong[i] = Sprite.new
      @sprite_Neigong[i].bitmap = @NeiGongBitmap
      @sprite_Neigong[i].x = @array_Neigong[i][0] * @mySize
      @sprite_Neigong[i].y = @array_Neigong[i][1] * @mySize
    end
 
    # 描绘真气(蛇要去吃的饵食)
    @sprite_zhenqi = Sprite.new
    @sprite_zhenqi.bitmap = Bitmap.new(@zhenqi)
    # 执行画面过渡
    Graphics.transition
 
    # 主循环
    loop do
      # 刷新游戏画面
      Graphics.update
      # 刷新输入信息
      Input.update
      # 刷新画面情报
      update
      # 如果标记游戏终结，就中断循环
      if @bGameOver
        break
      end
    end
    # 执行画面过渡
    Graphics.transition
  end
 
  #--------------------------------------------------------------------------
  # ● 刷新画面
  #--------------------------------------------------------------------------
  def update
    # 如果真气不存在则描绘真气
    if @zhenqi_exist == false
      # 描绘真气
      draw_zhenqi
      @zhenqi_exist = true
    end
    # 开始运动
    start_move
    # 如果真气条正在运动
    if @run
      if @time_count % @speed == 0
        move1
        if check_eat
          @score += 1
          # 刷新等级
          if @score >= @level * 20
            @level += 1
            @speed -= 1
            if @level > 6
              #p "本次周天循環沖穴數量已達上限！"
              exit
            end
          end
          refresh_score
          # 增加真气条长度
          if @array_Neigong.length < @max_length
            @array_Neigong.push([@array_Neigong[@array_Neigong.length-1][0],
            @array_Neigong[@array_Neigong.length-1][1]])
            @sprite_Neigong[@array_Neigong.length-1] = Sprite.new
            @sprite_Neigong[@array_Neigong.length-1].bitmap = @NeiGongBitmap
          end
          @zhenqi_exist = false
        end
        # 如果撞到墙壁或自身则游戏结束
        if check_collision
          game_over
        end
      end
    end
    @time_count += 1
  end
 
  #--------------------------------------------------------------------------
  # 开始运动
  def start_move
    # 前后按下两个不同的方向键后开始运动
    if Input.trigger?(Input::UP)
      unless @direction == "down"
        @run = true
        @direction = "up"
      end
    end
    if Input.trigger?(Input::DOWN)
      unless @direction == "up"
        @run = true
        @direction = "down"
      end
    end
    if Input.trigger?(Input::LEFT)
      unless @direction == "right"
        @run = true
        @direction = "left"
      end
    end
    if Input.trigger?(Input::RIGHT)
      unless @direction == "left"
        @run = true
        @direction = "right"
      end
    end
  end
 
  #--------------------------------------------------------------------------
  # 真气条移动
  def move1
    case @direction
      when "up"
        for i in [email]1...@array_Neigong.length[/email]
          @array_Neigong[@array_Neigong.length-i][0] = @array_Neigong[@array_Neigong.length-i-1][0]
          @array_Neigong[@array_Neigong.length-i][1] = @array_Neigong[@array_Neigong.length-i-1][1]
        end
        @array_Neigong[0][1] -= 1
      when "down"
        for i in [email]1...@array_Neigong.length[/email]
          @array_Neigong[@array_Neigong.length-i][0] = @array_Neigong[@array_Neigong.length-i-1][0]
          @array_Neigong[@array_Neigong.length-i][1] = @array_Neigong[@array_Neigong.length-i-1][1]
        end
        @array_Neigong[0][1] += 1
      when "left"
        for i in [email]1...@array_Neigong.length[/email]
          @array_Neigong[@array_Neigong.length-i][0] = @array_Neigong[@array_Neigong.length-i-1][0]
          @array_Neigong[@array_Neigong.length-i][1] = @array_Neigong[@array_Neigong.length-i-1][1]
        end
        @array_Neigong[0][0] -= 1
      when "right"
        for i in [email]1...@array_Neigong.length[/email]
          @array_Neigong[@array_Neigong.length-i][0] = @array_Neigong[@array_Neigong.length-i-1][0]
          @array_Neigong[@array_Neigong.length-i][1] = @array_Neigong[@array_Neigong.length-i-1][1]
        end
        @array_Neigong[0][0] += 1
    end
    draw_Neigong # 描绘真气条
  end
 
  #--------------------------------------------------------------------------
  # 刷新得分
  def refresh_score
    @sprite_score.bitmap.clear
    @sprite_score.bitmap.font.size = 18
    @sprite_score.bitmap.font.color.set(255,255,255)
    @sprite_score.bitmap.draw_text(10, 0, 160, 32, "本次循經穴道：" + @score.to_s)
    @sprite_score.bitmap.draw_text(10, 32, 160, 32, "當前循環周天：" + @array_Neigong.length.to_s)
    @sprite_score.bitmap.draw_text(10, 64, 160, 32, "當前循環度為：" + @level.to_s) 
  end
 
  #--------------------------------------------------------------------------
  # 生成真气坐标
  def creat_zhenqi
    loop do
      zhenqi_x = rand(11) + 8
      zhenqi_y = rand(11) + 3
      creat_succes = true # 标记是否成功生成的开关
      for i in [email]0...@array_Neigong.length[/email]
        if zhenqi_x == @array_Neigong[i][0] and zhenqi_y == @array_Neigong[i][1]
          creat_succes = false
        end
      end
      # 如果成功生成真气则中断循环
      if creat_succes
        return zhenqi_x * @mySize,zhenqi_y * @mySize
        break
      end
    end
  end
 
  #--------------------------------------------------------------------------
  # 描绘真气
  def draw_zhenqi
    @zhenqi_x,@zhenqi_y = creat_zhenqi
    @sprite_zhenqi.x = @zhenqi_x
    @sprite_zhenqi.y = @zhenqi_y
  end
 
  #--------------------------------------------------------------------------
  # 描绘蛇的图形
  def draw_Neigong
    for i in [email]0...@array_Neigong.length[/email]
      @sprite_Neigong[i].x = @array_Neigong[i][0] * @mySize
      @sprite_Neigong[i].y = @array_Neigong[i][1] * @mySize
    end
  end
 
  #--------------------------------------------------------------------------
  # 检测真气条是否撞到墙壁或自身
  def check_collision
    if @array_Neigong[0][0] < 8 or @array_Neigong[0][0] > 18 or
      @array_Neigong[0][1] < 3 or @array_Neigong[0][1] > 13 
      return true
    end
    for i in [email]1...@array_Neigong.length[/email] 
      if @array_Neigong[0][0] == @array_Neigong[i][0] and
        @array_Neigong[0][1] == @array_Neigong[i][1]
        return true
      end
    end
    return false
  end
 
  #--------------------------------------------------------------------------
  # 检测是否吃到真气
  def check_eat
    if @array_Neigong[0][0] == @zhenqi_x / @mySize and 
      @array_Neigong[0][1] == @zhenqi_y / @mySize
      return true
    end
  end
 
  #--------------------------------------------------------------------------
  # 游戏结束的处理
  def game_over
    #print "循環周天結束！本次沖過的穴道數：#{@score}"
    # 第859号系统变量中存放：累计冲穴的穴道总数
    $game_variables[859] += @score
    @bGameOver=true
 
    # 释放初始化、主程序和增加真气条长度时动态分配的内存
    @NeiGongBitmap.dispose
    for i in [email]0...@array_Neigong.length[/email]
      @sprite_Neigong[i].dispose
    end
    @sprite_zhenqi.bitmap.dispose
    @sprite_zhenqi.dispose
    @sprite_score.bitmap.dispose
    @sprite_score.dispose
    @sprite_clear.bitmap.dispose
    @sprite_clear.dispose
    @bgBitmap.dispose
    @sprite.dispose
  end
end

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


# ■ Scene_Neigong


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


# 　真气条小游戏(贪吃蛇)，继承Scene_Base类来实现


#       调用方法  SceneManager.call(Game_Neigong)


#                 SceneManager.return


#                 显示文字 ：循環周天結束！已沖過的穴道數是\V[859]


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


class Scene_Neigong < Scene_Base


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


  # ● 初始化对像


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


  def initialize


    @mySize = 30        # 界面大小（单位：图块）


    @myWidth = 30 * 12  # 界面宽度（单位：像素）


    @myHeight = 30 * 12 # 界面高度（单位：像素）


 


    # 界面背景图的位图


    @bgBitmap = Bitmap.new("Graphics/Pictures/ngxl_bg.png")


    # 分五行的真气的图形文件名，每次小游戏一开始会随机选定一种


    @zhenqi = "Graphics/Pictures/zhenqi" + rand(5).to_s + ".png"


    # 蛇身上的一节的位图，节数会越来越多，蛇也越来越长


    @NeiGongBitmap = Bitmap.new("Graphics/Pictures/neigong.png")


 


    @score = 0                        # 初始分数


    @level = 1                        # 初始化难度等级


    @max_length =  35                 # 初始化真气条最大长度，即蛇身的最大长度


    @array_Neigong = [[14,8],[13,8]]  # 界面划分成格子


    @speed = 20                       # 初始化速度,数值越大，移动速度越慢


    @direction = "left"               # 初始化方向


    @run = false                      # 初始化真气条是否为运动状态


    @time_count = 0                   # 计时器


    @zhenqi_exist = false             # 标记真气是否存在


    @bGameOver = false                # 标记游戏是否终结


 


    game_Neigong_Main


  end


 


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


  # ● 主处理


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


  def game_Neigong_Main


    # 真气条背景


    @sprite = Sprite.new


    @sprite.bitmap = @bgBitmap


 


    # 初始化屏幕


    @sprite_clear = Sprite.new


    @sprite_clear.bitmap = Bitmap.new(@myWidth,@myHeight)


    @sprite_clear.x = 254


    @sprite_clear.y = 70


 


    # 显示得分


    @sprite_score = Sprite.new


    @sprite_score.bitmap = Bitmap.new(@myWidth,@myHeight)


    @sprite_score.x = 254


    @sprite_score.y = 440


    refresh_score


 


    # 初始化蛇的图形


    @sprite_Neigong = []


    for i in [email]0...@array_Neigong.length[/email]


      @sprite_Neigong[i] = Sprite.new


      @sprite_Neigong[i].bitmap = @NeiGongBitmap


      @sprite_Neigong[i].x = @array_Neigong[i][0] * @mySize


      @sprite_Neigong[i].y = @array_Neigong[i][1] * @mySize


    end


 


    # 描绘真气(蛇要去吃的饵食)


    @sprite_zhenqi = Sprite.new


    @sprite_zhenqi.bitmap = Bitmap.new(@zhenqi)


    # 执行画面过渡


    Graphics.transition


 


    # 主循环


    loop do


      # 刷新游戏画面


      Graphics.update


      # 刷新输入信息


      Input.update


      # 刷新画面情报


      update


      # 如果标记游戏终结，就中断循环


      if @bGameOver


        break


      end


    end


    # 执行画面过渡


    Graphics.transition


  end


 


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


  # ● 刷新画面


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


  def update


    # 如果真气不存在则描绘真气


    if @zhenqi_exist == false


      # 描绘真气


      draw_zhenqi


      @zhenqi_exist = true


    end


    # 开始运动


    start_move


    # 如果真气条正在运动


    if @run


      if @time_count % @speed == 0


        move1


        if check_eat


          @score += 1


          # 刷新等级


          if @score >= @level * 20


            @level += 1


            @speed -= 1


            if @level > 6


              #p "本次周天循環沖穴數量已達上限！"


              exit


            end


          end


          refresh_score


          # 增加真气条长度


          if @array_Neigong.length < @max_length


            @array_Neigong.push([@array_Neigong[@array_Neigong.length-1][0],


            @array_Neigong[@array_Neigong.length-1][1]])


            @sprite_Neigong[@array_Neigong.length-1] = Sprite.new


            @sprite_Neigong[@array_Neigong.length-1].bitmap = @NeiGongBitmap


          end


          @zhenqi_exist = false


        end


        # 如果撞到墙壁或自身则游戏结束


        if check_collision


          game_over


        end


      end


    end


    @time_count += 1


  end


 


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


  # 开始运动


  def start_move


    # 前后按下两个不同的方向键后开始运动


    if Input.trigger?(Input::UP)


      unless @direction == "down"


        @run = true


        @direction = "up"


      end


    end


    if Input.trigger?(Input::DOWN)


      unless @direction == "up"


        @run = true


        @direction = "down"


      end


    end


    if Input.trigger?(Input::LEFT)


      unless @direction == "right"


        @run = true


        @direction = "left"


      end


    end


    if Input.trigger?(Input::RIGHT)


      unless @direction == "left"


        @run = true


        @direction = "right"


      end


    end


  end


 


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


  # 真气条移动


  def move1


    case @direction


      when "up"


        for i in [email]1...@array_Neigong.length[/email]


          @array_Neigong[@array_Neigong.length-i][0] = @array_Neigong[@array_Neigong.length-i-1][0]


          @array_Neigong[@array_Neigong.length-i][1] = @array_Neigong[@array_Neigong.length-i-1][1]


        end


        @array_Neigong[0][1] -= 1


      when "down"


        for i in [email]1...@array_Neigong.length[/email]


          @array_Neigong[@array_Neigong.length-i][0] = @array_Neigong[@array_Neigong.length-i-1][0]


          @array_Neigong[@array_Neigong.length-i][1] = @array_Neigong[@array_Neigong.length-i-1][1]


        end


        @array_Neigong[0][1] += 1


      when "left"


        for i in [email]1...@array_Neigong.length[/email]


          @array_Neigong[@array_Neigong.length-i][0] = @array_Neigong[@array_Neigong.length-i-1][0]


          @array_Neigong[@array_Neigong.length-i][1] = @array_Neigong[@array_Neigong.length-i-1][1]


        end


        @array_Neigong[0][0] -= 1


      when "right"


        for i in [email]1...@array_Neigong.length[/email]


          @array_Neigong[@array_Neigong.length-i][0] = @array_Neigong[@array_Neigong.length-i-1][0]


          @array_Neigong[@array_Neigong.length-i][1] = @array_Neigong[@array_Neigong.length-i-1][1]


        end


        @array_Neigong[0][0] += 1


    end


    draw_Neigong # 描绘真气条


  end


 


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


  # 刷新得分


  def refresh_score


    @sprite_score.bitmap.clear


    @sprite_score.bitmap.font.size = 18


    @sprite_score.bitmap.font.color.set(255,255,255)


    @sprite_score.bitmap.draw_text(10, 0, 160, 32, "本次循經穴道：" + @score.to_s)


    @sprite_score.bitmap.draw_text(10, 32, 160, 32, "當前循環周天：" + @array_Neigong.length.to_s)


    @sprite_score.bitmap.draw_text(10, 64, 160, 32, "當前循環度為：" + @level.to_s) 


  end


 


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


  # 生成真气坐标


  def creat_zhenqi


    loop do


      zhenqi_x = rand(11) + 8


      zhenqi_y = rand(11) + 3


      creat_succes = true # 标记是否成功生成的开关


      for i in [email]0...@array_Neigong.length[/email]


        if zhenqi_x == @array_Neigong[i][0] and zhenqi_y == @array_Neigong[i][1]


          creat_succes = false


        end


      end


      # 如果成功生成真气则中断循环


      if creat_succes


        return zhenqi_x * @mySize,zhenqi_y * @mySize


        break


      end


    end


  end


 


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


  # 描绘真气


  def draw_zhenqi


    @zhenqi_x,@zhenqi_y = creat_zhenqi


    @sprite_zhenqi.x = @zhenqi_x


    @sprite_zhenqi.y = @zhenqi_y


  end


 


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


  # 描绘蛇的图形


  def draw_Neigong


    for i in [email]0...@array_Neigong.length[/email]


      @sprite_Neigong[i].x = @array_Neigong[i][0] * @mySize


      @sprite_Neigong[i].y = @array_Neigong[i][1] * @mySize


    end


  end


 


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


  # 检测真气条是否撞到墙壁或自身


  def check_collision


    if @array_Neigong[0][0] < 8 or @array_Neigong[0][0] > 18 or


      @array_Neigong[0][1] < 3 or @array_Neigong[0][1] > 13 


      return true


    end


    for i in [email]1...@array_Neigong.length[/email] 


      if @array_Neigong[0][0] == @array_Neigong[i][0] and


        @array_Neigong[0][1] == @array_Neigong[i][1]


        return true


      end


    end


    return false


  end


 


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


  # 检测是否吃到真气


  def check_eat


    if @array_Neigong[0][0] == @zhenqi_x / @mySize and 


      @array_Neigong[0][1] == @zhenqi_y / @mySize


      return true


    end


  end


 


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


  # 游戏结束的处理


  def game_over


    #print "循環周天結束！本次沖過的穴道數：#{@score}"


    # 第859号系统变量中存放：累计冲穴的穴道总数


    $game_variables[859] += @score


    @bGameOver=true


 


    # 释放初始化、主程序和增加真气条长度时动态分配的内存


    @NeiGongBitmap.dispose


    for i in [email]0...@array_Neigong.length[/email]


      @sprite_Neigong[i].dispose


    end


    @sprite_zhenqi.bitmap.dispose


    @sprite_zhenqi.dispose


    @sprite_score.bitmap.dispose


    @sprite_score.dispose


    @sprite_clear.bitmap.dispose


    @sprite_clear.dispose


    @bgBitmap.dispose


    @sprite.dispose


  end


end

0anye0

厉害！！！1