← Back to branch summary

~ubuntu-branches/ubuntu/edgy/enigma/edgy

« back to all changes in this revision

Viewing changes to data/levels/duffy9.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/duffy9.lua
1
 
 
2
 
levelw=80
3
 
levelh=40
4
 
 
5
 
create_world( levelw, levelh)
6
 
 
7
 
fill_floor("fl-leaves", 0,0,levelw,levelh)
8
 
 
9
 
done_with_setup = 0
10
 
 
11
 
function renderLine( line, pattern)
12
 
        for i=1, strlen(pattern) do
13
 
                local c = strsub( pattern, i, i)
14
 
                if c =="#" then
15
 
                        set_stone( "st-glass", i-1, line)
16
 
                elseif c == "o" then
17
 
                        if done_with_setup == 0 then
18
 
                           oxyd( i-1, line)
19
 
                        end
20
 
                elseif c == "!" then
21
 
                        abyss(i-1,line)
22
 
--                      fill_floor("fl-water", i-1,line, 1,1)
23
 
                elseif c=="z" then
24
 
                        set_actor("ac-blackball", i-.5,line+.5)
25
 
                elseif c=="+" then
26
 
                        set_stone( "st-wood", i-1, line)
27
 
                elseif c=="1" then
28
 
                        doorv( i-1,line, {name="door1"})
29
 
                elseif c=="W" then
30
 
                        set_attrib(laser(i-1,line, FALSE, WEST), "name", "laser")
31
 
                elseif c=="L" then
32
 
                        set_stone("st-key_a", i-1,line, {action="on", target="laser"})
33
 
                elseif c=="k" then
34
 
                        set_item("it-key_a", i-1,line)
35
 
                elseif c=="`" then
36
 
                        mirrorp(i-1,line,FALSE,TRUE, 2)
37
 
                elseif c=="/" then
38
 
                        mirrorp(i-1,line,FALSE,TRUE, 4)
39
 
                elseif c=="B" then
40
 
                        set_stone("st-bombs", i-1,line)
41
 
                elseif c=="g" then
42
 
                        draw_stones("st-grate1",{i-1,line}, {1,1}, 1)
43
 
                elseif c=="A" then
44
 
           if done_with_setup==0 then
45
 
              set_stone("st-switch", i-1,line, {action="callback",target="funcc"})
46
 
           end
47
 
                elseif c=="h" then
48
 
                        draw_stones("st-grate2",{i-1,line}, {1,1}, 1)
49
 
                elseif c=="m" then
50
 
                        set_stone("st-marble",i-1,line)
51
 
                end
52
 
        end     
53
 
end
54
 
 
55
 
through=0
56
 
swap=0
57
 
function funcc()
58
 
   
59
 
   
60
 
      myline0 = gsub(myline0, "#", "B")
61
 
      myline1 = gsub(myline1, "#", "B")
62
 
      myline2 = gsub(myline2, "#", "B")
63
 
      myline3 = gsub(myline3, "#", "B")
64
 
      myline4 = gsub(myline4, "#", "B")
65
 
      myline5 = gsub(myline5, "#", "B")
66
 
      myline6 = gsub(myline6, "#", "B")
67
 
      myline7 = gsub(myline7, "#", "B")
68
 
      myline8 = gsub(myline8, "#", "B")
69
 
      myline9 = gsub(myline9, "#", "B")
70
 
      myline10 = gsub(myline10, "#", "B")
71
 
      myline11 = gsub(myline11, "#", "B")
72
 
      myline12 = gsub(myline12, "#", "B")
73
 
      swap = 1
74
 
      myline0 = gsub(myline0, "g", "#")
75
 
      myline1 = gsub(myline1, "g", "#")
76
 
      myline2 = gsub(myline2, "g", "#")
77
 
      myline3 = gsub(myline3, "g", "#")
78
 
      myline4 = gsub(myline4, "g", "#")
79
 
      myline5 = gsub(myline5, "g", "#")
80
 
      myline6 = gsub(myline6, "g", "#")
81
 
      myline7 = gsub(myline7, "g", "#")
82
 
      myline8 = gsub(myline8, "g", "#")
83
 
      myline9 = gsub(myline9, "g", "#")
84
 
      myline10 = gsub(myline10, "g", "#")
85
 
      myline11 = gsub(myline11, "g", "#")
