--Sven Siggelkow 2003
--Esprit #66

levelw = 39
levelh = 37

create_world(levelw, levelh)

oxyd_default_flavor = "b"
fill_floor("fl-woven", 0, 0, levelw,levelh)
fill_floor("fl-abyss", 10, 13,19 ,11)
set_actor("ac-blackball", 9.5,2.5, {player=0})

function renderLine( line, pattern)
    for i=1, strlen(pattern) do
      local c = strsub( pattern, i, i)
      if c == "#" then
         set_stone("st-bluegray",i-1,line)
      elseif c == "h" then
	 set_stone("st-bluegray_hole", i-1,line)
      elseif c == "i" then
	 set_stone("st-bluegray_hole", i-1,line)
	 set_floor("fl-gradient",  i-1,  line, {type=4})
      elseif c == "j" then
	 set_stone("st-bluegray_hole", i-1,line)
	 set_floor("fl-gradient",  i-1,  line, {type=3})
      elseif c == "w" then
	 set_stone("st-bluegray_hole", i-1,line)
	 set_item("it-wormhole",i-1,line, {targetx="34.5",targety="33.5",strength=5,range= 0})           --
      elseif c == "W" then
	 set_stone("st-bluegray_hole", i-1,line)
	 set_item("it-wormhole",i-1,line, {targetx="10.5",targety="11.5",strength=5,range=0})               --
      elseif c == "k" then
	 set_stone("st-bluegray_hole", i-1,line)
	 set_item("it-key_a",i-1,line)
      elseif c == "l" then
	 set_stone("st-key_a", i-1,line, {action="callback", target="door"})
      elseif c == "1" then
         set_item("it-coin",i-1,line,{value=1})
      elseif c == "2" then
         set_item("it-coin",i-1,line,{value=4})
      elseif c == "g" then
         set_stone("st-grate2",i-1,line)
         set_floor("fl-woven",i-1,line)
      elseif c == "n" then
         set_stone("st-grate2",i-1,line)
         set_item("it-coin",i-1,line,{value=1})
         set_floor("fl-woven",i-1,line)
      elseif c == "t" then
         set_stone("st-thief",i-1,line)
      elseif c == "u" then
         set_item("it-umbrella",i-1,line)
      elseif c == "3" then
         set_stone("st-oneway_black-e",i-1,line,{name="3"})
      elseif c == "4" then
         set_stone("st-oneway_black-n",i-1,line,{name="4"})
      elseif c == "5" then
         set_stone("st-oneway_black-e",i-1,line,{name="5"})
      elseif c == "6" then
         set_stone("st-oneway_black-n",i-1,line,{name="6"})
      elseif c == "7" then
         set_stone("st-oneway_black-w",i-1,line,{name="7"})
      elseif c == "8" then
         set_stone("st-oneway_black-w",i-1,line,{name="8"})
      elseif c == "9" then
         set_stone("st-oneway_black-n",i-1,line,{name="9"})
      elseif c == "0" then
         set_stone("st-oneway_black-n",i-1,line,{name="0"})
      elseif c == "a" then
         set_stone("st-oneway_black-n",i-1,line,{name="a"})
      elseif c == "b" then
         set_stone("st-oneway_black-n",i-1,line,{name="b"})
      elseif c == "c" then
         set_stone("st-oneway_black-e",i-1,line,{name="c"})
      elseif c == "d" then
         set_stone("st-oneway_black-s",i-1,line,{name="d"})
      elseif c == "e" then
         set_stone("st-oneway_black-w",i-1,line,{name="e"})
      elseif c == "f" then
         set_stone("st-oneway_black-w",i-1,line,{name="f"})
      elseif c=="A" then
         set_stone("st-coinslot", i-1,line,{target="s3", action="callback"})
      elseif c=="B" then
         set_stone("st-coinslot", i-1,line,{target="s4", action="callback"})
      elseif c=="C" then
         set_stone("st-coinslot", i-1,line,{target="s5", action="callback"})
      elseif c=="D" then
         set_stone("st-coinslot", i-1,line,{target="s6", action="callback"})
      elseif c=="E" then
         set_stone("st-coinslot", i-1,line,{target="s7", action="callback"})
      elseif c=="F" then
         set_stone("st-coinslot", i-1,line,{target="s8", action="callback"})
      elseif c=="G" then
         set_stone("st-coinslot", i-1,line,{target="s9", action="callback"})
      elseif c=="H" then
         set_stone("st-coinslot", i-1,line,{target="s0", action="callback"})
      elseif c=="I" then
         set_stone("st-coinslot", i-1,line,{target="sa", action="callback"})
      elseif c=="J" then
         set_stone("st-coinslot", i-1,line,{target="sb", action="callback"})
      elseif c=="K" then
         set_stone("st-coinslot", i-1,line,{target="sc", action="callback"})
      elseif c=="L" then
         set_stone("st-coinslot", i-1,line,{target="sd", action="callback"})
      elseif c=="M" then
         set_stone("st-coinslot", i-1,line,{target="se", action="callback"})
      elseif c=="N" then
         set_stone("st-coinslot", i-1,line,{target="sf", action="callback"})
      elseif c == "O" then
         oxyd( i-1, line)
        end
    end
