传奇私服健康小游戏脚本

[@main]
介绍：此游戏规则取自Mazera中的找配对。
应用在传奇游戏中，是逼上梁山的原创。
游戏很简单，16个方块点击翻开，
连续翻开两个相同的方块即消掉，
当错误到第五次时就宣告游戏失败。
< 开  始 /@开始>        <当前排名/@当前排名>
[@当前排名]
当前最高记录保持者排名分别是：
排第一名的是玩家：<$STR(A21)>  过了<$STR(G21)>关
排第二名的是玩家：<$STR(A22)>  过了<$STR(G22)>关
排第三名的是玩家：<$STR(A23)>  过了<$STR(G23)>关
<开始挑战/@开始>           <离    开/@EXIT>

[@开始]
#IF
#ACT
CreateFile .QuestDiary数据文件找配对<$USERNAME>.txt
CLEARNAMELIST ..QuestDiary数据文件找配对<$USERNAME>.txt
MOV M50 0
GOTO @开始筹备

[@开始筹备]
#IF
EQUAL M50 4
#ACT
MOV M50 0
MOV S81 
GOTO @找配对布版
BREAK
#ELSEACT
GetRandomText .QuestDiary数据文件找配对图码.txt S81
#IF
CheckTextList .QuestDiary数据文件找配对<$USERNAME>.txt <$STR(S81)>
#ACT
GOTO @开始筹备
#ELSEACT
AddTextList .QuestDiary数据文件找配对<$USERNAME>.txt <$STR(S81)>
AddTextList .QuestDiary数据文件找配对<$USERNAME>.txt <$STR(S81)>
AddTextList .QuestDiary数据文件找配对<$USERNAME>.txt <$STR(S81)>
AddTextList .QuestDiary数据文件找配对<$USERNAME>.txt <$STR(S81)>
INC M50 1
GOTO @开始筹备

[@找配对布版]
#IF
EQUAL S62 
#ELSEACT
MOV M10 0
SENDMSG 6 你因上一局未能完成游戏，所以过关数已清零
#IF
#ACT
MOV M60 5
MOV M40 0
MOV S61 <■/@位置1>
MOV S62 <■/@位置2>
MOV S63 <■/@位置3>
MOV S64 <■/@位置4>
MOV S65 <■/@位置5>
MOV S66 <■/@位置6>
MOV S67 <■/@位置7>
MOV S68 <■/@位置8>
MOV S69 <■/@位置9>
MOV S70 <■/@位置10>
MOV S71 <■/@位置11>
MOV S72 <■/@位置12>
MOV S73 <■/@位置13>
MOV S74 <■/@位置14>
MOV S75 <■/@位置15>
MOV S76 <■/@位置16>
GetRandomText .QuestDiary数据文件找配对<$USERNAME>.txt S81
DelTextList .QuestDiary数据文件找配对<$USERNAME>.txt <$STR(S81)>
GetRandomText .QuestDiary数据文件找配对<$USERNAME>.txt S82
DelTextList .QuestDiary数据文件找配对<$USERNAME>.txt <$STR(S82)>
GetRandomText .QuestDiary数据文件找配对<$USERNAME>.txt S83
DelTextList .QuestDiary数据文件找配对<$USERNAME>.txt <$STR(S83)>
GetRandomText .QuestDiary数据文件找配对<$USERNAME>.txt S84
DelTextList .QuestDiary数据文件找配对<$USERNAME>.txt <$STR(S84)>
GetRandomText .QuestDiary数据文件找配对<$USERNAME>.txt S85
DelTextList .QuestDiary数据文件找配对<$USERNAME>.txt <$STR(S85)>
GetRandomText .QuestDiary数据文件找配对<$USERNAME>.txt S86
DelTextList .QuestDiary数据文件找配对<$USERNAME>.txt <$STR(S86)>
GetRandomText .QuestDiary数据文件找配对<$USERNAME>.txt S87
DelTextList .QuestDiary数据文件找配对<$USERNAME>.txt <$STR(S87)>
GetRandomText .QuestDiary数据文件找配对<$USERNAME>.txt S88
DelTextList .QuestDiary数据文件找配对<$USERNAME>.txt <$STR(S88)>
GetRandomText .QuestDiary数据文件找配对<$USERNAME>.txt S89
DelTextList .QuestDiary数据文件找配对<$USERNAME>.txt <$STR(S89)>
GetRandomText .QuestDiary数据文件找配对<$USERNAME>.txt S90
DelTextList .QuestDiary数据文件找配对<$USERNAME>.txt <$STR(S90)>
GetRandomText .QuestDiary数据文件找配对<$USERNAME>.txt S91
DelTextList .QuestDiary数据文件找配对<$USERNAME>.txt <$STR(S91)>
GetRandomText .QuestDiary数据文件找配对<$USERNAME>.txt S92
DelTextList .QuestDiary数据文件找配对<$USERNAME>.txt <$STR(S92)>
GetRandomText .QuestDiary数据文件找配对<$USERNAME>.txt S93
DelTextList .QuestDiary数据文件找配对<$USERNAME>.txt <$STR(S93)>
GetRandomText .QuestDiary数据文件找配对<$USERNAME>.txt S94
DelTextList .QuestDiary数据文件找配对<$USERNAME>.txt <$STR(S94)>
GetRandomText .QuestDiary数据文件找配对<$USERNAME>.txt S95
DelTextList .QuestDiary数据文件找配对<$USERNAME>.txt <$STR(S95)>
GetRandomText .QuestDiary数据文件找配对<$USERNAME>.txt S96
DelTextList .QuestDiary数据文件找配对<$USERNAME>.txt <$STR(S96)>
goto @游戏找配对
[@游戏找配对]
点击下列“■”，找出两个相同图案即消掉，有5次错误机会。
过关数：<$STR(M10)>关
机会：<$STR(M60)>　
　　　　　　<$STR(S61)>　<$STR(S62)>　<$STR(S63)>　<$STR(S64)>
　　　　　　<$STR(S65)>　<$STR(S66)>　<$STR(S67)>　<$STR(S68)>
　　　　　　<$STR(S69)>　<$STR(S70)>　<$STR(S71)>　<$STR(S72)>
　　　　　　<$STR(S73)>　<$STR(S74)>　<$STR(S75)>　<$STR(S76)>　
< 不玩了 /@不玩了>

