经典游戏再现——贪吃蛇完美复刻

“” · 发表于 2016-8-16 17:22:42

本帖最后由 “” 于 2016-8-23 16:45 编辑

经典游戏再现——贪吃蛇完美复刻

回想10多年前，NOKIA功能机盛行的时候，贪吃蛇是最最经典的游戏了。

说起游戏再现，怎么能少了它呢？

记得前几年论坛发过类似的游戏，在群内也讨论过这个项目，本次借着坛主发起的活动，将这个游戏完美复刻出来。

同时也向NOKIA致敬

为什么说是“完美”，因为程序高度还原了NOKIA上的运行模式，与以前的程序相比有以下几个特点：

蛇身运行流畅，细腻，能看到移动的过程（并非一格一格地往前跳）
能识别墙和身体，当撞到墙或者咬到身体即输。
蛇身与蛇身之间保留一定空隙，能方便识别蛇的运动方向。
多种操作模式，可以用EV3上的按键或者电机转动方向控制。
可以存储多条转弯指令，蛇能按顺序完成转弯。

具体说明如下：

设备：EV3 1台（如需要可以增配大型电机）

编程语言：Small Basic

操作流程：

选择游戏难度：1-7，分别对应不同的运行速度，按键或者旋转电机调整，确定键进入游戏。
Ev3程序块上的上下左右按键使蛇作出相应的转弯动作。（当向左移动时屏蔽向右动作，以此类推）
如果使用大电机，请将数据线连接至D端口，逆时针转动使蛇左转，顺时针转动使蛇右转。（如果需要连续左转2次，需要在中间让电机停止）
如果吃到果子，身体长增加1格，分数增加（增加幅度由难度等级决定）。
如果撞到墙或者咬到身体，那么就输了，显示分数，按确定可以重新开始游戏。如需要选择难度，请退出后再运行程序。
游戏界面长25格，宽16格，一共400格，去掉初始状态4格长度，当吃下396个果子时，即为获胜，期待你的拿到最高分（396*7=2772）。

视频：

如何使用附件：

注意：rbf文件只能在EV3的文件夹中才能被识别。因此下载的时候一定要下载到文件夹内。

步骤：

解压下载文件

打开EV3g软件

连接Ev3

随意下载一个程序（目的是为了产生一个文件夹，如果Ev3内已有存放此游戏的文件夹，可跳过此步）

点击程序块信息

打开内存浏览器

选择要存放的文件夹目录

点击下载

在对话框内选择此游戏文件

完成，可以在EV3中玩了

“” · 发表于 2016-8-16 17:23:28

本帖最后由 “” 于 2016-8-28 20:02 编辑

