批处理勇士大闯关改中医许阳批处理的可能

zzz19760225

一楼主贴
123456789

1. http://zzz19760225.ysepan.com/

复制代码

隔一段时间建10楼一页面，其首位是具体内容，其余杂想或空置。
15楼一页？

20250627，换成perl为文字信息处理考虑，这样在以后自制和linux版国产操作系统，也会有perl吧
20250901，换成perl的Tk桌面图形模式
20251206，换成C语言SDL2图形考虑
20260113，换回perl+Tk的图形考虑（perl+Tk+ImageMagick+ffmpeg）
20260207，先完成文字界面的自转熟
20260420，simulide软件仿真74单元阵列的组合全排列卦象术数无限地图理论层面，从电器开关到电脑可控自动化的渐进增量实践路线

1. 
   
2. $a=<STDIN>;print "$a";
   
3. a123:;print "123";goto a123;
   
4. $a==123?"456":"789";
   

复制代码

1. 
   
2. a123:
   
3. print "请输入：";$a=<STDIN>;
   
4. $a==456?print "789":goto a123;
   
5. 显
   
6. 请输入：123
   
7. 请输入：456
   
8. 789
   
9. Press any keys to exit
   

复制代码

1. 
   
2. 文字游戏
   
3. 1游戏开始和结束，命令行执行文件和鼠标点击可执行文件，启动开始页面，开始游戏+游戏说明+退出游戏，ctrl+d,ctrl+c，关闭游戏窗口x，游戏过程中的退出，意外故障退出。
   
4. 2玩家用户帐号的建增减删看，建立在程序文章里的#数据行，增减数据行，从开始游戏进入这个选择范围，游戏过程中随时调用这个模块。
   
5. 3本体结构，从开始结束和帐号，进入菜菜城的前面部分，后面是以菜菜城和其他的名义居住地为中心，向外的相对移动选择。
   
6. 4其外向外是重复流水线，流水线结构选择的通用和专用组合度数量。
   
7. 5向外重复流水线的可选项内容，是设置的地图世界容器，每个容器里有其自身剧情设置的选择通用+专用度。
   

复制代码

1. 
   
2. 山海经，山河经，地星村：
   
3. 四海：东海(太平洋)，南海(印度洋)，西海(大西洋)，北海(北冰洋)；
   
4. 八洲：北洲(格陵兰岛)，风洲(北美洲)，木洲(南美洲)，南洲(南极洲)，金洲(大洋洲)，土洲(亚洲)，水洲(欧洲)，火洲(非洲)；
   
5. 土洲(亚洲)往东7000公里=14000里，1万4千里，是东海（太平洋）；1一
   
6. 东海(太平洋)往东7000公里=14000里，1万4千里，是风洲（北美洲）；2壹
   
7. 风洲(北美洲)往东5000公里=10000里，1万里，是西海（大西洋）；3二
   
8. 西海(大洋洲)往东5000公里=10000里，1万里，是水洲（欧洲）；4贰
   
9. 水洲(欧洲)往东7000公里=14000里，1万4千里，是土洲（亚洲）；5叁
   
10. 水洲(欧洲)往南5000公里=10000里，1万里，是火洲（非洲）；6肆
    
11. 土洲(亚洲)往南7000公里=14000里，1万4千里，是金洲（大洋洲）；7伍
    
12. 风洲(北美洲)往北5000公里=10000里，1万里，是北洲（格林兰岛）；8陆
    
13. 风洲(北美洲)往南7000公里=14000里，1万4千里，是木洲（南美洲）；9柒
    
14. 木洲(南美洲)往南7000公里=14000里，1万4千里，是南洲（南极洲）；10捌
    
15. 火洲(非洲)往东6000公里=12000里，1万2千里，是南海（印度洋）；11三
    
16. 南海(印度洋)往东6000公里=12000里，1万2千里，是金洲（大洋洲）；
    
17. 土洲(亚洲)往北6000公里=12000里，1万2千里，是北海（北冰洋）；12四
    

复制代码

皇帝游戏和大航海游戏，1女母氏族部落人数超出太多，就分族外迁（女娲和西王母），父系氏族的炎黄等三皇五帝，2周对外分封的信息，对临近可能土地再分封的扩大，3秦统一后的对外延续，4五胡乱华等外租压迫下，崛起后的汉族对外陆海殖民，5宋明大商业的地主和资本家对外。（或者解放模式也可以，结合墨家概念平等，法家概念平等，儒家概念的大一统统一，私有化统一与公有度统一，都是可选项，但是不是游戏全部制作出来，而有那个可以制作的简单工具，玩家自己可以去逐渐增加点滴，积累成为游戏模块。或者大禹和夏启的能力工作权力极私独占奴隶制也可以，炎黄的养民）
1一天的容器模块，
2地星村外天文的模块（相对地球的日照光线形象学几何学为主），
3地星村内的年循环左升右降热量相对增减四季模块，
4整体的本体和环境，
5个体的本体和环境，
6整体与个体之间的进制联系组合关系一体化。
骑goto：
制造用文字游戏信息机器，
制=时空量化，人物增减量化，一个自动独立运行的信息机器世界，参与操作驾驶这个世界的玩家玩法
造=goto跑一遍标签阵列，完成一遍游戏后，再加入量化
用=？
浏览器下载300MB的Strawberry Perl的perl文件会断掉，迅雷拖着下载。要Strawberry Perl，方便网络下载什么的。或者不要下载吧，本身集成了，没搞懂。
安装Tk很慢，很久。
程序文件pl，要绑定perl53211.exe，不要绑定旁边的perl.exe。
ActivePerl自带Tk?
ADODB.Stream读取内存？
basic(qb语句）=qb64，freebaisc
在深度deepin linux下可以终端运行，就建立终端运行文件sh。

1. 
   
2. #!/bin/bash
   
3. chmod +x perlTkgif.pl
   
4. perl perlTkgif.pl
   

复制代码

鼠标双击终端文件sh，通过这个终端文件打开pl，运行pl程序。(终端可运行，也许权限那句可以不需要了=chmod。

集成块硬件图形中文，逻辑电平与图形中文电平之间的翻译，在图形中文上抽象代表出来，成为中文编程或中文DOS的假设。

一，应该是道混沌无空能量在，
二，然后是能量形态和万物，走到表明太极阴阳相对关系，之后是圆自转，重复，循环的有序，顺序，排序=产生量。表面现象之量，到其内里之王的内因因果理，化学编程的能量自转自传锁定自私基因（？）。
三，1量（使用色点阵组合代表，总之组合的数量空间很大），
四，2类（声<声波，音乐>，色<图，文>），
五，3类组合（影视，有声有色的信息人模拟人与拟人拟物）。
但是如果中文编程，并不需要前面两者，只要后面三者。

第一，组合的法（进制法重复模式），这个法的数量要出来，并且这个数量是有序简单组合重复完成的。这个数量的代表形式，代数，代量，代字或代词。
第二，数量的排序序数序号提取。
第三，数量排序序数序号提取的单元容器，其内容具体组合的是什么。就是做这三步走。
1组合（单元太极阴阳相对联系关系组合），
2排序太集集合容器（同元排序=具有相同元的组合排序，异位排序=在不同的方位上有差异的组合排序），
3单元太集集合容器的具体组合内容。

三个概念部分渐进到数字化世界，每个部分又各自有其内部分类，最后到排序序数序号代表。
一个是抽象道，在，实，
二个是识别需求产生的排序，混沌，开天辟地，无，有，冇，空，不，0等，太极太集阴阳相对，
三个是太极太集阴阳相对为根源的太单元，相对联系关系组合形成的地图或联系关系体。相对这个关系一体的组构和解构，选择所需的模拟拟人拟物内容，并且使用排序数量来代表概念空间，完成模拟模仿。这个模拟模仿扩大了人的实选择空间，可以倍增探索尝试试验名范围的人概念空间，促进人的世界扩大。
有用制造用机器，通用制造用机器。

C语言SDL2图形考虑，两个部分：
1，图形部分的石坚白，存在即有象，内象外象本象，不论心意识/唯心或唯物，其可知可见的大概内容之一，与信息流编织成旋玑图全组合地图；
2，信息流的文本容器集合，以一个十进制16数字集自拍基本出发和中心区域，基本逻辑是太极容器的内外分解阴阳相对关系的组合聚散=开关。
3，声色两信息，色分为图画里的单图形文字，单图形图画，多图形图画，影视。信息分类，执行到类信息，就自动寻找对应的功能程序执行该信息内容，并且句柄管道开关输出到同一个页面容器里。

0，1，2，3，4，5，6，7，8，9，a，[，]，[；]，[：]，[。]。
1，2，3，4，5，6，7，8，9，0，a，[，]，[；]，[：]，[。]。
1，2，3，4，5，6，7，8，9，0，回，[，]，[；]，[：]，[。]。


1信息单元组合无限地图世界，2地图里的一次编程，3一次编程基础上的二次编程（AI自动信息自转自传）。

tty的zhcon需要fbset(修改操作framebuffer)
sudo apt install fbset
sudo usermod -aG video $USER     #/dev/fb0 通常属于 video 组，加入获取权限的执行。
重启以获取权限。
fbset -i    # 查看详细 framebuffer 模式

1. 
   
2. mode "1440x900-60"
   
3.     geometry 1440 900 1440 900 32
   
4.     timings 0 0 0 0 0 0 0
   
5.     rgba 8/16,8/8,8/0,0/0
   
6. endmode
   

复制代码

tty下中文：tty+zhcon（二合一，中文显示和中文全拼输入法）+ollama run qwen:0.5b（可以中文问答）+tty下图形编程
tty下记录script session.log 需要命令行做一个exit退出动作后（不会退出账户），才会输入到session.log文本。
tty C语言操作fb0的图形内容，先在桌面下编译好，处理了出错信息后，再转到tty下执行。
tty下输入：tty
/dev/fb0    （需要的内容）
/dev/pts/0 （图形界面，无法看到被图形界面覆盖了的输出图形，需要exit，会退出去。可能是zhcon的图形启动？）
tty，fb0，无限圈层级里，已有有限屏幕的极限位图，全组合的点阵字符集或点阵组合集。

重置密码
grub的选项栏，
按e，进入编辑内容，
在linux那一行的行尾，去掉最后两个单词quiet splas，加上systemd.unit=rescue.target
F10运行
出现运行页面，按一下按钮，出现root@帐号输入等待
输入mount -o remount,rw /
输入passwd+帐号
输入新密码，再次输入新密码
输入exec /sbin/init重新启动，进入用户和输入密码的图形页面(这一步就可以tty了)

在tty下安装图形
linux mint22.2图形界面桌面问题：
sudo dpkg --configure -a
# 5. 安装 Linux Mint 桌面
sudo apt install linuxmint-keyring
sudo apt install mint-meta-cinnamon    # 或 mint-meta-mate / mint-meta-xfce

tty+C语言+framebuffer，色象代表信息，信息代表声色。
tty+gas汇编+framebuffer+(多维数组的变量，中文显示和中文输入，鼠标等单多输入端口接口，页面浏览器文本，文字，动静帧图片，声音，影视)

在C语言SDL2图形库的程序代码中，最后一行注释编译和执行命令，对应防止忘记。

只有一个机器容器，，然后逐渐的增量。不是主板，而是键盘或鼠标开关。
键盘鼠标。
键盘鼠标+屏幕。
键盘鼠标+ 屏幕+电器主板功能。
键盘鼠标+屏幕+主板+内存。
键盘鼠标+屏幕+主板+内存+外存（算盘位移记录，打孔卡，钢，粉磁盘）。
键盘鼠标+屏幕+主板+内存+外存+芯片自动加工厂。

自动信息AI，通义：C语言SDL2制作一个虚拟机，LINUXMINT22.2
通义：C语言SDL2制作一个微软DOS下的debug.exe，LINUXMINT22.2

问题：在64位字节中，使用32位程序执行，能不能使用余下的32位存东西。按照说法是不可以的，执行文件是固化的，那么换成其他解释类语言呢。

中医许阳的基本中医部分，或菜菜城里的中医堂明心堂什么的，分为1基本理论，2基本看病，3基本治病三类集合。从冇逐渐增量的理论和实践，两者名实渐增，随着学习进步。
perl文本游戏和图形后续+Emacs两条路并行。EMACS集成图形点阵（存疑？），模拟汉字DOS系统和自修改程序

zzz19760225

账号建立和删除，存取，（遥远的未来自动运行账号的演化侧视=获取账号自动运行的数值统计表格）。
回车自动随机用户名
菜菜城里的医店，一个郎中叫许阳。或药品店里有人叫许阳的接上。（初期是一个只会看感冒发补品的外行门外汉，需要在回忆中练习中医理论课程，才从门外汉走向理论学徒，后面再接时空外挂系统加成）
点阵阵列模块，便于替换和维修才好，但不能引起鼠标键盘的操作跳出游戏，稳定可靠，不能没有保存就莫名其妙结束了。（自动记录保存？）
游戏的背景音乐库，轻音乐背景的气氛与剧情环境联系。
批处理界面窗口大小，图片显示位置和大小，文字显示位置。GDI.exe（还是要有C语言的，方便编译，主要是保存。有网站稳定保存的话，比个人电脑要好，双保存，网盘和邮件保存）
批处理运动，日本图片对话，明星志愿和皇帝等图片游戏模式，图片可以修改为生活情境（单图片，多图片，gif动图，截取影视或视频，声音），游戏可以修改为生活内容，游戏内容与生活节奏建立侧面统计的量化联系或开关。（按照游戏的制作，是可以认识到跳出的问题不好，包括明星志愿和皇帝，都有这个跳出问题，为什么会无法消除呢，特定的几个命令字符*/|><？）
单独信息储存与一行间隔信息，变量信息的命名可不可以用中文。
变量延迟要不要配上结束段，或者用call
许阳的前传是否必要，如何理论学习上成为踏实优秀的毕业生。还是回忆的阶段，加上如何学习的内容。这些内容在菜菜城的大学堂里也有，人人可以随时去学习，反复重复去熟悉。差别是能系统深入的去学，与只能一阵发热好之，然后迅速离开的长期效果积累量变质区别。（以男女夫妻皆学习中医，互相治疗，男辅女主，女一般通常家内的生活饮食和子女孕生育调养，老人照料等，都需要。简单未病防病模式组合小病识别治理不扩大，其余的能出这个范围，得去医院看行业专业的，自身具有基础辅助配合和自家打算）
广义全面的中医，与点线面体境的中医内容，要全面掌握中医很难，但是要针对点，如一个舌诊的一个信息点，经过简单学习和练习还是可以的，这样点组成的线，单一线路，到多线路，逐渐从少向多，这样去看长远。然后是如何选择一些基本的点线，组成家医容易上手的内容，要完成未病防御和小病不扩大的及时处理（人民联防模式）。
用单独文件文本储存单个变量，比较自由度，可以方便整体游戏修改。（一个文件夹为集合，里面是各个文本，如是单元很多，需要内建量化进制的文件夹。）文件排序表
绝对真理，相对理论，绝对化相对理论，相对化相对（二次相对），实名（实为名之身，名为实之衣形式理论，量身定做的实践检验理论）。绝对，绝对相对，相对，相对相对（无有极常默的圈层级相对，广义相对阴阳太极集合圈。已有科学前沿，在名称上，或概念，都可以在传统文化上找到联系。最终是需要直线与园，一种人概念存在极限的自私家内容，去开关控制利害善恶的知识技术文化无人内容。按照私有，应该是私有化走向这个历史操作，但是实际是走极端了，反而是名私的极私，实否定整体多数私，无法完成这个历史开关控制作用。这里应该存疑，私有化改造的可能空间。另一方面，私有化流通量超过整体里的个体一半，开始公有化，会产生一种相异甚至相反的效应，有部分形式绝对化官僚极公打着公的名义，掠夺他人平均的常私，更多的相对公和无私公常公，具有滋养常私多数私的效应。这里的公私广义概念空间，其内容的量化，提炼为数量数学公式关系，反应成阶段形态的方程式才好）。
findstr行首尾正反的变量或变量内容为中心，单多相对前后左右的量化联系。
每个年代的人，是历史这个价这口天下大锅里的菜，要乘其时效变化运转的动态中，做菜和吃。
可能是人为制造差异差别区别对立，而形成的人造的中国与外国不同，至少在先天天然身体这个方面，中外差异有，但是差别不大。后天文化上，需要有每个年代的教育发动机维持推动自身年代群体，具有文化能量成为年代里的文化人。人民公有化多数人流通文化人，与私有化少数人话语权文化人，以历史相对理论和背后的实在道理概念空间为师，与历史阶段和年代的理论老师，老师类集合处理知识之下的个体宗师，大师，高手，老手，中手，低手，新手，入门，门外汉，无关人。
君相佐使，谋略+组织政策+章程排序事件，环境+本体+内部点线面体境联系关联关系，表面标本根源。通用+组用+专用，不同时空通用度类集合批处理效率数量的组合。
很可能，所谓文化基因，中心，核心的人民群众文化理论内容或元素，并不多，很多时空是不同形式重复循环规律类。无法再现无法验证的内容，可再现但无法验证内容，可再现可验证的内容。宏观科学文化+中观科学文化+微观科学文化，人体微量元素，人民群众的微量元素。
如果将世代内外优秀的动画片，影视，都可以装进菜菜城，是不是需要很多标签对接的标准路线。
抗战史上的今天，这个系列，每一句话，都可以丰富为一个小故事。要是光荣使命能延续下来，那是满满的一群服务器内容。批处理的服务器故事，这样历史都是可以从神话，到三皇五帝，到华夏开启，到周史，后面就一路下来，一句话一个故事（见龙卸甲电影），每个人有一个自己的理解，世代新生代的人有自己理解，游戏做不完啊。如果这些故事相对关系，再结合幻想的汉族九行星九村建立建设发展里，是不是可以生产历史推理幻想文学文艺，顺带为科学科技产生想法空间世界，与纯科幻类的，加上历史重复循环规律内容，具有家概念的科幻文学文艺。
gdi图形编程内容
DEV C++，选择文件=新建=项目=basic=windows application
通义AI：“c语言gdi绘制一个100像素点的图形”

1. 
   
2. #include <windows.h>
   
3. 
   
4. LRESULT CALLBACK WndProc(HWND, UINT, WPARAM, LPARAM);
   
5. 
   
6. int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, PSTR szCmdLine, int iCmdShow) {
   
7.     static TCHAR szAppName[] = TEXT("DrawPixelExample");
   
8.     HWND hwnd;
   
9.     MSG msg;
   
10.     WNDCLASS wndclass;
    
11. 
    
12.     // 注册窗口类，10个
    
13.     wndclass.style = CS_HREDRAW | CS_VREDRAW;     // 窗口类型：水平、垂直重绘，即改变窗口大小时自动发送WM_PAINT消息，而不必手动发送。被改变时该类所有窗口重绘
    
14.     wndclass.lpfnWndProc = WndProc;                         //窗口处理函数---回调函数的地址
    
15.     wndclass.cbClsExtra = 0;                                       //窗口实例扩展：预留空间的附加值，此程序没用到
    
16.     wndclass.cbWndExtra = 0;                                     //窗口实例扩展：预留空间的附加值，此程序没用到
    
17.     wndclass.hInstance = hInstance;                            //应用程序实例句柄
    
18.     wndclass.hIcon = LoadIcon(NULL, IDI_APPLICATION);                          //装载窗口标题栏图标
    
19.     wndclass.hCursor = LoadCursor(NULL, IDC_ARROW);                           //装载窗口鼠标
    
20.     wndclass.hbrBackground = (HBRUSH)GetStockObject(WHITE_BRUSH); //背景白色
    
21.     wndclass.lpszMenuName = NULL;                                                       //装载窗口菜单，此处程序没有  
    
22.     wndclass.lpszClassName = szAppName;                                              // 窗口类名---程序的名字
    
23. 
    
24.     if (!RegisterClass(&wndclass)) {
    
25.         MessageBox(NULL, TEXT("This program requires Windows NT!"), szAppName, MB_ICONERROR);
    
26.         return 0;
    
27.     }
    
28. 
    
29.     // 创建窗口
    
30.     hwnd = CreateWindow(szAppName, TEXT("GDI Draw Example"), WS_OVERLAPPEDWINDOW,
    
31.                         CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
    
32.                         NULL, NULL, hInstance, NULL);
    
33. 
    
34.     ShowWindow(hwnd, iCmdShow);
    
35.     UpdateWindow(hwnd);
    
36. 
    
37.     // 消息循环
    
38.     while (GetMessage(&msg, NULL, 0, 0)) {
    
39.         TranslateMessage(&msg);
    
40.         DispatchMessage(&msg);
    
41.     }
    
42.     return msg.wParam;
    
43. }
    
44. 
    
45. LRESULT CALLBACK WndProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam) {
    
46.     HDC hdc;
    
47.     PAINTSTRUCT ps;
    
48. 
    
49.     switch (message) {
    
50.         case WM_PAINT:
    
51.             hdc = BeginPaint(hwnd, &ps);
    
52. 
    
53.             // 设置画笔和画刷
    
54.             HPEN hPen = CreatePen(PS_SOLID, 1, RGB(255, 0, 0)); // 红色画笔
    
55.             HBRUSH hBrush = CreateSolidBrush(RGB(0, 0, 255));  // 蓝色画刷
    
56.             SelectObject(hdc, hPen);
    
57.             SelectObject(hdc, hBrush);
    
58. 
    
59.             // 绘制一个100x100像素的矩形
    
60.             Rectangle(hdc, 50, 50, 150, 150);
    
61. 
    
62.             // 如果需要绘制圆形，可以使用Ellipse函数
    
63.             // Ellipse(hdc, 50, 50, 150, 150);
    
64. 
    
65.             // 清理GDI对象
    
66.             DeleteObject(hPen);
    
67.             DeleteObject(hBrush);
    
68. 
    
69.             EndPaint(hwnd, &ps);
    
70.             return 0;
    
71.             
    
72.         //编译时报错，剔除；case WM_DESTROY:
    
73.         //编译时报错，剔除。    PostQuitMessage(0);
    
74. 
    
75.             return 0;
    
76.     }
    
77.     return DefWindowProc(hwnd, message, wParam, lParam);
    
78. }
    

