|
1 (* |
|
2 * Hedgewars, a worms-like game |
|
3 * Copyright (c) 2005, 2006 Andrey Korotaev <unC0Rr@gmail.com> |
|
4 * |
|
5 * Distributed under the terms of the BSD-modified licence: |
|
6 * |
|
7 * Permission is hereby granted, free of charge, to any person obtaining a copy |
|
8 * of this software and associated documentation files (the "Software"), to deal |
|
9 * with the Software without restriction, including without limitation the |
|
10 * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or |
|
11 * sell copies of the Software, and to permit persons to whom the Software is |
|
12 * furnished to do so, subject to the following conditions: |
|
13 * |
|
14 * 1. Redistributions of source code must retain the above copyright notice, |
|
15 * this list of conditions and the following disclaimer. |
|
16 * 2. Redistributions in binary form must reproduce the above copyright notice, |
|
17 * this list of conditions and the following disclaimer in the documentation |
|
18 * and/or other materials provided with the distribution. |
|
19 * 3. The name of the author may not be used to endorse or promote products |
|
20 * derived from this software without specific prior written permission. |
|
21 * |
|
22 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED |
|
23 * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF |
|
24 * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO |
|
25 * EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
|
26 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, |
|
27 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; |
|
28 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, |
|
29 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR |
|
30 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF |
|
31 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|
32 *) |
|
33 |
1 unit uLandTemplates; |
34 unit uLandTemplates; |
2 interface |
35 interface |
3 uses SDLh; |
36 uses SDLh; |
4 {$INCLUDE options.inc} |
37 {$INCLUDE options.inc} |
5 |
38 |
262 (x: 1875; y: 621), |
292 (x: 1875; y: 621), |
263 (x: 1683; y: 747), |
293 (x: 1683; y: 747), |
264 (x: 1665; y: 831), |
294 (x: 1665; y: 831), |
265 (x: 1818; y: 951), |
295 (x: 1818; y: 951), |
266 (x: 1893; y: 1476) |
296 (x: 1893; y: 1476) |
267 ); |
297 ); |
268 Template7FPoints: array[0..1] of TPoint = |
298 Template7FPoints: array[0..0] of TPoint = |
269 ( |
299 ( |
270 (x: 630; y: 1023), |
300 (x: 1023; y: 0) |
271 (x:1655; y: 1023) |
301 ); |
272 ); |
302 |
273 |
303 const Template8Points: array[0..23] of TPoint = |
274 const EdgeTemplates: array[0..7] of TEdgeTemplate = |
304 ( |
|
305 (x: 222; y: 1482), |
|
306 (x: 354; y: 1023), |
|
307 (x: 249; y: 783), |
|
308 (x: 240; y: 421), |
|
309 (x: 411; y: 401), |
|
310 (x: 432; y: 777), |
|
311 (x: 573; y: 777), |
|
312 (x: 567; y: 300), |
|
313 (x: 696; y: 250), |
|
314 (x: 744; y: 683), |
|
315 (x: 897; y: 698), |
|
316 (x: 885; y: 450), |
|
317 (x: 1032; y: 479), |
|
318 (x: 1065; y: 698), |
|
319 (x: 1200; y: 690), |
|
320 (x: 1200; y: 218), |
|
321 (x: 1326; y: 252), |
|
322 (x: 1359; y: 786), |
|
323 (x: 1470; y: 810), |
|
324 (x: 1485; y: 379), |
|
325 (x: 1608; y: 342), |
|
326 (x: 1641; y: 819), |
|
327 (x: 1719; y: 864), |
|
328 (x: 1746; y: 1440) ); |
|
329 Template8FPoints: array[0..0] of TPoint = |
|
330 ( |
|
331 (x: 1023; y: 0) |
|
332 ); |
|
333 |
|
334 const EdgeTemplates: array[0..8] of TEdgeTemplate = |
275 ( |
335 ( |
276 (BasePoints: @Template0Points; |
336 (BasePoints: @Template0Points; |
277 BasePointsCount: Succ(High(Template0Points)); |
337 BasePointsCount: Succ(High(Template0Points)); |
278 BezPassCnt: 4; |
338 BezPassCnt: 4; |
279 PassMin: 10; PassDelta: 5; |
339 PassMin: 10; PassDelta: 5; |
350 WaveAmplMin: 5; WaveAmplDelta: 15; |
410 WaveAmplMin: 5; WaveAmplDelta: 15; |
351 WaveFreqMin: 0.015; WaveFreqDelta: 0.002; |
411 WaveFreqMin: 0.015; WaveFreqDelta: 0.002; |
352 FillPoints: @Template7FPoints; |
412 FillPoints: @Template7FPoints; |
353 FillPointsCount: Succ(High(Template7FPoints)); |
413 FillPointsCount: Succ(High(Template7FPoints)); |
354 canMirror: true; canFlip: false; |
414 canMirror: true; canFlip: false; |
|
415 ), |
|
416 (BasePoints: @Template8Points; |
|
417 BasePointsCount: Succ(High(Template8Points)); |
|
418 BezPassCnt: 4; |
|
419 PassMin: 9; PassDelta: 3; |
|
420 WaveAmplMin: 18; WaveAmplDelta: 18; |
|
421 WaveFreqMin: 0.010; WaveFreqDelta: 0.002; |
|
422 FillPoints: @Template8FPoints; |
|
423 FillPointsCount: Succ(High(Template8FPoints)); |
|
424 canMirror: true; canFlip: false; |
355 ) |
425 ) |
356 |
|
357 ); |
426 ); |
358 |
427 |
359 |
428 |
360 |
429 |
361 implementation |
430 implementation |