上午没事，写了个俄罗斯方块程序。




  

test.zip (301 K) 下载次数:3390

因为用的是16位指令,最大列可以是(16-2)14列,当前程序用的是12列,各位可以自己改成14列,也可以用32位指令改成更多列的,改变行数就不用说了
基本图形用的是4点的,可以换成5点的(游戏难度更高)

程序详解
P0  7种基本图形4个方向，7*4＝28个数据  D1000-D1027
P2  边界检测用数据 D1100-D1128[背景图形]
生成   110000000011
        110000000011
……
        110000000011
        111111111111
        111111111111
P1 根据D0 D1 D2生成图形  存在D100-D103数组里
D0 1-7种基本图形
D1 1-4种方向
D2 指定图形所在的列
P3 碰撞检测
    [背景图形] + [动态图形]     =0?   不等于0说明碰到边界
    [当前图形] + [动态图形]     =0?   不等于0说明与当前图形有干涉
    都为0 输出M1
P4 图形移动
    调用P1
    将D100-D103放入  [动态图形]  中(D3指定行)
    调用P3 进行     碰撞检测
    未碰撞更新位置  D10 D11 D12 D13
P5 消行得分
    [当前图形]  D1200-D1231
    逐字(行)检测  =001111111100 时 前面所有字左移一位    (下降了一行)
P6 画面显示
    [当前图形]  OR  [动态图形]  =  [显示图形]
    D1600是人机上的点,用作显示
P7 随机数产生图形
    随机产生 1-7  1-4 两组数据,并初始行,列  [D20,D21,D22,D23] 下次下落方块数组
    调用P1 生成 下一个图形    [D1632,D1633,D1634,D1635]  用于人机显示
P8 下一个方块下落
    将下次下落方块数组  放入   当前方块数组  [D10,D11,D12,D13]
    调用P1 合成图形 用于人机显示    

高手啊！