home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / martin99.lua < prev    next >
Encoding:
Text File  |  2003-08-20  |  1005 b   |  42 lines
  1. -- created by Martin Hawlisch
  2. levelw =  10*19+1
  3. levelh = 13
  4. create_world(levelw, levelh)
  5. fill_floor("fl-metal")
  6.  
  7. function create_room( nr, goal)
  8.     draw_border( "st-plain", nr*19, 0, 20, 13)
  9.     set_item( "it-wormhole", nr*19+18, 1+goal, {range=1, strength=10, targetx=nr*19+19+11.5, targety=6.5})
  10.     for i=1, 9 do
  11.         item = enigma.GetItem(nr*19+18,1+i)
  12.         if item == nil then
  13.             set_item( "it-wormhole", nr*19+18, 1+i, {range=1, strength=10, targetx=nr*19+1.5, targety=6.5})
  14.         end
  15.     end
  16.     if (options.Difficulty==1) then -- easy
  17.         fill_floor( "fl-water", nr*19+1, 1, goal, 11)
  18.     else
  19.         fill_floor( "fl-water", nr*19+1, 1, 3, 11)
  20.     end
  21. end
  22.  
  23. create_room( 0, 3)
  24. create_room( 1, 1)
  25. create_room( 2, 4)
  26. create_room( 3, 1)
  27. create_room( 4, 5)
  28. create_room( 5, 9)
  29. create_room( 6, 2)
  30. create_room( 7, 6)
  31. create_room( 8, 5)
  32.  
  33. draw_border( "st-plain", 9*19, 0, 20, 13)
  34. oxyd( 9*19+2, 2)
  35. oxyd( 9*19+2, 10)
  36. oxyd( 9*19+17, 2)
  37. oxyd( 9*19+17, 10)
  38.  
  39. Document( 12,9, "P")
  40. Document( 13,9, "I")
  41. set_actor("ac-blackball", 11.5,6.5, {player=0})
  42.