VCPscript for ambient color palettes

ambientcolors.VCPScript

begin
ConnectToEcuUDS('09') ;
IF ISCONNECTEDTOECU THEN
BEGIN
WRITELN('CONNECTED') ;
if dologin(31347) then writeln ('login OK') else writeln ('login nok') ;
WRITELN('Writing Ambient color list');
if WriteDataByID(2600,'201923fffffffcff5d7dfc000ec434228c688ad8e8235b5429bdab3998f5') then writeln('adaptation 1 ok') else writeln('adaptation  nok') ;

WRITELN('Writing LIN Ambient color list');
if WriteDataByID(2879,'201923fffffffcff5d7dfc000ec434228c688ad8e8235b5429bdab3998f5') then writeln('adaptation 1 ok') else writeln('adaptation  nok') ;

WRITELN('Writing Ambience	lighting color list 2');
if WriteDataByID(1414,'37294f277da73750dbf22020991919ffcba5e68f66c5613396341c632819ffc413f47a222f2aa0b732cc772b9df07cabd30b94edeff3c3a5b4946aa2') then writeln('adaptation 1 ok') else writeln('adaptation  nok') ;

WRITELN('Writing Ambience	lighting color list lin 2');
if WriteDataByID(1415,'37294f277da73750dbf22020991919ffcba5e68f66c5613396341c632819ffc413f47a222f2aa0b732cc772b9df07cabd30b94edeff3c3a5b4946aa2') then writeln('adaptation 1 ok') else writeln('adaptation  nok') ;


ConnectToEcuUDS('5F') ;
ECUReset;
END
ELSE
BEGIN
WRITELN('NOT CONNECTED') ;
END ;
CLOSECOMMUNICATION ;
END.