home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / jc03.lua < prev    next >
Encoding:
Text File  |  2003-06-26  |  1.2 KB  |  67 lines
  1. -- Why so slow?
  2. -- by Jens-Christian Korth
  3.  
  4. Force = 40
  5. ForceX = 0
  6. ForceY = 0
  7.  
  8. function SetForce(x,y)
  9.    enigma.AddConstantForce(x, y)
  10.    ForceX = x
  11.    ForceY = y
  12. end
  13.  
  14. function swT()
  15.    SetForce(ForceX, Force)
  16. end
  17.  
  18. function swB()
  19.    SetForce(ForceX, -Force)
  20. end
  21.  
  22. function swL()
  23.    SetForce(Force, ForceY)
  24. end
  25.  
  26. function swR()
  27.    SetForce(-Force, ForceY)
  28. end
  29.  
  30.  
  31. create_world(20, 13) 
  32. oxyd_default_flavor = "d"
  33. draw_border("st-rock5")
  34. fill_floor("fl-bluegray", 0,0, level_width,level_height)
  35. set_floor("fl-abyss",  1,  1)
  36. set_floor("fl-abyss", 18,  1)
  37. set_floor("fl-abyss",  1, 11)
  38. set_floor("fl-abyss", 18, 11)
  39.  
  40. for i = 2, 17 do
  41.    set_item("it-trigger",  i,  1, {action="callback", target="swT"})
  42.    set_item("it-trigger",  i, 11, {action="callback", target="swB"})
  43. end
  44.  
  45. for i = 2, 10 do
  46.    set_item("it-trigger",  1,  i, {action="callback", target="swL"})
  47.    set_item("it-trigger", 18,  i, {action="callback", target="swR"})
  48. end
  49.  
  50. oxyd( 2, 0)
  51. oxyd( 7, 0)
  52. oxyd(12, 0)
  53. oxyd(17, 0)
  54. oxyd( 2,12)
  55. oxyd( 7,12)
  56. oxyd(12,12)
  57. oxyd(17,12)
  58. oxyd( 0, 3)
  59. oxyd( 0, 9)
  60. oxyd(19, 3)
  61. oxyd(19, 9)
  62. oxyd_shuffle() 
  63.  
  64. set_actor("ac-blackball", 10,6.5, {player=0})
  65.  
  66. SetForce(2*Force, -2*Force)
  67.