[@位置1]
#IF
EQUAL M40 0
#ELSEACT
BREAK
#IF
EQUAL M20 0
#ACT
MOV M20 1
MOV S77 <$STR(S61)>
MOV M70 1
MOV S61 <$STR(S81)>
MOV S78 <$STR(S81)>
GOTO @游戏找配对
BREAK
#ELSEACT
MOV S79 <$STR(S61)>
MOV M13 1
MOV S61 <$STR(S81)>
MOV S80 <$STR(S81)>
MOV M40 1
#IF
EQUAL S78 <$STR(S80)>
#ACT
DelayCall 1200 @判别一致
GOTO @游戏找配对
#ELSEACT
DelayCall 1200 @判别有异
GOTO @游戏找配对
[@位置2]
#IF
EQUAL M40 0
#ELSEACT
BREAK
#IF
EQUAL M20 0
#ACT
MOV M20 1
MOV S77 <$STR(S62)>
MOV M70 2
MOV S62 <$STR(S82)>
MOV S78 <$STR(S82)>
GOTO @游戏找配对
BREAK
#ELSEACT
MOV S79 <$STR(S62)>
MOV M13 2
MOV S62 <$STR(S82)>
MOV S80 <$STR(S82)>
MOV M40 1
#IF
EQUAL S78 <$STR(S80)>
#ACT
DelayCall 1200 @判别一致
GOTO @游戏找配对
#ELSEACT
DelayCall 1200 @判别有异
GOTO @游戏找配对
[@位置3]
#IF
EQUAL M40 0
#ELSEACT
BREAK
#IF
EQUAL M20 0
#ACT
MOV M20 1
MOV S77 <$STR(S63)>
MOV M70 3
MOV S63 <$STR(S83)>
MOV S78 <$STR(S83)>
GOTO @游戏找配对
BREAK
#ELSEACT
MOV S79 <$STR(S63)>
MOV M13 3
MOV S63 <$STR(S83)>
MOV S80 <$STR(S83)>
MOV M40 1
#IF
EQUAL S78 <$STR(S80)>
#ACT
DelayCall 1200 @判别一致
GOTO @游戏找配对
#ELSEACT
DelayCall 1200 @判别有异
GOTO @游戏找配对
[@位置4]
#IF
EQUAL M40 0
#ELSEACT
BREAK
#IF
EQUAL M20 0
#ACT
MOV M20 1
MOV S77 <$STR(S64)>
MOV M70 4
MOV S64 <$STR(S84)>
MOV S78 <$STR(S84)>
GOTO @游戏找配对
BREAK
#ELSEACT
MOV S79 <$STR(S64)>
MOV M13 4
MOV S64 <$STR(S84)>
MOV S80 <$STR(S84)>
MOV M40 1
#IF
EQUAL S78 <$STR(S80)>
#ACT
DelayCall 1200 @判别一致
GOTO @游戏找配对
#ELSEACT
DelayCall 1200 @判别有异
GOTO @游戏找配对
[@位置5]
#IF
EQUAL M40 0
#ELSEACT
BREAK
#IF
EQUAL M20 0
#ACT
MOV M20 1
MOV S77 <$STR(S65)>
MOV M70 5
MOV S65 <$STR(S85)>
MOV S78 <$STR(S85)>
GOTO @游戏找配对
BREAK
#ELSEACT
MOV S79 <$STR(S65)>
MOV M13 5
MOV S65 <$STR(S85)>
MOV S80 <$STR(S85)>
MOV M40 1
#IF
EQUAL S78 <$STR(S80)>
#ACT
DelayCall 1200 @判别一致
GOTO @游戏找配对
#ELSEACT
DelayCall 1200 @判别有异
GOTO @游戏找配对
[@位置6]
#IF
EQUAL M40 0
#ELSEACT
BREAK
#IF
EQUAL M20 0
#ACT
MOV M20 1
MOV S77 <$STR(S66)>
MOV M70 6
MOV S66 <$STR(S86)>
MOV S78 <$STR(S86)>
GOTO @游戏找配对
BREAK
#ELSEACT
MOV S79 <$STR(S66)>
MOV M13 6
MOV S66 <$STR(S86)>
MOV S80 <$STR(S86)>
MOV M40 1
#IF
EQUAL S78 <$STR(S80)>
#ACT
DelayCall 1200 @判别一致
GOTO @游戏找配对
#ELSEACT
DelayCall 1200 @判别有异
GOTO @游戏找配对
[@位置7]
#IF
EQUAL M40 0
#ELSEACT
BREAK
#IF
EQUAL M20 0
#ACT
MOV M20 1
MOV S77 <$STR(S67)>
MOV M70 7
MOV S67 <$STR(S87)>
MOV S78 <$STR(S87)>
GOTO @游戏找配对
BREAK
#ELSEACT
MOV S79 <$STR(S67)>
MOV M13 7
MOV S67 <$STR(S87)>
MOV S80 <$STR(S87)>
MOV M40 1
#IF
EQUAL S78 <$STR(S80)>
#ACT
DelayCall 1200 @判别一致
GOTO @游戏找配对
#ELSEACT
DelayCall 1200 @判别有异
GOTO @游戏找配对
[@位置8]
#IF
EQUAL M40 0
#ELSEACT
BREAK
#IF
EQUAL M20 0
#ACT
MOV M20 1
MOV S77 <$STR(S68)>
MOV M70 8
MOV S68 <$STR(S88)>
MOV S78 <$STR(S88)>
GOTO @游戏找配对
BREAK
#ELSEACT
MOV S79 <$STR(S68)>
MOV M13 8
MOV S68 <$STR(S88)>
MOV S80 <$STR(S88)>
MOV M40 1
#IF
EQUAL S78 <$STR(S80)>
#ACT
DelayCall 1200 @判别一致
GOTO @游戏找配对
#ELSEACT
DelayCall 1200 @判别有异
GOTO @游戏找配对
[@位置9]
#IF
EQUAL M40 0
#ELSEACT
BREAK
#IF
EQUAL M20 0
#ACT
MOV M20 1
MOV S77 <$STR(S69)>
MOV M70 9
MOV S69 <$STR(S89)>
MOV S78 <$STR(S89)>
GOTO @游戏找配对
BREAK
#ELSEACT
MOV S79 <$STR(S69)>
MOV M13 9
MOV S69 <$STR(S89)>
MOV S80 <$STR(S89)>
MOV M40 1
#IF
EQUAL S78 <$STR(S80)>
#ACT
DelayCall 1200 @判别一致
GOTO @游戏找配对
#ELSEACT
DelayCall 1200 @判别有异
GOTO @游戏找配对
[@位置10]
#IF
EQUAL M40 0
#ELSEACT
BREAK
#IF
EQUAL M20 0
#ACT
MOV M20 1
MOV S77 <$STR(S70)>
MOV M70 10
MOV S70 <$STR(S90)>
MOV S78 <$STR(S90)>
GOTO @游戏找配对
BREAK
#ELSEACT
MOV S79 <$STR(S70)>
MOV M13 10
MOV S70 <$STR(S90)>
MOV S80 <$STR(S90)>
MOV M40 1
#IF
EQUAL S78 <$STR(S80)>
#ACT
DelayCall 1200 @判别一致
GOTO @游戏找配对
#ELSEACT
DelayCall 1200 @判别有异
GOTO @游戏找配对
[@位置11]
#IF
EQUAL M40 0
#ELSEACT
BREAK
#IF
EQUAL M20 0
#ACT
MOV M20 1
MOV S77 <$STR(S71)>
MOV M70 11
MOV S71 <$STR(S91)>
MOV S78 <$STR(S91)>
GOTO @游戏找配对
BREAK
#ELSEACT
MOV S79 <$STR(S71)>
MOV M13 11
MOV S71 <$STR(S91)>
MOV S80 <$STR(S91)>
MOV M40 1
#IF
EQUAL S78 <$STR(S80)>
#ACT
DelayCall 1200 @判别一致
GOTO @游戏找配对
#ELSEACT
DelayCall 1200 @判别有异
GOTO @游戏找配对
[@位置12]
#IF
EQUAL M40 0
#ELSEACT
BREAK
#IF
EQUAL M20 0
#ACT
MOV M20 1
MOV S77 <$STR(S72)>
MOV M70 12
MOV S72 <$STR(S92)>
MOV S78 <$STR(S92)>
GOTO @游戏找配对
BREAK
#ELSEACT
MOV S79 <$STR(S72)>
MOV M13 12
MOV S72 <$STR(S92)>
MOV S80 <$STR(S92)>
MOV M40 1
#IF
EQUAL S78 <$STR(S80)>
#ACT
DelayCall 1200 @判别一致
GOTO @游戏找配对
#ELSEACT
DelayCall 1200 @判别有异
GOTO @游戏找配对
[@位置13]
#IF
EQUAL M40 0
#ELSEACT
BREAK
#IF
EQUAL M20 0
#ACT
MOV M20 1
MOV S77 <$STR(S73)>
MOV M70 13
MOV S73 <$STR(S93)>
MOV S78 <$STR(S93)>
GOTO @游戏找配对
BREAK
#ELSEACT
MOV S79 <$STR(S73)>
MOV M13 13
MOV S73 <$STR(S93)>
MOV S80 <$STR(S93)>
MOV M40 1
#IF
EQUAL S78 <$STR(S80)>
#ACT
DelayCall 1200 @判别一致
GOTO @游戏找配对
#ELSEACT
DelayCall 1200 @判别有异
GOTO @游戏找配对
[@位置14]
#IF
EQUAL M40 0
#ELSEACT
BREAK
#IF
EQUAL M20 0
#ACT
MOV M20 1
MOV S77 <$STR(S74)>
MOV M70 14
MOV S74 <$STR(S94)>
MOV S78 <$STR(S94)>
GOTO @游戏找配对
BREAK
#ELSEACT
MOV S79 <$STR(S74)>
MOV M13 14
MOV S74 <$STR(S94)>
MOV S80 <$STR(S94)>
MOV M40 1
#IF
EQUAL S78 <$STR(S80)>
#ACT
DelayCall 1200 @判别一致
GOTO @游戏找配对
#ELSEACT
DelayCall 1200 @判别有异
GOTO @游戏找配对
[@位置15]
#IF
EQUAL M40 0
#ELSEACT
BREAK
#IF
EQUAL M20 0
#ACT
MOV M20 1
MOV S77 <$STR(S75)>
MOV M70 15
MOV S75 <$STR(S95)>
MOV S78 <$STR(S95)>
GOTO @游戏找配对
BREAK
#ELSEACT
MOV S79 <$STR(S75)>
MOV M13 15
MOV S75 <$STR(S95)>
MOV S80 <$STR(S95)>
MOV M40 1
#IF
EQUAL S78 <$STR(S80)>
#ACT
DelayCall 1200 @判别一致
GOTO @游戏找配对
#ELSEACT
DelayCall 1200 @判别有异
GOTO @游戏找配对
[@位置16]
#IF
EQUAL M40 0
#ELSEACT
BREAK
#IF
EQUAL M20 0
#ACT
MOV M20 1
MOV S77 <$STR(S76)>
MOV M70 16
MOV S76 <$STR(S96)>
MOV S78 <$STR(S96)>
GOTO @游戏找配对
BREAK
#ELSEACT
MOV S79 <$STR(S76)>
MOV M13 16
MOV S76 <$STR(S96)>
MOV S80 <$STR(S96)>
MOV M40 1
#IF
EQUAL S78 <$STR(S80)>
#ACT
DelayCall 1200 @判别一致
GOTO @游戏找配对
#ELSEACT
DelayCall 1200 @判别有异
GOTO @游戏找配对


