Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;Morse Keyboard with Morse Sound
- /*
- The frequency of the sound (can be an expression) should be a number between 37 and 32767. If omitted, the frequency will be 523.
- The duration of the sound, in milliseconds (can be an expression). If omitted, the duration will be 150.
- */
- SendMode Input
- ;CoordMode ToolTip
- ;CoordMode, A_CoordModeCaret
- Home::
- ToolTip % "Morse: "((mTog:=!mTog)?"On":"Off"),10,A_ScreenHeight-30
- SetTimer tOff,-2000
- Return
- #If mTog
- ~a::
- ToolTip, .-, A_CaretX-10, A_CaretY-20
- ;SoundBeep [, Frequency, Duration]
- SoundBeep, 1200
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}.- `
- return
- ~b::
- ToolTip, -..., A_CaretX-10, A_CaretY-20
- ;SoundBeep [, Frequency, Duration]
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}-... `
- return
- ~c::
- ToolTip, -.-., A_CaretX-10, A_CaretY-20
- ;SoundBeep [, Frequency, Duration]
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}-.-. `
- return
- ~d::
- ToolTip, -.., A_CaretX-10, A_CaretY-20
- ;SoundBeep [, Frequency, Duration]
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}-.. `
- return
- ~e::
- ToolTip, ., A_CaretX-10, A_CaretY-20
- ;SoundBeep [, Frequency, Duration]
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}. `
- return
- ~f::
- ToolTip, ..-., A_CaretX-10, A_CaretY-20
- ;SoundBeep [, Frequency, Duration]
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}..-. `
- return
- ~g::
- ToolTip, --., A_CaretX-10, A_CaretY-20
- ;SoundBeep [, Frequency, Duration]
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}--. `
- return
- ~h::
- ToolTip, ...., A_CaretX-10, A_CaretY-20
- ;SoundBeep [, Frequency, Duration]
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}.... `
- return
- ~i::
- ToolTip, .., A_CaretX-10, A_CaretY-20
- ;SoundBeep [, Frequency, Duration]
- SoundBeep, 1200
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}.. `
- return
- ~j::
- ToolTip, .---, A_CaretX-10, A_CaretY-20
- ;SoundBeep [, Frequency, Duration]
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}.--- `
- return
- ~k::
- ToolTip, -.-, A_CaretX-10, A_CaretY-20
- ;SoundBeep [, Frequency, Duration]
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}-.- `
- return
- ~l::
- ToolTip, .-.., A_CaretX-10, A_CaretY-20
- ;SoundBeep [, Frequency, Duration]
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}.-.. `
- return
- ~m::
- ToolTip, --, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}-- `
- return
- ~n::
- ToolTip, -., A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}-. `
- return
- ~o::
- ToolTip, ---, A_CaretX-10, A_CaretY-20
- ;SoundBeep [, Frequency, Duration]
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}--- `
- return
- ~p::
- ToolTip, .--., A_CaretX-10, A_CaretY-20
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}.--. `
- return
- ~q::
- ToolTip, --.-, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}--.- `
- return
- ~r::
- ToolTip, .-., A_CaretX-10, A_CaretY-20
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}.-. `
- return
- ~s::
- ToolTip, ..., A_CaretX-10, A_CaretY-20
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}... `
- return
- ~t::
- ToolTip, -, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}- `
- return
- ~u::
- ToolTip, ..-, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}..- `
- return
- ~v::
- ToolTip, ...-, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}...- `
- return
- ~w::
- ToolTip, .--, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}.-- `
- return
- ~x::
- ToolTip, -..-, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}-..- `
- return
- ~y::
- ToolTip, -.--, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}-.-- `
- return
- ~z::
- ToolTip, --.., A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}--.. `
- return
- ;-----------------------------------------------------------------------------------------
- ~0::
- ToolTip, -----, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}----- `
- return
- ~1::
- ToolTip, .----, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}.---- `
- return
- ~2::
- ToolTip, ..---, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}..--- `
- return
- ~3::
- ToolTip, ...--, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}...-- `
- return
- ~4::
- ToolTip, ....-, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}....- `
- return
- ~5::
- ToolTip, ....., A_CaretX-10, A_CaretY-20
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}..... `
- return
- ~6::
- ToolTip, -...., A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}-.... `
- return
- ~7::
- ToolTip, --..., A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}--... `
- return
- ~8::
- ToolTip, ---.., A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}---.. `
- return
- ~9::
- ToolTip, ----., A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}----. `
- return
- ;-----------------------------------------------------------------------------------------
- ~!:: ;Exclamation
- ToolTip, ---., A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}---. `
- return
- ~.:: ;Period
- ToolTip, .-.-.-, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}.-.-.- `
- return
- ~,:: ;Comma
- ToolTip, --..--, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}--..-- `
- return
- ~/:: ;Slash
- ToolTip, -..-., A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}-..-. `
- return
- ~\:: ;Backslash
- ToolTip, .-..-., A_CaretX-10, A_CaretY-20
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}.-..-. `
- return
- */
- ~|:: ;
- ToolTip, -.--.-, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}-.--.- `
- return
- ~?:: ;Question Mark
- ToolTip, ..--.., A_CaretX-10, A_CaretY-20
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}..--.. `
- return
- :C*:: :: ;Colon ":"
- ToolTip, ---..., A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, ---...
- return
- ~;:: ;Semicolon
- ToolTip, -.-.-, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}-.-.- `
- return
- ~':: ;Apostrophe
- ToolTip, .----., A_CaretX-10, A_CaretY-20
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}.----. `
- return
- ~+:: ;Plus
- ToolTip, .-.-., A_CaretX-10, A_CaretY-20
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}.-.-. `
- return
- ~-:: ;Dash
- ToolTip, -....-, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}-....- `
- return
- ~_:: ;Underline
- ToolTip, ..--.-, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}..--.- `
- return
- ~(:: ;Opening Parentheses
- ~[:: ;Opening Parentheses
- ToolTip, -.--., A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}-.--. `
- return
- ~):: ;Closing Parentheses
- ~]:: ;Closing Parentheses
- ToolTip, -.--.-, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}-.--.- `
- return
- ~=:: ;
- ToolTip, -...-, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}-...- `
- return
- ~@:: ;
- ToolTip, .--.-., A_CaretX-10, A_CaretY-20
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200
- Sleep, 500
- ToolTip
- SendInput, {BS}.--.-. `
- return
- ~$:: ;
- ToolTip, ...-..-, A_CaretX-10, A_CaretY-20
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200, 500
- SoundBeep, 1200
- SoundBeep, 1200
- SoundBeep, 1200, 500
- Sleep, 500
- ToolTip
- SendInput, {BS}...-..- `
- return
- ~Space::SendInput, {BS}/{Space} ; / = Space
- return
- #If
- tOff:
- ToolTip
- Return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement