[Enigma-cvs] enigma/data/levels ss_esp50.lua, NONE, 1.1 ss_esp50.png, NONE, 1.1 index_esprit.txt, 1.22, 1.23

[Martin Hawlisch <address@hidden>]

Update of /cvsroot/enigma/enigma/data/levels
In directory subversions:/tmp/cvs-serv19873/data/levels

Modified Files:
        index_esprit.txt 
Added Files:
        ss_esp50.lua ss_esp50.png 
Log Message:
New level from Sven


--- NEW FILE: ss_esp50.png ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: ss_esp50.lua ---
-- Sven Siggelkow 2003
-- Esprit 50

dofile(enigma.FindDataFile("levels/ant.lua"))
cells={}

cells[" "]=cell{floor="fl-leaves"}
cells["#"]=cell{stone="st-invisible"}
cells["B"]=cell{stone="st-actorimpulse_invisible"}
cells["1"]=cell{{{document,"x=4*4-30/2"}}}
cells["2"]=cell{{{document,"x=-7-3^2*(-1)^3"}}}
cells["3"]=cell{{{document,"x=4*3+5-2*7"}}}
cells["4"]=cell{{{document,"2^x=16"}}}
cells["e"]=cell{floor="fl-bluegray",stone="st-glass"}
cells["h"]=cell{parent=cells[" "],item="it-hollow"}
cells["H"]=cell{parent=cells[" "],item={"it-hollow", {essential=1}}}
cells["T"]=cell{stone={"st-timer", {name="test",action="callback", 
target="checkout", interval=1}}}

level = {
--  01234567890123456789
   "#B################B# ",--00     
   "Bh3              2hB ",--01     
   "#33              22# ",--02     
   "#                  # ",--03     
   "#               e  # ",--04     
   "#           e   e  #H",--05     
   "#       e   e   e  #T",--06     
   "#   e   e   e   e  # ",--07     
   "#                  # ",--08     
   "#                  # ",--09     
   "#44              11# ",--10     
   "Bh4              1hB ",--11     
   "#B################B# " --12     
}   
set_default_parent(cells[" "])

create_world_by_map(level,cells)

set_actor("ac-whiteball-small", 4.5,8.5,  {player=0, name="s1"})
set_actor("ac-whiteball-small",8.5,8.5,  {player=0,name="s2", mouseforce=1})
set_actor("ac-whiteball-small", 12.5,8.5, {player=0,name="s3", mouseforce=1})
set_actor("ac-whiteball-small",16.5,8.5, {player=0,name="s4", mouseforce=1})

ok=0

function checkout()
local x1,y1 = enigma.GetPos(enigma.GetNamedObject("s1"))
local x2,y2 = enigma.GetPos(enigma.GetNamedObject("s2"))
local x3,y3 = enigma.GetPos(enigma.GetNamedObject("s3"))
local x4,y4 = enigma.GetPos(enigma.GetNamedObject("s4"))
if (x1==18) and (y1==11) then ok=1  else ok=0 end
if (x2==18) and (y2==1)  then ok=ok else ok=0 end
if (x3==1)  and (y3==1)  then ok=ok else ok=0 end
if (x4==1)  and (y4==11) then ok=ok else ok=0 end
if ok==1 then 
enigma.KillItem(20,5) -- if every ball is in its own hole remove Essential hole 
for finishing level
end
end
     
x=0
y=0                                                             

for x=1,19,2 do
  for y=1,13,2 do
set_floor("fl-leavese1",x,y)
set_floor("fl-leavese2",x,y-1)
set_floor("fl-leavese3",x-1,y)
set_floor("fl-leavese4",x-1,y-1)
end
end
                                 
                                 
Index: index_esprit.txt
===================================================================
RCS file: /cvsroot/enigma/enigma/data/levels/index_esprit.txt,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** index_esprit.txt    23 Oct 2003 11:51:21 -0000      1.22
--- index_esprit.txt    27 Oct 2003 10:29:54 -0000      1.23
***************
*** 48,52 ****
  ss_esp48       |   esprit  48        | Sven Siggelkow
  ss_esp49       |   esprit  49        | Sven Siggelkow
! todo
  level4c        | Shadows
  ss_esp52       |   esprit  52        | Sven Siggelkow
--- 48,52 ----
  ss_esp48       |   esprit  48        | Sven Siggelkow
  ss_esp49       |   esprit  49        | Sven Siggelkow
! ss_esp50       |   esprit  50        | Sven Siggelkow
  level4c        | Shadows
  ss_esp52       |   esprit  52        | Sven Siggelkow