Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

Al Bhed (from FFX) Translator!

Started by dbzfanatic , Sep 13 2008 07:59 AM

Please log in to reply

12 replies to this topic

#1 dbzfanatic

functional psychopath!!

Active Members
1,084 posts

Posted 13 September 2008 - 07:59 AM

Here's a translator for Al Bhed from FFX. It's written completely in autoit and it's pretty bare-bones but it works and includes spaces and special characters like ! and ~. Supports unicode (as far as I know anyway) and capitalizes the beginning of each word. Suggestions for improvements on looks or added features or anything else are welcome, as well as helpful crticism.

Edit: oops,wrong file version...twice even><. Sorry guys, It's about 3:30 am here so I'm a bit out of it...

Update 1: Fixed bug. You can now use ctrl+a when not in the window.

Al Bhed: Rarara, Caa E Dumt Oui Kioc Ed Fungc. Zicd Ica Dra Dnyhcmydun Du Dnyhcmyda Drec (Oui Upjeuicmo Tet Ed Cusaruf

) Yht Pehk-Pyty-Puus Oy Kud Dra Saccyka.

Attached Files

al_bhed_translator.exe 344.42KB 160 downloads

Edited by dbzfanatic, 14 September 2008 - 01:30 AM.

Go to my website. | My Zazzle Page (custom products)Al Bhed Translator | Direct link ScreenRec Pro Simple Text Editor (STE) [TUTORIAL]Task Scheduler UDF <--- First ever UDF!_ControlPaste() UDF

whats help ?

Back to top

#2 dandymcgee

Valik's #1 Fan

Active Members
812 posts

Posted 15 September 2008 - 01:13 AM

Lol, interesting script.

Random Comment: Your website knows my IP, ISP, and OS, but for some reason thinks i'm using IE7.. lol.

Edited by dandymcgee, 15 September 2008 - 01:15 AM.

- Dan [Website]

Back to top

#3 dbzfanatic

functional psychopath!!

Active Members
1,084 posts

Posted 23 September 2008 - 11:52 AM

Lol, interesting script.

Random Comment: Your website knows my IP, ISP, and OS, but for some reason thinks i'm using IE7.. lol.

Well blame danasoft for that:P I got that lil pic from then, I only wrote the counter on the front page and a few of the interior pages (only 3 that are actually viewed in the forums). Thanks for the comment btw, and yeah it's interesting but I was bored and playing FFX so I thought "there are a lot of web translators, why not a program?"

Go to my website. | My Zazzle Page (custom products)Al Bhed Translator | Direct link ScreenRec Pro Simple Text Editor (STE) [TUTORIAL]Task Scheduler UDF <--- First ever UDF!_ControlPaste() UDF

whats help ?

Back to top

#4 AlmarM

Programming my way.

Active Members
1,643 posts

Posted 23 September 2008 - 02:21 PM

Wow, cool

Never tought it could be this cool ^^,
If I can share my tought, its the same as this?

AutoIt

#RequireAdmin
#AutoIt3Wrapper_Version = 6.2

$GUI = GUICreate("iSass v6.2 - Updates at 'i' >>", 420, 290, -1, -1)

$TextToSassLabel = GUICtrlCreateLabel("Text -> Sass", 10, 10, 150, 30)
$TextInput = GUICtrlCreateInput("", 10, 50, 400, 20)
$CalcTextToSassButton = GUICtrlCreateButton("Calculate!", 10, 79)
$SassedTextInput = GUICtrlCreateInput("", 10, 115, 400, 20, BitOR("", 2048))
$CopySassedText = GUICtrlCreateButton("Copy", 70, 79)
$ShowSassedText = GUICtrlCreateButton("Show", 107, 79)
$ClearSassed = GUICtrlCreateButton("Clear", 147, 79)

$SassToTextLabel = GUICtrlCreateLabel("Text <- Sass", 10, 150, 150, 30)
$SassInput = GUICtrlCreateInput("", 10, 190, 400, 20)
$CalcSassToTextButton = GUICtrlCreateButton("Calculate!", 10, 220)
$TextFromSassInput = GUICtrlCreateInput("", 10, 259, 400, 20, BitOR("", 2048))
$CopyTextFromSass = GUICtrlCreateButton("Copy", 70, 220)
$ShowTextFromSass = GUICtrlCreateButton("Show", 107, 220)
$ClearText = GUICtrlCreateButton("Clear", 147, 220)

$xx = GUICtrlCreateButton("?", 390, 10, 20, 20)
$xxx = GUICtrlCreateButton("i", 370, 10, 20, 20)

GUICtrlSetFont($TextToSassLabel, 20, "", "", "Impact")
GUICtrlSetFont($SassToTextLabel, 20, "", "", "Impact")
GUISetState()
While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = -3
        Exit
    Case $nMsg = $CalcTextToSassButton
        $Read_Text = GUICtrlRead($TextInput)
        $SASS = _TextToSass($Read_Text)
        GUICtrlSetData($SassedTextInput, $SASS)
    Case $nMsg = $CalcSassToTextButton
        $Read_Sass = GUICtrlRead($SassInput)
        $TEXT = _SassToText($Read_SASS)
        GUICtrlSetData($TextFromSassInput, $TEXT)
    Case $nMsg = $CopySassedText
        $Read_Sassed_Text = GUICtrlRead($SassedTextInput)
        ClipPut($Read_Sassed_Text)
    Case $nMsg = $CopyTextFromSass
        $Read_Text_From_Sass = GUICtrlRead($TextFromSassInput)
        ClipPut($Read_Text_From_Sass)
    Case $nMsg = $ShowSassedText
        $Read_Sassed_Text_2 = GUICtrlRead($SassedTextInput)
        MsgBox(64, "iSass", $Read_Sassed_Text_2)
    Case $nMsg = $ShowTextFromSass
        $Read_Text_From_Sass_2 = GUICtrlRead($TextFromSassInput)
        MsgBox(64, "iSass", $Read_Text_From_Sass_2)
    Case $nMsg = $ClearSassed
        GUICtrlSetData($TextInput, "")
        GUICtrlSetState($TextInput, 256)
    Case $nMsg = $ClearText
        GUICtrlSetData($SassInput, "")
        GUICtrlSetState($SassInput, 256)
    Case $nMsg = $xx
        _About()
    Case $nMsg = $xxx
        _Updates()
    EndSelect
