home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp79.lua < prev    next >
Text File  |  2003-09-19  |  2KB  |  62 lines
  1. -- Sven Siggelkow 2003
  2. -- ESPRIT #079
  3.  
  4. levelw = 20
  5. levelh = 13
  6. create_world(levelw, levelh)
  7. oxyd_default_flavor = "a"
  8. set_actor("ac-blackball", 10.5, 6.5, {player=0})
  9. fill_floor("fl-concrete", 0,0, level_width,level_height)
  10. enigma.ConserveLevel=FALSE
  11.  
  12. function renderLine( line, pattern)
  13.     for i=1, strlen(pattern) do
  14.       local c = strsub( pattern, i, i)
  15.       if c ==   "#" then
  16.          set_stone("st-brick",i-1,line)
  17.       elseif c =="c" then                                                               
  18.          set_item("it-coin", i-1,line,{value=1})
  19.       elseif c =="M" then 
  20.          set_stone("st-rock1_move",i-1,line)
  21.       elseif c =="m" then                                                               
  22.          set_stone("st-rock1_move",i-1,line)
  23.          set_item("it-spade", i-1,line)
  24.       elseif c =="o" then                                                               
  25.          set_item("it-hollow",i-1,line)
  26.       elseif c =="*" then                                                               
  27.          set_item("it-hill",i-1,line)
  28.       elseif c=="C" then
  29.          set_stone("st-coinslot", i-1,line,{target="s1", action="callback"})
  30.       elseif c=="1" then
  31.          set_stone("st-door_c", i-1,line, {name="door1", type="v"})
  32.       elseif c=="2" then
  33.          set_stone("st-door_c", i-1,line, {name="door2", type="v"})
  34.       elseif c=="R" then
  35.      set_actor("ac-rotor", i-1+0.5,line+0.5, {mouseforce=1, range=25, force=40})
  36.       elseif c=="O" then
  37.      oxyd(i-1,line) 
  38.         end
  39.     end
  40. end
  41. --              01234567890123456789
  42. renderLine(00, "####################")
  43. renderLine(01, "#O 1***o****o******#")
  44. renderLine(02, "# R2o*o***o**o**o**#")
  45. renderLine(03, "####C############*o#")
  46. renderLine(04, "#################o*#")  
  47. renderLine(05, "#                oo#")
  48. renderLine(06, "#       M  M   o   #")
  49. renderLine(07, "#              M o #")
  50. renderLine(08, "#  c cc         oo #")
  51. renderLine(09, "# c cc    m  M ooo #")
  52. renderLine(10, "# c c c      ooo   #")
  53. renderLine(11, "#            o    O#")
  54. renderLine(12, "####################")
  55. --              01234567890123456789
  56.                               
  57. oxyd_shuffle()
  58.  
  59. function s1()
  60.   enigma.SendMessage(enigma.GetNamedObject("door1"), "openclose", nil)
  61.   enigma.SendMessage(enigma.GetNamedObject("door2"), "openclose", nil)
  62. end