home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / martin17.lua < prev    next >
Encoding:
Text File  |  2003-01-05  |  2.7 KB  |  79 lines
  1. -- created by Martin Hawlisch
  2.  
  3. levelw = 39
  4. levelh = 25
  5.  
  6. floor = "fl-wood"
  7. stone = "st-glass"
  8.  
  9. create_world( levelw, levelh)
  10.  
  11. fill_floor("fl-water", 0,0,levelw,levelh)
  12.  
  13. function renderLine( line, pattern)
  14.     for i=1, strlen(pattern) do
  15.         local c = strsub( pattern, i, i)
  16.         if c =="#" then
  17.             set_floor( floor, i-1, line)
  18.             set_stone( stone, i-1, line)
  19.         elseif c == "o" then
  20.             set_floor( floor, i-1, line)
  21.             oxyd( i-1, line)
  22.         elseif c == "=" then
  23.             set_floor( floor, i-1, line)
  24.         elseif c == "x" then
  25.             set_floor( floor, i-1, line)
  26.             set_stone( "st-wood", i-1, line)
  27.         end
  28.     end
  29. end
  30.  
  31. -- Floor:   "="
  32. -- Border:  "#"
  33. -- Oxyd:    "o"
  34.  
  35. renderLine(  0, "                  o o##################")
  36. renderLine(  1, " ======= x=x == ==x ====== x x x x x  #")
  37. renderLine(  2, " =   = = === x===== =======######## x #")
  38. renderLine(  3, " =   = = =          =  =x==#======#xxx#")
  39. renderLine(  4, " =   = = =======    =  =x==#==#=xx#== #")
  40. renderLine(  5, " =   = =       =    =#=##==#==#=x=#o# #")
  41. renderLine(  6, " =   = = =======    =#==####==###=### #")
  42. renderLine(  7, " =   = = =          =#=x==##===##=====#")
  43. renderLine(  8, " =   = = =          o##=#=##===#===#==#")
  44. renderLine(  9, " =   = = =  ==== x=== #=#==#===#===####")
  45. renderLine( 10, " x   = = =  =   =   # x==#=#===#####   ")
  46. renderLine( 11, "o=   = ===  =   =   # ===x=#           ")
  47. renderLine( 12, "     =      =   x  #########           ")
  48. renderLine( 13, "o x==========      ####====#           ")
  49. renderLine( 14, " =              =  ##==x##=##          ")
  50. renderLine( 15, " =              =  #==x=x==== #######  ")
  51. renderLine( 16, " =              =  #===x=x=## #=====###")
  52. renderLine( 17, " ===============x  ######==#  #=x==x==#")
  53. renderLine( 18, "                     #==####  #x####==#")
  54. renderLine( 19, "           ======    #=   ==  ====##==#")
  55. renderLine( 20, "           = xxx     #    ====#=#==x=##")
  56. renderLine( 21, "           = x===x= ====   ####=##x=x=#")
  57. renderLine( 22, "           ====    #=##=#  #=x==x=x=x=#")
  58. renderLine( 23, "                   #=##=#  #====#=====#")
  59. renderLine( 24, "                    o  o   ############")
  60.  
  61. oxyd_shuffle()
  62.  
  63. doorh( 20,22, { name="door1"})
  64. doorh( 20,23, { name="door2"})
  65. doorv( 21,21, { name="door3"})
  66. doorh( 23,22, { name="door4"})
  67. doorh( 23,23, { name="door5"})
  68.  
  69. set_item( "it-trigger", 20,15, { action="openclose", target="door1"})
  70. set_item( "it-trigger", 20,16, { action="openclose", target="door2"})
  71. set_item( "it-trigger", 21,14, { action="openclose", target="door3"})
  72. set_item( "it-trigger", 21,15, { action="openclose", target="door4"})
  73. set_item( "it-trigger", 21,16, { action="openclose", target="door5"})
  74.  
  75. document( 23,18, "This level is much bigger! Press F3!")
  76.  
  77. set_actor("ac-blackball", 33.5, 19.5, {player=0})
  78.  
  79.