home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp11.lua < prev    next >
Encoding:
Text File  |  2003-07-30  |  8.3 KB  |  215 lines
  1. -- Smutty Smurf 2003
  2. -- ESPRIT #011
  3. -- problem: gradient force could be stronger
  4.  
  5. levelw = 20
  6. levelh = 109
  7. create_world(levelw, levelh)
  8. enigma.SlopeForce = 70
  9. oxyd_default_flavor = "b"       -- Default flavor for oxyd stones.
  10.  
  11. set_actor("ac-blackball", 10.5,6.5, {player=0})
  12.  
  13. function renderLine( line, pattern)
  14.     for i=1, strlen(pattern) do
  15.       local c = strsub( pattern, i, i)
  16.       if c ==   "W" then
  17.          set_stone("st-greenbrown",i-1,line)
  18.       elseif c=="h" then
  19.          set_stone("st-greenbrown_hole",i-1,line)
  20.          set_floor("fl-normal",  i-1,  line) 
  21.       elseif c=="g" then
  22.      set_stone("st-grate2",  i-1,  line)
  23.      set_floor("fl-gradient",  i-1,  line, {type=19})         
  24.       elseif c=="G" then
  25.      set_stone("st-grate2",  i-1,  line)
  26.      set_floor("fl-gradient",  i-1,  line, {type=20})  
  27.       elseif c=="r" then                                 
  28.      set_stone("st-grate2",  i-1,  line)             
  29.      set_floor("fl-gradient",  i-1,  line, {type=13})
  30.       elseif c=="R" then                                 
  31.      set_stone("st-grate2",  i-1,  line)             
  32.      set_floor("fl-gradient",  i-1,  line, {type=14})
  33.       elseif c=="s" then                                 
  34.      set_stone("st-grate2",  i-1,  line)             
  35.      set_floor("fl-gradient",  i-1,  line, {type=5})
  36.       elseif c=="S" then                                 
  37.      set_stone("st-grate2",  i-1,  line)             
  38.      set_floor("fl-gradient",  i-1,  line, {type=8})
  39.       elseif c=="t" then                                 
  40.      set_stone("st-grate2",  i-1,  line)             
  41.      set_floor("fl-gradient",  i-1,  line, {type=9})
  42.       elseif c=="T" then                                 
  43.      set_stone("st-grate2",  i-1,  line)             
  44.      set_floor("fl-gradient",  i-1,  line, {type=12})     
  45.       elseif c=="D" then
  46.          set_stone("st-death",i-1,line)
  47.       elseif c=="1" then
  48.      set_floor("fl-gradient",  i-1,  line, {type=19})         
  49.       elseif c=="2" then
  50.      set_floor("fl-gradient",  i-1,  line, {type=20})   
  51.       elseif c=="3" then
  52.      set_floor("fl-gradient",  i-1,  line, {type=13})   
  53.       elseif c=="4" then
  54.      set_floor("fl-gradient",  i-1,  line, {type=14})         
  55.       elseif c=="5" then
  56.          set_floor("fl-gradient",  i-1,  line, {type=5})   
  57.       elseif c=="6" then
  58.          set_floor("fl-gradient",  i-1,  line, {type=6})       
  59.       elseif c=="7" then
  60.          set_floor("fl-gradient",  i-1,  line, {type=7})         
  61.       elseif c=="8" then
  62.          set_floor("fl-gradient",  i-1,  line, {type=8})   
  63.       elseif c=="9" then                                 
  64.          set_floor("fl-gradient",  i-1,  line, {type=15}) 
  65.       elseif c=="0" then                                 
  66.          set_floor("fl-gradient",  i-1,  line, {type=16}) 
  67.       elseif c=="a" then
  68.          set_floor("fl-gradient",  i-1,  line, {type=12})   
  69.       elseif c=="b" then
  70.          set_floor("fl-gradient",  i-1,  line, {type=10})         
  71.       elseif c=="c" then
  72.          set_floor("fl-gradient",  i-1,  line, {type=11})   
  73.       elseif c=="d" then
  74.          set_floor("fl-gradient",  i-1,  line, {type=9})                      
  75.       elseif c=="O" then
  76.      oxyd(i-1,line)
  77.       elseif c==" " then
  78.      set_floor("fl-normal",   i-1,  line) 
  79.       elseif c=="." then
  80.      set_floor("fl-abyss",   i-1,  line)      
  81.       elseif c=="x" then                    
  82.      set_floor("fl-woven",   i-1,  line)
  83.       elseif c=="X" then    
  84.          set_item("it-crack", i-1,  line, {type=1})           
  85.      set_floor("fl-woven",   i-1,  line)
  86.       elseif c=="Y" then       
  87.          set_item("it-crack", i-1,  line, {type=2})           
  88.      set_floor("fl-woven",   i-1,  line)     
  89.       elseif c=="Z" then     
  90.          set_item("it-crack", i-1,  line, {type=3})             
  91.      set_floor("fl-woven",   i-1,  line)     
  92.         end
  93.     end  
  94. end
  95. --               01234567890123456789
  96. renderLine(00 , "WWWWWWWWWWWWWWWWWWWW")
  97. renderLine(01 , "W                  W")
  98. renderLine(02 , "W        O         W")
  99. renderLine(03 , "W                  W")
  100. renderLine(04 , "W    O        O    W")  
  101. renderLine(05 , "W                  W")
  102. renderLine(06 , "W                  W")
  103. renderLine(07 , "W                  W")
  104. renderLine(08 , "W                  W")
  105. renderLine(09 , "W     O      O     W")
  106. renderLine(10 , "W                  W")
  107. renderLine(11 , "W                  W")
  108. renderLine(12 , "WWWWWWWWWhhWWWWWWWWW")
  109.  
  110. renderLine(13 , "xxxxxxxxW12Wxxxxxxxx")
  111. renderLine(14 , "xxxxxxxxW12Wxxxxxxxx")
  112. renderLine(15 , "xxxxxxxxW12Wxxxxxxxx")
  113. renderLine(16 , "xxxxxxxxW12Wxxxxxxxx")
  114. renderLine(17 , "xxxxxxxxW12Wxxxxxxxx")
  115. renderLine(18 , "xxxxxxxxW12Wxxxxxxxx")
  116. renderLine(19 , "xxxxZxxxW12Wxxxxxxxx")
  117. renderLine(20 , "xxxxxxxxW12Wxxxxxxxx")
  118. renderLine(21 , "xxxxxxxxW12Wxxxxxxxx")
  119. renderLine(22 , "xXxYxZxYW12WxxZxXZxX")
  120. renderLine(23 , "........W12W........")
  121. renderLine(24 , "........W12W........")
  122.  
  123. renderLine(25 , "........W12W........")
  124. renderLine(26 , "........W12W........")
  125. renderLine(27 , "........W12W........")
  126. renderLine(28 , "........W12W........")
  127. renderLine(29 , "........W12W........")
  128. renderLine(30 , "........W12W........")
  129. renderLine(31 , "........W12W........")
  130. renderLine(32 , "........W12W........")
  131. renderLine(33 , "........W12W........")
  132. renderLine(34 , "........W12W........")
  133. renderLine(35 , "........W12W........")
  134. renderLine(36 , "........WgGW........")
  135.  
  136. renderLine(37 , "........WgGW........")
  137. renderLine(38 , "........WgGW........")
  138. renderLine(39 , "........WgGW........")
  139. renderLine(40 , "........WgGW........")
  140. renderLine(41 , "WWWWWWWWWgGW........")
  141. renderLine(42 , "WsrrrrrrrtGW........")
  142. renderLine(43 , "WgTRRRRRRRSW........")
  143. renderLine(44 , "WgGWWWWWWWWW........")
  144. renderLine(45 , "WgGW................")
  145. renderLine(46 , "W12W................")
  146. renderLine(47 , "W12W................")
  147. renderLine(48 , "W12WWWWWWWWWWWWWWWWW")
  148.  
  149. renderLine(49 , "W1c9999999999999996W")
  150. renderLine(50 , "W7000000000000000b2W")
  151. renderLine(51 , "WWWWWWWWWWWWWWWWW12W")
  152. renderLine(52 , "................W12W")
  153. renderLine(53 , "................W12W")
  154. renderLine(54 , "................W12W")
  155. renderLine(55 , "................W12W")
  156. renderLine(56 , "................W12W")
  157. renderLine(57 , "................W12W")
  158. renderLine(58 , "................W12W")
  159. renderLine(59 , "................W12W")
  160. renderLine(60 , "................W12W")
  161.  
  162. renderLine(61 , "................W12W")
  163. renderLine(62 , "................W12W")
  164. renderLine(63 , "................W12W")
  165. renderLine(64 , "................W12W")
  166. renderLine(65 , "WWWWWWWWWWWWWWWWW12W")
  167. renderLine(66 , "W5333333333333333d2W")
  168. renderLine(67 , "W1a4444444444444448W")
  169. renderLine(68 , "W12WWWWWWWWWWWWWWWWW")
  170. renderLine(69 , "W12W................")
  171. renderLine(70 , "W12W................")
  172. renderLine(71 , "W12W................")
  173. renderLine(72 , "W12W................")
  174.  
  175. renderLine(73 , "W12W................")
  176. renderLine(74 , "W12W................")
  177. renderLine(75 , "W12W................")
  178. renderLine(76 , "W12W................")
  179. renderLine(77 , "W12W................")
  180. renderLine(78 , "W12W................")
  181. renderLine(79 , "W12W................")
  182. renderLine(80 , "W12W................")
  183. renderLine(81 , "W12W................")
  184. renderLine(82 , "W12W................")
  185. renderLine(83 , "W12W................")
  186. renderLine(84 , "W12W................")
  187.  
  188. renderLine(85 , "W12W................")
  189. renderLine(86 , "W12W................")
  190. renderLine(87 , "W12W................")
  191. renderLine(88 , "W12W................")
  192. renderLine(89 , "W12W................")
  193. renderLine(90 , "W12W................")
  194. renderLine(91 , "W12W................")
  195. renderLine(92 , "W12W................")
  196. renderLine(93 , "W12W................")
  197. renderLine(94 , "W12W................")
  198. renderLine(95 , "W12W................")
  199. renderLine(96 , "W12WWWWWWWWWWWWWWWWW")
  200.  
  201. renderLine(97 , "W12W               W")
  202. renderLine(98 , "W12W               W")
  203. renderLine(99 , "W12W               W")
  204. renderLine(100, "W12W               W")
  205. renderLine(101, "W12W               W")
  206. renderLine(102, "W12W           O   W")
  207. renderLine(103, "W12W               W")
  208. renderLine(104, "W12                W")
  209. renderLine(105, "W12                W")
  210. renderLine(106, "W12W               W")
  211. renderLine(107, "W12W               W")
  212. renderLine(108, "WDDWWWWWWWWWWWWWWWWW")
  213. --               01234567890123456789
  214. oxyd_shuffle()
  215.