Piyush Posted July 9, 2009 Posted July 9, 2009 (edited) 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 Edited July 10, 2009 by Piyush [font="Comic Sans MS"][size="7"]Piyush.....[/size][/font][font="Palatino Linotype"][size="2"]Some Of My Scripts...Cool Font Generator Train Searcher and Tracer[/size][/font]
idusy Posted July 10, 2009 Posted July 10, 2009 (edited) Do you intend to post the source ever? Edited July 10, 2009 by idusy
idusy Posted July 10, 2009 Posted July 10, 2009 Ok Here You GoJust asking, didn't say you had to. Nicely done, works great. Fun to play with.
Piyush Posted July 10, 2009 Author Posted July 10, 2009 Just asking, didn't say you had to. Nicely done, works great. Fun to play with.Thanks For Encouragement... [font="Comic Sans MS"][size="7"]Piyush.....[/size][/font][font="Palatino Linotype"][size="2"]Some Of My Scripts...Cool Font Generator Train Searcher and Tracer[/size][/font]
dantay9 Posted July 10, 2009 Posted July 10, 2009 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 Posted July 10, 2009 Author Posted July 10, 2009 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 SuggestionI will Keep This Thing in mind for future.. [font="Comic Sans MS"][size="7"]Piyush.....[/size][/font][font="Palatino Linotype"][size="2"]Some Of My Scripts...Cool Font Generator Train Searcher and Tracer[/size][/font]
Beege Posted July 17, 2009 Posted July 17, 2009 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. Assembly Code: fasmg . fasm . BmpSearch . Au3 Syntax Highlighter . Bounce Multithreading Example . IDispatchASMUDFs: Explorer Frame . ITaskBarList . Scrolling Line Graph . Tray Icon Bar Graph . Explorer Listview . Wiimote . WinSnap . Flicker Free Labels . iTunesPrograms: Ftp Explorer . Snipster . Network Meter . Resistance Calculator
Piyush Posted July 29, 2009 Author Posted July 29, 2009 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 [font="Comic Sans MS"][size="7"]Piyush.....[/size][/font][font="Palatino Linotype"][size="2"]Some Of My Scripts...Cool Font Generator Train Searcher and Tracer[/size][/font]
FireFox Posted July 30, 2009 Posted July 30, 2009 (edited) @PiyushGood 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 ;==>_ConvertChrNote : Special characters has been taken from french keyboardJapanese - 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 ;==>_ConvertChrCheers, FireFox. Edited July 30, 2009 by FireFox
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now