传奇脚本冒险游戏mazera找配对解密(一)

[@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 @游戏找配对