【初心者】ｽﾚを立てる前にｺｺで質問を【Part14】

【初心者】ｽﾚを立てる前にｺｺで質問を【Part14】at GAMEDEV

【初心者】ｽﾚを立てる前にｺｺで質問を【Part14】 - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

402:名前は開発中のものです。
 07/06/18 22:54:29 zckMTPmQ
 
ここからはほとんど同じで一面ずつ調べていき 
下から入った場合は左、上、右の三面に通路がなかった場合に来た道を戻っていく 
 
'一番上の左に来ている 
Do While yyy < 10 '今度は上をチェック 
    If Map(teki(bangou, 5) - xx, teki(bangou, 6) - yy - 1, 0) = 4 Then 
        teki(bangou, 12) = teki(bangou, 5) - xx  '目標を決める 
        teki(bangou, 13) = teki(bangou, 6) - yy - 1 
        zzz = 100: yyy = 100 
    End If 
    If Map(teki(bangou, 5) - xx, teki(bangou, 6) - yy - 1, 0) = 2 Then 
        If Map(teki(bangou, 5) - xx + 1, teki(bangou, 6) - yy, 0) = 2 Then 
        yyy = 100: End If 
    End If: xx = xx - 1 
Loop: xx = xx + 1 
'一番上の右に来ている 
Do While zzz < 10 '今度は下へチェック 
    If Map(teki(bangou, 5) - xx + 1, teki(bangou, 6) - yy, 0) = 4 Then 
        teki(bangou, 12) = teki(bangou, 5) - xx + 1 '目標を決める 
        teki(bangou, 13) = teki(bangou, 6) - yy 
        zzz = 100 
    End If 
    If Map(teki(bangou, 5) - xx + 1, teki(bangou, 6) - yy, 0) = 2 Then 
        If Map(teki(bangou, 5) - xx, teki(bangou, 6) - yy + 1, 0) = 2 Then 
        zzz = 100 '出口なし、又は同じ列に通路 
        teki(bangou, 12) = teki(bangou, 5) 
        teki(bangou, 13) = teki(bangou, 6)+1 
        End If: yy = yy - 1 
    End If 
Loop

次ページ