diff options
| author | nora <nora@b9310e46-f624-0410-8ea1-cfbb3a30dc96> | 2007-05-28 16:49:03 +0000 |
|---|---|---|
| committer | nora <nora@b9310e46-f624-0410-8ea1-cfbb3a30dc96> | 2007-05-28 16:49:03 +0000 |
| commit | cddc5b35fbfdfefb05200595e8cdd5282a426c51 (patch) | |
| tree | 7bac2a904a46130286910fdad98b02c9aaa13e76 /windows | |
| parent | 5f03016f4d6c564556d012244d3b870b44377268 (diff) | |
| download | neo-layout-cddc5b35fbfdfefb05200595e8cdd5282a426c51.tar.gz neo-layout-cddc5b35fbfdfefb05200595e8cdd5282a426c51.tar.bz2 neo-layout-cddc5b35fbfdfefb05200595e8cdd5282a426c51.zip | |
autohotkey: neo20-all-in-one.ahk für David zugefügt
git-svn-id: https://svn.neo-layout.org@131 b9310e46-f624-0410-8ea1-cfbb3a30dc96
Diffstat (limited to 'windows')
| -rw-r--r-- | windows/XP/autohotkey/neo20-all-in-one.ahk | 1567 |
1 files changed, 1567 insertions, 0 deletions
diff --git a/windows/XP/autohotkey/neo20-all-in-one.ahk b/windows/XP/autohotkey/neo20-all-in-one.ahk new file mode 100644 index 0000000..8ee91da --- /dev/null +++ b/windows/XP/autohotkey/neo20-all-in-one.ahk @@ -0,0 +1,1567 @@ +/*
+ Titel: NEO Autohotkey-Treiber
+ Version: 0.01b
+ Datum: 28.05.2007
+ Basiert auf: Neo-Layout und Neo-Remap vom 25.05.2007
+*/
+
+; aus Nora's script kopiert:
+#usehook on
+#singleinstance force
+#LTrim
+ ; Quelltext kann eingerckt werden,
+ ; msgbox ist trotzdem linksbndig
+
+SendMode Play
+SetTitleMatchMode 2
+
+name = NEO 2.0
+enable = Aktiviere %name%
+disable = Deaktiviere %name%
+
+; berprfung auf deutsches Tastaturlayout
+; ----------------------------------------
+
+regread, inputlocale, HKEY_CURRENT_USER, Keyboard Layout\Preload, 1
+regread, inputlocalealias, HKEY_CURRENT_USER
+ , Keyboard Layout\Substitutes, %inputlocale%
+if inputlocalealias <>
+ inputlocale = %inputlocalealias%
+if inputlocale <> 00000407
+{
+ suspend
+ regread, inputlocale, HKEY_LOCAL_MACHINE
+ , SYSTEM\CurrentControlSet\Control\Keyboard Layouts\%inputlocale%
+ , Layout Text
+ msgbox, 48, Warnung!,
+ (
+ Nicht kompatibles Tastaturlayout:
+ `t%inputlocale%
+ `nDas deutsche QWERTZ muss als Standardlayout eingestellt
+ sein, damit %name% wie erwartet funktioniert.
+ `nndern Sie die Tastatureinstellung unter
+ `tSystemsteuerung
+ `t-> Regions- und Sprachoptionen
+ `t-> Sprachen
+ `t-> Details... `n
+ )
+ exitapp
+}
+
+
+
+; Variablen initialisieren
+Ebene = 1
+myPriorHotkey = ""
+
+; CapsLock durch Mod3+Mod3
+*#::
+*CapsLock::
+ if GetKeyState("#","P") and GetKeyState("CapsLock","P")
+ {
+ if GetKeyState("CapsLock","T")
+ {
+ setcapslockstate, off
+ }
+ else
+ {
+ setcapslockstate, on
+ }
+ }
+return
+
+; Mod5-Tasten einen Hotkey zuweisen, damit die QWERTZ-Entsprechung nicht mehr ausgegeben wird:
+*<::
+*<^>!::
+return
+
+
+
+/*
+ Hier gehts jetzt los.
+
+ Ablauf bei toten Tasten:
+ 1. Ebene Aktualisieren
+ 2. Abhngig von der Variablen "Ebene" Zeichen ausgeben und die Variable "myPriorHotkey" setzen
+
+ Ablauf bei "lebenden" (sagt man das?) Tasten:
+ 1. Ebene Aktualisieren
+ 2. Abhngig von den Variablen "Ebene" und "myPriorHotkey" Zeichen ausgeben
+ 3. "myPriorHotkey" mit leerem String berschreiben
+*/
+
+
+*^::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ Unicode("ˆ") ; circumflex, tot
+ myPriorHotkey = "c1"
+ }
+ else if Ebene = 2
+ {
+ Unicode("ˇ") ; caron, tot
+ myPriorHotkey = "c2"
+ }
+ else if Ebene = 3
+ {
+ myPriorHotkey = "c3"
+ }
+ else if Ebene = 4
+ {
+ myPriorHotkey = "c4"
+ }
+ else if Ebene = 5
+ {
+ myPriorHotkey = "c5"
+ }
+ else if Ebene = 6
+ {
+ myPriorHotkey = "c6"
+ }
+return
+
+*1::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "c1" ; circumflex 1
+ BSUnicode("¹")
+ Else
+ send 1
+ }
+ else if Ebene = 2
+ send
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*2::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("²")
+ Else
+ send 2
+ }
+ else if Ebene = 2
+ send
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*3::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("³")
+ Else
+ send 3
+ }
+ else if Ebene = 2
+ send
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*4::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send 4
+ else if Ebene = 2
+ send $
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*5::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send 5
+ else if Ebene = 2
+ send
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*6::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send 6
+ else if Ebene = 2
+ send
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*7::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send 7
+ else if Ebene = 2
+ send
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*8::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send 8
+ else if Ebene = 2
+ send
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*9::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send 9
+ else if Ebene = 2
+ send
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*0::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send 0
+ else if Ebene = 2
+ send
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send - ; Bind
+ else if Ebene = 2
+ Unicode("–") ; Ged
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ send {"a1"}{space} ; akut, tot
+ myPriorHotkey = "a1"
+ }
+ else if Ebene = 2
+ {
+ send ``{space}
+ myPriorHotkey = "a2"
+ }
+ else if Ebene = 3
+ {
+ myPriorHotkey = "a3"
+ }
+ else if Ebene = 4
+ {
+ myPriorHotkey = "a4"
+ }
+ else if Ebene = 5
+ {
+ myPriorHotkey = "a5"
+ }
+ else if Ebene = 6
+ {
+ myPriorHotkey = "a6"
+ }
+return
+
+
+*q::
+ EbeneAktualisieren()
+ if Ebene = 1
+ sendinput {blind}x
+ else if Ebene = 2
+ sendinput {blind}X
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+
+*w::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "c6" ; punkt darunter
+ BSUnicode("ṿ")
+ Else
+ sendinput {blind}v
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "c6" ; punkt darunter
+ BSUnicode("Ṿ")
+ Else
+ sendinput {blind}V
+ }
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+
+
+*e::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "t5" ; Schrgstrich
+ BSUnicode("ł")
+ Else If myPriorHotkey = "a1" ; akut
+ BSUnicode("ĺ")
+ Else If myPriorHotkey = "c2" ; caron
+ BSUnicode("ľ")
+ Else If myPriorHotkey = "a3" ; cedilla
+ BSUnicode("ļ")
+ Else If myPriorHotkey = "c5" ; Mittenpunkt
+ BSUnicode("ŀ")
+ Else If myPriorHotkey = "c6" ; punkt darunter
+ BSUnicode("ḷ")
+ Else
+ sendinput {blind}l
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "a1" ; akut
+ BSUnicode("Ĺ")
+ Else If myPriorHotkey = "c2" ; caron
+ BSUnicode("Ľ")
+ Else If myPriorHotkey = "a3" ; cedilla
+ BSUnicode("Ļ")
+ Else If myPriorHotkey = "t5" ; Schrgstrich
+ BSUnicode("Ł")
+ Else If myPriorHotkey = "c5" ; Mittenpunkt
+ BSUnicode("Ŀ")
+ Else If myPriorHotkey = "c6" ; punkt darunter
+ BSUnicode("Ḷ")
+ Else
+ sendinput {blind}L
+ }
+
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+
+*r::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("ĉ")
+ Else If myPriorHotkey = "c2" ; caron
+ BSUnicode("č")
+ Else If myPriorHotkey = "a1" ; akut
+ BSUnicode("ć")
+ Else If myPriorHotkey = "a3" ; cedilla
+ BSUnicode("ç")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("ċ")
+ Else
+ sendinput {blind}c
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("Ĉ")
+ Else If myPriorHotkey = "c2" ; caron
+ BSUnicode("Č")
+ Else If myPriorHotkey = "a1" ; akut
+ BSUnicode("Ć")
+ Else If myPriorHotkey = "a3" ; cedilla
+ BSUnicode("Ç")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("Ċ")
+ Else
+ sendinput {blind}C
+ }
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*t::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("ŵ")
+ Else
+ sendinput {blind}w
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("ŵ")
+ Else
+ sendinput {blind}W
+ }
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*z::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "a3" ; cedilla
+ BSUnicode("ķ")
+ Else If myPriorHotkey = "c6" ; punkt darunter
+ BSUnicode("ḳ")
+ Else
+ sendinput {blind}k
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "a3" ; cedilla
+ BSUnicode("Ķ")
+ Else If myPriorHotkey = "c6" ; punkt darunter
+ BSUnicode("Ḳ")
+ Else
+ sendinput {blind}K
+ }
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*u::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("ĥ")
+ Else If myPriorHotkey = "c4" ; Querstrich
+ BSUnicode("ħ")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("ḣ")
+ Else If myPriorHotkey = "c6" ; punkt darunter
+ BSUnicode("ḥ")
+ Else sendinput {blind}h
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("Ĥ")
+ Else If myPriorHotkey = "c4" ; Querstrich
+ BSUnicode("Ħ")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("Ḣ")
+ Else If myPriorHotkey = "c6" ; punkt darunter
+ BSUnicode("Ḥ")
+ Else sendinput {blind}H
+ }
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*i::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("ĝ")
+ Else If myPriorHotkey = "c3" ; brevis
+ BSUnicode("ğ")
+ Else If myPriorHotkey = "a3" ; cedilla
+ BSUnicode("ģ")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("ġ")
+ Else sendinput {blind}g
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("Ĝ")
+ Else If myPriorHotkey = "c3" ; brevis
+ BSUnicode("Ğ")
+ Else If myPriorHotkey = "a3" ; cedilla
+ BSUnicode("Ģ")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("Ġ")
+ Else sendinput {blind}G
+ }
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*o::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "t5" ; durchgestrichen
+ BSUnicode("ƒ")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("ḟ")
+ Else sendinput {blind}f
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "t5" ; durchgestrichen
+ BSUnicode("₣")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("Ḟ")
+ Else sendinput {blind}F
+ }
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*p::
+ EbeneAktualisieren()
+ if Ebene = 1
+ sendinput {blind}q
+ else if Ebene = 2
+ sendinput {blind}Q
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*::
+ EbeneAktualisieren()
+ if Ebene = 1
+ sendinput {blind}
+ else if Ebene = 2
+ send SS ; wird versal-
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+
+*+::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ Unicode("˜") ; tilde, tot
+ myPriorHotkey = "t1"
+ }
+ else if Ebene = 2
+ {
+ Unicode("ˉ") ; macron, tot
+ myPriorHotkey = "t2"
+ }
+ else if Ebene = 3
+ {
+ myPriorHotkey = "t3"
+ }
+ else if Ebene = 4
+ {
+ myPriorHotkey = "t4"
+ }
+ else if Ebene = 5
+ {
+ myPriorHotkey = "t5"
+ }
+ else if Ebene = 6
+ {
+ myPriorHotkey = "t6"
+ }
+return
+
+
+*a::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("û")
+ Else If myPriorHotkey = "a1" ; akut
+ BSUnicode("ú")
+ Else If myPriorHotkey = "a2" ; grave
+ BSUnicode("ù")
+ Else If myPriorHotkey = "t3" ; Diaerese
+ Send, {bs}
+ Else If myPriorHotkey = "t4" ; doppelakut
+ BSUnicode("ű")
+ Else If myPriorHotkey = "c3" ; brevis
+ BSUnicode("ŭ")
+ Else If myPriorHotkey = "t2" ; macron
+ BSUnicode("ū")
+ Else If myPriorHotkey = "a4" ; ogonek
+ BSUnicode("ų")
+ Else If myPriorHotkey = "a6" ; Ring
+ BSUnicode("ů")
+ Else If myPriorHotkey = "t1" ; tilde
+ BSUnicode("ũ")
+ Else
+ sendinput {blind}u
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("Û")
+ Else If myPriorHotkey = "a1" ; akut
+ BSUnicode("Ú")
+ Else If myPriorHotkey = "a2" ; grave
+ BSUnicode("Ù")
+ Else If myPriorHotkey = "t3" ; Diaerese
+ Send, {bs}
+ Else If myPriorHotkey = "a6" ; Ring
+ BSUnicode("Ů")
+ Else If myPriorHotkey = "c3" ; brevis
+ BSUnicode("Ŭ")
+ Else If myPriorHotkey = "t4" ; doppelakut
+ BSUnicode("Ű")
+ Else If myPriorHotkey = "c2" ; caron
+ BSUnicode("Ů")
+ Else If myPriorHotkey = "t2" ; macron
+ BSUnicode("Ū")
+ Else If myPriorHotkey = "c3" ; brevis
+ BSUnicode("Ŭ")
+ Else If myPriorHotkey = "a4" ; ogonek
+ BSUnicode("Ų")
+ Else If myPriorHotkey = "t1" ; tilde
+ BSUnicode("Ũ")
+ Else
+ sendinput {blind}U
+ }
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*s::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("î")
+ Else If myPriorHotkey = "a1" ; akut
+ BSUnicode("í")
+ Else If myPriorHotkey = "a2" ; grave
+ BSUnicode("ì")
+ Else If myPriorHotkey = "t3" ; Diaerese
+ Send, {bs}
+ Else If myPriorHotkey = "t2" ; macron
+ BSUnicode("ī")
+ Else If myPriorHotkey = "c3" ; brevis
+ BSUnicode("ĭ")
+ Else If myPriorHotkey = "a4" ; ogonek
+ BSUnicode("į")
+ Else If myPriorHotkey = "t1" ; tilde
+ BSUnicode("ĩ")
+ Else If myPriorHotkey = "a5" ; (ohne) punkt darber
+ BSUnicode("ı")
+ Else
+ sendinput {blind}i
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("Î")
+ Else If myPriorHotkey = "a1" ; akut
+ BSUnicode("Í")
+ Else If myPriorHotkey = "a2" ; grave
+ BSUnicode("Ì")
+ Else If myPriorHotkey = "t3" ; Diaerese
+ Send, {bs}
+ Else If myPriorHotkey = "t2" ; macron
+ BSUnicode("Ī")
+ Else If myPriorHotkey = "c3" ; brevis
+ BSUnicode("Ĭ")
+ Else If myPriorHotkey = "a4" ; ogonek
+ BSUnicode("Į")
+ Else If myPriorHotkey = "t1" ; tilde
+ BSUnicode("Ĩ")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("İ")
+ Else
+ sendinput {blind}I
+ }
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*d::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("â")
+ Else If myPriorHotkey = "a1" ; akut
+ BSUnicode("á")
+ Else If myPriorHotkey = "a2" ; grave
+ BSUnicode("à")
+ Else If myPriorHotkey = "t3" ; Diaerese
+ send {bs}
+ Else If myPriorHotkey = "a6" ; Ring
+ Send {bs}
+ Else If myPriorHotkey = "t1" ; tilde
+ BSUnicode("ã")
+ Else If myPriorHotkey = "a4" ; ogonek
+ BSUnicode("ą")
+ Else If myPriorHotkey = "t2" ; macron
+ BSUnicode("ā")
+ Else If myPriorHotkey = "c3" ; brevis
+ BSUnicode("ă")
+ Else
+ sendinput {blind}a
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("Â")
+ Else If myPriorHotkey = "a1" ; akut
+ BSUnicode("Á")
+ Else If myPriorHotkey = "a2" ; grave
+ BSUnicode("À")
+ Else If myPriorHotkey = "t3" ; Diaerese
+ send {bs}
+ Else If myPriorHotkey = "t1" ; tilde
+ BSUnicode("Ã")
+ Else If myPriorHotkey = "a6" ; Ring
+ Send {bs}
+ Else If myPriorHotkey = "t2" ; macron
+ BSUnicode("Ā")
+ Else If myPriorHotkey = "c3" ; brevis
+ BSUnicode("Ă")
+ Else If myPriorHotkey = "a4" ; ogonek
+ BSUnicode("Ą")
+ Else
+ sendinput {blind}A
+ }
+
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*f::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("ê")
+ Else If myPriorHotkey = "a1" ; akut
+ BSUnicode("é")
+ Else If myPriorHotkey = "a2" ; grave
+ BSUnicode("è")
+ Else If myPriorHotkey = "t3" ; Diaerese
+ Send, {bs}
+ Else If myPriorHotkey = "a4" ; ogonek
+ BSUnicode("ę")
+ Else If myPriorHotkey = "t2" ; macron
+ BSUnicode("ē")
+ Else If myPriorHotkey = "c3" ; brevis
+ BSUnicode("ĕ")
+ Else If myPriorHotkey = "c2" ; caron
+ BSUnicode("ě")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("ė")
+ Else
+ sendinput {blind}e
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("Ê")
+ Else If myPriorHotkey = "a1" ; akut
+ BSUnicode("É")
+ Else If myPriorHotkey = "a2" ; grave
+ BSUnicode("È")
+ Else If myPriorHotkey = "t3" ; Diaerese
+ Send, {bs}
+ Else If myPriorHotkey = "c2" ; caron
+ BSUnicode("Ě")
+ Else If myPriorHotkey = "t2" ; macron
+ BSUnicode("Ē")
+ Else If myPriorHotkey = "c3" ; brevis
+ BSUnicode("Ĕ")
+ Else If myPriorHotkey = "a4" ; ogonek
+ BSUnicode("Ę")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("Ė")
+ Else
+ sendinput {blind}E
+ }
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*g::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("ô")
+ Else If myPriorHotkey = "a1" ; akut
+ BSUnicode("ó")
+ Else If myPriorHotkey = "a2" ; grave
+ BSUnicode("ò")
+ Else If myPriorHotkey = "t3" ; Diaerese
+ Send, {bs}
+ Else If myPriorHotkey = "t1" ; tilde
+ BSUnicode("õ")
+ Else If myPriorHotkey = "t4" ; doppelakut
+ BSUnicode("ő")
+ Else If myPriorHotkey = "t5" ; Schrgstrich
+ BSUnicode("ø")
+ Else If myPriorHotkey = "t2" ; macron
+ BSUnicode("ō")
+ Else If myPriorHotkey = "c3" ; brevis
+ BSUnicode("ŏ")
+ Else
+ sendinput {blind}o
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("Ô")
+ Else If myPriorHotkey = "a1" ; akut
+ BSUnicode("Ó")
+ Else If myPriorHotkey = "a2" ; grave
+ BSUnicode("Ò")
+ Else If myPriorHotkey = "t5" ; Schrgstrich
+ BSUnicode("Ø")
+ Else If myPriorHotkey = "t1" ; tilde
+ BSUnicode("Õ")
+ Else If myPriorHotkey = "t4" ; doppelakut
+ BSUnicode("Ő")
+ Else If myPriorHotkey = "t3" ; Diaerese
+ send {bs}
+ Else If myPriorHotkey = "t2" ; macron
+ BSUnicode("Ō")
+ Else If myPriorHotkey = "c3" ; brevis
+ BSUnicode("Ŏ")
+ Else
+ sendinput {blind}O
+ }
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*h::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("ŝ")
+ Else If myPriorHotkey = "a1" ; akut
+ BSUnicode("ś")
+ Else If myPriorHotkey = "c2" ; caron
+ BSUnicode("š")
+ Else If myPriorHotkey = "a3" ; cedilla
+ BSUnicode("ş")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("ṡ")
+ Else If myPriorHotkey = "c6" ; punkt darunter
+ BSUnicode("ṣ")
+ Else
+ sendinput {blind}s
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("Ŝ")
+ Else If myPriorHotkey = "c2" ; caron
+ BSUnicode("Š")
+ Else If myPriorHotkey = "a1" ; akut
+ BSUnicode("Ś")
+ Else If myPriorHotkey = "a3" ; cedilla
+ BSUnicode("Ş")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("")
+ Else If myPriorHotkey = "c6" ; punkt darunter
+ BSUnicode("Ṣ")
+ Else
+ sendinput {blind}S
+ }
+
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*j::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "a1" ; akut
+ BSUnicode("ń")
+ Else If myPriorHotkey = "t1" ; tilde
+ BSUnicode("ñ")
+ Else If myPriorHotkey = "c2" ; caron
+ BSUnicode("ň")
+ Else If myPriorHotkey = "a3" ; cedilla
+ BSUnicode("ņ")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("ṅ")
+ Else
+ sendinput {blind}n
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "c2" ; caron
+ BSUnicode("Ň")
+ Else If myPriorHotkey = "t1" ; tilde
+ BSUnicode("Ñ")
+ Else If myPriorHotkey = "a1" ; akut
+ BSUnicode("Ń")
+ Else If myPriorHotkey = "a3" ; cedilla
+ BSUnicode("Ņ")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("Ṅ")
+ Else
+ sendinput {blind}N
+ }
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*k::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "a1" ; akut
+ BSUnicode("ŕ")
+ Else If myPriorHotkey = "c2" ; caron
+ BSUnicode("ř")
+ Else If myPriorHotkey = "a3" ; cedilla
+ BSUnicode("ŗ")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("ṙ")
+ Else If myPriorHotkey = "c6" ; punkt darunter
+ BSUnicode("ṛ")
+ Else
+ sendinput {blind}r
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "c2" ; caron
+ BSUnicode("Ř")
+ Else If myPriorHotkey = "a1" ; akut
+ BSUnicode("Ŕ")
+ Else If myPriorHotkey = "a3" ; cedilla
+ BSUnicode("Ŗ")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("Ṙ")
+ Else If myPriorHotkey = "c6" ; punkt darunter
+ BSUnicode("Ṛ")
+ Else
+ sendinput {blind}R
+ }
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*l::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "c2" ; caron
+ BSUnicode("ť")
+ Else If myPriorHotkey = "a3" ; cedilla
+ BSUnicode("ţ")
+ Else If myPriorHotkey = "c4" ; Querstrich
+ BSUnicode("ŧ")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("ṫ")
+ Else If myPriorHotkey = "c6" ; punkt darunter
+ BSUnicode("ṭ")
+ Else
+ sendinput {blind}t
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "c2" ; caron
+ BSUnicode("Ť")
+ Else If myPriorHotkey = "a3" ; cedilla
+ BSUnicode("Ţ")
+ Else If myPriorHotkey = "c4" ; Querstrich
+ BSUnicode("Ŧ")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("Ṫ")
+ Else If myPriorHotkey = "c6" ; punkt darunter
+ BSUnicode("Ṭ")
+ Else
+ sendinput {blind}T
+ }
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "c4" ; Querstrich
+ BSUnicode("đ")
+ Else If myPriorHotkey = "t5" ; Schrgstrich
+ BSUnicode("ð")
+ Else If myPriorHotkey = "c2" ; caron
+ BSUnicode("ď")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("ḋ")
+ Else If myPriorHotkey = "c6" ; punkt darunter
+ BSUnicode("ḍ")
+ Else
+ sendinput {blind}d
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "c4" ; Querstrich
+ BSUnicode("Đ")
+ Else If myPriorHotkey = "t5" ; Schrgstrich
+ BSUnicode("Ð")
+ Else If myPriorHotkey = "c2" ; caron
+ BSUnicode("Ď")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("Ḋ")
+ Else If myPriorHotkey = "c6" ; punkt darunter
+ BSUnicode("Ḍ")
+ Else sendinput {blind}D
+ }
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "t3" ; Diaerese
+ Send {bs}
+ Else If myPriorHotkey = "a1" ; akut
+ BSUnicode("ý")
+ Else If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("ŷ")
+ Else
+ sendinput {blind}y
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "a1" ; akut
+ BSUnicode("Ý")
+ Else If myPriorHotkey = "t3" ; Diaerese
+ Send {bs}
+ Else If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("Ŷ")
+ Else
+ sendinput {blind}Y
+ }
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+;SC02B (#) wird zu Mod3
+
+;SC056 (<) wird zu Mod5
+*y::
+ EbeneAktualisieren()
+ if Ebene = 1
+ sendinput {blind}
+ else if Ebene = 2
+ sendinput {blind}
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*x::
+ EbeneAktualisieren()
+ if Ebene = 1
+ sendinput {blind}
+ else if Ebene = 2
+ sendinput {blind}
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*c::
+ EbeneAktualisieren()
+ if Ebene = 1
+ sendinput {blind}
+ else if Ebene = 2
+ sendinput {blind}
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*v::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("ṗ")
+ Else
+ sendinput {blind}p
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("Ṗ")
+ Else
+ sendinput {blind}P
+ }
+
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*b::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "c2" ; caron
+ BSUnicode("ž")
+ Else If myPriorHotkey = "a1" ; akut
+ BSUnicode("ź")
+ Else If myPriorHotkey = "a5" ; punkt drber
+ BSUnicode("ż")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("ż")
+ Else
+ sendinput {blind}z
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "c2" ; caron
+ BSUnicode("Ž")
+ Else If myPriorHotkey = "a1" ; akut
+ BSUnicode("Ź")
+ Else If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("Ż")
+ Else
+ sendinput {blind}Z
+ }
+
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*n::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("ḃ")
+ Else
+ sendinput {blind}b
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("Ḃ")
+ Else
+ sendinput {blind}B
+ }
+
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*m::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("ṁ")
+ Else If myPriorHotkey = "c6" ; punkt darunter
+ BSUnicode("ṃ")
+ Else
+ sendinput {blind}m
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "a5" ; punkt darber
+ BSUnicode("Ṁ")
+ Else If myPriorHotkey = "c6" ; punkt darunter
+ BSUnicode("Ṃ")
+ Else
+ sendinput {blind}M
+ }
+
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*,::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send `,
+; else if Ebene = 2
+
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+*.::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send .
+ else if Ebene = 2
+ Unicode("…") ; ellipse
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+
+*-::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("ĵ")
+ Else
+ sendinput {blind}j
+ }
+ else if Ebene = 2
+ {
+ If myPriorHotkey = "c1" ; circumflex
+ BSUnicode("Ĵ")
+ Else
+ sendinput {blind}J
+ }
+ ;else if Ebene = 3
+
+ ;else if Ebene = 4
+
+ ;else if Ebene = 5
+
+ ;else if Ebene = 6
+
+ myPriorHotkey = ""
+return
+
+
+
+; Funktionen
+; ------------------------------------------------------
+
+
+EbeneAktualisieren()
+{
+ global
+ Ebene = 1
+
+ ; ist Shift down?
+ if ( GetKeyState("Shift","P") )
+ {
+ Ebene += 1
+ }
+ ; ist Mod3 down?
+ if ( GetKeyState("CapsLock","P") or GetKeyState("#","P") )
+ {
+ Ebene += 2
+ }
+ ; ist Mod5 down? Mod3 hat Vorrang!
+ else if ( GetKeyState("<","P") or GetKeyState("<^>!","P") )
+ {
+ Ebene += 4
+ }
+
+ return
+}
+
+Unicode(code)
+{
+ saved_clipboard := ClipboardAll
+ Transform, Clipboard, Unicode, %code%
+ send ^v
+ Clipboard := saved_clipboard
+}
+
+BSUnicode(code)
+{
+ saved_clipboard := ClipboardAll
+ Transform, Clipboard, Unicode, %code%
+ send {bs}^v
+ Clipboard := saved_clipboard
+}
\ No newline at end of file |