/[enigma]/enigma/data/levels/ss_esp74.lua
ViewVC logotype

Diff of /enigma/data/levels/ss_esp74.lua

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by mhawlisch, Mon Aug 25 08:49:57 2003 UTC revision 1.1.2.1 by mhawlisch, Thu Oct 2 19:47:57 2003 UTC
# Line 1  Line 1 
1  -- Sven Siggelkow 2003  -- Sven Siggelkow 2003
2  -- ESPRIT #074  -- ESPRIT #074
3    
4  levelw = 20  levelw = 20
5  levelh = 13  levelh = 13
6  create_world(levelw, levelh)  create_world(levelw, levelh)
7  oxyd_default_flavor = "b"  oxyd_default_flavor = "b"
8  set_actor("ac-blackball", 10,4.5, {player=0})  set_actor("ac-blackball", 10,4.5, {player=0})
9  set_actor("ac-whiteball-small", 3.5,8.5, {player=0, mouseforce=1})  set_actor("ac-killerball", 3.5,8.5, {player=0, mouseforce=1, controllers=1})
10  set_actor("ac-whiteball-small", 16.5,8.5, {player=0, mouseforce=1})  set_actor("ac-killerball", 16.5,8.5, {player=0, mouseforce=1, controllers=1})
11  fill_floor("fl-space",0,0,levelw,levelh)  fill_floor("fl-space",0,0,levelw,levelh)
12    
13  function renderLine( line, pattern)  function renderLine( line, pattern)
14      for i=1, strlen(pattern) do      for i=1, strlen(pattern) do
15        local c = strsub( pattern, i, i)        local c = strsub( pattern, i, i)
16        if c ==   "I" then        if c ==   "I" then
17           set_stone("st-invisible", i-1,line)           set_stone("st-invisible", i-1,line)
18        elseif c=="#" then        elseif c=="#" then
19           set_floor("fl-metal",  i-1,  line)           set_floor("fl-metal",  i-1,  line)
20        elseif c=="O" then        elseif c=="O" then
21           oxyd(i-1,line)                   oxyd(i-1,line)        
22          end          end
23      end        end  
24  end  end
25  --               01234567890123456789  --               01234567890123456789
26  renderLine(00 , "IIIIIIIIIIIIIIIIIIII")  renderLine(00 , "IIIIIIIIIIIIIIIIIIII")
27  renderLine(01 , "I                  I")  renderLine(01 , "I                  I")
28  renderLine(02 , "I                  I")  renderLine(02 , "I                  I")
29  renderLine(03 , "I                  I")  renderLine(03 , "I                  I")
30  renderLine(04 , "I  #  O  ##  O  #  I")    renderLine(04 , "I  #  O  ##  O  #  I")  
31  renderLine(05 , "I                  I")  renderLine(05 , "I                  I")
32  renderLine(06 , "IO       OO       OI")  renderLine(06 , "IO       OO       OI")
33  renderLine(07 , "I                  I")  renderLine(07 , "I                  I")
34  renderLine(08 , "I  #  O  ##  O  #  I")  renderLine(08 , "I  #  O  ##  O  #  I")
35  renderLine(09 , "I                  I")  renderLine(09 , "I                  I")
36  renderLine(10 , "I                  I")  renderLine(10 , "I                  I")
37  renderLine(11 , "I                  I")  renderLine(11 , "I                  I")
38  renderLine(12 , "IIIIIIIIIIIIIIIIIIII")  renderLine(12 , "IIIIIIIIIIIIIIIIIIII")
39  --               01234567890123456789  --               01234567890123456789
40    
41  oxyd_shuffle()  oxyd_shuffle()

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26