end

--              012345678901234567890123456789012345678
renderLine(00, "#######################################")
renderLine(01, "#O     1             3               O#")
renderLine(02, "#u                 u A                #")
renderLine(03, "#           1        t                #")
renderLine(04, "#  ######4B#########################  #")
renderLine(05, "#  #O                5            O#  #")
renderLine(06, "#  #                 C             #  #")
renderLine(07, "#  #                 t             #  #")
renderLine(08, "#  #  ########D6#l###############  #  #")
renderLine(09, "#  #  #O hwk         t1        O#  #  #")
renderLine(10, "#  #  #  hhh         E          #  #  #")
renderLine(11, "tijt  #  hhh         7  1       #  #  #")
renderLine(12, "tijt  #  #####################  #  #  #")
renderLine(13, "tijt  #  #      tgt          #  #  #  #")
renderLine(14, "tijt  #  #      tgt          #  #  #  #")
renderLine(15, "tijt  #  #    tttgttttttt    #  #  #  #")
renderLine(16, "tijt  #  #    tngngngngnt    #2 #  #  #")
renderLine(17, "#  #  #  #    tgngngngngt    #  #  #  #")
renderLine(18, "#  F  #9G#    tngngngngnt    #H0#IatbJ#")
renderLine(19, "#  8  #  #    tgngngngngt    #  t  t  #")
renderLine(20, "thht  #  #    tngngngngnt    #  t  t  #")
renderLine(21, "thht  #  #    ttttttttttt    t  #  t  #")
renderLine(22, "thht  #  #                   t  #  #  #")
renderLine(23, "thht  t  #                   #  #  #  #")
renderLine(24, "thht  #  #####################  #  #  #")
renderLine(25, "thht  #              c          #  #  #")
renderLine(26, "#  #  #              K          #  #  #")
renderLine(27, "#  #  #O    1       1t    1    O#  #  #")
renderLine(28, "#  #  ###########ttt#########dL##  #  #")
renderLine(29, "#  #                 e             #  #")
renderLine(30, "#  #                 M             #  #")
renderLine(31, "#  #O 1      1       t 1          O#  #")
renderLine(32, "#  #################################  #")
renderLine(33, "#                    f           hhh  #")
renderLine(34, "#                    N           hhh  #")
renderLine(35, "#O     1       1     t           hWh O#")
renderLine(36, "#######################################")
--              012345678901234567890123456789012345678


oxyd_shuffle()

--             > ^ > ^ < < ^ ^ ^ ^ > v < <
--             3 4 5 6 7 8 9 0 a b c d e f door
local flags = {0,0,0,0,1,1,0,0,0,0,0,1,1,1,0}
--             1 2 3 4 5 6 7 8 9 0 1 2 3 4 5

function door()
%flags[15] = 1 - %flags[15]
if %flags[15] == 0 then
	set_stone("st-bluegray",17,12)
    else
	enigma.KillStone(17,12)
