2
# Copyright 2008 by Mark Weyer
4
# This program is free software; you can redistribute it and/or modify
5
# it under the terms of the GNU General Public License as published by
6
# the Free Software Foundation; either version 2 of the License, or
7
# (at your option) any later version.
9
# This program is distributed in the hope that it will be useful,
10
# but WITHOUT ANY WARRANTY; without even the implied warranty of
11
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12
# GNU General Public License for more details.
14
# You should have received a copy of the GNU General Public License
15
# along with this program; if not, write to the Free Software
16
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23
description = "Octopi connect in eight directions. They also remove the anemones that way."
27
pics = octopus*<sorten>
30
startdist = "AAA.......","AAAAA...AA","AAAAAA.AAA"
32
neighbours = <neighbours_eight>
38
anemone.init = {version=rnd(4);};
40
anemone = {pos=version; *;};
45
pics = moOctopus1.xpm, moOctopus2.xpm, moOctopus3.xpm,
46
moOctopus4.xpm, moOctopus5.xpm
64
if kind==kind@(-1,1) -> E*@(0,1);
78
if kind==kind@(-1,-1) -> E@(-1,0)*;
92
if kind==kind@(1,1) -> E@(1,0)*;
106
if kind==kind@(1,-1) -> E*@(0,-1);