这是在遇到了电脑暂时无法连接网络的情况想着写下这篇文章。
众所周知,谷歌浏览器有个断网后的小游戏,就是那个一致跳不到终点的小恐龙游戏,玩了一会儿遂萌生了用TCL语言实现这个小游戏的想法。
游戏界面如图所示。
通过按空格键控制字符跳跃,避开黑色方块障碍物。
可自定义“小恐龙”,可以输入任意字符来替换跳跃图标,更换字符后,通过Reset Game实现字符的更换。
游戏检测到碰撞后会提示游戏结束,可以点击Reset Game按钮重新开始游戏。
障碍物会以不同的速度移动,这就是出现残影的原因。
启动程序后,通过点击 Start Game开始游戏
回复关键字“小恐龙”获取下载链接。
这里关键就是画布组件。
我们可以基于画布组件干很多有意思的事情,比如画图🎨,查看图片,写字,编辑图片,高亮显示元素以提示用户,用于开发安全带插件的时候。
canvas的配置功能太多了,就不一一列举,下面是程序用到的canvas说明。
# 创建游戏画布
canvas .qwe.c -width 200 -height 100 -bg white
pack .qwe.c -expand true -fill both
# 创建文字
set dino [.qwe.c create text 20 $Game::dinoY -text "☻" -font {Arial 24}]
#创建矩形框
set obstacle [.qwe.c create rectangle $Game::obstacleX 80 [expr $Game::obstacleX+20] 100 -fill black]
#修改坐标
.qwe.c coords $dino 20 $dinoY