复制代码

编译出错部分，手术割掉，居然运行成功了（360报错为木马，添加信任）。一个界面，空白底上一个红边的蓝色方形。
需要像素显示的内容，都是存在内存里。这样这个假设的屏幕=图形显示，都是操作在内存上，关闭也不需要硬盘储存。
启动机器的大开关=什么句柄指向；注册一类的，类似HTA和VB的参数一堆，中开关；后面是小开关的数据车床切换各种刀头。加工的材料为信息数据文件文本。这样将几个分类开来，弄成三板斧的样子，便于简化印象认识理解。
环境和本体基本文章格式，第一板斧是大开关，开启与关闭的电源能源能量输入；第二板斧是各个中开关，将电源能量输送到整体机器的结构部分部件上，以及服务整体和部件的关联辅助开关；第三板斧是结构流程里的小开关，是使用这些部件，组合操作刀头与材料的化合反应，或者是指鹿为马的if，如果存在1，又存在2，则选择3。第三板斧是重复的定量动作，重复循环，将流水线直线的所有点大概都过一遍，如摘菜洗菜，基本都要过一下手。这个流水线直线，就是一个线程序（假设世界是一根线，无限长的线，每一个世界存在分散切割的单元，都装入线上的一个点容器里，这样的排序选择。解散直线，成为一个天地太极大容器里的混沌，对人的所谓排序，理解为混乱，这种混沌或人概念混乱，随着无有排序的需求，从需求问题理论，到逐渐实践组织效率比较中，走向重复的排序选择）。
感觉中医缺少一个编程研究或普及（不仅仅是中医被数字化，是中医本身的编程宏观中观微观三观扩展，是一个文化文明体系。不过目前也无法进行该内容的普及，需要有一个文化的历史课本和教材。在私有化掠夺教育资源核权力中，连已有的都可能被他们掠夺走，还贪中医更进一步，难啊。没有劳动所有权经济和经济收入上的聚散集中权力，是无法全面展开的吧，而是相对张力渗透，慢慢偷空发展。先立后破，先发展起来，无法被消灭，然后对应有问题的这个棋局或关卡破掉），中医的量化部分，会非常那啥。
游戏或操作功能打开，就是一个页面，介绍操作。开始这个页面是空白的，没什么内容，但是要留着。并且这个页面随时可以调出来，关闭。一个组合键调出，类似DOS图形页面下的组合键提示。熟手老手会忽视无视，新手生手会不时需要，该怎么做选择呢。
一个页面+一个输入提示，游戏中随时打开和关闭这个界面。

1. 
   
2. use utf8;
   
3. use open ':std', ':encoding(gbk)';
   
4. 
   
5. print "请输入:";my $输入内容 = <STDIN>;
   
6. print "$输入内容\n";
   
7. <STDIN>;
   
8. 显
   
9. 请输入:123
   
10. 123
    

复制代码

zzz19760225

1随机数和随机用户名，2游戏时间，3标签单元阵列的跳出测试，4choice快速操作，5游戏信息数据形式储存取
随机昵称，可以用时间为编码名称，后期可以修改名字，或将名字改为时间，或两者组合。
echo:%date% %time% %nc%
2025/02/11 周二  7:58:37.27 123
有空格间隔的作名字，需要加引号“”。昵称和时间组合，这样相同名字也可区别，顺带if直接回车或空格，就是时间编码名为主（简便选择的趋向考虑，新生刚来学堂，所问必然五花八门，这些门路都是通往学习的兴趣乐于线路，搭上路子。也有说了就忘了的，谁记得自己入学第一天是什么，或一生谁记得自己高兴的很多时候是什么样子。不论如何，至少这是一个增量空间）。
年龄：
医术知识理论等级：
医术数量实践等级：
类集合流派单元点线面：
事：（事广义，包括生活，工作，组织，其中身体内容的睡醒衣食住行乐）
德：
相对比较的游戏内圈层级人物，从不知，未知，到已知，学习可知，实践能知，知量积累，知量结合实践知道之后的熟，孰能生巧量变质，重复循环升级，走过自身门外汉，入门，新手，进入状态的中手，量积累熟悉熟练老手，高手，大师，宗师，立功立德立言三立（劳动贡献为先，长期长远劳动贡献为德量。不劳动积累进步，德就停留，反向向恶增量，则相对减少德量。德不是生存必须，但是向善会积累德值，德值服务个体个人和家的心身真善美内容，心情的向善情适宜舒服。反向的向恶也有纵欲发挥破坏的自我舒服，在向恶类同的群体里会引发交流乐于。向善可以扩大群体数量，向恶也可以扩大群体数量，向善的扩大利己利人交换，相对主动自愿多些。向恶在出向恶群体之后，再扩大需要利益利害的压迫控制垄断，形成被动势力。向善结合唯物，建立在长远物质生产技术劳动丰富数量上，可以改变历史已有结构。向恶达到历史阶段极限，不能向外获取利益之后，会内部加强强化掠夺，不断逼迫压缩其余人的私利益空间。私有化向外战争是必然，为什么中国的私有化不向外扩张呢，很奇怪的。地理的距离消耗能量，达到了极限，所以得不偿失自动阻止。那么为什么不发展技术扩大这种流通，突破极限呢？）。
游戏需要增加两个时间，一个是实际时间，另一个是相对实际时间的时空穿越时间。穿越里的游戏保存
单游戏人物，储存一个数值，还是多个数值？保存的是刷新值。需要多个人物的多个时空保存（先问题存疑）。
点对点，变量对应储存到文本，最简便准确。是不是要很多文本点
一个用户名对应一行数据数值，行增减。
多行的列增减
标签式标签段增减
批处理的建立再替换原文本，三剑客直接写文本。
如果批量文本点变量储存，这些变量再集中为一个集合文本的行间隔数值单元。（根据游戏需求进行结构增减的点文本变化反应）
1.1.txt
1.2.txt
过程集合文本只是反应实在点文本（会不会有集中读取拥挤问题，不会重复的进程读取路线，圆辐射线存取）
只能是建立文件再替换原文件，一般大佬都是这样做，就基本决定其可用范围，门外汉再去挖也挖不出什么。游戏存取替换，一般操作开始，结束，中途储存，自动储存。自动储存最多，其余的量并不多。
账号批量进出，一个账号一个文件夹，文件夹里对应点文本。

1. 
   
2. 昵称：%nc%    气血：%rhp%/%rhpsx% 法力：%rmp%/%rmpsx% 攻击：%rgj%    防御：%rfy%
   
3. 等级：%lv%     经验：%exp%/%sjexp% 银两：%yl%                    点数：%ds%     饱食度：%bsd%/%bsdsx%
   
4. 武器：%wqmc% 攻击+%wqgj%             服装：%fzmc%               防御+%fzfy%    商城：S 充值：P
   
5. 腰带：%ydmc% 气血上限+%ydqx%        饰品：%mzmc%             魔法上限+%mzmf%
   
6. 
   
7. :svjl
   
8. echo
   
9. cls
   
10. echo.
    
11. echo 真的要保存记录？
    
12. echo.
    
13. echo 1.保存记录
    
14. echo.
    
15. echo 2.返回
    
16. set /p zhen=
    
17. if %zhen%==1 goto savejl
    
18. goto jyc
    
19. 
    
20. 
    
21. :savejl
    
22. echo
    
23. cls&setlocal enabledelayedexpansion
    
24. del 勇士大闯关存档
    
25. md 勇士大闯关存档>nul 2>nul
    
26. for %%a in (lv rhp rmp rmpsx rhpsx bsd bsdsx rgj rfy yl ds exp sjexp wqmc wqgj fzmc fzfy ydmc ydqx mzmc mzmf mfhf sjexpdz hh jcy xhy jnl1 jnl2 jnl3 qnfyj bosszgr xixue) do (
    
27. echo v!%%a!v>>勇士大闯关存档\%%a.txt
    
28. )
    
29. cls
    
30. echo.
    
31. echo 保存记录成功！
    
32. pause
    
33. goto jyc
    
34. 
    
35. 
    
36. :rejl
    
37. echo
    
38. cls
    
39. echo.
    
40. echo 真的要读取记录？
    
41. echo.
    
42. echo 1.读取记录
    
43. echo.
    
44. echo 2.返回
    
45. set /p zhen=
    
46. if %zhen%==1 goto readjl
    
47. 
    
48. 
    
49. :readjl
    
50. if not exist "勇士大闯关存档" goto nojl
    
51. cls&setlocal enabledelayedexpansion
    
