R语言写2048游戏

       2048 是一款益智游戏,只需要用方向键让两两相同的数字碰撞就会诞生一个翻倍的数字,初始数字由 2 或者 4 构成,直到游戏界面全部被填满,游戏结束。

       编程时并未查看原作者代码,不喜勿喷。

程序结构如下:

R语言代码:

  1 #!/usr/bin/Rscript
  2 #画背景
  3 draw_bg <- function(){
  4     plot(0,0,xlim=c(0,0.8),ylim=c(0,0.8),type='n',xaxs="i", yaxs="i")
  5     for (i in c(1:4)){
  6             for (j in c(1:4)){                    
  7         points(0.1+0.2*(i-1),0.9-0.2*(j),col="gray",pch=15,cex=16)}}
  8 }
  9 #画数字矩阵
 10 draw_num <- function(){
 11 for (i in c(1:4)){
 12     for (j in c(1:4)){
 13         if (e$m[i,j] != 0){
 14         text(0.1+(j-1)*0.2,0.7-(i-1)*0.2,font=2,family="Arial",label=e$m[i,j],cex=2)
 15         }
 16 }
 17 } 
 18 }
 19 #初次运行游戏,生成随机矩阵
 20 init <- function(){
 21 e$stage=1
 22 mt <- matrix(c(sample(c(2,4),1),rep(0,15)),nrow=4)
 23 e$m <- mt[sample(4),sample(4)]
 24 draw_bg()
 25 draw_num()
 26 }
 27 
 28 #移除矩阵数字间的0
 29 rm_zero <- function(){
 30 if (e$x==0){
 31 if (e$dir=="up"){
 32     for (c in 1:4) e$m[,c] <- c(e$m[,c][which(e$m[,c]!=0)],rep(0,4-length(e$m[,c][which(e$m[,c]!=0)])))
 33 }
 34 if (e$dir=="down"){
 35     for (c in 1:4) e$m[,c] <- c(rep(0,4-length(e$m[,c][which(e$m[,c]!=0)])),e$m[,c][which(e$m[,c]!=0)])
 36 }
 37 if (e$dir=="left"){
 38             for (r in 1:4) e$m[r,] <- c(e$m[r,][which(e$m[r,]!=0)],rep(0,4-length(e$m[r,][which(e$m[r,]!=0)])))
 39 }
 40 
 41 if (e$dir=="right"){
 42         for (r in 1:4) e$m[r,] <- c(rep(0,4-length(e$m[r,][which(e$m[r,]!=0)])),e$m[r,][which(e$m[r,]!=0)])
 43 
 44 }
 45 }
 46 else{
 47 if (e$dir=="up"){
 48         c <- e$x
 49         e$m[,c] <- c(e$m[,c][which(e$m[,c]!=0)],rep(0,4-length(e$m[,c][which(e$m[,c]!=0)])))
 50 }
 51 if (e$dir=="down"){
 52         c <- e$x
 53         e$m[,c] <- c(rep(0,4-length(e$m[,c][which(e$m[,c]!=0)])),e$m[,c][which(e$m[,c]!=0)])
 54 }
 55 if (e$dir=="left"){
 56         r <- e$x
 57         e$m[r,] <- c(e$m[r,][which(e$m[r,]!=0)],rep(0,4-length(e$m[r,][which(e$m[r,]!=0)])))
 58 }
 59 
 60 if (e$dir=="right"){
 61         r <- e$x    
 62        e$m[r,] <- c(rep(0,4-length(e$m[r,][which(e$m[r,]!=0)])),e$m[r,][which(e$m[r,]!=0)])
 63 
 64 }
 65 
 66 }
 67 }
 68 
 69 #在空白处添加随机数字
 70 new_mt <- function(){
 71 e$m[sample(which(e$m==0),1)] <- sample(c(2,4),1)
 72 }
 73 
 74 #检查是否游戏失败
 75 fail <- function(){
 76 if (length(e$m[which(e$m==0)])==0){
 77     e$x=0
 78     for (r in 1:3){
 79     for (c in 1:3){
 80         if (e$m[r,c] == e$m[r,c+1] | e$m[r,c] == e$m[r+1,c]){
 81         e$x=1
 82         }
 83     }
 84     }
 85     if (e$x==0){
 86     stage2()
 87     
 88 }
 89 }
 90 }
 91 #游戏中
 92 stage1 <- function(){
 93 e$stage <- 1
 94 e$x <- 0
 95 rm_zero()
 96 if (e$dir=="left"){
 97     i=1
 98     while (i<=4){
 99        if (e$m[i,1] != 0 & e$m[i,1]==e$m[i,2] & e$m[i,1]==e$m[i,3] & e$m[i,1]==e$m[i,4]){
100            e$m[i,]=rep(c(2*e$m[i,1],0),each=2)
101            e$x=1
102        }
103        else if (e$m[i,2]!=0 & e$m[i,3] != 0 & e$m[i,2]==e$m[i,1] & e$m[i,3]==e$m[i,4]){
104            e$m[i,]=c(2*e$m[i,1],0,2*e$m[i,3],0)
105            e$x=1
106        }
107        else if (e$m[i,2] != 0 & e$m[i,2]==e$m[i,1]){
108            e$m[i,]=c(2*e$m[i,1],0,e$m[i,3],e$m[i,4])
109            e$x=1
110        }
111        else if (e$m[i,3] != 0 & e$m[i,3]==e$m[i,4]){
112             e$m[i,]=c(e$m[i,1],e$m[i,2],2*e$m[i,3],0)
113            e$x=1
114        }
115        else if (e$m[i,2] != 0 & e$m[i,2]==e$m[i,3]){
116            e$m[i,]=c(e$m[i,1],2*e$m[i,2],0,e$m[i,4])
117            e$x=1
118        }
119        i=i+1
120            }
121     rm_zero()
122     new_mt()
123     draw_bg()
124     draw_num()
125     fail()
126 }
127 if (e$dir=="right"){
128     i=1
129     while (i<=4){
130        if (e$m[i,1] != 0 & e$m[i,1]==e$m[i,2] & e$m[i,1]==e$m[i,3] & e$m[i,1]==e$m[i,4]){
131            e$m[i,]=rep(c(0,2*e$m[i,1]),each=2)
132            e$x=1
133        }
134        else if (e$m[i,2] != 0 & e$m[i,3] != 0 & e$m[i,2]==e$m[i,1] & e$m[i,3]==e$m[i,4]){
135            e$m[i,]=c(0,2*e$m[i,1],0,2*e$m[i,3])
136            e$x=1
137        }
138        else if (e$m[i,2] != 0 & e$m[i,2]==e$m[i,1]){
139            e$m[i,]=c(0,2*e$m[i,1],e$m[i,3],e$m[i,4])
140            e$x=1
141        }
142        else if (e$m[i,3] != 0 & e$m[i,3]==e$m[i,4]){
143             e$m[i,]=c(e$m[i,1],e$m[i,2],0,2*e$m[i,3])
144            e$x=1
145        }
146        else if (e$m[i,2] != 0 & e$m[i,2]==e$m[i,3]){
147            e$m[i,]=c(e$m[i,1],0,2*e$m[i,2],e$m[i,4])
148            e$x=1
149        }
150        i=i+1
151            }
152     rm_zero()
153     new_mt()
154     draw_bg()
155     draw_num()
156     fail()
157 }
158 
159 if (e$dir=="up"){
160     j=1
161     while (j<=4){
162        if (e$m[1,j] != 0 & e$m[1,j]==e$m[2,j] & e$m[1,j]==e$m[3,j] & e$m[1,j]==e$m[4,j]){
163            e$m[,j]=rep(c(2*e$m[1,j],0),each=2)
164            e$x=1
165        }
166        else if (e$m[2,j] != 0 & e$m[3,j] != 0 & e$m[2,j]==e$m[1,j] & e$m[3,j]==e$m[4,j]){
167            e$m[,j]=c(2*e$m[1,j],0,2*e$m[3,j],0)
168            e$x=1
169        }
170        else if (e$m[2,j] != 0 & e$m[2,j]==e$m[1,j]){
171            e$m[,j]=c(2*e$m[1,j],0,e$m[3,j],e$m[4,j])
172            e$x=1
173        }
174        else if (e$m[3,j] != 0 & e$m[3,j]==e$m[4,j]){
175             e$m[,j]=c(e$m[1,j],e$m[2,j],2*e$m[3,j],0)
176            e$x=1
177         }
178        else if (e$m[2,j] != 0 & e$m[2,j]==e$m[3,j]){
179            e$m[,j]=c(e$m[1,j],2*e$m[2,j],0,e$m[4,j])
180            e$x=1
181        }
182        j=j+1
183            }
184     rm_zero()
185     new_mt()
186     draw_bg()
187     draw_num()
188     fail()
189 }
190 if (e$dir=="down"){
191     j=1
192     while (j<=4){
193        if (e$m[1,j] != 0 & e$m[1,j]==e$m[2,j] & e$m[1,j]==e$m[3,j] & e$m[1,j]==e$m[4,j]){
194            e$m[,j]=rep(c(0,2*e$m[1,j]),each=2)
195            e$x=1
196        }
197        else if (e$m[2,j] != 0 &  e$m[3,j] != 0 & e$m[2,j]==e$m[1,j] & e$m[3,j]==e$m[4,j]){
198            e$m[,j]=c(0,2*e$m[1,j],0,2*e$m[3,j])
199            e$x=1
200        }
201        else if (e$m[2,j] != 0 & e$m[2,j]==e$m[1,j]){
202            e$m[,j]=c(0,2*e$m[1,j],e$m[3,j],e$m[4,j])
203            e$x=1
204        }
205        else if (e$m[3,j] != 0 & e$m[3,j]==e$m[4,j]){
206             e$m[,j]=c(e$m[1,j],e$m[2,j],0,2*e$m[3,j])
207            e$x=1
208        }
209        else if (e$m[2,j] != 0 & e$m[2,j]==e$m[3,j]){
210            e$m[,j]=c(e$m[1,j],0,2*e$m[2,j],e$m[4,j])
211            e$x=1
212        }
213        j=j+1
214            }
215 
216 
217     rm_zero()
218     new_mt()
219     draw_bg()
220     draw_num()
221     fail()
222 }
223 }
224 stage2<-function(){
225   e$stage<-2
226   plot(0,0,xlim=c(0,1),ylim=c(0,1),type='n',xaxs="i", yaxs="i")
227   text(0.5,0.7,label="Game Over",cex=2)
228   text(0.5,0.4,label="Space to restart, q to quit.",cex=2,col=4)
229   text(0.2,0.05,label="Author:YwLiao",cex=1)
230 }
231 
232 # 开机画图 
233 stage0<-function(){
234    e$stage<-0
235    plot(0,0,xlim=c(0,1),ylim=c(0,1),type='n',xaxs="i", yaxs="i")
236    text(0.5,0.7,label="2048",cex=2)
237    text(0.5,0.4,label="Any keyboard to start",cex=2,col=4)
238    text(0.5,0.3,label="Up,Down,Left,Rigth to control direction",cex=2,col=2)
239    text(0.2,0.05,label="Author:YwLiao",cex=1)
240 }
241 #键盘事件
242 keydown<-function(K){
243   print(paste("keydown:",K,",stage:",e$stage));
244   if(e$stage==0){
245           #开机画面 
246       init()
247       return(NULL)
248 }
249   if(e$stage==2){ #结束画面   
250             if(K=="q") q()
251            else if(K==' ') stage0()
252             return(NULL)   
253   }
254   if(e$stage==1){ #游戏中
255         if(K == "q") {
256             stage2()
257    }else {
258         if(tolower(K) %in% c("up","down","left","right")){
259             e$dir<-tolower(K)
260             stage1()
261          }
262         }
263   }
264      return(NULL)
265    }
266 
267 #开始运行游戏
268 run<-function(){
269     e<<-new.env()
270     #X11(type="Xlib") #linux系统需添加此行代码,不过字体受到限制,没有windows下大
271     stage0()
272     getGraphicsEvent(prompt="2048",onKeybd=keydown)   
273 }
274 
275 run()

