R/game.R

In JfvBraga/RGame: What the package does (short line)

rg <- function(){
  
  #Dependencies
  rotate <- function(x) t(apply(x, 2, rev))
  
  
  #custom images
  #1 Knigth
  knight <- c(0,0,0,0,0,3,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,3,3,3,0,0,0,0,0,0,0,1,1,1,1,1,3,3,3,3,3,3,1,1,1,1,1,1
              ,1,3,1,1,1,3,3,3,3,3,1,1,1,0,0,0,0,1,3,1,1,1,3,3,3,3,1,1,1,1,0,0,0,0,1,3,1,1,1,3,3,3,1,1,1,1,1,0,0,0,0,1,3,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0
              ,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,3,1,0,0,0,0,0,0,0,0,0,0,3,3,3,3,3,3,1,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,1,0,0,0,0,0,0,0,0,0,0)
  knight <- matrix(knight,nrow = 17,ncol = 12)
  
#Intro
  readline("Welcome to Riel! (press enter to continue)")
  land_init <-matrix(sample(c(1,2,3),size = 30*30,replace = T),30,30)
  #image(land_init, axes = F, col=c("green","grey", "blue"))
  image(rotate(knight),col=c("white","red","yellow","black"),axes=F)
  name <- readline("Name yourself! : ")
  
#starting position
  x <- 15
  y <- 15

  land_cur <- land_init
  
  land_cur[x,y] <- 4
  image(land_cur[11:20,11:20], axes = F, col=c("green","grey","blue","black"))
  #grid(nx=10, ny=10, lty=1, col="black")
  enemies <- matrix(sample(x = seq(0,7,1),size = 30*30,replace = T),30,30)
  life <- 3
  run <- 1
  
print(paste(name,",you just woke up and you do not have any idea how you get here.",name,",you better keep moving, there are monsters on these lands!"))
	
  while(run== 1){
    
    if(land_init[x,y]==1) print(paste(name,"you are in a forest"))
    if(land_init[x,y]==2) print(paste(name,"you are standing in the middle of a road"))
    if(land_init[x,y]==3) print(paste(name,"you are in a pond"))
    
    xx <- readline("Do you want to move left (-1), rigth (1) or none (0) ?")
    yy <- readline("Do you want to move down (-1), up (1) or none (0) ?")
    
    xx <- as.numeric(unlist(strsplit(xx, ",")))
    yy <- as.numeric(unlist(strsplit(yy, ",")))
    
    land <- land_init
    
    x <- x+xx
    y <- y+yy
    
    land[x,y] <- 4
   
    #par(mfrow = c(1,2))
    image(land[11:20,11:20], axes = F, col=c("green","grey","blue","black"))
    #plot(y=rep(1,times = life),x=seq(1,life,1),pch="♥",cex=5, axes=F,main=name,ylab="HP")
  
    
    # grid(nx=10, ny=10, lty=1, col="black")
   
	while(enemies[x,y]!=0) {
	 print("An enemy spotted you! You must FIGHT!!!")
	 #par(mfrow = c(1,2))
	 image(land[11:20,11:20], axes = F, col=c("green","grey","blue","black"))
	 #plot(y=rep(1,times = life),x=seq(1,life,1),pch="♥",cex=5, axes=F,main=name,ylab="HP")
	 
   if(enemies[x,y]!=0) {
            
      dice <- readline("A number, from 1 to 6: ")
      dice <- as.numeric(unlist(strsplit(dice, ",")))
      
      if(dice>= enemies[x,y]) {
        
        print(paste(name,",you won! Continue your travels accross Riel"))
		enemies[x,y] <- 0  
      }
      
      if(dice< enemies[x,y]) {
        print(paste(name,", you missed! Try again!"))
        life <- life -1
      }
		if(life == 0) stop(paste(name,",you are dead"))
     }
	}	  
  } 
}


# ♥
# ♡