52. for %%b in (lv rhp rmp rmpsx rhpsx bsd bsdsx rgj rfy yl ds exp sjexp wqmc wqgj fzmc fzfy ydmc ydqx mzmc mzmf mfhf sjexpdz hh jcy xhy jnl1 jnl2 jnl3 qnfyj bosszgr xixue) do (
    
53. set /p %%b2=<勇士大闯关存档\%%b.txt
    
54. set /a %%b=!%%b2:~1,-1!
    
55. )
    
56. cls
    
57. echo.
    
58. echo 读取记录成功！
    
59. pause
    
60. goto jyc
    
61. 
    
62. 
    
63. :nojl
    
64. echo
    
65. cls
    
66. echo.
    
67. echo 没有保存记录！
    
68. pause
    
69. goto jyc
    
70. 
    

复制代码

goto标签游戏单元，可选内容与相反内容的处理。输入123之外的内容，如何不出问题。（用choice直接输入做选择，减少按回车键这一步。choice或其他能不能实现核对符合就执行的，输入内容没有符合的就不执行。核对表里不能有太多重复，否则在前面就执行，后面重复的地方就无法达到。怎么不按回车键，又输入很多内容核对，核对到有相同的就执行，并且扩大到一定数量，至少要够用。一百个就可以了吧）

1. 
   
2. @echo off
   
3. :0
   
4. set /p a=:
   
5. goto:%a%
   
6. 
   
7. :1
   
8. echo:123
   
9. goto:0
   
10. 
    
11. :3
    
12. echo:789
    
13. goto:0
    
14. 
    
15. :2
    
16. echo:456
    
17. goto:0
    

复制代码

1. 
   
2. @echo off
   
3. :0
   
4. set /p a=:
   
5. set b=1,2,3
   
6. for %%i in (%b%) do (
   
7. if /i %a%==%%i goto:%a%
   
8. )
   
9. echo:冇
   
10. goto:0
    
11. 
    
12. :1
    
13. echo,123
    
14. goto:0
    
15. 
    
16. :2
    
17. echo,456
    
18. goto:0
    
19. 
    
20. :3
    
21. echo:789
    
22. goto:0
    

复制代码

如果有一个内部收集标签数字，集中到for变量里面，是不是可以自动化？
英文标签后面跟rem介绍中文，:bcwj rem=保存文件
标签的头与尾，:名........goto:0或exit/b
主程序循环段不跳出，各个标签段不跳出，最后组合起来。自动组合的搜索合并，人只要建立主程序自动段，后面主要是制作，增减标签段单元。
findstr搜索：冒号后面的内容，排序为间隔单元，作为for行处理材料。或对接choice。
findstr搜索：冒号后面的内容（那么跟后面的rem中文解释介绍，就不能有了？）
根本就不需要findstr搜索，这步考虑是功能重复了，多余了，原本的直接一步就可以。搜索内容findstr "^:" %0，用for和set/p横线显示，作为提醒提示。

1. 
   
2. @echo off
   
3. :0
   
4. for /f %%i in ('findstr "^:" %0') do (
   
5. set/p=%%i<nul
   
6. )
   
7. echo;
   
8. set /p a=:
   
9. call :%a%
   
10. goto:0
    
11. 
    
12. :1
    
13. echo:123
    
14. goto:0
    
15. 
    
16. :3
    
17. echo:456
    
18. goto:0
    
19. 
    
20. :4
    
21. echo:789
    
22. exit /b
    

复制代码

得

1. 
   
2. :0:1:3:4
   
3. :0
   
4. FINDSTR: 无法打开 :0
   
5. 
   
6. :1
   
7. 123
   
8. FINDSTR: 无法打开 :1
   
9. 
   
10. :2
    
11. 系统找不到指定的批处理标签 - 2
    
12. FINDSTR: 无法打开 :1
    
13. 
    
14. :3
    
15. 456
    
16. FINDSTR: 无法打开 :3
    
17. 
    
18. :4
    
19. 789
    
20. FINDSTR: 无法打开 :3
    
21. 
    
22. :5
    
23. 系统找不到指定的批处理标签 - 5
    
24. FINDSTR: 无法打开 :3
    
25. :
    

复制代码

在：0开始循环之前，将搜索行内容，倒进一个变量，然后那个变量放在：0循环结构里重复使用，不需要每次搜索一次，只是程序启动时搜索一次。
在具体的程序里，是内部结构选择标签，不是人手工操作一个个选择，所以这个findstr搜索是不需要的。
按照77的两个都是相对稳定态，前者是管道开关选择，后者是间接调用选择，应该选择前者管道开关相对快的说法，实际节奏批处理的操作，是不用考虑这个速度差的。
中心主标签与众类集合分标签，主标签为一个变量容器，装载的不是一个固定标签，是相对标签。开始画面为一个标签，其次用户选择页面为相对次一级标签，用户选择完成进入菜菜城次次标签，这三个标签，当用户操作处于菜菜城，那么用户选择标签就是内容，处于主变量标签容器里。当用户操作处于用户选择页面标签，则主变量容器里的内容是开始页面标签。（需不需要这样呢？）不一定需要相对标签位置关系，但是针对武器店，药店的类集合，其内单元武器和药品的相对跳转，是否有通用的什么内容。
主类集合标签：0，分类集合标签：1，分类集合下属标签：1.2，独立标签：0.3。应该四类规律制作标签可以了吧，类似树tree模式
标签的集合表示形式（类似所谓的荷兰什么命名法，具有自身识别度的选择），：0，：1，：1.2-10。否定命名法，还是没有命名的好，这样出现变化修改，可以不需要考虑关联变化修改。
开始菜单标签，与储存取删除文件的标签之间循环练习。
在等待输入里，按键；分号或|英文竖线跳出，后面跟pause是可以暂停一步的。
523066680不需要choice和回车的批处理，通用度增加，减少DOS，XP与WIN7才有choice的矛盾。
通用度，稳定度，便利度。
没搞懂怎么标签化直接跳转
choice只是xp缺失，那么也不是不可以算通用的，通用度高一些命令，下载第三方choice补充XP的问题。

1. 
   
2. @echo off
   
3. :0
   
4. for %%i in (1,2,3) do (
   
5. choice /C %%i /M ""
   
6. )
   
7. goto:0
   
8. 
   
9. :1
   
10. echo:123
    
11. goto:0
    
12. 
    
13. :2
    
14. echo:456
    
15. goto:0
    
16. 
    
17. :3
    
18. echo:789
    
19. goto:0
    

复制代码

得

1. 
   
2. [1]?1
   
3. [2]?2
   
4. [3]?3
   
5. [1]?
   

复制代码

for的行依次输出，而不是集合选择。但是证明了，变量做choice参数是可以的。

zzz19760225

那么bochs的学习，要怎么去学呢（先不考虑能学多久就会放下的可能，甚至是必然情况），围绕模拟硬件启动的rom字符集内容，又要怎么准备对应的中文或数字呢。bochs使用C++写的，如果换成汇编，是不是就快很多呢。
现在面对下载的源码文件夹里各种文件，基本是干看着，make，别的看不到，需要一种什么地图，公园游览地图那样，看到。源码结构树的tree结构，新手按照地图走，按照地图上的结构功能空间，比较选择，按需选择有无，匹配对应的，更接近的种类范围集合。
鲁比奥之问，古巴人为什么在米国发展出来，历史人有千千万，一切侵略者都是强大的，可以掠夺的，就是说出去抢就是对的。保留这个观点，以后可以使用回去。
花生硬件单元，沙土里，将花生一把扯起来，上面是花叶枝，下面是根系根须和根须上的花生果子。从bochs的环境软件角度去看模拟电脑硬件和再次软件的内容，就假设为扯一把花生的形态。总线是花生的根须，带着各种设备的io，主要io是CPU加工中心和输入输出键盘屏幕和内外存五类，外存包括拔插硬盘和拔插微小优盘。输入输出和内外存，类似脏腑的化和藏，只是路过经过不停留，过手的输入输出（实际显存等是有储存空间的），内外存的储，存取，存为主。
商人商业组织资本主义买卖的垄断阶段，不就是走向贵族奴隶制吗，为什么会出现这种情况呢。同样，官僚资本主义的买卖最终垄断，也是一样的走向贵族奴隶制。历史回归？
油态米国会出现秦国的逐客令和谏逐客令，令生与灭。反之是中国和世界的两个-中国和世界，其中一般平常正常的人与其余极私私有化循环的相对利益群体，两者中一般平常正常群体和天才，天赋，强能的人，选拔和使用利益分配适当适度，奖罚统治。人的利益价格分配定义选择问题，交换易的量化。
另外一个是不惧油态米国的世界天才天赋强能，整体汉民族和多民族愿意参与和学习的，从文化体系上，贯通科学，集合人物理，整体向宇宙时空万物圈层级张力延伸辐射，其整体指数级的基础力量，配合内外天才天赋强能，强行压过去。主要是挖掘慢学的空间，野生党员种子和网络家学为主，尽量避开内部官僚官商资本主义和外国奴隶的满遗杜鹃幼鸟的内部破坏，沿着历史道路继续走下去。
降低生活成本和提高劳动收入的中线，上下波动，收支最终覆盖的概念空间，要将生命一生的活动空间，供需都包括进去。类似朱元璋的工资定价，丰富使用时空和货物定价，到张居正的钱币批处理可循环丰富。二次丰富，从货物劳动到货物收入，到货物支出。在货物为主的实在上，加上货物代表量化的钱币，回归钱币流通交换的基本功能。以及进一步走向钱币所有权的法制暴力保障，将钱币的法制定义选择约定，合约，变成一种概念空间理论去约束，逼迫实践劳动。当钱币有限多于货物，无限多于货物，其虚实矛盾，在实践中的渐变到巨变，可被公有化与私有化官商垄断使用的利害效应。
传统文化如果需要学完了，才能应用实践，有用。那么如果有一个顺序排序，可以学一点，就用一点的渐进。相反是学不全，用上的混乱和损害比例多，难以有效使用学习的内容。凡是可流通学习的形式内容，都是名，任何名都是实的影子，任何影子都可以正用和反用异用，象什么的关联，旁敲侧击。名实和相对的学和习=用。
矛盾江湖习=用，学习，复习。学习复习历史过去，与人概念出发，学习复习道理宇宙已经存在的一切。
河洛有十这个单独数字，为什么十进制选择缩位归一的模式，将单元组合，变成压缩为一个整体连续的圈层级叠加呢。
要打破历史的王统治奴隶，回归到家的家长和家人利益关系，不一定需要人人成为王，但是要向着人人成王的当家作主劳动组织，避免被内外蒙骗欺骗。
观察的干涉效应，水与人用水桶把水装起来观察。看法的切割破坏问题，如何带着问题，活物医疗治理健康度平衡，去处理问题。
已有的文明，文化，知识，科学技术，大胆的去学习，其背后都会贯通联系到中华文明这个根源。主要就是易经为中心，向外演化一切，与各种形式文明文化概念空间容器合一于阵列。主要的实践是中医，以身体力行的人人皆有，去名实合一，到身外数量的术数延伸，完成一个基本理论实践组织机器，程序完备性。用道理为名呢，而不是用易。都可以的吧，最好是一个或几个简单的单元组合就行。象时空实易，复理法形名。理论和实践，简化就是想和做，内为想和做，外为说和做。
山海经和西游记那样，来个大明四游记。从元末明生，到明追逐蒙元残部，重新建立世界势力，到内外联合破坏的海外势力失败围剿，一直延续到清所谓禁海绝外，日本长崎广岛的汉人等。初明起于小明王势力组织，到小明王消失的并行朱元璋势力广积粮缓称王，开始。逐蒙元的向西和世界30年河西河东，海外利益的内外争夺到胜败垄断，失败一方的明朝廷衰弱，到张居正开始王官斗争失败滑坡，嘉靖，万历两个抵抗力量，依然处于官的官商资本主义势力包围中。被动抵抗，看似取胜，还是没有根基的感觉（到新中国建设阶段，也是这样，人民群众也可以真假被渗透，无法打造牢固基础，属于在肚子里斗，内斗。有一种内斗都是有差异同类一样的双方=公与公，私与私，另一种是相对差别，真假和质量，公与私，真公与假公，真私与假私）。
病患患者用户为出发点的阵列，要迅速的将自身的身体感觉感知，与集中形成的分类，种类科目，归类联系起来。头五官，躯脏腑，毛皮肉筋骨，膀臂手，股腿足。类似地区出现案件，对案件立案，其空间环境和事件本身的容器内容，供需关系。
从已有的药品，反向推理抽象的理论医疗病症集合关系，在这个关系上画出用户需求的地图，然后在这个地图上不断修改，走向其他不用药的丰富内容，预防和按摩，针刺，灸，熏，音乐，图画，饮食，运动。已有药品的集中，进行分类归类聚散，通用度缩小减少至种类。名称上的中文化学命名模式，单一药品，与多中组合的药品，如白虎汤，石膏，甘草，知母，粳jing米（为什么不用更读音，而用京jing）。二氧化碳，如果白虎汤换成化学单元组合模式，用两为基本默认单元，十六石膏六知母二甘草六粳米（六-合=六两？）。
欧洲各国的爵位分封，到罗马，梵蒂冈教皇，到拿破仑刀剑自取，到拿破仑经过埃及，对中国沉睡之狮的继续沉睡说法。
电脑的软件界面里，中医卡片点阵，单多卡片和地图。伤寒论的方子，到规律组合选择的中医化学师配药规律概念空间聚散，跷跷板对应病症。
以药方的内容规律，因果的结果，去反向做作业，回归问题本身。集中在有方法方向实践积累的理论，伤寒论的有限方子。
方剂里每一个方子，都是一个组合体，是一个组织机器，一个编程函数。要从方子的范围，覆盖到病症现象，也要走向抽象的通用内容，联系到阴阳太极。以阴阳太极，再到抽象理论路线，组合路上的运输车，药因药元组合的药方。君臣佐使的主次矛盾关系。
按照李可路子的左季云的伤寒论类方汇参，分12类。
在伤寒论的规律单元提取上，以单元组合全排列卦象地图，展开的病症现象和对应的规律演化内容，这样的编程伤寒论或卦象伤寒论假设。
欧洲厂字形服装和旗服的厂字形。服装日常以实用方便便宜为主选择，其次是好看舒服，最后是年内自转循环节日的祭祀，与祖宗对话的衣服历史传承，需要一脉相承，认识是自己人。
伤寒论的意义，对家庭中医化，不在于早，在于语言文字形式的编程分类组合，分析病情的模式规则，产生了一种模式，与抽象的太极阴阳十二经脉联系起来了。
方子分类，彭子益51类，李可20类，左季云12类？
左季云的12类，1，杂类；6组合类，5主要药品类。6组合（承气，泻心，白虎，五苓ling，四逆，理中）5主要药品（桂枝，麻黄，葛根，柴胡，栀zhi子）
神农本草经的单元，单元组合的方剂。太极阴阳十二经脉的一天一年自转抽象具象具体，辩证编程程序重复规律，病症现象。（中医家庭化的沙人比例也会上升，可治人也可害人，人人可推导推演下的去害减少害的比例，更多以利的一面方向为主，就如说话沙人类似）
中医家庭化的游戏界面和内容，单元集合，其中的棋牌模式，相对阴阳的健康平衡与失衡失控的病症现象，两者棋局对战。纸牌，麻将出牌。
也可以类似扔筛子步数，在地图上走璇玑纵横图数独路线。实际使用的时候，使用四诊的量化内容直接输入，不用扔筛子。玩游戏是随机，实际应用是四诊量化结果。这个四诊量化结果，说成是市场抽查的问题表格统计分析，就容易理解了。
人来源传承延续一直在其中，生物动物食物链，利益食物链阶层阶级，人改造环境大家概念，人改造本体自我小家。
宋明的官僚扯皮属于丧失组织力，还美化为共治天下的王者品德。失权而亡，祸害天下。就是摘烂菜，去掉不服从的，清洗干净为止。这个过程中，有实力的向善者，二次筛选，保留一个底限，保障基本生活。（满遗可以保留中国人身份生活，但是其杜鹃幼鸟的本能做法，是将汉人和其他民族的人扯皮，往死里破坏）
从官位收入增加，为了保住自己的权力位置而为集中服务，实际官僚做的不是为集中服务，而是为拆散集中的自家官商服务，不论吃多少利益都不够，这样的官吏走向官僚官商，就无限吸血了，不要工资了。
君臣佐使，主次矛盾，主要内容的相对关系，其增益与减损的两个药效处理内容。
文化文艺产品的公私分类，在公有化类里，再分短期和长期两类间隔组合。
假设有三个层面：
1用户现象病症层面，各种一般正常平常和异常，反常的形象石坚白，盲人摸象，机器匹配比较选择；
2太极阴阳十二经脉，一天，一年等规律结构重复叠加的宇宙复进制，易交换病症现象机器匹配比较选择，与已有医疗经营经验教训的单元组合，就如一个指针编码；
3已有医疗治理的各种经营极限内外，平常内外，内部的常极，其中的经验教训存量提炼单元阵列，单元组合层面。
需要一个可验证，可再现，具有内在道理结构的中医家庭化内容，而不是百度一个，彭子益一个，李可一个，左季云一个（可能需要进一步丰富，有一些不知道的分类层面叠加，需要翻开来，知道有那一个层面叠加者）。
如果建立一个简单的游戏或表格文本，需要怎么去考虑这个游戏的整体卫星矢量图层分形聚散缩放，有游戏的战略地图，小地图移动路线方向认识，具体的工作作业概念空间。动画，小人书模式的通用游戏里，加上整体观，地图的部件。
基本的图文结构，能够显示文字和图画，然后就是无限的搜索匹配比较选择。需要一个终端字符行模式的文字和图片显示界面软件容器壳子，这个容器壳子应该多大，可以往上滚动翻看，但是也不可能全部翻看，只是留一个缓冲，或一种信息压缩保存，可游戏完全再现=那个属于另一个概念空间。这个壳子就是一个图形模式里可以显示字符行，两者不误的看似字符行里显示图片，丢掉字符行的意识，因为中医资料需要色彩图形，字符行不够了，按需选择。（如果纯文字，也有好处，就是体积比带图片的小很多，而且可以方便统一在文字标准里。矛盾啊，选哪一个呢。两个都要走，先走纯文字的，过程简单些，主要是if搜索匹配比较选择字符集内容。用什么编程工具呢，perl，C++，C，汇编。应该用汇编练手，最终要击碎汇编这层障碍皮层，就需要认识理解熟悉熟练汇编，积累可劳动内容。汇编的C语言图形库，看作是函数组合体。能参与多少汇编会参与多少，用于练级。这里也主要是显示文字和图片，做这样的容器外壳，相对需求集中）
就是做一个自我定制的终端，CMD。
当AI自动信息做推销员，要引导你的问题走向他引导的方向，而不是直接回答问题，就重新开一个问答，至少目前他们还没有封锁的准备，还可以继续使用，直到他们成为敌人，就算是敌人，能用的话，也可以继续考虑使用可用的。
一个输入返回，来回交换关系的结构，这个结构是可以无限增量延伸的，在这个结构里的丰富和修改。
法治，首先描述道理，宇宙世界时空的规律现象和运动变化，在这个描述中，选择需要的利害内容，这样属于广而告之，在广而告之的空间里，执行秦法无情，形成规则利益利害食物链，另一个是约定，合约的人民组织广而告之纪律路线。
自己不可以给自己评分。
方剂的方子集合，里面的每一个单元，必然是神农本草经模式的草药字符集里单元，被拿过来组合。
平均分配里的主要问题，是希望所有人都留在这个集合里，而实际不论是私有化还是公有化，都是有取舍的，有被动有主动的，这些取舍要面对的，总想都好好的，是不现实的，社会主义和共-产主义是经济利益利害的趋势淘汰斗争选择过程，不是无条件无限慈善。
要用汇编，已有的linux mint22.2就需要用sdl2，其余是c语言sdl2或perl的Tk。要适应迟早要面对的grub启动阶段汇编文件，使用汇编是必须的，越早在其中越好。中外文，按照一个结构输入文字，对输入的文字if模式比较选择。这个输入形式，是怎么运行呢，需要回车与不需要回车，可以图片拖放。或者，已有的编程程序内容可以减少，只留下所谓正则，匹配比较选择，然后主要内容在输入和丰富库文件的比较选择输出上。也许可能可以吧。如果这个概念结构是增减量，那么将这个过程记录储存，就是存量，这个存量的自动执行，可能就是已有程序文件编程。
法兰，法兰西，法兰东=德国。
辩证，相对关系，阴阳。唯物，概念空间，太极，事。易，法。
1容器内容，2相对关系，3变化逻辑。4一个本体的不同角度之相对。5活人活物带着问题解题的微观微量治整体里的内部病。
如果人民组织党组织私有化，脱离人民，就重新以人民为种子生长新的野生党员，集中为新的人民组织党组织，这样去面对可能失败，外敌外族入侵，南宋南明的情况，而抛弃一切就的官僚，在整体全局棋局上，谁能打仗，谁能将五组织搞好，就集中这些人，在这群体的圈子里，考虑整体平均下的内外流通数量流量充足，相对方向进步。这一步用于亡国阶段，很多人不愿看到到来的失败，必须死亡于看到将来的失败前，有些人死亡于胜利的黎明前，有些人能看到胜利的到来，代表过去一起见证斗争的意义。在富强胜利中国，和贫穷失败中国的两个阶段或趋势斜坡上，都有准备，而且是简单的准备就可以，就是选择方向方法的重复。而长期长远持久的历史阶段人民战争，是一个高地一个高地的进退胜败，没有结束的时候，这样就应尽量避免自杀选择，留下一切生命投入到熔炉中反复重铸胜利。
用ai自动信息去写，是不行的，因为转几个圈子，信息机器放弃了，使用的人也没办法，不得不结束，干活的人不干活了。还得自己去找架构，从路线，路径，往山上爬，只要自己不放弃，可以一直走下去，而自动机器的程序不行，做不到人的长期需求。