show=0
'变量设定
Leave=1
score=0
LastClick=""
CurrentClick=""
CurrentDir=0
LastMoto=0
CurrentMoto=0
ClickTime=0
Gameover=0
EatingApple=0
SquareApple=0
MoveDir=0'1右 -1左 -SquareWidth上 SquareWidth下
MoveStep=0
TailDir=0
LastTime=0
'游戏界面的宽和高（设计好界面后确定）
SquareWidth=25
SquareHeight=16
SnakeMax=SquareWidth*SquareHeight
DrawX=0
DrawY=0
SnakeHead=0
SnakeTail=0
SnakeLength=0
For i=0 to SnakeMax step 1
Square[i]=0
EndFor
for i=0 to 9 step 1
Dirs[i]=0
EndFor
DirsAt=0
'进入游戏
LCD.Clear ()
Motor.ResetCount ("D")
'选择难度leave1——leave7
While CurrentClick <> "E"
'屏幕按键选择难度
CurrentClick=Buttons.Current
if CurrentClick = LastClick then
ClickTime=ClickTime+1
else
ClickTime=0
LeaveChange()
LastClick=CurrentClick
endif
if ClickTime >=300 then
ClickTime=0
LeaveChange()
endif
'电机旋转选择难度
if CurrentClick = "" then
CurrentMoto=Motor.GetSpeed ("D")
if CurrentMoto <0 then
CurrentMoto=-1
elseif CurrentMoto >0 then
CurrentMoto=1
else
CurrentMoto=0
endif
if CurrentMoto <> LastMoto and CurrentMoto <> 0 then
MotorBeginCount=Motor.GetCount ("D")
Leave=Leave-CurrentMoto
elseif CurrentMoto = LastMoto then
if Motor.GetCount ("D")-MotorBeginCount>20 then
Leave=Leave-1
MotorBeginCount=Motor.GetCount ("D")
elseif Motor.GetCount ("D")-MotorBeginCount<-20 then
Leave=Leave+1
MotorBeginCount=Motor.GetCount ("D")
endif
if Leave < 1 then
Leave = 1
elseif Leave > 7 then
Leave = 7
endif
LCD.Text (1, 28, 80, 2,"Leave "+Leave)
endif
LastMoto=CurrentMoto
endif
Program.Delay (1)
Endwhile
'游戏
while 0<1
'游戏初始化
Initialization()
Gameover=0
'游戏过程
while GameOver=0
LastTime=EV3.Time
'动作检测
'屏幕按键检测
if DirsAt = 0 then
CurrentClick=Buttons.Current
if CurrentClick="R" then
CurrentDir=1
elseif CurrentClick="L" then
CurrentDir=-1
elseif CurrentClick="U" then
CurrentDir=0-SquareWidth
elseif CurrentClick="D" then
CurrentDir=SquareWidth
else
CurrentDir=0
endif
if CurrentDir <> MoveDir and CurrentDir + MoveDir <> 0 and CurrentDir <> 0 then
Dirs[DirsAt]=CurrentDir
DirsAt=DirsAt+1
endif
LastClick = CurrentClick
elseif DirsAt < 9 then
CurrentClick=Buttons.Current
if CurrentClick <> LastClick and CurrentClick <> "" then
if CurrentClick="R" then
CurrentDir=1
elseif CurrentClick="L" then
CurrentDir=-1
elseif CurrentClick="U" then
CurrentDir=0-SquareWidth
elseif CurrentClick="D" then
CurrentDir=SquareWidth
else
CurrentDir=0
endif
if CurrentDir <> Dirs[DirsAt-1] and CurrentDir + Dirs[DirsAt-1] <>0 and CurrentDir <> 0 then
Dirs[DirsAt]=CurrentDir
DirsAt=DirsAt+1
endif
LastClick = CurrentClick
endif
endif
CurrentMoto=Motor.GetSpeed ("D")
if CurrentMoto <-5 then
CurrentMoto=-1
elseif CurrentMoto >5 then
CurrentMoto=1
else
CurrentMoto=0
endif
'A电机转动检测(没有按键的条件下检测)
if CurrentClick="" and LastMoto<>CurrentMoto and CurrentMoto <>0 then
if DirsAt = 0 then
Temp=MoveDir
else
Temp=Dirs[DirsAt]
endif
if Temp=1 and CurrentMoto < 0 then
Dirs[DirsAt]=SquareWidth
DirsAt=DirsAt+1
elseif Temp=1 and CurrentMoto > 0 then
Dirs[DirsAt]=0-SquareWidth
DirsAt=DirsAt+1
elseif Temp=SquareWidth and CurrentMoto < 0 then
Dirs[DirsAt]=-1
DirsAt=DirsAt+1
elseif Temp=SquareWidth and CurrentMoto > 0 then
Dirs[DirsAt]=1
DirsAt=DirsAt+1
elseif Temp=-1 and CurrentMoto < 0 then
Dirs[DirsAt]=0-SquareWidth
DirsAt=DirsAt+1
elseif Temp=-1 and CurrentMoto > 0 then
Dirs[DirsAt]=SquareWidth
DirsAt=DirsAt+1
elseif Temp=0-SquareWidth and CurrentMoto < 0 then
Dirs[DirsAt]=1
DirsAt=DirsAt+1
elseif Temp=0-SquareWidth and CurrentMoto > 0 then
Dirs[DirsAt]=-1
DirsAt=DirsAt+1
endif
endif
LastMoto=CurrentMoto
'蛇
if MoveStep=0 then
if SnakeHead+MoveDir<0 then '上
GameOver=1
elseif SnakeHead+MoveDir>=SnakeMax then '下
GameOver=1
elseif MoveDir=-1 and Math.Remainder(SnakeHead,SquareWidth)=0 then '左
GameOver=1
elseif MoveDir=1 and Math.Remainder(SnakeHead,SquareWidth)=SquareWidth-1 then '右
GameOver=1
endif
SnakeHead=SnakeHead+MoveDir
if Square[SnakeHead]=0 then
elseif Square[SnakeHead]=5 then
score=score+Leave
LCD.Text (1, 0, 1, 1,"Leave: "+Leave+" score: "+score)
EatingApple=1
'把Apple清掉
LCD.FillCircle (0,Math.Remainder(SquareApple,SquareWidth)*7+4, Math.Floor(SquareApple / SquareWidth)*7+17, 3)
SnakeLength=SnakeLength+1
AppleRand()
else
GameOver=1
endif
if EatingApple=0 then
TailDir=Square[SnakeTail]
Square[SnakeTail]=0
endif
DrawSnake()
if TailDir=1 then
LCD.Line (0,DrawX-2,DrawY-(MoveStep-3), DrawX+2, DrawY-(MoveStep-3))
LCD.Line (0,DrawX-2,DrawY-(3-MoveStep), DrawX+2, DrawY-(3-MoveStep))
elseif TailDir=-1 then
LCD.Line (0,DrawX-2,DrawY-(MoveStep-3), DrawX+2, DrawY-(MoveStep-3))
LCD.Line (0,DrawX-2,DrawY-(3-MoveStep), DrawX+2, DrawY-(3-MoveStep))
elseif TailDir=SquareWidth then
LCD.Line (0,DrawX-(3-MoveStep),DrawY-2, DrawX-(3-MoveStep), DrawY+2)
LCD.Line (0,DrawX-(MoveStep-3),DrawY-2, DrawX-(MoveStep-3), DrawY+2)
elseif TailDir=0-SquareWidth then
LCD.Line (0,DrawX-(3-MoveStep),DrawY-2, DrawX-(3-MoveStep), DrawY+2)
LCD.Line (0,DrawX-(MoveStep-3),DrawY-2, DrawX-(MoveStep-3), DrawY+2)
endif
elseif MoveStep=6 then
'读取并设定方向
if Dirs[0]<>0 and Dirs[0]+MoveDir<>0 then
MoveDir=Dirs[0]
for i=0 to 8 step 1
Dirs[i]=Dirs[i+1]
EndFor
Dirs[9]=0
if DirsAt > 0 then
DirsAt=DirsAt-1
endif
endif
'设置蛇头蛇尾
DrawSnake()
Square[SnakeHead]=MoveDir
if EatingApple=0 then
Square[SnakeTail]=0
SnakeTail=SnakeTail+TailDir
endif
EatingApple=0
else
DrawSnake()
endif
'延时，不同leave 不同延时时间
WaitByLeave()
MoveStep=MoveStep+1
if MoveStep=7 then
MoveStep=0
endif
endwhile
'游戏结束
LCD.clear()
CurrentClick=""
LastTime=0
LCD.Text (1, 15, 50, 2,"GAME OVER")
'分数居中
if Math.Floor(score/1000)>=1 then
LCD.Text (1, 40, 70, 1,"score: "+score)
elseif Math.Floor(score/100)>=1 then
LCD.Text (1, 44, 70, 1,"score: "+score)
elseif Math.Floor(score/10)>=1 then
LCD.Text (1, 48, 70, 1,"score: "+score)
else
LCD.Text (1, 52, 70, 1,"score: "+score)
endif
LCD.Text (1, 47, 100, 1,"Try Again")
while CurrentClick <> "E"'重新开始
CurrentClick =Buttons.Current
LastTime=LastTime+1
if LastTime = 20 then
LastTime=0
endif
if LastTime<10 then
LCD.Text (1, 42, 90, 1,"PRESS ENTER")
else
LCD.FillRect (0,42, 90,88 , 8)
endif
Program.Delay (50)
EndWhile
endwhile
sub LeaveChange
if CurrentClick = "R" or CurrentClick = "D" then
if Leave<7 then
Leave=leave+1
endif
elseif CurrentClick = "L" or CurrentClick = "U" then
if Leave>1 then
Leave=leave-1
endif
endif
LCD.Text (1, 28, 80, 2,"Leave "+Leave)
endsub
sub Initialization
LCD.Clear ()
score=0
LCD.Text (1, 0, 1, 1,"Leave: "+Leave+" score: "+score)
LCD.Rect (1, 0, 13, 178,128-14)
if show=1 then
'调整观察游戏界面方格
For i=0 to 180 step 7
for j=0 to 128-21 step 7
LCD.FillRect (1,i+2, j+15, 5, 5)
EndFor
EndFor
'游戏方格总数25*16=400
endif
For i=0 to SnakeMax step 1
Square[i]=0
EndFor
Square[8*SquareWidth+3]=1'第9行第4格
Square[8*SquareWidth+4]=1
Square[8*SquareWidth+5]=1
Square[8*SquareWidth+6]=1
MoveDir=1
SnakeLength=4
SnakeHead=8*SquareWidth+6
SnakeTail=8*SquareWidth+3
MoveStep=0
DirsAt=0
LCD.FillRect (1,7*3+2-1, 7*8+15, 28, 5)
AppleRand()
endsub
sub AppleRand
if SnakeLength<SnakeMax then
RandNum=Math.GetRandomNumber (SnakeMax-SnakeLength)
i=-1
j=0
while j <> randNum
i=i+1
if Square[i]=0 then
j=j+1
endif
endwhile
Square[i]=5
SquareApple=i
DrawApple()
else '已经最长了
LCD.Clear ()
LCD.Text (1, 30, 50, 2,"You Win")
while 0<1
endwhile
EndIf
endsub
sub DrawApple '根据SquareApple画出Apple的位置
LCD.FillCircle (1,Math.Remainder(SquareApple,SquareWidth)*7+4, Math.Floor(SquareApple / SquareWidth)*7+17, 3)
endsub
sub DrawSnake
DrawX=Math.Remainder(SnakeHead,SquareWidth)*7+4
DrawY=Math.Floor(SnakeHead / SquareWidth)*7+17
if MoveDir=1 then
LCD.Line (1,DrawX-(3-MoveStep),DrawY-2, DrawX-(3-MoveStep), DrawY+2)
elseif MoveDir=-1 then
LCD.Line (1,DrawX-(MoveStep-3),DrawY-2, DrawX-(MoveStep-3), DrawY+2)
elseif MoveDir=0-SquareWidth then
LCD.Line (1,DrawX-2,DrawY-(MoveStep-3), DrawX+2, DrawY-(MoveStep-3))
elseif MoveDir=SquareWidth then
LCD.Line (1,DrawX-2,DrawY-(3-MoveStep), DrawX+2, DrawY-(3-MoveStep))
Endif
if EatingApple=1 then
if MoveDir=1 then
LCD.Line (1,DrawX-(3-MoveStep)-1,DrawY-2, DrawX-(3-MoveStep)-1, DrawY+2)
elseif MoveDir=-1 then
LCD.Line (1,DrawX-(MoveStep-3)+1,DrawY-2, DrawX-(MoveStep-3)+1, DrawY+2)
elseif MoveDir=0-SquareWidth then
LCD.Line (1,DrawX-2,DrawY-(MoveStep-3)+1, DrawX+2, DrawY-(MoveStep-3)+1)
elseif MoveDir=SquareWidth then
LCD.Line (1,DrawX-2,DrawY-(3-MoveStep)-1, DrawX+2, DrawY-(3-MoveStep)-1)
Endif
endif
if EatingApple=0 then
DrawX=Math.Remainder(SnakeTail,SquareWidth)*7+4
DrawY=Math.Floor(SnakeTail / SquareWidth)*7+17
if TailDir=1 then
LCD.Line (0,DrawX-(3-MoveStep),DrawY-2, DrawX-(3-MoveStep), DrawY+2)
elseif TailDir=-1 then
LCD.Line (0,DrawX-(MoveStep-3),DrawY-2, DrawX-(MoveStep-3), DrawY+2)
elseif TailDir=0-SquareWidth then
LCD.Line (0,DrawX-2,DrawY-(MoveStep-3), DrawX+2, DrawY-(MoveStep-3))
elseif TailDir=SquareWidth then
LCD.Line (0,DrawX-2,DrawY-(3-MoveStep), DrawX+2, DrawY-(3-MoveStep))
Endif
endif
EndSub
sub WaitByLeave
while EV3.Time-LastTime < 280-30*Leave
endWhile
LastTime=EV3.Time
endsub

