home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / nat9.lua < prev    next >
Text File  |  2003-01-05  |  3KB  |  107 lines
  1. -- Balancing Act
  2. -- A level for Enigma
  3. -- Copyright (c) 2002 Nat Pryce
  4. -- License: GPL v2.0 or above
  5.  
  6.  
  7. screen_width = 20
  8. screen_height = 13
  9.  
  10. screens_x = 2
  11. screens_y = 1
  12.  
  13. create_world( (screens_x-1)*(screen_width-1) + screen_width,
  14.               (screens_y-1)*(screen_height-1) + screen_height )
  15.  
  16.  
  17. fill_floor( "fl-abyss", 0, 0, level_width, level_height )
  18. fill_floor( "fl-water", 3, 3, level_width-6, level_height-6 )
  19.  
  20. gradient( 5, 5, SLOPE_LARGE_SE )
  21. gradient( 5, level_height-6, SLOPE_LARGE_NE )
  22. gradient( level_width-6, 5, SLOPE_LARGE_SW )
  23. gradient( level_width-6, level_height-6, SLOPE_LARGE_NW )
  24. for x = 6,level_width-7 do
  25.     gradient( x, 5, SLOPE_S )
  26.     gradient( x, level_height-6, SLOPE_N )
  27. end
  28. for y = 6,level_height-7 do
  29.     gradient( 5, y, SLOPE_E )
  30.     gradient( level_width-6, y, SLOPE_W )
  31.     for x = 6, level_width-7 do
  32.         set_floor( "fl-normal", x, y )
  33.     end
  34. end
  35.  
  36.  
  37. for x = 3,level_width-4 do
  38.     gradient( x, 1, SLOPE_N )
  39.     set_floor( "fl-normal", x, 2 )
  40.     gradient( x, 3, SLOPE_S )
  41.     gradient( x, level_height-4, SLOPE_N )
  42.     set_floor( "fl-normal", x, level_height-3 )
  43.     gradient( x, level_height-2, SLOPE_S )
  44. end
  45.  
  46. for y = 3,level_height-4 do
  47.     gradient( 1, y, SLOPE_W )
  48.     set_floor( "fl-normal", 2, y )
  49.     gradient( 3, y, SLOPE_E )
  50.     gradient( level_width-4, y, SLOPE_W )
  51.     set_floor( "fl-normal", level_width-3, y )
  52.     gradient( level_width-2, y, SLOPE_E )
  53. end
  54.  
  55. set_floor( "fl-normal", 2, 2 )
  56. gradient( 3, 3, SLOPE_LARGE_SE )
  57. gradient( 1, 1, SLOPE_SMALL_NW )
  58. gradient( 2, 1, SLOPE_N )
  59. gradient( 1, 2, SLOPE_W )
  60.  
  61. set_floor( "fl-normal", 2, level_height-3 )
  62. gradient( 3, level_height-4, SLOPE_LARGE_NE )
  63. gradient( 1, level_height-2, SLOPE_SMALL_SW )
  64. gradient( 1, level_height-3, SLOPE_W )
  65. gradient( 2, level_height-2, SLOPE_S )
  66.  
  67. set_floor( "fl-normal", level_width-3, 2 )
  68. gradient( level_width-4, 3, SLOPE_LARGE_SW )
  69. gradient( level_width-2, 1, SLOPE_SMALL_NE )
  70. gradient( level_width-3, 1, SLOPE_N )
  71. gradient( level_width-2, 2, SLOPE_E )
  72.  
  73. set_floor( "fl-normal", level_width-3, level_height-3 )
  74. gradient( level_width-4, level_height-4, SLOPE_LARGE_NW )
  75. gradient( level_width-2, level_height-2, SLOPE_SMALL_SE )
  76. gradient( level_width-3, level_height-2, SLOPE_S )
  77. gradient( level_width-2, level_height-3, SLOPE_E )
  78.  
  79. gradient( 7, 3, SLOPE_LARGE_SW )
  80. gradient( 8, 3, SLOPE_LARGE_SE )
  81. gradient( 7, 4, SLOPE_SMALL_SW )
  82. gradient( 8, 4, SLOPE_SMALL_SE )
  83.  
  84. gradient( level_width-9, level_height-5, SLOPE_SMALL_NW )
  85. gradient( level_width-8, level_height-5, SLOPE_SMALL_NE )
  86. gradient( level_width-9, level_height-4, SLOPE_LARGE_NW )
  87. gradient( level_width-8, level_height-4, SLOPE_LARGE_NE )
  88.  
  89.  
  90. for sx = 1, screens_x-1 do
  91.     x = sx*(screen_width-1)
  92.     oxyd( x, 0 )
  93.     oxyd( x, level_height-1 )
  94. end
  95. for sy = 0, screens_y-1 do
  96.     y = sy*(screen_height-1) + screen_height/2
  97.     oxyd( 0, y )
  98.     oxyd( level_width-1, y )
  99. end
  100. oxyd( 1, 0 )
  101. oxyd( 1, level_height-1 )
  102. oxyd( level_width-2, 0 )
  103. oxyd( level_width-2, level_height-1 )
  104. oxyd_shuffle()
  105.  
  106. set_actor( "ac-blackball", 6.5, 6.5, {player=0} )
  107.