[@判别一致]
#IF
EQUAL S78 <$STR(S80)>
#ACT
INC M50 1
#ELSEACT
SENDMSG 6 出错了！请将此屏截图到我们论坛举报，论坛地址：http://www.7seyu.cn/7bbs/
BREAK
#IF
EQUAL M50 8
#ACT
INC M10 1
GOTO @清除所有变量
#SAY
恭喜你全部找出来了，你现在已经过了<$STR(M10)>关。
当前最高记录保持者分别是：
排第一名的是玩家：<$STR(A21)>  过了<$STR(G21)>关
排第二名的是玩家：<$STR(A22)>  过了<$STR(G22)>关
排第三名的是玩家：<$STR(A23)>  过了<$STR(G23)>关
当你游戏结束时候你的记录才会纳入排名榜，你可选择继续挑战。
<继续挑战/@开始>        < 不玩了 /@不玩了>

#ELSEACT
goto @判断一致消除

[@判断一致消除]
#IF
EQUAL M70 0
#ACT
SENDMSG 6 ·出错了！请将此屏截图到我们论坛举报，论坛地址：http://www.7seyu.cn/7bbs/
BREAK
#IF
EQUAL M13 0
#ACT
SENDMSG 6 ··出错了！请将此屏截图到我们论坛举报，论坛地址：http://www.7seyu.cn/7bbs/
BREAK
#IF
EQUAL M70 1
#ACT
MOV S61 　
#IF
EQUAL M70 2
#ACT
MOV S62 　
#IF
EQUAL M70 3
#ACT
MOV S63 　
#IF
EQUAL M70 4
#ACT
MOV S64 　
#IF
EQUAL M70 5
#ACT
MOV S65 　
#IF
EQUAL M70 6
#ACT
MOV S66 　
#IF
EQUAL M70 7
#ACT
MOV S67 　
#IF
EQUAL M70 8
#ACT
MOV S68 　
#IF
EQUAL M70 9
#ACT
MOV S69 　
#IF
EQUAL M70 10
#ACT
MOV S70 　
#IF
EQUAL M70 11
#ACT
MOV S71 　
#IF
EQUAL M70 12
#ACT
MOV S72 　
#IF
EQUAL M70 13
#ACT
MOV S73 　
#IF
EQUAL M70 14
#ACT
MOV S74 　
#IF
EQUAL M70 15
#ACT
MOV S75 　
#IF
EQUAL M70 16
#ACT
MOV S76 　
#IF
#ACT
GOTO @判断一致继续消除
[@判断一致继续消除]
#IF
EQUAL M13 1
#ACT
MOV S61 　
#IF
EQUAL M13 2
#ACT
MOV S62 　
#IF
EQUAL M13 3
#ACT
MOV S63 　
#IF
EQUAL M13 4
#ACT
MOV S64 　
#IF
EQUAL M13 5
#ACT
MOV S65 　
#IF
EQUAL M13 6
#ACT
MOV S66 　
#IF
EQUAL M13 7
#ACT
MOV S67 　
#IF
EQUAL M13 8
#ACT
MOV S68 　
#IF
EQUAL M13 9
#ACT
MOV S69 　
#IF
EQUAL M13 10
#ACT
MOV S70 　
#IF
EQUAL M13 11
#ACT
MOV S71 　
#IF
EQUAL M13 12
#ACT
MOV S72 　
#IF
EQUAL M13 13
#ACT
MOV S73 　
#IF
EQUAL M13 14
#ACT
MOV S74 　
#IF
EQUAL M13 15
#ACT
MOV S75 　
#IF
EQUAL M13 16
#ACT
MOV S76 　
#IF
#ACT
MOV M40 0
MOV M70 0
MOV M13 0
MOV M20 0
MOV S77
MOV S79
GOTO @游戏找配对



