//########################################################################################
// 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 name>. Wer bist Du ?
    
+ wer bist du
- Hallo, ich bin <bot name>. Wer bist Du ?

+ hallo *
* <star> == <bot name> => Hallo. Wer bist Du ?
- Ich heisse nicht <star>, sondern <bot name>. 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}

+ 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