zzz19760225

1234567890

1. 
   
2. 程序文本内点阵
   
3. <!DOCTYPE html>
   
4. <html>
   
5. <head>
   
6. 
   
7.     <HTA:APPLICATION
   
8.          SCROLL="yes"
   
9.          SINGLEINSTANCE="yes"
   
10.     >
    
11. 
    
12. <title>段落样式示例</title>
    
13.     <style>
    
14.         p {
    
15.             font-size:100%; /* 字体大小 */
    
16.             line-height: 90%; /* 行间距 */
    
17.             color:; /* 文本颜色 */
    
18.         }
    
19.     </style>
    
20. </head>
    
21. <body>
    
22. <p>
    
23. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
    
24. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
    
25. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
    
26. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
    
27. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
    
28. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
    
29. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
    
30. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
    
31. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
    
32. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
    
33. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
    
34. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
    
35. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
    
36. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
    
37. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
    
38. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ <br>
    
39. 
    
40. </p>
    
41. </body>
    
42. </html>
    

复制代码

可惜iframe框架窗口里，不好调整引入的文本字符大小，间距。这样对程序文本进行处理，比单独的文本要增加难度了。搜索比较选择，处理尾字符串=<br>的行，行内<br>之外的内容修改。
用iframe的id，好像不行。

1. 
   
2. <html>
   
3. <head>
   
4.     <HTA:APPLICATION
   
5.          SCROLL="yes"
   
6.          SINGLEINSTANCE="yes"
   
7.     >
   
8. <style>
   
9. #myFrame {
   
10.     width: 5px;
    
11.     height: 1px;
    
12.     border: 1px solid black;
    
13. }
    
14. </style>
    
15. </head>
    
16. <body>
    
17.    <iframe id="myFrame" src="1.txt" ></iframe>
    
18. </body>
    
19. </html>
    

复制代码

可以调节iframe的大小，但是里面显示1.txt的字符大小不变。
1.txt

1. 
   
2. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
   
3. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
   
4. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
   
5. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
   
6. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
   
7. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
   
8. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
   
9. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
   
10. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
    
11. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
    
12. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
    
13. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
    
14. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
    
15. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
    
16. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
    
17. ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇ ▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇▇
    

复制代码

阔以，用hta里的vbs，是可以缩小1.txt文本字符的。（还有个换行问题吧）

1. 
   
2. <html><head>
   
3. 
   
4.    <HTA:APPLICATION
   
5.       SCROLL="yes"
   
6.       SINGLEINSTANCE="yes">
   
7. 
   
8.    <style>
   
9.       textarea {
   
10.         font-size:70%; /* 调整字体大小 */
    
11.         line-height:90%;
    
12.         width: 100%;
    
13.         height: 50%;
    
14.         resize: none;
    
15.       }
    
16.    </style>
    
17. 
    
18.    <script language="VBScript">
    
19.    Sub Window_OnLoad()
    
20.      Dim objFSO, objFile, strContents
    
21.      Set objFSO = CreateObject("Scripting.FileSystemObject")
    
22.    
    
23.      If objFSO.FileExists("1.txt") Then
    
24.         Set objFile = objFSO.OpenTextFile("1.txt", 1)
    
25.         strContents = objFile.ReadAll
    
26.         objFile.Close
    
27.         
    
28.         ' 将文本内容按行分割并添加到textarea中
    
29.         arrLines = Split(strContents, vbCrLf)
    
30.         For Each strLine In arrLines
    
31.             txtContent.Value = txtContent.Value & strLine & vbCrLf
    
32.         Next
    
33.      Else
    
34.         MsgBox "1.txt 文件不存在！", vbExclamation, "错误"
    
35.      End If
    
36.    
    
37.      Set objFSO = Nothing
    
38.    End Sub
    
39.    </script>
    
40. 
    
41. </head><body>
    
42. <textarea id="txtContent" readonly></textarea>
    
43. </body></html>
    

复制代码

暂时可用

1. 
   
2. <html>
   
3. <head>
   
4.    <HTA:APPLICATION
   
5.       SCROLL="yes"
   
6.       SINGLEINSTANCE="yes">
   
7. 
   
8.    <style>
   
9.       textarea {
   
10.         font-size:70%; /* 调整字体大小 */
    
11.         line-height:90%;
    
12.         width: 100%;
    
13.         height: 50%;
    
14.         resize: none;
    
15.       }
    
16.    </style>
    
17. 
    
18.    <script language="VBScript">
    
19.    Sub Window_OnLoad()
    
20.       LoadFileContents()
    
21.    End Sub
    
22. 
    
23.    Sub LoadFileContents()
    
24.       ClearPage()
    
25.       Dim objFSO, objFile, strContents
    
26.       Set objFSO = CreateObject("Scripting.FileSystemObject")
    
27.    
    
28.       If objFSO.FileExists("1.txt") Then
    
29.          Set objFile = objFSO.OpenTextFile("1.txt", 1)
    
30.          strContents = objFile.ReadAll
    
31.          objFile.Close
    
32.         
    
33.          ' 将文本内容按行分割并添加到textarea中
    
34.          arrLines = Split(strContents, vbCrLf)
    
35.          For Each strLine In arrLines
    
36.              txtContent.Value = txtContent.Value & strLine & vbCrLf
    
37.          Next
    
38.       Else
    
39.          MsgBox "1.txt 文件不存在！", vbExclamation, "错误"
    
40.       End If
    
41.    
    
42.       Set objFSO = Nothing
    
43.    End Sub
    
44. 
    
45.    Sub ClearPage()
    
46.       txtContent.Value = ""
    
47.    End Sub
    
48.    </script>
    
49. 
    
50. </head>
    
51. <body>
    
52. <textarea id="txtContent" readonly></textarea>
    
53. 
    
54. </body>
    
55. </html>
    

复制代码

刷新时，先清除页面。

zzz19760225

1234567890
将学习，简化看作是混熟，就好一些了。
intel4004，2300个开关的芯片，

汇编语言
电子工业出版社，吕升旭编著，(郑阿奇主编)，2011年5月第一次印刷，35元，开本：787X1092，印张：20.75，字数：53.12万字 (531.2千字)
一，内容简介，前言，
二，首篇：汇编语言运算基础，
三，2，3，4，5，6，7，8，9，10篇
四，附录。

机械工业出版社，郑晓薇编著，(2013年12月2版)2018年7月重印，39元，开本：185X260，印张：18，
一，简介，前言，教学建议，
二，首篇：1基础知识，
三，2，3，4，5，6，7，8，9，10篇，
四，附录。

清华大学出版社，王爽著，(2003年9月)2005年4月重印，28元，开本：185X260，印张：20.5，字数：49万字 (490千字)
一，内容简介，前言（教学思想，本书结构，教学重点和内容特点），
二，首篇：基础知识，
三，2，3，4，5，6，7，8，9，10，11，12，13，14，15，16，17篇，
四，附注。

IBM-PC汇编语言程序设计(第二版)，
清华大学出版社，沈美明，温冬婵编著，(2001年8月2版)2006年11月重印，34.8元，开本：185X260，印张：31.25，字数：71.1万字 (711千字)
一，内容简介，前言，
二，首篇：基础知识，
三，2，3，4，5，6，7，8，9，10，11篇，
四，附录。


开本
是指一本图书幅面的大小。是以整张纸裁开的张数作标准来表明书的幅面大小的。
把一整张纸切成幅面相等的 16 小页，叫 16 开，切成 32 小页叫 32 开，其余类推。由于整张原纸的规格有不同规格，所以，切成的小页大小也不同。
开本尺寸
标准正度纸的尺寸为787×1092(mm)。大度纸的尺寸为889×1194mm。
*成品尺寸=纸张尺寸－修边尺寸

印张
说明印这本图书需多少纸张。
因为一张纸可以两面印，所以两个印张才算一个全张。一令纸是五百张，一千印张就是一令纸。
印张计算
（1）印张的计算方法：面数除以开数；
（2）总面数的概念，凡是用纸与正文相同、可与正文部分合在一起印刷的前言、目录、索引、附录、后记等，其所占面数都要计入总面数；
（3）若印张数计算中出现小数，在印数比较少（如仅千册时），一般要根据“使不足一个印张的零页呈双数（占四个页码）状态”的原则而向上进位，以便于印刷、装订。
16开进到0.25、0.5、0.75；32开进到0.125、0.25、0.375、0.5、0.625等。
但是，在印数大到纸张费用已经占书刊成本的50%左右时，就不宜采用这种方法，因为这时可指望节省的印订费用已经不足弥补纸张费用的增长。

所谓的汉字DOS应该是对应嵌入式这个实践内容更多的概念空间。汇编也是通用的。
课本一般是1前言，2首篇，3其余篇（中心篇，重点篇，骨干篇，收尾篇）。

