View difference between Paste ID: eukUeFYQ and rYh9cPex

 --mMultiOS
---<~t<true>marcelOS<info<0||name<0|explorer>version<1|0.2>changePrint<2|false>eventfilter<0|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 ...")>>>
+--<~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(40,35)
 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)
-	 Application.window.l:setFontColor( colours.white )
+
-	 term.setCursorPos(1,1)
+	 Application.window:writePos(1,1,"Computerraum:")
-	 term.setBackgroundColor(colors.black)
+	 Application.window:writePos(15,1,"On",colors.white,colors.green)
-	 Application.window:print( "Computerraum:" )
+	 Application.window:writePos(20,1,"Off",colors.white,colors.red)
-	 term.setCursorPos(15,1)
+	 Application.window:writePos(26,1,"Status:")
-	 term.setBackgroundColor(colors.green)
+	 Application.window:writePos(1,2,streifen)
-	 Application.window:print( "On" )
+
-	 term.setCursorPos(20,1)
+
-	 term.setBackgroundColor(colors.red)
+
-	 Application.window:print( "Off" )
+	 Application.window:writePos(1,3,"Serverraum:")
-	 term.setCursorPos(26,1)
+	 Application.window:writePos(15,3,"On",colors.white,colors.green)
-	 term.setBackgroundColor(colors.black)
+	 Application.window:writePos(20,3,"Off",colors.white,colors.red)
-	 Application.window:print( "Status:" )
+	 Application.window:writePos(26,3,"Status:")
 	 Application.window:writePos(1,4,streifen)
-	 Application.window.l:setFontColor( colours.white )
+
-	 term.setCursorPos(1,2)
+
-	 term.setBackgroundColor(colors.black)
+
-	 Application.window:print( "----------------------------------------------------------------------------------------------------------------------------------------------------------" )
+	 Application.window:writePos(1,5,"Tekkitraum:")
 	 Application.window:writePos(15,5,"On",colors.white,colors.green)
-	 Application.window.l:setFontColor( colours.white )
+	 Application.window:writePos(20,5,"Off",colors.white,colors.red)
-	 term.setCursorPos(1,3)
+	 Application.window:writePos(26,5,"Status:")
-	 term.setBackgroundColor(colors.black)
+	 Application.window:writePos(1,6,streifen)
-	 Application.window:print( "Serverraum:" )
+
-	 term.setCursorPos(15,3)
+
-	 term.setBackgroundColor(colors.green)
+
-	 Application.window:print( "On" )
+	 Application.window:writePos(1,7,"Lagerraum:")
-	 term.setCursorPos(20,3)
+	 Application.window:writePos(15,7,"On",colors.white,colors.green)
-	 term.setBackgroundColor(colors.red)
+	 Application.window:writePos(20,7,"Off",colors.white,colors.red)
-	 Application.window:print( "Off" )
+	 Application.window:writePos(26,7,"Status:")
-	 term.setCursorPos(26,3)
+	 Application.window:writePos(1,8,streifen)
-	 term.setBackgroundColor(colors.black)
+
-	 Application.window:print( "Status:" )
+
 	-- hier kein while true, da er sonnst immer zeichnen würde und niemals zur eventabfrage kommt. Außerdem soll er ja nur einmal zeichnen bei der Function Rahmen...
-	 Application.window.l:setFontColor( colours.white )
+
-	 term.setCursorPos(1,4)
+	ComputerraumRahmen()
-	 term.setBackgroundColor(colors.black)
+	ServerraumRahmen()
-	 Application.window:print( "----------------------------------------------------------------------------------------------------------------------------------------------------------" )
+	TekkitraumRahmen()
 	LagerraumRahmen()
-	 Application.window.l:setFontColor( colours.white )
+
-	 term.setCursorPos(1,5)
+
-	 term.setBackgroundColor(colors.black)
+
-	 Application.window:print( "Tekkitraum:" )
+ -- Auch hier kein While true,,,
-	 term.setCursorPos(15,5)
+
-	 term.setBackgroundColor(colors.green)
+
-	 Application.window:print( "On" )
+
-	 term.setCursorPos(20,5)
+local event,side,x,y = os.pullEvent()
-	 term.setBackgroundColor(colors.red)
+-- Durch diese Debugausgabe werden alle Events angezeigt, das sollte es um einiges einfacher machen ;)
-	 Application.window:print( "Off" )
+Debug(event,tostring(side) .. " " .. tostring(x) .. " " .. tostring(y))
-	 term.setCursorPos(26,5)
+-- mouse_click statt monitor_toch abfragen...
-	 term.setBackgroundColor(colors.black)
+  if event == "mouse_click" then
-	 Application.window:print( "Status:" )
+
 	-- Die Klammern sind wichtig, das hat zwar nichts mit marcelOS zu tun , aber mit lua allgemein...
-	 Application.window.l:setFontColor( colours.white )
+	if ((x == 15) and (y == 1)) or ((x == 16) and (y == 1)) then
-	 term.setCursorPos(1,6)
+
-	 term.setBackgroundColor(colors.black)
+	-- 1 = ID des Servers
-	 Application.window:print( "----------------------------------------------------------------------------------------------------------------------------------------------------------" )
+	-- 100 = Port des Servers, falls mehrere Programme gleichzeitig senden...
 	-- "ComputerraumLightOn" = die Message
-	 Application.window.l:setFontColor( colours.white )
+	ip.SendMessage( nil, 1, nil, 100, nil ,  "ComputerraumLightOn" )
-	 term.setCursorPos(1,7)
+	--rednet.send(1, "ComputerraumLightOn") --Zahl= Id des Server
-	 term.setBackgroundColor(colors.black)
+
-	 Application.window:print( "Lagerraum:" )
+
-	 term.setCursorPos(15,7)
+	if ((x == 20) and (y == 1)) or ((x == 21) and (y == 1)) or ((x == 22) and (y == 1)) then
-	 term.setBackgroundColor(colors.green)
+	ip.SendMessage( nil, 1, nil, 100, nil ,  "ComputerraumLightOff" )
-	 Application.window:print( "On" )
+	--rednet.send(1, "ComputerraumLightOff") --Zahl= Id des Server
-	 term.setCursorPos(20,7)
+
-	 term.setBackgroundColor(colors.red)
+
-	 Application.window:print( "Off" )
+	-- Die anderen Events wie das letzte erstellen...
-	 term.setCursorPos(26,7)
+
-	 term.setBackgroundColor(colors.black)
+
-	 Application.window:print( "Status:" )
+
 
-	 Application.window.l:setFontColor( colours.white )
+
-	 term.setCursorPos(1,8)
+
-	 term.setBackgroundColor(colors.black)
+
-	 Application.window:print( "----------------------------------------------------------------------------------------------------------------------------------------------------------" )
+
 	mTask.sleepEvent(Application,1)
-	while true do
+