2 |
-- (c) 2003 Petr Machata/ant_39 |
-- (c) 2003 Petr Machata/ant_39 |
3 |
-- Licensed under GPL v2.0 or above |
-- Licensed under GPL v2.0 or above |
4 |
-- 2003-01-24 |
-- 2003-01-24 |
5 |
|
-- 2003-02-09 -- fixes in object groups |
6 |
|
-- 2003-02-10 -- change in interfacing parent functions in ant.lua, rubber band changed |
7 |
|
|
8 |
dofile(enigma.FindDataFile("levels/ant.lua")) |
dofile(enigma.FindDataFile("levels/ant.lua")) |
9 |
|
|
10 |
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- |
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- |
11 |
|
|
12 |
num = 0 |
num = 0 |
13 |
function switchcell(tgt, x, y) |
function switchcell(x, y, tgt) |
14 |
num = num +1 |
num = num +1 |
15 |
|
|
16 |
local funcn = "switch_"..num |
local funcn = "switch_"..num |
18 |
"function() ".. |
"function() ".. |
19 |
" enigma.KillStone("..x..", "..y..") ".. |
" enigma.KillStone("..x..", "..y..") ".. |
20 |
" local obj = {set_stone('st-death', "..x..", "..y..", {})} ".. |
" local obj = {set_stone('st-death', "..x..", "..y..", {})} ".. |
21 |
" add_rubber_bands(actors, obj, 16) " |
" add_rubber_bands(actors, obj, 16, 0) " |
22 |
|
|
23 |
if (tgt) then |
if (tgt) then |
24 |
func0 = func0 .. |
func0 = func0 .. |
55 |
cells["D"]=cell{parent=cells[" "],stone={face="st-death"}} |
cells["D"]=cell{parent=cells[" "],stone={face="st-death"}} |
56 |
|
|
57 |
doors = {}; |
doors = {}; |
58 |
cells["b"]=cell{parent={cells["_"],{add_multiitem, {"st-door_b", doors, {type="v"}}}}} |
cells["b"]=cell{parent={cells["_"],{add_multistone, {"st-door_b", doors, {type="v"}}}}} |
59 |
cells["B"]=cell{parent={cells["_"],{switchcell, "doors"}}} |
cells["B"]=cell{parent={cells["_"],{switchcell, "doors"}}} |
60 |
|
|
61 |
cells["0"]=cell{parent=cells[" "],stone={face="st-oxyd", attr={flavor="b", color="0"}}} |
cells["0"]=cell{parent={cells[" "], oxyd}} |
|
cells["1"]=cell{parent=cells[" "],stone={face="st-oxyd", attr={flavor="b", color="1"}}} |
|
|
cells["2"]=cell{parent=cells[" "],stone={face="st-oxyd", attr={flavor="b", color="2"}}} |
|
|
cells["3"]=cell{parent=cells[" "],stone={face="st-oxyd", attr={flavor="b", color="3"}}} |
|
62 |
|
|
63 |
actors = {} |
actors = {} |
64 |
cells["O"]=cell{parent={cells[" "],{add_multiactor,{"ac-blackball", actors, {player=0}}}}} |
cells["O"]=cell{parent={cells[" "],{add_multiactor,{"ac-blackball", actors, {player=0}}}}} |
65 |
|
|
66 |
level = { |
level = { |
67 |
"#0################3#", |
"#0################0#", |
68 |
"0bTVVVVVVVVVVVVVVRb3", |
"0bTVVVVVVVVVVVVVVRb0", |
69 |
"#T* lR#", |
"#T* lR#", |
70 |
"#> O <#", |
"#> O <#", |
71 |
"#> _____ <#", |
"#> _____ <#", |
75 |
"#> _____ <#", |
"#> _____ <#", |
76 |
"#> <#", |
"#> <#", |
77 |
"#Lr t/#", |
"#Lr t/#", |
78 |
"1bL^^^^^^^^^^^^^^/b2", |
"0bL^^^^^^^^^^^^^^/b0", |
79 |
"#1################2#" |
"#0################0#" |
80 |
} |
} |
81 |
|
|
82 |
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- |
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- |
|
randomseed(enigma.GetTicks()) |
|
83 |
create_world_by_map(level) |
create_world_by_map(level) |
84 |
oxyd_shuffle() |
oxyd_shuffle() |