kaka.farm

sokoban.js (6107B)

---

 'use strict';
 
 
 console.log('sokoban.js start.');
 
 
 let sokoban = (function() {
 	let levels = [
 		`
 ##############
 #.@...*....z.#
 ##############
 `,
 		`
     #####
     #...#
     #*..#
   ###..*##
   #..*.*.#
 ###.#.##.#   ######
 #...#.##.#####..zz#
 #.*..*..........zz#
 #####.###.#@##..zz#
     #.....#########
     #######
 `,
 	];
 	let level_win_test_not_all_endings = `
     #####
     #...#
     #...#
   ###...##
   #......#
 ###.#.##.#   ######
 #...#.##.#####..zz#
 #..z.*..........zz#
 #####.###.#@##..zz#
     #.....#########
     #######
 `;
 	let level_win_test_all_endings = `
     #####
     #...#
     #...#
   ###...##
   #......#
 ###.#.##.#   ######
 #...#.##.#####....#
 #..z.*............#
 #####.###.#@##....#
     #.....#########
     #######
 `;
 
 	function read_level_text(s) {
 		let state = {
 			rocks: [],
 			walls: [],
 			floors: [],
 			endings: [],
 		};
 		let lines = s.split('\n');
 		let max_x = Math.max(...lines.map(line=>line.length));
 		for (let y = 0; y < lines.length; y++) {
 			state.walls[y] = [];
 			state.rocks[y] = [];
 			state.floors[y] = [];
 			state.endings[y] = [];
 			for (let x = 0; x < lines[y].length; x++) {
 				if (lines[y][x] == '@') {
 					state.player_position = [x, y];
 					state.floors[y][x] = '.';
 				} else if (lines[y][x] == '*') {
 					state.rocks[y][x] = '*';
 					state.floors[y][x] = '.';
 				} else if (lines[y][x] == '#') {
 					state.walls[y][x] = '#';
 				} else if (lines[y][x] == 'z') {
 					state.endings[y][x] = 'z';
 				} else if (lines[y][x] == '.') {
 					state.floors[y][x] = '.';
 				};
 			};
 		};
 
 		return state;
 	};
 
 	function here_player(state, [x, y]) {
 		return (
 			state.player_position[0] == x &&
 			state.player_position[1] == y
 		);
 	}
 	function here_wall(state, [x, y]) {
 		return state.walls[y][x] == '#';
 	}
 	function here_rock(state, [x, y]) {
 		return state.rocks[y][x] == '*';
 	}
 	function here_ending(state, [x, y]) {
 		return state.endings[y][x] == 'z';
 	}
 	function here_floor(state, [x, y]) {
 		return state.floors[y][x] == '.';
 	}
 	function move_rock(state, [fx, fy], [tx, ty]) {
 		delete state.rocks[fy][fx];
 		state.rocks[ty][tx] = '*';
 	}
 
 
 	function is_won(game) {
 		for (let y = 0; y < game.level_state.rocks.length; y++) {
 			if (game.level_state.rocks[y] != undefined) {
 				for (let x = 0; x < game.level_state.rocks[y].length; x++) {
 					if (here_rock(game.level_state, [x, y]) != here_ending(game.level_state, [x, y])) {
 						return false;
 					}
 				}
 			}
 		}
 		return true;
 	};
 
 
 	function copy_level_state(game) {
 		let state_copy = [
 			{},
 			'rocks',
 			'floors',
 			'walls',
 			'endings',
 		].reduce((acc, entity_name)=>{
 			acc[entity_name] = (
 				game
 				.level_state[entity_name]
 				.map(line=>line.map(c=>c))
 			);
 			return acc;
 		});
 		state_copy.player_position = game.level_state.player_position.map(p=>p);
 		return state_copy;
 	};
 
 
 	function action_step(game, direction) {
 		if (!is_won(game)) {
 			let p0 = game.level_state.player_position;
 			let p1 = [
 				p0[0] + direction[0],
 				p0[1] + direction[1]];
 			let p2 = [
 				p1[0] + direction[0],
 				p1[1] + direction[1]];
 
 			let is_blocked = (
 				here_wall(game.level_state, p1) || (
 					here_rock(game.level_state, p1) && (
 						here_rock(game.level_state, p2) ||
 						here_wall(game.level_state, p2))));
 			let is_pushing = (
 				here_rock(game.level_state, p1) &&
 				!here_rock(game.level_state, p2));
 
 			if (!is_blocked) {
 				game.number_of_steps += 1;
 				let old_state = copy_level_state(game);
 				game.undo_stack.push(old_state);
 				if (is_pushing) {
 					move_rock(game.level_state, p1, p2);
 				};
 				game.level_state.player_position = p1;
 			};
 		};
 	};
 
 	function action_step_up(game) { action_step(game, [0, -1]); };
 	function action_step_down(game) { action_step(game, [0, 1]); };
 	function action_step_left(game) { action_step(game, [-1, 0]); };
 	function action_step_right(game) { action_step(game, [1, 0]); };
 
 
 	function action_next_level(game) {
 		if (is_won(game) && game.current_level_number < levels.length) {
 			game.number_of_steps = 0;
 			game.undo_stack = [];
 			game.current_level_number += 1;
 			game.level_state = read_level_text(levels[game.current_level_number]);
 		};
 	};
 
 
 	function action_restart_level(game) {
 		game.number_of_steps = 0;
 		game.undo_stack = [];
 		game.level_state = read_level_text(levels[game.current_level_number]);
 	};
 
 
 	function action_undo(game) {
 		if (game.undo_stack.length > 0) {
 			game.number_of_steps -= 1;
 			game.level_state = game.undo_stack.pop();
 		}
 	}
 
 
 	function game_to_text(game) {
 		console.log(game.undo_state);
 		let s = '';
 
 		if (is_won(game)) {
 			s = s.concat('Won! Press c to continue.');
 		}
 		s = s.concat(`Level ${game.current_level_number + 1}. Step ${game.number_of_steps}.`);
 
 		let max_y = Math.max(
 			game.level_state.rocks.length,
 			game.level_state.endings.length,
 			game.level_state.floors.length,
 			game.level_state.walls.length,
 			game.level_state.player_position[1],
 		);
 		for (let y = 0; y < max_y; y++) {
 			let max_x = Math.max(
 				game.level_state.rocks[y].length,
 				game.level_state.endings[y].length,
 				game.level_state.floors[y].length,
 				game.level_state.walls[y].length,
 				game.level_state.player_position[0],
 			);
 			for (let x = 0; x < max_x; x++) {
 				if (here_player(game.level_state, [x, y])) {
 					s = s.concat('@');
 				} else if (here_wall(game.level_state, [x, y])) {
 					s = s.concat('#');
 				} else if (here_rock(game.level_state, [x, y])) {
 					s = s.concat('*');
 				} else if (here_floor(game.level_state, [x, y])) {
 					s = s.concat('.');
 				} else if (here_ending(game.level_state, [x, y])) {
 					s = s.concat('z');
 				} else {
 					s = s.concat(' ');
 				}
 			};
 			s = s.concat('\n');
 		};
 
 		return s.trimEnd();
 	};
 
 
 	function new_game() {
 		return {
 			current_level_number: 0,
 			level_state: read_level_text(levels[0]),
 			undo_stack: [],
 			number_of_steps: 0,
 		};
 	};
 
 
 	return {
 		action_next_level,
 		action_restart_level,
 		action_step_down,
 		action_step_left,
 		action_step_right,
 		action_step_up,
 		action_undo,
 		game_to_text,
 		new_game,
 	};
 })();
 
 
 console.log('sokoban.js end.');