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

« back to all changes in this revision

Viewing changes to data/levels/duffy34.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
* 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:
1
 
 
2
 
levelw=100
3
 
levelh=60
4
 
 
5
 
create_world( levelw, levelh)
6
 
enigma.TwoPlayerGame = TRUE
7
 
 
8
 
fill_floor("fl-rough", 0,0,levelw,levelh)
9
 
 
10
 
function renderLine( line, pattern)
11
 
    for i=1, strlen(pattern) do
12
 
        local c = strsub( pattern, i, i)
13
 
        if c =="#" then
14
 
            set_stone( "st-greenbrown", i-1, line)
15
 
        elseif c =="w" then
16
 
            set_stone( "st-glass", i-1, line)
17
 
        elseif c =="m" then
18
 
            set_stone( "st-brick", i-1, line)
19
 
        elseif c =="B" then
20
 
            set_stone( "st-brownie", i-1, line)
21
 
        elseif c =="R" then
22
 
            set_stone( "st-rock6", i-1, line)
23
 
        elseif c =="x" then
24
 
            set_stone( "st-rock5", i-1, line)
25
 
        elseif c =="n" then
26
 
            set_stone( "st-rock4", i-1, line)
27
 
        elseif c =="v" then
28
 
            set_stone( "st-rock3", i-1, line)
29
 
        elseif c ==";" then
30
 
            set_stone( "st-rock2", i-1, line)
31
 
        elseif c =="/" then
32
 
            set_stone( "st-rock1", i-1, line)
33
 
        elseif c =="H" then
34
 
            set_stone( "st-bluegray", i-1, line)
35
 
        elseif c=="t" then
36
 
            set_stone( "st-actorimpulse",i-1,line)
37
 
        elseif c == "o" then
38
 
            oxyd( i-1, line)
39
 
        elseif c == "!" then
40
 
            abyss(i-1,line)
41
 
            --                  fill_floor("fl-water", i-1,line, 1,1)
42
 
        elseif c=="+" then
43
 
            set_stone( "st-wood", i-1, line)
44
 
        elseif c == "=" then
45
 
            fill_floor("fl-space", i-1,line, 1,1)
46
 
        elseif c=="z" then
47
 
            set_actor("ac-blackball", i-.5,line+.5)
48
 
        elseif c=="y" then
49
 
            set_actor("ac-whiteball", i-.5,line+.5)
50
 
        elseif c == "d" then --1-d
51
 
            set_floor("fl-gradient",  i-1,  line, {type=1})
52
 
        elseif c == "u" then --2-u
53
 
            set_floor("fl-gradient",  i-1,  line, {type=2})
54
 
        elseif c == "r" then --3-r
55
 
            set_floor("fl-gradient",  i-1,  line, {type=3})
56
 
        elseif c == "l" then --4-l
57
 
            set_floor("fl-gradient",  i-1,  line, {type=4})
58
 
        elseif c == "1" then --ur
59
 
            set_floor("fl-gradient",  i-1,  line, {type=11})
60
 
        elseif c == "3" then --dl
61
 
            set_floor("fl-gradient",  i-1,  line, {type=9})
62
 
        elseif c == "7" then --dr
63
 
            set_floor("fl-gradient",  i-1,  line, {type=12})
64
 
        elseif c == "9" then --ul
65
 
            set_floor("fl-gradient",  i-1,  line, {type=10})
66
 
        elseif c=="S" then
67
 
            set_stone("st-oneway-s", i-1, line)
68
 
        elseif c=="N" then
69
 
            set_stone("st-oneway-n", i-1, line)
70
 
        elseif c=="E" then
71
 
            set_stone("st-oneway-e", i-1, line)
72
 
        elseif c=="W" then
73
 
            set_stone("st-oneway-w", i-1, line)
74
 
        elseif c=="g" then
75
 
            draw_stones("st-grate1",{i-1,line}, {1,1}, 1)
76
 
        elseif c == "X" then
77
 
            draw_stones("st-yinyang1", { i-1,line}, {0,1},1)
78
 
        elseif c=="a" then
79
 
            set_floor("fl-bridge", i-1,line, {name="bridge1", type="x"})
80
 
        elseif c=="b" then
