home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp18.lua < prev    next >
Text File  |  2003-07-29  |  3KB  |  76 lines

  1. -- Smutty Smurf 2003
  2. -- ESPRIT #018
  3.  
  4. levelw = 20
  5. levelh = 25
  6. create_world(levelw, levelh)
  7. oxyd_default_flavor = "b"       -- Default flavor for oxyd stones.
  8.  
  9. set_actor("ac-blackball", 4.5,22, {player=0})
  10. set_item("it-extralife",13,1)
  11. fill_floor("fl-abyss",0,0,levelw,levelh)
  12.  
  13. function renderLine( line, pattern)
  14.     for i=1, strlen(pattern) do
  15.       local c = strsub( pattern, i, i)
  16.       if c ==   "G" then
  17.          set_stone("st-oneway-e", i-1,line)
  18.      set_floor("fl-normal",  i-1,  line)
  19.       elseif c=="1" then
  20.      set_floor("fl-gradient",  i-1,  line, {type=3})         
  21.       elseif c=="2" then
  22.      set_floor("fl-gradient",  i-1,  line, {type=4})   
  23.       elseif c=="3" then
  24.      set_floor("fl-gradient",  i-1,  line, {type=1})   
  25.       elseif c=="4" then
  26.      set_floor("fl-gradient",  i-1,  line, {type=2})         
  27.       elseif c=="5" then
  28.          set_floor("fl-gradient",  i-1,  line, {type=5})   
  29.       elseif c=="6" then
  30.          set_floor("fl-gradient",  i-1,  line, {type=6})       
  31.       elseif c=="7" then
  32.          set_floor("fl-gradient",  i-1,  line, {type=7})         
  33.       elseif c=="8" then
  34.          set_floor("fl-gradient",  i-1,  line, {type=8})   
  35.       elseif c=="a" then
  36.          set_floor("fl-gradient",  i-1,  line, {type=12})   
  37.       elseif c=="b" then
  38.          set_floor("fl-gradient",  i-1,  line, {type=10})         
  39.       elseif c=="c" then
  40.          set_floor("fl-gradient",  i-1,  line, {type=11})   
  41.       elseif c=="d" then
  42.          set_floor("fl-gradient",  i-1,  line, {type=9})                      
  43.       elseif c=="O" then
  44.      oxyd(i-1,line)
  45.         end
  46.     end  
  47. end
  48. --               01234567890123456789
  49. renderLine(00 , "                    ")
  50. renderLine(01 , "  53333      33336  ")
  51. renderLine(02 , "  1a444      444b2  ")
  52. renderLine(03 , "  12  O       O 12  ")
  53. renderLine(04 , " O12            12  ")  
  54. renderLine(05 , "  12  5333G336  12  ")
  55. renderLine(06 , "  12  1a44G4b2  12  ")
  56. renderLine(07 , "  12O 12 O  12O 12  ")
  57. renderLine(08 , "  12  12    12  12  ")
  58. renderLine(09 , "  12  12    12  12  ")
  59. renderLine(10 , "  12  12    12  12  ")
  60. renderLine(11 , "  12  12    12  12  ")
  61. renderLine(12 , "  12  12    12  12  ")
  62. renderLine(13 , "  12  12    12  12  ")
  63. renderLine(14 , "  12  12    12  12  ")
  64. renderLine(15 , "  12  12    12  12  ")
  65. renderLine(16 , "  12  12O   12  12  ")
  66. renderLine(17 , "  12  12    12 O12  ")
  67. renderLine(18 , "  12O 12   O12  12  ")
  68. renderLine(19 , "  12  12    12  12  ")
  69. renderLine(20 , "  12  12    12  12  ")
  70. renderLine(21 , "  1c33d2    1c33d2O ")
  71. renderLine(22 , "  744448    744448  ")
  72. renderLine(23 , "    O               ")
  73. renderLine(24 , "                    ")
  74. --               01234567890123456789
  75. oxyd_shuffle()
  76.