autoHotkeyScripts/morse.ahk at master · minomikula/autoHotkeyScripts · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
morse = 0
translate = 0
#m::
if morse = 0
{
  morse = 1
  Hotkey, a, on
  Hotkey, b, on
  Hotkey, c, on
  Hotkey, d, on
  Hotkey, e, on
  Hotkey, f, on
  Hotkey, g, on
  Hotkey, h, on
  Hotkey, i, on
  Hotkey, j, on
  Hotkey, k, on
  Hotkey, l, on
  Hotkey, m, on
  Hotkey, n, on
  Hotkey, o, on
  Hotkey, p, on
  Hotkey, q, on
  Hotkey, r, on
  Hotkey, s, on
  Hotkey, t, on
  Hotkey, u, on
  Hotkey, v, on
  Hotkey, w, on
  Hotkey, x, on
  Hotkey, y, on
  Hotkey, z, on

}
else
{
  morse = 0
  Hotkey, a, off
  Hotkey, b, off
  Hotkey, c, off
  Hotkey, d, off
  Hotkey, e, off
  Hotkey, f, off
  Hotkey, g, off
  Hotkey, h, off
  Hotkey, i, off
  Hotkey, j, off
  Hotkey, k, off
  Hotkey, l, off
  Hotkey, m, off
  Hotkey, n, off
  Hotkey, o, off
  Hotkey, p, off
  Hotkey, q, off
  Hotkey, r, off
  Hotkey, s, off
  Hotkey, t, off
  Hotkey, u, off
  Hotkey, v, off
  Hotkey, w, off
  Hotkey, x, off
  Hotkey, y, off
  Hotkey, z, off

}
return
^m:: MsgBox morse = %morse%

a::send .-{Space}
b::send -...{Space}
c::send -.-.{Space}
d::send -..{Space}
e::send .{Space}
f::send ..-.{Space}
g::send --.{Space}
h::send ....{Space}
i::send ..{Space}
j::send .---{Space}
k::send -.-{Space}
l::send .-..{Space}
m::send --{Space}
n::send -.{Space}
o::send ---{Space}
p::send .--.{Space}
q::send --.-{Space}
r::send .-.{Space}
s::send ...{Space}
t::send -{Space}
u::send ..-{Space}
v::send ...-{Space}
w::send .--{Space}
x::send -..-{Space}
y::send -.--{Space}
z::send --..{Space}