81
 
            set_floor("fl-bridge", i-1,line, {name="bridge2", type="x"})
82
 
        elseif c=="c" then
83
 
            set_floor("fl-bridge", i-1,line, {name="bridge3", type="x"})
84
 
        elseif c=="D" then
85
 
            set_floor("fl-bridge", i-1,line, {name="bridge4", type="x"})
86
 
        elseif c=="e" then
87
 
            set_floor("fl-bridge", i-1,line, {name="bridge5", type="x"})
88
 
        elseif c=="f" then
89
 
            set_floor("fl-bridge", i-1,line, {name="bridge6", type="x"})
90
 
        elseif c=="G" then
91
 
            set_floor("fl-bridge", i-1,line, {name="bridge7", type="x"})
92
 
        elseif c=="h" then
93
 
            set_floor("fl-bridge", i-1,line, {name="bridge8", type="x"})
94
 
        elseif c=="i" then
95
 
            set_floor("fl-bridge", i-1,line, {name="bridge9", type="x"})
96
 
        elseif c=="j" then
97
 
            set_floor("fl-bridge", i-1,line, {name="bridge10", type="x"})
98
 
        elseif c=="`" then
99
 
            set_item("it-wormhole", i-1, line, {strength=1,targetx="59.5",targety="22.5", name="ww1"})
100
 
        elseif c=="@" then
101
 
            set_item("it-wormhole", i-1, line, {strength=1,targetx="40.5",targety="26.5", name="ww2"})
102
 
        elseif c=="~" then
103
 
            set_item("it-wormhole", i-1, line, {strength=1,targetx="2.5",targety="14.5", name="ww3"})
104
 
        elseif c=="$" then
105
 
            set_item("it-wormhole", i-1, line, {strength=1,targetx="10",targety="42.5", name="ww4"})
106
 
        elseif c=="%" then
107
 
            set_item("it-wormhole", i-1, line, {strength=1,targetx="74.5",targety="46.5", name="ww5"})
108
 
        elseif c=="^" then
109
 
            set_item("it-wormhole", i-1, line, {strength=1,targetx="71.5",targety="6.5", name="ww6"})
110
 
        elseif c=="&" then
111
 
            set_item("it-wormhole", i-1, line, {strength=1,targetx="49",targety="30.5", name="ww7"})
112
 
        elseif c=="8" then
113
 
            set_item("it-wormhole", i-1, line, {strength=1,targetx="48.5",targety="40.5", name="ww8"})
114
 
        elseif c=="p" then
115
 
            set_item("it-wormhole", i-1, line, {strength=7,targetx="71.5",targety="6.5"})
116
 
        elseif c=="0" then
117
 
            set_item("it-wormhole", i-1, line, {strength=8,targetx="59.5",targety="15.5"})
118
 
        elseif c=="q" then
119
 
            set_item("it-wormhole", i-1, line, {strength=1,targetx="37.5",targety="25.5"})
120
 
        elseif c=="V" then
121
 
            set_stone("st-switch", i-1,line, {action="callback",target="funcc"})
122
 
        elseif c=="F" then
123
 
            set_item("it-trigger", i-1,line, {action="callback", target="changewormholes"})
124
 
        end
125
 
    end 
126
 
end
127
 
 
128
 
 
129
 
renderLine(00,";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;")
130
 
renderLine(01,";ggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggg;")
131
 
renderLine(02,";g;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;g;")
132
 
renderLine(03,";g;   ;;       ;   ;        ;                 ;            p         ;    ;g;")
133
 
renderLine(04,";g;            ;      ;;    ;                 ;           ;;;;;;     ;    ;g;")
134
 
renderLine(05,";g;    p ;         ;          p;              ;                ; ;;;;;    ;g;")
135
 
renderLine(06,";g;  ;;    ;;  ;   p     ;  ;  ;       p      ;                ;   p      ;g;")
136
 
renderLine(07,";g;      ;     ;     ;;  ;  ;  ;              ;                ; ;;;;;    ;g;")
137
 
renderLine(08,";g; q    ;  p  ;   ;     ;                                ;;;;;;     ;    ;g;")
138
 
renderLine(09,";g;o     ;         ;     ;                                 p         ;    ;g;")
139
 
