9 replies to this topic

[Piyush]

I have made a Simple Font Generator which fills your text with COOL Fonts
Can BE used in Social Networking Sites like Orkut, Face Book
Hope you Like It.
All Type of Suggestions are Welcome





 Font Generator.exe   286.49KB   705 downloads

Edited by Piyush, 10 July 2009 - 12:19 AM.

[idusy]

Do you intend to post the source ever?

Edited by idusy, 10 July 2009 - 12:02 AM.

[idusy]

Ok Here You Go

Just asking, didn't say you had to. Nicely done, works great. Fun to play with.

[Piyush]

Just asking, didn't say you had to. Nicely done, works great. Fun to play with.

Thanks For Encouragement...

[dantay9]

Nice Job! Works great. I see you are fairly new to the forum. Just a suggestion for future scripts. The way you have set up you ascchar function, it can take longer than needed. For this script, you aren't doing a lot of things at once, but if you need speed, try looking up "Keyword Switch...Case...EndSwitch" in the help file. If you ever need speed for this type of repetitive action, switch is the way to go. Just for future reference.
I tested the script and it works great.

[Piyush]

Nice Job! Works great. I see you are fairly new to the forum. Just a suggestion for future scripts. The way you have set up you ascchar function, it can take longer than needed. For this script, you aren't doing a lot of things at once, but if you need speed, try looking up "Keyword Switch...Case...EndSwitch" in the help file. If you ever need speed for this type of repetitive action, switch is the way to go. Just for future reference.
I tested the script and it works great.

Thanks Bro For such a Good Suggestion
I will Keep This Thing in mind for future..

[ludocus]

pretty cool
thnx 4 posting

[Beege]

This is a cool little script. Good Job. My one suggestion would be to change

While 1     
     Sleep(100)     
     GUICtrlSetData($output, change(GUICtrlRead($edit1))) 
WEnd

to something like this

$input = GUICtrlRead($edit1)
While 1
    If GUICtrlRead($edit1) <> $input Then
        GUICtrlSetData($output, change(GUICtrlRead($edit1)))
        $input = GUICtrlRead($edit1)
    EndIf
    Sleep(100)
WEnd

This way when the user has not typed anything new, it stops executing the rest of the script.

[Piyush]

This is a cool little script. Good Job. My one suggestion would be to change

While 1     
     Sleep(100)     
     GUICtrlSetData($output, change(GUICtrlRead($edit1))) 
WEnd

to something like this

$input = GUICtrlRead($edit1)
While 1
    If GUICtrlRead($edit1) <> $input Then
        GUICtrlSetData($output, change(GUICtrlRead($edit1)))
        $input = GUICtrlRead($edit1)
    EndIf
    Sleep(100)
WEnd

This way when the user has not typed anything new, it stops executing the rest of the script.

Thank u For Suggestion...I have edited it

[FireFox]

@Piyush
Good idea ! So I have made my examples...

Latin & Greek - Font generator :

