home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ralf15.lua < prev    next >
Encoding:
Text File  |  2003-08-16  |  1.7 KB  |  79 lines
  1. -- A level for Enigma
  2. -- Name:
  3. -- Filename:    ralf15.lua
  4. -- Copyright:     (C) Jul 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. level={
  11.    "###o###########o####",
  12.    "#_pgp_________pgp__#",
  13.    "#p___p_______p___p_#",
  14.    "#_____p_____p_____p#",
  15.    "#______p___p_______#",
  16.    "#gg_____p_p________#",
  17.    "oag______p_________o",
  18.    "#gg_____p_p________#",
  19.    "# _____p___p_______#",
  20.    "#_____p_____p_____p#",
  21.    "#p___p_______p___p_#",
  22.    "#_pgp_________pgp__#",
  23.    "###o###########o####",
  24. }
  25.  
  26. easy=(options.Difficulty==1)
  27. if easy then
  28.    seed = 947360
  29. else
  30.    seed = 8375
  31. end
  32.  
  33. randomseed(seed)
  34.  
  35. function randstone(x,y)
  36.    local r = random(1,7)
  37.    local st = "st-death"
  38.    if r<3 then
  39.       st = "st-stoneimpulse_movable"
  40.    elseif r<5 then
  41.       st = "st-grate1"
  42.    elseif r<7 then
  43.       st = "st-swap"
  44.    elseif r==7 then
  45.       if (random(1,6)>1) then
  46.          if (not easy) then
  47.             return -- no stone
  48.          else
  49.             st = "st-grate1"
  50.          end
  51.       end
  52.    end
  53.    set_stone(st,x,y)
  54. end
  55.  
  56. cells={}
  57.  
  58. cells[" "] = cell{floor="fl-sahara"}
  59. cells["#"] = cell{parent=cells[" "],stone="st-rock1"}
  60. cells["o"] = cell{oxyd}
  61.  
  62. --cells["x"] = cell{parent=cells[" "],stone="st-swap"}
  63. cells["p"] = cell{parent=cells[" "],stone="st-pull"}
  64. cells["g"] = cell{parent=cells[" "],stone="st-grate1"}
  65. --cells["I"] = cell{parent=cells[" "],stone="st-stoneimpulse"}
  66. --cells["i"] = cell{parent=cells[" "],stone="st-stoneimpulse_movable"}
  67. cells["_"] = cell{parent={cells[" "],randstone}}
  68.  
  69. cells["a"] = cell{parent=cells[" "],actor={"ac-blackball", {player=0}}}
  70.  
  71. rs_create_world(level,cells)
  72. oxyd_shuffle()
  73.  
  74. if easy then
  75.    enigma.ConserveLevel=TRUE
  76. else
  77.    enigma.ConserveLevel=FALSE
  78. end
  79.