俄罗斯方块游戏易语言源码

系统结构:输出得分,输出级别,设置颜色,RGBto颜色值,关闭提示1,暂停框,gameover框,取排名,开始1,帮助1,排行1,菜单处理,画背景,控制,降落,消除行,形状转动,形状左移,形状右移,写文本文件,写多行文字,写一行文字,画框1,A2W,形状数组赋值,输出图形,下一个图型,FreeConsole,CloseHandle,GetWindowLong,ShowWindow,SetWindowLong,GetConsoleWindow,GetStdHandle,SetConsoleWindowInfo,SetConsoleCtrlHandler,AllocConsole,GetConsoleCursorInfo,SetConsoleCursorInfo,SetConsoleScreenBufferSize,SetConsoleActiveScreenBuffer,WriteConsole,WriteConsoleOutputCharacter,MultiByteToWideChar,WriteConsoleOutput,SetConsoleTextAttribute,WriteConsoleOutputA,SendMessage,SetConsoleTitle,CreateIconFromResource,ReadConsoleInput,FlushConsoleInputBuffer,ReadConsoleOutputAttribute,WriteConsoleOutputAttribute,CreateConsoleScreenBuffer,ReadConsoleOutput,SetConsoleCursorPosition,ReadConsole,SetConsoleOutputCP,GetConsoleOutputCP,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 输出得分
           |  |
           |  |------ 输出级别
           |  |
           |  |------ 设置颜色
           |  |
           |  |------ RGBto颜色值
           |  |
           |  |------ 关闭提示1
           |  |
           |  |------ 暂停框
           |  |
           |  |------ gameover框
           |  |
           |  |------ 取排名
           |  |
           |  |------ 开始1
           |  |
           |  |------ 帮助1
           |  |
           |  |------ 排行1
           |  |
           |  |------ 菜单处理
           |  |
           |  |------ 画背景
           |  |
           |  |------ 控制
           |  |
           |  |------ 降落
           |  |
           |  |------ 消除行
           |  |
           |  |------ 形状转动
           |  |
           |  |------ 形状左移
           |  |
           |  |------ 形状右移
           |  |
           |  |------ 写文本文件
           |  |
           |  |------ 写多行文字
           |  |
           |  |------ 写一行文字
           |  |
           |  |------ 画框1
           |  |
           |  |------ A2W
           |  |
           |  |------ 形状数组赋值
           |  |
           |  |------ 输出图形
           |  |
           |  |------ 下一个图型
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   FreeConsole
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   ShowWindow
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   GetConsoleWindow
           |  |
           |  |---[dll]------   GetStdHandle
           |  |
           |  |---[dll]------   SetConsoleWindowInfo
           |  |
           |  |---[dll]------   SetConsoleCtrlHandler
           |  |
           |  |---[dll]------   AllocConsole
           |  |
           |  |---[dll]------   GetConsoleCursorInfo
           |  |
           |  |---[dll]------   SetConsoleCursorInfo
           |  |
           |  |---[dll]------   SetConsoleScreenBufferSize
           |  |
           |  |---[dll]------   SetConsoleActiveScreenBuffer
           |  |
           |  |---[dll]------   WriteConsole
           |  |
           |  |---[dll]------   WriteConsoleOutputCharacter
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   WriteConsoleOutput
           |  |
           |  |---[dll]------   SetConsoleTextAttribute
           |  |
           |  |---[dll]------   WriteConsoleOutputA
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   SetConsoleTitle
           |  |
           |  |---[dll]------   CreateIconFromResource
           |  |
           |  |---[dll]------   ReadConsoleInput
           |  |
           |  |---[dll]------   FlushConsoleInputBuffer
           |  |
           |  |---[dll]------   ReadConsoleOutputAttribute
           |  |
           |  |---[dll]------   WriteConsoleOutputAttribute
           |  |
           |  |---[dll]------   CreateConsoleScreenBuffer
           |  |
           |  |---[dll]------   ReadConsoleOutput
           |  |
           |  |---[dll]------   SetConsoleCursorPosition
           |  |
           |  |---[dll]------   ReadConsole
           |  |
           |  |---[dll]------   SetConsoleOutputCP
           |  |
           |  |---[dll]------   GetConsoleOutputCP

  

