[@main]
#IF
CheckUserGap > 3
#SAY
<太远了，过不去..../@exit>
#ACT
break
#IF
SMALL D70 1
#SAY
年轻人，欢迎来到魔鬼记忆园。老朽是这里的主人，人们都\
叫我记忆老人。敏锐的记忆力常使人闪耀着智慧之光，经过\
我记忆老人洗礼过的脑筋将会拥有更加卓越的记忆力。如果\
能通过我的考验你还将获得武馆积分1 点。不用紧张，把它\
当作一场游戏好了，当然我的要求也是很苛刻的。游戏有两\
种模式，你只有一次挑战机会，进行游戏前请先查阅规则。\
<查看模式一的规则/@规则一> <查看模式二的规则/@规则二>\
<开始记忆挑战/@开始记忆>\
<没兴趣，我要离开这里/@exit>
#ACT
break
#IF
EQUAL D70 2
SMALL D68 60
EQUAL D69 0
#SAY
刚才你看见的是什么怪物？\\
<5个蟒、4个大土蛇、3个洞蛆/@选择答案&1>\
<5个蟒、3个大土蛇、4个洞蛆/@选择答案&2>\
<4个蟒、5个大土蛇、3个洞蛆/@选择答案&3>\
<3个蟒、4个大土蛇、5个洞蛆/@选择答案&4>\
#ACT
break
#IF
EQUAL D70 2
SMALL D68 60
EQUAL D69 1
#SAY
刚才你看见的是什么怪物？\\
<4个蟒、5个大土蛇、3个洞蛆/@选择答案&3>\
<5个蟒、3个大土蛇、4个洞蛆/@选择答案&2>\
<3个蟒、4个大土蛇、5个洞蛆/@选择答案&4>\
<5个蟒、4个大土蛇、3个洞蛆/@选择答案&1>\
#ACT
break
#IF
EQUAL D70 2
SMALL D68 60
EQUAL D69 2
#SAY
刚才你看见的是什么怪物？\\
<5个蟒、3个大土蛇、4个洞蛆/@选择答案&2>\
<4个蟒、5个大土蛇、3个洞蛆/@选择答案&3>\
<5个蟒、4个大土蛇、3个洞蛆/@选择答案&1>\
<3个蟒、4个大土蛇、5个洞蛆/@选择答案&4>\
#ACT
break
#IF
EQUAL D70 1
SMALL D69 6
#SAY
先要完成五回合杀怪任务才能来回答问题获取奖励。\\
<知道了/@exit>
#ACT
break
#IF
EQUAL D70 1
LARGE D69 5
#ACT
MOVR P0 5
INC P0 1
MOV S1 @第次
INC S1 $STR(P0)
GOTO $STR(S1)
break
#ELSESAY
先要完成五回合杀怪任务才能来回答问题获取奖励。\\
<知道了/@exit>
[@选择答案]
#IF
EQUAL D71 $PARAM(0)
#ACT
MOV D68 0
INC D69 1
#ELSEACT
MAPMOVE MH001
SENDMSG 5 很遗憾，你回答错误，魔鬼记忆任务失败！
break
#IF
CHECKLEVELEX > 0
#ACT
#ELSEACT
break
#IF
SMALL D69 3
#ACT
MOVR P0 4
INC P0 1
MOV S1 @刷怪物A
INC S1 $STR(P0)
GOTO $STR(S1)
SENDMSG 5 恭喜你回答正确，再接再厉，再去看看这一次的刷怪情况。
break
close
#ELSEACT
GIVE 过关凭证(五) 1
MOV D68 0
MOV D69 0
MOV D70 0
MOV D71 0
JPPOINT + 1000
CALCVAR HUMAN 武馆 + 1
SAVEVAR HUMAN 武馆 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
MAPMOVE MH001
DELAY 1 @最终奖励
GOTO @精密小关奖品
break
[@最终奖励]
恭喜你通过魔鬼记忆的考验！获得武馆积分１点和1000点极\
品修炼值。欢迎下回再次光临魔鬼记忆园。\\
<离开/@exit>
[@刷怪物A1]
#ACT
CLEARMAPMON $M
MOV D71 1
MONGENEX $M 12 18 蟒10 10 5
MONGENEX $M 12 18 大土蛇10 10 4
MONGENEX $M 12 18 洞蛆10 10 3
break
[@刷怪物A2]
#ACT
CLEARMAPMON $M
MOV D71 2
MONGENEX $M 12 18 蟒10 10 5
MONGENEX $M 12 18 大土蛇10 10 3
MONGENEX $M 12 18 洞蛆10 10 4
break
[@刷怪物A3]
#ACT
CLEARMAPMON $M
MOV D71 3
MONGENEX $M 12 18 蟒10 10 4
MONGENEX $M 12 18 大土蛇10 10 5
MONGENEX $M 12 18 洞蛆10 10 3
break
[@刷怪物A4]
#ACT
CLEARMAPMON $M
MOV D71 4
MONGENEX $M 12 18 蟒10 10 3
MONGENEX $M 12 18 大土蛇10 10 4
MONGENEX $M 12 18 洞蛆10 10 5
break
[@规则一]
模式一：需在5个回合消灭怪物，并准确回答出某回合消灭\
的怪物类型与数量，答对三次即可通过考验。\\
<返回/@main>
[@规则二]
模式二：每轮地图中会出现一定数量的多种怪物，你需在1\
分钟内找全所有怪物进行记忆并准确回答记忆老人的提问，\
答对三次即可通过比赛。\\
<返回/@main>
[@开始记忆]
#IF
SMALL D70 1
#SAY
请选择你要挑战的模式：\\
<选择模式一/@选择模式1>\\
<选择模式二/@选择模式2>\\
<再看看/@main>
#ELSEACT
break
close
[@选择模式2]
#IF
SMALL D70 1
#ACT
MOV D68 0
MOV D70 2
MOVR P0 4
INC P0 1
MOV S1 @刷怪物A
INC S1 $STR(P0)
GOTO $STR(S1)
SENDMSG 5 比赛已经开始了！1分钟内找完并记住本地图中的所有怪物数量，回答我的提问！
break
close
#ELSEACT
break
close
[@选择模式1]
#IF
SMALL D70 1
#ACT
MOV D68 0
MOV D70 1
MOV D71 0
MOV D72 0
MOV D73 0
MOV D74 0
MOV D75 0
MOV D76 0
MOV D77 0
MOV D78 0
MOV D69 1
GOTO @刷怪物B1
SENDMSG 5 第1回合开始，连续杀完五回合怪物后再来回答我的提问！
break
close
#ELSEACT
break
close
[@第次1]
#ACT
MOV D76 1
#SAY
第1次我放出的是什么魔鬼？\\
<1个石人、3个滚刀手、3个铜人/@选择项目&2>\
<2个石人、3个滚刀手、2个铜人/@选择项目&1>\
<2个石人、3个滚刀手、1个铜人/@选择项目&5>\
<1个石人、3个滚刀手、2个铜人/@选择项目&4>\
<2个石人、2个滚刀手、3个铜人/@选择项目&3>\
[@第次2]
#ACT
MOV D76 2
#SAY
第2次我放出的是什么魔鬼？\\
<2个石人、3个滚刀手、2个铜人/@选择项目&1>\
<1个石人、3个滚刀手、3个铜人/@选择项目&2>\
<2个石人、2个滚刀手、3个铜人/@选择项目&3>\
<2个石人、3个滚刀手、1个铜人/@选择项目&5>\
<1个石人、3个滚刀手、2个铜人/@选择项目&4>\
[@第次3]
#ACT
MOV D76 3
#SAY
第3次我放出的是什么魔鬼？\\
<1个石人、3个滚刀手、3个铜人/@选择项目&2>\
<2个石人、3个滚刀手、1个铜人/@选择项目&5>\
<2个石人、3个滚刀手、2个铜人/@选择项目&1>\
<1个石人、3个滚刀手、2个铜人/@选择项目&4>\
<2个石人、2个滚刀手、3个铜人/@选择项目&3>\
[@第次4]
#ACT
MOV D76 4
#SAY
第4次我放出的是什么魔鬼？\\
<2个石人、3个滚刀手、1个铜人/@选择项目&5>\
<1个石人、3个滚刀手、3个铜人/@选择项目&2>\
<1个石人、3个滚刀手、2个铜人/@选择项目&4>\
<2个石人、2个滚刀手、3个铜人/@选择项目&3>\
<2个石人、3个滚刀手、2个铜人/@选择项目&1>\
[@第次5]
#ACT
MOV D76 5
#SAY
第5次我放出的是什么魔鬼？\\
<2个石人、2个滚刀手、3个铜人/@选择项目&3>\
<1个石人、3个滚刀手、3个铜人/@选择项目&2>\
<2个石人、3个滚刀手、1个铜人/@选择项目&5>\
<2个石人、3个滚刀手、2个铜人/@选择项目&1>\
<1个石人、3个滚刀手、2个铜人/@选择项目&4>\
[@选择项目]
#IF
EQUAL D76 1
#ACT
GOTO @对比数据1
break
#IF
EQUAL D76 2
#ACT
GOTO @对比数据2
break
#IF
EQUAL D76 3
#ACT
GOTO @对比数据3
break
#IF
EQUAL D76 4
#ACT
GOTO @对比数据4
break
#ELSEACT
GOTO @对比数据5
break
[@对比数据1]
#IF
EQUAL D71 $PARAM(0)
#ACT
MOV D68 0
INC D69 1
INC D77 1
SENDMSG 5 你本题回答正确！
GOTO @检测结果哈
break
#ELSEACT
INC D78 1
SENDMSG 5 你本题回答错误！
GOTO @检测结果哈
break
[@对比数据2]
#IF
EQUAL D72 $PARAM(0)
#ACT
MOV D68 0
INC D69 1
INC D77 1
SENDMSG 5 你本题回答正确！
GOTO @检测结果哈
break
#ELSEACT
INC D78 1
SENDMSG 5 你本题回答错误！
GOTO @检测结果哈
break
[@对比数据3]
#IF
EQUAL D73 $PARAM(0)
#ACT
MOV D68 0
INC D69 1
INC D77 1
SENDMSG 5 你本题回答正确！
GOTO @检测结果哈
break
#ELSEACT
INC D78 1
SENDMSG 5 你本题回答错误！
GOTO @检测结果哈
break
[@对比数据4]
#IF
EQUAL D74 $PARAM(0)
#ACT
MOV D68 0
INC D69 1
INC D77 1
SENDMSG 5 你本题回答正确！
GOTO @检测结果哈
break
#ELSEACT
INC D78 1
SENDMSG 5 你本题回答错误！
GOTO @检测结果哈
break
[@对比数据5]
#IF
EQUAL D75 $PARAM(0)
#ACT
MOV D68 0
INC D69 1
INC D77 1
SENDMSG 5 你本题回答正确！
GOTO @检测结果哈
break
#ELSEACT
INC D78 1
SENDMSG 5 你本题回答错误！
GOTO @检测结果哈
break
[@检测结果哈]
#IF
LARGE D78 2
#ACT
MAPMOVE MH001
SENDMSG 5 很遗憾，你超过3次回答错误，魔鬼记忆任务失败！
break
#IF
LARGE D77 2
#ACT
GIVE 过关凭证(五) 1
MOV D68 0
MOV D69 0
MOV D70 0
MOV D71 0
MOV D72 0
MOV D73 0
MOV D74 0
MOV D75 0
MOV D76 0
MOV D77 0
MOV D78 0
JPPOINT + 1000
CALCVAR HUMAN 武馆 + 1
SAVEVAR HUMAN 武馆 ..\QUESTDIARY\数据文件\个人变量\个人变量.txt
MAPMOVE MH001
DELAY 1 @最终奖励
GOTO @精密小关奖品
break
#ELSEACT
MOVR P0 5
INC P0 1
MOV S1 @第次
INC S1 $STR(P0)
GOTO $STR(S1)
break
[@刷怪物B1]
#ACT
CLEARMAPMON $M
MOV D71 1
MONGENEX $M 12 18 石人10 10 2
MONGENEX $M 12 18 滚刀手10 10 3
MONGENEX $M 12 18 铜人10 10 2
break
[@精密小关奖品]
#IF
RANDOM 5
#ACT
ReadRandomStr ..\QuestDiary\数据文件\文本数据\精密小关奖品.txt S7
GIVE $STR(S7) 1
SENDMSG 5 恭喜你本次精密宝箱任务还意外的获得了<$STR(S7)>！
SENDMSG 10 恭喜<$USERNAME>在精密宝箱任务中意外的获得了奖品：<$STR(S7)>
break