home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp73.lua < prev    next >
Text File  |  2003-09-19  |  2KB  |  42 lines
  1. -- Sven Siggelkow 2003
  2.  
  3. levelw = 20
  4. levelh = 13
  5. create_world(levelw, levelh)
  6. oxyd_default_flavor = "a"
  7. fill_floor( "fl-floor_001",0,0,levelw,levelh)
  8. function renderLine( line, pattern)
  9.     for i=1, strlen(pattern) do
  10.       local c = strsub( pattern, i, i)
  11.       if c ==   "#" then
  12.          set_floor("fl-abyss",i-1,line)
  13.       elseif c=="d" then
  14.          set_actor("ac-blackball", i-.5,line+.5, {player=0})
  15.          document(i-1,line,"if you think this is to easy, then play -Bavarian Madness-")
  16.       elseif c =="W" then                                                               
  17.          set_stone("st-marble",i-1,line)        
  18.       elseif c =="." then                                                               
  19.          set_item("it-burnable-ash",i-1,line)
  20.       elseif c=="O" then
  21.      oxyd(i-1,line) 
  22.         end
  23.     end
  24. end
  25. --              01234567890123456789
  26. renderLine(00, "####################")
  27. renderLine(01, "WWWWWWWWWWWWWWWWWWWW")
  28. renderLine(02, "W###    .     . ###W")
  29. renderLine(03, "W#O  .      .d   O#W")  
  30. renderLine(04, "W#          .  .  #W")
  31. renderLine(05, "W  .               W")
  32. renderLine(06, "W     .            W")
  33. renderLine(07, "W .       . . .  . W")
  34. renderLine(08, "W#   .  .         #W")
  35. renderLine(09, "W#O  .     .  .  O#W")
  36. renderLine(10, "W###    .       ###W")
  37. renderLine(11, "WWWWWWWWWWWWWWWWWWWW")
  38. renderLine(12, "####################")
  39. --              01234567890123456789
  40.                               
  41. oxyd_shuffle()
  42.