home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp58.lua < prev    next >
Encoding:
Text File  |  2003-08-18  |  5.2 KB  |  118 lines
  1. -- Sven Siggelkow 2003
  2. -- ESPRIT #058
  3.  
  4. levelw = 39
  5. levelh = 25
  6. create_world(levelw, levelh)
  7. oxyd_default_flavor = "a"
  8. display.SetFollowMode(display.FOLLOW_SCROLLING)
  9. set_actor("ac-blackball", 19.5,13.5, {player=0})
  10. fill_floor("fl-normal",0,0,levelw,levelh)
  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-stone1", i-1,line)
  17.       elseif c == " " then
  18.          set_floor("fl-ice_001",i-1,line)
  19.          set_item("it-crack0",i-1,line)                                       
  20.       elseif c == "." then
  21.          set_floor("fl-ice_001",i-1,line)
  22.       elseif c == "w" then
  23.          set_floor("fl-floor_001",i-1,line)
  24.       elseif c=="1" then
  25.      set_floor("fl-gradient",  i-1,  line, {type=3})         
  26.       elseif c=="2" then
  27.      set_floor("fl-gradient",  i-1,  line, {type=4})   
  28.       elseif c=="3" then
  29.      set_floor("fl-gradient",  i-1,  line, {type=1})   
  30.       elseif c=="4" then
  31.      set_floor("fl-gradient",  i-1,  line, {type=2})         
  32.       elseif c=="a" then
  33.          set_floor("fl-gradient",  i-1,  line, {type=12})   
  34.       elseif c=="b" then
  35.          set_floor("fl-gradient",  i-1,  line, {type=10})         
  36.       elseif c=="c" then
  37.          set_floor("fl-gradient",  i-1,  line, {type=11})   
  38.       elseif c=="d" then
  39.          set_floor("fl-gradient",  i-1,  line, {type=9})  
  40.       elseif c=="+" then
  41.          set_floor("fl-normal", i-1,line)
  42.       elseif c =="M" then
  43.          set_item("it-wormhole",i-1,line, {targetx="10.5",targety="14.5",strength=0})
  44.       elseif c =="P" then
  45.          set_item("it-wormhole",i-1,line, {targetx="20.5",targety="3.5",strength=0})
  46.       elseif c =="Q" then
  47.          set_item("it-wormhole",i-1,line, {targetx="8.5",targety="9.5",strength=0})
  48.       elseif c =="R" then
  49.          set_item("it-wormhole",i-1,line, {targetx="12.5",targety="6.5",strength=0})
  50.       elseif c =="S" then
  51.          set_item("it-wormhole",i-1,line, {targetx="8.5",targety="9.5",strength=0})
  52.       elseif c =="T" then
  53.          set_item("it-wormhole",i-1,line, {targetx="15.5",targety="22.5",strength=0})
  54.       elseif c =="U" then
  55.          set_item("it-wormhole",i-1,line, {targetx="6.5",targety="18.5",strength=0})
  56.       elseif c =="V" then
  57.          set_item("it-wormhole",i-1,line, {targetx="15.5",targety="22.5",strength=0})
  58.       elseif c =="W" then
  59.          set_item("it-wormhole",i-1,line, {targetx="29.5",targety="11.5",strength=0})
  60.       elseif c =="X" then
  61.          set_item("it-wormhole",i-1,line, {targetx="34.5",targety="16.5",strength=0})
  62.       elseif c =="Y" then
  63.          set_item("it-wormhole",i-1,line, {targetx="22.5",targety="11.5",strength=0})
  64.       elseif c =="Z" then
  65.          set_item("it-wormhole",i-1,line, {targetx="28.5",targety="11.5",strength=0})
  66.       elseif c=="h" then                    
  67.          hammer(i-1,line)
  68.          set_floor("fl-floor_001",i-1,line)
  69.       elseif c == ">" then
  70.          set_stone("st-oneway-e",i-1,line)
  71.       elseif c == "<" then
  72.          set_stone("st-oneway-w",i-1,line)
  73.       elseif c == "g" then
  74.          set_stone("st-grate1",i-1,line)
  75.       elseif c == "H" then               
  76.          set_item("it-hollow",i-1,line)
  77.       elseif c == "p" then               
  78.          set_item("it-coffee",i-1,line)
  79.       elseif c == "x" then               
  80.          set_floor("fl-floor_001",i-1,line)
  81.          set_item("it-hill",i-1,line)
  82.       elseif c == "F" then
  83.          set_stone("st-fakeoxyd",i-1,line)         
  84.       elseif c == "O" then
  85.      oxyd(i-1,line)         
  86.         end
  87.     end  
  88. end
  89. --               012345678901234567890123456789012345678
  90. renderLine(00 , "#######################################")
  91. renderLine(01 , "#                   .............     #")
  92. renderLine(02 , "# .....     +++     +++++++++++++     #")
  93. renderLine(03 , "#.a444b#    + +     + #######   ++    #")
  94. renderLine(04 , "#.2www1#    + + +<+ M #a444b#    ++++ #")
  95. renderLine(05 , "#.2wOw1#    + + + +   #2www1#       H #")  
  96. renderLine(06 , "#.2www1#    + + + H+++g2wOw1#       + #")
  97. renderLine(07 , "#.c333d++>+ Q +++ +   #2www1#  .....+ #")
  98. renderLine(08 , "#.####+#  +  .    H   #c333d#  .a444b #")
  99. renderLine(09 , "#..+S#+#R +++a444b++  ###+###  .2www1 #")
  100. renderLine(10 , "#..+ #+#  ...2www1 +    #+#    .2wOw1 #")
  101. renderLine(11 , "#..+ #+#    .2wOw1+++++Z#+#Y++X 2whw1 #")
  102. renderLine(12 , "#..+ #+#    .2www1      #+#    .c333d #")
  103. renderLine(13 , "#..+ #+++++  c333d+++++p++.     +.... #") 
  104. renderLine(14 , "#..+ #+#+ +P +.............     +     #")
  105. renderLine(15 , "#..+ #+#+   .+.          a4b    + W.  #")
  106. renderLine(16 , "#..+ #+#++++++.   ...    2F1    + +.  #")
  107. renderLine(17 , "#..+ .+.. . .   .a444b.  c3d    + +.  #")
  108. renderLine(18 , "#..+ .+. . . .  .2www1.         + +.  #")  
  109. renderLine(19 , "#..+ .T..a444b. .2wOw1.   ##### + +.  #")
  110. renderLine(20 , "#..+.   .2www1. .2www1++++gggg<++++++.#")
  111. renderLine(21 , "#..++....2wOw1. .c333d... #####     +.#")
  112. renderLine(22 , "#...+++++2xww1.U ......  V+++++++++++.#")
  113. renderLine(23 , "#.  .....c333d.          ............ #")
  114. renderLine(24 , "#######################################")
  115. --               012345678901234567890123456789012345678
  116.                                
  117. oxyd_shuffle()
  118.