← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/enigma/intrepid

« back to all changes in this revision

Viewing changes to data/levels/nat18.lua

  • Committer: Bazaar Package Importer
  • Author(s): Erich Schubert
  • Date: 2005-08-28 15:30:09 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20050828153009-sky64kb6tcq37xt5
Tags: 0.92.1-1
http://bugs.debian.org/321669
http://bugs.debian.org/325405
http://bugs.debian.org/308558
* New upstream subversion checkout
* Remove menu.s3m, which we are allowed to distributed but not to modify
  also copyright notice is confusing... (Closes: #321669)
* Rebuild with new libzipios (Closes: #325405)
  I hope this works without a versioned build-dependency
* Added "enigma replaces enigma-data" for upgrades (Closes: #308558)
* Added notes about the fonts copyright.
* updated to policy 3.6.2.1 (no changes)

Show diffs side-by-side

added added

removed removed

Lines of Context:
data/levels/nat18.lua
1
 
--
2
 
 
3
 
create_world( 20, 13 )
4
 
fill_floor( "fl-leaves" )
5
 
draw_border( "st-glass1" )
6
 
 
7
 
set_item( "it-hollow", 2, 2 )
8
 
set_item( "it-hollow", 2, 4 )
9
 
set_item( "it-hollow", 2, 6 )
10
 
set_item( "it-hollow", 2, 8 )
11
 
set_item( "it-hollow", 2, 10 )
12
 
set_item( "it-hollow", 4, 2 )
13
 
set_item( "it-hollow", 6, 2 )
14
 
set_item( "it-hollow", 8, 2 )
15
 
set_item( "it-hollow", 4, 10 )
16
 
set_item( "it-hollow", 6, 10 )
17
 
set_item( "it-hollow", 8, 10 )
18
 
set_item( "it-hollow", 10, 2 )
19
 
set_item( "it-hollow", 10, 4 )
20
 
set_item( "it-hollow", 10, 6 )
21
 
set_item( "it-hollow", 10, 8 )
22
 
set_item( "it-hollow", 10, 10 )
23
 
 
24
 
 
25
 
CENTER_X = 15
26
 
CENTER_Y = 6.5
27
 
RADIUS = 2
28
 
BALL_COUNT = 16
29
 
BAND_STRENGTH = 16
30
 
BAND_LENGTH = 2*RADIUS*sin(360/(2*BALL_COUNT))
31
 
 
32
 
last_ball = nil
33
 
first_ball = nil
34
 
for theta=0,359,360/BALL_COUNT do
35
 
    x = CENTER_X + RADIUS*cos(theta)
36
 
    y = CENTER_Y + RADIUS*sin(theta)
37
 
    
38
 
    new_ball = set_actor( "ac-whiteball-small", x, y, {player=0} )
39
 
    if last_ball then
40
 
        AddRubberBand( last_ball, new_ball, BAND_STRENGTH, BAND_LENGTH )
41
 
    else
42
 
        first_ball = new_ball
43
 
    end
44
 
    last_ball = new_ball
45
 
end
46
 
AddRubberBand( last_ball, first_ball, BAND_STRENGTH, BAND_LENGTH )