home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ant33.lua < prev    next >
Text File  |  2003-04-25  |  4KB  |  80 lines
  1. -- Unfair -- the Enigma Level
  2. -- (c) 2003 Petr Machata/ant_39
  3. -- Licensed under GPL v2.0 or above
  4. -- 2003-04-25
  5. Require("levels/ant.lua")
  6.  
  7. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  8. cells={}
  9. use_cells(cells, "O", "W")
  10.  
  11. cells[" "]=cell{floor="fl-metal"}
  12. cells["#"]=cell{stone="st-rock2"}
  13. cells["%"]=cell{stone="st-swap"}
  14.  
  15. cells[">"]=cell{{{gradient, FLAT_FORCE_E}}}
  16. cells["<"]=cell{{{gradient, FLAT_FORCE_W}}}
  17. cells["^"]=cell{{{gradient, FLAT_FORCE_N}}}
  18. cells["v"]=cell{{{gradient, FLAT_FORCE_S}}}
  19. cells["`"]=cells[">"]
  20.  
  21. cells["w"]=cell{{cells["W"], cells["`"]}}
  22. cells["s"]=cell{item="it-spring1"}
  23.  
  24. cells["-"]=doorh
  25.  
  26. action_A  =cell{{{cells[">"], 1, 4}; mode=-1}}
  27. cells["A"]=cell{item={"it-trigger", {action="callback", target="action_A"}}}
  28.  
  29. cells["B"]=cell{{{switch, "doorB", "openclose"}}}
  30. cells["b"]=cell{{cells["`"], {doorv, {name="doorB"}}}}
  31.  
  32. success_C =function() send_message_named("doorC", "open", nil); end;
  33. failed_C  =function() send_message_named("doorC", "close", nil); end;
  34. states_C  =bool_table(3, 0, bool_and, success_C, failed_C)
  35. action_C  =cell{{{bool_set, states_C}}}
  36. cells["C"]=cell{item={"it-trigger", {action="callback", target="action_C"}}}
  37. cells["c"]=cell{{{doorh, {name="doorC"}}}}
  38.  
  39. cells["E"]=cell{{{switch, "doorE", "close"}}}
  40. cells["e"]=cell{{cells[" "], {doorv, {name="doorE"}}}}
  41.  
  42. slopes={}
  43. pivots={}
  44. cells["*"]=cell{{{add_multicell, slopes, 1}}}
  45. cells["&"]=cell{{{add_multicell, pivots, slopes}, cells[" "]}}
  46.  
  47. cells["O"]=cell{{cells["O"], {document, "I don't believe that you are the Marble. I won't let you pass until you prove me wrong: you have to be faster than my champion!"}}}
  48. cells["2"]=cell{actor={"ac-blackball", {player=1, mouseforce=0}}}
  49. cells["+"]=cell{{{document, "Congratulations! You may pass!"}}}
  50.  
  51. level = {
  52.    "...................................................................................................................",
  53.    "...................................................................................................................",
  54.    "#################......#########################################################################............#######",
  55.    "#```#```````````########``````````````````#``````````>>`vBvvvvvv`<vvv`D```````^vvvvvvvvvvv`````##############*****#",
  56.    "#2`````````````````````w``````````````````.``````````<^vv#>>>>>>``>vvvv>>>>>>>```````w```````````````````.` E*  &*#",
  57.    "#####``````````````#####``````````````````#````````````>>b^^`````#-#>>>v^^^^D`^^^^^^^^^^^^`````##############* 0 *#",
  58.    "....################...###########################################s#############################            #*   *#",
  59.    "#####              #####                            W W W# W   C #c# ..     #                  #      ======#* 0 *#",
  60.    "#O  A                  W.                           W  W  W W  C     ..                       W.   %W =XX   e* + *#",
  61.    "#   #           ########                            W W  # W   C     ..     #                  #      =W    #*****#",
  62.    "#################......#########################################################################      =     #######",
  63.    "...............................................................................................##############......",
  64.    "..................................................................................................................."
  65. }
  66.  
  67. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  68.  
  69. set_default_parent(" ")
  70. oxyd_default_flavor = "d"
  71. create_world_by_map(level)
  72.  
  73. send_message_named("doorE", "open", nil)
  74.  
  75. spread_tag(pivots)
  76. render_slopes(slopes, -1)
  77.  
  78. oxyd_shuffle()
  79. enigma.ConserveLevel=FALSE
  80.