home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp25.lua < prev    next >
Text File  |  2003-07-31  |  1KB  |  44 lines
  1. -- Smutty Smurf 2003
  2. -- ESPRIT #025
  3.  
  4. levelw = 20
  5. levelh = 13
  6. create_world(levelw, levelh)
  7. oxyd_default_flavor = "b"
  8. set_actor("ac-blackball", 4,6.5, {player=0})
  9. fill_floor( "fl-brick", 0, 0,levelw,levelh)
  10.  
  11. function renderLine( line, pattern)
  12.     for i=1, strlen(pattern) do
  13.       local c = strsub( pattern, i, i)
  14.       if c ==   "#" then
  15.          set_stone("st-marble", i-1,line)
  16.       elseif c=="S" then
  17.          set_item("it-umbrella",i-1,line)
  18.       elseif c=="D" then                                                                
  19.          set_stone("st-death", i-1,  line)
  20.       elseif c=="G" then                                                                
  21.          set_stone("st-grate2",i-1,line)
  22.       elseif c=="O" then
  23.      oxyd(i-1,line)
  24.         end
  25.     end  
  26. end
  27. --               01234567890123456789
  28. renderLine(00 , "####################")
  29. renderLine(01 , "#      S ##        #")
  30. renderLine(02 , "# O      ##      O #")
  31. renderLine(03 , "#    O   ##   O    #")
  32. renderLine(04 , "#        ##        #")  
  33. renderLine(05 , "#    DDDDDDDDDD    #")
  34. renderLine(06 , "#    GGGGGGGGGG    #")
  35. renderLine(07 , "#    DDDDDDDDDD    #")
  36. renderLine(08 , "#        ##        #")
  37. renderLine(09 , "#    O   ##   O    #")
  38. renderLine(10 , "# O      ##      O #")
  39. renderLine(11 , "#        ##S       #")
  40. renderLine(12 , "####################")
  41. --               01234567890123456789
  42.  
  43. oxyd_shuffle()
  44.