【脚本制作】定做一个小游戏系统。

沙漠点灰

哦，这个意思啊。
替换:精灵处理

RUBY 代码复制

#--------------------------------------------------------------------------
  # ● 精灵处理
  #--------------------------------------------------------------------------
  def sprite_p
    # 刷新puyo
    if @map.can_down?(@now_b)
       @now_b.move_down if @now_b.can_down?
    else
      if @now_b.can_down? and @now_b.can_turn? and @now_b.can_move?
        @map.register(@now_b)
        chain = 0;num=0
        loop do
          until @map.update
            Graphics.update 
            update_eyes
          end
          @map.update # 再运行一次以检
          Graphics.update
          break if @map.can_next? # 无4组时
          # 执行清空
          chain += 1 # 连击
          @map.sb! # 显示SB了
          60.times{|i|Graphics.update;update_eyes
            break if @map.sb_update
            Audio.se_play("Audio/SE/chain#{[chain,7].min}") if i == 10
            show_chain chain if i == 32# 显示连击
           }
          Graphics.update
          num = @map.remove # 消除
          @score += num * 10 * (2 ** chain) # 加分
          check_score # 更新分数
          20.times{Graphics.update;update_eyes}
        end
        show_chain 0 # 消除显示连击
        @amina[-1].animation($data_animations[Clear[2][chain]], true)
        show_next
        return lose if @map.game_over?
        return allclear if @map.all_clear?
        crisis!
      end
    end
    @now_b.move(@move) if @move != 0 and @now_b.can_move? and @map.can_move?(@now_b,@move)
    @now_b.turn(@turn) if @turn != 0 and @now_b.can_turn? and @map.can_turn?(@now_b,@turn)
    @level.times{@now_b.update(@speed)}
  end

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


  # ● 精灵处理


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


  def sprite_p


    # 刷新puyo


    if @map.can_down?(@now_b)


       @now_b.move_down if @now_b.can_down?


    else


      if @now_b.can_down? and @now_b.can_turn? and @now_b.can_move?


        @map.register(@now_b)


        chain = 0;num=0


        loop do


          until @map.update


            Graphics.update 


            update_eyes


          end


          @map.update # 再运行一次以检


          Graphics.update


          break if @map.can_next? # 无4组时


          # 执行清空


          chain += 1 # 连击


          @map.sb! # 显示SB了


          60.times{|i|Graphics.update;update_eyes


            break if @map.sb_update


            Audio.se_play("Audio/SE/chain#{[chain,7].min}") if i == 10


            show_chain chain if i == 32# 显示连击


           }


          Graphics.update


          num = @map.remove # 消除


          @score += num * 10 * (2 ** chain) # 加分


          check_score # 更新分数


          20.times{Graphics.update;update_eyes}


        end


        show_chain 0 # 消除显示连击


        @amina[-1].animation($data_animations[Clear[2][chain]], true)


        show_next


        return lose if @map.game_over?


        return allclear if @map.all_clear?


        crisis!


      end


    end


    @now_b.move(@move) if @move != 0 and @now_b.can_move? and @map.can_move?(@now_b,@move)


    @now_b.turn(@turn) if @turn != 0 and @now_b.can_turn? and @map.can_turn?(@now_b,@turn)


    @level.times{@now_b.update(@speed)}


  end

笵妮拉·亚修

@沙漠点灰
就没有办法将时延缩短一点么？
真的很可惜呀。

最后再优化一下代码就可以收工了。
刚刚将工程给个会玩这个游戏的朋友。
结果反映不太好。
现在希望能优化一下这几个方面。
1.下落的速度降低一点，3级的速度都感觉很难控制了。
2.下落的泡泡跟已经在地的泡泡接触太快了。一下子就黏上去了。没有缓冲的效果。
在危急状态时就根本只能任其下落，完全控制不了。（这是朋友的测试感言- -）
希望可以加入一点缓冲，让游戏的平衡性提高一点。
3.就是那个动画的时延问题了。

希望你可以优化以上几个方面。
感谢你的耐心啊，我脚本费你能不介意真的很感激呀。

沙漠点灰

因为不能dup Sprite类，所以在我这没办法....没办法预判断,所以,抱歉了..重写脚本就算了...
Scripts.7z (127.42 KB, 下载次数: 51)

2012-11-18 14:11 上传

点击文件名下载附件

多了个
Hard  = 3
表示这里每3级代表之前1级,比如现在的
1级=之前的1级
4级=之前的2级
7级=之前的3级
.............

笵妮拉·亚修

@沙漠点灰
那个动画问题就算了
没事的。
关于那个缓冲的效果，有一点问题。
1.缓冲的时间好像有点长，3秒耶。
能不能自己修改的呀？
2.缓冲效果会带来泡泡偶尔出现错位，能不能修正一下
这个问题呢？

沙漠点灰

花了一个小时，终于找到原因了,没找到最好了解决方法,先修改如下:

精灵处理

下，有个:

@now_b.move_down if @now_b.can_down?

修改为

1. @now_b.move_down if @now_b.can_down? and @now_b.can_move? and @now_b.can_turn?

复制代码

现在变成了"等待下降",在下降过程中，若接近每格底线8像素以下(25~32像素行)，会等待平移或旋转
结束。不过，本人感觉不到"等待",若lz感觉强烈，我会再次思考的....

笵妮拉·亚修

@沙漠点灰
大体上没有什么问题了。
如果有什么问题就再请教一下你。
另外，能不能转为VX呢？
跟上次的俄罗斯方块一样？
您对代码比较熟悉，所以。。。
能否麻烦一下？
感谢

enghao_lim

修正你说的问题，不过那个连消的规则，我尽力理解得出来的就是现在这样，你自己看着对不对吧。@@

笵妮拉·亚修

@enghao_lim
感谢能抽空帮忙，不过好像错了哦。
无论消除多少连都始终显示的是一连消。
这是怎么回事？
麻烦请你再看看吧。

enghao_lim

笵妮拉·亚修 发表于 2012-11-24 09:24
@enghao_lim
感谢能抽空帮忙，不过好像错了哦。
无论消除多少连都始终显示的是一连消。

连消的规则不是，要每次掉落都有消除才叫连消？对吧这个理解？
或者是你不介意的稍微仔细的解释一下那个连消规则 ==''，我理解零蛋了。

笵妮拉·亚修

@enghao_lim

没错。
是这个意思没错的。
不过就是每次掉落时的消除出错了。
掉落时，同时触发的消除只算一连消而已。
只是这个地方错了。
比如：

这个样子只算一连而已。
努力理解一下。