[@判别有异]
#IF
EQUAL M70 0
#ACT
SENDMSG 6 。出错了！请将此屏截图到我们论坛举报，论坛地址：http://www.7seyu.cn/7bbs/
BREAK
#IF
EQUAL M13 0
#ACT
SENDMSG 6 。。出错了！请将此屏截图到我们论坛举报，论坛地址：http://www.7seyu.cn/7bbs/
BREAK
#IF
EQUAL M70 1
#ACT
MOV S61 <$STR(S77)>
#IF
EQUAL M70 2
#ACT
MOV S62 <$STR(S77)>
#IF
EQUAL M70 3
#ACT
MOV S63 <$STR(S77)>
#IF
EQUAL M70 4
#ACT
MOV S64 <$STR(S77)>
#IF
EQUAL M70 5
#ACT
MOV S65 <$STR(S77)>
#IF
EQUAL M70 6
#ACT
MOV S66 <$STR(S77)>
#IF
EQUAL M70 7
#ACT
MOV S67 <$STR(S77)>
#IF
EQUAL M70 8
#ACT
MOV S68 <$STR(S77)>
#IF
EQUAL M70 9
#ACT
MOV S69 <$STR(S77)>
#IF
EQUAL M70 10
#ACT
MOV S70 <$STR(S77)>
#IF
EQUAL M70 11
#ACT
MOV S71 <$STR(S77)>
#IF
EQUAL M70 12
#ACT
MOV S72 <$STR(S77)>
#IF
EQUAL M70 13
#ACT
MOV S73 <$STR(S77)>
#IF
EQUAL M70 14
#ACT
MOV S74 <$STR(S77)>
#IF
EQUAL M70 15
#ACT
MOV S75 <$STR(S77)>
#IF
EQUAL M70 16
#ACT
MOV S76 <$STR(S77)>
#IF
#ACT
goto @判别继续有异
[@判别继续有异]
#IF
EQUAL M13 1
#ACT
MOV S61 <$STR(S79)>
#IF
EQUAL M13 2
#ACT
MOV S62 <$STR(S79)>
#IF
EQUAL M13 3
#ACT
MOV S63 <$STR(S79)>
#IF
EQUAL M13 4
#ACT
MOV S64 <$STR(S79)>
#IF
EQUAL M13 5
#ACT
MOV S65 <$STR(S79)>
#IF
EQUAL M13 6
#ACT
MOV S66 <$STR(S79)>
#IF
EQUAL M13 7
#ACT
MOV S67 <$STR(S79)>
#IF
EQUAL M13 8
#ACT
MOV S68 <$STR(S79)>
#IF
EQUAL M13 9
#ACT
MOV S69 <$STR(S79)>
#IF
EQUAL M13 10
#ACT
MOV S70 <$STR(S79)>
#IF
EQUAL M13 11
#ACT
MOV S71 <$STR(S79)>
#IF
EQUAL M13 12
#ACT
MOV S72 <$STR(S79)>
#IF
EQUAL M13 13
#ACT
MOV S73 <$STR(S79)>
#IF
EQUAL M13 14
#ACT
MOV S74 <$STR(S79)>
#IF
EQUAL M13 15
#ACT
MOV S75 <$STR(S79)>
#IF
EQUAL M13 16
#ACT
MOV S76 <$STR(S79)>
#IF
EQUAL M60 1
#ACT
DEC M60 1
GOTO @游戏排名
#ELSEACT
DEC M60 1
MOV M40 0
MOV M70 0
MOV M13 0
MOV M20 0
MOV S77
MOV S79
GOTO @游戏找配对







