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