R语言写2048游戏

用户1680321

发布于 2018-04-27 17:28:32

2.1K0

发布于 2018-04-27 17:28:32

文章被收录于专栏：yw的数据分析yw的数据分析

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()

游戏画面