1#
2#   Copyright 2006 by Bernhard Seckinger
3#   Maintenance modifications 2002,2003,2005,2006,2008,2011,2014 by the cuyo developers
4#   Partly based on the following levels:
5#   hexkugeln.ld which, at that time, was
6#     Copyright <=2004 by Immanuel Halupczok
7#   kunst.ld which, at that time, was
8#     Copyright <=2004 by Immanuel Halupczok
9#   pinguine.ld which, at that time, was
10#     Created <=2002 by Bernhard Seckinger
11#   hormone.ld which, at that time, was
12#     Copyright <=2004 by Immanuel Halupczok
13#   viecher.ld which, at that time, was
14#     Copyright <=2004 by Immanuel Halupczok
15#   nasenkugeln.ld which, at that time, was
16#     Copyright <=2004 by Immanuel Halupczok
17#   pfeile.ld which, at that time, was
18#     Copyright <=2004 by Immanuel Halupczok
19#
20#   This program is free software; you can redistribute it and/or modify
21#   it under the terms of the GNU General Public License as published by
22#   the Free Software Foundation; either version 2 of the License, or
23#   (at your option) any later version.
24#
25#   This program is distributed in the hope that it will be useful,
26#   but WITHOUT ANY WARRANTY; without even the implied warranty of
27#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
28#   GNU General Public License for more details.
29#
30#   You should have received a copy of the GNU General Public License
31#   along with this program; if not, write to the Free Software
32#   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
33#
34# The above notices apply to this file and to:
35#   bmKarten.xpm[.gz], bmStrich.xpm[.gz], bmTisch.xpm[.gz]
36#
37
38# referenced from labskaus.ld
39
40# Status: (M=Muss, S=Soll, K=Kann, F=Feature, B=Bugs)
41#
42# Fertig.
43#
44# FK Blumenbild wird nicht mehr "zitiert".
45
46Memory={
47# TRANSLATORS: "Memory" is the name of a commercial brand of the Pairs game,
48# at least in the German market.
49  name="Memory"
50  author="Berni"
51  numexplode=2
52  chaingrass=0
53  greypic=bm
54  pics=bm*13
55  bgcolor=255,255,255
56  topcolor=0,0,0
57  toptime=50
58  startpic=bmTisch.xpm
59  startdist[1]="++++++++++","AAAAAAAAAA"
60  startdist="AAAAAAAAAA"
61  textcolor=90,90,90
62# TRANSLATORS: "Memory" is the name of a commercial brand of the Pairs game,
63# at least in the German market.
64  description="Well, memory."
65
66  <<
67  var zuklappen=1;
68
69  karte={
70    switch {
71      falling || informational -> {
72        # Am fallen
73        *
74      };
75      zuklappen &&
76        kind@(-1,0) != outside && kind@(-1,0) != nothing &&
77	kind@(-1,0) != bmTisch &&
78	zuklappen@(-1,0) -> {
79        # Wir sollen zuklappen, aber links von uns ist eine Karte,
80	# die auch noch nicht damit angefangen. Dann warten wir noch...
81        # (Lustiger R�berklapp-effekt.)
82        *
83      };
84      zuklappen => {
85        # Grade aufgekommen oder so was.
86        # Aber erst noch ein Bildchen lang normal, weil sonst die
87        # Start-Karten schon beim ersten Bild leicht umklappen.
88        {zuklappen=0;*}, {pos+=15;*}, 1A*, P*
89      };
90      1:500 => {
91        # Kurz aufklappen
92        P*, 1A*, {pos+=15;*},
93        *,*,*,*,*,*,*,*,*,*,*,*,*,*,
94        {pos+=15;*}, 1A*, P*
95      };
96      -> A*; # zugeklappt
97    };
98  };
99  >>
100
101  bm={
102    pics=bmKarten.xpm,bmStrich.xpm
103    << bm={pos=kind-bm+1;karte}; >>
104  }
105}
106