86
 
      myline12 = gsub(myline12, "g", "#")
87
 
 
88
 
      myline0 = gsub(myline0, "B", "g")
89
 
      myline1 = gsub(myline1, "B", "g")
90
 
      myline2 = gsub(myline2, "B", "g")
91
 
      myline3 = gsub(myline3, "B", "g")
92
 
      myline4 = gsub(myline4, "B", "g")
93
 
      myline5 = gsub(myline5, "B", "g")
94
 
      myline6 = gsub(myline6, "B", "g")
95
 
      myline7 = gsub(myline7, "B", "g")
96
 
      myline8 = gsub(myline8, "B", "g")
97
 
      myline9 = gsub(myline9, "B", "g")
98
 
      myline10 = gsub(myline10, "B", "g")
99
 
      myline11 = gsub(myline11, "B", "g")
100
 
      myline12 = gsub(myline12, "B", "g")
101
 
      swap = 0
102
 
 
103
 
   
104
 
 
105
 
   renderLine(00, myline0)
106
 
   renderLine(01, myline1)
107
 
   renderLine(02, myline2)
108
 
   renderLine(03, myline3)
109
 
   renderLine(04, myline4)
110
 
   renderLine(05, myline5)
111
 
   renderLine(06, myline6)
112
 
   renderLine(07, myline7)
113
 
   renderLine(08, myline8)
114
 
   renderLine(09, myline9)
115
 
   renderLine(10, myline10)
116
 
   renderLine(11, myline11)
117
 
   renderLine(12, myline12)
118
 
 
119
 
    if through==1 then
120
 
        through=0
121
 
    end
122
 
--      for i=1, strlen(pattern) do
123
 
--          local c = strsub( pattern, i, i)
124
 
--          if c =="#" then
125
 
--              set_stone("st-greenbrown",i-1,line)
126
 
--          end
127
 
--      end             
128
 
    through=through+1
129
 
end
130
 
 
131
 
 
132
 
myline0= "mommmmommmmmmmmmmomm"
133
 
myline1= "mh###ggg########gg#o"
134
 
myline2= "mggg#g#gg##gggghg##m"
135
 
myline3= "m#gg#h####ghhhg###go"
136
 
myline4= "m###ghgg#gghAhgg#ggm"
137
 
myline5= "m#g###gg#g#hhhg##h#m"
138
 
myline6= "m#gggg#ggggg#ggggg#m"
139
 
myline7= "m######g#######g#g#m"
140
 
myline8= "mg#gg#gg#g#gggg####m"
141
 
myline9= "m####ggggg#g#g##gggm"
142
 
myline10="mg#g###g###h#ghgg#gm"
143
 
myline11="o##ggh#ggggg###gg#hm"
144
 
myline12="mmmmmommmmmmmmmmmmom"
145
 
 
146
 
--myline0=  "mmmmmmmmmmmmmmmmmmmm")
147
 
--myline1=  "m                  m")
148
 
--myline2=  "m########## ####   m")
149
 
--myline3=  "m#        # #  ### m")
150
 
--myline4=  "m#    ### # #   #  m")
151
 
--myline5=  "m# #### # ###   ## m")
152
 
--myline6=  "m# #    #    ggg # m")
153
 
--myline7=  "m# #### ###z gAg # m")
154
 
--myline8=  "m#   ###  ###ggg # m")
155
 
--myline9=  "m#     ###       # m")
156
 
--myline10= "m######  ######### m")
157
 
--myline11= "m     #            m")
158
 
--myline12= "mmmmmmmmmmmmmmmmmmmm")
159
 
   renderLine(00, myline0)
160
 
   renderLine(01, myline1)
161
 
   renderLine(02, myline2)
162
 
   renderLine(03, myline3)
163
 
   renderLine(04, myline4)
164
 
   renderLine(05, myline5)
165
 
   renderLine(06, myline6)
166
 
   renderLine(07, myline7)
167
 
   renderLine(08, myline8)
168
 
   renderLine(09, myline9)
169
 
   renderLine(10, myline10)
170
 
   renderLine(11, myline11)
171
 
   renderLine(12, myline12)
172
 
 
173
 
oxyd_shuffle()
174
 
done_with_setup = 1
175
 
 
176
 
set_actor("ac-blackball", 9.5,6.5)