Opt('GuiOnEventMode', 1)#include <WinAPI.au3>#Region HotString DeclareDim $hStub_KeyProc = DllCallbackRegister("_KeyProc", "long", "int;wparam;lparam")Dim $hmod = _WinAPI_GetModuleHandle(0), $hHookDim $hHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($hStub_KeyProc), $hmod)#EndRegion HotString Declare;#Region GUI$GUI = GUICreate('Ғσηŧ ĝεηεяαŧσґ - Łāŧĩη / ģřёēќ', 200, 83)GUISetOnEvent(-3, '_Exit')$e_in = GUICtrlCreateInput('Enter your text here', 5, 10, 190, 17)GUICtrlCreateLabel("", 5, 35, 190, 2, 0x1000)$s_out = GUICtrlCreateLabel("", 5, 40, 190, 17)$b_clip = GUICtrlCreateButton('Copy to Clipboard', 50, 55, 95, 22)GUICtrlSetOnEvent(-1, '_CopytoClip')GUISetState(@SW_SHOW, $GUI)GUIRegisterMsg(0x0100, '_GUIKeyProc')#EndRegion GUI;While Sleep(2048)   WEndFunc _Exit()    ExitEndFunc   ;==>_ExitFunc _CopytoClip( )  ClipPut(GUICtrlRead($s_out))    MsgBox(64, 'Ғσηŧ ĝεηεяαŧσґ', 'Text copied to Clipboard !')EndFunc   ;==>_CopytoClipFunc _EvaluateKey($s_key)   If $s_key > 64 And $s_key < 91 Then ;A to Z     If _IsPressed(10) Then ;Capital letter          GUICtrlSetData($s_out, GUICtrlRead($s_out) & _ConvertChr(Chr($s_key + 32)))     Else ;letter            GUICtrlSetData($s_out, GUICtrlRead($s_out) & _ConvertChr(Chr($s_key)))      EndIf   ElseIf $s_key = 8 Then ;Back Space      GUICtrlSetData($s_out, StringTrimRight(GUICtrlRead($s_out), 1)) ElseIf $s_key = 32 Then ;Space bar      GUICtrlSetData($s_out, GUICtrlRead($s_out) & " ")   Else ;special characters        GUICtrlSetData($s_out, GUICtrlRead($s_out) & _GetKeyPressed( )) EndIfEndFunc   ;==>_EvaluateKeyFunc _GUIKeyProc($hWnd, $Msg, $wParam, $lParam)  _EvaluateKey(Number($wParam))EndFunc   ;==>_GUIKeyProcFunc _KeyProc($nCode, $wParam, $lParam)   Local $tKEYHOOKS    $tKEYHOOKS = DllStructCreate($tagKBDLLHOOKSTRUCT, $lParam)  If $nCode < 0 Then      Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam) EndIf   If $wParam = 0x0100 Then        $vkKey = DllStructGetData($tKEYHOOKS, "vkCode")     _WinAPI_PostMessage($GUI, 0x0100, $vkKey, 0)    EndIf   Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)EndFunc   ;==>_KeyProcFunc OnAutoItExit()    _WinAPI_UnhookWindowsHookEx($hHook) DllCallbackFree($hStub_KeyProc)EndFunc   ;==>OnAutoItExit; #FUNCTION# ====================================================================================================================; Name...........: _IsPressed; Author ........: ezzetabi and Jon; ===============================================================================================================================Func _IsPressed($sHexKey, $vDLL = 'user32.dll')  Local $a_R = DllCall($vDLL, "int", "GetAsyncKeyState", "int", '0x' & $sHexKey)  If Not @error And BitAND($a_R[0], 0x8000) = 0x8000 Then Return 1    Return 0EndFunc   ;==>_IsPressedFunc _GetKeyPressed($vDLL = 'user32.dll')   If _IsPressed('10') And _IsPressed('30') Then Return '0'    If _IsPressed('10') And _IsPressed('31') Then Return '1'    If _IsPressed('10') And _IsPressed('32') Then Return '2'    If _IsPressed('10') And _IsPressed('33') Then Return '3'    If _IsPressed('10') And _IsPressed('34') Then Return '4'    If _IsPressed('10') And _IsPressed('35') Then Return '5'    If _IsPressed('10') And _IsPressed('36') Then Return '6'    If _IsPressed('10') And _IsPressed('37') Then Return '7'    If _IsPressed('10') And _IsPressed('38') Then Return '8'    If _IsPressed('10') And _IsPressed('39') Then Return '9'        If _IsPressed('30') Then Return 'à'    If _IsPressed('31') Then Return '&' If _IsPressed('32') Then Return 'é'    If _IsPressed('33') Then Return '"' If _IsPressed('34') Then Return "'" If _IsPressed('35') Then Return '(' If _IsPressed('36') Then Return '-' If _IsPressed('37') Then Return 'è'    If _IsPressed('38') Then Return '_' If _IsPressed('39') Then Return 'ç'        If _IsPressed('6A') Then Return '*' If _IsPressed('6B') Then Return '+' If _IsPressed('6C') Then Return '/' If _IsPressed('6D') Then Return '-' If _IsPressed('6E') Then Return '.' If _IsPressed('6F') Then Return '/' If _IsPressed('BA') Then Return ';' If _IsPressed('BB') Then Return '=' If _IsPressed('BC') Then Return ',' If _IsPressed('BD') Then Return '-' If _IsPressed('BE') Then Return ';' If _IsPressed('BF') Then Return ':' If _IsPressed('C0') Then Return '`' If _IsPressed('DB') Then Return '[' If _IsPressed('DC') Then Return '\' If _IsPressed('DD') Then Return ']'     If _IsPressed('60') Then Return '0' If _IsPressed('61') Then Return '1' If _IsPressed('62') Then Return '2' If _IsPressed('63') Then Return '3' If _IsPressed('64') Then Return '4' If _IsPressed('65') Then Return '5' If _IsPressed('66') Then Return '6' If _IsPressed('67') Then Return '7' If _IsPressed('68') Then Return '8' If _IsPressed('69') Then Return '9'     If _IsPressed('10') Then Return ""EndFunc   ;==>_IsAnyKeyPressedFunc _ConvertChr($s_Chr)    $s_Chr = Asc($s_Chr)        Switch $s_Chr       Case 97         $s_String = StringSplit('À|Á|Â|Ã|Ä|Ă|Ą|Ǻ|Ά', '|')          Return $s_String[Random(1, $s_String[0], 1)]        Case 98         $s_String = StringSplit('ß|Β|β|Ђ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 99         $s_String = StringSplit('Ć|Ĉ|Ċ|Č|Ç|©', '|')           Return $s_String[Random(1, $s_String[0], 1)]        Case 100            $s_String = StringSplit('Ď|Đ', '|')           Return $s_String[Random(1, $s_String[0], 1)]        Case 101            $s_String = StringSplit('È|É|Ê|Ë|Ē|Ĕ|Ė|Ę|Έ|Ξ|Є|Э|Σ', '|')          Return $s_String[Random(1, $s_String[0], 1)]        Case 102            Return 'Ғ'     Case 103            $s_String = StringSplit('Ĝ|Ğ|Ġ|Ģ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 104            $s_String = StringSplit('Ĥ|Ħ|Ή', '|')            Return $s_String[Random(1, $s_String[0], 1)]        Case 105            $s_String = StringSplit('Ì|Í|Ī|Ĭ|ĺ|ļ|İ|Ί|Ї', '|')          Return $s_String[Random(1, $s_String[0], 1)]        Case 106            Return 'Ĵ'     Case 107            $s_String = StringSplit('Ķ|Ќ|Ҝ|К', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 108            $s_String = StringSplit('Ĺ|Ļ|Ŀ', '|')            Return $s_String[Random(1, $s_String[0], 1)]        Case 109            $s_String = StringSplit('Π|Л', '|')           Return $s_String[Random(1, $s_String[0], 1)]        Case 110            $s_String = StringSplit('Ń|Ņ|И|Й', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 111            $s_String = StringSplit('Ò|Ó|Ô|Õ|Ö|Ø|Ō|Ŏ|Ő|Ơ|Ǿ|Ό|Θ|Ω|Ώ', '|')            Return $s_String[Random(1, $s_String[0], 1)]        Case 112            Return 'Ρ'     Case 113            Return 'Q'      Case 114            $s_String = StringSplit('Ř|Ŗ|Я|Ґ|®', '|')          Return $s_String[Random(1, $s_String[0], 1)]        Case 115            $s_String = StringSplit('Ś|Ŝ|Ş|Š', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 116            $s_String = StringSplit('Ţ|Ť|Ŧ', '|')            Return $s_String[Random(1, $s_String[0], 1)]        Case 117            $s_String = StringSplit('Ũ|Ū|Ŭ|Ů|Ű|Ų|Ư|Ц', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 118            Return 'V'      Case 119            $s_String = StringSplit('Ŵ|Ш|Щ', '|')            Return $s_String[Random(1, $s_String[0], 1)]        Case 120            $s_String = StringSplit('Җ|Ҳ', '|')           Return $s_String[Random(1, $s_String[0], 1)]        Case 121            $s_String = StringSplit('Ŷ|Ÿ|Ў|Ү|Ұ', '|')          Return $s_String[Random(1, $s_String[0], 1)]        Case 122            $s_String = StringSplit('Ź|Ż|Ž|ζ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 65         $s_String = StringSplit('à|á|â|ã|ä|å|ā|ą|ǎ|ǻ|ά|α', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 66         $s_String = StringSplit('Ъ|в|ъ', '|')            Return $s_String[Random(1, $s_String[0], 1)]        Case 67         $s_String = StringSplit('ç|ć|ĉ|ċ|č|ς', '|')           Return $s_String[Random(1, $s_String[0], 1)]        Case 68         $s_String = StringSplit('ď|đ', '|')           Return $s_String[Random(1, $s_String[0], 1)]        Case 69         $s_String = StringSplit('ē|ĕ|ė|ę|ě|έ|ε|е|ё|є', '|')           Return $s_String[Random(1, $s_String[0], 1)]        Case 70         $s_String = StringSplit('ƒ|ғ', '|')           Return $s_String[Random(1, $s_String[0], 1)]        Case 71         Return 'ģ'     Case 72         $s_String = StringSplit('ħ|ĥ|ћ|ђ|Ҹ|ҹ|Һ', '|')            Return $s_String[Random(1, $s_String[0], 1)]        Case 73         $s_String = StringSplit('ĩ|ī|ĭ|ı|ί|ΐ', '|')           Return $s_String[Random(1, $s_String[0], 1)]        Case 74         Return 'ĵ'     Case 75         $s_String = StringSplit('ķ|ĸ|қ|ҝ|ќ', '|')          Return $s_String[Random(1, $s_String[0], 1)]        Case 76         $s_String = StringSplit('ľ|ŀ|ł', '|')            Return $s_String[Random(1, $s_String[0], 1)]        Case 77         $s_String = StringSplit('π|л|м|п', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 78         $s_String = StringSplit('ń|ņ|ň|ʼn|ŋ|ή|η|и|й', '|')          Return $s_String[Random(1, $s_String[0], 1)]        Case 79         $s_String = StringSplit('ð|ò|ó|ô|õ|ö|ø|ō|ŏ|ő|ǿ|δ|σ|ό|ө', '|')            Return $s_String[Random(1, $s_String[0], 1)]        Case 80         Return 'ρ'     Case 81         Return 'q'      Case 82         $s_String = StringSplit('ŕ|ŗ|ř|я|ѓ|ґ', '|')           Return $s_String[Random(1, $s_String[0], 1)]        Case 83         $s_String = StringSplit('ś|ŝ|ş|š', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 84         $s_String = StringSplit('ţ|ť|ŧ|τ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 85         $s_String = StringSplit('ũ|ū|ŭ|ů|ű|ų|ϋ|μ|υ|ц|џ', '|')            Return $s_String[Random(1, $s_String[0], 1)]        Case 86         Return 'v'      Case 87         $s_String = StringSplit('ŵ|ш|щ|ω|ώ', '|')          Return $s_String[Random(1, $s_String[0], 1)]        Case 88         $s_String = StringSplit('ҳ|ж|җ|χ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 89         $s_String = StringSplit('ŷ|ү|ұ', '|')            Return $s_String[Random(1, $s_String[0], 1)]        Case 90         $s_String = StringSplit('ź|ż|ž', '|')            Return $s_String[Random(1, $s_String[0], 1)]    EndSwitchEndFunc   ;==>_ConvertChr

