HotKeySet("{PAUSE}", "Translate") ;Map this hotkey to whatever you like
HotkeySet("{INSERT}","Voice_Translate") ;Map this hotkey to whatever you like
$string1=""

While 1
	GUIGetMsg()
WEnd

Func Voice_Translate() ;This function requires SAPIF TTSAPP (VW TTS-Test-Application) Open and with appropriate japanese voices loaded.
	ControlSetText("SAPI5 TTSAPP", "", "[CLASS:RichEdit20A; INSTANCE:1]", ClipGet())
	ControlClick("SAPI5 TTSAPP", "", "[CLASS:Button; INSTANCE:3]")
	WinActivate("WaKan 1.67 - Tool for learning Japanese & Chinese") ;use comment syntax from this line...
	Sleep(150)
	Send("^a")
	Send("{BS}")
	Send("^v")
	Send("^a")
	Send("^f") ;...to this line, to remove the call to wakan
	WinActivate("agth.html - Notepad")
	Send("^a")
	Send("^v")
	Send("^s")
	WinActivate("Mozilla Firefox")
	Send("{F5}")
	WinActivate("ティンクル☆くるせいだーす") ;Change this to the title of your game
EndFunc

Func Translate()

	WinActivate("WaKan 1.67 - Tool for learning Japanese & Chinese");use comment syntax from this line...
	Sleep(150)
	Send("^a")
	Send("{BS}")
	Send("^v")
	Send("^a")
	Send("^f") ;...to this line, to remove the call to wakan
	WinActivate("agth.html - Notepad")
	Send("^a")
	Send("^v")
	Send("^s")
	WinActivate("Mozilla Firefox")
	Send("{F5}")
	WinActivate("ティンクル☆くるせいだーす") ;Change this to the title of your game
EndFunc