home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp38.lua < prev    next >
Encoding:
Text File  |  2003-08-28  |  2.0 KB  |  71 lines
  1. -- Sven Siggelkow 2003
  2. -- ESPRIT #038
  3.  
  4. levelw = 20
  5. levelh = 13
  6. create_world(levelw, levelh)
  7. oxyd_default_flavor = "b"
  8. set_actor("ac-blackball", 10,6.5, {player=0})
  9.  
  10. draw_checkerboard_floor( "fl-rough-blue", "fl-samba",0,0,levelw,levelh)
  11. fill_floor("fl-abyss_fake",0,0,8,4)
  12. fill_floor("fl-abyss_fake",12,0,8,4)
  13. fill_floor("fl-abyss_fake",0,9,8,4)
  14. fill_floor("fl-abyss_fake",12,9,8,4)
  15. function renderLine( line, pattern)
  16.     for i=1, strlen(pattern) do
  17.       local c = strsub( pattern, i, i)
  18.       if c ==   "#" then
  19.          set_stone("st-rock1", i-1,line)
  20.       elseif c=="G" then
  21.      set_stone("st-grate1", i-1,line)         
  22.       elseif c=="H" then
  23.      set_stone("st-rock1_hole", i-1,line) 
  24.       elseif c=="F" then
  25.      set_stone("st-fakeoxyd", i-1,line)   
  26.       elseif c=="I" then
  27.      set_stone("st-invisible", i-1,line) 
  28.       elseif c=="d" then
  29.          document(i-1,line,"If you can read this message, you've cheated!")        
  30.       elseif c=="1" then
  31.          set_item("it-trigger", i-1,line, {invisible=1,action="callback", target="s1"})     
  32.       elseif c=="2" then
  33.          set_item("it-trigger", i-1,line, {invisible=1,action="callback", target="s2"})                    
  34.       elseif c=="O" then
  35.      oxyd(i-1,line)         
  36.         end
  37.     end  
  38. end
  39. --               01234567890123456789
  40. renderLine(00 , "IIIIIIII####IIIIIIII")
  41. renderLine(01 , "I   O   #GG#   O   I")
  42. renderLine(02 , "I       #GG#       I")
  43. renderLine(03 , "I       #GG#       I")
  44. renderLine(04 , "#########GG#########")  
  45. renderLine(05 , "#                  #")
  46. renderLine(06 , "# O   O      O   O #")
  47. renderLine(07 , "#                  #")
  48. renderLine(08 , "#########GG#########")
  49. renderLine(09 , "I       HGG#       I")
  50. renderLine(10 , "I       #GG#       I")
  51. renderLine(11 , "I2  F  1#GG#   F  dI")
  52. renderLine(12 , "IIIIIIII####IIIIIIII") 
  53. --               01234567890123456789
  54.  
  55. function s1()
  56. set_stone("st-grate2", 4,4)
  57. end
  58.  
  59. function s2()
  60. set_stone("st-grate2", 15,4)    
  61. end
  62.  
  63. oxyd_shuffle()
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.