调用的DLL命令:

.DLL命令 FreeConsole, 整数型, "kernel32", "FreeConsole"

.DLL命令 CloseHandle, 整数型, "Kernel32.dll", "CloseHandle"
    .参数 hObject, 整数型

.DLL命令 GetWindowLong, 整数型, "user32", "GetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型

.DLL命令 ShowWindow, 整数型, "user32", "ShowWindow"
    .参数 hwnd, 整数型
    .参数 nCmdShow, 整数型

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 GetConsoleWindow, 整数型, "kernel32", "GetConsoleWindow"

.DLL命令 GetStdHandle, 整数型, "Kernel32.dll", "GetStdHandle", , HANDLE
    .参数 nStdHandle, 整数型, , STD_INPUT_HANDLE=-10;STD_OUTPUT_HANDLE=-11;STD_ERROR_HANDLE=-12

.DLL命令 SetConsoleWindowInfo, 整数型, "Kernel32.dll", "SetConsoleWindowInfo"
    .参数 hConsoleOutput, 整数型
    .参数 bAbsolute, 逻辑型
    .参数 lpConsoleWindow, SMALL_RECT

.DLL命令 SetConsoleCtrlHandler, 整数型, "kernel32", "SetConsoleCtrlHandler"
    .参数 HandlerRoutine, 整数型, , HandlerRoutine( DWORD dwCtrlType    //  control signal type);
    .参数 Add, 整数型

.DLL命令 AllocConsole, 整数型, "kernel32", "AllocConsole"

.DLL命令 GetConsoleCursorInfo, 整数型, "kernel32", "GetConsoleCursorInfo"
    .参数 hConsoleOutput, 整数型
    .参数 lpConsoleCursorInfo, CONSOLE_CURSOR_INFO, 传址

.DLL命令 SetConsoleCursorInfo, 整数型, "kernel32", "SetConsoleCursorInfo"
    .参数 hConsoleOutput, 整数型
    .参数 lpConsoleCursorInfo, CONSOLE_CURSOR_INFO

.DLL命令 SetConsoleScreenBufferSize, 整数型, "kernel32", "SetConsoleScreenBufferSize"
    .参数 hConsoleOutput, 整数型
    .参数 dwSize, 整数型

.DLL命令 SetConsoleActiveScreenBuffer, 整数型, "kernel32", "SetConsoleActiveScreenBuffer"
    .参数 hConsoleOutput, 整数型

.DLL命令 WriteConsole, 整数型, "Kernel32.dll", "WriteConsoleA"
    .参数 hConsoleOutput, 整数型
    .参数 lpBuffer, 文本型
    .参数 nNumberOfCharsToWrite, 整数型
    .参数 lpNumberOfCharsWritten, 整数型, 传址
    .参数 lpReserved, 整数型

.DLL命令 WriteConsoleOutputCharacter, 整数型, "kernel32", "WriteConsoleOutputCharacterA"
    .参数 hConsoleOutput, 整数型
    .参数 lpCharacter, 文本型
    .参数 nLength, 整数型
    .参数 dwWriteCoord, 整数型, , Coord
    .参数 lpNumberOfCharsWritten, 整数型, 传址

.DLL命令 MultiByteToWideChar, 整数型, "kernel32", "MultiByteToWideChar", , 将多媒体字符串映像为通配字符串
    .参数 代码页, 整数型
    .参数 标志, 整数型
    .参数 双字节文本, 文本型
    .参数 双字节文本长度, 整数型
    .参数 宽字符文本, 字节集
    .参数 宽字符文本长度, 整数型

.DLL命令 WriteConsoleOutput, 整数型, "kernel32", "WriteConsoleOutputW"
    .参数 hConsoleOutput, 整数型
    .参数 lpBuffer, CHAR_INFO, 数组
    .参数 dwBufferSize, 整数型, , Coord
    .参数 dwWriteCoord, 整数型, , Coord
    .参数 lpWriteRegion, SMALL_RECT, 传址

.DLL命令 SetConsoleTextAttribute, 整数型, "kernel32", "SetConsoleTextAttribute"
    .参数 hConsoleOutput, 整数型
    .参数 wAttributes, 短整数型

.DLL命令 WriteConsoleOutputA, 整数型, "kernel32", "WriteConsoleOutputA"
    .参数 hConsoleOutput, 整数型
    .参数 lpBuffer, CHAR_INFO, 数组
    .参数 dwBufferSize, 整数型, , Coord
    .参数 dwWriteCoord, 整数型, , Coord
    .参数 lpWriteRegion, SMALL_RECT, 传址

.DLL命令 SendMessage, 整数型, "user32", "SendMessageA"
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 整数型, , 具体取决于消息;

.DLL命令 SetConsoleTitle, 整数型, "Kernel32.dll", "SetConsoleTitleA"
    .参数 lpConsoleTitle, 文本型

.DLL命令 CreateIconFromResource, 整数型, "user32", "CreateIconFromResource"
    .参数 presbits, 字节集
    .参数 dwResSize, 整数型
    .参数 fIcon, 逻辑型
    .参数 dwVer, 整数型, , 196608

.DLL命令 ReadConsoleInput, 整数型, "Kernel32.dll", "ReadConsoleInputA"
    .参数 hConsoleInput, 整数型
    .参数 lpBuffer, INPUT_RECORD, 传址
    .参数 nNumberOfCharsToWrite, 整数型
    .参数 lpNumberOfCharsWritten, 整数型, 传址

.DLL命令 FlushConsoleInputBuffer, 整数型, "Kernel32.dll", "FlushConsoleInputBuffer"
    .参数 hConsoleInput, 整数型

.DLL命令 ReadConsoleOutputAttribute, 整数型, "Kernel32.dll", "ReadConsoleOutputAttribute"
    .参数 hConsoleOutput, 整数型
    .参数 lpAttribute, 短整数型, 传址 数组
    .参数 nLength, 整数型
    .参数 dwReadCoord, 整数型, , cocrd
    .参数 lpNumberOfAttrsRead, 整数型, 传址

.DLL命令 WriteConsoleOutputAttribute, 整数型, "Kernel32.dll", "WriteConsoleOutputAttribute"
    .参数 hConsoleOutput, 整数型
    .参数 lpAttribute, 短整数型, 数组
    .参数 nLength, 整数型
    .参数 dwReadCoord, 整数型, , cocrd
    .参数 lpNumberOfAttrsRead, 整数型, 传址

.DLL命令 CreateConsoleScreenBuffer, 整数型, "Kernel32.dll", "CreateConsoleScreenBuffer"
    .参数 dwDesiredAccess, 整数型, , -1073741824
    .参数 dwShareMode, 整数型, , 0
    .参数 lpSecurityAttributes, 整数型, , 0
    .参数 dwFlags, 整数型, , 1
    .参数 lpScreenBufferData, 整数型, , 0

.DLL命令 ReadConsoleOutput, 整数型, "Kernel32.dll", "ReadConsoleOutputW"
    .参数 hConsoleOutput, 整数型
    .参数 lpBuffer, CHAR_INFO, 数组
    .参数 dwBufferSize, 整数型, , cocrd
    .参数 dwBufferCoord, 整数型, , cocrd
    .参数 lpReadRegion, SMALL_RECT, 传址

.DLL命令 SetConsoleCursorPosition, 整数型, "Kernel32.dll", "SetConsoleCursorPosition"
    .参数 hConsoleOutput, 整数型
    .参数 dwCursorPosition, 整数型, , cocrd

.DLL命令 ReadConsole, 整数型, "Kernel32.dll", "ReadConsoleA"
    .参数 hConsoleInput, 整数型
    .参数 lpBuffer, 文本型, 传址
    .参数 nNumberOfCharsToRead, 整数型
    .参数 lpNumberOfCharsRead, 整数型, 传址
    .参数 lpReserved, 整数型, , 0

.DLL命令 SetConsoleOutputCP, 整数型, "Kernel32.dll", "SetConsoleOutputCP"
    .参数 wCodePageID, 整数型

.DLL命令 GetConsoleOutputCP, 整数型, "Kernel32.dll", "GetConsoleOutputCP"