home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / level6d.lua < prev    next >
Text File  |  2003-01-05  |  2KB  |  75 lines
  1. -- Siegfried Fennig
  2.  
  3. levelw = 39
  4. levelh = 13
  5.  
  6. create_world(levelw, levelh)
  7. draw_border("st-rock4")
  8. fill_floor("fl-sand", 0,0, level_width,level_height)
  9.  
  10. oxyd (26,4)
  11. oxyd (37,11)
  12.  
  13. set_item("it-brush",3,7)
  14.  
  15. draw_stones("st-glass", {37,8}, {1,0},1)
  16.  
  17. draw_stones("st-stonebrush", {2,4}, {1,0},3)
  18. draw_stones("st-stonebrush", {9,4}, {1,0},5)
  19. draw_stones("st-stonebrush", {4,3}, {1,0},3)
  20. draw_stones("st-stonebrush", {7,5}, {1,0},3)
  21. draw_stones("st-stonebrush", {6,7}, {1,0},3)
  22. draw_stones("st-stonebrush", {3,9}, {1,0},4)
  23. draw_stones("st-stonebrush", {16,8}, {1,0},3)
  24. draw_stones("st-stonebrush", {19,3}, {1,0},3)
  25. draw_stones("st-stonebrush", {25,3}, {1,0},4)
  26. draw_stones("st-stonebrush", {26,6}, {1,0},2)
  27. draw_stones("st-stonebrush", {9,4}, {1,0},5)
  28. draw_stones("st-stonebrush", {31,5}, {1,0},6)
  29. draw_stones("st-stonebrush", {28,9}, {1,0},7)
  30. draw_stones("st-stonebrush", {33,7}, {1,0},3)
  31. draw_stones("st-stonebrush", {2,6}, {0,1},4)
  32. draw_stones("st-stonebrush", {4,6}, {0,1},2)
  33. draw_stones("st-stonebrush", {8,8}, {0,1},4)
  34. draw_stones("st-stonebrush", {13,5}, {0,1},5)
  35. draw_stones("st-stonebrush", {17,2}, {0,1},5)
  36. draw_stones("st-stonebrush", {19,5}, {0,1},4)
  37. draw_stones("st-stonebrush", {22,3}, {0,1},6)
  38. draw_stones("st-stonebrush", {25,4}, {0,1},4)
  39. draw_stones("st-stonebrush", {24,8}, {0,1},2)
  40. draw_stones("st-stonebrush", {29,3}, {0,1},6)
  41. draw_stones("st-stonebrush", {31,1}, {0,1},3)
  42. draw_stones("st-stonebrush", {31,6}, {0,1},2)
  43. draw_stones("st-stonebrush", {36,6}, {0,1},6)
  44. draw_stones("st-stonebrush", {22,10}, {0,1},2)
  45. draw_stones("st-stonebrush", {9,2}, {0,1},2)
  46.  
  47. mirrorp(3,7,TRUE,FALSE, 1)
  48. mirrorp(5,7,TRUE,FALSE, 1)
  49. mirrorp(17,7,TRUE,FALSE, 3)
  50. mirrorp(36,2,TRUE,FALSE, 2)
  51.  
  52. set_stone( "st-timer", 2, 11, {action="callback", target="th"})
  53.  
  54. timer = 0
  55.  
  56. function th()
  57.     laser1=enigma.GetNamedObject("laser1")
  58.     if timer == 2 then
  59.         enigma.SendMessage(laser1, "on", nil)
  60.     end
  61.     if timer == 4 then
  62.         enigma.SendMessage(laser1, "off", nil)
  63.     end
  64.     timer = timer + 1
  65.     if timer == 6 then
  66.         timer = 0
  67.     end
  68. end
  69.  
  70. set_attrib( laser( 1, 11, TRUE, NORTH), "name", "laser1")
  71. laser1 = enigma.GetNamedObject("laser1")
  72.  
  73. set_actor("ac-blackball", 35.5,6.5 ,{player=0})
  74.  
  75.