← Back to branch summary

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

« back to all changes in this revision

Viewing changes to data/levels/duffy20.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/duffy20.lua
1
 
 
2
 
levelw=25
3
 
levelh=30
4
 
 
5
 
create_world( levelw, levelh)
6
 
 
7
 
fill_floor("fl-metal", 0,0,levelw,levelh)
8
 
 
9
 
function renderLine( line, pattern)
10
 
    for i=1, strlen(pattern) do
11
 
        local c = strsub( pattern, i, i)
12
 
        if c =="#" then
13
 
            set_stone( "st-greenbrown", i-1, line)
14
 
        elseif c == "o" then
15
 
            oxyd( i-1, line)
16
 
        elseif c == "!" then
17
 
            abyss(i-1,line)
18
 
            --                  fill_floor("fl-water", i-1,line, 1,1)
19
 
        elseif c=="+" then
20
 
            set_stone( "st-wood", i-1, line)
21
 
        elseif c=="g" then
22
 
            draw_stones("st-grate1",{i-1,line}, {1,1}, 1)
23
 
        elseif c=="l" then
24
 
            oneway(i-1,line, enigma.WEST)
25
 
        elseif c=="u" then
26
 
            oneway(i-1,line, enigma.NORTH)
27
 
        elseif c=="r" then
28
 
            oneway(i-1,line, enigma.EAST)
29
 
        elseif c=="d" then
30
 
            oneway(i-1,line, enigma.SOUTH)
31
 
        elseif c=="h" then
32
 
            set_item("it-tinyhollow", i-1, line)
33
 
        elseif c=="H" then
34
 
            set_item("it-hollow", i-1, line)
35
 
        elseif c=="J" then
36
 
            set_item("it-hill", i-1, line)
37
 
        elseif c=="j" then
38
 
            set_item("it-tinyhill", i-1, line)
39
 
        elseif c == "1" then --ur
40
 
            set_floor("fl-gradient",  i-1,  line, {type=11})
41
 
        elseif c == "3" then --dl
42
 
            set_floor("fl-gradient",  i-1,  line, {type=9})
43
 
        elseif c == "7" then --dr
44
 
            set_floor("fl-gradient",  i-1,  line, {type=12})
45
 
        elseif c == "9" then --ul
46
 
            set_floor("fl-gradient",  i-1,  line, {type=10})
47
 
        end
48
 
    end 
49
 
end
50
 
 
51
 
 
52
 
renderLine(00,"####################")
53
 
renderLine(01,"#o                o#")
54
 
renderLine(02,"# J              J #")
55
 
renderLine(03,"#  ##############  #")
56
 
renderLine(04,"#  #H   o  o   H#  #")
57
 
renderLine(05,"#  #            #  #")
58
 
renderLine(06,"#  #  o  31  o  #  #")
59
 
renderLine(07,"#  #     97     #  #")
60
 
renderLine(08,"#  #            #  #")
61
 
renderLine(09,"#  #   ######   #  #")
62
 
renderLine(10,"#  #   #h  h#   #  #")
63
 
renderLine(11,"#JJ#   # oo #   #JJ#")
64
 
renderLine(12,"#JJ#   # jj #   #JJ#")
65
 
renderLine(13,"#JJ#   # oo #   #JJ#")
66
 
renderLine(14,"#  #   #h  h#   #  #")
67
 
renderLine(15,"#  #   ######   #  #")
68
 
renderLine(16,"#  #            #  #")
69
 
renderLine(17,"#  #     31     #  #")
70
 
renderLine(18,"#  #  o  97  o  #  #")
71
 
renderLine(19,"#  #            #  #")
72
 
renderLine(20,"#  #H   o  o   H#  #")
73
 
renderLine(21,"#  ##############  #")
74
 
renderLine(22,"# J              J #")
75
 
renderLine(23,"#o                o#")
76
 
renderLine(24,"####################")
77
 
 
78
 
oxyd_shuffle()
79
 
 
80
 
 
81
 
local actor1=set_actor("ac-blackball", 10,2)
82
 
local actor2=set_actor("ac-whiteball", 10,5)
83
 
local actor3=set_actor("ac-whiteball-small", 10,10.5,{player=1,mouseforce=0})
84
 
 
85
 
AddRubberBand(actor1, actor2, 8,0)
86
 
AddRubberBand(actor2, actor3, 8,0)
 
 
b'\\ No newline at end of file'