home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / martin71.lua < prev    next >
Text File  |  2003-10-04  |  2KB  |  80 lines
  1. -- created by Martin Hawlisch
  2. enigma.ConserveLevel=FALSE                  -- \dh\
  3.  
  4. hitcounter = 0
  5. function turnbolder( dir)
  6.    -- ONLY UPON TRIGGER STEP-ON
  7.    hitcounter = hitcounter +1
  8.    if (mod(hitcounter,2)==0) then
  9.       return 0
  10.    end
  11.    -- GET DIRECTION
  12.    local bolder_dir=enigma.GetAttrib(enigma.GetNamedObject("bolder1"), "direction")
  13.    -- SET NEW DIRECTION
  14.    if dir == "left" then
  15.        bolder_dir = bolder_dir -1
  16.        while (bolder_dir<0) do
  17.           bolder_dir = bolder_dir +4
  18.        end
  19.    else
  20.        bolder_dir = bolder_dir +1
  21.     while (bolder_dir>3) do
  22.        bolder_dir = bolder_dir -4
  23.     end
  24.    end
  25.  
  26.    enigma.SendMessage(enigma.GetNamedObject("bolder1"), "direction", bolder_dir)
  27.  
  28. end
  29.  
  30. function turnbolder1()
  31.     turnbolder( "left")
  32. end
  33.  
  34. function turnbolder2()
  35.     turnbolder( "right")
  36. end
  37.  
  38. create_world( 5*19+1, 5*12+1)
  39.  
  40. draw_border("st-death")
  41. fill_floor( "fl-water")
  42.  
  43. fill_floor( "fl-sand", 40, 25, 16, 11)
  44. fill_floor( "fl-water", 46, 29, 4, 3)
  45.  
  46. fill_floor( "fl-sand", 19, 28, 6, 5)
  47. fill_floor( "fl-sand", 25, 29, 15, 3)
  48. fill_floor( "fl-sand", 9, 25, 10, 11)
  49.  
  50. fill_floor( "fl-sand", 71, 28, 6, 5)
  51. fill_floor( "fl-sand", 56, 29, 15, 3)
  52. fill_floor( "fl-sand", 77, 25, 10, 11)
  53.  
  54. fill_floor( "fl-sand", 46, 12, 4, 5)
  55. fill_floor( "fl-sand", 47, 17, 2, 8)
  56. fill_floor( "fl-sand", 41, 5, 14, 7)
  57.  
  58. fill_floor( "fl-sand", 46, 44, 4, 5)
  59. fill_floor( "fl-sand", 47, 36, 2, 8)
  60. fill_floor( "fl-sand", 41, 49, 14, 7)
  61.  
  62. set_item( "it-trigger", 48, 30, {action="callback", target="turnbolder2"})
  63. set_item( "it-trigger", 47, 30, {action="callback", target="turnbolder1"})
  64. set_item("it-magicwand", 43, 27)
  65. local st = set_stone("st-bolder", 13, 30, {name="bolder1", direction=2})
  66. local ac = set_actor("ac-blackball", 11.5, 30.5, {player=0})
  67.  
  68. oxyd( 10,25)
  69. oxyd( 10,35)
  70. oxyd( 85,25)
  71. oxyd( 85,35)
  72. oxyd( 41, 6)
  73. oxyd( 54, 6)
  74. oxyd( 41,54)
  75. oxyd( 54,54)
  76. oxyd_shuffle()
  77.  
  78. AddRubberBand( ac, st, 5, 2)
  79.  
  80.