home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / todo.lua < prev    next >
Encoding:
Text File  |  2003-01-05  |  1002 b   |  45 lines
  1. -- created by Martin Hawlisch
  2.  
  3. levelw = 20
  4. levelh = 13
  5.  
  6. create_world( levelw, levelh)
  7.  
  8. draw_border("st-rock1")
  9.  
  10. fill_floor("fl-abyss", 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-rock1", i-1, line)
  17.         end
  18.     end
  19. end
  20.  
  21. -- Floor:   " "
  22. -- Border:  "#"
  23.  
  24. renderLine(  2, "  ###  #  ##   #")
  25. renderLine(  3, "   #  # # # # # #")
  26. renderLine(  4, "   #  # # # # # #")
  27. renderLine(  5, "   #  # # # # # #")
  28. renderLine(  6, "   #   #  ##   #")
  29.  
  30. hollow( 3, 10)
  31. hollow( 7, 10)
  32. hollow(12, 10)
  33. hollow(16, 10)
  34. set_floor( "fl-space", 3, 10)
  35. set_floor( "fl-space", 7, 10)
  36. set_floor( "fl-space",12, 10)
  37. set_floor( "fl-space",16, 10)
  38.  
  39.  
  40. set_actor("ac-whiteball-small",  3.5,10.5, {player=0, mouseforce=1})
  41. set_actor("ac-whiteball-small",  7.5,10.5, {player=0, mouseforce=1})
  42. set_actor("ac-whiteball-small", 12.5,10.5, {player=0, mouseforce=1})
  43. set_actor("ac-whiteball-small", 16.5,10.5, {player=0, mouseforce=1})
  44.  
  45.