home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss_esp27.lua < prev    next >
Encoding:
Text File  |  2003-07-31  |  1.5 KB  |  46 lines
  1. -- Smutty Smurf 2003
  2. -- ESPRIT #027
  3.  
  4. levelw = 20
  5. levelh = 13
  6. create_world(levelw, levelh)
  7. oxyd_default_flavor = "b"
  8. set_actor("ac-blackball", 9.5,6.5, {player=0})
  9. draw_checkerboard_floor( "fl-black", "fl-leaves", 0, 0, levelw, levelh)
  10. for x=0,9 do
  11.     for y=0,5 do
  12.     set_floor("fl-light",2*x+1,2*y+1)
  13.     end
  14.     end
  15. function renderLine( line, pattern)
  16.     for i=1, strlen(pattern) do
  17.       local c = strsub( pattern, i, i)
  18.       if c ==   "#" then
  19.          set_stone("st-invisible", i-1,line)
  20.       elseif c=="W" then
  21.          set_item("it-wormhole",i-1,line, {targetx=" 18.5",targety="6.5",strength=5})
  22.       elseif c=="w" then                                                                
  23.          set_item("it-wormhole",i-1,line, {targetx=" 9.5",targety="6.5",strength=5})
  24.       elseif c=="O" then
  25.      oxyd(i-1,line)
  26.         end
  27.     end  
  28. end
  29. --               01234567890123456789
  30. renderLine(00 , "####################")
  31. renderLine(01 , "#W#           #    #")
  32. renderLine(02 , "# O## ##### # # #O #")
  33. renderLine(03 , "# #  #      # # #  #")
  34. renderLine(04 , "# #  ## ##  # # ####")  
  35. renderLine(05 , "#    ##  #  # # ####")
  36. renderLine(06 , "# O#  # #.# # # #O #")
  37. renderLine(07 , "##### # # # # # #  #")
  38. renderLine(08 , "## ## # #   # # #  #")
  39. renderLine(09 , "#   # #  ###    #  #")
  40. renderLine(10 , "# O # #       ###O #")
  41. renderLine(11 , "#             #w   #")
  42. renderLine(12 , "####################")
  43. --               01234567890123456789
  44.  
  45. oxyd_shuffle()
  46.