~ubuntu-branches/ubuntu/saucy/enigma/saucy

« back to all changes in this revision

Viewing changes to data/levels/enigma_vi/duffy116_1.xml

  • Committer: Bazaar Package Importer
  • Author(s): Erich Schubert
  • Date: 2010-05-26 02:27:26 UTC
  • mfrom: (5.1.3 sid)
  • Revision ID: james.westby@ubuntu.com-20100526022726-7tnbf65s6btbibu2
Tags: 1.10~~pre-alpha+r2100-1
* New SVN checkout, shortly after upstream "pre-alpha" release
* Target unstable, to get more testing for enigma
* Remove spelling patches included upstream

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
<?xml version="1.0" encoding="UTF-8" standalone="no" ?>
 
2
<el:level xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://enigma-game.org/schema/level/1 level.xsd" xmlns:el="http://enigma-game.org/schema/level/1">
 
3
  <el:protected>
 
4
    <el:info el:type="level">
 
5
      <el:identity el:title="Just Stay Calm" el:subtitle="" el:id="duffy116"/>
 
6
      <el:version el:score="1" el:release="1" el:revision="2" el:status="released"/>
 
7
      <el:author  el:name="Jacob Scott" el:email="" el:homepage=""/>
 
8
      <el:copyright>Copyright © 2004 Jacob Scott</el:copyright>
 
9
      <el:license el:type="GPL v2.0 or above" el:open="true"/>
 
10
      <el:compatibility el:enigma="0.92">
 
11
      </el:compatibility>
 
12
      <el:modes el:easy="false" el:single="true" el:network="false"/>
 
13
      <el:comments>
 
14
        <el:code>Lua 5.1 and XML converted by Leveladministrators</el:code>
 
15
      </el:comments>
 
16
      <el:score el:easy="-" el:difficult="-"/>
 
17
    </el:info>
 