以文本处理为载体的模拟假设汇编实验平台？
汇编理论(没有包括的环境技术知识，字典词典技术说明书手册)，dosbox的debug.exe，masm，emu8086，中文版visual masm2.00，电路模拟模仿（数字电路书籍），实际物件参与（市场采购员资料角度，还有钱，想办法怎么用学到的内容去换来钱，接上），维修，零件部件替换，零件部件获取或自制（这是不可能自制的），结构重组，按照需求建立结构的重组，个人个体对汉字DOS概念空间的需求结构重组。
1停留在原地重复深刻，2达到目的就快速跨过去，不断跨越循环混熟，3流程里的产品和服务重点与流程结构组织的理论实践扎实（时间还够吗）。

O汇编语言

从已有软件到试验硬件，从试验硬件，实验硬件，产品硬件到结构需求软件。（钱在哪里呢？或者说生活资料的物质内容在哪里，将产品摆在地摊上卖，同时看书，间或当时可行的单元实验，结构组织互相网络联系。1号运输员，2号摊点，3号中心）

框架老师，备课背课。先类似谋略分解问题需求为量化的简单重复，备课将一本书分解为认识理解熟悉熟练的的什么概念，而不管里面什么内容。在初期框架处理后，再吃里面的内容，不管回到框架。这样会不会太那啥了，就是处理运算形式，具体的机器结构，机器如何运转，准备需求内容，实现需求内容。或者两者都可以，通过作息表，按照想法进行排一天，愿意学，的排序方法，就多排一些。直接对问题紧追猛打不死不休，结构组织每日步步为营。注意力管理，在欲望，需求，问题消失前，需要完成这个结构，如看新闻的几秒兴趣意识的有效时效。所以步步为营不适合我，应该放弃。但是可以在兴趣之外，建立一种跨天的年结构步步为营，置于四季规律中，在百年和两百年的大周期里步步为营是可以的。有空就抽时间素描一样添几笔，描绘百年或两百年的内容，有问题的内容去掉或标示，突出下一阶段的颜色。个体个人自我管理内容，多人组合的管理小组，多人管理小组的所有权经营。将管理简化为混熟，经常查看翻看，在看的清楚明白基础上，不论能力大小的利害善恶好坏简单化选择。总之比被蒙骗和糊涂的搞不清楚自己利益要好。
在其中，混熟，经常顺便翻看，看看法看到清楚明白。
这样人民干部的问题也解决了，脱离群众的就可以去掉了。会不会太那啥了。那么接触的是自己一亲近性格群体呢，如何量化呢。基本上那种病毒时候，报不上数的，就是可以下掉了。就是手下多少人，多数人什么情况。但是这也证明不了什么，有的奸是很聪明的，能力不比多数人差，甚至是优秀的能力。道路方法，利益方向，聚散方式。聚散的深入群众如何量化，要是有一种可以量化的称杆扁担，可以知其群众关系，就可以进行一种底色处理了。问群众这面镜子，反过来了解干部多少。也不行，如果干部只是官僚式针对宣传呢，应付这种内容。问题的根源应该不是干部身上，而是群众这个根源上，抓住群众的核心结构规律，去观看干部，而不是以干部为眼睛去看群众，这是主次矛盾统一问题，是是主，这个主是否具有历史通用度，是就是统一了，是之是，两次相对肯定，就是统一主次矛盾了。

以行，实验，实践，实现为主的做到内容为明珠，引导学习的学不知和练习次数。学东西的时候，不是学已知，是学不知的，如果每次每天没有学到新内容，那么就是学习失败。这里有学习的心态问题，认为学习的内容是什么，而实际其内容是不知的。在学到新内容时，以为就是这些，实际没有联系到身上，不能在时效内做到，就是练习不足不够不合格，就是做不到。学，新东西，习，做到。

一，材料，二，机器，三，机器使用，四，使用机器的做法1基本单2多3单元集合相对组合，五，重复，六，工作流程的安排调度。七，独立练习事。（宏汇编，808688指令集）
二进制=机器操作和加工材料，机器，机器使用命令和寻址搜索查找联系，1程序结构，2程序分支，3程序子程序，循环，输入输出中断调度，
基础二进制，八进制，十六进制，为主的二进制知识，
8086/88系统，机器知识，

（寄存器处理，内存处理，外存处理，键盘处理，屏幕处理）

个十百万亿进制字符
个进制，任意一个字符重复。
十进制，需要确定进制的内容结构形式组织机器，然后使用这个组织机器。
一，二，三，四，五，六，七，八，九，十，
百万亿，点阵实现字符之后跟进，15点阵一个数量集合，16X16点阵可放十来个数字，是可以算机器进制的，人眼需要字体放大或再信息处理阅读。

个，二，四，八，十六，三十二，六十四进制汉字
个，同上。
二，阴阳
四，东南西北
八，乾坤兑坎震离巽？
十六，零一二三四五六七八九十壹贰叁肆伍陆
三十二，
六十四，

明天20250419，选择一本汇编语言的第一章第一题，做20遍。（为什么不今天做呢？）
电子工业汇编语言，1，试完成下列数制间的转换。
(1)十进制数转换为二进制。65，89，139，257，388，86
(2)无符号二进制数转换为十进制数。01010010，11010010，00101110，11101100，10011010，00011011
(3)十进制数转换为十六进制数。23，689，356，456，879，484
(4)八进制数转换为十六进制数。475，652，752，346，44，12
用随机数生成题目
01010010，11010010，00101110，11101100，10011010，00011011
1,2,4,8,16,32,64,128,
按照位权数排序，对照有1的权数相加。
01001010=0,2,0,0,16,0,64,0=2+16+64=82
01001011=0,2,0,0,16,0,64,128=2+16+64+128=80+130=210
128,64,32,16,8,4,2,1
00101110=00,32,0,8,4,2,0=32+8+4+2=46
11101100=128,64,32,0,8,4,00=128+64+32+8+4=128+68+40=128+108=236
10011010=128,00,16,8,0,2,0=128+16+8+2=128+26=154
00011011=000,16,8,0,2,1=16+8+2+1=17+10=27
生产8位二进制，6组
10011010=128,00,16,8,0,2,0=128+16+8+2=130+24=154
01001111=0,64,00,8,4,2,1=64+8+4+2+1=69+10=79
01100111=0,64,32,00,4,2,1=64+32+4+2+1=100+3=103
10011000=128,00,16,8,000=128+16+8=144+8=152
00100110=00,32,00,4,2,0=32+4+2=38
00101111=00,32,0,8,4,2,1=32+8+4+2+1=40+7=47
第二遍就烦了

游戏的信息生活空间量化，量化空间与代表的数字化组织。生活化学化合物流，主次。衣食住行乐
民以食为天的饮食物流，（输入收入钱币）买菜米，烧饭菜，吃饭菜，大小便。
温度，精神情绪，衣，身体卫生，洗。洗手，洗足，洗脸，洗头，洗身。买内外衣，洗内外衣，晒内外衣，收内外衣，换内外衣。
住空间的饮食厨，洗澡卫生（净），睡觉卧。整理的屋子和三个常用厨净卧。整屋，理厨，理净，理卧。扫地，拖地。集中垃圾，倒垃圾。
行为广义是水电煤网，狭义是交通工具费用的脚，自行车，电瓶车摩托车，汽车，火车，飞机，船。
乐有两种，一种是将人生做成乐于的内容，乐在其中的参与运动，另一种是专门的乐于内容，个人兴趣爱好和娱乐产品服务。

个体微观经济学，生活环境，人身本体，本体输入输出流通流量量化的臓腑容易。五运六气，天文运转，地星村太极自转，人体太极自转的量化。
元素单元，单元组合聚散，统计量化输入输出流量收入支出。
100，200，2000个生活游戏单元。全部，通用，组用，专用，常用。

中医基层十人小组组长领导，网络信息支援组劳动，生活自动化产品和服务，个人众人钱币集中资本交换生产资料点单双少多整，劳动者劳动股份所有权的公有化企业小中大。

zzz19760225

1234567890
无病（真至圣贤），不病（治未病，时空病预防为主），有病（大小病，以偏治偏，恢复平衡），冇病（恢复本体平衡，环境维持本体平衡）。
中医理论，看治。简单初步病，食疗=药，按疗=针穴。小病（食疗，按疗），大病（针灸，药），现代医学化学工业和机器，实验的看治，针对化合抵消，割除，消炎，急救。
黄帝内经的分类背记，1站在环境本体之外俯视的总论类，原理类太极体，平常正常整常。2阴阳相对平衡类，生病原理（不包括外伤？）。3看病类，看病的内外看形态。4治病类。
抽象五行为变量单元的组合结构部分，八纲论治。输入源望闻问切四诊和按诊五诊，内因化为演示外因外形。输出二变量治疗，一剂或一波表面直接，二剂或第二波真假二次细分组合形态的后备部队，补充追击或阻击填补。
看输入（八纲论治组织机器）输出治，八纲论治组织机器的六臓（赃=家）六腑=心腹十二，管理十二经脉门路。内五行对应外针灸药五行。身体组织机器的制造用

阴表寒虚V1
阴表寒实V2
阴表热虚？
阴表热实V3
阴里寒虚（阴里寒虚）4
阴里寒实V5
阴里热虚？
阴里热实？
阳表寒虚V6
阳表寒实V7
阳表热虚V8
阳表热实V9
阳里寒虚（阳虚内寒）10
阳里寒实V11

阳里热虚（阳虚内热）12：

畏寒肢冷&#8204;：四肢不温，易感寒冷，尤其在寒冷环境下症状加重。 &#8204;
&#8204;口干咽燥&#8204;：因阳气不足导致虚阳浮越，可能出现口干、咽部干燥。 &#8204;
&#8204;潮热盗汗&#8204;：午后或夜间出现发热，伴随出汗。 &#8204;
&#8204;腰膝酸软&#8204;：腰部和膝盖部位酸软无力，可能伴随头晕耳鸣。 &#8204;
&#8204;舌淡苔白&#8204;：舌苔薄白或微黄，脉象沉细数。

阳里热实（阳明里热实）13：

高热&#8204;：身热汗出，不恶寒反恶热；
里实&#8204;：腹胀满痛、拒按，大便秘结或潮热；
热扰心神&#8204;：谵语、烦躁懊恼；
津液损伤&#8204;：口干渴、小便短赤。

有13个百度可以搜索到的16证，先针对这13证混熟。

zzz19760225

1234567890

百进制数字组合字
应该是集中左右和上下组合字，其余的字过滤掉。在左右和上下的字群集合里，再对左右上下的部首单元，进行批量处理，寻找通用度高的部首偏旁为参考。类似十六进制0和15个字符，0和9个数字组成100，需要20个部首偏旁，10与10组成100个单元。而这个组合里，汉字是一体视觉的，虽然其字符的集合处理依然是量化数量数字。
规律组合聚散，部首偏旁，笔画的零部件。

zzz19760225

1234567890


一，汉化其他编程语言：
中蟒=Python语言，
易乐谷=LOGO语言，
丙正正=C++，
EMS=Visia Compiler。
二，自主研发了汉语内核，
易语言=汉语可被直接编译为机器码，易脚本，世宝脚本是自主开发的脚本语言。
O语言，组合语言，
习语言是C语言的汉化，支持汉语编写。
三类，以汉语为基础，搭建式或区别于传统编程的工具。
搭建之星，
网站搭建者，
华罗庚（MISD），
雅奇990等。

秋海棠红的Visual MASM(32位汇编IDE)汉化版
勇芳的VisualFreeBasic
perl5论坛第三方(脚本宿主完全版)三剑客处理文本纯文字游戏和字符为点阵单元
(易语言)汉字为变量
WIN平台软件，LINUX平台软件

标签，跳转，随机数，变量，缓存，粘贴板的乒乓球来回传递处理（句柄设备容器？），直接修改保存文件文本。

1语文字符集组合穷尽地图选择关系，编译编辑的规律。
2数学从无至有的量化概念，集中到函数这个节点。
3武术的身体在于运动，张力动作不容易练坏身体的站动作。
4中医入不了把脉的门，就以舌头为主，圆运动的古中医学先后两本。
5饮食没有现成的，从民俗历史记录寻找，立足在四季循环的二十四节气饮食，对接中医的身体需求考虑，算一个随意随机的散科目（如果从所谓的五运六气去看，是一个大规模的圆自转里圈层级小自转圆，是有其规律的，只是要找出来不容易）。

zzz19760225

1234567890
通义：perl制作一个游戏，中医看病，坐诊看不同的病人，不同的病情，给出对应的治疗内容，得出一些结果。

1. 
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use utf8;
   
6. use open ':std',':encoding(gbk)';
   
7. binmode STDOUT,":encoding(UTF-8)";
   
8. use Encode qw(decode encode);
   
9. use Term::ANSIColor; # 用于彩色输出，提升体验（可选，需安装：cpan Term::ANSIColor）
   
10. 
    
11. # --- 游戏数据定义 ---
    
12. # 病人信息模板
    
13. my @patients = (
    
14.     { name => "王大娘", age => 50, occupation => "农妇", description => "面色萎黄，精神不振" },
    
15.     { name => "李书生", age => 28, occupation => "书生", description => "面色潮红，略显焦虑" },
    
16.     { name => "张老板", age => 45, occupation => "商人", description => "体型微胖，说话中气足" },
    
17.     { name => "小童", age => 8, occupation => "孩童", description => "活泼好动，偶有咳嗽" },
    
18. );
    
19. 
    
20. # 病情与辨证数据 (简化版)
    
21. # 结构: { symptom => "症状描述",
    
22. #         diagnosis => "证型",
    
23. #         correct_treatment => "正确治疗关键词",
    
24. #         wrong_treatment_penalty => "错误治疗惩罚描述",
    
25. #         correct_feedback => "正确反馈",
    
26. #         wrong_feedback => "错误反馈（通用）" }
    
27. my @illnesses = (
    
28.     {
    
29.         symptom => "头晕乏力，食少便溏，舌淡苔白，脉细弱",
    
30.         diagnosis => "脾气虚",
    
31.         correct_treatment => "四君子汤",
    
32.         wrong_treatment_penalty => "寒凉药伤脾阳",
    
33.         correct_feedback => "药后精神渐复，食欲好转。数剂后诸症悉平。",
    
34.         wrong_feedback => "服药后反觉腹痛腹泻，四肢发凉。"
    
35.     },
    
36.     {
    
37.         symptom => "头痛眩晕，急躁易怒，舌红苔黄，脉弦数",
    
38.         diagnosis => "肝阳上亢",
    
39.         correct_treatment => "天麻钩藤饮",
    
40.         wrong_treatment_penalty => "温补药助火上炎",
    
41.         correct_feedback => "服药后头痛减轻，情绪渐稳。",
    
42.         wrong_feedback => "服药后头痛欲裂，面红耳赤更甚。"
    
43.     },
    
44.     {
    
45.         symptom => "咳嗽痰黄，咽喉肿痛，发热微恶风，舌红苔薄黄",
    
46.         diagnosis => "风热感冒",
    
47.         correct_treatment => "银翘散",
    
48.         wrong_treatment_penalty => "辛温药助热",
    
49.         correct_feedback => "服药后汗出热退，咳嗽痰减。",
    
50.         wrong_feedback => "服药后身热不解，咳嗽加剧。"
    
51.     },
    
52.     {
    
53.         symptom => "心悸失眠，多梦健忘，面色无华，舌淡，脉细弱",
    
54.         diagnosis => "心血亏虚",
    
55.         correct_treatment => "归脾汤",
    
56.         wrong_treatment_penalty => "理气药耗伤心血",
    
57.         wrong_feedback => "服药后心慌更甚，夜不能寐。"
    
58.     },
    
59. );
    