[@游戏排名]
#IF
SMALL M10 <$STR(G23)>
#SAY
很遗憾你失败了，请下次再接再厉。
当前最高记录保持者分别是：
排第一名的是玩家：<$STR(A21)>  过了<$STR(G21)>关
排第二名的是玩家：<$STR(A22)>  过了<$STR(G22)>关
排第三名的是玩家：<$STR(A23)>  过了<$STR(G23)>关
<继续挑战/@开始>           <离    开/@EXIT>
#ACT
MOV M10 0
GOTO @清除所有变量
BREAK
#IF
EQUAL M10 <$STR(G23)>
#SAY
很遗憾你失败了，请下次再接再厉。
当前最高记录保持者分别是：
排第一名的是玩家：<$STR(A21)>  过了<$STR(G21)>关
排第二名的是玩家：<$STR(A22)>  过了<$STR(G22)>关
排第三名的是玩家：<$STR(A23)>  过了<$STR(G23)>关
<继续挑战/@开始>           <离    开/@EXIT>
#ACT
MOV M10 0
GOTO @清除所有变量
BREAK
#IF
LARGE M10 <$STR(G21)>
#ACT
MOV A23 <$STR(A22)>
MOV G23 <$STR(G22)>
MOV A22 <$STR(A21)>
MOV G22 <$STR(G21)>
MOV A21 <$USERNAME>
MOV G21 <$STR(M10)>
SENDMSG 0 恭喜玩家<$USERNAME>以过了<$STR(M10)>关的成绩成为游戏《找配对》冠军。
MOV M10 0
#SAY
这局游戏你已失败，但恭喜你打破世界记录取得冠军位置。
当前最高记录保持者排名分别是：
排第一名的是玩家：<$STR(A21)>  过了<$STR(G21)>关
排第二名的是玩家：<$STR(A22)>  过了<$STR(G22)>关
排第三名的是玩家：<$STR(A23)>  过了<$STR(G23)>关
<继续挑战/@开始>           <离    开/@EXIT>
#IF
LARGE M10 <$STR(G22)>
#ACT
MOV A23 <$STR(A22)>
MOV G23 <$STR(G22)>
MOV A22 <$USERNAME>
MOV G22 <$STR(M10)>
SENDMSG 0 恭喜玩家<$USERNAME>以过了<$STR(M10)>关的成绩晋级游戏《找配对》亚军。
MOV M10 0
#SAY
这局游戏你已失败，但恭喜你进入世界记录排行榜取得亚军位置。
当前最高记录保持者排名分别是：
排第一名的是玩家：<$STR(A21)>  过了<$STR(G21)>关
排第二名的是玩家：<$STR(A22)>  过了<$STR(G22)>关
排第三名的是玩家：<$STR(A23)>  过了<$STR(G23)>关
<继续挑战/@开始>           <离    开/@EXIT>
#IF
LARGE M10 <$STR(G23)>
#ACT
MOV A22 <$USERNAME>
MOV G22 <$STR(M10)>
SENDMSG 0 恭喜玩家<$USERNAME>以过了<$STR(M10)>关的成绩晋级游戏《找配对》季军。
MOV M10 0
#SAY
这局游戏你已失败，但恭喜你进入世界记录排行榜取得季军位置。
当前最高记录保持者排名分别是：
排第一名的是玩家：<$STR(A21)>  过了<$STR(G21)>关
排第二名的是玩家：<$STR(A22)>  过了<$STR(G22)>关
排第三名的是玩家：<$STR(A23)>  过了<$STR(G23)>关
<继续挑战/@开始>           <离    开/@EXIT>






