← Back to branch summary

~ubuntu-branches/ubuntu/saucy/cuyo/saucy

« back to all changes in this revision

Viewing changes to data/dungeon.ld

  • Committer: Bazaar Package Importer
  • Author(s): Angel Abad
  • Date: 2010-07-19 09:54:44 UTC
  • mfrom: (4.1.3 sid)
  • Revision ID: james.westby@ubuntu.com-20100719095444-ecoegzo1vvvdwra9
Tags: 2.~-1.1.brl3-1ubuntu1
https://launchpad.net/bugs/607106
* Merge from debian unstable (LP: #607106). Remaining changes:
  - Don't register MimeType=application/x-executable in
    the .desktop file.
  - Remove UTF-8 in the .desktop file
  - 

Show diffs side-by-side

added added

removed removed

Lines of Context:
data/dungeon.ld
1
 
#
2
 
#   Copyright 2006 by Mark Weyer
3
 
#
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.
8
 
#
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.
13
 
#
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
17
 
#
18
 
 
19
 
 
20
 
 
21
 
Dungeon = {
22
 
 
23
 
  farben = 5           # Z�hlt nur die normalen Farben
24
 
  rand = <farben>
25
 
  gold = <farben+1>
26
 
  dateien = 12         # Genauer: Dateien pro Farbe
27
 
  linksoben = 1
28
 
  rechtsoben = 2
29
 
  linksunten = 4
30
 
  rechtsunten = 8
31
 
 
32
 
  name = "Dungeon"
33
 
  name[de] = "Dungeon"
34
 
  author = "Mark Weyer"
35
 
  pics = Wand * <farben>
36
 
  greypic = Gold
37
 
  emptypic = Leer
38
 
  startpic = Bildschirm
39
 
  startdist = "...AAAA...","...AAAA...","...AAAA...","...AAAA..."
40
 
  numexplode = 5
41
 
  neighbours = <neighbours_eight>
42
 
  randomgreys[1] = 300
43
 
  falling_speed = 3
44
 
 
45
 
  bgcolor = 0,0,0
46
 
  top_color = 32,32,32
47
 
 
48
 
  <<
49
 
    var farbe=rand;
50
 
    var besetzt=15;         # Bitfeld mit Mauerinformation
51
 
    var xp,yp,xv,yv,xr,yr;  # p: Position.
52
 
                            # v und r: Vektor nach vorne und nach rechts
53
 
 
54
 
    besetzt_test = {
55
 
      # Rein: xp und yp
56
 
      # Raus: besetzt.
57
 
      # Semantik: ist diese Position besetzt?
58
 
      besetzt = besetzt@@(xp/2,yp/2).((1+(xp%2))*(1+3*(yp%2)));
59
 
    };
60
 
 
61
 
    besetzt_gold_test = {
62
 
      besetzt_test;
63
 
      if besetzt && farbe@@(xp/2,yp/2)==gold -> {
64
 
        # Wir k�nnen doch hin und wir r�umen das Gold ab
65
 
        besetzt = 0;
66
 
        besetzt@@(xp/2,yp/2) = 0;
67
 
        bonus(20);
68
 
      };
69
 
    };
70
 
 
71
 
    semiglobal.init = {xp=5; yp=39; xv=0; yv=-1; xr=1; yr=0;};
72
 
 
73
 
    semiglobal.keyleft = {xv@@=-xr; yv@@=-yr; xr@@=xv; yr@@=yv;};
74
 
    semiglobal.keyright = {xv@@=xr; yv@@=yr; xr@@=-xv; yr@@=-yv;};
75
 
 
76
 
    semiglobal.keyturn = {
77
 
      xp+=xv; yp+=yv; besetzt_gold_test;
78
 
      if besetzt -> {xp-=xv; yp-=yv;};
79
 
    };
80
 
 
81
 
    semiglobal.keyfall = {
82
 
      xp-=xv; yp-=yv; besetzt_gold_test;
83
 
      if besetzt -> {xp+=xv; yp+=yv;};
84
 
    };
85
 
  >>
86
 
 
87
 
  Wand = {
88
 
    pics = mdZiegel.xpm, mdStein.xpm, mdHolz.xpm, mdFels.xpm, mdEisen.xpm
89
 
    versions = 3
90
 
 
91
 
    <<
92
 
      Wand.init = {
93
 
        farbe = kind-Wand;
94
 
        switch {
95
 
          version==0 -> {
96
 
            besetzt = linksoben+linksunten;
97
 
            inhibit = DIR_R+DIR_UR+DIR_DR;
98
 
          };
99
 
          version==1 -> {
100
 
            besetzt = linksoben+rechtsoben;
101
 
            inhibit = DIR_D+DIR_DR+DIR_DL;
102
 
          };
103
 
          version==2 -> {
104
 
            besetzt = rechtsoben+rechtsunten;
105
 
            inhibit = DIR_L+DIR_UL+DIR_DL;
106
 
          };
107
 
        };
108
 
      };
109
 
 
110
 
      Wand = {
111
 
        file = kind-Wand;
112
 
        pos = version;
113
 
        *;
114
 
      };
115
 
    >>
116
 
  }
117
 
 
118
 
  Gold = {
119
 
    pics = mdGold.xpm
120
 
    versions = 4
121
 
    <<
122
 
      Gold.init = {
123
 
        farbe = gold;
124
 
        switch {
125
 
          version==0 -> {besetzt = linksoben;};
126
 
          version==1 -> {besetzt = rechtsoben;};
127
 
          version==2 -> {besetzt = linksunten;};
128
 
          version==3 -> {besetzt = rechtsunten;};
129
 
        };
130
 
      };
131
 
 
132
 
      Gold = {
133
 
        if besetzt!=0 -> {pos=version;*;}
134
 
        else -> if loc_x!=xp@@/2 -> kind=Leer;
135
 
      };
136
 
    >>    
137
 
  }
138
 
 
139
 
  Leer = {<< default besetzt=0:reapply; >>}
140
 
 
141
 
  Bildschirm = {
142
 
    pics = mdPlastik.xpm,
143
 
      mdZiegel00.xpm, mdZiegel01.xpm, mdZiegel02.xpm, mdZiegel03.xpm,
144
 
      mdZiegel04.xpm, mdZiegel05.xpm, mdZiegel06.xpm, mdZiegel07.xpm,
145
 
      mdZiegel08.xpm, mdZiegel09.xpm, mdZiegel10.xpm, mdZiegel11.xpm,
146
 
 
147
 
      mdStein00.xpm, mdStein01.xpm, mdStein02.xpm, mdStein03.xpm,
148
 
      mdStein04.xpm, mdStein05.xpm, mdStein06.xpm, mdStein07.xpm,
149
 
      mdStein08.xpm, mdStein09.xpm, mdStein10.xpm, mdStein11.xpm,
150
 
 
151
 
      mdHolz00.xpm, mdHolz01.xpm, mdHolz02.xpm, mdHolz03.xpm,
152
 
      mdHolz04.xpm, mdHolz05.xpm, mdHolz06.xpm, mdHolz07.xpm,
153
 
      mdHolz08.xpm, mdHolz09.xpm, mdHolz10.xpm, mdHolz11.xpm,
154
 
 
155
 
      mdFels00.xpm, mdFels01.xpm, mdFels02.xpm, mdFels03.xpm,
156
 
      mdFels04.xpm, mdFels05.xpm, mdFels06.xpm, mdFels07.xpm,
157
 
      mdFels08.xpm, mdFels09.xpm, mdFels10.xpm, mdFels11.xpm,
158
 
 
159
 
      mdEisen00.xpm, mdEisen01.xpm, mdEisen02.xpm, mdEisen03.xpm,
160
 
      mdEisen04.xpm, mdEisen05.xpm, mdEisen06.xpm, mdEisen07.xpm,
161
 
      mdEisen08.xpm, mdEisen09.xpm, mdEisen10.xpm, mdEisen11.xpm,
162
 
 
163
 
      mdPlastik00.xpm, mdPlastik01.xpm, mdPlastik02.xpm, mdPlastik03.xpm,
164
 
      mdPlastik04.xpm, mdPlastik05.xpm, mdPlastik06.xpm, mdPlastik07.xpm,
165
 
      mdPlastik08.xpm, mdPlastik09.xpm, mdPlastik10.xpm, mdPlastik11.xpm,
166
 
 
167
 
      mdGold00.xpm, mdGold01.xpm, mdGold02.xpm, mdGold03.xpm,
168
 
      mdGold04.xpm, mdGold05.xpm, mdGold06.xpm, mdGold07.xpm,
169
 
      mdGold08.xpm, mdGold09.xpm, mdGold10.xpm, mdGold11.xpm,
170
 
 
171
 
      mdBoden00.xpm, mdBoden01.xpm, mdBoden02.xpm, mdBoden03.xpm,
172
 
      mdBoden04.xpm, mdBoden05.xpm, mdBoden06.xpm, mdBoden07.xpm,
173
 
      mdBoden08.xpm, mdBoden09.xpm, mdBoden10.xpm, mdBoden11.xpm,
174
 
      mdBoden12.xpm, mdBoden13.xpm, mdBoden14.xpm, mdBoden15.xpm
175
 
    <<
176
 
      var xx,yy;
177
 
 
178
 
      Bildschirm = {
179
 
        xx = (loc_x-3)%4;
180
 
        yy = loc_y%4;
181
 
        if yy>=2 -> {
182
 
          pos = xx+4*yy-8;
183
 
          file = 5+(farben+2)*dateien + xp@@%2 - 2*(yp@@%2)
184
 
            + 2*(xv@@-xr@@) + 8*(xv@@!=0);
185
 
          *;
186
 
        };
187
 
        if yy>=1 -> {
188
 
          pos=xx+4*yy-4;
189
 
          if yy<3 -> switch { # Reihe 5
190
 
            xx==0 -> {
191
 
              xp=xp@@+xv@@*5-xr@@*5; yp=yp@@+yv@@*5-yr@@*5; besetzt_test;
192
 
              if besetzt -> {
193
 
                file=farbe@@(xp/2,yp/2)*dateien+10;
194
 
                [qu=Q_TL] *; [qu=Q_BL] *;
195
 
              };
196
 
              xp+=xr@@; yp+=yr@@; besetzt_test;
197
 
              if besetzt -> {
198
 
                file=farbe@@(xp/2,yp/2)*dateien+11;
199
 
                *;
200
 
              };
201
 
              xp+=xr@@; yp+=yr@@; besetzt_test;
202
 
              if besetzt -> {
203
 
                file=farbe@@(xp/2,yp/2)*dateien+12;
204
 
                *;
205
 
              };
206
 
              xp+=xr@@; yp+=yr@@; besetzt_test;
207
 
              if besetzt -> {
208
 
                file=farbe@@(xp/2,yp/2)*dateien+10;
209
 
                [qu=Q_TR] *; [qu=Q_BR] *;
210
 
              };
211
 
            };
212
 
            xx==1 -> {
213
 
              xp=xp@@+xv@@*5-xr@@*2; yp=yp@@+yv@@*5-yr@@*2; besetzt_test;
214
 
              if besetzt -> {
215
 
                file=farbe@@(xp/2,yp/2)*dateien+10;
216
 
                [qu=Q_TL] *; [qu=Q_BL] *;
217
 
              };
218
 
              xp+=xr@@; yp+=yr@@; besetzt_test;
219
 
              if besetzt -> {
220
 
                file=farbe@@(xp/2,yp/2)*dateien+11;
221
 
                *;
222
 
              };
223
 
              xp+=xr@@; yp+=yr@@; besetzt_test;
224
 
              if besetzt -> {
225
 
                file=farbe@@(xp/2,yp/2)*dateien+10;
226
 
                [qu=Q_TR] *; [qu=Q_BR] *;
227
 
              };
228
 
            };
229
 
            xx==2 -> {
230
 
              xp=xp@@+xv@@*5+xr@@*2; yp=yp@@+yv@@*5+yr@@*2; besetzt_test;
231
 
              if besetzt -> {
232
 
                file=farbe@@(xp/2,yp/2)*dateien+10;
233
 
                [qu=Q_TR] *; [qu=Q_BR] *;
234
 
              };
235
 
              xp-=xr@@; yp-=yr@@; besetzt_test;
236
 
              if besetzt -> {
237
 
                file=farbe@@(xp/2,yp/2)*dateien+12;
238
 
                *;
239
 
              };
240
 
              xp-=xr@@; yp-=yr@@; besetzt_test;
241
 
              if besetzt -> {
242
 
                file=farbe@@(xp/2,yp/2)*dateien+10;
243
 
                [qu=Q_TL] *; [qu=Q_BL] *;
244
 
              };
245
 
            };
246
 
            xx==3 -> {
247
 
              xp=xp@@+xv@@*5+xr@@*5; yp=yp@@+yv@@*5+yr@@*5; besetzt_test;
248
 
              if besetzt -> {
249
 
                file=farbe@@(xp/2,yp/2)*dateien+10;
250
 
                [qu=Q_TR] *; [qu=Q_BR] *;
251
 
              };
252
 
              xp-=xr@@; yp-=yr@@; besetzt_test;
253
 
              if besetzt -> {
254
 
                file=farbe@@(xp/2,yp/2)*dateien+12;
255
 
                *;
256
 
              };
257
 
              xp-=xr@@; yp-=yr@@; besetzt_test;
258
 
              if besetzt -> {
259
 
                file=farbe@@(xp/2,yp/2)*dateien+11;
260
 
                *;
261
 
              };
262
 
              xp-=xr@@; yp-=yr@@; besetzt_test;
263
 
              if besetzt -> {
264
 
                file=farbe@@(xp/2,yp/2)*dateien+10;
265
 
                [qu=Q_TL] *; [qu=Q_BL] *;
266
 
              };
267
 
            };
268
 
          };
269
 
 
270
 
          switch { # Reihen 4 und 3
271
 
            xx==0 -> {
272
 
              xp=xp@@+xv@@*4-xr@@*4; yp=yp@@+yv@@*4-yr@@*4; besetzt_test;
273
 
              if besetzt -> {
274
 
                file=farbe@@(xp/2,yp/2)*dateien+8;
275
 
                [qu=Q_TL] *; [qu=Q_BL] *;
276
 
              };
277
 
              xp+=xr@@; yp+=yr@@; besetzt_test;
278
 
              if besetzt -> {
279
 
                file=farbe@@(xp/2,yp/2)*dateien+9;
280
 
                *;
281
 
              };
282
 
              xp+=xr@@; yp+=yr@@; besetzt_test;
283
 
              if besetzt -> {
284
 
                file=farbe@@(xp/2,yp/2)*dateien+8;
285
 
                [qu=Q_TR] *; [qu=Q_BR] *;
286
 
              };
287
 
 
288
 
              xp=xp@@+xv@@*3-xr@@*3; yp=yp@@+yv@@*3-yr@@*3; besetzt_test;
289
 
              if besetzt -> {
290
 
                file=farbe@@(xp/2,yp/2)*dateien+5;
291
 
                *;
292
 
              };
293
 
              xp+=xr@@; yp+=yr@@; besetzt_test;
294
 
              if besetzt -> {
295
 
                file=farbe@@(xp/2,yp/2)*dateien+6;
296
 
                *;
297
 
              };
298
 
              xp+=xr@@; yp+=yr@@; besetzt_test;
299
 
              if besetzt -> {
300
 
                file=farbe@@(xp/2,yp/2)*dateien+7;
301
 
                *;
302
 
              };
303
 
            };
304
 
            xx==1 -> {
305
 
              xp=xp@@+xv@@*4-xr@@*2; yp=yp@@+yv@@*4-yr@@*2; besetzt_test;
306
 
              if besetzt -> {
307
 
                file=farbe@@(xp/2,yp/2)*dateien+8;
308
 
                [qu=Q_TL] *; [qu=Q_BL] *;
309
 
              };
310
 
              xp+=xr@@; yp+=yr@@; besetzt_test;
311
 
              if besetzt -> {
312
 
                file=farbe@@(xp/2,yp/2)*dateien+9;
313
 
                *;
314
 
              };
315
 
              xp+=xr@@; yp+=yr@@; besetzt_test;
316
 
              if besetzt -> {
317
 
                file=farbe@@(xp/2,yp/2)*dateien+8;
318
 
                [qu=Q_TR] *; [qu=Q_BR] *;
319
 
              };
320
 
 
321
 
              xp=xp@@+xv@@*3-xr@@*2; yp=yp@@+yv@@*3-yr@@*2; besetzt_test;
322
 
              if besetzt -> {
323
 
                file=farbe@@(xp/2,yp/2)*dateien+6;
324
 
                *;
325
 
              };
326
 
              xp+=xr@@; yp+=yr@@; besetzt_test;
327
 
              if besetzt -> {
328
 
                file=farbe@@(xp/2,yp/2)*dateien+7;
329
 
                *;
330
 
              };
331
 
              xp+=xr@@; yp+=yr@@; besetzt_test;
332
 
              if besetzt -> {
333
 
                file=farbe@@(xp/2,yp/2)*dateien+5;
334
 
                *;
335
 
              };
336
 
            };
337
 
            xx==2 -> {
338
 
              xp=xp@@+xv@@*4+xr@@*2; yp=yp@@+yv@@*4+yr@@*2; besetzt_test;
339
 
              if besetzt -> {
340
 
                file=farbe@@(xp/2,yp/2)*dateien+8;
341
 
                [qu=Q_TR] *; [qu=Q_BR] *;
342
 
              };
343
 
              xp-=xr@@; yp-=yr@@; besetzt_test;
344
 
              if besetzt -> {
345
 
                file=farbe@@(xp/2,yp/2)*dateien+9;
346
 
                *;
347
 
              };
348
 
              xp-=xr@@; yp-=yr@@; besetzt_test;
349
 
              if besetzt -> {
350
 
                file=farbe@@(xp/2,yp/2)*dateien+8;
351
 
                [qu=Q_TL] *; [qu=Q_BL] *;
352
 
              };
353
 
 
354
 
              xp=xp@@+xv@@*3+xr@@*2; yp=yp@@+yv@@*3+yr@@*2; besetzt_test;
355
 
              if besetzt -> {
356
 
                file=farbe@@(xp/2,yp/2)*dateien+7;
357
 
                *;
358
 
              };
359
 
              xp-=xr@@; yp-=yr@@; besetzt_test;
360
 
              if besetzt -> {
361
 
                file=farbe@@(xp/2,yp/2)*dateien+6;
362
 
                *;
363
 
              };
364
 
              xp-=xr@@; yp-=yr@@; besetzt_test;
365
 
              if besetzt -> {
366
 
                file=farbe@@(xp/2,yp/2)*dateien+5;
367
 
                *;
368
 
              };
369
 
            };
370
 
            xx==3 -> {
371
 
              xp=xp@@+xv@@*4+xr@@*4; yp=yp@@+yv@@*4+yr@@*4; besetzt_test;
372
 
              if besetzt -> {
373
 
                file=farbe@@(xp/2,yp/2)*dateien+8;
374
 
                [qu=Q_TR] *; [qu=Q_BR] *;
375
 
              };
376
 
              xp-=xr@@; yp-=yr@@; besetzt_test;
377
 
              if besetzt -> {
378
 
                file=farbe@@(xp/2,yp/2)*dateien+9;
379
 
                *;
380
 
              };
381
 
              xp-=xr@@; yp-=yr@@; besetzt_test;
382
 
              if besetzt -> {
383
 
                file=farbe@@(xp/2,yp/2)*dateien+8;
384
 
                [qu=Q_TL] *; [qu=Q_BL] *;
385
 
              };
386
 
 
387
 
              xp=xp@@+xv@@*3+xr@@*3; yp=yp@@+yv@@*3+yr@@*3; besetzt_test;
388
 
              if besetzt -> {
389
 
                file=farbe@@(xp/2,yp/2)*dateien+5;
390
 
                *;
391
 
              };
392
 
              xp-=xr@@; yp-=yr@@; besetzt_test;
393
 
              if besetzt -> {
394
 
                file=farbe@@(xp/2,yp/2)*dateien+7;
395
 
                *;
396
 
              };
397
 
              xp-=xr@@; yp-=yr@@; besetzt_test;
398
 
              if besetzt -> {
399
 
                file=farbe@@(xp/2,yp/2)*dateien+6;
400
 
                *;
401
 
              };
402
 
            };
403
 
          };
404
 
        };
405
 
 
406
 
        pos=xx+4*yy;
407
 
        switch { # Reihen 2 und 1
408
 
          xx==0 -> {
409
 
            xp=xp@@+xv@@*2-xr@@*2; yp=yp@@+yv@@*2-yr@@*2; besetzt_test;
410
 
            if besetzt -> {
411
 
              file=farbe@@(xp/2,yp/2)*dateien+3;
412
 
              *;
413
 
            };
414
 
            xp+=xr@@; yp+=yr@@; besetzt_test;
415
 
            if besetzt -> {
416
 
              file=farbe@@(xp/2,yp/2)*dateien+4;
417
 
              *;
418
 
            };
419
 
 
420
 
            xp=xp@@+xv@@-xr@@; yp=yp@@+yv@@-yr@@; besetzt_test;
421
 
            if besetzt -> {
422
 
              file=farbe@@(xp/2,yp/2)*dateien+2;
423
 
              *;
424
 
            };
425
 
            xp+=xr@@; yp+=yr@@; besetzt_test;
426
 
            if besetzt -> {
427
 
              file=farbe@@(xp/2,yp/2)*dateien+1;
428
 
              *;
429
 
            };
430
 
          };
431
 
          xx==1 -> {
432
 
            xp=xp@@+xv@@*2-xr@@; yp=yp@@+yv@@*2-yr@@; besetzt_test;
433
 
            if besetzt -> {
434
 
              file=farbe@@(xp/2,yp/2)*dateien+4;
435
 
              *;
436
 
            };
437
 
            xp+=xr@@; yp+=yr@@; besetzt_test;
438
 
            if besetzt -> {
439
 
              file=farbe@@(xp/2,yp/2)*dateien+3;
440
 
              *;
441
 
            };
442
 
 
443
 
            xp=xp@@+xv@@-xr@@; yp=yp@@+yv@@-yr@@; besetzt_test;
444
 
            if besetzt -> {
445
 
              file=farbe@@(xp/2,yp/2)*dateien+2;
446
 
              *;
447
 
            };
448
 
            xp+=xr@@; yp+=yr@@; besetzt_test;
449
 
            if besetzt -> {
450
 
              file=farbe@@(xp/2,yp/2)*dateien+1;
451
 
              *;
452
 
            };
453
 
          };
454
 
          xx==2 -> {
455
 
            xp=xp@@+xv@@*2+xr@@; yp=yp@@+yv@@*2+yr@@; besetzt_test;
456
 
            if besetzt -> {
457
 
              file=farbe@@(xp/2,yp/2)*dateien+4;
458
 
              *;
459
 
            };
460
 
            xp-=xr@@; yp-=yr@@; besetzt_test;
461
 
            if besetzt -> {
462
 
              file=farbe@@(xp/2,yp/2)*dateien+3;
463
 
              *;
464
 
            };
465
 
 
466
 
            xp=xp@@+xv@@+xr@@; yp=yp@@+yv@@+yr@@; besetzt_test;
467
 
            if besetzt -> {
468
 
              file=farbe@@(xp/2,yp/2)*dateien+2;
469
 
              *;
470
 
            };
471
 
            xp-=xr@@; yp-=yr@@; besetzt_test;
472
 
            if besetzt -> {
473
 
              file=farbe@@(xp/2,yp/2)*dateien+1;
474
 
              *;
475
 
            };
476
 
          };
477
 
          xx==3 -> {
478
 
            xp=xp@@+xv@@*2+xr@@*2; yp=yp@@+yv@@*2+yr@@*2; besetzt_test;
479
 
            if besetzt -> {
480
 
              file=farbe@@(xp/2,yp/2)*dateien+3;
481
 
              *;
482
 
            };
483
 
            xp-=xr@@; yp-=yr@@; besetzt_test;
484
 
            if besetzt -> {
485
 
              file=farbe@@(xp/2,yp/2)*dateien+4;
486
 
              *;
487
 
            };
488
 
 
489
 
            xp=xp@@+xv@@+xr@@; yp=yp@@+yv@@+yr@@; besetzt_test;
490
 
            if besetzt -> {
491
 
              file=farbe@@(xp/2,yp/2)*dateien+2;
492
 
              *;
493
 
            };
494
 
            xp-=xr@@; yp-=yr@@; besetzt_test;
495
 
            if besetzt -> {
496
 
              file=farbe@@(xp/2,yp/2)*dateien+1;
497
 
              *;
498
 
            };
499
 
          };
500
 
        };
501
 
 
502
 
        besetzt = 15;
503
 
 
504
 
        # Rahmen malen
505
 
        file=0;
506
 
        qu=Q_TL;
507
 
        if kind@(-1,0)==kind
508
 
        -> if kind@(0,-1)==kind
509
 
          -> {if kind@(-1,-1)!=kind -> D*;}
510
 
          else B*
511
 
        else if kind@(0,-1)==kind
512
 
          -> C*
513
 
          else A*;
514
 
        qu=Q_TR;
515
 
        if kind@(1,0)==kind
516
 
        -> if kind@(0,-1)==kind
517
 
          -> {if kind@(1,-1)!=kind -> C*;}
518
 
          else A*
519
 
        else if kind@(0,-1)==kind
520
 
          -> D*
521
 
          else B*;
522
 
        qu=Q_BL;
523
 
        if kind@(-1,0)==kind
524
 
        -> if kind@(0,1)==kind
525
 
          -> {if kind@(-1,1)!=kind -> B*;}
526
 
          else D*
527
 
        else if kind@(0,1)==kind
528
 
          -> A*
529
 
          else C*;
530
 
        qu=Q_BR;
531
 
        if kind@(1,0)==kind
532
 
        -> if kind@(0,1)==kind
533
 
          -> {if kind@(1,1)!=kind -> A*;}
534
 
          else C*
535
 
        else if kind@(0,1)==kind
536
 
          -> B*
537
 
          else D*;
538
 
      };
539
 
    >>
540
 
  }
541
 
 
542
 
}
543