home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp76.lua < prev    next >
Text File  |  2003-08-05  |  1KB  |  53 lines
  1. -- Smutty Smurf 2003
  2. -- ESPRIT #054
  3.  
  4. levelw = 20
  5. levelh = 13
  6. create_world(levelw, levelh)
  7. oxyd_default_flavor = "b"
  8. set_actor("ac-blackball", 10,2.5, {player=0})
  9. fill_floor("fl-black",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 ==   "G" then
  15.          set_stone("st-grate2", i-1,line)
  16.       elseif c=="D" then
  17.      set_stone("st-death",i-1,line)
  18.       elseif c=="F" then
  19.      set_stone("st-fakeoxyd",i-1,line)     
  20.       elseif c=="U" then
  21.      set_item("it-umbrella",i-1,line)         
  22.       elseif c=="B" then                                                                
  23.      set_stone("st-actorimpulse", i-1,line)
  24.       elseif c=="O" then
  25.      oxyd(i-1,line)         
  26.         end
  27.     end  
  28. end
  29. --               01234567890123456789
  30. renderLine(00 , "DDDDDDDDDDDDDDDDDDDD")
  31. renderLine(01 , "DOGGGGOGGGGGGFGGGGOD")
  32. renderLine(02 , "DG                GD")
  33. renderLine(03 , "DG BBBB BBBB BBBB GD")
  34. renderLine(04 , "DG B            B GD")  
  35. renderLine(05 , "DG B U B UU B U B GD")
  36. renderLine(06 , "DG B U   UU   U B GD")
  37. renderLine(07 , "DG B U B UU B U B GD")
  38. renderLine(08 , "DG B            B GD")
  39. renderLine(09 , "DG BBBB BBBB BBBB GD")
  40. renderLine(10 , "DG                GD")
  41. renderLine(11 , "DOGGGGOGGGGGGFGGGGOD")
  42. renderLine(12 , "DDDDDDDDDDDDDDDDDDDD") 
  43. --               01234567890123456789
  44.  
  45. oxyd_shuffle()
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.