Other Language

[SkyDomain]

Hi

I wan't my HAL to talk in Swedish but don't know where to get a Swedish speech synthesis in TrueVoice.

Anyone knows where to get this?

[Medeksza]

The following web sites sell Swedish text-to-speech software compatible with Hal:
http://www.scansoft.com/realspeak/
http://www.infovox.se/tdemo.htm

This will give Hal a voice that can speak Swedish out loud, but in order to be able to have conversations in Swedish with Hal someone would need to modify Hal's script and databases to be in Swedish.

[onthecuttingedge2005]

'Hi SkyDomain.
'I made you a script to help you with Hal's Swedish text language.
'This little script should get you going in the right direction.
'Copy and paste this script somewhere in the middle of
'your default brain.
'No additional files are needed.
'>>>>>>>>> SWEDISH FOREIGN LANGUAGE <<<<<<<<<
'Here we teach Hal translations from English to Swedish, Example: Yes in Swedish is Ja
If InStr(OriginalSentence, " ") > 0 And InStr(1, OriginalSentence, " IN SWEDISH IS ", 1) > 0 Then
SentPieces = Split(OriginalSentence, " IN SWEDISH IS ", 2, vbTextCompare)
      SubPhrase = Trim(SentPieces(0))
      PredPhrase = Trim(SentPieces(1))
SubPhrase = HalBrain.AlphaNumericalOnly(SubPhrase)
PredPhrase = HalBrain.AlphaNumericalOnly(PredPhrase)
'This script is used to help hal translate English to Swedish, User must teach Hal the translations.
HalBrain.AppendFile WorkingDir & "Swedish.brn", """" & SubPhrase & """,""" & PredPhrase & """"

'Here we can convert Hal's English language to Swedish by removing the apostrophy on corrections.brn line to activate.
'User will have to teach Hal the translations as mentioned above.
'HalBrain.AppendFile WorkingDir & "Corrections.brn", """" & SubPhrase & """,""" & PredPhrase & """"

GetResponse = SubPhrase & ", is, " & PredPhrase & " in Swedish."
DebugInfo = DebugInfo & "Hal is learning Swedish: " & SubPhrase & " to " & PredPhrase & VbCrLf
Else
DebugInfo = DebugInfo & "Hal is not learning Swedish: " & SubPhrase & " to " & PredPhrase & VbCrLf
 End If
'Here Hal will translate English to Swedish, Example: User: Translate Yes to Swedish
'Hal: Yes, Ja in Swedish
 If InStr(UserSentence, " TRANSLATE ") > 0 And InStr(1, UserSentence, " TO SWEDISH ", 1) > 0 Then
Translate = HalBrain.ChooseSentenceFromFile(WorkingDir & "Swedish.brn") & Trim(SubPhrase) & " is " & (Trim(PredPhrase))
GetResponse = Translate & VbCrLf
DebugInfo = DebugInfo & "Translating from English to Swedish: " & GetResponse & VbCrLf
Else
DebugInfo = DebugInfo & "I'm not Translating from English to Swedish: " & GetResponse & VbCrLf
 End If
'Copyright 2003 2004 Gerald L.Blakley OnTheCuttingEdge2005@Yahoo.com
'All Copyrights are listed as freeware. no additional agreements
'are necessary.
'If you'd like to join us at Ultra Hal Bot Enhancement Forum
'please stop at: http://www.geocities.com/onthecuttingedge2005/UHEF.html

'Hope to see you up on the board.
'Jerry.

[lostbowyer]

Jerry
It's great that you are helping this member, would you do one thing for him and anyone else that may benefit from this script, legally, no one can use this script for any reason because you listed it is copyrighted, would you please create a license line to the effect that a person can use and modify this script for their own personal use, but cannot distribute or sell it without your permission?
I'm not trying to hassle you, but legally, no one can use any of your scripts even if posted in a public forum if a copyright is listed unless license terms are also included.

Thanks
Glenn