home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ralf01.lua < prev    next >
Text File  |  2003-05-27  |  3KB  |  92 lines
  1. -- A level for Enigma
  2. -- Name:     Easy shifting..
  3. -- Filename:     ralf01.lua
  4. -- Copyright:     (c) Feb 2003 Ralf Westram
  5. -- Contact:     amgine@reallysoft.de
  6. -- License:     GPL v2.0 or above
  7.  
  8. floortile1 = "fl-hay"
  9. floortile2 = "fl-rough"
  10. walltile = "st-greenbrown"
  11. wallhole = "st-greenbrown_hole"
  12.  
  13. levelw = 20
  14. levelh = 13
  15.  
  16. create_world(levelw, levelh)
  17. oxyd_default_flavor = "b"       -- Default flavor for oxyd stones.
  18.  
  19. draw_border(walltile)
  20. fill_floor(floortile1, 0,0, level_width,level_height)
  21. fill_floor(floortile2, 0, 0,3,3)
  22. fill_floor(floortile2,17, 0,3,3)
  23. fill_floor(floortile2, 0,10,3,3)
  24. fill_floor(floortile2,17,10,3,3)
  25.  
  26. px = 0
  27. py = 0
  28.  
  29. function renderLine( line, pattern)
  30.     for i=1, strlen(pattern) do
  31.         local c = strsub( pattern, i, i)
  32.         if c =="#" then
  33.             set_stone(walltile, i, line)
  34.         elseif c == "%" then
  35.             set_stone(wallhole, i, line)
  36.         elseif c == "&" then
  37.             set_stone( "st-invisible_magic", i, line)
  38.         elseif c == "d" then
  39.            set_stone( "st-death", i, line)
  40.         elseif c == "m" then
  41.            set_item( "it-magicwand", i, line)
  42.         elseif c == "$" then
  43.             set_stone( "st-brownie", i, line)
  44.         elseif c == "@" then
  45.             px = i
  46.             py = line
  47.         end
  48.     end
  49. end
  50.  
  51. --               123456789012345678
  52. renderLine(  1, "o    |   |       o")
  53. renderLine(  2, "   ###   #  dmd   ")
  54. renderLine(  3, "#&##.....##%###%##")
  55. renderLine(  4, "   %%.#.##   &  | ")
  56. renderLine(  5, "   *# # # $#### #*")
  57. renderLine(  6, "   ## $$$ $   &&#%")
  58. renderLine(  7, "   #  # @ #=# #   ")
  59. renderLine(  8, "   #=### ## # ##=#")
  60. renderLine(  9, "   #  |     $$ #  ")
  61. renderLine( 10, "   # ###  ###  &  ")
  62. renderLine( 11, "o  #  *#  #*%  # o")
  63.  
  64. set_item( "it-trigger", 5, 3, {action="openclose",target="door1"})
  65. set_item( "it-trigger", 6, 3, {action="openclose",target="door2"})
  66. set_item( "it-trigger", 7, 3, {action="openclose",target="door3"})
  67. set_item( "it-trigger", 8, 3, {action="openclose",target="door4"})
  68. set_item( "it-trigger", 9, 3, {action="openclose",target="door5"})
  69. set_item( "it-trigger", 6, 4, {action="openclose",target="door6"})
  70. set_item( "it-trigger", 8, 4, {action="openclose",target="door7"})
  71.  
  72. set_stone(   "st-door", 7, 9, {name="door1", type="v"})
  73. set_stone(   "st-door", 5, 8, {name="door2", type="h"})
  74. set_stone(   "st-door",17, 4, {name="door3", type="v"})
  75. set_stone(   "st-door",17, 8, {name="door4", type="h"})
  76. set_stone(   "st-door",10, 1, {name="door5", type="v"})
  77. set_stone(   "st-door",12, 7, {name="door6", type="h"})
  78. set_stone(   "st-door", 6, 1, {name="door7", type="v"})
  79.  
  80. set_attrib( laser(4,5,TRUE,WEST), "name", "laser")
  81. set_stone("st-switch", 7,11, {action="onoff", target="laser"})
  82. document(12,11, "Dedicated to my friend Frank.")
  83. document(18,5, "This level is quite straightforward, isn't it? Just continue.. ;-)")
  84. set_actor("ac-blackball", px+0.5 , py+0.5, {player=0})
  85.  
  86. oxyd(1,11)
  87. oxyd(18,11)
  88. oxyd(1,1)
  89. oxyd(18,1)
  90.  
  91.  
  92.