WEnd

Func _TextToSass($nText)
    $n_Text = GUICtrlRead($TextInput)
    $n_Text = StringReplace($n_Text, "a", "001", "", 1)
    $n_Text = StringReplace($n_Text, "A", "107", "", 1)
    $n_Text = StringReplace($n_Text, "b", "013", "", 1)
    $n_Text = StringReplace($n_Text, "B", "114", "", 1)
    $n_Text = StringReplace($n_Text, "c", "025", "", 1)
    $n_Text = StringReplace($n_Text, "C", "126", "", 1)
    $n_Text = StringReplace($n_Text, "d", "037", "", 1)
    $n_Text = StringReplace($n_Text, "D", "138", "", 1)
    $n_Text = StringReplace($n_Text, "e", "049", "", 1)
    $n_Text = StringReplace($n_Text, "E", "104", "", 1)
    $n_Text = StringReplace($n_Text, "f", "051", "", 1)
    $n_Text = StringReplace($n_Text, "F", "152", "", 1)
    $n_Text = StringReplace($n_Text, "g", "063", "", 1)
    $n_Text = StringReplace($n_Text, "G", "164", "", 1)
    $n_Text = StringReplace($n_Text, "h", "075", "", 1)
    $n_Text = StringReplace($n_Text, "H", "176", "", 1)
    $n_Text = StringReplace($n_Text, "i", "087", "", 1)
    $n_Text = StringReplace($n_Text, "I", "188", "", 1)
    $n_Text = StringReplace($n_Text, "j", "099", "", 1)
    $n_Text = StringReplace($n_Text, "J", "19", "", 1)
    $n_Text = StringReplace($n_Text, "k", "202", "", 1)
    $n_Text = StringReplace($n_Text, "K", "302", "", 1)
    $n_Text = StringReplace($n_Text, "l", "213", "", 1)
    $n_Text = StringReplace($n_Text, "L", "314", "", 1)
    $n_Text = StringReplace($n_Text, "m", "225", "", 1)
    $n_Text = StringReplace($n_Text, "M", "326", "", 1)
    $n_Text = StringReplace($n_Text, "n", "237", "", 1)
    $n_Text = StringReplace($n_Text, "N", "338", "", 1)
    $n_Text = StringReplace($n_Text, "o", "249", "", 1)
    $n_Text = StringReplace($n_Text, "O", "34", "", 1)
    $n_Text = StringReplace($n_Text, "p", "251", "", 1)
    $n_Text = StringReplace($n_Text, "P", "352", "", 1)
    $n_Text = StringReplace($n_Text, "q", "26", "", 1)
    $n_Text = StringReplace($n_Text, "Q", "364", "", 1)
    $n_Text = StringReplace($n_Text, "r", "275", "", 1)
    $n_Text = StringReplace($n_Text, "R", "376", "", 1)
    $n_Text = StringReplace($n_Text, "s", "287", "", 1)
    $n_Text = StringReplace($n_Text, "S", "388", "", 1)
    $n_Text = StringReplace($n_Text, "t", "299", "", 1)
    $n_Text = StringReplace($n_Text, "T", "39", "", 1)
    $n_Text = StringReplace($n_Text, "u", "401", "", 1)
    $n_Text = StringReplace($n_Text, "U", "502", "", 1)
    $n_Text = StringReplace($n_Text, "v", "413", "", 1)
    $n_Text = StringReplace($n_Text, "V", "514", "", 1)
    $n_Text = StringReplace($n_Text, "w", "425", "", 1)
    $n_Text = StringReplace($n_Text, "W", "526", "", 1)
    $n_Text = StringReplace($n_Text, "x", "437", "", 1)
    $n_Text = StringReplace($n_Text, "X", "538", "", 1)
    $n_Text = StringReplace($n_Text, "y", "449", "", 1)
    $n_Text = StringReplace($n_Text, "Y", "541", "", 1)
    $n_Text = StringReplace($n_Text, "z", "451", "", 1)
    $n_Text = StringReplace($n_Text, "Z", "552", "", 1)
    $n_Text = StringReplace($n_Text, " ", "975", "", 1)
    $n_Text = StringReplace($n_Text, "!", "574", "", 1)
    $n_Text = StringReplace($n_Text, "@", "585", "", 1)
    $n_Text = StringReplace($n_Text, "#", "596", "", 1)
    $n_Text = StringReplace($n_Text, "$", "607", "", 1)
    $n_Text = StringReplace($n_Text, "%", "618", "", 1)
    $n_Text = StringReplace($n_Text, "^", "629", "", 1)
    $n_Text = StringReplace($n_Text, "&", "63", "", 1)
    $n_Text = StringReplace($n_Text, "*", "64", "", 1)
    $n_Text = StringReplace($n_Text, "(", "652", "", 1)
    $n_Text = StringReplace($n_Text, ")", "663", "", 1)
    $n_Text = StringReplace($n_Text, "-", "674", "", 1)
    $n_Text = StringReplace($n_Text, "_", "685", "", 1)
    $n_Text = StringReplace($n_Text, "=", "696", "", 1)
    $n_Text = StringReplace($n_Text, "+", "707", "", 1)
    $n_Text = StringReplace($n_Text, "[", "718", "", 1)
    $n_Text = StringReplace($n_Text, "{", "729", "", 1)
    $n_Text = StringReplace($n_Text, "]", "73", "", 1)
    $n_Text = StringReplace($n_Text, "}", "741", "", 1)
    $n_Text = StringReplace($n_Text, ";", "752", "", 1)
    $n_Text = StringReplace($n_Text, ":", "763", "", 1)
    $n_Text = StringReplace($n_Text, "'", "774", "", 1)
    $n_Text = StringReplace($n_Text, '"', "785", "", 1)
    $n_Text = StringReplace($n_Text, "\", "796", "", 1)
    $n_Text = StringReplace($n_Text, "|", "807", "", 1)
    $n_Text = StringReplace($n_Text, ",", "818", "", 1)
    $n_Text = StringReplace($n_Text, "<", "829", "", 1)
    $n_Text = StringReplace($n_Text, ".", "838", "", 1)
    $n_Text = StringReplace($n_Text, ">", "845", "", 1)
    $n_Text = StringReplace($n_Text, "/", "852", "", 1)
    $n_Text = StringReplace($n_Text, "?", "863", "", 1)
    Return $n_Text
EndFunc

Func _SassToText($nSass)
    $n_Sass = GUICtrlRead($SassInput)
    $n_Sass = StringReplace($n_Sass, "001", "a", "", 1)
    $n_Sass = StringReplace($n_Sass, "107", "A", "", 1)
    $n_Sass = StringReplace($n_Sass, "013", "b", "", 1)
    $n_Sass = StringReplace($n_Sass, "114", "B", "", 1)
    $n_Sass = StringReplace($n_Sass, "025", "c", "", 1)
    $n_Sass = StringReplace($n_Sass, "126", "C", "", 1)
    $n_Sass = StringReplace($n_Sass, "037", "d", "", 1)
    $n_Sass = StringReplace($n_Sass, "138", "D", "", 1)
    $n_Sass = StringReplace($n_Sass, "049", "e", "", 1)
    $n_Sass = StringReplace($n_Sass, "104", "E", "", 1)
    $n_Sass = StringReplace($n_Sass, "051", "f", "", 1)
    $n_Sass = StringReplace($n_Sass, "152", "F", "", 1)
    $n_Sass = StringReplace($n_Sass, "063", "g", "", 1)
    $n_Sass = StringReplace($n_Sass, "164", "G", "", 1)
    $n_Sass = StringReplace($n_Sass, "075", "h", "", 1)
    $n_Sass = StringReplace($n_Sass, "176", "H", "", 1)
    $n_Sass = StringReplace($n_Sass, "087", "i", "", 1)
    $n_Sass = StringReplace($n_Sass, "188", "I", "", 1)
    $n_Sass = StringReplace($n_Sass, "099", "j", "", 1)
    $n_Sass = StringReplace($n_Sass, "19", "J", "", 1)
    $n_Sass = StringReplace($n_Sass, "202", "k", "", 1)
    $n_Sass = StringReplace($n_Sass, "302", "K", "", 1)
    $n_Sass = StringReplace($n_Sass, "213", "l", "", 1)
    $n_Sass = StringReplace($n_Sass, "314", "L", "", 1)
    $n_Sass = StringReplace($n_Sass, "225", "m", "", 1)
    $n_Sass = StringReplace($n_Sass, "326", "M", "", 1)
    $n_Sass = StringReplace($n_Sass, "237", "n", "", 1)
    $n_Sass = StringReplace($n_Sass, "338", "N", "", 1)
    $n_Sass = StringReplace($n_Sass, "249", "o", "", 1)
    $n_Sass = StringReplace($n_Sass, "342", "O", "", 1)
    $n_Sass = StringReplace($n_Sass, "251", "p", "", 1)
    $n_Sass = StringReplace($n_Sass, "352", "P", "", 1)
    $n_Sass = StringReplace($n_Sass, "26", "q", "", 1)
    $n_Sass = StringReplace($n_Sass, "364", "Q", "", 1)
    $n_Sass = StringReplace($n_Sass, "275", "r", "", 1)
    $n_Sass = StringReplace($n_Sass, "376", "R", "", 1)
    $n_Sass = StringReplace($n_Sass, "287", "s", "", 1)
    $n_Sass = StringReplace($n_Sass, "388", "S", "", 1)
    $n_Sass = StringReplace($n_Sass, "299", "t", "", 1)
    $n_Sass = StringReplace($n_Sass, "39", "T", "", 1)
    $n_Sass = StringReplace($n_Sass, "401", "u", "", 1)
    $n_Sass = StringReplace($n_Sass, "502", "U", "", 1)
    $n_Sass = StringReplace($n_Sass, "413", "v", "", 1)
    $n_Sass = StringReplace($n_Sass, "514", "V", "", 1)
    $n_Sass = StringReplace($n_Sass, "425", "w", "", 1)
    $n_Sass = StringReplace($n_Sass, "526", "W", "", 1)
    $n_Sass = StringReplace($n_Sass, "437", "x", "", 1)
    $n_Sass = StringReplace($n_Sass, "538", "X", "", 1)
    $n_Sass = StringReplace($n_Sass, "449", "y", "", 1)
    $n_Sass = StringReplace($n_Sass, "541", "Y", "", 1)
    $n_Sass = StringReplace($n_Sass, "451", "z", "", 1)
    $n_Sass = StringReplace($n_Sass, "552", "Z", "", 1)
    $n_Sass = StringReplace($n_Sass, "975", " ", "", 1)
    $n_Sass = StringReplace($n_Sass, "574", "!", "", 1)
    $n_Sass = StringReplace($n_Sass, "585", "@", "", 1)
    $n_Sass = StringReplace($n_Sass, "596", "#", "", 1)
    $n_Sass = StringReplace($n_Sass, "607", "$", "", 1)
    $n_Sass = StringReplace($n_Sass, "618", "%", "", 1)
    $n_Sass = StringReplace($n_Sass, "629", "^", "", 1)
    $n_Sass = StringReplace($n_Sass, "63", "&", "", 1)
    $n_Sass = StringReplace($n_Sass, "64", "*", "", 1)
    $n_Sass = StringReplace($n_Sass, "652", "(", "", 1)
    $n_Sass = StringReplace($n_Sass, "663", ")", "", 1)
    $n_Sass = StringReplace($n_Sass, "674", "-", "", 1)
    $n_Sass = StringReplace($n_Sass, "685", "_", "", 1)
    $n_Sass = StringReplace($n_Sass, "696", "=", "", 1)
    $n_Sass = StringReplace($n_Sass, "707", "+", "", 1)
    $n_Sass = StringReplace($n_Sass, "718", "[", "", 1)
    $n_Sass = StringReplace($n_Sass, "729", "{", "", 1)
    $n_Sass = StringReplace($n_Sass, "73", "]", "", 1)
    $n_Sass = StringReplace($n_Sass, "741", "}", "", 1)
    $n_Sass = StringReplace($n_Sass, "752", ";", "", 1)
    $n_Sass = StringReplace($n_Sass, "763", ":", "", 1)
    $n_Sass = StringReplace($n_Sass, "774", "'", "", 1)
    $n_Sass = StringReplace($n_Sass, "785", '"', "", 1)
    $n_Sass = StringReplace($n_Sass, "796", "\", "", 1)
    $n_Sass = StringReplace($n_Sass, "807", "|", "", 1)
    $n_Sass = StringReplace($n_Sass, "818", ",", "", 1)
    $n_Sass = StringReplace($n_Sass, "829", "<", "", 1)
    $n_Sass = StringReplace($n_Sass, "83", ".", "", 1)
    $n_Sass = StringReplace($n_Sass, "845", ">", "", 1)
    $n_Sass = StringReplace($n_Sass, "852", "/", "", 1)
    $n_Sass = StringReplace($n_Sass, "863", "?", "", 1)
    Return $n_Sass
EndFunc

Func _About()
    GUISetState(@SW_DISABLE, $GUI)
    $GUI2 = GUICreate("About", 200, 125)
    $Edit = GUICtrlCreateEdit("", 10, 10, 0, 0, BitOR(16777216, 2048))
    GUICtrlSetData($Edit, "Credits to:" & @CRLF & "Almar Mulder" & @CRLF & "almar_mulder@live.nl" & @CRLF & @CRLF & _
                        "If you find any bugs or wrong ReSassed words please let me know @ almar_mulder@live.nl" & _
                        @CRLF & @CRLF & "Have Fun!")
    
    GUISetState()
    While 2
        $nMsg2 = GUIGetMsg()
        Select
        Case $nMsg2 = -3
            ExitLoop
        EndSelect
    WEnd
    GUIDelete($GUI2)
    GUISetState(@SW_ENABLE, $GUI)
    GUISetState(@SW_RESTORE, $GUI)
EndFunc

Func _Updates()
    $Version = "1.0: First builds and tests" & @CRLF
    $Version &= "2.0: Added Copy Button" & @CRLF
    $Version &= "3.0: Added Automatic Scroll for too long words. (DELETED)" & @CRLF
    $Version &= "4.0: Added Show Button" & @CRLF
    $Version &= "5.0: Added Clear Button + Focus when Clear is pressed" & @CRLF
    $Version &= "5.5: Added ? Button" & @CRLF
    $Version &= "5.6: Added more characters" & @CRLF
    $Version &= "5.7: Fixed 'uu'" & @CRLF
    $Version &= "5.8: Fixed '*c'" & @CRLF
    $Version &= "5.9: Fixed ' z'" & @CRLF
    $Version &= "6.0: Added i Button" & @CRLF
    $Version &= "6.1: Fixed ' w'" & @CRLF
    $Version &= "6.2: Fixed whole ' '" & @CRLF
    GUISetState(@SW_DISABLE, $GUI)
    MsgBox(64, "iSass v6.2", "Updates:" & @CRLF & $Version)
    If @error = 0 Then
        GUISetState(@SW_ENABLE, $GUI)
        GUISetState(@SW_RESTORE, $GUI)
    EndIf
EndFunc

There are a lot bugs in there, so I gave up.
But pretty nice work here ^^,

AlmarM

Edited by AlmarM, 23 September 2008 - 02:23 PM.

Tools: Password Generator - Runescape AutoTalker! - AutoIt Flash Var Editing - Desktop Tool

UDF's: _Mouse UDF - _StringStripChar UDF - _FileFindString UDF

Other: Scroll Simulator - Type Test - Notepad Example - Captcha Code

Games: How fast are YOU? - Minesweeper

Back to top

#5 dbzfanatic

functional psychopath!!

Active Members
1,084 posts

Posted 24 September 2008 - 01:29 AM

Wow, cool
Never tought it could be this cool ^^,
If I can share my tought, its the same as this?

AutoIt

#RequireAdmin
#AutoIt3Wrapper_Version = 6.2

$GUI = GUICreate("iSass v6.2 - Updates at 'i' >>", 420, 290, -1, -1)

$TextToSassLabel = GUICtrlCreateLabel("Text -> Sass", 10, 10, 150, 30)
$TextInput = GUICtrlCreateInput("", 10, 50, 400, 20)
$CalcTextToSassButton = GUICtrlCreateButton("Calculate!", 10, 79)
$SassedTextInput = GUICtrlCreateInput("", 10, 115, 400, 20, BitOR("", 2048))
$CopySassedText = GUICtrlCreateButton("Copy", 70, 79)
$ShowSassedText = GUICtrlCreateButton("Show", 107, 79)
$ClearSassed = GUICtrlCreateButton("Clear", 147, 79)

$SassToTextLabel = GUICtrlCreateLabel("Text <- Sass", 10, 150, 150, 30)
$SassInput = GUICtrlCreateInput("", 10, 190, 400, 20)
$CalcSassToTextButton = GUICtrlCreateButton("Calculate!", 10, 220)
$TextFromSassInput = GUICtrlCreateInput("", 10, 259, 400, 20, BitOR("", 2048))
$CopyTextFromSass = GUICtrlCreateButton("Copy", 70, 220)
$ShowTextFromSass = GUICtrlCreateButton("Show", 107, 220)
$ClearText = GUICtrlCreateButton("Clear", 147, 220)

$xx = GUICtrlCreateButton("?", 390, 10, 20, 20)
$xxx = GUICtrlCreateButton("i", 370, 10, 20, 20)

GUICtrlSetFont($TextToSassLabel, 20, "", "", "Impact")
GUICtrlSetFont($SassToTextLabel, 20, "", "", "Impact")
GUISetState()
While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = -3
        Exit
    Case $nMsg = $CalcTextToSassButton
        $Read_Text = GUICtrlRead($TextInput)
        $SASS = _TextToSass($Read_Text)
        GUICtrlSetData($SassedTextInput, $SASS)
    Case $nMsg = $CalcSassToTextButton
        $Read_Sass = GUICtrlRead($SassInput)
        $TEXT = _SassToText($Read_SASS)
        GUICtrlSetData($TextFromSassInput, $TEXT)
    Case $nMsg = $CopySassedText
        $Read_Sassed_Text = GUICtrlRead($SassedTextInput)
        ClipPut($Read_Sassed_Text)
    Case $nMsg = $CopyTextFromSass
        $Read_Text_From_Sass = GUICtrlRead($TextFromSassInput)
        ClipPut($Read_Text_From_Sass)
    Case $nMsg = $ShowSassedText
        $Read_Sassed_Text_2 = GUICtrlRead($SassedTextInput)
        MsgBox(64, "iSass", $Read_Sassed_Text_2)
    Case $nMsg = $ShowTextFromSass
        $Read_Text_From_Sass_2 = GUICtrlRead($TextFromSassInput)
        MsgBox(64, "iSass", $Read_Text_From_Sass_2)
    Case $nMsg = $ClearSassed
        GUICtrlSetData($TextInput, "")
        GUICtrlSetState($TextInput, 256)
    Case $nMsg = $ClearText
        GUICtrlSetData($SassInput, "")
        GUICtrlSetState($SassInput, 256)
    Case $nMsg = $xx
        _About()
    Case $nMsg = $xxx
        _Updates()
    EndSelect
WEnd

Func _TextToSass($nText)
    $n_Text = GUICtrlRead($TextInput)
    $n_Text = StringReplace($n_Text, "a", "001", "", 1)
    $n_Text = StringReplace($n_Text, "A", "107", "", 1)
    $n_Text = StringReplace($n_Text, "b", "013", "", 1)
    $n_Text = StringReplace($n_Text, "B", "114", "", 1)
    $n_Text = StringReplace($n_Text, "c", "025", "", 1)
    $n_Text = StringReplace($n_Text, "C", "126", "", 1)
    $n_Text = StringReplace($n_Text, "d", "037", "", 1)
    $n_Text = StringReplace($n_Text, "D", "138", "", 1)
    $n_Text = StringReplace($n_Text, "e", "049", "", 1)
    $n_Text = StringReplace($n_Text, "E", "104", "", 1)
    $n_Text = StringReplace($n_Text, "f", "051", "", 1)
    $n_Text = StringReplace($n_Text, "F", "152", "", 1)
    $n_Text = StringReplace($n_Text, "g", "063", "", 1)
    $n_Text = StringReplace($n_Text, "G", "164", "", 1)
    $n_Text = StringReplace($n_Text, "h", "075", "", 1)
    $n_Text = StringReplace($n_Text, "H", "176", "", 1)
    $n_Text = StringReplace($n_Text, "i", "087", "", 1)
    $n_Text = StringReplace($n_Text, "I", "188", "", 1)
    $n_Text = StringReplace($n_Text, "j", "099", "", 1)
    $n_Text = StringReplace($n_Text, "J", "19", "", 1)
    $n_Text = StringReplace($n_Text, "k", "202", "", 1)
    $n_Text = StringReplace($n_Text, "K", "302", "", 1)
    $n_Text = StringReplace($n_Text, "l", "213", "", 1)
    $n_Text = StringReplace($n_Text, "L", "314", "", 1)
    $n_Text = StringReplace($n_Text, "m", "225", "", 1)
    $n_Text = StringReplace($n_Text, "M", "326", "", 1)
    $n_Text = StringReplace($n_Text, "n", "237", "", 1)
    $n_Text = StringReplace($n_Text, "N", "338", "", 1)
    $n_Text = StringReplace($n_Text, "o", "249", "", 1)
    $n_Text = StringReplace($n_Text, "O", "34", "", 1)
    $n_Text = StringReplace($n_Text, "p", "251", "", 1)
    $n_Text = StringReplace($n_Text, "P", "352", "", 1)
    $n_Text = StringReplace($n_Text, "q", "26", "", 1)
    $n_Text = StringReplace($n_Text, "Q", "364", "", 1)
    $n_Text = StringReplace($n_Text, "r", "275", "", 1)
    $n_Text = StringReplace($n_Text, "R", "376", "", 1)
    $n_Text = StringReplace($n_Text, "s", "287", "", 1)
    $n_Text = StringReplace($n_Text, "S", "388", "", 1)
    $n_Text = StringReplace($n_Text, "t", "299", "", 1)
    $n_Text = StringReplace($n_Text, "T", "39", "", 1)
    $n_Text = StringReplace($n_Text, "u", "401", "", 1)
    $n_Text = StringReplace($n_Text, "U", "502", "", 1)
    $n_Text = StringReplace($n_Text, "v", "413", "", 1)
    $n_Text = StringReplace($n_Text, "V", "514", "", 1)
    $n_Text = StringReplace($n_Text, "w", "425", "", 1)
    $n_Text = StringReplace($n_Text, "W", "526", "", 1)
    $n_Text = StringReplace($n_Text, "x", "437", "", 1)
    $n_Text = StringReplace($n_Text, "X", "538", "", 1)
    $n_Text = StringReplace($n_Text, "y", "449", "", 1)
    $n_Text = StringReplace($n_Text, "Y", "541", "", 1)
    $n_Text = StringReplace($n_Text, "z", "451", "", 1)
    $n_Text = StringReplace($n_Text, "Z", "552", "", 1)
    $n_Text = StringReplace($n_Text, " ", "975", "", 1)
    $n_Text = StringReplace($n_Text, "!", "574", "", 1)
    $n_Text = StringReplace($n_Text, "@", "585", "", 1)
    $n_Text = StringReplace($n_Text, "#", "596", "", 1)
    $n_Text = StringReplace($n_Text, "$", "607", "", 1)
    $n_Text = StringReplace($n_Text, "%", "618", "", 1)
    $n_Text = StringReplace($n_Text, "^", "629", "", 1)
    $n_Text = StringReplace($n_Text, "&", "63", "", 1)
    $n_Text = StringReplace($n_Text, "*", "64", "", 1)
    $n_Text = StringReplace($n_Text, "(", "652", "", 1)
    $n_Text = StringReplace($n_Text, ")", "663", "", 1)
    $n_Text = StringReplace($n_Text, "-", "674", "", 1)
    $n_Text = StringReplace($n_Text, "_", "685", "", 1)
    $n_Text = StringReplace($n_Text, "=", "696", "", 1)
    $n_Text = StringReplace($n_Text, "+", "707", "", 1)
    $n_Text = StringReplace($n_Text, "[", "718", "", 1)
    $n_Text = StringReplace($n_Text, "{", "729", "", 1)
    $n_Text = StringReplace($n_Text, "]", "73", "", 1)
    $n_Text = StringReplace($n_Text, "}", "741", "", 1)
    $n_Text = StringReplace($n_Text, ";", "752", "", 1)
    $n_Text = StringReplace($n_Text, ":", "763", "", 1)
    $n_Text = StringReplace($n_Text, "'", "774", "", 1)
    $n_Text = StringReplace($n_Text, '"', "785", "", 1)
    $n_Text = StringReplace($n_Text, "\", "796", "", 1)
    $n_Text = StringReplace($n_Text, "|", "807", "", 1)
    $n_Text = StringReplace($n_Text, ",", "818", "", 1)
    $n_Text = StringReplace($n_Text, "<", "829", "", 1)
    $n_Text = StringReplace($n_Text, ".", "838", "", 1)
    $n_Text = StringReplace($n_Text, ">", "845", "", 1)
    $n_Text = StringReplace($n_Text, "/", "852", "", 1)
    $n_Text = StringReplace($n_Text, "?", "863", "", 1)
    Return $n_Text
EndFunc

Func _SassToText($nSass)
    $n_Sass = GUICtrlRead($SassInput)
    $n_Sass = StringReplace($n_Sass, "001", "a", "", 1)
    $n_Sass = StringReplace($n_Sass, "107", "A", "", 1)
    $n_Sass = StringReplace($n_Sass, "013", "b", "", 1)
    $n_Sass = StringReplace($n_Sass, "114", "B", "", 1)
    $n_Sass = StringReplace($n_Sass, "025", "c", "", 1)
    $n_Sass = StringReplace($n_Sass, "126", "C", "", 1)
    $n_Sass = StringReplace($n_Sass, "037", "d", "", 1)
    $n_Sass = StringReplace($n_Sass, "138", "D", "", 1)
    $n_Sass = StringReplace($n_Sass, "049", "e", "", 1)
    $n_Sass = StringReplace($n_Sass, "104", "E", "", 1)
    $n_Sass = StringReplace($n_Sass, "051", "f", "", 1)
    $n_Sass = StringReplace($n_Sass, "152", "F", "", 1)
    $n_Sass = StringReplace($n_Sass, "063", "g", "", 1)
    $n_Sass = StringReplace($n_Sass, "164", "G", "", 1)
    $n_Sass = StringReplace($n_Sass, "075", "h", "", 1)
    $n_Sass = StringReplace($n_Sass, "176", "H", "", 1)
    $n_Sass = StringReplace($n_Sass, "087", "i", "", 1)
    $n_Sass = StringReplace($n_Sass, "188", "I", "", 1)
    $n_Sass = StringReplace($n_Sass, "099", "j", "", 1)
    $n_Sass = StringReplace($n_Sass, "19", "J", "", 1)
    $n_Sass = StringReplace($n_Sass, "202", "k", "", 1)
    $n_Sass = StringReplace($n_Sass, "302", "K", "", 1)
    $n_Sass = StringReplace($n_Sass, "213", "l", "", 1)
    $n_Sass = StringReplace($n_Sass, "314", "L", "", 1)
    $n_Sass = StringReplace($n_Sass, "225", "m", "", 1)
    $n_Sass = StringReplace($n_Sass, "326", "M", "", 1)
    $n_Sass = StringReplace($n_Sass, "237", "n", "", 1)
    $n_Sass = StringReplace($n_Sass, "338", "N", "", 1)
    $n_Sass = StringReplace($n_Sass, "249", "o", "", 1)
    $n_Sass = StringReplace($n_Sass, "342", "O", "", 1)
    $n_Sass = StringReplace($n_Sass, "251", "p", "", 1)
    $n_Sass = StringReplace($n_Sass, "352", "P", "", 1)
    $n_Sass = StringReplace($n_Sass, "26", "q", "", 1)
    $n_Sass = StringReplace($n_Sass, "364", "Q", "", 1)
    $n_Sass = StringReplace($n_Sass, "275", "r", "", 1)
    $n_Sass = StringReplace($n_Sass, "376", "R", "", 1)
    $n_Sass = StringReplace($n_Sass, "287", "s", "", 1)
    $n_Sass = StringReplace($n_Sass, "388", "S", "", 1)
    $n_Sass = StringReplace($n_Sass, "299", "t", "", 1)
    $n_Sass = StringReplace($n_Sass, "39", "T", "", 1)
    $n_Sass = StringReplace($n_Sass, "401", "u", "", 1)
    $n_Sass = StringReplace($n_Sass, "502", "U", "", 1)
    $n_Sass = StringReplace($n_Sass, "413", "v", "", 1)
    $n_Sass = StringReplace($n_Sass, "514", "V", "", 1)
    $n_Sass = StringReplace($n_Sass, "425", "w", "", 1)
    $n_Sass = StringReplace($n_Sass, "526", "W", "", 1)
    $n_Sass = StringReplace($n_Sass, "437", "x", "", 1)
    $n_Sass = StringReplace($n_Sass, "538", "X", "", 1)
    $n_Sass = StringReplace($n_Sass, "449", "y", "", 1)
    $n_Sass = StringReplace($n_Sass, "541", "Y", "", 1)
    $n_Sass = StringReplace($n_Sass, "451", "z", "", 1)
    $n_Sass = StringReplace($n_Sass, "552", "Z", "", 1)
    $n_Sass = StringReplace($n_Sass, "975", " ", "", 1)
    $n_Sass = StringReplace($n_Sass, "574", "!", "", 1)
    $n_Sass = StringReplace($n_Sass, "585", "@", "", 1)
    $n_Sass = StringReplace($n_Sass, "596", "#", "", 1)
    $n_Sass = StringReplace($n_Sass, "607", "$", "", 1)
    $n_Sass = StringReplace($n_Sass, "618", "%", "", 1)
    $n_Sass = StringReplace($n_Sass, "629", "^", "", 1)
    $n_Sass = StringReplace($n_Sass, "63", "&", "", 1)
    $n_Sass = StringReplace($n_Sass, "64", "*", "", 1)
    $n_Sass = StringReplace($n_Sass, "652", "(", "", 1)
    $n_Sass = StringReplace($n_Sass, "663", ")", "", 1)
    $n_Sass = StringReplace($n_Sass, "674", "-", "", 1)
    $n_Sass = StringReplace($n_Sass, "685", "_", "", 1)
    $n_Sass = StringReplace($n_Sass, "696", "=", "", 1)
    $n_Sass = StringReplace($n_Sass, "707", "+", "", 1)
    $n_Sass = StringReplace($n_Sass, "718", "[", "", 1)
    $n_Sass = StringReplace($n_Sass, "729", "{", "", 1)
    $n_Sass = StringReplace($n_Sass, "73", "]", "", 1)
    $n_Sass = StringReplace($n_Sass, "741", "}", "", 1)
    $n_Sass = StringReplace($n_Sass, "752", ";", "", 1)
    $n_Sass = StringReplace($n_Sass, "763", ":", "", 1)
    $n_Sass = StringReplace($n_Sass, "774", "'", "", 1)
    $n_Sass = StringReplace($n_Sass, "785", '"', "", 1)
    $n_Sass = StringReplace($n_Sass, "796", "\", "", 1)
    $n_Sass = StringReplace($n_Sass, "807", "|", "", 1)
    $n_Sass = StringReplace($n_Sass, "818", ",", "", 1)
    $n_Sass = StringReplace($n_Sass, "829", "<", "", 1)
    $n_Sass = StringReplace($n_Sass, "83", ".", "", 1)
    $n_Sass = StringReplace($n_Sass, "845", ">", "", 1)
    $n_Sass = StringReplace($n_Sass, "852", "/", "", 1)
    $n_Sass = StringReplace($n_Sass, "863", "?", "", 1)
    Return $n_Sass
EndFunc

Func _About()
    GUISetState(@SW_DISABLE, $GUI)
    $GUI2 = GUICreate("About", 200, 125)
    $Edit = GUICtrlCreateEdit("", 10, 10, 0, 0, BitOR(16777216, 2048))
    GUICtrlSetData($Edit, "Credits to:" & @CRLF & "Almar Mulder" & @CRLF & "almar_mulder@live.nl" & @CRLF & @CRLF & _
                        "If you find any bugs or wrong ReSassed words please let me know @ almar_mulder@live.nl" & _
                        @CRLF & @CRLF & "Have Fun!")
    
    GUISetState()
    While 2
        $nMsg2 = GUIGetMsg()
        Select
        Case $nMsg2 = -3
            ExitLoop
        EndSelect
    WEnd
    GUIDelete($GUI2)
    GUISetState(@SW_ENABLE, $GUI)
    GUISetState(@SW_RESTORE, $GUI)
EndFunc

Func _Updates()
    $Version = "1.0: First builds and tests" & @CRLF
    $Version &= "2.0: Added Copy Button" & @CRLF
    $Version &= "3.0: Added Automatic Scroll for too long words. (DELETED)" & @CRLF
    $Version &= "4.0: Added Show Button" & @CRLF
    $Version &= "5.0: Added Clear Button + Focus when Clear is pressed" & @CRLF
    $Version &= "5.5: Added ? Button" & @CRLF
    $Version &= "5.6: Added more characters" & @CRLF
    $Version &= "5.7: Fixed 'uu'" & @CRLF
    $Version &= "5.8: Fixed '*c'" & @CRLF
    $Version &= "5.9: Fixed ' z'" & @CRLF
    $Version &= "6.0: Added i Button" & @CRLF
    $Version &= "6.1: Fixed ' w'" & @CRLF
    $Version &= "6.2: Fixed whole ' '" & @CRLF
    GUISetState(@SW_DISABLE, $GUI)
    MsgBox(64, "iSass v6.2", "Updates:" & @CRLF & $Version)
    If @error = 0 Then
        GUISetState(@SW_ENABLE, $GUI)
        GUISetState(@SW_RESTORE, $GUI)
    EndIf
EndFunc

There are a lot bugs in there, so I gave up.
But pretty nice work here ^^,

AlmarM

Yours looks fairly similar but I used a bunch of If statements and I only translated letters. Everything else I stuck in the Else part and just copied the unicode codes for it,added it to the translated text in the proper place, and there you go. Thanks for the compliment, I'm thinking of adding pronunciation coaching (when I have an idea how to do that >.>;; )

Go to my website. | My Zazzle Page (custom products)Al Bhed Translator | Direct link ScreenRec Pro Simple Text Editor (STE) [TUTORIAL]Task Scheduler UDF <--- First ever UDF!_ControlPaste() UDF

whats help ?

Back to top

#6 AlmarM

Programming my way.

Active Members
1,643 posts

Posted 24 September 2008 - 12:37 PM

Haha, np.

But im Dutch, so could you explain me what "pronunciation coaching" is

?

AlmarM

Tools: Password Generator - Runescape AutoTalker! - AutoIt Flash Var Editing - Desktop Tool

UDF's: _Mouse UDF - _StringStripChar UDF - _FileFindString UDF

Other: Scroll Simulator - Type Test - Notepad Example - Captcha Code

Games: How fast are YOU? - Minesweeper

Back to top

#7 dbzfanatic

functional psychopath!!

Active Members
1,084 posts

Posted 24 September 2008 - 02:03 PM

Sure, I just mean I plan to add something to the program so when it's translated it also shows you how to say it. Like "E moja oui" (I use that a lot with my girlfriend so I've memorized it) would have under it "ee-mow-ha-wee" or something similar. Sorry to say but this is going to be postponed considerably. I'm running vista and it decided to delete every file off my desktop without asking to do so and the source was saved there. Also I just wrote a tutorial (just today) so it might be a bit before I get this working. However, writing that tutorial gave me some ideas on improvements I could make to this.

Edit: I found a backup that was only a few days old so I have my source again! With the source and the new ideas I gained from writing my tutorial I should be able to make an enhanced version fairly soon.

Did I mention I got my source back? (Sorry I'm excited, the backup contained 7.54GB of source,exes,pictures,etc I had created that would have been gone)

Edited by dbzfanatic, 24 September 2008 - 04:55 PM.

Go to my website. | My Zazzle Page (custom products)Al Bhed Translator | Direct link ScreenRec Pro Simple Text Editor (STE) [TUTORIAL]Task Scheduler UDF <--- First ever UDF!_ControlPaste() UDF

whats help ?

Back to top

#8 AlmarM

Programming my way.

Active Members
1,643 posts

Posted 24 September 2008 - 05:30 PM

Haha ok

If I could help you with something, just let me know

AlmarM

P.S.
Im going to create a similiar script too

. Just with other replacements :idiot:

Tools: Password Generator - Runescape AutoTalker! - AutoIt Flash Var Editing - Desktop Tool

UDF's: _Mouse UDF - _StringStripChar UDF - _FileFindString UDF

Other: Scroll Simulator - Type Test - Notepad Example - Captcha Code

Games: How fast are YOU? - Minesweeper

Back to top

#9 dbzfanatic

functional psychopath!!

Active Members
1,084 posts

Posted 25 September 2008 - 01:19 AM

Sounds good, I might ask you to test or just give me some ideas on things to make it work a bit better. The reason I used the replacements I did is because it's an actual game language. It's the Al Bhed language from FFX (Final Fantasy X) but if you want my help on suggestions for the replacements I'll help you out.

Go to my website. | My Zazzle Page (custom products)Al Bhed Translator | Direct link ScreenRec Pro Simple Text Editor (STE) [TUTORIAL]Task Scheduler UDF <--- First ever UDF!_ControlPaste() UDF

whats help ?

Back to top

#10 AlmarM

Programming my way.

Active Members
1,643 posts

Posted 25 September 2008 - 12:38 PM

Oh well, I tought about something.
If you use my script. It sould replace 'a' with 't'.
But when you want to replace it. 'a' is being replaced with 'm' because 't' needs to be replaced by 'm'.
So I quit my program

AlmarM

Tools: Password Generator - Runescape AutoTalker! - AutoIt Flash Var Editing - Desktop Tool

UDF's: _Mouse UDF - _StringStripChar UDF - _FileFindString UDF

Other: Scroll Simulator - Type Test - Notepad Example - Captcha Code

Games: How fast are YOU? - Minesweeper

Back to top

#11 dbzfanatic

functional psychopath!!

Active Members
1,084 posts

Posted 25 September 2008 - 03:47 PM

That is where mine is superior *evil laugh* just kidding. What I did is I used StringSplit() to get each character from the edit, cycled through them to see what they were then did the replacements that way and saved the replaced characters to a different string. If you do it this way there's no cross-translation so you don't try to translate something that's already translated.

Go to my website. | My Zazzle Page (custom products)Al Bhed Translator | Direct link ScreenRec Pro Simple Text Editor (STE) [TUTORIAL]Task Scheduler UDF <--- First ever UDF!_ControlPaste() UDF

whats help ?

Back to top

#12 AlmarM

Programming my way.

Active Members
1,643 posts

Posted 25 September 2008 - 04:31 PM

That is where mine is superior *evil laugh* just kidding. What I did is I used StringSplit() to get each character from the edit, cycled through them to see what they were then did the replacements that way and saved the replaced characters to a different string. If you do it this way there's no cross-translation so you don't try to translate something that's already translated.

Hmmm, I tried StringReplace...
If you look at my code above. And you replace StringReplace with StringSplit what would my

Func _TextToSass($n_Text)
    Return $n_Text
EndFunc

Func _SassToText($n_Sass)
    Return $n_Sass
EndFunc

Look like?
Could you give my a small example?
Example:

A = T
B = U
C = V

Can you do that?

AlmarM

Tools: Password Generator - Runescape AutoTalker! - AutoIt Flash Var Editing - Desktop Tool

UDF's: _Mouse UDF - _StringStripChar UDF - _FileFindString UDF

Other: Scroll Simulator - Type Test - Notepad Example - Captcha Code

Games: How fast are YOU? - Minesweeper

Back to top

#13 dbzfanatic

functional psychopath!!

Active Members
1,084 posts

Posted 26 September 2008 - 07:57 AM

Sure.

$letters = StringSplit(GUICtrlRead($edtEdit),"")
For $i = 0 To UBound($letters) - 1
If $letters[$i] = "a" Then
$replaced &= "t"
Elseif $letters[$i] = "b" Then
$replaced &= "u"
Elseif $letters[$i] = "c" Then
$replaced &= "v"
Endif

Really primitive example but it works.

Go to my website. | My Zazzle Page (custom products)Al Bhed Translator | Direct link ScreenRec Pro Simple Text Editor (STE) [TUTORIAL]Task Scheduler UDF <--- First ever UDF!_ControlPaste() UDF

whats help ?

Back to top

Back to Example Scripts

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Al Bhed (from FFX) Translator!

#1 dbzfanatic

Attached Files

#2 dandymcgee

#3 dbzfanatic

#4 AlmarM

#5 dbzfanatic

#6 AlmarM

#7 dbzfanatic

#8 AlmarM

#9 dbzfanatic

#10 AlmarM

#11 dbzfanatic

#12 AlmarM

#13 dbzfanatic

0 user(s) are reading this topic

Sign In