60. 
    
61. # 中药方剂库 (简化)
    
62. my %formulas = (
    
63.     "四君子汤" => "人参、白术、茯苓、甘草 - 功效：益气健脾",
    
64.     "天麻钩藤饮" => "天麻、钩藤、石决明、栀子、黄芩 - 功效：平肝熄风，清热活血",
    
65.     "银翘散" => "金银花、连翘、桔梗、薄荷、牛蒡子、竹叶、荆芥、淡豆豉、甘草 - 功效：辛凉透表，清热解毒",
    
66.     "归脾汤" => "白术、茯神、黄芪、龙眼肉、酸枣仁、人参、木香、甘草、当归、远志 - 功效：益气补血，健脾养心",
    
67.     "六味地黄丸" => "熟地黄、山茱萸、山药、泽泻、茯苓、牡丹皮 - 功效：滋阴补肾",
    
68.     "逍遥散" => "柴胡、当归、白芍、白术、茯苓、甘草、薄荷、生姜 - 功效：疏肝解郁，健脾养血"
    
69. );
    
70. 
    
71. # --- 游戏状态 ---
    
72. my $reputation = 50; # 声望值 (0-100)
    
73. my $gold = 20;       # 诊金 (游戏货币)
    
74. my $day = 1;         # 游戏天数
    
75. 
    
76. # --- 辅助函数 ---
    
77. sub clear_screen {
    
78.     system($^O eq 'MSWin32' ? 'cls' : 'clear');
    
79. }
    
80. 
    
81. sub colored_print {
    
82.     my ($color, $text) = @_;
    
83.     if (eval { require Term::ANSIColor; 1 }) {
    
84.         print Term::ANSIColor::colored($text, $color), "\n";
    
85.     } else {
    
86.         print "$text\n";
    
87.     }
    
88. }
    
89. 
    
90. sub wait_for_enter {
    
91.     print colored("按回车键继续...", "yellow on_black");
    
92.     <STDIN>;
    
93. }
    
94. 
    
95. # --- 游戏主循环 ---
    
96. clear_screen();
    
97. colored_print("green", "==================================");
    
98. colored_print("green", "      欢迎来到《岐黄仁心》        ");
    
99. colored_print("green", "    体验中医辨证论治的智慧！      ");
    
100. colored_print("green", "==================================");
     
101. wait_for_enter();
     
102. 
     
103. while (1) {
     
104.     clear_screen();
     
105.     colored_print("blue", "【医馆坐诊】第 $day 天");
     
106.     colored_print("yellow", "声望: $reputation  诊金: $gold 文");
     
107. 
     
108.     # 随机选择一个病人和病情
     
109.     my $patient_idx = int(rand(@patients));
     
110.     my $illness_idx = int(rand(@illnesses));
     
111.     my $patient = $patients[$patient_idx];
     
112.     my $illness = $illnesses[$illness_idx];
     
113. 
     
114.     print "\n";
     
115.     colored_print("magenta", "病人：$patient->{name} ($patient->{age}岁, $patient->{occupation})");
     
116.     colored_print("cyan", "主诉：$illness->{symptom}");
     
117.     print "   $patient->{description}\n";
     
118. 
     
119.     # 诊断环节
     
120.     print "\n";
     
121.     colored_print("white", "【四诊合参】");
     
122.     print "请根据以上信息，判断此病人的中医证型: ";
     
123.     my $diagnosis_guess = decode('utf8', <STDIN>);
     
124.     chomp($diagnosis_guess);
     
125.     $diagnosis_guess = encode('utf8', $diagnosis_guess); # 确保比较时编码一致
     
126. 
     
127.     # 治疗环节
     
128.     print "\n";
     
129.     colored_print("white", "【开具处方】");
     
130.     print "请输入您认为合适的中药方剂名称 (例如: 四君子汤, 银翘散): ";
     
131.     my $treatment = decode('utf8', <STDIN>);
     
132.     chomp($treatment);
     
133.     $treatment = encode('utf8', $treatment);
     
134. 
     
135.     # 查看方剂信息 (可选)
     
136.     if (exists $formulas{$treatment}) {
     
137.         print "\n";
     
138.         colored_print("green", "【方剂参考】$formulas{$treatment}");
     
139.         wait_for_enter();
     
140.     }
     
141. 
     
142.     # 判断结果
     
143.     print "\n";
     
144.     colored_print("white", "【治疗结果】");
     
145.    
     
146.     my $is_correct = (lc($treatment) eq lc($illness->{correct_treatment}));
     
147.    
     
148.     if ($is_correct) {
     
149.         print "&#10003; $patient->{name} 服用 $treatment 后，";
     
150.         print encode('utf8', decode('utf8', $illness->{correct_feedback})); # 处理中文
     
151.         $reputation += 5;
     
152.         $gold += 10;
     
153.         colored_print("green", "\n&#10003; 诊断准确，治疗得当！声望+5，诊金+10文。");
     
154.     } else {
     
155.         print "&#10007; $patient->{name} 服用 $treatment 后，";
     
156.         print encode('utf8', decode('utf8', $illness->{wrong_feedback}));
     
157.         # 检查是否用了完全错误的药
     
158.         if ($treatment =~ /四君子汤|归脾汤|六味地黄丸/ && $illness->{wrong_treatment_penalty} eq "寒凉药伤脾阳") {
     
159.             print " (可能因 $illness->{wrong_treatment_penalty})";
     
160.         } elsif ($treatment =~ /天麻钩藤饮|银翘散/ && $illness->{wrong_treatment_penalty} eq "温补药助火上炎") {
     
161.             print " (可能因 $illness->{wrong_treatment_penalty})";
     
162.         }
     
163.         $reputation -= 3;
     
164.         $reputation = 0 if $reputation < 0; # 声望不低于0
     
165.         colored_print("red", "\n&#10007; 用药失当，病情可能加重！声望-3。");
     
166.     }
     
167. 
     
168.     # 结束当天
     
169.     $day++;
     
170.     wait_for_enter();
     
171. 
     
172.     # 游戏结束条件 (可选)
     
173.     if ($reputation >= 100) {
     
174.         clear_screen();
     
175.         colored_print("bright_green", "★★★★★ 恭喜！ ★★★★★");
     
176.         colored_print("bright_green", "您的医术精湛，声望卓著，");
     
177.         colored_print("bright_green", "已成为誉满天下的【一代名医】！");
     
178.         last;
     
179.     } elsif ($reputation <= 0) {
     
180.         clear_screen();
     
181.         colored_print("red", "◎◎◎ 惋惜！ ◎◎◎");
     
182.         colored_print("red", "因多次误诊，医馆声誉扫地，");
     
183.         colored_print("red", "被迫关门歇业...");
     
184.         last;
     
185.     }
     
186. 
     
187.     # 询问是否继续
     
188.     print "\n";
     
189.     print "是否继续坐诊？(y/n, 默认 y): ";
     
190.     my $choice = <STDIN>;
     
191.     chomp($choice);
     
192.     last if lc($choice) eq 'n';
     
193. }
     
194. 
     
195. colored_print("blue", "\n感谢游玩《岐黄仁心》！\n");
     

复制代码

显示

1. 
   
2. ==================================
   
3.       欢迎来到《岐黄仁心》        
   
4.     体验中医辨证论治的智慧！      
   
5. ==================================
   
6. 按回车键继续...
   

复制代码

后面没有参考选项123类，不方便。而且有TK一类彩色图形内容。

zzz19760225

1234567890
Tk命令语句
------------
use Tk;
--------------------------------------------------------
my $mw = MainWindow->new;       # 创建主窗口
my $主窗口 = MainWindow->new;   # 创建主窗口
--------------------------------------------------------
$mw->title("我的 Tk 页面");            # 设置窗口标题
$主窗口->title("我的 Tk 页面");        # 设置窗口标题
--------------------------------------------------------------------
$mw->geometry("300x200");       # 设置窗口大小 (宽度x高度)
$主窗口->geometry("300x200");   # 设置窗口大小 (宽度x高度)
---------------------------------------------------------------------------------------------------------
$mw->Button(-text => "按钮")->pack();                 # 在主窗口上创建一个按钮
my $button = $mw->Button(                                 # 在主窗口上创建一个按钮
    -text => "点击我！",                                           # 按钮上显示的文本
    -command => sub {                                          # 开始启动的命令行返回信息
                                 print "按钮被点击了！\n";        # 当按钮被点击时执行的代码
                                }
)->pack(-pady => 50);                                         # 将按钮放置在窗口中，并添加一些垂直间距
--------------------------------------------------------------------------------------------------------

MainLoop;                                                            # 启动 Tk 事件循环
-----------------------------------------------------------------------------------




-fill => 'x',               在水平方向上拉伸，宽度会扩展，直到填满父容器左右边缘之间的空间。

-width  => 500,       高度

-height => 400,       宽度

-bg     => 'black',     或 -background: 设置小部件的背景颜色

-font => 'Arial 14',   设置小部件中文本的字体。例如 'Arial 14' 表示使用 Arial 字体，大小为 14 点

-expand => 1,         在进行窗口缩放时是否扩展小部件。这个选项通常与布局管理器一起使用，如 pack, grid, 或 place

-tags => 'ball',         主要用于画布(Canvas)小部件，用来给画布上的项目(item)指定一个或多个标签(tag)，以便后续可以通过这些标签来引用这些项目

-relief => 'groove',   指定小部件边框的样式。可能的值包括 flat, raised, sunken, groove, ridge

-anchor => 'center',  控制内容在小部件中的对齐方式。可选值有 n, ne, e, se, s, sw, w, nw, 和 center

-pady => 30,           垂直方向上的填充，即在组件的顶部和底部留出的空间量

-justify => 'left',       当文本有多行时，设置文本的对齐方式。可能的值有 left, right, 和 center

-wrap => 'word',      在文本小部件中控制换行的方式。'word' 表示尽可能在单词边界处换行

-wraplength => 350,对于某些小部件（如 Label），设置当文本达到特定长度时自动换行。单位通常是屏幕距离（例如像素）

-bd => 2,                边框宽度

-padx 和 -pady (外部填充) 以及 -ipadx/-ipady (内部填充)

-sticky: 让小部件粘附到网格单元的边缘。常用 'n', 's', 'e', 'w', 'nw', 'se' 等，'ew' (水平拉伸) 或 'ns' (垂直拉伸)




------------------------------------
一个空白页面
use Tk;
my $mw = MainWindow->new;
MainLoop;
------------------------------------

页面显示文字
my $a1=$a0->Label(   #字条标签
1,
2,
3,
)->pack(                     #pack=包装
01,
02,
03,
);

------------------------------------

页面显示按钮
my $b1=$a0->Button(
-1,
-2,
-3,
)->pack(
-01,
-02,
-03,
);

-------------------------------------


$frame->gridColumnConfigure(2, -minsize => 20); # 在 grid 中创建一个不可见的占位符 # 或使用一个 null 组件

-------------------------------------------------------------------------------------------------------------------------

-command => sub { $mw->iconify; }   # 最小化，没退出
-command => sub { $mw->withdraw; }  # 只隐藏窗口，程序仍在运行

sub{exit;}退出 Perl 解释器
$mw->destroy;销毁主窗口
$mw->protocol('WM_DELETE_WINDOW', sub { $mw->destroy;}); 这样点击窗口关闭按钮时也能正常退出

数量命令与相对比例度量命令，随着页面容器变化而同比例变化的，页面容器固定数量值不变的。
a0123为主窗口类，b0123为字条字符串显示，c0123为按钮操作。d?声音，e?图片
----------------------------
use Tk::Text;

use utf8;
use open ':std',':encoding(gbk)';
binmode STDOUT,":encoding(UTF-8)";

use Tk;
use Tk::Text;

my $mw = MainWindow->new;
$mw->title("游戏说明");
$mw->geometry("500x500");
$mw->resizable(1, 1);  # 可调整窗口大小

# 创建 Text 控件，不使用 Scrolled（避免滚动条）
my $text = $mw->Text(
    -wrap       => 'word',          # 自动换行
    -font       => 'SimSun 12',
    -width      => 60,              # 宽度（字符数）
    -height     => 20,              # 高度（行数），根据内容调整
    -bg         => 'lightgray',     # 背景色（可选）
    -padx       => 10,
    -pady       => 10,
    -relief     => 'flat',          # 边框样式
)->pack(
    -expand => 1,
    -fill   => 'both',
    -padx   => 10,
    -pady   => 10
);

# 三段游戏说明
my $游戏说明1 = " ╲ ╱\n"
              . " ╔━╗ ╲ ╱    ╔━━━━━━━━━━━━╗\n"
              . " ┃小┃╔━━━╗┃勇士大闯关是升级打怪的游┃\n"
              . " ┃机┃┃● ● ┃┃戏，ChEric隆重出品      ┃\n"
              . " ┃器┃┃ ☉   ┃┃                        ┃\n"
              . " ┃人╠╣ ┌┐ ┃╚━━━━━━━━━━━━╝\n"
              . " ╚━╝╚━━━╝\n\n";

my $游戏说明2 = " ╲ ╱\n"
              . " ╔━╗ ╲ ╱    ╔━━━━━━━━━━━━╗\n"
              . " ┃小┃╔━━━╗┃按开始游戏开始,本版本无 ┃\n"
              . " ┃机┃┃● ● ┃┃挂，输入勇士名称回车确定┃\n"
              . " ┃器┃┃ ☉   ┃┃，武器店是买武器        ┃\n"
              . " ┃人╠╣ ┌┐ ┃╚━━━━━━━━━━━━╝\n"
              . " ╚━╝╚━━━╝\n\n";

my $游戏说明3 = " ╲ ╱\n"
              . " ╔━╗ ╲ ╱    ╔━━━━━━━━━━━━╗\n"
              . " ┃小┃╔━━━╗┃装备店是买装备的地方，闲┃\n"
              . " ┃机┃┃● ● ┃┃话少说，已打败boss为目标┃\n"
              . " ┃器┃┃ ☉   ┃┃升级指导人是升级的地方！┃\n"
              . " ┃人╠╣ ┌┐ ┃╚━━━━━━━━━━━━╝\n"
              . " ╚━╝╚━━━╝\n";

# 插入所有文本
$text->insert('end', $游戏说明1 . $游戏说明2 . $游戏说明3);

# 禁止编辑（只读）
$text->configure(-state => 'disabled');

MainLoop;
-----------------------------------------------

my $d1;                                # 当前显示的 页面集合Frame的代表容器容量变量

sub d1_1 {                           #d1.1不行，不给用，要d1_1，因为小点.是重要大人物，需要避讳，防止错用冒名顶替等混乱。
$d1->destroy if $d1;       #如果变量 $d1 有值（即之前已经创建了一个 Tk 控件），就调用它的 destroy 方法，将其从界面中删除。先清空cls
1;
2;
3;
}

---------------------------------------------
use Tk;
use Tk::After;
use Tk::Animation;

my $a3 = $mw->Animation('-format' => 'gif', -file => "2.gif");# 加载动画GIF
my $a3_1 = $mw->Label(-image => $a3)->pack();# 创建标签用于显示图像，并添加到主窗口
$a3->start_animation;# 开始动画

