Übersetzer [Erkennungsproblem]

[autoit]

#include <GUIConstants.au3>
#NoTrayIcon
Global $SprachMenu[3], $NeueSprache[2], $UsedLanguage = 0
Global $Text[3][5] = [["Wie alt bist du?", _
"Wie lange willst du noch Plvl?", _
"Wieviel Gold möchtest du?", _
"Lass mal auf eine Party gehen!", _
"Fick dich!"], _
["How old are you?", _
"How long you need plvl?", _
"How much gold you want?", _
"Let's go to a party!", _
"Fuck You!"], _
["Skolka tebe let?", _
"Skolka ti escho budisch ka4at?", _
"Skolka Soloto ho4isch ti sa eto?", _
"Dawaj w we4erinku sajdom!", _
"jebi seba!"]]
Global $sGuiNames[3][8] = [["Deutsch", "Englisch", "Russisch", "Sprache", "Deutsch -> Englisch", "Deutsch -> Russisch", "Übersetzung", "Übersetzen"], _
["German", "English", "Russian", "Language", "Englisch -> German", "Englisch -> Russian", "Translation", "Translate"], _
["Nemezki", "Angliski", "Russki", "Isik", "Russki -> Nemezki", "Russki -> Angliski", "Perewo4ik", "Pirewidi"]]

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Noch keinen Namen gefunden... :P", 438, 246, 189, 115)
$GUISprache = GUICtrlCreateMenu("&Sprache")
$SprachMenu[0] = GUICtrlCreateMenuItem("&Deutsch", $GUISprache, 0, 1)
GUICtrlSetState(-1, $GUI_CHECKED)
$SprachMenu[1] = GUICtrlCreateMenuItem("&Englisch", $GUISprache, 0, 1)
$SprachMenu[2] = GUICtrlCreateMenuItem("&Russisch", $GUISprache, 0, 1)
$uebersetzungmenue = GUICtrlCreateMenu("&Übersetzung")
$NeueSprache[0] = GUICtrlCreateMenuItem("Deutsch -> Englisch", $uebersetzungmenue, 0, 1)
GUICtrlSetState(-1, $GUI_CHECKED)
$NeueSprache[1] = GUICtrlCreateMenuItem("Deutsch -> Russisch", $uebersetzungmenue, 0, 1)
$List1 = GUICtrlCreateList("", 0, 0, 157, 227)
$sText = ''
For $i = 0 To UBound($Text, 2) - 1
$sText &= $Text[0][$i] & "|"
Next
$sText = StringTrimRight($sText, 1)
GUICtrlSetData($List1, $sText)
$uebersetzenbutton = GUICtrlCreateButton("Übersetzen", 176, 104, 85, 25, 0)
$Edit1 = GUICtrlCreateEdit("", 280, 0, 157, 225)
GUISetState(@SW_SHOW)
;~ #EndRegion ### END Koda GUI section ###
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then Exit
If $msg = $uebersetzenbutton Then
If GUICtrlRead($List1) <> "" Then
If GUICtrlRead($NeueSprache[0]) = 65 Then $sValue = $sGuiNames[$UsedLanguage][4]
If GUICtrlRead($NeueSprache[1]) = 65 Then $sValue = $sGuiNames[$UsedLanguage][5]
$sValueSplit = StringSplit($sValue, " -> ", 1)
For $j = 0 To UBound($Text) - 1
If $sGuiNames[$UsedLanguage][$j] = $sValueSplit[2] Then $sNewLanguage = $j
Next
For $i = 0 To UBound($Text, 2) - 1
If $Text[$UsedLanguage][$i] = GUICtrlRead($List1) Then
GUICtrlSetData($Edit1, $Text[$sNewLanguage][$i])
ExitLoop
EndIf
Next
EndIf
EndIf
For $i = 0 To 2
If $msg = $SprachMenu[$i] Then _UpdateGui($i)
Next
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _UpdateGui($sNr)
$UsedLanguage = $sNr
For $i = 0 To 2
GUICtrlSetData($SprachMenu[$i], "&" & $sGuiNames[$sNr][$i])
Next
GUICtrlSetData($NeueSprache[0], $sGuiNames[$sNr][4])
GUICtrlSetData($NeueSprache[1], $sGuiNames[$sNr][5])
GUICtrlSetData($uebersetzungmenue, $sGuiNames[$sNr][6])
GUICtrlSetData($uebersetzenbutton, $sGuiNames[$sNr][7])
GUICtrlSetData($List1, "")
$sText = ''
For $i = 0 To UBound($Text, 2) - 1
$sText &= $Text[$sNr][$i] & "|"
Next
$sText = StringTrimRight($sText, 1)
GUICtrlSetData($List1, $sText)
EndFunc ;==>_UpdateGui

[/autoit]