home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp21.lua < prev    next >
Text File  |  2003-07-29  |  2KB  |  46 lines
  1. -- Smutty Smurf 2003
  2. -- ESPRIT #021
  3.  
  4. levelw = 20
  5. levelh = 13
  6. create_world(levelw, levelh)
  7. oxyd_default_flavor = "a"       -- Default flavor for oxyd stones.
  8.  
  9. set_actor("ac-blackball", 10,6.5, {player=0})
  10. fill_floor( "fl-bluegreenx", 0, 0,levelw,levelh)
  11.  
  12. function renderLine( line, pattern)
  13.     for i=1, strlen(pattern) do
  14.       local c = strsub( pattern, i, i)
  15.       if c ==   "#" then
  16.          set_stone("st-bluegray", i-1,line)
  17.       elseif c=="H" then
  18.          set_stone("st-bluegray_hole",i-1,line)
  19.       elseif c=="." then
  20.          set_floor("fl-abyss",i-1,line)         
  21.       elseif c=="G" then                                                                
  22.          set_stone("st-grate1", i-1,  line)
  23.       elseif c=="N" then                   
  24.          document(i-1,  line,"OOPS!" )
  25.       elseif c=="O" then
  26.      oxyd(i-1,line)
  27.         end
  28.     end  
  29. end
  30. --               01234567890123456789
  31. renderLine(00 , "###..............###")
  32. renderLine(01 , "#OG####......####GO#")
  33. renderLine(02 , "#GGG  O######O  GGG#")
  34. renderLine(03 , ".#G              G#.")
  35. renderLine(04 , "..#              #..")  
  36. renderLine(05 , "..H              H..")
  37. renderLine(06 , "..HN             H..")
  38. renderLine(07 , "..H              H..")
  39. renderLine(08 , "..#              #..")
  40. renderLine(09 , ".#G              G#.")
  41. renderLine(10 , "#GGG  O######O  GGG#")
  42. renderLine(11 , "#OG####......####GO#")
  43. renderLine(12 , "###..............###")
  44. --               01234567890123456789
  45. oxyd_shuffle()
  46.