[@清除所有变量]
#IF
#ACT
CLEARNAMELIST ..QuestDiary数据文件找配对<$USERNAME>.txt
MOV M20 0
MOV M70 0
MOV M13 0
MOV M40 0
MOV M50 0
MOV M60 0
MOV S61
MOV S62
MOV S63
MOV S64
MOV S65
MOV S66
MOV S67
MOV S68
MOV S69
MOV S70
MOV S71
MOV S72
MOV S73
MOV S74
MOV S75
MOV S76
MOV S77
MOV S78
MOV S79
MOV S80
MOV S81
MOV S82
MOV S83
MOV S84
MOV S85
MOV S86
MOV S87
MOV S88
MOV S89
MOV S90
MOV S91
MOV S92
MOV S93
MOV S94
MOV S95
MOV S96


[@不玩了]
#if
#act
CLEARNAMELIST ..QuestDiary数据文件找配对<$USERNAME>.txt
MOV M20 0
MOV M70 0
MOV M13 0
MOV M40 0
MOV M50 0
MOV M60 0
MOV S61
MOV S62
MOV S63
MOV S64
MOV S65
MOV S66
MOV S67
MOV S68
MOV S69
MOV S70
MOV S71
MOV S72
MOV S73
MOV S74
MOV S75
MOV S76
MOV S77
MOV S78
MOV S79
MOV S80
MOV S81
MOV S82
MOV S83
MOV S84
MOV S85
MOV S86
MOV S87
MOV S88
MOV S89
MOV S90
MOV S91
MOV S92
MOV S93
MOV S94
MOV S95
MOV S96
close