home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ralf09.lua < prev    next >
Encoding:
Text File  |  2003-07-11  |  1.3 KB  |  50 lines
  1. -- A level for Enigma
  2. -- Name:        Run like hell
  3. -- Filename:    ralf09.lua
  4. -- Copyright:     (C) May 2003 Ralf Westram
  5. -- Contact:     amgine@reallysoft.de
  6. -- License:     GPL v2.0 or above
  7.  
  8. dofile(enigma.FindDataFile("levels/ralf.lua"))
  9.  
  10. --debug_mode()
  11.  
  12. level={
  13.    "####o#o#o###o#o#o###",
  14.    "#  PvPvPvPvPvPvPvP #",
  15.    "# PvPvPvPvPvPvPvP  #",
  16.    "#  PvPvPvPvPvPvPvP #",
  17.    "# PvPvPvPvPvPvPvP  #",
  18.    "#  PvPvPvPvPvPvPvP #",
  19.    "# PvPvPvPvPvPvPvP  #",
  20.    "#  PvPvPvPvPvPvPvP #",
  21.    "# PvPvPvPvPvPvPvP  #",
  22.    "#  PvPvPvPvPvPvPvP #",
  23.    "# PvPvPvPvPvPvPvP  #",
  24.    "#a P P P P P P P Pd#",
  25.    "####################",
  26. }
  27.  
  28. cells={}
  29.  
  30. cells["!"] = cell{floor="fl-abyss"}
  31. cells[" "] = cell{floor="fl-red"}
  32.  
  33. cells["#"] = cell{parent=cells[" "],stone="st-rock3"}
  34. cells["P"] = cell{parent=cells[" "],stone="st-pull"}
  35. cells["@"] = cell{parent=cells[" "],stone="st-brownie"}
  36.  
  37. cells["^"] = cell{parent=cells[" "],stone={"st-bolder", {direction=NORTH}}}
  38. cells["v"] = cell{parent=cells[" "],stone={"st-bolder", {direction=SOUTH}}}
  39. cells[">"] = cell{parent=cells[" "],stone={"st-bolder", {direction=EAST}}}
  40. cells["<"] = cell{parent=cells[" "],stone={"st-bolder", {direction=WEST}}}
  41.  
  42. cells["a"] = cell{parent=cells[" "],actor={"ac-blackball", {player=0}}}
  43. cells["d"] = cell{{cells[" "],{document, "Calm down!"}}}
  44.  
  45. cells["o"] = cell{oxyd}
  46.  
  47.  
  48. rs_create_world(level,cells)
  49. oxyd_shuffle()
  50.