home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / test_impulses.lua < prev    next >
Encoding:
Text File  |  2003-05-30  |  3.6 KB  |  110 lines
  1. -- A test level to test implementation of impulses
  2.  
  3. dofile(enigma.FindDataFile("levels/ralf.lua"))
  4.  
  5. debug_mode()
  6.  
  7. floortile = "fl-tigris"
  8. walltile = "st-rock3"
  9.  
  10. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  11.  
  12. level={
  13.    "########################################",
  14.    "#                                      #",
  15.    "#   r     l              E@I@W         #",
  16.    "#   ^     ^                       r    #",
  17.    "# r +>r l<+ l        O          O      #",
  18.    "#             O        #W E#      @    #",
  19.    "#   r  1  l   @         i i       N    #",
  20.    "#                 aw                   #",
  21.    "#                 %%    @E@ PPPPPP @   #",
  22.    "#             X   %%                   #",
  23.    "#             x              l         #",
  24.    "#      O@  Xx   XxEW@O      #  E@ #    #",
  25.    "#                                l     #",
  26.    "# #                           S        #",
  27.    "# S           X               @        #",
  28.    "# @           x              l         #",
  29.    "#             S                l       #",
  30.    "#             N             l          #",
  31.    "#             @               l        #",
  32.    "#             O      l                 #",
  33.    "# @                  EEEEEEEEEESl      #",
  34.    "# N                  @         @       #",
  35.    "# #                 lNWWWWWWWWWW       #",
  36.    "#                              l       #",
  37.    "#                                      #",
  38.    "########################################",
  39. }
  40.  
  41. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  42.  
  43. function trigger_test()
  44.    set_stone("st-blocker",2,17,{name="b1"})
  45.    set_stone("st-blocker",2,18,{name="b2"})
  46.  
  47.    set_item("it-trigger", 4,17,{action="trigger", target="b1"});
  48.    set_stone("st-switch", 5,18,{action="trigger", target="b2"});
  49. end
  50.  
  51. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  52.  
  53. cells={}
  54.  
  55. -- documentation
  56.  
  57. cells["1"]=cell{{{document, "Sometimes the turnstiles rotate two steps"}}}
  58.  
  59. -- basics
  60.  
  61. cells[" "] = cell{floor=floortile}
  62. cells["#"] = cell{parent=cells[" "],stone=walltile}
  63. cells["@"] = cell{parent=cells[" "],stone="st-brownie"}
  64.  
  65. cells["a"] = cell{parent=cells[" "],actor={"ac-blackball", {player=0}}}
  66. cells["O"] = cell{oxyd}
  67.  
  68. -- turnstiles:
  69. --cells["+"] = cell{parent=cells[" "],stone="st-turnstile-green"}
  70. cells["+"] = cell{parent=cells[" "],stone="st-turnstile"}
  71.  
  72. cells["%"] = cell{parent=cells[" "],stone="st-brake"}
  73.  
  74. cells["^"] = cell{parent=cells[" "],stone="st-turnstile-n"}
  75. cells["v"] = cell{parent=cells[" "],stone="st-turnstile-s"}
  76. cells["<"] = cell{parent=cells[" "],stone="st-turnstile-w"}
  77. cells[">"] = cell{parent=cells[" "],stone="st-turnstile-e"}
  78.  
  79. -- rotators:
  80.  
  81. cells["r"] = cell{parent=cells[" "],stone="st-rotator-right"}
  82. cells["l"] = cell{parent=cells[" "],stone="st-rotator-left"}
  83.  
  84. -- impulse stones
  85.  
  86. cells["i"] = cell{parent=cells[" "],stone="st-stoneimpulse"}
  87. cells["I"] = cell{parent=cells[" "],stone="st-stoneimpulse_movable"}
  88.  
  89. -- bolders and blockers
  90.  
  91. cells["E"] = cell{parent=cells[" "], stone={"st-bolder", {direction=EAST}}}
  92. cells["W"] = cell{parent=cells[" "], stone={"st-bolder", {direction=WEST}}}
  93. cells["N"] = cell{parent=cells[" "], stone={"st-bolder", {direction=NORTH}}}
  94. cells["S"] = cell{parent=cells[" "], stone={"st-bolder", {direction=SOUTH}}}
  95.  
  96. cells["X"] = cell{parent=cells[" "], stone="st-blocker"}
  97. cells["x"] = cell{parent=cells[" "], item="it-blocker"}
  98.  
  99. cells["w"] = cell{parent=cells[" "], item="it-magicwand"}
  100.  
  101. cells["P"] = cell{parent=cells[" "], stone="st-pull"}
  102.  
  103. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  104.  
  105. rs_create_world(level,cells)
  106. display.SetFollowMode(display.FOLLOW_SCROLLING)
  107. oxyd_shuffle()
  108.  
  109. trigger_test()
  110.