一款用autoit3写的小游戏，大家娱乐下
游戏效果动图：
游戏结束后，会提示你使用的时间
文末是au3的源代码，如果你的电脑没有安装au3的环境，没关系，你可以下载安装一个“阿里飞狐”客户端，（下载地址：https://pmxuntian.taobao.com），用淘宝账户登录下，找到对应的工具就可以直接玩了
Opt('GUIOnEventMode', 1)Global $vSpeed = 6
Global $nCount = 24, $nDone, $iTimer000
Global $aIDInfo[$nCount + 1][8] = [[$nCount]]
Global $aIDPos0[$nCount + 1][4]
Global $aCText[$nCount + 1]
Global $aLast[2], $nClick_RandomlstCreat()Global $hGui = GUICreate('两消无猜', 580, 400)
GUISetOnEvent(-3, '_Exit')
GUISetFont(20, 800, 0, '微软雅黑')
_CtrlGroupCreate()
GUICtrlCreateLabel('点击两张卡片，若相同且为连续点击则两消，全消则赢！', 20, 365, 380, 15, 0x200)
GUICtrlSetFont(-1, 10, 400)
GUICtrlCreateLabel('afan@www.autoitx.com', 410, 365, 150, 15, 0x200)
GUICtrlSetState(-1, 128)
GUICtrlSetFont(-1, 10, 400)
GUISetState()While 1Sleep(10)For $ii = 1 To $aIDInfo[0][0]If $aIDInfo[$ii][0] ThenIf $aIDInfo[$ii][0] = 2 Then$aIDInfo[$ii][0] = 1$aIDInfo[$ii][2] = $aIDPos0[$ii][0]$aIDInfo[$ii][3] = $aIDPos0[$ii][1]$aIDInfo[$ii][4] = $aIDPos0[$ii][2]$aIDInfo[$ii][5] = 0EndIfIf $aIDInfo[$ii][5] = 0 Or $aIDInfo[$ii][5] = 3 Then$aIDInfo[$ii][2] += $vSpeed / 2$aIDInfo[$ii][4] -= $vSpeedIf $aIDInfo[$ii][4] <= 1 Then$aIDInfo[$ii][5] += 1EndIfControlMove($hGui, '', $aIDPos0[$ii][3], $aIDInfo[$ii][2], $aIDInfo[$ii][3], $aIDInfo[$ii][4])ElseIf $aIDInfo[$ii][5] = 1 Or $aIDInfo[$ii][5] = 4 Then$aIDInfo[$ii][2] -= $vSpeed / 2$aIDInfo[$ii][4] += $vSpeedIf $aIDInfo[$ii][4] >= $aIDPos0[$ii][2] Then$aIDInfo[$ii][5] += 1$aIDInfo[$ii][4] = $aIDPos0[$ii][2]If $aIDInfo[$ii][5] = 5 Then$aIDInfo[$ii][5] = 0$aIDInfo[$ii][0] = 0If Abs($aIDInfo[$ii][7] - $nClick) = 1 ThenIf $aIDInfo[$ii][1] = $aLast[1] ThenGUICtrlSetState($aIDPos0[$ii][3], 32)GUICtrlSetState($aLast[0], 32)$nDone += 1If $nDone = $nCount / 2 ThenMsgBox(64, '完成', '恭喜过关！' & @CRLF & '耗时：' & Round(TimerDiff($iTimer000) / 1000) & ' 秒')EndIfEndIfEndIfElseGUICtrlSetData($aIDPos0[$ii][3], $aIDInfo[$ii][1])EndIfEndIfControlMove($hGui, '', $aIDPos0[$ii][3], $aIDInfo[$ii][2], $aIDInfo[$ii][3], $aIDInfo[$ii][4])ElseIf $aIDInfo[$ii][5] = 2 ThenIf Not $aIDInfo[$ii][6] Then $aIDInfo[$ii][6] = TimerInit()If TimerDiff($aIDInfo[$ii][6]) >= 300 Then$aIDInfo[$ii][5] += 1$aIDInfo[$ii][6] = 0GUICtrlSetData($aIDPos0[$ii][3], '')EndIfEndIfEndIfNext
WEndFunc _CtrlGroupCreate()Local $iCol = 6, $iBtnW = 90, $iBtnH = 80Local $iSpace_X = 91, $iSpace_Y = 81, $iLeft = 16, $iTop = 25For $ii = 1 To $nCount$aIDPos0[$ii][0] = $iSpace_X * Mod($ii - 1, $iCol) + $iLeft$aIDPos0[$ii][1] = $iSpace_Y * Floor(($ii - 1) / $iCol) + $iTop$aIDPos0[$ii][2] = $iBtnW$aIDPos0[$ii][3] = GUICtrlCreateLabel('', $aIDPos0[$ii][0], $aIDPos0[$ii][1], $iBtnW, $iBtnH, 0x201)GUICtrlSetColor(-1, 0xff)GUICtrlSetBkColor(-1, 0xffffff)GUICtrlSetOnEvent(-1, '_GroupClick')$aIDInfo[$ii][1] = $aCText[$ii]$aIDInfo[$ii][2] = $aIDPos0[$ii][0]$aIDInfo[$ii][3] = $aIDPos0[$ii][1]$aIDInfo[$ii][4] = $aIDPos0[$ii][2]Next
EndFunc ;==>_CtrlGroupCreateFunc _GroupClick()If Not $iTimer000 Then $iTimer000 = TimerInit()$nClick += 1$aLast[0] = @GUI_CtrlId$aLast[1] = $aIDInfo[@GUI_CtrlId - 2][1]$aIDInfo[@GUI_CtrlId - 2][0] += 1$aIDInfo[@GUI_CtrlId - 2][7] = $nClick
EndFunc ;==>_GroupClickFunc _RandomlstCreat()Local $asName[$nCount / 2] = ['鼠', '牛', '虎', '兔', '龙', '蛇', '马', '羊', '猴', '鸡', '狗', '猪']Local $iTmpDo$iTmp = Random(0, 11, 1)If Not IsDeclared('___' & $iTmp) ThenAssign('___' & $iTmp, 1)$aCText[0] += 1$aCText[$aCText[0]] = $asName[$iTmp]ElseIf Eval('___' & $iTmp) = 1 ThenAssign('___' & $iTmp, 2)$aCText[0] += 1$aCText[$aCText[0]] = $asName[$iTmp]EndIfEndIfUntil $aCText[0] = $nCount
EndFunc ;==>_RandomlstCreatFunc _Exit()ExitJ_Record()
EndFunc ;==>_Exit
源码参考地址：http://www.autoitx.com/thread-71452-1-1.html
一款用autoit3写的小游戏，大家娱乐下相关推荐
- Pygame实战：家里的小孩数学算数能力很差嘛？别慌—这款“巧算24点小游戏”等你来玩，管用。
导语 哈喽!每日游戏更新系列--木木子又来啦!今天讲一个大家都很熟悉的游戏! 我第一次玩24点是初中的时候,那时候和堂弟表哥在堂妹家玩,堂妹提出玩24点游戏,堂妹比我 们小三岁,可能正在上小学吧. 拿 ...
- 扫雷游戏是一款十分经典的单机小游戏。 问题 H: 扫雷游戏
题目描述 扫雷游戏是一款十分经典的单机小游戏.在n行m列的雷区中有一些格子含有地雷(称之为地雷格),其他格子不含地雷(称之为非地雷格).玩家翻开一个非地雷格时,该格将会出现一个数字--提示周围格子中有 ...
- 计算机公开课课前互动小游戏,七款适合公开课的小游戏，让你的公开课精彩纷呈...
省级.县级优质课比赛时,所有选手都是经过层层选拔脱颖而出的,可以说大家的实力不相上下,那么,我们想要胜出需要采取什么方式呢?优质课比赛都是评委打分制,获取听众的青睐,成为成功胜出的唯一法宝.精彩的导入 ...
- python能制作游戏吗_如何用python写一个小游戏
广告关闭 腾讯云11.11云上盛惠 ,精选热门产品助力上云,云服务器首年88元起,买的越多返的越多,最高返5000元! 引言最近python语言大火,除了在科学计算领域python有用武之地之外,在游 ...
- VC++写的小游戏思想家源代码，锻炼大脑的最好的方法
VC++写的小游戏思想家源代码,好像是一款猜数据游戏,因时间关系这里没有亲自玩,游戏源程序可以VC6环境顺利编译,有人把本游戏称为"思想阅读者",玩的投入的时候会感觉很有意思,对于 ...
- 用Three.js写h5小游戏-3d飞机大战
用Three.js写h5小游戏-飞机大战 博主的话 运行图片 目录路径--绘制频谱图
- 从维密天使到编程大拿，她的彪悍人生不需要解释!
- 如何评价一个开源项目（一）--活跃度
- Richer Convolutional Features for Edge Detection（RCF-PYTorch）部署
- 颜色空间转换及切割车牌(python)
- 苹果m1芯片相当于什么水平
- flutter下载慢