复制代码

L123 · 发表于 2016-8-16 18:39:13

barzz · 发表于 2016-8-16 20:02:59

你终于出手了，哈哈！

hello怪 · 发表于 2016-8-16 20:07:54

厉害！运行真的很流畅！

顺便问一下，smallbasic也能在ev3上运行吗？我真的是第一次听说。。因为我当初小学入门编程时就是用它入的门，所以印象很深刻

另外就是一点点建议，我记得诺基亚的贪吃蛇有一个来回扭动的身子吧，还有一个很扯的头部和尾部，能否实现之呢？另外就是每吃掉5个（还是6个）就会有一个计时的大球，吃掉以后会涨很多分，但是会随着时间过去而逐渐失分。

还有一点点小小的建议，就是蛇身子大一些更爽。。。玩贪吃蛇怎么能不刷个全屏幕都是扭动的身子呐？嘿嘿

“” · 发表于 2016-8-16 21:56:22

hello怪发表于 2016-8-16 20:07
厉害！运行真的很流畅！

顺便问一下，smallbasic也能在ev3上运行吗？我真的是第一次听说。。因为我当初 ...

Small basic只是编程语言，载体而已，有ev3的库就可以了，编译后会输入到机器人中，官方固件就可以了，还是比较方便的。
你的建议还要好好思考。可以好好讨论一下。
其实关键是我不是很明白你的意思，当初玩的是最原始的，没有这么多花头

