home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_pox55.lua < prev    next >
Encoding:
Text File  |  2003-09-30  |  2.9 KB  |  84 lines
  1. -- Sven Siggelkow 2003
  2. -- Per.Oxyd Single #55
  3.  
  4. dofile(enigma.FindDataFile("levels/ant.lua"))
  5. cells={}
  6.  
  7. cells[" "]=cell{floor="fl-rough"}
  8. cells["s"]=cell{floor="fl-space"}
  9. cells["#"]=cell{stone="st-marble"}
  10. cells["r"]=cell{stone="st-rotator-left"}
  11. cells["D"]=cell{parent=cells["s"],stone="st-death_invisible"}
  12. cells["b"]=cell{parent=cells[" "],stone="st-blocker"}
  13. cells["M"]=cell{{{mirrorp, TRUE, FALSE, 2}}}
  14. cells["R"]=cell{parent=cells[" "],stone="st-rotator_move-left"}
  15. cells["B"]=cell{stone={"st-bolder",  {name="bolder1", direction=EAST}}}
  16. cells["c"]=cell{parent=cells[" "],stone="st-rock3_break"} 
  17. cells["S"]=cell{stone={"st-switch", {action="onoff",  target="laser1"}}}
  18. cells["t"]=cell{item= {"it-trigger",{action="callback", target="s1"}}}
  19. cells["T"]=cell{item= {"it-trigger",{action="callback", target="s2"}}}
  20. cells[">"]=cell{stone="st-oneway-e"}
  21. cells["<"]=cell{stone="st-oneway-w"}
  22. cells["L"]=cell{stone={"st-laser", {on=FALSE, dir=NORTH, name="laser1"}}}
  23. cells["O"]=cell{oxyd}
  24. cells["w"]=cell{parent=cells[" "],item="it-wrench"}
  25. cells["d"]=cell{parent=cells[" "],item="it-floppy"}
  26. cells["x"]=cell{actor={"ac-blackball",{player=0}}}
  27. cells["X"]=cell{stone={"st-floppy", {action="callback", target="s3"}}}
  28.  
  29. level = {
  30. --  012345678901234567890123456789012345678
  31.    "ssssssssssssssssssssDDDDDDDDDDDDDDDDDDD",--00     
  32.    "#r##################ssssssssssssssssssD",--01     
  33.    "# B   x  B  w      RssssssssssssssssssD",--02     
  34.    "# ################ #ssssssssssssssssssD",--03     
  35.    "# # S         # d# #ssssssssssssssssssD",--04     
  36.    "# < >    R R     # >ssssssssssssssssssD",--05     
  37.    "# ### M   ###    # X##ssssssssssssssssD",--06     
  38.    "# > >  #R #Tb  R # <O#ssssssssssssssssD",--07     
  39.    "# #O#Bc   ### M  # ###ssssssssssssssssD",--08     
  40.    "#t#############L## #ssssssssssssssssssD",--09     
  41.    "r                  #ssssssssssssssssssD",--10     
  42.    "##################r#ssssssssssssssssssD",--11     
  43.    "ssssssssssssssssssssDDDDDDDDDDDDDDDDDDD" --12     
  44. }   
  45. set_default_parent(cells[" "])
  46.  
  47. create_world_by_map(level,cells)
  48.  
  49. local flag = {0,0,0}
  50.  
  51. function s1()
  52. %flag[1] = 1 - %flag[1]
  53. if %flag[1] == 0 then
  54.     set_stone("st-oneway-w", 2,5)
  55.     set_stone("st-oneway-e", 2,7)
  56.  else
  57.     set_stone("st-oneway-e", 2,5)
  58.     set_stone("st-oneway-w", 2,7)  
  59. end
  60. end
  61.  
  62. function s2()
  63. %flag[2] = 1 - %flag[2]
  64. if %flag[2] == 0 then
  65.     set_stone("st-oneway-e", 4,5)
  66.     set_stone("st-oneway-e", 4,7)
  67.  else
  68.     set_stone("st-oneway-w", 4,5)
  69.     set_stone("st-oneway-w", 4,7)  
  70. end
  71. end
  72.  
  73. function s3()
  74. %flag[3] = 1 - %flag[3]
  75. if %flag[3] == 0 then
  76.     set_stone("st-oneway-e", 19,5)
  77.     set_stone("st-oneway-w", 19,7)
  78.  else
  79.     set_stone("st-oneway-w", 19,5)
  80.     set_stone("st-oneway-e", 19,7)  
  81. end
  82. end                                                             
  83.                                  
  84.