HouseSystem(Not working)

--mMultiOS
--<~t<true>marcelOS<info<0||name<0|explorer>version<1|0.2>changePrint<2|false>eventfilter<0|internet|mouse_click|window_resize|window_fullscreen>EventManager<3|true>Debug<3|true>>code<0|print("Hello, explorer run under marcelOS")>>other<info<0||name<0|explorer>version<2|0.2>>code<0|~i<23>print("Unknown OS ...")>>>
Application.window = windows.CreateWindow( "LightSystem" , Application , true)
Application.window:SetSize(100,49)
Application.window:FindSpace(111)
-- denk drann beim Server in der 2ten Zeile beim eventfilter "internet" drinnen zu haben, andernfalls bekommt er keine internet events...

function Rahmen()
    local streifen = string.rep("-",Application.window.width)
        function Legende()
         Application.window:writePos(1,1,"Room")
         Application.window:writePos(15,1,"Light 1")
         Application.window:writePos(25,1,"Light 2")
         Application.window:writePos(35,1,"Door 1")
         Application.window:writePos(51,1,"Door 2")

        end

        function ComputerraumRahmen()
         Application.window:writePos(1,3,"Computerraum:")

         Application.window:writePos(15,3,"On",colors.white,colors.green)
         Application.window:writePos(19,3,"Off",colors.white,colors.red)

     Application.window:writePos(25,3,"On",colors.white,colors.green)
         Application.window:writePos(29,3,"Off",colors.white,colors.red)

     Application.window:writePos(35,3,"Open",colors.white,colors.green)
         Application.window:writePos(40,3,"Close",colors.white,colors.red)
         Application.window:writePos(46,3,"Go",colors.black,colors.yellow)

     Application.window:writePos(51,3,"Open",colors.white,colors.green)
         Application.window:writePos(56,3,"Close",colors.white,colors.red)
         Application.window:writePos(62,3,"Go",colors.black,colors.yellow)
        end

        function ServerraumRahmen()
         Application.window:writePos(1,5,"Serverraum:")

         Application.window:writePos(15,5,"On",colors.white,colors.green)
         Application.window:writePos(19,5,"Off",colors.white,colors.red)

     Application.window:writePos(25,5,"On",colors.white,colors.green)
         Application.window:writePos(29,5,"Off",colors.white,colors.red)

     Application.window:writePos(35,5,"Open",colors.white,colors.green)
         Application.window:writePos(40,5,"Close",colors.white,colors.red)
         Application.window:writePos(46,5,"Go",colors.black,colors.yellow)

     Application.window:writePos(51,5,"Open",colors.white,colors.green)
         Application.window:writePos(56,5,"Close",colors.white,colors.red)
         Application.window:writePos(62,5,"Go",colors.black,colors.yellow)
        end

        function TekkitraumRahmen()
         Application.window:writePos(1,7,"Tekkitraum:")

         Application.window:writePos(15,7,"On",colors.white,colors.green)
         Application.window:writePos(19,7,"Off",colors.white,colors.red)

     Application.window:writePos(25,7,"On",colors.white,colors.green)
         Application.window:writePos(29,7,"Off",colors.white,colors.red)

     Application.window:writePos(35,7,"Open",colors.white,colors.green)
         Application.window:writePos(40,7,"Close",colors.white,colors.red)
         Application.window:writePos(46,7,"Go",colors.black,colors.yellow)

     Application.window:writePos(51,7,"Open",colors.white,colors.green)
         Application.window:writePos(56,7,"Close",colors.white,colors.red)
         Application.window:writePos(62,7,"Go",colors.black,colors.yellow)
        end

        function LagerraumRahmen()
         Application.window:writePos(1,9,"Lagerraum:")

         Application.window:writePos(15,9,"On",colors.white,colors.green)
         Application.window:writePos(19,9,"Off",colors.white,colors.red)

     Application.window:writePos(25,9,"On",colors.white,colors.green)
         Application.window:writePos(29,9,"Off",colors.white,colors.red)

     Application.window:writePos(35,9,"Open",colors.white,colors.green)
         Application.window:writePos(40,9,"Close",colors.white,colors.red)
         Application.window:writePos(46,9,"Go",colors.black,colors.yellow)

     Application.window:writePos(51,9,"Open",colors.white,colors.green)
         Application.window:writePos(56,9,"Close",colors.white,colors.red)
         Application.window:writePos(62,9,"Go",colors.black,colors.yellow)
        end

        function Streifen()
         Application.window:writePos(1,2,streifen)
         Application.window:writePos(1,4,streifen)
         Application.window:writePos(1,6,streifen)
         Application.window:writePos(1,8,streifen)
         Application.window:writePos(1,10,streifen)
         Application.window:writePos(1,12,streifen)
         Application.window:writePos(1,14,streifen)
         Application.window:writePos(1,16,streifen)
         Application.window:writePos(1,18,streifen)
         Application.window:writePos(1,20,streifen)
         Application.window:writePos(1,22,streifen)
         Application.window:writePos(1,24,streifen)
         Application.window:writePos(1,26,streifen)
         Application.window:writePos(1,28,streifen)
         Application.window:writePos(1,30,streifen)
         Application.window:writePos(1,32,streifen)
         Application.window:writePos(1,34,streifen)
         Application.window:writePos(1,36,streifen)
         Application.window:writePos(1,38,streifen)
         Application.window:writePos(1,40,streifen)
         Application.window:writePos(1,42,streifen)
         Application.window:writePos(1,44,streifen)
         Application.window:writePos(1,46,streifen)
         Application.window:writePos(1,47,streifen)
        end

    Legende()
    Streifen()
        ComputerraumRahmen()
        ServerraumRahmen()
        TekkitraumRahmen()
        LagerraumRahmen()

