defeat Freddie at typing

Post your working scripts, libraries and tools
User avatar
jeeswg
Posts: 6902
Joined: 19 Dec 2016, 01:58
Location: UK

defeat Freddie at typing

13 Nov 2017, 18:41

Code: Select all

;Can you defeat Freddie at typing!? - YouTube
;https://www.youtube.com/watch?v=HA71Y1jttSc
;The Adventures of Sherlock Holmes, by Arthur Conan Doyle; ADVENTURE I. A SCANDAL IN BOHEMIA Page 2
;http://www.pagebypagebooks.com/Arthur_Conan_Doyle/The_Adventures_of_Sherlock_Holmes/ADVENTURE_I_A_SCANDAL_IN_BOHEMIA_p2.html

;defeat Freddie at typing by jeeswg
;whatever letter you press (or space), you press the right key
;Esc and Ctrl+Esc to end the script early

;uncomment to support more keys
;Loop, 255
;	try Hotkey, % "$" Chr(A_Index), SendKey
Loop, 26
	Hotkey, % "$" Chr(96+A_Index), SendKey
Hotkey, % "$Space", SendKey

vCount := 0
vText = ;continuation section
(
I could not help laughing at the ease with which
he explained his process of deduction.

"When I hear you give your reasons," I remarked,
"the thing always appears to me to be so ridiculously
simple that I could easily do it myself, though at each
successive instance of your reasoning I am baffled
until you explain your process. And yet I believe that
my eyes are as good as yours."
)
return

SendKey:
vCount++
vChar := SubStr(vText, vCount, 1)
if (vChar = "")
	ExitApp
SendInput, % "{Raw}" vChar
return

Esc::
^Esc::
SoundBeep
ExitApp
homepage | tutorials | wish list | fun threads | donate
WARNING: copy your posts/messages before hitting Submit as you may lose them due to CAPTCHA

Return to “Scripts and Functions”

Who is online

Users browsing this forum: ashimoi, Henrybk, MrDoge and 15 guests