home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / martin04.lua < prev    next >
Text File  |  2003-01-05  |  2KB  |  68 lines
  1. -- created by Martin Hawlisch
  2.  
  3. levelw = 20
  4. levelh = 13
  5.  
  6. create_world( levelw, levelh)
  7.  
  8. fill_floor("fl-sand", 0,0,levelw,levelh)
  9.  
  10. function renderLine( line, pattern)
  11.     for i=1, strlen(pattern) do
  12.         local c = strsub( pattern, i, i)
  13.         if c =="#" then
  14.             set_stone( "st-greenbrown", i-1, line)
  15.         elseif c == "o" then
  16.             oxyd( i-1, line)
  17.         elseif c == "m" then
  18.             set_stone( "st-brownie", i-1, line)
  19.         end
  20.     end
  21. end
  22.  
  23. -- Floor:   " "
  24. -- Border:  "#"
  25. -- Oxyd:    "o"
  26. -- Movable: "m"
  27.  
  28. renderLine(  0, "####################")
  29. renderLine(  1, "#   =   #o##########")
  30. renderLine(  2, "# ###m  #          #")
  31. renderLine(  3, "# ###  m##########|#")
  32. renderLine(  4, "#o#  m m ##      = #")
  33. renderLine(  5, "### # ## #o ###### #")
  34. renderLine(  6, "#   # ## ####  ss# #")
  35. renderLine(  7, "# m  m         ss# #")
  36. renderLine(  8, "##### ### # #  ss# #")
  37. renderLine(  9, "#  o#     #|###### #")
  38. renderLine( 10, "#|########>        #")
  39. renderLine( 11, "#           <#######")
  40. renderLine( 12, "####################")
  41.  
  42. set_stone("st-door", 4, 1 , {name="door1", type="v"})
  43. set_item("it-trigger", 15,6, {action="openclose", target="door1"})
  44.  
  45. set_stone("st-door", 17, 4 , {name="door2", type="v"})
  46. set_item("it-trigger", 16,6, {action="openclose", target="door2"})
  47.  
  48. set_attrib(laser(12,11, TRUE, WEST), "name", "laser1")
  49. set_item("it-trigger", 15,7, {action="onoff", target="laser1"})
  50.  
  51. set_stone("st-door", 18, 3 , {name="door4", type="h"})
  52. set_item("it-trigger", 16,7, {action="openclose", target="door4"})
  53.  
  54. set_attrib(laser(10,10, TRUE, EAST), "name", "laser2")
  55. set_item("it-trigger", 15,8, {action="onoff", target="laser2"})
  56.  
  57. set_stone("st-door", 1, 10 , {name="door6", type="h"})
  58. set_item("it-trigger", 16,8, {action="openclose", target="door6"})
  59.  
  60.  
  61.  
  62. oxyd_shuffle()
  63.  
  64.  
  65.  
  66. set_actor("ac-blackball", 11.5, 8.5, {player=0})
  67.  
  68.