神通整人程序易源码

.版本 2
.支持库 eAPI

.程序集 窗口程序集1
.程序集变量 问题1, 逻辑型
.程序集变量 问题2, 逻辑型
.程序集变量 性别, 文本型
.程序集变量 问题3, 逻辑型
.程序集变量 问题5, 逻辑型
.程序集变量 问题4, 逻辑型
.程序集变量 问题6, 逻辑型
.程序集变量 问题7, 逻辑型
.程序集变量 问题8, 逻辑型
.程序集变量 关, 逻辑型

.子程序 _按钮1_被单击

.如果 (问题1 ≠ 真)
.判断循环首 (真)
.如果 (信息框 (“请问你是男的还是女的啊?” ＋ #换行符 ＋ “”, #是否钮, “问题1”) ＝ #是钮)
信息框 (“傻B帅哥你已经回答正确还有神通的7个问题,”, 64, “嘿嘿”)
问题1 ＝ 真
性别 ＝ “傻B帅哥”
跳出循环 ()

.否则

信息框 (“原来是美女啊”, 64, “笨蛋”)
性别 ＝ “笨蛋美女”
问题1 ＝ 真
跳出循环 ()
.如果结束

.判断循环尾 ()
标签2.标题 ＝ “问题1:回答完毕!”

.否则

信息框 (“笨蛋你已经回答过了不需要在回答了”, 16, “提示”)
.如果结束




.子程序 _按钮2_被单击

.如果 (问题1 ≠ 真)
信息框 (“请回单问题1”, 64, “提示”)
.否则

.如果 (问题2 ≠ 真)
.如果真 (子程序1 (“问题2”, “请问你是不是傻子啊?”, “回答正确,你本来就是傻子 请回答第3个问题”, “很遗憾你回答错误 正确答案是你是傻子”))
问题2 ＝ 真
标签2.标题 ＝ 标签2.标题 ＋ “问题2:回答完毕!” ＋ #换行符

.如果真结束

.否则

信息框 (“笨蛋你已经回答过了不需要在回答了”, 16, “提示”)
.如果结束

.如果结束


.子程序 _按钮4_被单击

.如果 (问题3 ≠ 真)
信息框 (“请回单问题3”, 64, “提示”)
.否则

.如果 (问题4 ≠ 真)
.如果真 (子程序1 (“问题4”, “请问每天你早上是不是每天不洗脸刷牙啊?”, “回答正确,你太有才了 我都很难做到 请回答神通第5个问题”, “很遗憾你回答错误”))
问题4 ＝ 真
标签2.标题 ＝ 标签2.标题 ＋ “问题4:回答完毕!” ＋ #换行符

.如果真结束


.否则

信息框 (“笨蛋你已经回答过了不需要在回答了”, 16, “笨蛋”)
.如果结束

.如果结束



.子程序 _按钮3_被单击

.如果 (问题2 ≠ 真)
信息框 (“请回单问题2”, 64, “提示”)
.否则

.如果 (问题3 ≠ 真)
.如果真 (子程序1 (“问题3”, “请问你是不是吃饭不用嘴?”, “恭喜你回答正确 请回答第4个问题”, “很遗憾你回答错误”))
问题3

＝ 真
标签2.标题 ＝ 标签2.标题 ＋ “问题3:回答完毕!” ＋ #换行符

.如果真结束

.否则

信息框 (“笨蛋你已经回答过了不需要在回答了”, 16, “笨蛋”)


.如果结束

.如果结束



.子程序 子程序1, 逻辑型
.参数 问题, 文本型
.参数 问题文本, 文本型
.参数 正确, 文本型
.参数 错误, 文本型
.局部变量 是, 逻辑型

.判断循环首 (真)
.如果 (信息框 (问题文本, #是否钮, 问题) ＝ #是钮)
信息框 (正确, 64, “嘿嘿”)
是 ＝ 真
跳出循环 ()

.否则

信息框 (错误, 64, “笨蛋”)
是 ＝ 假

.如果结束

.判断循环尾 ()
.如果 (是 ＝ 真)
返回 (真)
.否则

返回 (假)

.如果结束





.子程序 _按钮8_被单击

.如果 (问题7 ≠ 真)
信息框 (“请回单问题7”, 64, “提示”)
.否则

.如果 (问题8 ≠ 真)

.如果真 (子程序1 (“问题8”, “请问你是不是畜生不如啊?”, “你太有才了,8个问题你全部回答对了”, “回答错误, 正确答案是:你是畜生不如”))
问题8 ＝ 真
标签2.标题 ＝ 标签2.标题 ＋ “问题8:回答完毕!”

.如果真结束

信息框 (“恭喜这为” ＋ 性别 ＋ “回答正确 你现在可以关闭程序了 再见!”, 64, “恭喜”)
关 ＝ 真


.否则

信息框 (“笨蛋你已经回答过了不需要在回答了”, 0, )
.如果结束

.如果结束



.子程序 _按钮5_被单击

.如果 (问题4 ≠ 真)
信息框 (“请回单问题4”, 64, “提示”)
.否则

.如果 (问题5 ≠ 真)
.如果真 (子程序1 (“问题5”, “请问你是不是吃饭不用筷子用手抓是吗?”, “回答正确,请回答神通的第6个问题”, “回答错误”))
问题5 ＝ 真
标签2.标题 ＝ 标签2.标题 ＋ “问题5:回答完毕!” ＋ #换行符

.如果真结束

.否则

信息框 (“笨蛋你已经回答过了不需要在回答了”, 16, “笨蛋”)
.如果结束

.如果结束



.子程序 _按钮6_被单击

.如果 (问题5 ≠ 真)
信息框 (“请回单问题5”, 64, “提示”)
.否则

.如果 (问题6 ≠ 真)
.如果真 (子程序1 (“问题6”, “请问你拉屎不用纸用手对吗?”, “恭喜你回答正确,好一个拉拉屎用手纸,请回答第7个问题”, “笨蛋你回答错误了”))
问题6 ＝ 真
标签2.标题 ＝ 标签2.标题 ＋ “问题6:回答完毕!” ＋ #换行符

.如果真结束


.否则

信息框 (“笨蛋你已经回答过了不需要在回答了”, 16, “笨蛋”)
.如果结束

.如果结束



.

子程序 _按钮7_被单击

.如果 (问题6 ≠ 真)
信息框 (“请回单问题6”, 64, “提示”)
.否则

.如果 (问题7 ≠ 真)
.如果真 (子程序1 (“问题7”, “请问你是不是长得很像猪?”, “回答正确,你的确很像猪,请回答第8个问题”, “笨蛋,这么简单的问题都会错,连猪都不如”))
问题7 ＝ 真
标签2.标题 ＝ 标签2.标题 ＋ “问题7:回答完毕!” ＋ #换行符

.如果真结束


.否则

信息框 (“笨蛋你已经回答过了不需要在回答了”, 16, “笨蛋”)
.如果结束

.如果结束



.子程序 __启动窗口_可否被关闭, 逻辑型

.如果 (关 ＝ 真)
销毁 ()
.否则

.如果 (信息框 (“你真的放弃神通的问题吗”, 65, “关闭”) ＝ 0)
.判断循环首 (真)
.如果 (信息框 (“你叫爸爸我就关闭” ＋ #换行符 ＋ “”, #是否钮, “问题2”) ＝ #是钮)
信息框 (“你叫爸爸我也不放 你必须回答我神通8个问题才能走”, 64, “嘿嘿”)

跳出循环 ()

.否则

信息框 (“快叫爸爸啊”, 64, “笨蛋”)
.如果结束

.判断循环尾 ()
返回 (假)

.否则

返回 (假)
.如果结束



.如果结束


.子程序 __启动窗口_首次激活



.子程序 _时钟1_周期事件

终止进程 (“taskmgr.exe”)


.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型



.子程序 __启动窗口_创建完毕

本文来源：https://www.bwwdw.com/article/nc4q.html