游戏画面

参考资料

张丹.R的极客理想:http://www.kuqin.com/shuoit/20140704/340987.html

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏张俊红

你们要的代码来了

41280
来自专栏Vamei实验室

一天能学会的计算机技术

作者:Vamei 出处:http://www.cnblogs.com/vamei 欢迎转载,也请保留这段声明。谢谢!

18020
来自专栏点滴积累

geotrellis使用(四十二)将 Shp 文件转为 GeoJson

原因很多,最重要的原因是我转行了。是的,我离开了开发岗位,走向了开发的天敌-产品经理。虽然名义上是产品经理,但是干的事情也很杂,除了不写代码,其他的都干,经常还...

20620
来自专栏熊彪的专栏

精准测分:基于函数调用关系链的用例消振算法 ( 上帝视角 )

地球文明不是孤岛,函数呢?从静态的视角观察函数,她只是一个一个在文件中孤立存在的代码片段。但从动态的视角观察,函数与函数之间就天然的发生了关联。这个关联是怎么产...

25300
来自专栏牛客网

阿里前端一面面经

22400
来自专栏令仔很忙

UML总结

   描述类与类之间的使用与被使用关系,而其使用关系具有偶然性的、临时性的、非常弱的,但是被使用的一方会影响到使用的一方,比如说:“动物”和“氧气”,动物的生活...

10910
来自专栏三丰SanFeng

基于Linux整形时间的常用计算思路

上一次分享了Linux时间时区详解与常用时间函数,相信大家对Linux常见时间函数的使用也有了一定的了解,在工作中遇到类似获取时间等需求的时候也一定能很好的处理...

225100
来自专栏工科狗和生物喵

【闲来无事,py写game】用pygame写一个冒泡排序的实体图

正文之前 不好意思忘了配图了!!时间太紧迫了,图书馆就要关门了!! ? 正文 import pygame,sys import time from pygame...

44290
来自专栏CDA数据分析师

为什么说 Python 是数据科学的发动机(二)工具篇(附视频中字)

毋庸置疑,Python是用于数据分析的最佳编程语言,因为它的库在存储、操作和获取数据方面有出众的能力。 在PyData Seattle 2017中,Jake V...

247100
来自专栏儿童编程

关卡类游戏《鱼塘Ⅰ》的Scratch实现

今天用Scratch实现一个多关卡类的小游戏《鱼塘Ⅰ》(从名字可以看出可能有续集,好吧~)。这个游戏很简单(游戏场景见下图),但是需要使用大量的变量、定义函数、...

14130

扫码关注云+社区

领取腾讯云代金券