----------------------------------------------------------------------------------------------------------------------------

# 设置整个窗口的默认字体（可选）
$mw->optionAdd('*font' => 'fangsong');

# ★ 关键：创建一个支持中文的字体
# Deepin 常见的中文字体有: WenQuanYi Micro Hei, Noto Sans CJK SC, Droid Sans Fallback
$mw->fontCreate('fangsong',
    -family => 'WenQuanYi Micro Hei',
    -size   => 14,
);

----------------------------------------------------------------
sub a123 {      }     #单元子程序内容
a123();                    #调用单元子程序
----------------------------------------------------------------
$mw->resizable($horizontal, $vertical); # resizable() 的作用：用于控制主窗口是否可以被用户手动调整大小（拖动边框）。
$horizontal                                                          # 是否允许水平拉伸（宽度）        1 = 是, 0 = 否
$vertical                                                                  # 是否允许垂直拉伸（高度）        1 = 是, 0 = 否
$mw->resizable(0, 0);
$mw->resizable(0, 1);
$mw->resizable(1, 0);
$mw->resizable(1, 1);
---------------------------------------------------------------------------
cls == $scr->clrscr(); # 清屏

-------------------------------------
# 使用 grid 布局主窗口，比例分割页面
$mw->gridRowconfigure(0, -weight => 7);  # 第0行（顶部）: 权重 7 → 70%
$mw->gridRowconfigure(1, -weight => 2);  # 第1行（中间）: 权重 2 → 20%
$mw->gridRowconfigure(2, -weight => 1);  # 第2行（底部）: 权重 1 → 10%
$mw->gridColumnconfigure(0, -weight => 1); # 第0列占满宽度

---------------------------------------------------------------------------------------------------
点像素
my $img = $mw->Photo(                             # 创建一个 200x200 的 Photo 图像（用于像素显示）
    -width  => 200,
    -height => 200,
    -palette => '256/256/256'                        # 真彩色
);
$mw->Label(-image => $img)->pack();  # 将图像放在 Label 上显示
$img->put("#FF0000", -to => (50, 60));    # 设置某个像素的颜色 (x=50, y=60) 为红色
--------------------------------------------------------------------------------------------


{                 }
if{               }
for{            }
sub{          }

将框架装进子程序的：
sub create_main_window {
    $main = MainWindow->new(-title => 'BMP动画浏览器');
    $main->geometry('800x800');
    show_page($current_page);
    MainLoop;
}
# 启动程序
create_main_window();

zzz19760225

12345678903
三个按钮（开始游戏，介绍游戏，结束游戏）

1. 
   
2. use utf8;
   
3. use open ':std',':encoding(gbk)';
   
4. binmode STDOUT,":encoding(UTF-8)";
   
5. 
   
6. use Tk;
   
7. 
   
8. my $a0 = MainWindow->new;
   
9. 
   
10. my $b1 = $a0->Button(
    
11. -text => "开始游戏",
    
12. )->pack();
    
13. 
    
14. my $b2=$a0->Button(
    
15. -text => "介绍游戏",
    
16. )->pack();
    
17. 
    
18. my $b3=$a0->Button(
    
19. -text => "结束游戏",
    
20. -command =>sub{$a0->destroy;},
    
21. )->pack();
    
22. 
    
23. MainLoop;
    

复制代码

正确的代码结构顺序，Perl 脚本应遵循：

use ...
主窗口创建
变量定义
子程序（函数）定义
GUI 元素创建与事件绑定
初始状态设置
MainLoop

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use Tk;
   
6. 
   
7. my $mw = MainWindow->new;
   
8. my $img = $mw->Photo(-width => 200,-height => 150,-palette => 'truecolor');
   
9. $mw->Label(-image => $img)->pack();
   
10. 
    
11. $img->put("#000000", -to => (10, 20, 5, 11));  # 整个图像区域
    
12. $img->put("#FF0000", -to => (50,60)); # 设置某个像素的颜色 (x=50, y=60) 为红色
    
13. MainLoop;
    

复制代码

重复输出

1. 
   
2. use strict;
   
3. use warnings;
   
4. use Tk;
   
5. use utf8;                     # 估计召唤
   
6. use Encode qw(decode encode); # 估计召唤
   
7. binmode STDOUT, ':utf8';      # 估计召唤
   
8. binmode STDERR, ':utf8';      # 估计召唤
   
9. 
   
10. my $mw = MainWindow->new;
    
11. 
    
12. my $id = $mw->repeat(500, \&a123);# 设置每 500 毫秒执行一次 a123 子程序
    
13. sub a123 {print "456\n";  }
    
14. 
    
15. MainLoop;
    

复制代码

停止 repeat
$mw->afterCancel($id)

1. 
   
2. my $count = 0;
   
3. my $id = $mw->repeat(500, sub {
   
4.     $count++;
   
5.     print "456 (times: $count)\n";
   
6.     if ($count >= 5) {
   
7.         $mw->afterCancel($id);  # 停止重复
   
8.     }
   
9. });
   

复制代码

鼠标左键点击图画，图画可以移动。
<Button-1>鼠标左键（一般通用）
<Button-2>鼠标中键（win与linux有区别）
<Button-3>鼠标右键

1. 
   
2. use Tk;
   
3. 
   
4. my $mw = MainWindow->new;
   
5. my $canvas = $mw->Canvas(width => 500, height => 500)->pack();
   
6. 
   
7. # 创建几个多边形，并给每个都加上相同的标签
   
8. $canvas->createPolygon(10, 20, 50, 60,70,20, -tags => ['complex_shape1'], -fill => '#ff0000');
   
9. $canvas->createPolygon(50, 60, 80, 90, 50, 70, -tags => ['complex_shape2'], -fill => '#ffff00');
   
10. $canvas->createPolygon(150, 100, 100, 150, 150, 200, -tags => ['complex_shape3'], -fill => '#ff00ff');
    
11. # 添加鼠标点击事件：点击后所有 complex_shape 向右下移动
    
12. $canvas->bind('complex_shape1', '<Button-1>', sub {
    
13.     $canvas->move('complex_shape1', 10, 10);
    
14. });
    
15. $canvas->bind('complex_shape2', '<Button-1>', sub {
    
16.     $canvas->move('complex_shape2', 20, 10);
    
17. });
    
18. $canvas->bind('complex_shape3', '<Button-1>', sub {
    
19.     $canvas->move('complex_shape3', 30, 10);
    
20. });
    
21. MainLoop;
    

复制代码

Tk 的 canvas文本特定词为按钮（C语言的文字按钮那个头疼的事）

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use Tk;
   
6. use utf8;                     # 估计召唤
   
7. use Encode qw(decode encode); # 估计召唤
   
8. binmode STDOUT, ':utf8';      # 估计召唤
   
9. binmode STDERR, ':utf8';      # 估计召唤
   
10. 
    
11. my $mw = MainWindow->new();
    
12. $mw->title("Canvas 可点击词（支持下划线）");
    
13. 
    
14. my $canvas = $mw->Canvas(
    
15.     -width  => 600,
    
16.     -height => 300,
    
17.     -bg     => 'white'
    
18. )->pack(-expand => 1, -fill => 'both');
    
19. 
    
20. my %clickable_words = (
    
21.     Perl => '#3498db',
    
22.     Tk   => '#e74c3c',
    
23. );
    
24. 
    
25. my $x = 50;
    
26. my $y = 50;
    
27. my $line_height = 25;
    
28. my $font = ['Helvetica', 12];
    
29. 
    
30. my @lines = (
    
31.     "欢迎学习 Perl 和 Tk 编程！",
    
32.     "Perl 是一种强大的脚本语言。",
    
33.     "Tk 是 Perl 的图形界面工具包。",
    
34. );
    
35. 
    
36. foreach my $line_text (@lines) {
    
37.     my $current_x = $x;
    
38. 
    
39.     for my $word (split /\s+/, $line_text) {
    
40.         my $clean_word = $word;
    
41.         my $has_punct = '';
    
42.         $clean_word =~ s/([,\.!\?;]+)$// && ($has_punct = $1);
    
43. 
    
44.         my $is_clickable = exists $clickable_words{$clean_word};
    
45. 
    
46.         # 创建文本（不要用 -underline）
    
47.         my $text_id = $canvas->createText($current_x, $y,
    
48.             -text   => $clean_word,
    
49.             -font   => $font,
    
50.             -fill   => $is_clickable ? $clickable_words{$clean_word} : 'black',
    
51.             -anchor => 'nw',
    
52.         );
    
53. 
    
54.         if ($is_clickable) {
    
55.             # 绑定事件
    
56.             $canvas->bind($text_id, '<Enter>', sub {
    
57.                 $canvas->configure(-cursor => 'hand2');
    
58.                 # 添加下划线
    
59.                 $canvas->itemconfigure($text_id, -underline => 1);
    
60.             });
    
61. 
    
62.             $canvas->bind($text_id, '<Leave>', sub {
    
63.                 $canvas->configure(-cursor => 'arrow');
    
64.                 # 移除下划线
    
65.                 $canvas->itemconfigure($text_id, -underline => 0);
    
66.             });
    
67. 
    
68.             $canvas->bind($text_id, '<Button-1>', sub {
    
69.                 $mw->messageBox(
    
70.                     -title   => "点击",
    
71.                     -message => "你点击了: '$clean_word'",
    
72.                     -icon    => 'info',
    
73.                     -type    => 'ok',
    
74.                 );
    
75.             });
    
76.         }
    
77. 
    
78.         my $text_width = $canvas->fontMeasure($font, $clean_word);
    
79.         $current_x += $text_width + 2;
    
80. 
    
81.         if ($has_punct) {
    
82.             $canvas->createText($current_x, $y,
    
83.                 -text   => $has_punct,
    
84.                 -font   => $font,
    
85.                 -fill   => 'black',
    
86.                 -anchor => 'nw'
    
87.             );
    
88.             $current_x += $canvas->fontMeasure($font, $has_punct) + 4;
    
89.         } else {
    
90.             $current_x += 4;
    
91.         }
    
92.     }
    
93. 
    
94.     $y += $line_height;
    
95. }
    
96. 
    
97. MainLoop;
    

复制代码

1. 
   
2. # 定义特定文字链接样式，链接+蓝色+下划线
   
3. $text->tagConfigure('link', -foreground => 'blue', -underline => 1);
   
4. 
   
5. $text->tagBind('link', '<Enter>', sub { $text->configure(-cursor => 'arrow'); });
   
6. $text->tagBind('link', '<Leave>', sub { $text->configure(-cursor => 'xterm'); });
   

复制代码

文字循环跳转

1. 
   
2. #!/usr/bin/perl
   
3. use utf8;                  # 源码为 UTF-8
   
4. use strict;
   
5. use warnings;
   
6. use open ':std', ':encoding(UTF-8)';  # 默认输入输出为 UTF-8
   
7. use Tk;
   
8. 
   
9. # 主窗口
   
10. my $mw = MainWindow->new;
    
11. $mw->title("Tk 文本跳转示例");
    
12. $mw->geometry("500x400");
    
13. 
    
14. # 创建框架和滚动条
    
15. my $frame = $mw->Frame->pack(-fill => 'both', -expand => 1);
    
16. 
    
17. # 文本控件
    
18. my $text = $frame->Text(
    
19.     -wrap       => 'word',
    
20.     -font       => '{Arial} 12',
    
21.     -width      => 60,
    
22.     -height     => 20,
    
23. )->pack(-side => 'left', -fill => 'both', -expand => 1);
    
24. 
    
25. # 垂直滚动条
    
26. my $vscroll = $frame->Scrollbar(
    
27.     -orient     => 'vertical',
    
28.     -command    => sub { $text->yview(@_) }
    
29. )->pack(-side => 'right', -fill => 'y');
    
30. 
    
31. # 关联滚动条
    
32. $text->configure(-yscrollcommand => sub { $vscroll->set(@_) });
    
33. 
    
34. # 定义标签样式：可点击链接
    
35. $text->tagConfigure('link',
    
36.     -foreground => 'blue',
    
37.     -underline  => 1,
    
38.     -lmargin1   => '5m',  # 左边距
    
39.     -lmargin2   => '5m',  # 换行后左边距
    
40. );
    
41. $text->tagBind('link', '<Enter>',      sub { $text->configure(-cursor => 'hand2'); });
    
42. $text->tagBind('link', '<Leave>',      sub { $text->configure(-cursor => 'xterm'); });
    
43. $text->tagBind('link', '<Button-1>',   \&on_link_click);
    
44. 
    
45. # 启动时加载主页
    
46. load_home();
    
47. 
    
48. MainLoop;
    
49. 
    
50. # ============ 子程序 ============
    
51. 
    
52. # 加载主页
    
53. sub load_home {
    
54.     $text->delete('1.0', 'end');
    
55.     $text->insert('end', "欢迎！这是一个示例，其中 ");
    
56.     insert_link("123");
    
57.     $text->insert('end', " 是可点击的。");
    
58. }
    
59. 
    
60. # 插入可点击链接
    
61. sub insert_link {
    
62.     my $word = shift;
    
63.     my $start = $text->index('end -1c');  # 当前末尾位置
    
64.     $text->insert('end', $word);
    
65.     my $end = $text->index('end -1c');
    
66.     $text->tagAdd('link', $start, $end);
    
67.     # 存储链接对应的跳转目标（用哈希或直接闭包）
    
68.     $text->tag('bind', 'link', "<1>", sub { load_file($word); })
    
69.         unless $text->tagNames($start) =~ /\blink_attached\b/;
    
70.     $text->tagAdd('link_attached', $start, $end);  # 防止重复绑定
    
71. }
    
72. 
    
73. # 点击链接时加载文件
    
74. sub on_link_click {
    
75.     my $target = shift;
    
76.     # 从当前光标位置提取文本
    
77.     my $index = $text->index('current');
    
78.     my $char = $text->get($index);
    
79.     # 向前找最近的 link 标签
    
80.     for my $i (0..10) {
    
81.         my $pos = $text->index("$index - ${i}c");
    
82.         my @tags = $text->tagNames($pos);
    
83.         if (grep { $_ eq 'link' } @tags) {
    
84.             # 获取该位置的字符（假设是 3 位数字）
    
85.             my $word = $text->get($pos, "$pos + 3c");
    
86.             $word =~ s/\s+.*//;  # 去空格
    
87.             $word =~ s/\D//g;    # 只留数字
    
88.             if ($word =~ /^(123|456)$/) {
    
89.                 load_file($word);
    
90.                 return;
    
91.             }
    
92.         }
    
93.     }
    
94. }
    
95. 
    
96. # 加载指定文件内容
    
97. sub load_file {
    
98.     my $filename = "$_[0].txt";
    
99.     $text->delete('1.0', 'end');
    
100. 
     
101.     if (! -e $filename) {
     
102.         $text->insert('end', "错误：文件 $filename 不存在！\n");
     
103.         $text->insert('end', "请确保文件与脚本在同一目录。\n");
     
104.         return;
     
105.     }
     
106. 
     
107.     open my $fh, '<:encoding(UTF-8)', $filename or do {
     
108.         $text->insert('end', "无法打开文件: $!\n");
     
109.         return;
     
110.     };
     
111. 
     
112.     local $/;
     
113.     my $content = <$fh>;
     
114.     close $fh;
     
115. 
     
116.     # 分割内容，插入文本和链接
     
117.     my @parts = split /(\b123\b|\b456\b)/, $content;
     
118. 
     
119.     for my $part (@parts) {
     
120.         if ($part =~ /^(123|456)$/) {
     
121.             insert_link($part);
     
122.         } else {
     
123.             $text->insert('end', $part);
     
124.         }
     
125.     }
     
126. }
     

