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

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

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

revision 1.1.2.1 by dheck, Fri Sep 19 17:38:18 2003 UTC revision 1.1.2.2 by mhawlisch, Thu Oct 2 19:47:57 2003 UTC
# Line 1  Line 1 
 -- Sven Siggelkow 2003  
 -- ESPRIT #089  
   
 levelw = 20  
 levelh = 13  
 create_world(levelw, levelh)  
 oxyd_default_flavor = "a"       -- Default flavor for oxyd stones.  
 set_actor("ac-blackball",3.5,2.5, {player=0})  
 set_actor("ac-whiteball-small", 12.5,10.5, {mouseforce=1, controllers=1})  
   
 fill_floor("fl-water",0,0,levelw,levelh)  
 fill_floor("fl-sand",1,1,18,11)  
   
 function renderLine( line, pattern)  
     for i=1, strlen(pattern) do  
       local c = strsub( pattern, i, i)  
       if c ==   "#" then  
          set_stone("st-invisible", i-1,line)  
       elseif c=="O" then  
          oxyd(i-1,line)  
         end  
     end    
 end  
 --               01234567890123456789  
 renderLine(00 , "                    ")  
 renderLine(01 , " ################## ")  
 renderLine(02 , "#O# # #   #       O#")  
 renderLine(03 , "# # # # ### #####  #")  
 renderLine(04 , "# #       #     #  #")    
 renderLine(05 , "# ######  ####  #  #")  
 renderLine(06 , "#    O#         #  #")  
 renderLine(07 , "#  #  #    # #O    #")  
 renderLine(08 , "#  #  #### # ### # #")  
 renderLine(09 , "#  #       #     # #")  
 renderLine(10 , "#O #       #     #O#")  
 renderLine(11 , " ################## ")  
 renderLine(12 , "                    ")  
 --               01234567890123456789  
   
 oxyd_shuffle()  
1    -- Sven Siggelkow 2003
2    -- ESPRIT #089
3    
4    levelw = 20
5    levelh = 13
6    create_world(levelw, levelh)
7    oxyd_default_flavor = "a"       -- Default flavor for oxyd stones.
8    set_actor("ac-blackball",3.5,2.5, {player=0})
9    set_actor("ac-killerball", 12.5,10.5, {mouseforce=1, controllers=1})
10    
11    fill_floor("fl-water",0,0,levelw,levelh)
12    fill_floor("fl-sand",1,1,18,11)
13    
14    function renderLine( line, pattern)
15        for i=1, strlen(pattern) do
16          local c = strsub( pattern, i, i)
17          if c ==   "#" then
18             set_stone("st-invisible", i-1,line)
19          elseif c=="O" then
20             oxyd(i-1,line)
21            end
22        end  
23    end
24    --               01234567890123456789
25    renderLine(00 , "                    ")
26    renderLine(01 , " ################## ")
27    renderLine(02 , "#O# # #   #       O#")
28    renderLine(03 , "# # # # ### #####  #")
29    renderLine(04 , "# #       #     #  #")  
30    renderLine(05 , "# ######  ####  #  #")
31    renderLine(06 , "#    O#         #  #")
32    renderLine(07 , "#  #  #    # #O    #")
33    renderLine(08 , "#  #  #### # ### # #")
34    renderLine(09 , "#  #       #     # #")
35    renderLine(10 , "#O #       #     #O#")
36    renderLine(11 , " ################## ")
37    renderLine(12 , "                    ")
38    --               01234567890123456789
39    
40    oxyd_shuffle()

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

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