home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp35.lua < prev    next >
Encoding:
Text File  |  2003-09-19  |  2.4 KB  |  58 lines
  1. -- Sven Siggelkow 2003
  2. -- ESPRIT #035
  3. -- change rotors with spermbirds if implemented!
  4.  
  5. levelw = 39
  6. levelh = 25
  7. create_world(levelw, levelh)
  8. oxyd_default_flavor = "b"
  9. set_actor("ac-blackball", 18.5,11.5, {player=0})
  10. fill_floor("fl-marble",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-marble", i-1,line)
  17.       elseif c=="r" then        
  18.      set_actor("ac-rotor", i-.5,line+.5, {range=7, force=40}) -- range means stones between
  19.       elseif c=="c" then
  20.          set_item("it-coffee",i-1,line) 
  21.       elseif c=="d" then
  22.          set_item("it-dynamite",i-1,line) 
  23.       elseif c=="O" then
  24.      oxyd(i-1,line)         
  25.         end
  26.     end  
  27. end
  28. --               012345678901234567890123456789012345678
  29. renderLine(00 , "#######################################")
  30. renderLine(01 , "#.                                   .#")
  31. renderLine(02 , "#                                     #")
  32. renderLine(03 , "#   c                               c #")
  33. renderLine(04 , "#                                     #")  
  34. renderLine(05 , "#                        c            #")
  35. renderLine(06 , "# d      Or                 rO        #")
  36. renderLine(07 , "#                                     #")
  37. renderLine(08 , "#                                     #")
  38. renderLine(09 , "#d   d                                #")
  39. renderLine(10 , "#                                     #")
  40. renderLine(11 , "#                                     #")
  41. renderLine(12 , "#                 OO                  #") 
  42. renderLine(13 , "#                 OO                  #")
  43. renderLine(14 , "#                                     #")
  44. renderLine(15 , "#   c                                 #")
  45. renderLine(16 , "#                                c    #")
  46. renderLine(17 , "#                                  d  #")  
  47. renderLine(18 , "#        Ord             d  rO        #")
  48. renderLine(19 , "#                 c            d      #")
  49. renderLine(20 , "#      d                              #")
  50. renderLine(21 , "#                            d        #")
  51. renderLine(22 , "#             d                   d   #")
  52. renderLine(23 , "#.                                   .#")
  53. renderLine(24 , "#######################################")
  54. --               012345678901234567890123456789012345678
  55.                                
  56.                                
  57. oxyd_shuffle()
  58.