hello怪 · 发表于 2016-8-16 22:39:22

呃，难道是我的诺基亚版本太高级了。。当然我只是觉得有些不像我玩的那个版本的贪吃蛇了，楼主写的程序已经很厉害了

我也在考虑是否要自己写写贪吃蛇试试

至于ev3的smallbasic嘛。。。等我买了ev3以后再说吧。。。。。o(*￣▽￣*)o至今还在用nxt，习惯了

韦爵爷 · 发表于 2016-8-17 08:27:03

碉堡

大连乐高 · 发表于 2016-8-17 11:19:50

膜拜

忽忽的图图 · 发表于 2016-8-17 15:21:35

怎么下载到ev3主机阿？

“” · 发表于 2016-8-17 17:04:44

解压，打开Ev3软件，帮助（按F1）查看工具-》内存浏览器

我叫_Madara · 发表于 2016-8-25 21:28:08

顶
要顶
必须顶
不得不顶
用尽全力顶
再加上千斤顶
总之把它顶到顶
接着使出葵花宝顶
就算顶到史前也要顶
老子看了会用道德经顶
孔子亲自拜你为师天天顶
秦始皇站在阿房宫上使劲顶
汉高祖挥师杀向东罗马为你顶
吕布抛弃了貂禅而选择了帮你顶
张三丰见了后用太极拳九式全力顶
左冷禅召开武林盟主大会商讨如何顶
西门吹雪从此学会了最强一招剑神一顶
龙剑飞的儒来神掌最后一式改为万佛朝顶
陆小凤从此再也不管闲事了而专门来为你顶
四大名捕四面出击看天下还有没有人敢不在顶
顶到阎罗王说我制造噪音我刁根烟看看他继续顶
顶到火山喷发太平洋海啸我还要继续往死里顶
顶到益阳地震山崩地裂地下水泛滥我还要顶
顶到地下水喷发造成洪灾损失惨重我也顶
要是你觉得敢兴趣你也可以过来一起顶
要是你看我不爽我没办法还要继续顶
要是 C T敢过来阻止我就更加要顶
要是别人见了骂我傻我还是要顶
要是踩到我脚骨折我也继续顶
要是地面凹了我不管继续顶
要是天真塌下来了继续顶
就算天塌下来我都要顶
就算鸡店倒闭也要顶
就算鞋子烂也要顶
我用尽全力去顶
我非常用力顶
我很用力顶
我用力顶
我再顶
顶顶
顶

我叫_Madara · 发表于 2016-8-25 21:37:00

“” 发表于 2016-8-17 17:04
解压，打开Ev3软件，帮助（按F1）查看工具-》内存浏览器

怎么打开程序啊

我叫_Madara · 发表于 2016-8-25 21:39:26

hello怪发表于 2016-8-16 20:07
厉害！运行真的很流畅！

顺便问一下，smallbasic也能在ev3上运行吗？我真的是第一次听说。。因为我当初 ...

怎么打开
无法搜索到文件名

我叫_Madara · 发表于 2016-8-25 21:39:50

hello怪发表于 2016-8-16 20:07
厉害！运行真的很流畅！

顺便问一下，smallbasic也能在ev3上运行吗？我真的是第一次听说。。因为我当初 ...

怎么打开啊
无法搜索到文件名

账号		自动登录	找回密码
密码			马上注册

经典游戏再现——贪吃蛇完美复刻

相关帖子