home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp92.lua < prev    next >
Text File  |  2003-08-14  |  4KB  |  105 lines
  1. -- Sven Siggelkow 2003
  2. -- ESPRIT #092
  3. -- if st-thief is fixed (stealing after delta t) please remove the comments of
  4. --  set_floor("fl-gradient",  i-1,  line, {type=...
  5.  
  6.  
  7. levelw = 20
  8. levelh = 25
  9. create_world(levelw, levelh)
  10. oxyd_default_flavor = "b"       -- Default flavor for oxyd stones.
  11. set_actor("ac-blackball", 9.5,5.5, {player=0})
  12.  
  13. fill_floor("fl-rough-blue",0,0,levelw,levelh)
  14.  
  15. function renderLine( line, pattern)
  16.     for i=1, strlen(pattern) do
  17.       local c = strsub( pattern, i, i)
  18.       if c ==   "#" then
  19.          set_stone("st-bluegray", i-1,line)
  20.       elseif c=="h" then
  21.          set_stone("st-bluegray_hole", i-1,line) 
  22.          --set_floor("fl-gradient",  i-1,  line, {type=3})
  23.       elseif c=="x" then
  24.          set_stone("st-bluegray_hole", i-1,line) 
  25.          --set_floor("fl-gradient",  i-1,  line, {type=4})
  26.       elseif c=="T" then
  27.          set_stone("st-thief", i-1,line)
  28.       elseif c=="D" then
  29.          set_stone("st-death", i-1,line) 
  30.       elseif c=="k" then
  31.      set_item("it-key_c", i-1,line)
  32.       elseif c=="a" then
  33.          set_stone("st-bluegray_hole", i-1,line) 
  34.      set_item("it-key_a", i-1,line)
  35.      --set_floor("fl-gradient",  i-1,  line, {type=4})
  36.       elseif c=="n" then
  37.          set_stone("st-bluegray_hole", i-1,line) 
  38.      document(i-1,line,"Take the key to the left first!")
  39.      --set_floor("fl-gradient",  i-1,  line, {type=4})
  40.       elseif c=="N" then
  41.          set_stone("st-bluegray_hole", i-1,line) 
  42.     document(i-1,line,"XYZZY")
  43.     --set_floor("fl-gradient",  i-1,  line, {type=4})
  44.       elseif c=="K" then
  45.      set_item("it-cherry", i-1,line)         
  46.       elseif c=="E" then
  47.      set_item("it-extralife", i-1,line)   
  48.       elseif c=="1" then
  49.      set_item("it-coin", i-1,line, {value=1})   
  50.       elseif c=="2" then
  51.     set_item("it-coin", i-1,line, {value=2})
  52.       elseif c=="4" then
  53.          set_item("it-coin", i-1,line, {value=4})      
  54.       elseif c=="S" then
  55.          set_item("it-spade",i-1,line)
  56.       elseif c=="P" then
  57.          set_item("it-brush",i-1,line)
  58.       elseif c=="f" then
  59.          set_item("it-flagblack",i-1,line)
  60.       elseif c=="F" then
  61.          set_item("it-extinguisher",i-1,line)
  62.       elseif c=="H" then
  63.          set_item("it-hammer",i-1,line)
  64.       elseif c=="A" then
  65.          set_stone("st-key_a", i-1, line, {action="openclose", target="door"}) 
  66.       elseif c=="|" then
  67.          set_stone("st-door_b", i-1,line, {name="door", type="v"}) 
  68.       elseif c=="-" then
  69.          set_stone("st-door_b", i-1,line, {type="v"}) 
  70.       elseif c=="c" then
  71.          set_stone("st-stone_break", i-1,line) 
  72.       elseif c=="O" then
  73.      oxyd(i-1,line)
  74.         end
  75.     end  
  76. end
  77. --               01234567890123456789
  78. renderLine(00 , "####################")
  79. renderLine(01 , "#      K    K      #")
  80. renderLine(02 , "#  E k  1 O  1   1 #")
  81. renderLine(03 , "#K              1  #")
  82. renderLine(04 , "# 4    1   1      1#")  
  83. renderLine(05 , "#E O            2  #")
  84. renderLine(06 , "# S 4         K    #")
  85. renderLine(07 , "#    P      fk  K  #")
  86. renderLine(08 , "#  TaT  TnT  TNT   #")
  87. renderLine(09 , "#  ThT  ThT  ThT  F#")
  88. renderLine(10 , "#  TxT  TxT  TxT O #")
  89. renderLine(11 , "# DThTH ThT  ThTD  #")
  90. renderLine(12 , "####x###TxT###x#####")
  91. renderLine(13 , "# DThT  ThT  ThTD  #")
  92. renderLine(14 , "#  TxT  ThT  TxT   #")
  93. renderLine(15 , "#  ThT  ThT  ThT   #")
  94. renderLine(16 , "#  TxT  TxT  TxT   #")
  95. renderLine(17 , "#  #-#  #A#  #|# 2 #")
  96. renderLine(18 , "#    22        2   #")
  97. renderLine(19 , "#  2        2      #")
  98. renderLine(20 , "#        2 2       #")
  99. renderLine(21 , "#  2 2  ccc     2  #")
  100. renderLine(22 , "#       cOc  2   2 #")
  101. renderLine(23 , "#       ccc        #")
  102. renderLine(24 , "####################")
  103. --               01234567890123456789
  104.  
  105. oxyd_shuffle()