renderLine(10,";g;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;g;")
140
 
renderLine(11,";ggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggggg;")
141
 
renderLine(12,"xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxBBBBBBBBBBBBBBBBBBBwwwwwwwwwwwwwwwwwwww")
142
 
renderLine(13,"x   lllrrrrllrll   xog g g g g g g g gBo                 w                 0w")
143
 
renderLine(14,"x   lllrrrrllrll   xggggggggggggggggggBggggggggggggggggg w    w        0    w")
144
 
renderLine(15,"x   lllrrrrllrll   xg                gBg              qg w    w             w")
145
 
renderLine(16,"xxxxxxxxxxxxxxxxxxuxg gggggggggggggg gBg ggggggggggggg g wo   w    0        w")
146
 
renderLine(17,"x rrrlllrrrrll1x   xg g            g gBg g           g g wwwwww        0   0w")
147
 
renderLine(18,"xuxxxxxxxxxxxxlxdxxxg g gggggggggg g gBg g ggggg ggg g g w           0      w")
148
 
renderLine(19,"xdx lllrrllrll7xdx  g g            g gBg g g   g g g g g w***** w0        0 w")
149
 
renderLine(20,"xux xxxxxxxxxxxxdxdxg gggggggggggggg gBg g ggg g g ggg g w    * w  0    0   w")
150
 
renderLine(21,"xdx llllllllllll7xdxg                gBg gg  g g g     g w    * w     0   0 w")
151
 
renderLine(22,"xuxxxxxxxxxxxxxxxx xggggggggggggggggggBgg gggg g ggggggg w    * w 0   q     w")
152
 
renderLine(23,"x lrlrlrlrlrlrlrlr xg g g g g g g g g B g      g         w    * w   0    0  w")
153
 
renderLine(24,"########################SS#############RRRRRRddddddRRRRRRwwwwwwwwwwwwwwwwwwww")
154
 
renderLine(25,"#oX X X Xa   #                 #rrrrr #     R======R     m                  m")
155
 
renderLine(26,"#XX X X Xb z #                 #rrrr9u#     RddddddR     m mmmmmmmmmmmmmmmm m")
156
 
renderLine(27,"#   X X Xc   #                 #rrr9uu#     R======R     m mq             m m")
157
 
renderLine(28,"#XXXX X XD   #                 #rr9uuu#     RddddddR     m mmmmmmmmmmmmmo m m")
158
 
renderLine(29,"#     X Xe   #                 #r9uuuu#     R      R     m                m m")
159
 
renderLine(30,"##########   E  V              g9uuuuu#     R      R=====mmmmmmmmmmmmmmmmmm m")
160
 
renderLine(31,"#     X Xf   #                 #g######     R      R=====m                  m")
161
 
renderLine(32,"#XXXX X XG   #                        #     RRRRRRRR=====m mmmmmmmmmmmmmmmmmm")
162
 
renderLine(33,"#   X X Xh   #                        #     lllll ====H==m                  m")
163
 
renderLine(34,"#XX X X Xi y #                        #     lllll ====H==mmmmmmmmmmmmmmmmmm m")
164
 
renderLine(35,"#oX X X Xj   #                        #     lllll ====H==                   m")
165
 
renderLine(36,"####################                  #HHHHHHHHHHHHHHHHHHmmmmmmmmmmmmmmmmmmmm")
166
 
renderLine(37,"/qddddddddddddddddq#                  #   v       v      v        t   t     t")
167
 
renderLine(38,"/r3dddddddddddddd1l#                  # v vvvvvvv vv vvv vtt tt t t t   ttt t")
168
 
renderLine(39,"/rr7uuuuuuuuuuuu9ll#                  # v v  v     v   v v t  t t ttttt t t t")
169
 
renderLine(40,"/rrl3dddddddddd1rll#                  # v v vv v v v vvv v tttt t    t  t t t")
170
 
renderLine(41,"/rrlr7uuuuuuuu9lrll#                  # v      vvv v v   v    t tttt t tt   t") 
171
 
renderLine(42,"/rrlrl        rlrll#                  # vvvvvv     v v vvv tt t t t    t  ttt")
172
 
renderLine(43,"/rrlr1dddddddd3lrll#                  #      vvvvvvv v   v t  t t t tttt tt t")
173
 
