Demolition Company Mods

Script Dokumentation LS 2015 - SteerableToggleLightEvent (Patch 1.3)

Copyright (c) 2008-2015 GIANTS Software GmbH, Confidential, All Rights Reserved.
This document is to be published solely by ls-mods.de

1	-- Copyright (C) GIANTS Software GmbH, Confidential, All Rights Reserved.
2
3	SteerableToggleLightEvent = {};
4	SteerableToggleLightEvent_mt = Class(SteerableToggleLightEvent, Event);
5
6	InitStaticEventClass(SteerableToggleLightEvent, "SteerableToggleLightEvent", EventIds.EVENT_STEERABLE_TOGGLE_LIGHT);
7
8	function SteerableToggleLightEvent:emptyNew()
9	local self = Event:new(SteerableToggleLightEvent_mt);
10	return self;
11	end;
12
13	function SteerableToggleLightEvent:new(object, lightsTypesMask)
14	local self = SteerableToggleLightEvent:emptyNew()
15	self.lightsTypesMask = lightsTypesMask;
16	self.object = object;
17	return self;
18	end;
19
20	function SteerableToggleLightEvent:readStream(streamId, connection)
21	local id = streamReadInt32(streamId);
22	self.lightsTypesMask = streamReadInt32(streamId);
23	self.object = networkGetObject(id);
24	self:run(connection);
25	end;
26
27	function SteerableToggleLightEvent:writeStream(streamId, connection)
28	streamWriteInt32(streamId, networkGetObjectId(self.object));
29	streamWriteInt32(streamId, self.lightsTypesMask);
30	end;
31
32	function SteerableToggleLightEvent:run(connection)
33	self.object:setLightsTypesMask(self.lightsTypesMask, true);
34	if not connection:getIsServer() then
35	g_server:broadcastEvent(SteerableToggleLightEvent:new(self.object, self.lightsTypesMask), nil, connection, self.object);
36	end;
37	end;