home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 August / GSSH0804.iso / Geschicklichkeit / Enigma / Enigma-081.exe / data / levels / ant17.lua < prev    next >
Encoding:
Text File  |  2003-06-26  |  3.0 KB  |  123 lines
  1. -- Arcoculture -- the Enigma Level
  2. -- (c) 2003 Petr Machata/ant_39
  3. -- Licensed under GPL v2.0 or above
  4. -- 2003-01-13
  5. -- 2003-06-24 -- changes in AddConstantForce
  6.  
  7. dofile(enigma.FindDataFile("levels/ant.lua"))
  8. dofile(enigma.FindDataFile("levels/natmaze.lua"))
  9.  
  10. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  11. -- i took base for this cell_to_level and render_cell from Nat Pryce's natmaze.lua maps
  12.  
  13. mazecellsize = 3
  14. mazebasesize = 2
  15. mazebranchsize = 2
  16. originx = 2
  17. originy = 2
  18. mazew=8
  19. mazeh=5
  20.  
  21. abyssfloor=cell{floor={face="fl-abyss"}}
  22. solidfloor =cell{parent={{randomfloor,{cell{floor={face="fl-metal"}},cell{floor={face="fl-tigris"}},0.15}}}}
  23. borderstone=cell{parent={abyssfloor, {randomfloor,{cell{stone={face="st-rock2"}},cell{stone={face="st-rock5"}},0.15}}}}
  24.  
  25. function cell_to_level( cellx, celly )
  26.    return originx + cellx * mazecellsize, originy + celly * mazecellsize
  27. end
  28.  
  29. function render_cell(maze, cellx, celly)
  30.    x,y = cell_to_level(cellx, celly)
  31.  
  32.    for xx=0,mazebasesize-1 do
  33.       for yy=0,mazebasesize-1 do
  34.      solidfloor(x+xx, y+yy)
  35.       end
  36.    end
  37.  
  38.    if maze:can_go_south(cellx,celly) then
  39.       for i=mazebasesize,mazecellsize do
  40.      for j=0,mazebranchsize-1 do
  41.         solidfloor(x+j, y+mazecellsize-i+1)
  42.      end
  43.       end
  44.    end
  45.  
  46.    if maze:can_go_east(cellx,celly) then
  47.       for i=mazebasesize,mazecellsize do
  48.      for j=0,mazebranchsize-1 do
  49.         solidfloor(x+mazecellsize-i+1, y+j)
  50.      end
  51.       end
  52.    end
  53. end
  54.  
  55. forces = {
  56.    {0, 1},
  57.    {1, 0},
  58.    {0, -1},
  59.    {-1, 0}
  60. }
  61. ticktim = 1.7
  62. force = 13
  63. curforce = nil
  64.  
  65. function tick()
  66.    if (not(curforce)) then
  67.       curforce = 1
  68.    end
  69.  
  70.    if (curforce == getn(forces)) then
  71.       curforce = 1
  72.    else
  73.       curforce = curforce +1
  74.    end
  75.  
  76.    local lforce = forces[curforce]
  77.    enigma.AddConstantForce(lforce[1]*force,lforce[2]*force)
  78. end
  79.  
  80.  
  81. function place_oxyd_stone(func, x,y)
  82.    oxyd(x, y)
  83.    func(x-1, y)
  84.    func(x, y-1)
  85.    func(x+1, y)
  86.    func(x, y+1)
  87. end
  88. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  89. cells={}
  90.  
  91. cells["w"]=cell{floor={face="fl-wood"}}
  92. cells["~"]=cell{parent={cells["w"]},stone={face="st-timer", attr={action="callback", target="tick", interval=ticktim}}}
  93.  
  94. cells["O"]=cell{parent=cells["w"],actor={face="ac-blackball", attr={player=0}}}
  95.  
  96. map = {
  97.    "wwwww",
  98.    "wwwww",
  99.    "ww~ww",
  100.    "wwwww",
  101.    "Owwww",
  102. }
  103. platformw, platformh = get_map_size(map)
  104.  
  105. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  106. maze0 = new_kruskal_maze(mazew, mazeh)
  107.  
  108. create_world(mazew*3+originx*2-1, mazeh*3+originy*2-1)
  109. fill_world_func(abyssfloor)
  110.  
  111. draw_border_func(borderstone)
  112. render_maze(maze0, render_cell)
  113. draw_map(originx, originy, map)--25
  114.  
  115. place_oxyd_stone(solidfloor, originx-1, originy-1)
  116. place_oxyd_stone(solidfloor, originx+mazew*3-1, originy-1)
  117. place_oxyd_stone(solidfloor, originx-1, originy+mazeh*3-1)
  118. place_oxyd_stone(solidfloor, originx+mazew*3-1, originy+mazeh*3-1)
  119.  
  120. oxyd_shuffle()
  121. -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
  122. display.SetFollowMode(display.FOLLOW_SCROLLING)
  123.