1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
Memory={
name="Memory"
author="Berni"
numexplode=2
chaingrass=0
pics=bmC,bmD,bmE,bmF,bmG,bmH,bmI,bmJ,bmK,bmL,bmM,bmN,bmO
bgcolor=255,255,255
topcolor=0,0,0
toptime=50
startpic=bmTisch.xpm
startdist1="++++++++++","AAAAAAAAAA"
startdist="AAAAAAAAAA"
greypic=bmLeer
textcolor=90,90,90
description="Well, memory."
description[de]="Memory halt"
<<
var zuklappen=1;
ll=;
ii=;
karte={
switch {
falling -> {
# Am fallen
*
};
zuklappen &&
kind@(-1,0) != outside && kind@(-1,0) != nothing &&
kind@(-1,0) != bmTisch &&
zuklappen@(-1,0) -> {
# Wir sollen zuklappen, aber links von uns ist eine Karte,
# die auch noch nicht damit angefangen. Dann warten wir noch...
# (Lustiger Rberklapp-effekt.)
*
};
zuklappen => {
# Grade aufgekommen oder so was.
# Aber erst noch ein Bildchen lang normal, weil sonst die
# Start-Karten schon beim ersten Bild leicht umklappen.
{zuklappen=0;*}, {pos+=15;*}, 1A*, P*
};
1:500 => {
# Kurz aufklappen
P*, 1A*, {pos+=15;*},
*,*,*,*,*,*,*,*,*,*,*,*,*,*,
{pos+=15;*}, 1A*, P*
};
-> A*; # zugeklappt
};
};
>>
bmLeer={
pics=bmKarten.xpm,bmStrich.xpm
<< bmLeer={B;karte}; bmLeer.init=ii; bmLeer.land=ll; >>
}
bmC={
pics=bmKarten.xpm,bmStrich.xpm
<< bmC={C;karte}; bmC.init=ii; bmC.land=ll; >>
}
bmD={
pics=bmKarten.xpm,bmStrich.xpm
<< bmD={D;karte}; bmD.init=ii; bmD.land=ll; >>
}
bmE={
pics=bmKarten.xpm,bmStrich.xpm
<< bmE={E;karte}; bmE.init=ii; bmE.land=ll; >>
}
bmF={
pics=bmKarten.xpm,bmStrich.xpm
<< bmF={F;karte}; bmF.init=ii; bmF.land=ll; >>
}
bmG={
pics=bmKarten.xpm,bmStrich.xpm
<< bmG={G;karte}; bmG.init=ii; bmG.land=ll; >>
}
bmH={
pics=bmKarten.xpm,bmStrich.xpm
<< bmH={H;karte}; bmH.init=ii; bmH.land=ll; >>
}
bmI={
pics=bmKarten.xpm,bmStrich.xpm
<< bmI={I;karte}; bmI.init=ii; bmI.land=ll; >>
}
bmJ={
pics=bmKarten.xpm,bmStrich.xpm
<< bmJ={J;karte}; bmJ.init=ii; bmJ.land=ll; >>
}
bmK={
pics=bmKarten.xpm,bmStrich.xpm
<< bmK={K;karte}; bmK.init=ii; bmK.land=ll; >>
}
bmL={
pics=bmKarten.xpm,bmStrich.xpm
<< bmL={L;karte}; bmL.init=ii; bmL.land=ll; >>
}
bmM={
pics=bmKarten.xpm,bmStrich.xpm
<< bmM={M;karte}; bmM.init=ii; bmM.land=ll; >>
}
bmN={
pics=bmKarten.xpm,bmStrich.xpm
<< bmN={N;karte}; bmN.init=ii; bmN.land=ll; >>
}
bmO={
pics=bmKarten.xpm,bmStrich.xpm
<< bmO={O;karte}; bmO.init=ii; bmO.land=ll; >>
}
}
|