18
    <el:luamain><![CDATA[
 
19
rooms_wide=1
 
20
rooms_high=1
 
21
 
 
22
levelw=1+(19*rooms_wide)+1
 
23
levelh=1+(12*rooms_high)
 
24
 
 
25
create_world( levelw, levelh)
 
26
enigma.SlopeForce = 90
 
27
 
 
28
fill_floor("fl-mortar", 0,0,levelw,levelh)
 
29
 
 
30
function renderLine( line, pattern)
 
31
    for i=1, strlen(pattern) do
 
32
        local c = strsub( pattern, i, i)
 
33
        if c =="#" then
 
34
            set_stone( "st-greenbrown", i-1, line)
 
35
        elseif c =="%" then
 
36
            set_stone( "st-greenbrown", i-1, line)
 
37
            set_floor("fl-gradient",i-1,line,{type=21})
 
38
        elseif c == "o" then
 
39
            oxyd( i-1, line)
 
40
        elseif c == "O" then
 
41
            oxyd( i-1, line)
 
42
            set_floor("fl-gradient",i-1,line,{type=21})
 
43
        elseif c == "*" then
 
44
            set_stone( "st-brownie", i-1, line)
 
45
        elseif c == "!" then
 
46
            abyss(i-1,line)
 
47
        elseif c == "~" then
 
48
            set_floor("fl-water",i-1,line)
 
49
        elseif c=="z" then
 
50
            set_actor("ac-blackball", i-.5,line+.5, {player=0})
 
51
            draw_stones("st-grate1",{i-1,line}, {1,1}, 1)
 
52
            set_floor("fl-gradient",i-1,line,{type=21})
 
53
        elseif c=="y" then
 
54
            set_actor("ac-whiteball", i-1,line+.5, {player=1})
 
55
        elseif c == "g" then
 
56
            draw_stones("st-grate1",{i-1,line}, {1,1}, 1)
 
57
        elseif c == "G" then
 
58
            draw_stones("st-grate1",{i-1,line}, {1,1}, 1)
 
59
            set_floor("fl-gradient",i-1,line,{type=21})
 
60
        elseif c=="+" then
 
61
            set_stone( "st-wood", i-1, line)
 
62
        elseif c=="&" then
 
63
            set_stone( "st-wood", i-1, line)
 
64
            set_floor("fl-gradient",i-1,line,{type=21})
 
65
        elseif c=="^" then
 
66
            set_stone( "st-wood", i-1, line)
 
67
            set_floor("fl-gradient",i-1,line,{type=21})
 
68
            set_item("it-extralife",i-1,line)
 
69
        elseif c=="=" then
 
70
            set_floor("fl-space",i-1,line)
 
71
        elseif c=="d" then
 
72
            set_floor("fl-gradient",i-1,line,{type=21})
 
73
        elseif c=="W" then
 
74
            fill_floor("fl-wood",i-1,line+1,5,8)
 
75
        elseif c=="T" then
 
76
            set_stone("st-timer",i-1,line,{interval=0.15,action="callback",target="funcc1"})
 
77
            set_floor("fl-gradient",i-1,line,{type=21})
 
78
        elseif c=="U" then
 
79
            set_stone("st-timer",i-1,line,{interval=0.15,action="callback",target="funcc3"})
 
80
            set_floor("fl-gradient",i-1,line,{type=21})
 
81
        elseif c=="V" then
 
82
            set_stone("st-timer",i-1,line,{interval=0.5,action="callback",target="funcc2"})
 
83
            set_floor("fl-gradient",i-1,line,{type=21})
 
84
        elseif c=="R" then
 
85
            set_stone("st-oneway", i-1,line, {orientation=enigma.EAST})
 
86
            set_floor("fl-gradient",  i-1,  line, {type=11})
 
87
        elseif c=="1" then
 
88
            set_floor("fl-gradient",  i-1,  line, {type=11})
 
89
        end
 
90
    end
 
91
end
 
92
 
 
93
renderLine(00,"#######%O%O%O%O%O%O%T")
 
94
renderLine(01,"#ooooo#zGGGGGGGGGGG%U")
 
95
renderLine(02,"#W    R^dGGGGGGGGGGOV")
 
96
renderLine(03,"#+++++#&&&&&&&&&&&G%d")
 
97
renderLine(04,"#+++++#GGGGGGGGGGGG%d")
 
98
renderLine(05,"#+++++oGGGGGGGGGGGG%d")
 
99
renderLine(06,"#+++++#G&&&&&&&&&&&%d")
 
100
renderLine(07,"#+++++#GGGGGGGGGGGG%d")
 
101
renderLine(08,"#+++++#GGGGGGGGGGGGOd")
 
102
renderLine(09,"#+++++#&&&&&&&&&&&G%d")
 
103
renderLine(10,"#+++++#GGGGGGGGGGGG%d")
 
104
renderLine(11,"#     1GGGGGGGGGGGG%d")
 
105
renderLine(12,"#######%&&&&&&&&&&&%d")
 
106
 
 
107
oxyd_shuffle()
 
108
 
 
109
set_item("it-seed",17,3,{name="seedb1"})
 
110
seedb1=enigma.GetNamedObject("seedb1")
 
111
enigma.SendMessage(seedb1,"grow",nil)
 
112
 
 
113
set_item("it-seed",18,6,{name="seedb2"})
 
114
seedb2=enigma.GetNamedObject("seedb2")
 
115
enigma.SendMessage(seedb2,"grow",nil)
 
116
 
 
117
set_item("it-seed",17,9,{name="seedb3"})
 
118
seedb3=enigma.GetNamedObject("seedb3")
 
119
enigma.SendMessage(seedb3,"grow",nil)
 
120
 
 
121
set_item("it-seed",18,12,{name="seedb4"})
 
122
seedb4=enigma.GetNamedObject("seedb4")
 
123
enigma.SendMessage(seedb4,"grow",nil)
 
124
 
 
125
enigma.KillStone(1,10)
 
126
enigma.KillStone(2,10)
 
127
enigma.KillStone(3,10)
 
128
enigma.KillStone(4,10)
 
129
enigma.KillStone(5,10)
 
130
 
 
131
--fill_floor("fl-water",1,10,5,1)
 
132
set_item("it-seed",1,10,{name="seedd1"})
 
133
seedd1=enigma.GetNamedObject("seedd1")
 
134
enigma.SendMessage(seedd1,"grow",nil)
 
135
 
 
136
set_item("it-seed",2,10,{name="seedd2"})
 
137
seedd2=enigma.GetNamedObject("seedd2")
 
138
enigma.SendMessage(seedd2,"grow",nil)
 
139
 
 
140
set_item("it-seed",3,10,{name="seedd3"})
 
141
seedd3=enigma.GetNamedObject("seedd3")
 
142
enigma.SendMessage(seedd3,"grow",nil)
 
143
 
 
144
set_item("it-seed",4,10,{name="seedd4"})
 
145
seedd4=enigma.GetNamedObject("seedd4")
 
146
enigma.SendMessage(seedd4,"grow",nil)
 
147
 
 
148
set_item("it-seed",5,10,{name="seedd5"})
 
149
seedd5=enigma.GetNamedObject("seedd5")
 
150
enigma.SendMessage(seedd5,"grow",nil)
 
151
 
 
152
t1=1
 
153
function funcc1()
 
154
    t1=t1+1
 
155
    if t1<11 then
 
156
        set_item("it-seed",18-t1,3,{name="seed1"})
 
157
        seed1=enigma.GetNamedObject("seed1")
 
158
        enigma.SendMessage(seed1,"grow",nil)
 
159
 
 
160
        set_item("it-seed",19-t1,6,{name="seed2"})
 
161
        seed2=enigma.GetNamedObject("seed2")
 
162
        enigma.SendMessage(seed2,"grow",nil)
 
163
 
 
164
        set_item("it-seed",18-t1,9,{name="seed3"})
 
165
        seed3=enigma.GetNamedObject("seed3")
 
166
        enigma.SendMessage(seed3,"grow",nil)
 
167
 
 
168
        set_item("it-seed",19-t1,12,{name="seede1"})
 
169
        seede1=enigma.GetNamedObject("seede1")
 
170
        enigma.SendMessage(seede1,"grow",nil)
 
171
    else
 
172
        t1=0
 
173
        set_item("it-seed",7,3,{name="seed4"})
 
174
        seed4=enigma.GetNamedObject("seed4")
 
175
        enigma.SendMessage(seed4,"grow",nil)
 
176
 
 
177
        set_item("it-seed",8,6,{name="seed5"})
 
178
        seed5=enigma.GetNamedObject("seed5")
 
179
        enigma.SendMessage(seed5,"grow",nil)
 
180
 
 
181
        set_item("it-seed",7,9,{name="seed6"})
 
182
        seed6=enigma.GetNamedObject("seed6")
 
183
        enigma.SendMessage(seed6,"grow",nil)
 
184
 
 
185
        set_item("it-seed",8,12,{name="seede2"})
 
186
        seede2=enigma.GetNamedObject("seede2")
 
187
        enigma.SendMessage(seede2,"grow",nil)
 
188
    end
 
189
end
 
190
 
 
191
 
 
192
t2=1
 
193
function funcc2()
 
194
    t2=t2+1
 
195
    if t2<8 then
 
196
        enigma.KillStone(1,11-t2)
 
197
        enigma.KillStone(2,11-t2)
 
198
        enigma.KillStone(3,11-t2)
 
199
        enigma.KillStone(4,11-t2)
 
200
        enigma.KillStone(5,11-t2)
 
201
 
 
202
        --   fill_floor("fl-water",1,11-t2,5,1)
 
203
        set_item("it-seed",1,11-t2,{name="seedc1"})
 
204
        seedc1=enigma.GetNamedObject("seedc1")
 
205
        enigma.SendMessage(seedc1,"grow",nil)
 
206
 
 
207
        set_item("it-seed",2,11-t2,{name="seedc2"})
 
208
        seedc2=enigma.GetNamedObject("seedc2")
 
209
        enigma.SendMessage(seedc2,"grow",nil)
 
210
 
 
211
        set_item("it-seed",3,11-t2,{name="seedc3"})
 
212
        seedc3=enigma.GetNamedObject("seedc3")
 
213
        enigma.SendMessage(seedc3,"grow",nil)
 
214
 
 
215
        set_item("it-seed",4,11-t2,{name="seedc4"})
 
216
        seedc4=enigma.GetNamedObject("seedc4")
 
217
        enigma.SendMessage(seedc4,"grow",nil)
 
218
 
 
219
        set_item("it-seed",5,11-t2,{name="seedc5"})
 
220
        seedc5=enigma.GetNamedObject("seedc5")
 
221
        enigma.SendMessage(seedc5,"grow",nil)
 
222
    else
 
223
        t2=0
 
224
 
 
225
        enigma.KillStone(1,3)
 
226
        enigma.KillStone(2,3)
 
227
        enigma.KillStone(3,3)
 
228
        enigma.KillStone(4,3)
 
229
        enigma.KillStone(5,3)
 
230
 
 
231
        --   fill_floor("fl-water",1,3,5,1)
 
232
        set_item("it-seed",1,3,{name="seedc6"})
 
233
        seedc6=enigma.GetNamedObject("seedc6")
 
234
        enigma.SendMessage(seedc6,"grow",nil)
 
235
 
 
236
        set_item("it-seed",2,3,{name="seedc7"})
 
237
        seedc7=enigma.GetNamedObject("seedc7")
 
238
        enigma.SendMessage(seedc7,"grow",nil)
 
239
 
 
240
        set_item("it-seed",3,3,{name="seedc8"})
 
241
        seedc8=enigma.GetNamedObject("seedc8")
 
242
        enigma.SendMessage(seedc8,"grow",nil)
 
243
 
 
244
        set_item("it-seed",4,3,{name="seedc9"})
 
245
        seedc9=enigma.GetNamedObject("seedc9")
 
246
        enigma.SendMessage(seedc9,"grow",nil)
 
247
 
 
248
        set_item("it-seed",5,3,{name="seedc10"})
 
249
        seedc10=enigma.GetNamedObject("seedc10")
 
250
        enigma.SendMessage(seedc10,"grow",nil)
 
251
    end
 
252
end
 
253
 
 
254
function funcc3 ()
 
255
end
 
256
    ]]></el:luamain>
 
257
    <el:i18n>
 
258
      <el:string el:key="title">
 
259
        <el:english el:translate="false"/>
 
260
      </el:string>
 
261
    </el:i18n>
 
262
  </el:protected>
 
263
</el:level>