mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-02-01 01:09:47 +00:00
117 lines
3.6 KiB
Plaintext
117 lines
3.6 KiB
Plaintext
//########################################################################################
|
||
// general.rive
|
||
// Version 0.3
|
||
// See 95_Babble.pm for licensing
|
||
//########################################################################################
|
||
//# Prof. Dr. Peter A. Henning
|
||
//########################################################################################
|
||
//# IMPORTANT: Save this file with UTF8 encoding. If you do not understand how to do this,
|
||
//# execute recode
|
||
//#
|
||
//# \xc3\xa4 = ä = ae
|
||
//# = ö = oe
|
||
//# = ü = ue
|
||
//# = Ã = ss
|
||
//#
|
||
//########################################################################################
|
||
|
||
+ hallo
|
||
- Hallo, ich bin <bot name2>. äöüà Wer bist Du ?
|
||
|
||
+ wer bist du
|
||
- Hallo, ich bin <bot name2>. Wer bist Du ?
|
||
|
||
+ hallo *
|
||
* <star> == <bot name> => Hallo. Wer bist Du ?
|
||
- Ich heisse nicht <star>, sondern <bot name2>. Wer bist Du ?
|
||
|
||
+ ich bin *
|
||
* <formal> == <bot master> => Gerne zu Diensten, Meister! <set name=<formal>>
|
||
* <formal> == <bot name> => Sehr schoen, wir haben denselben Namen! <set name=<formal>>
|
||
* <formal> == <get name> => Das sagtest Du schon. Komm zur Sache, <get name>!
|
||
* <get name> == undefined => <set name=<formal>>Schoen, Dich kennenzulernen, <get name>!
|
||
- <set oldname=<get name>><set name=<formal>>
|
||
^ Ich dachte, Dein Name sei <get oldname>? Bitte noch einmal! <set name=undefined>
|
||
|
||
+ was kannst du für mich tun
|
||
- Ich kann für Dich das Haus steuern
|
||
- Ich kann ganz verschiedene Dinge im Haus schalten und steuern
|
||
|
||
+ welche (orte|ortsangaben) kennst du
|
||
- <call>places</call>
|
||
|
||
+ was kannst du (steuern|schalten)
|
||
- <call>devices</call>
|
||
|
||
+ (welche|welches) * kennst du
|
||
- <call>devices</call>
|
||
|
||
+ wie kannst du * (steuern|schalten)
|
||
- <call>devhelp <star></call>
|
||
|
||
+ wie kannst du (den|das|die) * (steuern|schalten)
|
||
- <call>devhelp <star2></call>
|
||
|
||
+ was kannst du (mit|bei) * (machen|steuern|schalten)
|
||
- <call>devhelp <star2></call>
|
||
|
||
+ was kannst du (mit|bei) (dem|der|den) * (machen|steuern|schalten)
|
||
- <call>devhelp <star3></call>
|
||
|
||
+ was ist golf
|
||
- Das bedeutet, dass komische Leute in karierten Hosen mit lustigen kleinen Autos auf dem Rasen herumfahren. <call>devhelp golf</call> {weight=50}
|
||
- <call>devhelp golf</call>{weight=50}
|
||
|
||
+ was ist gong
|
||
- Damit weckst Du Dominic aus dem Dornrös-chenschlaf {weight=50}
|
||
- <call>devhelp gong</call>{weight=50}
|
||
|
||
+ mir ist (warm|heiÃ|heiss)
|
||
- Wenn dir <star1> ist, kann ich die Heizung ausstellen. Oder du öffnest ein Fenster.
|
||
|
||
+ was ist *
|
||
- <call>devhelp <star></call>
|
||
|
||
// object to get known devices
|
||
> object devices perl
|
||
my $hash = $main::defs{"Babble"};
|
||
my $str;
|
||
if( defined($hash->{DATA}{"devsalias"}) ){
|
||
my @da = keys %{$hash->{DATA}{"devsalias"}};
|
||
my $dl = pop @da;
|
||
$str = "Ich kenne die folgenden Ger\xc3\xa4te: ".join(", ",@da)." und ".$dl;
|
||
}else{
|
||
$str = "Ich kann keine Ger\xc3\xa4te finden";
|
||
}
|
||
return $str;
|
||
< object
|
||
|
||
// object to get known places
|
||
> object places perl
|
||
my $hash = $main::defs{"Babble"};
|
||
my $str;
|
||
if( defined($hash->{DATA}{"places"}) ){
|
||
my @pa = @{$hash->{DATA}{"places"}};
|
||
my $pl = pop @pa;
|
||
$str = "Ich kenne die folgenden Orte: ".join(", ",@pa)." und ".$pl;
|
||
}else{
|
||
$str = "Ich kann leider keine Orte finden";
|
||
}
|
||
return $str;
|
||
< object
|
||
|
||
// object to get help text for a device
|
||
> object devhelp perl
|
||
my ($rs, $bdev) = @_;
|
||
my $lbdev = lc($bdev);
|
||
my $hash = $main::defs{"Babble"};
|
||
my $str = $hash->{DATA}{"help"}{$lbdev};
|
||
if( !defined($str) || $str eq "" ){
|
||
$str = "Keine Ahnung, das Ger\xc3\xa4t $bdev kenne ich nicht";
|
||
}
|
||
return $str;
|
||
< object
|
||
|
||
|
||
|