home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ss1.lua < prev    next >
Encoding:
Text File  |  2003-06-23  |  1.7 KB  |  66 lines
  1. -- Smutty Smurf 2003
  2. levelw = 20
  3. levelh = 13
  4.  
  5. create_world(levelw, levelh)
  6. oxyd_default_flavor = "c"       -- Default flavor for oxyd stones.
  7.  
  8. draw_border("st-rock1")
  9. fill_floor("fl-rough", 0,0, level_width,level_height)
  10.  
  11. draw_stones ("st-rock1", {5,2},{1,0},11)
  12. draw_stones ("st-rock1", {5,6},{1,0},5)
  13. draw_stones ("st-rock1", {11,6},{1,0},5)
  14. draw_stones ("st-rock1", {5,2},{0,1},5)
  15. draw_stones ("st-rock1", {15,2},{0,1},5)
  16. draw_stones ("st-rock1", {8,7},{0,1},5)
  17. draw_stones ("st-rock1", {12,7},{0,1},5)
  18. set_stone ("st-rock1",10,3)
  19.  
  20. draw_floor ("fl-water",{9,11},{1,0},3)
  21.  
  22. set_stone ("st-shogun",7,4)
  23. draw_stones ("st-shogun", {9,4},{1,0},5)
  24.  
  25. shogundot1( 9, 7, {action="callback" , target="trig1"})
  26. shogundot1( 9, 8, {action="callback" , target="trig2"})
  27. shogundot1( 9, 9, {action="callback" , target="trig3"})
  28. shogundot1( 9,10, {action="callback" , target="trig4"})
  29. shogundot1(10, 9, {action="callback" , target="trig5"})
  30. shogundot1(11, 9, {action="callback" , target="trig6"})
  31.  
  32. oxyd(1,11)
  33. oxyd(18,11)
  34.  
  35. set_actor("ac-blackball", 10.5,5.5, {player=0})
  36.  
  37. -- Ansrechbar als %door
  38. local door = set_stone("st-door-v", 15, 4)
  39.  
  40. -- Ansprechbar als %switches
  41. local switches={0,0,0,0,0,0}
  42. doorsopen=0
  43.  
  44. function trig1 () trigger(1) end 
  45. function trig2 () trigger(2) end 
  46. function trig3 () trigger(3) end
  47. function trig4 () trigger(4) end
  48. function trig5 () trigger(5) end
  49. function trig6 () trigger(6) end
  50.  
  51. function trigger(num)
  52.    %switches[num] = 1-%switches[num]
  53.    all=1
  54.    for x=1,6 do
  55.       if (%switches[x]==0) then
  56.          all = 0
  57.       end
  58.    end
  59.    if (doorsopen==0 and all==1) then
  60.       enigma.SendMessage(%door, "open", TRUE)
  61.       doorsopen = 1
  62.    elseif (doorsopen==1 and all==0) then
  63.       enigma.SendMessage(%door, "close", FALSE)
  64.       doorsopen = 0
  65.    end
  66. end