Light control help needed

I have a controller script (light-color and off) that I have edited (or thought to do what I want but it seems I have something messed up). along with a object listener script that again I edited.
if I keep the full scripts un edited to change color or turn the lights with the listener in them it works fine. BUT I don't want color change (or don't mind if I can get full bright.) I would like to just have on and off along with full bright on when the light source is on. issue is I can't get the llSetPrimitiveParams Right

I have this in the original that is touch only, but I am trying to set up a control for all the lights in a certain range (similar to a window tint system.)

llSetPrimitiveParams([PRIM_POINT_LIGHT, TRUE, color, intensity, radius, falloff]);
llSetPrimitiveParams([PRIM_FULLBRIGHT, ALL_SIDES, TRUE]);
g_OpenNow = TRUE;
this and FALSE for off works with the touch script.


but if I edit the listen script down to on and off and use that for on it wont work at all, as well if I change it to have the PRIM FULL BRIGHT in the 1st call for set primparms it doesn't work... is there an easy way to set this up? I can get it to work with out the full bright, but it doesn't look like the light is really on if I do besides the light emiting from the prim.

Thanks all, I have only edited and toyed with scripts and code, and am trying to learn simple (or what should be simple) stuff... if you can point me to a full perm free or sold item that will do this thats fine to

The code might be useful.

oops LOL

here is the listener:
///////////////////////////////
vector color = <1,1,1>;
float intensity = 10.000;
float radius = 6.000;
float falloff = 0.400;


default
{
state_entry()
{
llSetStatus(STATUS_PHANTOM, TRUE);
llListen(788, "", NULL_KEY, "" );
}

on_rez(integer num)
{
llResetScript();
}

listen(integer number, string name, key id, string message)
{ //--------------LightEffects----------

if(message=="ON"
{
llSetPrimitiveParams([PRIM_POINT_LIGHT, PRIM_FULLBRIGHT, ALL_SIDES, TRUE, color, intensity, radius, falloff]);
}

if(message=="OFF"
{
llSetPrimitiveParams([PRIM_POINT_LIGHT, PRIM_FULLBRIGHT, ALL_SIDES, FALSE, <1, 1, 1>, 1.0, 10.0, 0.75]);
}


}

}
///////////////////////////////////////
(note this was a try at adding the PRIM_FULLBRIGHT in the params call, I did it as well with a second ||SetPrim... under that one as well to no result, script saved fine. Like this ///// {
llSetPrimitiveParams([PRIM_POINT_LIGHT, TRUE, color, intensity, radius, falloff]);
llSetPrimitiveParams([PRIM_FULLBRIGHT, ALL_SIDES, TRUE]);
g_OpenNow = TRUE;//



and the controller
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
integer menu_handler;
integer menu_channel;

menu(key user,string title,list buttons)/
{
menu_channel = (integer)(llFrand(99999.0) * -1);
menu_handler = llListen(menu_channel,"","","";
llDialog(user,title,buttons,menu_channel);
llSetTimerEvent(5.0);
}

default
{state_entry()
{ llSetTouchText("Remote!";
}
touch_start(integer t)
{
menu(llDetectedKey(0),"Choose on or off...",["ON","OFF"]);

}
timer() //so the menu timeout and close its listener
{
llSetTimerEvent(0.0);
llListenRemove(menu_handler);
}
listen(integer channel,string name,key id,string message)
{
if (channel == menu_channel) //in case you have others listeners
{
integer c_channel = 788;//----CHANNEL FOR COMMANDS----
if(message == "ON"
{
llShout(c_channel, "ON";
}
else if(message == "OFF"
{
llShout(c_channel, "off";

}
}
}}

I get this right now with the above script
/////////
Object: llSetPrimitiveParams error running rule #1 (PRIM_POINT_LIGHT): arg #2 vector expected but integer given.
/////////////

Change the listen to:

    listen(integer number, string name, key id, string message)
    { //--------------LightEffects----------

        integer OnOff;
        if (message=="ON") OnOff = 1;
        else OnOff = 0;
        
        llSetPrimitiveParams([
            PRIM_POINT_LIGHT,OnOff, color, intensity, radius, falloff,
            PRIM_FULLBRIGHT, ALL_SIDES, OnOff
            ]);
    }

Thanks so much Ron that looks much better, but I get a syntax error line 30-1 the last }
EDIT >>>>
I have added this in in place of the other code like this

vector color = <1,1,1>;
float intensity = 10.000;
float radius = 6.000;
float falloff = 0.400;


default
{
state_entry()
{
llSetStatus(STATUS_PHANTOM, TRUE);
llListen(788, "", NULL_KEY, "" );
}

on_rez(integer num)
{
llResetScript();
}

listen(integer number, string name, key id, string message)
{ //--------------LightEffects----------

integer OnOff;
if (message=="ON") OnOff = 1;
else OnOff = 0;

llSetPrimitiveParams([
PRIM_POINT_LIGHT,OnOff, color, intensity, radius, falloff,
PRIM_FULLBRIGHT, ALL_SIDES, OnOff
]);
}

is there something I'm missing here? 

Time to spend a few days in the scripting wiki and learn more ;)

And EDIT again it needed one more } at the end and works great! YAY!!!! 

Thanks so much for your help :)