renderLine(44,"/rrl9uuuuuuuuuu7rll#                  #vvvvv   v   v vvo v t tt t ttt     t t")
174
 
renderLine(45,"/rr1dddddddddddd3ll#                  #      v   v   v   v t  t     ttttt   t")
175
 
renderLine(46,"or9uuuuuuuuuuuuuu7l#                  #vvvvvvvvvvvvvvvSvvv tt tttt tt t     t")
176
 
renderLine(47,"/quuuuuuuuuuuuuuuuq#    q`@~$%^&8q    W                  W ot       t       t")
177
 
renderLine(48,"///////////////////####################vvvvvvvvvvvvvvvvvvvttttttttttttttttttt")
178
 
 
179
 
oxyd_shuffle()
180
 
 
181
 
set_floor("fl-gradient",  1,  37, {type=9})
182
 
set_floor("fl-gradient",  1,  47, {type=10})
183
 
set_floor("fl-gradient",  18,  37, {type=11})
184
 
set_floor("fl-gradient",  18,  47, {type=12})
185
 
 
186
 
 
187
 
through=0
188
 
function funcc()
189
 
    if through==1 then
190
 
        through=0
191
 
    end
192
 
    if through==0 then
193
 
        SendMessage("bridge1", "openclose")
194
 
        SendMessage("bridge2", "openclose")
195
 
        SendMessage("bridge3", "openclose")
196
 
        SendMessage("bridge4", "openclose")
197
 
        SendMessage("bridge5", "openclose")
198
 
        SendMessage("bridge6", "openclose")
199
 
        SendMessage("bridge7", "openclose")
200
 
        SendMessage("bridge8", "openclose")
201
 
        SendMessage("bridge9", "openclose")
202
 
        SendMessage("bridge10", "openclose")
203
 
    end
204
 
    through=through+1
205
 
end
206
 
 
207
 
--through2=0
208
 
--function changewormholes()
209
 
--if through2==1 then
210
 
--through2=0
211
 
--end
212
 
--if through2==0 then
213
 
--rrr= random(1,8)
214
 
--if rrr==1 then
215
 
--tx=59.5
216
 
--ty=22.5
217
 
--end
218
 
--if rrr==2 then
219
 
--tx=41.5
220
 
--ty=26.5
221
 
--end
222
 
--if rrr==3 then
223
 
--tx=2.5
224
 
--ty=14.5
225
 
--end
226
 
--if rrr==4 then
227
 
--tx=10
228
 
--ty=42.5
229
 
--end
230
 
--if rrr==5 then
231
 
--tx=76.5
232
 
--ty=46.5
233
 
--end
234
 
--if rrr==6 then
235
 
--tx=71.5
236
 
--ty=6.5
237
 
--end
238
 
--if rrr==7 then
239
 
--tx=49
240
 
--ty=30.5
241
 
--end
242
 
--if rrr==8 then
243
 
--tx=48.5
244
 
--ty=41.5
245
 
--end
246
 
--         SetAttrib(ww1, "targetx", tx)
247
 
--         SetAttrib(ww1, "targety", ty)
248
 
--         SetAttrib(ww2, "targetx", tx)
249
 
--         SetAttrib(ww2, "targety", ty)
250
 
--         set_item("it-wormhole", 26+w2, 47, {strength=1,targetx="41.5",targety="26.5"})
251
 
--         set_item("it-wormhole", 26+w3, 47, {strength=1,targetx="2.5",targety="14.5"})
252
 
--         set_item("it-wormhole", 26+w4, 47, {strength=1,targetx="10",targety="42.5"})
253
 
--         set_item("it-wormhole", 26+w5, 47, {strength=1,targetx="76.5",targety="46.5"})
254
 
--         set_item("it-wormhole", 26+w6, 47, {strength=1,targetx="71.5",targety="6.5"})
255
 
--         set_item("it-wormhole", 26+w7, 47, {strength=1,targetx="49",targety="30.5"})
256
 
--         set_item("it-wormhole", 26+w8, 47, {strength=1,targetx="48.5",targety="41.5"})
257
 
--end     
258
 
--end
 
 
b'\\ No newline at end of file'