← Back to branch summary

~ubuntu-branches/ubuntu/raring/enigma/raring

« back to all changes in this revision

Viewing changes to data/levels/enigma_i/duffy101_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:
data/levels/enigma_i/duffy101_1.xml
 
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="Variety Pack" el:subtitle="" el:id="duffy101"/>
 
6
      <el:version el:score="1" el:release="1" el:revision="1" 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=3
 
20
rooms_high=3
 
21
 
 
22
levelw=1+(19*rooms_wide)
 
23
levelh=1+(12*rooms_high)
 
24
 
 
25
create_world( levelw, levelh)
 
26
enigma.ConserveLevel=FALSE
 
27
 
 
28
fill_floor("fl-hay", 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 =="W" then
 
36
            set_stone( "st-greenbrown", i-1, line)
 
37
            set_floor("fl-water",i-1,line)
 
38
        elseif c =="S" then
 
39
            set_stone( "st-greenbrown", i-1, line)
 
40
            set_floor("fl-space",i-1,line)
 
41
        elseif c =="q" then
 
42
            set_stone( "st-actorimpulse_invisible", i-1, line)
 
43
        elseif c =="%" then
 
44
            set_stone( "st-rock6", i-1, line)
 
45
            set_floor("fl-space",i-1,line)
 
46
        elseif c == "o" then
 
47
            oxyd( i-1, line)
 
48
        elseif c == "O" then
 
49
            oxyd( i-1, line)
 
50
            set_floor("fl-water",i-1,line)
 
51
        elseif c == "&" then
 
52
            oxyd( i-1, line)
 
53
            set_floor("fl-space",i-1,line)
 
54
        elseif c == "@" then
 
55
            oxyd( i-1, line)
 
56
            abyss(i-1,line)
 
57
        elseif c == "*" then
 
58
            set_stone( "st-brownie", i-1, line)
 
59
        elseif c == "!" then
 
60
            abyss(i-1,line)
 
61
        elseif c == "~" then
 
62
            set_floor("fl-water",i-1,line)
 
63
        elseif c == "m" then
 
64
            set_floor("fl-metal",i-1,line)
 
65
        elseif c=="z" then
 
66
            set_actor("ac-blackball", i-1,line+.5, {player=0})
 
67
        elseif c=="y" then
 
68
            set_actor("ac-whiteball", i-1,line+.5, {player=1})
 
69
        elseif c == "g" then
 
70
            draw_stones("st-grate1",{i-1,line}, {1,1}, 1)
 
71
        elseif c == "Q" then
 
72
            draw_stones("st-grate1",{i-1,line}, {1,1}, 1)
 
73
            abyss(i-1,line)
 
74
        elseif c == "a" then
 
75
            draw_stones("st-grate1",{i-1,line}, {1,1}, 1)
 
76
            set_floor("fl-metal",i-1,line)
 
77
        elseif c == "G" then
 
78
            draw_stones("st-grate1",{i-1,line}, {1,1}, 1)
 
79
            abyss(i-1,line)
 
80
        elseif c=="+" then
 
81
            set_stone( "st-wood", i-1, line)
 
82
        elseif c=="=" then
 
83
            set_floor("fl-space",i-1,line)
 
84
        elseif c=="R" then
 
85
            set_actor("ac-rotor", i-.5,line+.5, {range=7, force=30})
 
86
        elseif c == "-" then
 
87
            puzzle(i-1,line,PUZ_0101)
 
88
        elseif c == "_" then
 
89
            puzzle(i-1,line,PUZ_0101)
 
90
            abyss(i-1,line)
 
91
        elseif c == "i" then
 
92
            puzzle(i-1,line,PUZ_1010)
 
93
        elseif c == "/" then
 
94
            puzzle(i-1,line,PUZ_0110)
 
95
        elseif c == "`" then
 
96
            puzzle(i-1,line,PUZ_0011)
 
97
        elseif c == "^" then
 
98
            puzzle(i-1,line,PUZ_1001)
 
99
        elseif c == ";" then
 
100
            puzzle(i-1,line,PUZ_1100)
 
101
        elseif c == "2" then
 
102
            puzzle(i-1,line,PUZ_1000)
 
103
        elseif c == "4" then
 
104
            puzzle(i-1,line,PUZ_0100)
 
105
        elseif c == "6" then
 
106
            puzzle(i-1,line,PUZ_0001)
 
107
        elseif c == "8" then
 
108
            puzzle(i-1,line,PUZ_0010)
 
109
        elseif c == "$" then
 
110
            puzzle(i-1,line,PUZ_0000)
 
111
        elseif c == "5" then
 
112
            puzzle(i-1,line,PUZ_0100)
 
113
            abyss(i-1,line)
 
114
        elseif c=="U" then
 
115
            set_stone("st-oneway-n", i-1,line)
 
116
--        elseif c=="R" then
 
117
--             set_stone("st-oneway", i-1,line, {orientation=enigma.EAST})
 
118
        elseif c=="D" then
 
119
            set_stone("st-oneway-s", i-1,line)
 
120
        elseif c=="L" then
 
121
            set_stone("st-oneway-w", i-1,line)
 
122
        elseif c=="?" then
 
123
            fill_floor("fl-ice",i-2,line,19,12)
 
124
        elseif c=="b" then
 
125
            yy1( "black",  i-1, line)
 
126
        elseif c=="l" then
 
127
            set_attrib(laser(i-1,line, TRUE, WEST), "name", "laser1")
 
128
            set_floor("fl-water",i-1,line)
 
129
        elseif c=="<" then
 
130
            set_attrib(laser(i-1,line, TRUE, EAST), "name", "laser2")
 
131
        elseif c==">" then
 
132
            set_attrib(laser(i-1,line, TRUE, WEST), "name", "laser3")
 
133
        elseif c=="f" then
 
134
            set_item("it-floppy", i-1,line)
 
135
        elseif c=="F" then
 
136
            set_stone( "st-floppy", i-1,line,{action="callback",target="funcc1"})
 
137
        elseif c=="A" then
 
138
            set_stone("st-door_a",i-1,line,{name="door1"})
 
139
        elseif c=="B" then
 
140
            set_stone("st-door_a",i-1,line,{name="door2"})
 
141
        elseif c=="C" then
 
142
            set_stone("st-door_a",i-1,line,{name="door3"})
 
143
        end
 
144
    end
 
145
end
 
146
 
 
147
function yy1( color, x, y)
 
148
        stone = format( "st-%s4", color)
 
149
        set_stone( stone, x, y)
 
150
end
 
151
 
 
152
renderLine(00,"############################oo#########SSSSSSSSSSSSSSSSSSS")
 
153
renderLine(01,"#                  #    <        >    #==================S")
 
154
renderLine(02,"#~~~~~~~~~         #      DUUUUD      #==m============mm=S")
 
155
renderLine(03,"#~o     +~         #        RR        #===============mm=S")
 
156
renderLine(04,"#~~~~~~~~~         #                  #========%%========S")
 
157
renderLine(05,"#                  #                  #==================S")
 
158
renderLine(06,"#                  *                  +a===%=m==========%S")
 
159
renderLine(07,"#        qq        #                  #===%========%=====S")
 
160
renderLine(08,"#                  #       ~~~~       #==%==========%====S")
 
161
renderLine(09,"#                  #                  #==============%===S")
 
162
renderLine(10,"#                  #                  #==m=====mm========S")
 
163
renderLine(11,"#                  #                  #========mm==%====&S")
 
164
renderLine(12,"#########  #################gg#################  #########")
 
165
renderLine(13,"#o             ~~  #f                 #       #          #")
 
166
renderLine(14,"#              *~  #                  #       ########## #")
 
167
renderLine(15,"#              ~~  #                  # gg    + + + +  # #")
 
168
renderLine(16,"#              ~~  #                  # +++  ggggggggg## #")
 
169
renderLine(17,"#              ~~  #                  #  g+  ~~~~~~~~~   #")
 
170
renderLine(18,"#g~~~~~~~~~~~~~l~  g         z        g+ +   ~~~~~~~~Wo#o#")
 
171
renderLine(19,"#              ~~  #                  #  g+  ~~~~~~~~~   #")
 
172
renderLine(20,"#              ~~  #                  # +++  ggggggggg## #")
 
173
renderLine(21,"#              ~~  #                  # gg    + + + +  # #")
 
174
renderLine(22,"#              *~  #                  #       ########## #")
 
175
renderLine(23,"#o             ~~  #                 F#       #          #")
 
176
renderLine(24,"#########  #################AB#################  #########")
 
177
renderLine(25,"#? /-----$--6      #                  #    !!      !!!!#o#")
 
178
renderLine(26,"#  i               #  +  +  +  +  +   #    !!#     !!!! 8#")
 
179
renderLine(27,"#  i               #!!!!!!!!!!!!!!!!!!#    G5$--$--__`g i#")
 
180
renderLine(28,"#  i               #QQQQQQQQ!!QQQQQQQQ#    !! !!  !!!i  i#")
 
181
renderLine(29,"#  i               #!!!!!!!!!!!!!!!!!!#    !! !!# !!!i  i#")
 
182
renderLine(30,"#  $               g   +!!!!!!!!!!+   g    !!D!!!U!! $C $#")
 
183
renderLine(31,"#  i               # +++!!!!!!!!!!+++ #              2# i#")
 
184
renderLine(32,"#  i               #   +!!!!!!!!!!+   #               # i#")
 
185
renderLine(33,"#  i               #!!!!!@!!!!!!@!!!!!#              ## i#")
 
186
renderLine(34,"#  i               #!!!!!!!!!!!!!!!!!!#              ## i#")
 
187
renderLine(35,"#o ;----------------__________________------------------^#")
 
188
renderLine(36,"##########################################################")
 
189
 
 
190
oxyd_shuffle()
 
191
 
 
192
ff1=0
 
193
function funcc1()
 
194
if ff1==0 then
 
195
    SendMessage("door1", "open")
 
196
    SendMessage("door2", "open")
 
197
    SendMessage("door3", "close")
 
198
ff1=1
 
199
elseif ff1==1 then
 
200
    SendMessage("door1","close")
 
201
    SendMessage("door2","close")
 
202
    SendMessage("door3","open")
 
203
ff1=0
 
204
end
 
205
end
 
206
    ]]></el:luamain>
 
207
    <el:i18n>
 
208
      <el:string el:key="title">
 
209
        <el:english el:translate="false"/>
 
210
      </el:string>
 
211
    </el:i18n>
 
212
  </el:protected>
 
213
</el:level>