← Back to branch summary

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

« back to all changes in this revision

Viewing changes to data/levels/duffy106.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/duffy106.lua
1
 
 
2
 
rooms_wide=1
3
 
rooms_high=1
4
 
 
5
 
levelw=1+(19*rooms_wide)
6
 
levelh=1+(12*rooms_high)
7
 
 
8
 
create_world( levelw, levelh)
9
 
enigma.SlopeForce=18.5
10
 
 
11
 
fill_floor("fl-metal", 0,0,levelw,levelh)
12
 
 
13
 
function renderLine( line, pattern)
14
 
        for i=1, strlen(pattern) do
15
 
                local c = strsub( pattern, i, i)
16
 
                if c =="#" then
17
 
                        set_stone( "st-greenbrown", i-1, line)
18
 
                elseif c =="Q" then
19
 
                   set_stone( "st-blue-sand", i-1, line,{name="b1"})
20
 
                elseif c == "o" then
21
 
                        oxyd( i-1, line)
22
 
                        abyss(i-1,line)
23
 
                elseif c == "*" then
24
 
                        set_stone( "st-brownie", i-1, line)
25
 
                elseif c == "!" then
26
 
                        abyss(i-1,line)
27
 
                elseif c == "~" then
28
 
                   set_floor("fl-water",i-1,line)
29
 
                elseif c=="z" then
30
 
                   set_actor("ac-blackball", i-.5,line+.5, {player=0})
31
 
                        set_floor("fl-gradient",  i-1,  line, {type=4})
32
 
                elseif c=="y" then
33
 
                   set_actor("ac-whiteball", i-1,line+.5, {player=1})
34
 
                elseif c=="A" then
35
 
                   set_actor("ac-rotor", i-.5,line+.5, {range=0,force=0,player=1,name="r1"})
36
 
                        set_floor("fl-gradient",  i-1,  line, {type=3})
37
 
                elseif c=="B" then
38
 
                   set_actor("ac-rotor", i-.5,line+.5, {range=0,force=0,player=1,name="r2"})
39
 
                        set_floor("fl-gradient",  i-1,  line, {type=3})
40
 
                elseif c=="C" then
41
 
                   set_actor("ac-rotor", i-.5,line+.5, {range=0,force=0,player=1,name="r3"})
42
 
                        set_floor("fl-gradient",  i-1,  line, {type=3})
43
 
                elseif c=="D" then
44
 
                   set_actor("ac-rotor", i-.5,line+.5, {range=0,force=0,player=1,name="r4"})
45
 
                        set_floor("fl-gradient",  i-1,  line, {type=3})
46
 
                elseif c=="E" then
47
 
                   set_actor("ac-rotor", i-.5,line+.5, {range=0,force=0,player=1,name="r5"})
48
 
                        set_floor("fl-gradient",  i-1,  line, {type=3})
49
 
                elseif c == "g" then
50
 
                        draw_stones("st-grate1",{i-1,line}, {1,1}, 1)
51
 
                elseif c=="+" then
52
 
                        set_stone( "st-wood", i-1, line)
53
 
                elseif c=="=" then
54
 
                        set_floor("fl-space",i-1,line)
55
 
                elseif c == "d" then --1-d
56
 
                        set_floor("fl-gradient",  i-1,  line, {type=1})
57
 
                elseif c == "u" then --2-u
58
 
                        set_floor("fl-gradient",  i-1,  line, {type=2})
59
 
                elseif c == "r" then --3-r
60
 
                        set_floor("fl-gradient",  i-1,  line, {type=3})
61
 
                elseif c == "l" then --4-l
62
 
                        set_floor("fl-gradient",  i-1,  line, {type=4})
63
 
                elseif c == "1" then --ur
64
 
                        set_floor("fl-gradient",  i-1,  line, {type=11})
65
 
                elseif c == "3" then --dl
66
 
                        set_floor("fl-gradient",  i-1,  line, {type=9})
67
 
                elseif c == "7" then --dr
68
 
                        set_floor("fl-gradient",  i-1,  line, {type=12})
69
 
                elseif c == "9" then --ul
70
 
                        set_floor("fl-gradient",  i-1,  line, {type=10})
71
 
             end
72
 
        end     
73
 
end
74
 
 
75
 
renderLine(00,"!!!!!!!o!o!o!o!!!!!!")
76
 
renderLine(01,"!!!!!!!rrrErrr!!!!!!")
77
 
renderLine(02,"!!!!!!9rrrDrrr3!!!!!")
78
 
renderLine(03,"!!!!ouu9rrCrr3ddo!!!")
79
 
renderLine(04,"!!!!!uuu9rBr3ddd!!!!")
80
 
renderLine(05,"!!!!ouuuu9A3ddddo!!!")
81
 
renderLine(06,"!!!!!uuuuuQddddd!!!!")
82
 
renderLine(07,"!!!!ouuuu7l1ddddo!!!")
83
 
renderLine(08,"!!!!!uuu7lll1ddd!!!!")
84
 
renderLine(09,"!!!!ouu7lllll1ddo!!!")
85
 
renderLine(10,"!!!!!!7llzllll1!!!!!")
86
 
renderLine(11,"!!!!!!!lllllll!!!!!!")
87
 
renderLine(12,"!!!!!!!o!o!o!o!!!!!!")
88
 
 
89
 
oxyd_shuffle()
90
 
 
91
 
b1=enigma.GetNamedObject("b1")
92
 
r1=enigma.GetNamedObject("r1")
93
 
r2=enigma.GetNamedObject("r2")
94
 
r3=enigma.GetNamedObject("r3")
95
 
r4=enigma.GetNamedObject("r4")
96
 
r5=enigma.GetNamedObject("r5")
97
 
 
98
 
AddRubberBand(r1,b1,200,1.2)
99
 
AddRubberBand(r1,r2,200,1)
100
 
AddRubberBand(r2,r3,200,1)
101
 
AddRubberBand(r3,r4,200,1)
102
 
AddRubberBand(r4,r5,200,1)