← Back to branch summary

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

« back to all changes in this revision

Viewing changes to data/levels/siegfried94.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/siegfried94.lua
1
 
--
2
 
--
3
 
 
4
 
levelw = 20
5
 
levelh = 13
6
 
 
7
 
create_world(levelw, levelh)
8
 
enigma.ConserveLevel = FALSE
9
 
oxyd_default_flavor = "c"
10
 
fill_floor("fl-leaves")
11
 
 
12
 
function renderLine( line, pattern)
13
 
    for i=1, strlen(pattern) do
14
 
      local c = strsub( pattern, i, i)
15
 
      if c =="r" then
16
 
         set_stone("st-rock7",i-1,line)
17
 
      elseif c == "w" then
18
 
         set_stone("st-wood",i-1,line)
19
 
      elseif c == "C" then
20
 
         set_item("it-trigger",i-1,line, {action="callback", target="bl1"})
21
 
      elseif c == "c" then
22
 
         set_stone("st-blocker",i-1,line, {name="blocker1"})
23
 
      elseif c == "D" then
24
 
         set_item("it-trigger",i-1,line, {action="callback", target="bl2"})
25
 
      elseif c == "d" then
26
 
         set_stone("st-blocker",i-1,line, {name="blocker2"})
27
 
      elseif c == "E" then
28
 
         set_item("it-trigger",i-1,line, {action="callback", target="bl3"})
29
 
      elseif c == "e" then
30
 
         set_stone("st-blocker",i-1,line, {name="blocker3"})
31
 
      elseif c == "F" then
32
 
         set_item("it-trigger",i-1,line, {action="callback", target="bl4"})
33
 
      elseif c == "f" then
34
 
         set_stone("st-blocker",i-1,line, {name="blocker4"})
35
 
      elseif c == "G" then
36
 
         set_item("it-trigger",i-1,line, {action="callback", target="bl5"})
37
 
      elseif c == "g" then
38
 
         set_stone("st-blocker",i-1,line, {name="blocker5"})
39
 
      elseif c == "H" then
40
 
         set_item("it-trigger",i-1,line, {action="callback", target="bl6"})
41
 
      elseif c == "h" then
42
 
         set_stone("st-blocker",i-1,line, {name="blocker6"})
43
 
      elseif c == "#" then
44
 
         set_floor("fl-water",i-1,line)
45
 
      elseif c == "o" then
46
 
         oxyd( i-1, line)
47
 
      elseif c == "a" then
48
 
         set_actor("ac-blackball", i-.5,line+.5)
49
 
         set_item("it-yinyang", i-1, line+.5)
50
 
      elseif c == "b" then
51
 
         set_actor("ac-whiteball", i-.5,line+.5)
52
 
         set_item("it-yinyang", i-1, line+.5)
53
 
        end
54
 
    end
55
 
end
56
 
renderLine(00, "rrrrrrrrrrrrrrrrrrrr")
57
 
renderLine(01, "rrrrrrrrrrrrrrrrrrrr")
58
 
renderLine(02, "r   rrr  r     r   r")
59
 
renderLine(03, "r rw     d  rr  wrgr")
60
 
renderLine(04, "r c   rrrr D      Gr")
61
 
renderLine(05, "r w #### abe#### rrr")
62
 
renderLine(06, "r w #oo#r  E#oo#   r")
63
 
renderLine(07, "rrC #oo# Frr#oo#H  r")
64
 
renderLine(08, "r rr#### f r####hrrr")
65
 
renderLine(09, "r w     r w wr r w r")
66
 
renderLine(10, "r       r    r     r")
67
 
renderLine(11, "rrrrrrrrrrrrrrrrrrrr")
68
 
renderLine(12, "rrrrrrrrrrrrrrrrrrrr")
69
 
 
70
 
oxyd_shuffle()
71
 
 
72
 
function bl1()
73
 
        b1=enigma.GetNamedObject("blocker1")
74
 
        SendMessage(b1, "trigger")
75
 
end
76
 
 
77
 
function bl2()
78
 
        b1=enigma.GetNamedObject("blocker2")
79
 
        SendMessage(b1, "trigger")
80
 
end
81
 
 
82
 
function bl3()
83
 
        b1=enigma.GetNamedObject("blocker3")
84
 
        SendMessage(b1, "trigger")
85
 
end
86
 
 
87
 
function bl4()
88
 
        b1=enigma.GetNamedObject("blocker4")
89
 
        SendMessage(b1, "trigger")
90
 
end
91
 
 
92
 
function bl5()
93
 
        b1=enigma.GetNamedObject("blocker5")
94
 
        SendMessage(b1, "trigger")
95
 
end
96
 
 
97
 
function bl6()
98
 
        b1=enigma.GetNamedObject("blocker6")
99
 
        SendMessage(b1, "trigger")
100
 
end