99my

fhem/FHEM/99_MyUtils.pm

@@ -9,6 +9,7 @@ MyUtils_Initialize($$)
 }
 
 my @rollHoch = (
+  "bad.roll", 
   "arb.rollWeg", 
   "arb.rollTerr",
   "kuch.rollStr",
@@ -32,6 +33,26 @@ my @rollRunter = (
   "schlaf.rollStr"
 );
 
+my @rollWeck = ( 
+  "schlaf.rollWeg", 
+  "schlaf.rollStr"
+);
+
+my @rollTest = ( 
+  "wohn.rollTerrR"
+);
+
+my @rollSchlaf = ( 
+  "schlaf.rollWeg", 
+  "schlaf.rollStr"
+);
+
+my @rollArb = ( 
+  "arb.rollTerr", 
+  "arb.rollWeg", 
+);
+
+
 
 sub myfhem($) {
     #print "@_\n";
@@ -94,6 +115,10 @@ sub RollGroup(\@$$)
     }
 }
 
+sub RollTest() {
+     &RollGroup(\@rollTest, "closes", 1);
+}
+
 sub RollAll($$) {
    #Log 1, "################";
    my ($cmd, $delay) = @_;
@@ -108,6 +133,12 @@ sub RollAll($$) {
 }
 
 
+sub RollWeck($) {
+   my ($delay) = @_;
+   &RollGroup(\@rollWeck, "up 5", $delay);
+}
+
+
 sub Untoggle($) {
     my ($obj) = @_;
     if (Value($obj) eq "toggle"){