Let's see ... I tried creating a blue and a red point light on each side of the "rotating light", fixating them to it with FixObjectToObject(), like so:
SetAmbientColor( 30, 30, 30 )
SetSunActive (0)
myGround = CreateObjectPlane( 30, 30 )
SetObjectPosition (myGround, 0, 0, 0)
SetObjectRotation (myGround, 90, 0, 0)
setObjectColor (myGround, 255, 255, 255,255)
lightSource = CreateObjectBox (1.0, 1.0, 1.0)
SetObjectPosition (lightSource, 0, 0.5, 0)
// bluelightObject and redLightObject are thingies the pointlights are fixed to:
blueLightObject = CreateObjectBox (0.1, 0.1, 0.1)
SetObjectPosition (blueLightObject, getObjectX (lightSource)-2.0, getObjectY (lightSource)+1.5, getObjectZ (lightSource))
SetObjectVisible (blueLightObject, 0)
redLightObject = CreateObjectBox (0.1, 0.1, 0.1)
SetObjectPosition (redLightObject, getObjectX (lightSource)+2.0, getObjectY (lightSource)+1.5, getObjectZ (lightSource))
SetObjectVisible (redLightObject, 0)
// Here's the lights:
blueLight as Integer
blueLight = 123
CreatePointLight( blueLight, getObjectX (blueLightObject), getObjectY (blueLightObject), getObjectZ (blueLightObject), 10.0, 0, 0, 255 )
SetPointLightMode( blueLight, 1 )
redLight as Integer
redLight = 124
CreatePointLight( redLight, getObjectX (redLightObject), getObjectY (redLightObject), getObjectZ (redLightObject), 10.0, 255, 0, 0 )
SetPointLightMode( redLight, 1 )
FixObjectToObject( blueLightObject, lightSource )
FixObjectToObject( redLightObject, lightSource )
do
setObjectRotation(lightSource, 0, GetObjectAngleY( lightSource )+5.0, 0 )
SetPointLightPosition( blueLight, GetObjectWorldX (blueLightObject), getObjectWorldY (blueLightObject), getObjectWorldZ (blueLightObject) )
SetPointLightPosition( redLight, GetObjectWorldX (redLightObject), getObjectWorldY (redLightObject), getObjectWorldZ (redLightObject) )
Sync()
loop