mp_toys.mpsl

   1 /*
   2
   3     Minimum Profit 5.x
   4     A Programmer's Text Editor
   5
   6     Useless things.
   7
   8     Copyright (C) 1991-2009 Angel Ortega <angel@triptico.com>
   9
  10     This program is free software; you can redistribute it and/or
  11     modify it under the terms of the GNU General Public License
  12     as published by the Free Software Foundation; either version 2
  13     of the License, or (at your option) any later version.
  14
  15     This program is distributed in the hope that it will be useful,
  16     but WITHOUT ANY WARRANTY; without even the implied warranty of
  17     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18     GNU General Public License for more details.
  19
  20     You should have received a copy of the GNU General Public License
  21     along with this program; if not, write to the Free Software
  22     Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  23
  24     http://www.triptico.com
  25
  26 */
  27
  28 sub mp.maze(doc, keycode)
  29 {
  30         local tx = mp.window.tx;
  31         local ty = mp.window.ty;
  32
  33         if (doc == NULL)
  34                 doc = mp.open('<maze>');
  35
  36         local maze = doc.maze;
  37
  38         if (maze == NULL || maze.tx != tx || maze.ty != ty) {
  39                 /* new or changed: rebuild everything */
  40                 maze = {};
  41                 maze.tx = tx;
  42                 maze.ty = ty;
  43                 doc.maze = maze;
  44
  45                 /* ensure odd size */
  46                 if (!(tx & 1))
  47                         tx--;
  48                 if (!(ty & 1))
  49                         ty--;
  50
  51                 /* init */
  52                 maze.map = map(sub { map(sub { '#'; }, [1 .. tx]); }, [1 .. ty]);
  53
  54                 /* build */
  55                 local x = 1;
  56                 local y = 1;
  57                 local stack = [];
  58
  59                 while (1) {
  60                         local d = [];
  61
  62                         /* clear */
  63                         maze.map[y][x] = ' ';
  64
  65                         foreach (t, [[0, -1], [1, 0], [0, 1], [-1, 0]]) {
  66                                 /* can space be opened? */
  67                                 local ny = y + t[0] * 2;
  68                                 local nx = x + t[1] * 2;
  69
  70                                 if (nx > 0 && ny > 0 && maze.map[ny][nx] eq '#')
  71                                         push(d, t);
  72                         }
  73
  74                         if (size(d)) {
  75                                 /* more than one way? stack this position */
  76                                 if (size(d) > 1)
  77                                         push(stack, [y, x]);
  78
  79                                 /* pick one direction at random and move there */
  80                                 local m = d[random(size(d))];
  81
  82                                 y += m[0];
  83                                 x += m[1];
  84
  85                                 maze.map[y][x] = ' ';
  86
  87                                 y += m[0];
  88                                 x += m[1];
  89                         }
  90                         else {
  91                                 /* no way from here: pop previous position */
  92                                 if ((d = pop(stack)) == NULL)
  93                                         break;
  94
  95                                 y = d[0];
  96                                 x = d[1];
  97                         }
  98                 }
  99
 100                 maze.x = 1 + random(tx / 2) * 2;
 101                 maze.y = 1 + random(ty / 2) * 2;
 102
 103                 maze.map[maze.y][maze.x] = '@';
 104
 105                 x = 1 + random(tx / 2) * 2;
 106                 y = 1 + random(ty / 2) * 2;
 107
 108                 maze.map[y][x] = 'X';
 109
 110                 doc.keypress = sub(d, k) { mp.maze(d, k); };
 111
 112                 doc.paint = sub(d) { map(sub(e) { [8, join('', e)];}, d.maze.map); };
 113         }
 114
 115         local x = maze.x;
 116         local y = maze.y;
 117
 118         maze.map[y][x] = ' ';
 119
 120         if (keycode eq 'cursor-up')
 121                 y--;
 122         if (keycode eq 'cursor-down')
 123                 y++;
 124         if (keycode eq 'cursor-left')
 125                 x--;
 126         if (keycode eq 'cursor-right')
 127                 x++;
 128
 129         if (maze.map[y][x] eq 'X') {
 130                 mp.alert("You won!");
 131                 doc.maze = NULL;
 132                 return doc;
 133         }
 134
 135         if (maze.map[y][x] eq ' ') {
 136                 maze.x = x;
 137                 maze.y = y;
 138         }
 139
 140         maze.map[maze.y][maze.x] = '@';
 141
 142         return doc;
 143 }