#
#@ Do NOT edit this file.  It was auto-generated from test.mht.
#
# Category = Other

#
#
# Init results: 0 
# Floorplaning info:
#  - If you include x,y data, you can monitor and control these items
#    with the web floorplan page:  http://localhost:8080/bin/floorplan.pl
#  - For items, specify the x,y after the room group name:  room_group(x;y)
#  - For room groups, specify x,y,width,height relative to its
#    parent group:   Group, room_group, parent_group(x;y;w;h)
#  - By default, floorplan.pl will use $Property as the top level group
# Define Room groups for floorplan

$Garage                              =  new Group;
$Garage                              -> set_fp_location(0,0,20,20);
$Property                            =  new Group;
$Property                            -> add($Garage);

$LivingRoom                          =  new Group;
$LivingRoom                          -> set_fp_location(20,0,20,20);
$Property                            -> add($LivingRoom);

$BedRoom                             =  new Group;
$BedRoom                             -> set_fp_location(40,0,15,20);
$Property                            -> add($BedRoom);

$Backyard                            =  new Group;
$Backyard                            -> set_fp_location(0,20,55,10);
$Property                            -> add($Backyard);
#
# Type    Address   Name                   Groups                                      Other Info
#

$garage_light                        =  new X10_Item('A1', );
$All_Lights                          =  new Group;
$All_Lights                          -> add($garage_light);
$garage_light                        -> set_fp_location(10,10,1,1);
$Garage                              -> add($garage_light);

$test_light1                         =  new X10_Item('B1', );
$All_Lights                          -> add($test_light1);
$test_light1                         -> set_fp_location(5,15,1,1);
$LivingRoom                          -> add($test_light1);

$test_light2                         =  new X10_Item('B2', );
$All_Lights                          -> add($test_light2);
$test_light2                         -> set_fp_location(15,5,1,1);
$LivingRoom                          -> add($test_light2);

$bedroom_light1                      =  new X10_Item('C1', );
$All_Lights                          -> add($bedroom_light1);
$bedroom_light1                      -> set_fp_location(5,15,1,1);
$BedRoom                             -> add($bedroom_light1);

$bedroom_light2                      =  new X10_Item('C1', );
$All_Lights                          -> add($bedroom_light2);
$bedroom_light2                      -> set_fp_location(10,10,1,1);
$BedRoom                             -> add($bedroom_light2);

$fountain                            =  new X10_Appliance('D1', );
$Appliances                          =  new Group;
$Appliances                          -> add($fountain);
$fountain                            -> set_fp_location(30,2,1,1);
$Backyard                            -> add($fountain);

$backyard_light                      =  new X10_Item('D2', );
$All_Lights                          -> add($backyard_light);
$backyard_light                      -> set_fp_location(55,5,1,1);
$Backyard                            -> add($backyard_light);
# VOICE entries default to [ON,OFF]

my $v_garage_light_state;
$v_garage_light = new Voice_Cmd("Garage light [ON,OFF,BRIGHT,DIM]");
if ($v_garage_light_state = said $v_garage_light) {
  set $garage_light $v_garage_light_state;
  respond "Turning garage light $v_garage_light_state";
}

my $v_fountain_state;
$v_fountain = new Voice_Cmd("Fountain [ON,OFF]");
if ($v_fountain_state = said $v_fountain) {
  set $fountain $v_fountain_state;
  respond "Turning fountain $v_fountain_state";
}
# Here are some examples of adding multiple states to the same item

$motion                              =  new Serial_Item('XPJ', 'on');
$Motion                              =  new Group;
$Motion                              -> add($motion);

$motion                              -> add ('XPK', 'off');

$motion_unit                         =  new Serial_Item('XP6', 'computer room');
$Motion                              -> add($motion_unit);

$motion_unit                         -> add ('XP7', 'BedRoom');

$motion_unit                         -> add ('XP8', 'BedRoom dark');
# Here are some examples of specifying interface and module types
# If your want to use a non-default X10 interface, specify with the 1st 'other info' field
# If your X10 module support preset dim,      specify preset in the 2nd 'other info' field
#X10A,       O9,     living_room_fan,       Appliances|Upstairs|LivingRoom(10;10),  CM17
#X10I,       O7,     camera_light2,         All_Lights|Upstairs|LivingRoom(5;10),   CM11
#X10I,       O7,     camera_light,          All_Lights|Upstairs|LivingRoom(10;5),        , LM14
#X10I,       O7,     camera_light,          All_Lights|Upstairs|LivingRoom(10;5),        , preset
# Here are X10_Sensor examples for detecting motion and brightness
#
#X10MS,      CA,    work_room_motion,       Sensors|Motion_Sensors,      Motion
#X10MS,      CB,    work_room_brightness,   Sensors|Brighness_Sensors,   Brightness
#X10MS,      CA,    work_room_sensors,      Sensors,      		MS13    # This detects both motion and brightness