end
end

function s3()
%flags[1] = 1 - %flags[1]
if %flags[1] == 0 then
	enigma.SendMessage(enigma.GetNamedObject("3"),"direction",EAST)
    else
	enigma.SendMessage(enigma.GetNamedObject("3"),"direction",WEST)
end
end

function s4()
%flags[2] = 1 - %flags[2]
if %flags[2] == 0 then
	enigma.SendMessage(enigma.GetNamedObject("4"),"direction",NORTH)
    else
	enigma.SendMessage(enigma.GetNamedObject("4"),"direction",SOUTH)
end
end

function s5()
%flags[3] = 1 - %flags[3]
if %flags[3] == 0 then
	enigma.SendMessage(enigma.GetNamedObject("5"),"direction",EAST)
    else
	enigma.SendMessage(enigma.GetNamedObject("5"),"direction",WEST)
end
end

function s6()
%flags[4] = 1 - %flags[4]
if %flags[4] == 0 then
	enigma.SendMessage(enigma.GetNamedObject("6"),"direction",NORTH)
    else
	enigma.SendMessage(enigma.GetNamedObject("6"),"direction",SOUTH)
end
end

function s7()
%flags[5] = 1 - %flags[5]
if %flags[5] == 0 then
	enigma.SendMessage(enigma.GetNamedObject("7"),"direction",EAST)
    else
	enigma.SendMessage(enigma.GetNamedObject("7"),"direction",WEST)
end
end

function s8()
%flags[6] = 1 - %flags[6]
if %flags[6] == 0 then
	enigma.SendMessage(enigma.GetNamedObject("8"),"direction",EAST)
    else
	enigma.SendMessage(enigma.GetNamedObject("8"),"direction",WEST)
end
end

function s9()
%flags[7] = 1 - %flags[7]
if %flags[7] == 0 then
	enigma.SendMessage(enigma.GetNamedObject("9"),"direction",NORTH)
    else
	enigma.SendMessage(enigma.GetNamedObject("9"),"direction",SOUTH)
end
end

function s0()
%flags[8] = 1 - %flags[8]
if %flags[8] == 0 then
	enigma.SendMessage(enigma.GetNamedObject("0"),"direction",NORTH)
    else
	enigma.SendMessage(enigma.GetNamedObject("0"),"direction",SOUTH)
end
end

function sa()
%flags[9] = 1 - %flags[9]
if %flags[9] == 0 then
	enigma.SendMessage(enigma.GetNamedObject("a"),"direction",NORTH)
    else
	enigma.SendMessage(enigma.GetNamedObject("a"),"direction",SOUTH)
end
end

function sb()
%flags[10] = 1 - %flags[10]
if %flags[10] == 0 then
	enigma.SendMessage(enigma.GetNamedObject("b"),"direction",NORTH)
    else
	enigma.SendMessage(enigma.GetNamedObject("b"),"direction",SOUTH)
end
end

function sc()
%flags[11] = 1 - %flags[11]
if %flags[11] == 0 then
	enigma.SendMessage(enigma.GetNamedObject("c"),"direction",EAST)
    else
	enigma.SendMessage(enigma.GetNamedObject("c"),"direction",WEST)
end
end

function sd()
%flags[12] = 1 - %flags[12]
if %flags[12] == 0 then
	enigma.SendMessage(enigma.GetNamedObject("d"),"direction",NORTH)
    else
	enigma.SendMessage(enigma.GetNamedObject("d"),"direction",SOUTH)
end
end

function se()
%flags[13] = 1 - %flags[13]
if %flags[13] == 0 then
	enigma.SendMessage(enigma.GetNamedObject("e"),"direction",EAST)
    else
	enigma.SendMessage(enigma.GetNamedObject("e"),"direction",WEST)
end
end


function sf()
%flags[14] = 1 - %flags[14]
if %flags[14] == 0 then
	enigma.SendMessage(enigma.GetNamedObject("f"),"direction",EAST)
    else
	enigma.SendMessage(enigma.GetNamedObject("f"),"direction",WEST)
end
end
