传奇私服健康小游戏脚本

[@main]介绍：此游戏规则取自Mazera中的找配对。应用在传奇游戏中，是逼上梁山的原创。游戏很简单，16个方块点击翻开，连续翻开两个相同的方块即消掉，当错误到第五次时就宣告游戏失败。开始/@开始当前排名/@当前排名[@当前排名]当前最高记录保持者排名分别是：排第一名的是玩家：$STR(A21)过了$STR(G21)关排第二名的是玩家：$STR(A22)过了$STR(G22)关排第三名的是玩家：$STR(A23)过了$STR(G23)关开始挑战/@开始离开/@EXIT[@开始]#IF#ACTCreateFile.QuestDiary数据文件找配对$USERNAME.txtCLEARNAMELIST..QuestDiary数据文件找配对$USERNAME.txtMOVM500GOTO@开始筹备[@开始筹备]#IFEQUALM504#ACTMOVM500MOVS81GOTO@找配对布版BREAK#ELSEACTGetRandomText.QuestDiary数据文件找配对图码.txtS81#IFCheckTextList.QuestDiary数据文件找配对$USERNAME.txt$STR(S81)#ACTGOTO@开始筹备#ELSEACTAddTextList.QuestDiary数据文件找配对$USERNAME.txt$STR(S81)AddTextList.QuestDiary数据文件找配对$USERNAME.txt$STR(S81)AddTextList.QuestDiary数据文件找配对$USERNAME.txt$STR(S81)AddTextList.QuestDiary数据文件找配对$USERNAME.txt$STR(S81)INCM501GOTO@开始筹备[@找配对布版]#IFEQUALS62#ELSEACTMOVM100SENDMSG6你因上一局未能完成游戏，所以过关数已清零#IF#ACTMOVM605MOVM400MOVS61■/@位置1MOVS62■/@位置2MOVS63■/@位置3MOVS64■/@位置4MOVS65■/@位置5MOVS66■/@位置6MOVS67■/@位置7MOVS68■/@位置8MOVS69■/@位置9MOVS70■/@位置10MOVS71■/@位置11MOVS72■/@位置12MOVS73■/@位置13MOVS74■/@位置14MOVS75■/@位置15MOVS76■/@位置16GetRandomText.QuestDiary数据文件找配对$USERNAME.txtS81DelTextList.QuestDiary数据文件找配对$USERNAME.txt$STR(S81)GetRandomText.QuestDiary数据文件找配对$USERNAME.txtS82DelTextList.QuestDiary数据文件找配对$USERNAME.txt$STR(S82)GetRandomText.QuestDiary数据文件找配对$USERNAME.txtS83DelTextList.QuestDiary数据文件找配对$USERNAME.txt$STR(S83)GetRandomText.QuestDiary数据文件找配对$USERNAME.txtS84DelTextList.QuestDiary数据文件找配对$USERNAME.txt$STR(S84)GetRandomText.QuestDiary数据文件找配对$USERNAME.txtS85DelTextList.QuestDiary数据文件找配对$USERNAME.txt$STR(S85)GetRandomText.QuestDiary数据文件找配对$USERNAME.txtS86DelTextList.QuestDiary数据文件找配对$USERNAME.txt$STR(S86)GetRandomText.QuestDiary数据雷神超变传奇文件找配对$USERNAME.txtS87DelTextList.QuestDiary数据文件找配对$USERNAME.txt$STR(S87)GetRandomText.QuestDiary数据文件找配对$USERNAME.txtS88DelTextList.QuestDiary数据文件找配对$USERNAME.txt$STR(S88)GetRandomText.QuestDiary数据文件找配对$USERNAME.txtS89DelTextList.QuestDiary数据文件找配对$USERNAME.txt$STR(S89)GetRandomText.QuestDiary数据文件找配对$USERNAME.txtS90DelTextList.QuestDiary数据文件找配对$USERNAME.txt$STR(S90)GetRandomText.QuestDiary数据文件找配对$USERNAME.txtS91DelTextList.QuestDiary数据文件找配对$USERNAME.txt$STR(S91)GetRandomText.QuestDiary数据文件找配对$USERNAME.txtS92DelTextList.QuestDiary数据文件找配对$USERNAME.txt$STR(S92)GetRandomText.QuestDiary数据文件找配对$USERNAME.txtS93DelTextList.QuestDiary数据文件找配对$USERNAME.txt$STR(S93)GetRandomText.QuestDiary数据文件找配对$USERNAME.txtS94DelTextList.QuestDiary数据文件找配对$USERNAME.txt$STR(S94)GetRandomText.QuestDiary数据文件找配对$USERNAME.txtS95DelTextList.QuestDiary数据文件找配对$USERNAME.txt$STR(S95)GetRandomText.QuestDiary数据文件找配对$USERNAME.txtS96DelTextList.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]#IFEQUALM400#ELSEACTBREAK#IFEQUALM200#ACTMOVM201MOVS77$STR(S61)MOVM701MOVS61$STR(S81)MOVS78$STR(S81)GOTO@游戏找配对BREAK#ELSEACTMOVS79$STR(S61)MOVM131MOVS61$STR(S81)MOVS80$STR(S81)MOVM401#IFEQUALS78$STR(S80)#ACTDelayCall1200@判别一致GOTO@游戏找配对#ELSEACTDelayCall1200@判别有异GOTO@游戏找配对[@位置2]#IFEQUALM400#ELSEACTBREAK#IFEQUALM200#ACTMOVM201MOVS77$STR(S62)MOVM702MOVS62$STR(S82)MOVS78$STR(S82)GOTO@游戏找配对BREAK#ELSEACTMOVS79$STR(S62)MOVM132MOVS62$STR(S82)MOVS80$STR(S82)MOVM401#IFEQUALS78$STR(S80)#ACTDelayCall1200@判别一致GOTO@游戏找配对#ELSEACTDelayCall1200@判别有异GOTO@游戏找配对[@位置3]#IFEQUALM400#ELSEACTBREAK#IFEQUALM200#ACTMOVM201MOVS77$STR(S63)MOVM703MOVS63$STR(S83)MOVS78$STR(S83)GOTO@游戏找配对BREAK#ELSEACTMOVS79$STR(S63)MOVM133MOVS63$STR(S83)MOVS80$STR(S83)MOVM401#IFEQUALS78$STR(S80)#ACTDelayCall1200@判别一致GOTO@游戏找配对#ELSEACTDelayCall1200@判别有异GOTO@游戏找配对[@位置4]#IFEQUALM400#ELSEACTBRE倾情之恋AK#IFEQUALM200#ACTMOVM201MOVS77$STR(S64)MOVM704MOVS64$STR(S84)MOVS78$STR(S84)GOTO@游戏找配对BREAK#ELSEACTMOVS79$STR(S64)MOVM134MOVS64$STR(S84)MOVS80$STR(S84)MOVM401#IFEQUALS78$STR(S80)#ACTDelayCall1200@判别一致GOTO@游戏找配对#ELSEACTDelayCall1200@判别有异GOTO@游戏找配对[@位置5]#IFEQUALM400#ELSEACTBREAK#IFEQUALM200#ACTMOVM201MOVS77$STR(S65)MOVM705MOVS65$STR(S85)MOVS78$STR(S85)GOTO@游戏找配对BREAK#ELSEACTMOVS79$STR(S65)MOVM135MOVS65$STR(S85)MOVS80$STR(S85)MOVM401#IFEQUA变态传奇私服登陆器LS78$STR(S80)#ACTDelayCall1200@判别一致GOTO@游戏找配对#ELSEACTDelayCall1200@判别有异GOTO@游戏找配对[@位置6]#IFEQUALM400#ELSEACTBREAK#IFEQUALM200#ACTMOVM201MOVS77$STR(S66)MOVM706MOVS66$STR(S86)MOVS78$STR(S86)GOTO@游戏找配对BREAK#ELSEACTMOVS79$STR(S66)MOVM136MOVS66$STR(S86)MOVS80$STR(S86)MOVM401#IFEQUALS78$STR(S80)#ACTDelayCall1200@判别一致GOTO@游戏找配对#ELSEACTDelayCall1200@判别有异GOTO@游戏找配对[@位置7]#IFEQUALM400#ELSEACTBREAK#IFEQUALM200#ACTMOVM201MOVS77$STR(S67)MOVM707MOVS67$STR(S87)MOVS78$STR(S87)GOTO@游戏找配对BREAK#ELSEACTMOVS79$STR(S67)MOVM137MOVS67$STR(S87)MOVS80$STR(S87)MOVM401#IFEQUALS78$STR(S80)#ACTDelayCall1200@判别一致GOTO@游戏找配对#ELSEACTDelayCall1200@判别有异GOTO@游戏找配对[@位置8]#IFEQUALM400#ELSEACTBREAK#IFEQUALM200#ACTMOVM201MOVS77$STR(S68)MOVM708MOVS68$STR(S88)MOVS78$STR(S88)GOTO@游戏找配对BREAK#ELSEACTMOVS79$STR(S68)MOVM138MOVS68$STR(S88)MOVS80$STR(S88)MOVM401#IFEQUALS78$STR(S80)#ACTDelayCal传奇私服电信发布网l1200@判别一致GOTO@游戏找配对#ELSEACTDelayCall1200@判别有异GOTO@游戏找配对[@位置9]#IFEQUALM400#ELSEACTBREAK#IFEQUALM200#ACTMOVM201MOVS77$STR(S69)MOVM709MOVS69$STR(S89)MOVS78$STR(S89)GOTO@游戏找配对BREAK#ELSEACTMOVS79$STR(S69)MOVM139MOVS69$STR(S89)MOVS80$STR(S89)MOVM401#IFEQUALS78$STR(S80)#ACTDelayCall1200@判别一致GOTO@游戏找配对#ELSEACTDelayCall1200@判别有异GOTO@游戏找配对[@位置10]#IFEQUALM400#ELSEACTBREAK#IFEQUALM200#ACTMOVM201MOVS77$STR(S70)MOVM7010MOVS70$STR(S90)MOVS78$STR(S90)GOTO@游戏找配对BREAK#ELSEACTMOVS79$STR(S70)MOVM1310MOVS70$STR(S90)MOVS80$STR(S90)MOVM401#IFEQUALS78$STR(S80)#ACTDelayCall1200@判别一致GOTO@游戏找配对#ELSEACTDelayCall1200@判别有异GOTO@游戏找配对[@位置11]#IFEQUALM400#ELSEACTBREAK#IFEQUALM200#ACTMOVM201MOVS77$STR(S71)MOVM7011MOVS71$STR(S91)MOVS78$STR(S91)GOTO@游戏找配对BREAK#ELSEACTMOVS79$STR(S71)MOVM1311MOVS71$STR(S91)MOVS80$STR(S91)MOVM401#IFEQUALS78$STR(S80)#ACTDelayCall1200@判别一致GOTO@游戏找配对#ELSEACTDelayCall1200@判别有异GOTO@游戏找配对[@位置12]#IFEQUALM400#ELSEACTBREAK#IFEQUALM200#ACTMOVM201MOVS77$STR(S72)MOVM7012MOVS72$STR(S92)MOVS78$STR(S92)GOTO@游戏找配对BREAK#ELSEACTMOVS79$STR(S72)MOVM1312MOVS72$STR(S92)MOVS80$STR(S92)MOVM401#IFEQUALS78$STR(S80)#ACTDelayCall1200@判别一致GOTO@游戏找配对#ELSEACTDelayCall1200@判别有异GOTO@游戏找配对[@位置13]#IFEQUALM400#ELSEACTBREAK#IFEQUALM200#ACTMOVM201MOVS77$STR(S73)MOVM7013MOVS73$STR(S93)MOVS78$STR(S93)GOTO@游戏找配对BREAK#ELSEACTMOVS79$STR(S73)MOVM1313MOVS73$STR(S93)MOVS80$STR(S93)MOVM401#IFEQUALS78$STR(S80)#ACTDelayCall1200@判别一致GOTO@游戏找配对#ELSEACTDelayCall1200@判别有异GOTO@游戏找配对[@位置14]#IFEQUALM400#ELSEACTBREAK#IFEQUALM200#ACTMOVM201MOVS77$STR(S74)MOVM7014MOVS74$STR(S94)MOVS78$STR(S94)GOTO@游戏找配对BREAK#ELSEACTMOVS79$STR(S74)MOVM1314MOVS74$STR(S94)MOVS80$STR(S94)MOVM401#IFEQUALS78$STR(S80)#ACTDelayCall1200@判别一致GOTO@游戏找配对#ELSEACTDelayCall1200@判别有异GOTO@游戏找配对[@位置15]#IFEQUALM400#ELSEACTBREAK#IFEQUALM200#ACTMOVM201MOVS77$STR(S75)MOVM7015MOVS75$STR(S95)MOVS78$STR(S95)GOTO@游戏找配对BREAK#ELSEACTMOVS79$STR(S75)MOVM1315MOVS75$STR(S95)MOVS80$STR(S95)MOVM401#IFEQUALS78$STR(S80)#ACTDelayCall1200@判别一致GOTO@游戏找配对#ELSEACTDelayCall1200@判别有异GOTO@游戏找配对[@位置16]#IFEQUALM400#ELSEACTBREAK#IFEQUALM200#ACTMOVM201MOVS77$STR(S76)MOVM7016MOVS76$STR(S96)MOVS78$STR(S96)GOTO@游戏找配对BREAK#ELSEACTMOVS79$STR(S76)MOVM1316MOVS76$STR(S96)MOVS80$STR(S96)MOVM401#IFEQUALS78$STR(S80)#ACTDelayCall1200@判别一致GOTO@游戏找配对#ELSEACTDelayCall1200@判别有异GOTO@游戏找配对[@判别一致]#IFEQUALS78$STR(S80)#ACTINCM501#ELSEACTSENDMSG6出错了！请将此屏截图到我们论坛举报，论坛地址：http://www.7seyu.cn/7bbs/BREAK#IFEQUALM508#ACTINCM101GOTO@清除所有变量#SAY恭喜你全部找出来了，你现在已经过了$STR(M10)关。当前最高记录保持者分别是：排第一名的是玩家：$STR(A21)过了$STR(G21)关排第二名的是玩家：$STR(A22)过了热血传奇176私服$STR(G22)关排第三名的是玩家：$STR(A23)过了$STR(G23)关当你游戏结束时候你的记录才会纳入排名榜，你可选择继续挑战。继续挑战/@开始不玩了/@不玩了#ELSEACTgoto@判断一致消除[@判断一致消除]#IFEQUALM700#ACTSENDMSG6·出错了！请将此屏截图到我们论坛举报，论坛地址：http://www.7seyu.cn/7bbs/BREAK#IFEQUALM130#ACTSENDMSG6··出错了！请将此屏截图到我们论坛举报，论坛地址：http://www.7seyu.cn/7bbs/BREAK#IFEQUALM701#ACTMOVS61　#IFEQUALM702#ACTMOVS62　#IFEQUALM703#ACTMOVS63　#IFEQUALM704#ACTMOVS64　#IFEQUALM705#ACTMOVS65　#IFEQUALM706#ACTMOVS66　#IFEQUALM707#ACTMOVS67　#IFEQUALM708#ACTMOVS68　#IFEQUALM709#ACTMOVS69　#IFEQUALM7010#ACTMOVS70　#IFEQUALM7011#ACTMOVS71　#IFEQUALM7012#ACTMOVS72　#IFEQUALM7013#ACTMOVS73　#IFEQUALM7014#ACTMOVS74　#IFEQUALM7015#ACTMOVS75　#IFEQUALM7016#ACTMOVS76　#IF#ACTGOTO@判断一致继续消除[@判断一致继续消除]#IFEQUALM131#ACTMOVS61　#IFEQUALM132#ACTMOVS62　#IFEQUALM133#ACTMOVS63　#IFEQUALM134#ACTMOVS64　#IFEQUALM135#ACTMOVS65　#IFEQUALM136#ACTMOVS66　#IFEQUALM137#ACTMOVS67　#IFEQUALM138#ACTMOVS68　#IFEQUALM139#ACTMOVS69　#IFEQUALM1310#ACTMOVS70　#IFEQUALM1311#ACTMOVS71　#IFEQUALM1312#ACTMOVS72　#IFEQUALM1313#ACTMOVS73　#IFEQUALM1314#ACTMOVS74　#IFEQUALM1315#ACTMOVS75　#IFEQUALM1316#ACTMOVS76　#IF#ACTMOVM400MOVM700MOVM130MOVM200MOVS77MOVS79GOTO@游戏找配对[@判别有异]#IFEQUALM700#ACTSENDMSG6。出错了！请将此屏截图到我们论坛举报，论坛地址：http://www.7seyu.cn/7bbs/BREAK#IFEQUALM130#ACTSENDMSG6。。出错了！请将此屏截图到我们论坛举报，论坛地址：http://www.7seyu.cn/7bbs/BREAK#IFEQUALM701#ACTMOVS61$STR(S77)#IFEQUALM702#ACTMOVS62$STR(S77)#IFEQUALM703#ACTMOVS63$STR(S77)#IFEQUALM704#ACTMOVS64$STR(S77)#IFEQUALM705#ACTMOVS65$STR(S77)#IFEQUALM706#ACTMOVS66$STR(S77)#IFEQUALM707#ACTMOVS67$STR(S77)#IFEQUALM708#ACTMOVS68$STR(S77)#IFEQUALM709#ACTMOVS69$STR(S77)#IFEQUALM7010#ACTMOVS70$STR(S77)#IFEQUALM7011#ACTMOVS71$STR(S77)#IFEQUALM7012#ACTMOVS72$STR(S77)#IFEQUALM7013#ACTMOVS73$STR(S77)#IFEQUALM7014#ACTMOVS74$STR(S77)#IFEQUALM7015#ACTMOVS75$STR(S77)#IFEQUALM7016#ACTMOVS76$STR(S77)#IF#ACTgoto@判别继续有异[@判别继续有异]#IFEQUALM131#ACTMOVS61$STR(S79)#IFEQUALM132#ACTMOVS62$STR(S79)#IFEQUALM133#ACTMOVS63$STR(S79)#IFEQUALM134#ACTMOVS64$STR(S79)#IFEQUALM135#ACTMOVS65$STR(S79)#IFEQUALM136#ACTMOVS66$STR(S79)#IFEQUALM137#ACTMOVS67$STR(S79)#IFEQUALM138#ACTMOVS68$STR(S79)#IFEQUALM139#ACTMOVS69$STR(S79)#IFEQUALM1310#ACTMOVS70$STR(S79)#IFEQUALM1311#ACTMOVS71$STR(S79)#IFEQUALM1312#ACTMOVS72$STR(S79)#IFEQUALM1313#ACTMOVS73$STR(S79)#IFEQUALM1314#ACTMOVS74$STR(S79)#IFEQUALM1315#ACTMOVS75$STR(S79)#IFEQUALM1316#ACTMOVS76$STR(S79)#IFEQUALM601#ACTDECM601GOTO@游戏排名#ELSEACTDECM601MOVM400MOVM700MOVM130MOVM200MOVS77MOVS79GOTO@游戏找配对[@游戏排名]#IFSMALLM10$STR(G23)#SAY很遗憾你失败了，请下次再接再厉。当前最高记录保持者分别是：排第一名的是玩家：$STR(A21)过了$STR(G21)关排第二名的是玩家：$STR(A22)过了$STR(G22)关排第三名的是玩家：$STR(A23)过了$STR(G23)关继续挑战/@开始离开/@EXIT#ACTMOVM100GOTO@清除所有变量BREAK#IFEQUALM10$STR(G23)#SAY很遗憾你失败了，请下次再接再厉。当前最高记录保持者分别是：排第一名的是玩家：$STR(A21)过了$STR(G21)关排第二名的是玩家：$STR(A22)过了$STR(G22)关排第三名的是玩家：$STR(A23)过了$STR(G23)关继续挑战/@开始离开/@EXIT#ACTMOVM100GOTO@清除所有变量BREAK#IFLARGEM10$STR(G21)#ACTMOVA23$STR(A22)MOVG23$STR(G22)MOVA22$STR(A21)MOVG22$STR(G21)MOVA21$USERNAMEMOVG21$STR(M10)SENDMSG0恭喜玩家$USERNAME以过了$STR(M10)关的成绩成为游戏《找配对》冠军。MOVM100#SAY这局游戏你已失败，但恭喜你打破世界记录取得冠军位置。当前最高记录保持者排名分别是：排第一名的是玩家：$STR(A21)过了$STR(G21)关排第二名的是玩家：$STR(A22)过了$STR(G22)关排第三名的是玩家：$STR(A23)过了$STR(G23)关继续挑战/@开始离开/@EXIT#IFLARGEM10$STR(G22)#ACTMOVA23$STR(A22)MOVG23$STR(G22)MOVA22$USERNAMEMOVG22$STR(M10)SENDMSG0恭喜玩家$USERNAME以过了$STR(M10)关的成绩晋级游戏《找配对》亚军。MOVM100#SAY这局游戏你已失败，但恭喜你进入世界记录排行榜取得亚军位置。当前最高记录保持者排名分别是：排第一名的是玩家：$STR(A21)过了$STR(G21)关排第二名的是玩家：$STR(A22)过了$STR(G22)关排第三名的是玩家：$STR(A23)过了$STR(G23)关继续挑战/@开始离开/@EXIT#IFLARGEM10$STR(G23)#ACTMOVA22$USERNAMEMOVG22$STR(M10)SENDMSG0恭喜玩家$USERNAME以过了$STR(M10)关的成绩晋级游戏《找配对》季军。MOVM100#SAY这局游戏你已失败，但恭喜你进入世界记录排行榜取得季军位置。当前最高记录保持者排名分别是：排第一名的是玩家：$STR(A21)过了$STR(G21)关排第二名的是玩家：$STR(A22)过了$STR(G22)关排第三名的是玩家：$STR(A23)过了$STR(G23)关继续挑战/@开始离开/@EXIT[@清除所有变量]#IF#ACTCLEARNAMELIST..QuestDiary数据文件找配对$USERNAME.txtMOVM200MOVM700MOVM130MOVM400MOVM500MOVM600MOVS61MOVS62MOVS63MOVS64MOVS65MOVS66MOVS67MOVS68MOVS69MOVS70MOVS71MOVS72MOVS73MOVS74MOVS75MOVS76MOVS77MOVS78MOVS79MOVS80MOVS81MOVS82MOVS83MOVS84MOVS85MOVS86MOVS87MOVS88MOVS89MOVS90MOVS91MOVS92MOVS93MOVS94MOVS95MOVS96[@不玩了]#if#actCLEARNAMELIST..QuestDiary数据文件找配对$USERNAME.txtMOVM200MOVM700MOVM130MOVM400MOVM500MOVM600MOVS61MOVS62MOVS63MOVS64MOVS65MOVS66MOVS67MOVS68MOVS69MOVS70MOVS71MOVS72MOVS73MOVS74MOVS75MOVS76MOVS77MOVS78MOVS79MOVS80MOVS81MOVS82MOVS83MOVS84MOVS85MOVS86MOVS87MOVS88MOVS89MOVS90MOVS91MOVS92MOVS93MOVS94MOVS95MOVS96close