复制代码

zzz19760225

12345678904
masm32结构功能语句
win7
环境约定内容，这是什么什么的事，要跑哪些地方，走什么关系，找什么人，打什么旗号，具体做哪几件事，每件事如何做，到什么程度就算结束。
--------------------------

0
.386
................

1
.data
................

2
.code
................

3
start:
................
end start

---------------------------

zzz19760225

12345678905

&#128268; 二、Perl 音频模块（有限支持）
以下是一些 CPAN 上的 Perl 模块，但多数已过时或平台受限。

1. Audio::Simple（简单播放，Linux 为主）
基于 OSS 或 ALSA，适合 .wav 文件。

use Audio::Simple;

my $audio = Audio::Simple->new();
$audio->play_wav('sound.wav');
2. Audio::Wav（读取 WAV 文件，不直接播放）
用于解析 WAV 文件头或提取数据，需配合其他方式播放。

use Audio::Wav;
my $wav = Audio::Wav->read("file.wav");
3. Win32::Sound（仅 Windows）
调用 Windows API 播放 WAV 文件。

use Win32::Sound;
Win32::Sound:lay('sound.wav', SND_SYNC);
4. Mac::Speech（仅 macOS）
控制 Mac 的语音合成功能。

use Mac::Speech;
speak "Hello, world!";
5. PerlMIDI / Audio::Seq（高级音频编程）
用于 MIDI、音频序列处理，不适合简单播放。

如果国宝会说话，第三季，兰亭序集神龙本，王凯。
功能可能与同名异选有关联的perl版主帖子

1. 523066680
   
2. [原创教程] [Perl]捕获平衡组(配对括号、多层镶嵌)结构化的歪招
   
3. https://www.bathome.net/forum.php?mod=viewthread&tid=86444#lastpost
   

复制代码

{ } - 最常用：代码块、哈希引用
( ) - 最灵活：优先级控制、列表、函数参数
< > - 双重身份：glob通配符或readline操作符?
glob模式是shell中用于文件路径匹配的一种简化正则表达式语法，其名字的起源来自于Unix V6中的 /etc/glob。该模式通过特定的通配符规则实现对文件名的模式匹配，例如星号（）可匹配零个或多个任意字符，问号（?）匹配单个任意字符，方括号（[abc]）匹配指定字符集合内的任一字符，而短划线（[0-9]）可表示字符范围匹配。

zzz19760225

12345678906
perl处理字符，有对齐功能的吧。大约41个字符页面
开始主页面

1. 
   
2. echo ╔━━━━╗
   
3. echo ★  菜单  ★
   
4. echo ╚━━━━╝
   
5. echo ╔ ╗╔━━━━╗
   
6. echo   1  ┃开始游戏┃
   
7. echo ╚ ╝╚━━━━╝
   
8. echo ╔ ╗╔━━━━╗
   
9. echo   2  ┃游戏说明┃
   
10. echo ╚ ╝╚━━━━╝
    
11. echo ╔ ╗╔━━━━╗
    
12. echo   3  ┃退出游戏┃
    
13. echo ╚ ╝╚━━━━╝
    
14. echo.
    
15. echo 请输入选项：
    
16. 
    
17. bat转perl
    
18. 
    
19. #!/usr/bin/perl
    
20. a1:
    
21. print "╔=========╗\n";
    
22. print "★  菜单  ★\n";
    
23. print "╚=========╝\n";
    
24. print "╔-╗╔--------╗\n";
    
25. print "-1-┃开始游戏┃\n";
    
26. print "╚-╝╚--------╝\n";
    
27. print "╔-╗╔--------╗\n";
    
28. print "-2-┃游戏说明┃\n";
    
29. print "╚-╝╚--------╝\n";
    
30. print "╔-╗╔--------╗\n";
    
31. print "-3-┃退出游戏┃\n";
    
32. print "╚-╝╚--------╝\n";
    
33. print;
    
34. print "请输入选项：";
    
35. goto a00;
    
36. a00:
    
37. <>;
    

复制代码

游戏说明123

1. 
   
2. echo ╲ ╱
   
3. echo ╔━╗ ╲ ╱    ╔━━━━━━━━━━━━╗
   
4. echo ┃小┃╔━━━╗┃勇士大闯关是升级打怪的游┃
   
5. echo ┃机┃┃● ● ┃┃戏，ChEric隆重出品      ┃
   
6. echo ┃器┃┃ ☉   ┃┃                        ┃
   
7. echo ┃人╠╣ ┌┐ ┃╚━━━━━━━━━━━━╝
   
8. echo ╚━╝╚━━━╝
   
9. 
   
10. bat转perl
    
11. 
    
12. a2:
    
13. print "╲ ╱\n";
    
14. print "╔--╗ ╲ ╱  ╔------------------------╗\n";
    
15. print "┃小┃╔----╗┃勇士大闯关是升级打怪的游┃\n";
    
16. print "┃机┃┃● ● ┃┃戏，ChEric隆重出品      ┃\n";
    
17. print "┃器┃┃ ☉  ┃┃                        ┃\n";
    
18. print "┃人╠╣ ┌┐ ┃╚------------------------╝\n";
    
19. print "╚--╝╚----╝\n";
    
20. goto a00;
    
21. a00:
    
22. <>;
    

复制代码

1. 
   
2. echo ╲ ╱
   
3. echo ╔━╗ ╲ ╱    ╔━━━━━━━━━━━━╗
   
4. echo ┃小┃╔━━━╗┃按开始游戏开始,本版本无 ┃
   
5. echo ┃机┃┃● ● ┃┃挂，输入勇士名称回车确定┃
   
6. echo ┃器┃┃ ☉   ┃┃，武器店是买武器        ┃
   
7. echo ┃人╠╣ ┌┐ ┃╚━━━━━━━━━━━━╝
   
8. echo ╚━╝╚━━━╝
   
9. 
   
10. bat转perl
    
11. 
    
12. a2_2:
    
13. print "╲ ╱\n";
    
14. print "╔--╗ ╲ ╱  ╔------------------------╗\n";
    
15. print "┃小┃╔----╗┃按开始游戏开始,本版本无 ┃\n";
    
16. print "┃机┃┃● ● ┃┃挂，输入勇士名称回车确定┃\n";
    
17. print "┃器┃┃ ☉  ┃┃，武器店是买武器        ┃\n";
    
18. print "┃人╠╣ ┌┐ ┃╚------------------------╝\n";
    
19. print "╚--╝╚----╝\n";
    
20. goto a00;
    
21. a00:
    
22. <>;
    

复制代码

1. 
   
2. echo ╲ ╱
   
3. echo ╔━╗ ╲ ╱    ╔━━━━━━━━━━━━╗
   
4. echo ┃小┃╔━━━╗┃装备店是买装备的地方，闲┃
   
5. echo ┃机┃┃● ● ┃┃话少说，已打败boss为目标┃
   
6. echo ┃器┃┃ ☉   ┃┃升级指导人是升级的地方！┃
   
7. echo ┃人╠╣ ┌┐ ┃╚━━━━━━━━━━━━╝
   
8. echo ╚━╝╚━━━╝
   
9. echo 按任意键返回菜单！
   
10. 
    
11. bat转perl
    
12. 
    
13. a2_3:
    
14. print "╲ ╱\n";
    
15. print "╔--╗ ╲ ╱  ╔------------------------╗\n";
    
16. print "┃小┃╔----╗┃装备店是买装备的地方，闲┃\n";
    
17. print "┃机┃┃● ● ┃┃话少说，已打败boss为目标┃\n";
    
18. print "┃器┃┃ ☉  ┃┃升级指导人是升级的地方！┃\n";
    
19. print "┃人╠╣ ┌┐ ┃╚------------------------╝\n";
    
20. print "╚--╝╚----╝\n";
    
21. print "按任意键返回菜单！\n";
    
22. goto a00;
    
23. a00:
    
24. <>;
    

复制代码

创建角色

1. 
   
2. echo ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
   
3. echo ▓                                 创建角色                                 ▓
   
4. echo ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
   
5. echo.此游戏是1.9版本哦^_^！
   
6. echo 说明一下，在建邺城别什么都不选就按回车，否则会关闭！
   
7. echo.1、增加了菜单！
   
8. echo.2.增加了声音。
   
9. echo.3.增加了小机器人！
   
10. echo.
    
11. echo 请输入勇士昵称：
    
12. 
    
13. bat转perl
    
14. 
    
15. a3:
    
16. print "╔--------------------------------------------------------------------------╗\n";
    
17. print "                                   创建角色                                   \n";
    
18. print "╚--------------------------------------------------------------------------╝\n";
    
19. print "此游戏是1.9版本哦^_^！\n";
    
20. print "说明一下，在建邺城别什么都不选就按回车，否则会关闭！\n";
    
21. print "1、增加了菜单！\n";
    
22. print "2.增加了声音。\n";
    
23. print "3.增加了小机器人！\n";
    
24. print ;
    
25. print "请输入勇士昵称：\n";
    
26. goto a00;
    
27. a00:
    
28. <>;
    
29. 
    
30. 
    
31. a3:
    
32. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
    
33. print "▓                                  创建角色                                  ▓\n";
    
34. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
    
35. print "此游戏是1.9版本哦^_^！\n";
    
36. print "说明一下，在建邺城别什么都不选就按回车，否则会关闭！\n";
    
37. print "1、增加了菜单！\n";
    
38. print "2.增加了声音。\n";
    
39. print "3.增加了小机器人！\n";
    
40. print ;
    
41. print "请输入勇士昵称：\n";
    
42. goto a00;
    
43. a00:
    
44. <>;
    

复制代码

菜菜城，建邺城

1. 
   
2. echo ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
   
3. echo ▓                                  菜菜城                                  ▓
   
4. echo ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓00▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
   
5. echo 昵称：%nc% 气血：%rhp%/%rhpsx% 法力：%rmp%/%rmpsx% 攻击：%rgj% 防御：%rfy%
   
6. echo 等级：%lv% 经验：%exp%/%sjexp% 银两：%yl% 点数：%ds%     饱食度：%bsd%/%bsdsx%
   
7. echo 武器：%wqmc% 攻击+%wqgj% 服装：%fzmc% 防御+%fzfy% 商城：S 充值：P
   
8. echo 腰带：%ydmc% 气血上限+%ydqx% 饰品：%mzmc% 魔法上限+%mzmf% 详细信息：i
   
9. echo ▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓
   
10. echo ╲ ╱
    
11. echo ╔━╗ ╲ ╱    ╔━━━━━━━━━━━━╗
    
12. echo ┃小┃╔━━━╗┃欢迎来到菜菜城！这里是城┃
    
13. echo ┃机┃┃∩ ∩ ┃┃市，城市是没有怪的哦！只┃
    
14. echo ┃器┃┃ △   ┃┃有出城才能打怪哦！      ┃
    
15. echo ┃人╠╣ ┌┐ ┃╚━━━━━━━━━━━━╝
    
16. echo ╚━╝╚━━━╝
    
17. echo.                        ┏━━━━━┳━━━━━┳━━━━━━━┓
    
18. echo                         ┃1.武器店  ┃8.保存记录┃44444.BOSS之国┃
    
19. echo.                        ┣━━━━━╋━━━━━╋━━━━━━━┛
    
20. echo                         ┃2.服装店  ┃9.读取记录┃
    
21. echo.                        ┣━━━━━╋━━━━━┫
    
22. echo                         ┃3.饰品店  ┃10.修炼塔 ┃
    
23. echo.                        ┣━━━━━╋━━━━━┫
    
24. echo                         ┃4.药店    ┃11.干粮店 ┃
    
25. echo.                        ┣━━━━━╋━━━━━┫
    
26. echo                         ┃5.酒店    ┃          ┃
    
27. echo.                        ┣━━━━━╋━━━━━┫
    
28. echo                         ┃6.升级指导┃          ┃
    
29. echo.                        ┣━━━━━╋━━━━━┫
    
30. echo                         ┃7.出城    ┃          ┃
    
31. echo.                        ┗━━━━━┻━━━━━┛
    
32. echo 请输入：
    
33. 
    
34. bat转perl
    
35. 
    
36. a4:
    
37. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
    
38. print "▓                                  菜菜城                                  ▓\n";
    
39. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓00▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
    
40. print "昵称：%nc% 气血：%rhp%/%rhpsx% 法力：%rmp%/%rmpsx% 攻击：%rgj% 防御：%rfy%\n";
    
41. print "等级：%lv% 经验：%exp%/%sjexp% 银两：%yl% 点数：%ds%     饱食度：%bsd%/%bsdsx%\n";
    
42. print "武器：%wqmc% 攻击+%wqgj% 服装：%fzmc% 防御+%fzfy% 商城：S 充值：P\n";
    
43. print "腰带：%ydmc% 气血上限+%ydqx% 饰品：%mzmc% 魔法上限+%mzmf% 详细信息：i\n";
    
44. print "▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓▓\n";
    
45. print "╲ ╱\n";
    
46. print "╔━━╗ ╲ ╱  ╔━━━━━━━━━━━━━━━━━━━━━━━━╗\n";
    
47. print "┃小┃╔━━━━╗┃欢迎来到菜菜城！这里是城┃\n";
    
48. print "┃机┃┃∩ ∩ ┃┃市，城市是没有怪的哦！只┃\n";
    
49. print "┃器┃┃ △  ┃┃有出城才能打怪哦！      ┃\n";
    
50. print "┃人╠╣ ┌┐ ┃╚━━━━━━━━━━━━━━━━━━━━━━━━╝\n";
    
51. print "╚━━╝╚━━━━╝\n";
    
52. print "                        ┏━━━━━━━━━━┳━━━━━━━━━━┳━━━━━━━━━━━━━━┓\n";
    
53. print "                        ┃1.武器店  ┃8.保存记录┃44444.BOSS之国┃\n";
    
54. print "                        ┣━━━━━━━━━━╋━━━━━━━━━━╋━━━━━━━━━━━━━━┛\n";
    
55. print "                        ┃2.服装店  ┃9.读取记录┃\n";
    
56. print "                        ┣━━━━━━━━━━╋━━━━━━━━━━┫\n";
    
57. print "                        ┃3.饰品店  ┃10.修炼塔 ┃\n";
    
58. print "                        ┣━━━━━━━━━━╋━━━━━━━━━━┫\n";
    
59. print "                        ┃4.药店    ┃11.干粮店 ┃\n";
    
60. print "                        ┣━━━━━━━━━━╋━━━━━━━━━━┫\n";
    
61. print "                        ┃5.酒店    ┃          ┃\n";
    
62. print "                        ┣━━━━━━━━━━╋━━━━━━━━━━┫\n";
    
63. print "                        ┃6.升级指导┃          ┃\n";
    
64. print "                        ┣━━━━━━━━━━╋━━━━━━━━━━┫\n";
    
65. print "                        ┃7.出城    ┃          ┃\n";
    
66. print "                        ┗━━━━━━━━━━┻━━━━━━━━━━┛\n";
    
67. print "请输入：\n";
    
68. goto a00;
    
69. a00:
    
70. <>;
    

复制代码