Note : Special characters has been taken from french keyboard


Japanese - Font generator :

Opt('GuiOnEventMode', 1)#include <WinAPI.au3>#Region HotString DeclareDim $hStub_KeyProc = DllCallbackRegister("_KeyProc", "long", "int;wparam;lparam")Dim $hmod = _WinAPI_GetModuleHandle(0), $hHookDim $hHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($hStub_KeyProc), $hmod)#EndRegion HotString Declare;#Region GUI$GUI = GUICreate('Ғσηŧ ĝεηεяαŧσґ - ヴダㄗタガモゔモ', 200, 83)GUISetOnEvent(-3, '_Exit')$e_in = GUICtrlCreateInput('Enter your text here', 5, 10, 190, 17)GUICtrlCreateLabel("", 5, 35, 190, 2, 0x1000)$s_out = GUICtrlCreateLabel("", 5, 40, 190, 17)$b_clip = GUICtrlCreateButton('Copy to Clipboard', 50, 55, 95, 22)GUICtrlSetOnEvent(-1, '_CopytoClip')GUISetState(@SW_SHOW, $GUI)GUIRegisterMsg(0x0100, '_GUIKeyProc')#EndRegion GUI;While Sleep(2048)  WEndFunc _Exit()    ExitEndFunc   ;==>_ExitFunc _CopytoClip( )  ClipPut(GUICtrlRead($s_out))    MsgBox(64, 'Ғσηŧ ĝεηεяαŧσґ', 'Text copied to Clipboard !')EndFunc   ;==>_CopytoClipFunc _EvaluateKey($s_key)   If $s_key > 64 And $s_key < 91 Then ;A to Z     If _IsPressed(10) Then ;Capital letter          GUICtrlSetData($s_out, GUICtrlRead($s_out) & _ConvertChr(Chr($s_key + 32)))     Else ;letter            GUICtrlSetData($s_out, GUICtrlRead($s_out) & _ConvertChr(Chr($s_key)))      EndIf   ElseIf $s_key = 8 Then ;Back Space      GUICtrlSetData($s_out, StringTrimRight(GUICtrlRead($s_out), 1)) ElseIf $s_key = 32 Then ;Space bar      GUICtrlSetData($s_out, GUICtrlRead($s_out) & " ")   EndIfEndFunc   ;==>_EvaluateKeyFunc _GUIKeyProc($hWnd, $Msg, $wParam, $lParam)  _EvaluateKey(Number($wParam))EndFunc   ;==>_GUIKeyProcFunc _KeyProc($nCode, $wParam, $lParam)   Local $tKEYHOOKS    $tKEYHOOKS = DllStructCreate($tagKBDLLHOOKSTRUCT, $lParam)  If $nCode < 0 Then      Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam) EndIf   If $wParam = 0x0100 Then        $vkKey = DllStructGetData($tKEYHOOKS, "vkCode")     _WinAPI_PostMessage($GUI, 0x0100, $vkKey, 0)    EndIf   Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)EndFunc   ;==>_KeyProcFunc OnAutoItExit()    _WinAPI_UnhookWindowsHookEx($hHook) DllCallbackFree($hStub_KeyProc)EndFunc   ;==>OnAutoItExit; #FUNCTION# ====================================================================================================================; Name...........: _IsPressed; Author ........: ezzetabi and Jon; ===============================================================================================================================Func _IsPressed($sHexKey, $vDLL = 'user32.dll')  Local $a_R = DllCall($vDLL, "int", "GetAsyncKeyState", "int", '0x' & $sHexKey)  If Not @error And BitAND($a_R[0], 0x8000) = 0x8000 Then Return 1    Return 0EndFunc   ;==>_IsPressedFunc _ConvertChr($s_Chr)    $s_Chr = Asc($s_Chr)        Switch $s_Chr       Case 97         $s_String = StringSplit('タ|ダ|ㄙ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 98         $s_String = StringSplit('ぉ|お|ち|ぢ|ら|わ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 99         $s_String = StringSplit('〱|〲|つ|づ|ㄈ|ㄑ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 100            $s_String = StringSplit('き|ぎ|さ|ざ|ㄜ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 101            $s_String = StringSplit('だ|モ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 102            $s_String = StringSplit('キ|ギ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 103            Return 'G'      Case 104            $s_String = StringSplit('せ|ぜ|サ|ザ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 105            $s_String = StringSplit('ェ|エ|ノ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 106            $s_String = StringSplit('フ|ブ|プ|ヴ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 107            $s_String = StringSplit('ㄧㄑ|ㄧ〲', '|')           Return $s_String[Random(1, $s_String[0], 1)]        Case 108            $s_String = StringSplit('し|じ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 109            $s_String = StringSplit('ホ|ボ|ポ|ネ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 110            $s_String = StringSplit('ク|グ|ケ|ゲ|カ|ガ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 111            $s_String = StringSplit('ㄖ|ロ|゙ゆ', '|')          Return $s_String[Random(1, $s_String[0], 1)]        Case 112            $s_String = StringSplit('ゃ|や|ァ|ア|ヱ|ㄕ|ㄗ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 113            Return 'Q'      Case 114            $s_String = StringSplit('ㄏ|ㄢ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 115            Return 'ゔ'        Case 116            $s_String = StringSplit('ナ|す|ず|ヒ|ビ|ピ|イ|ㄒ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 117            $s_String = StringSplit('ひ|び|ぴ|ㄩ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 118            Return 'レ'        Case 119            Return 'ㄠ'        Case 120            Return 'ㄨ'        Case 121            Return 'ㄚ'        Case 122            $s_String = StringSplit('ぇ|え|そ|ぞ|る|ろ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 65         $s_String = StringSplit('タ|ダ|ㄙ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 66         $s_String = StringSplit('ぉ|お|ち|ぢ|ら|わ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 67         $s_String = StringSplit('〱|〲|つ|づ|ㄈ|ㄑ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 68         $s_String = StringSplit('き|ぎ|さ|ざ|ㄜ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 69         $s_String = StringSplit('だ|モ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 70         $s_String = StringSplit('キ|ギ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 71         Return 'G'      Case 72         $s_String = StringSplit('せ|ぜ|サ|ザ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 73         $s_String = StringSplit('ェ|エ|ノ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 74         $s_String = StringSplit('フ|ブ|プ|ヴ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 75         $s_String = StringSplit('ㄧㄑ|ㄧ〲', '|')           Return $s_String[Random(1, $s_String[0], 1)]        Case 76         $s_String = StringSplit('し|じ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 77         $s_String = StringSplit('ホ|ボ|ポ|ネ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 78         $s_String = StringSplit('ク|グ|ケ|ゲ|カ|ガ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 79         $s_String = StringSplit('ㄖ|ロ|゙ゆ', '|')          Return $s_String[Random(1, $s_String[0], 1)]        Case 80         $s_String = StringSplit('ゃ|や|ァ|ア|ヱ|ㄕ|ㄗ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 81         Return 'Q'      Case 82         $s_String = StringSplit('ㄏ|ㄢ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 83         Return 'ゔ'        Case 84         $s_String = StringSplit('ナ|す|ず|ヒ|ビ|ピ|イ|ㄒ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 85         $s_String = StringSplit('ひ|び|ぴ|ㄩ', '|')         Return $s_String[Random(1, $s_String[0], 1)]        Case 86         Return 'レ'        Case 87         Return 'ㄠ'        Case 88         Return 'ㄨ'        Case 89         Return 'ㄚ'        Case 90         $s_String = StringSplit('ぇ|え|そ|ぞ|る|ろ', '|')         Return $s_String[Random(1, $s_String[0], 1)]    EndSwitchEndFunc   ;==>_ConvertChr

Cheers, FireFox.

Edited by FireFox, 30 July 2009 - 08:22 PM.