游戏 小小太空鱼《王者归来，重返地球》园地6周年，黑洞吞噬更具诱惑！地动山摇

第47关

耗时117秒

共18步

游客，本帖隐藏的内容需要积分高于 66666 才可浏览，您当前积分为 0

第48关

耗时32秒

共14步

游客，本帖隐藏的内容需要积分高于 66666 才可浏览，您当前积分为 0

第49关

耗时40秒

共16步

游客，本帖隐藏的内容需要积分高于 66666 才可浏览，您当前积分为 0

第50关

耗时31秒

共16步

游客，本帖隐藏的内容需要积分高于 66666 才可浏览，您当前积分为 0

coolman

引用第1019楼coolman于2008-12-07 17:02发表的 　小小太空鱼之《王者归来，重返地球》迎园地6周年，怦然新动号诚征宇航员，地动山摇财富滚滚来 .. :
新关卡设计不错，呵呵。

killl如何判断每个方向的移动的？好像很复杂啊。

实际上我估计得不错。你的程序有问题。

试试下面的数据，看看能上下移动吗？

47=killl|第47关 狭路1砰砰|00000 y1y1b100 y1b1b100 y1y1b100 00000|????? ?????? ?????? ????? ?????

第51关

耗时49秒

共15步

游客，本帖隐藏的内容需要积分高于 66666 才可浏览，您当前积分为 0

第52关

耗时16秒

共16步

游客，本帖隐藏的内容需要积分高于 66666 才可浏览，您当前积分为 0

走走看看

第6关

耗时364秒

共130步

游客，本帖隐藏的内容需要积分高于 66666 才可浏览，您当前积分为 0

companion

引用第1024楼coolman于2008-12-07 17:14发表的 Re:　小小太空鱼之《王者归来，重返地球》迎园地6周年，怦然新动号诚征宇航员，地动山摇财富滚滚来 .. :


实际上我估计得不错。你的程序有问题。

试试下面的数据，看看能上下移动吗？
.......

聪明的打洞王，加5分~

infact

任何关卡都不需要那个赖皮样子嘛，直接用大方块鱼头替代就好了

走走看看

第9关

耗时352秒

共152步

游客，本帖隐藏的内容需要积分高于 66666 才可浏览，您当前积分为 0

killl

引用第1019楼coolman于2008-12-07 17:02发表的 　小小太空鱼之《王者归来，重返地球》迎园地6周年，怦然新动号诚征宇航员，地动山摇财富滚滚来 .. :
新关卡设计不错，呵呵。

killl如何判断每个方向的移动的？好像很复杂啊。

判断移动我是这样的，如果向上移动，就对从第1行到最后一行，逐个发出向上移动的命令。而对于每一行，则扫描每一个块，如果可以向上移动，就动，然后处理下一行，但是注意每行要发出数个向上移动的命令，因为是一动到底的。

vb伪码如下：

Private Sub moveBar(keycode As Integer)
If sDirection= "上下" Then
      For I = 0 To 列数 - 1
          '多次发出向上移动的命令，实现一次移动到底
          MoveAllBar keycode
        Next
      Else
        For I = 0 To 行数 - 1
          MoveAllBar keycode
        Next
      End If
End If
end sub

Private Sub MoveAllBar(keycode As Integer)
  '逐个移动所有的方块
  Select Case keycode
    Case 38, 87  '上w
    For j = 0 To 列数 - 1
      For I = 0 To 行数 - 1
        MoveSingleBar keycode, DataArray(I, j)'逐个移动每个方格
      Next
    Next
end sub

Private Sub MoveSingleBar(ByVal keycode As Integer, ByVal CurColor As String)
  '移动单个方格
  '是否需要移动
  If CurColor = "0" Or CurColor = "-" Then Exit Sub
  '是否能够移动
  If checkMovable(keycode, CurColor) = False Then Exit Sub

  Select Case keycode
    Case 38, 87  '上w
    For I = 0 To 行 - 1
      For j = 1 To 列 - 1
        If DataArray(I, j) = 要被移动的颜色 Then
          DataArray(I, j - 1) = CurColor '交换颜色
          DataArray(I, j) = 0
        End If
      Next
    Next
end sub

引用第1024楼coolman于2008-12-07 17:14发表的 Re:　小小太空鱼之《王者归来，重返地球》迎园地6周年，怦然新动号诚征宇航员，地动山摇财富滚滚来 .. :


实际上我估计得不错。你的程序有问题。

试试下面的数据，看看能上下移动吗？
.......

这个数据的确按照规则不能移动，因为之前的规则是一次只能移动一个，所以2个的卡死了，不能单独移动的。前半部分的关卡不就是必须选中一个再行移动吗，那两个都无法单独移动，所以判定不能移动。

走走看看

第10关

耗时939秒

共1464步

游客，本帖隐藏的内容需要积分高于 66666 才可浏览，您当前积分为 0

走走看看

第11关

耗时118秒

共86步

游客，本帖隐藏的内容需要积分高于 66666 才可浏览，您当前积分为 0

走走看看

第12关

耗时178秒

共124步

游客，本帖隐藏的内容需要积分高于 66666 才可浏览，您当前积分为 0

leisurely

第49关

耗时18秒

共15步

游客，本帖隐藏的内容需要积分高于 66666 才可浏览，您当前积分为 0

leisurely

第50关

耗时20秒

共20步

游客，本帖隐藏的内容需要积分高于 66666 才可浏览，您当前积分为 0

leisurely

第51关

耗时15秒

共14步

游客，本帖隐藏的内容需要积分高于 66666 才可浏览，您当前积分为 0

estd_ray

第53关

耗时26秒

共21步

游客，本帖隐藏的内容需要积分高于 66666 才可浏览，您当前积分为 0

leisurely

第53关

耗时27秒

共21步

游客，本帖隐藏的内容需要积分高于 66666 才可浏览，您当前积分为 0

estd_ray

第54关

耗时21秒

共19步

游客，本帖隐藏的内容需要积分高于 66666 才可浏览，您当前积分为 0