end




function Eingabe()
local event,side,x,y = os.pullEvent()

Debug(event,tostring(side) .. " " .. tostring(x) .. " " .. tostring(y))

  if event == "mouse_click" then

  --mouse_click ist bisher nur für Light 1 vorhanden

        ---ComputerraumStart
        if ((x == 15) and (y == 3)) or ((x == 16) and (y == 3)) then                                                            -- 1 = ID des Servers
        ip.SendMessage( nil, 1, nil, 100, nil ,  "ComputerraumLightOn" )                                                        -- "ComputerraumLightOn" = die Message
                                                                                                                                -- rednet.send(1, "ComputerraumLightOn") --Zahl= Id des Server
        elseif ((x == 20) and (y == 3)) or ((x == 21) and (y == 3)) or ((x == 22) and (y == 3)) then                            -- 100 = Port des Servers, falls mehrere Programme gleichzeitig senden...
        ip.SendMessage( nil, 1, nil, 100, nil ,  "ComputerraumLightOff" )

        --ComputerraumEnd


        ---ServerraumStart
        elseif ((x == 15) and (y == 5)) or ((x == 16) and (y == 5)) then
        ip.SendMessage( nil, 1, nil, 100, nil ,  "ServerraumLightOn" )

        elseif ((x == 20) and (y == 5)) or ((x == 21) and (y == 5)) or ((x == 22) and (y == 3)) then
        ip.SendMessage( nil, 1, nil, 100, nil ,  "ServerraumLightOff" )

        --ServerraumEnd


        ---TekkitraumStart
        elseif ((x == 15) and (y == 7)) or ((x == 16) and (y == 7)) then
        ip.SendMessage( nil, 1, nil, 100, nil ,  "TekkitraumLightOn" )

        elseif ((x == 20) and (y == 7)) or ((x == 21) and (y == 7)) or ((x == 22) and (y == 7)) then
        ip.SendMessage( nil, 1, nil, 100, nil ,  "TekkitraumLightOff" )

        --TekkitraumEnd


        ---LagerraumStart
        elseif ((x == 15) and (y == 9)) or ((x == 16) and (y == 9)) then
        ip.SendMessage( nil, 1, nil, 100, nil ,  "LagerraumLightOn" )

        elseif ((x == 20) and (y == 9)) or ((x == 21) and (y == 9)) or ((x == 22) and (y == 9)) then
        ip.SendMessage( nil, 1, nil, 100, nil ,  "LagerraumLightOff" )

        --LagerraumEnd

        end

  end
end

while true do
        Rahmen()
        Eingabe()
        Application.window:Paint()
        mTask.sleepEvent(Application,1)
end