diff options
Diffstat (limited to 'windows/XP')
| -rw-r--r-- | windows/XP/autohotkey/neo20-all-in-one.ahk | 2159 |
1 files changed, 2159 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..5bd1db5 --- /dev/null +++ b/windows/XP/autohotkey/neo20-all-in-one.ahk @@ -0,0 +1,2159 @@ +/*
+ Titel: NEO 2.0 beta Autohotkey-Treiber
+ Version: 0.10 beta
+ Datum: 16.02.2008
+ Autor: Stefan Mayer <stm@neo-layout.org>
+ Basiert auf: neo20-all-in-one.ahk vom 29.06.2007
+
+ TODO: - ausgiebig testen...
+ - Menü des Tasksymbols
+ - Bessere Lösung für das leeren von PriorDeadKey finden, damit die Sondertasten
+ nicht mehr abgefangen werden müssen.
+ - CapsLock auf 1. und 2. Ebene einbauen:
+ Die Buchstaben reagieren richtig auf CapsLock, da hier "sendinput {blind}"
+ verwendet wird. Bei anderen Tasten muss CapsLock in der ersten und zweiten Ebene
+ explizit abgefragt werden.
+ (Lässt sich das elegant in eine Funktion auslagern?)
+ |------------------|
+ | - Compose-Taste |
+ |------------------|
+ Ideen: - Symbol ändern (Neo-Logo abwarten)
+ - bei Ebene 5 rechte Hand (Numpad) z.B. Numpad5 statt 5 senden
+ CHANGES: - SUPERSCRIPT von 0 bis 9 sowie (auf Nummernblock) + und -
+ - Zahlenreihe: Entfernt: Brüche
+ Hinzugefügt: Geschlechts-Piktogramme, Listings-Zeichen
+ - Kein Parsen über die Zwischenablage mehr
+ - Vista-kompatibel
+*/
+
+; aus Noras script kopiert:
+#usehook on
+#singleinstance force
+#LTrim
+ ; Quelltext kann eingerückt werden,
+ ; msgbox ist trotzdem linksbündig
+
+SendMode Input
+SetTitleMatchMode 2
+
+;name = NEO 2.0
+;enable = Aktiviere %name%
+;disable = Deaktiviere %name%
+
+; Überprüfung 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.
+ `nÄndern Sie die Tastatureinstellung unter
+ `tSystemsteuerung
+ `t-> Regions- und Sprachoptionen
+ `t-> Sprachen
+ `t-> Details... `n
+ )
+ exitapp
+}
+
+/*
+ Variablen initialisieren
+*/
+
+Ebene = 1
+PriorDeadKey := ""
+
+
+/*
+ ------------------------------------------------------
+ Modifier
+ ------------------------------------------------------
+*/
+
+; CapsLock durch Mod3+Mod3
+*#::
+*CapsLock::
+ if GetKeyState("#","P") and GetKeyState("CapsLock","P")
+ {
+ if GetKeyState("CapsLock","T")
+ {
+ setcapslockstate, off
+ }
+ else
+ {
+ setcapslockstate, on
+ }
+ }
+return
+
+; KP_Decimal durch Mod5+Mod5
+*<::
+*SC138::
+ if GetKeyState("<","P") and GetKeyState("SC138","P")
+ {
+ send {numpaddot}
+ }
+ return
+
+
+/*
+ Ablauf bei toten Tasten:
+ 1. Ebene Aktualisieren
+ 2. Abhängig von der Variablen "Ebene" Zeichen ausgeben und die Variable "PriorDeadKey" setzen
+
+ Ablauf bei "lebenden" (sagt man das?) Tasten:
+ 1. Ebene Aktualisieren
+ 2. Abhängig von den Variablen "Ebene" und "PriorDeadKey" Zeichen ausgeben
+ 3. "PriorDeadKey" mit leerem String überschreiben
+
+ ------------------------------------------------------
+ Reihe 1
+ ------------------------------------------------------
+*/
+
+*^::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ SendUnicodeChar(0x02C6) ; circumflex, tot
+ PriorDeadKey := "c1"
+ }
+ else if Ebene = 2
+ {
+ SendUnicodeChar(0x02C7) ; caron, tot
+ PriorDeadKey := "c2"
+ }
+ else if Ebene = 3
+ {
+ SendUnicodeChar(0x02D8) ; brevis
+ PriorDeadKey := "c3"
+ }
+ else if Ebene = 4
+ {
+ send - ; querstrich, tot
+ PriorDeadKey := "c4"
+ }
+ else if Ebene = 5
+ {
+ SendUnicodeChar(0x00B7) ; Mittenpunkt, tot
+ PriorDeadKey := "c5"
+ }
+ else if Ebene = 6
+ {
+ Send . ; punkt darunter (colon)
+ PriorDeadKey := "c6"
+ }
+return
+
+*1::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c1") ; circumflex 1
+ BSSendUnicodeChar(0x00B9)
+ Else
+ send {blind}1
+ }
+ else if Ebene = 2
+ send °
+ else if Ebene = 4
+ SendUnicodeChar(0x2640) ; Piktogramm weiblich
+ else if Ebene = 5
+ SendUnicodeChar(0x2022) ; bullet
+ PriorDeadKey := ""
+return
+
+*2::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x00B2)
+ Else
+ send {blind}2
+ }
+ else if Ebene = 2
+ SendUnicodeChar(0x2116) ; numero
+ else if Ebene = 4
+ SendUnicodeChar(0x26A5) ; Piktogramm Zwitter
+ else if Ebene = 5
+ SendUnicodeChar(0x2023) ; aufzaehlungspfeil
+ PriorDeadKey := ""
+return
+
+*3::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x00B3)
+ Else
+ send {blind}3
+ }
+ else if Ebene = 2
+ send §
+ else if Ebene = 4
+ SendUnicodeChar(0x2642) ; Piktogramm männlich
+ PriorDeadKey := ""
+return
+
+*4::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x2074)
+ Else
+ send {blind}4
+ }
+ else if Ebene = 2
+ send »
+ else if Ebene = 3
+ send ›
+ else if Ebene = 5
+ Send {PgUp} ; Prev
+ else if Ebene = 6
+ Send +{Prev}
+ PriorDeadKey := ""
+return
+
+*5::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x2075)
+ Else
+ send {blind}5
+ }
+ else if Ebene = 2
+ send «
+ else if Ebene = 3
+ send ‹
+ else if Ebene = 6
+ SendUnicodeChar(0x21D2) ; Implikation
+ PriorDeadKey := ""
+return
+
+*6::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x2076)
+ Else
+ send {blind}6
+ }
+ else if Ebene = 2
+ send $
+ else if Ebene = 3
+ send £
+ else if Ebene = 4
+ send ¤
+ else if Ebene = 6
+ SendUnicodeChar(0x21D4) ; Äquivalenz
+ PriorDeadKey := ""
+return
+
+*7::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x2077)
+ Else
+ send {blind}7
+ }
+ else if Ebene = 2
+ send €
+ else if Ebene = 3
+ send ¢
+ else if Ebene = 4
+ send ¥
+ else if Ebene = 6
+ Send ¬
+ PriorDeadKey := ""
+return
+
+*8::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x2078)
+ Else
+ send {blind}8
+ }
+ else if Ebene = 2
+ send „
+ else if Ebene = 3
+ send ‚
+ else if Ebene = 5
+ Send /
+ else if Ebene = 6
+ SendUnicodeChar(0x2203) ; Existenzquantor
+ PriorDeadKey := ""
+return
+
+*9::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x2079)
+ Else
+ send {blind}9
+ }
+ else if Ebene = 2
+ send “
+ else if Ebene = 3
+ send ‘
+ else if Ebene = 5
+ Send *
+ else if Ebene = 6
+ SendUnicodeChar(0x2200) ; Allquantor
+ PriorDeadKey := ""
+return
+
+*0::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x2070)
+ Else
+ send {blind}0
+ }
+ else if Ebene = 2
+ send ”
+ else if Ebene = 3
+ send ’
+ else if Ebene = 5
+ Send -
+ else if Ebene = 6
+ SendUnicodeChar(0x2228) ; logisch oder
+ PriorDeadKey := ""
+return
+
+*ß::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {blind}- ; Bind
+ else if Ebene = 2
+ SendUnicodeChar(0x2013) ; Ged
+ else if Ebene = 3
+ SendUnicodeChar(0x2014)
+ else if Ebene = 4
+ SendUnicodeChar(0x254C)
+ else if Ebene = 5
+ SendUnicodeChar(0x2011)
+ else if Ebene = 6
+ SendUnicodeChar(0x2227) ; logisch und
+ PriorDeadKey := ""
+return
+
+*´::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ send {´}{space} ; akut, tot
+ PriorDeadKey := "a1"
+ }
+ else if Ebene = 2
+ {
+ send ``{space}
+ PriorDeadKey := "a2"
+ }
+ else if Ebene = 3
+ {
+ send ¸ ; cedilla
+ PriorDeadKey := "a3"
+ }
+ else if Ebene = 4
+ {
+ SendUnicodeChar(0x02DB) ; ogonek
+ PriorDeadKey := "a4"
+ }
+ else if Ebene = 5
+ {
+ SendUnicodeChar(0x02D9) ; punkt oben drüber
+ PriorDeadKey := "a5"
+ }
+ else if Ebene = 6
+ {
+ SendUnicodeChar(0x02DA) ; ring obendrauf
+ PriorDeadKey := "a6"
+ }
+return
+
+
+/*
+ ------------------------------------------------------
+ Reihe 2
+ ------------------------------------------------------
+*/
+
+*q::
+ EbeneAktualisieren()
+ if Ebene = 1
+ sendinput {blind}x
+ else if Ebene = 2
+ sendinput {blind}X
+ else if Ebene = 3
+ send @
+ else if Ebene = 4
+ SendUnicodeChar(0x03BE) ;xi
+ else if Ebene = 5
+ send @ ; Redundanz
+ else if Ebene = 6
+ SendUnicodeChar(0x039E) ; Xi
+ PriorDeadKey := ""
+return
+
+
+*w::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c6") ; punkt darunter
+ BSSendUnicodeChar(0x1E7F)
+ Else
+ sendinput {blind}v
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "c6") ; punkt darunter
+ BSSendUnicodeChar(0x1E7E)
+ Else
+ sendinput {blind}V
+ }
+ else if Ebene = 3
+ send _
+ else if Ebene = 5
+ Send {Tab}
+ else if Ebene = 6
+ Send +{Tab}
+ PriorDeadKey := ""
+return
+
+
+
+*e::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "t5") ; Schrägstrich
+ BSSendUnicodeChar(0x0142)
+ Else If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x013A)
+ Else If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x013E)
+ Else If (PriorDeadKey = "a3") ; cedilla
+ BSSendUnicodeChar(0x013C)
+ Else If (PriorDeadKey = "c5") ; Mittenpunkt
+ BSSendUnicodeChar(0x0140)
+ Else If (PriorDeadKey = "c6") ; punkt darunter
+ BSSendUnicodeChar(0x1E37)
+ Else
+ sendinput {blind}l
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x0139)
+ Else If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x013D)
+ Else If (PriorDeadKey = "a3") ; cedilla
+ BSSendUnicodeChar(0x013B)
+ Else If (PriorDeadKey = "t5") ; Schrägstrich
+ BSSendUnicodeChar(0x0141)
+ Else If (PriorDeadKey = "c5") ; Mittenpunkt
+ BSSendUnicodeChar(0x013F)
+ Else If (PriorDeadKey = "c6") ; punkt darunter
+ BSSendUnicodeChar(0x1E36)
+ Else
+ sendinput {blind}L
+ }
+ else if Ebene = 3
+ send [
+ else if Ebene = 4
+ SendUnicodeChar(0x03BB) ;lambda
+ else if Ebene = 5
+ Sendinput {Blind}{Up}
+ else if Ebene = 6
+ Sendinput {Blind}+{Up}
+ PriorDeadKey := ""
+return
+
+
+*r::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x0109)
+ Else If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x010D)
+ Else If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x0107)
+ Else If (PriorDeadKey = "a3") ; cedilla
+ BSSendUnicodeChar(0x00E7)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x010B)
+ Else
+ sendinput {blind}c
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x0108)
+ Else If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x010C)
+ Else If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x0106)
+ Else If (PriorDeadKey = "a3") ; cedilla
+ BSSendUnicodeChar(0x00E6)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x010A)
+ Else
+ sendinput {blind}C
+ }
+ else if Ebene = 3
+ send ]
+ else if Ebene = 4
+ SendUnicodeChar(0x03C7) ;chi
+ else if Ebene = 5
+ Send {Backspace}
+ else if Ebene = 6
+ SendUnicodeChar(0x039B) ; Lambda
+ PriorDeadKey := ""
+return
+
+*t::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x0175)
+ Else
+ sendinput {blind}w
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x0174)
+ Else
+ sendinput {blind}W
+ }
+ else if Ebene = 3
+ send {^}{space} ; untot
+ else if Ebene = 5
+ Send {Insert}
+ else if Ebene = 6
+ Send +{Insert}
+ PriorDeadKey := ""
+return
+
+*z::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "a3") ; cedilla
+ BSSendUnicodeChar(0x0137)
+ Else If (PriorDeadKey = "c6") ; punkt darunter
+ BSSendUnicodeChar(0x1E33)
+ Else
+ sendinput {blind}k
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "a3") ; cedilla
+ BSSendUnicodeChar(0x0136)
+ Else If (PriorDeadKey = "c6") ; punkt darunter
+ BSSendUnicodeChar(0x1E32)
+ Else
+ sendinput {blind}K
+ }
+ else if Ebene = 3
+ sendraw !
+ else if Ebene = 4
+ SendUnicodeChar(0x03BA) ;kappa
+ else if Ebene = 5
+ Send ¡
+ PriorDeadKey := ""
+return
+
+*u::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x0125)
+ Else If (PriorDeadKey = "c4") ; Querstrich
+ BSSendUnicodeChar(0x0127)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x1E23)
+ Else If (PriorDeadKey = "c6") ; punkt darunter
+ BSSendUnicodeChar(0x1E25)
+ Else sendinput {blind}h
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x0124)
+ Else If (PriorDeadKey = "c4") ; Querstrich
+ BSSendUnicodeChar(0x0126)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x1E22)
+ Else If (PriorDeadKey = "c6") ; punkt darunter
+ BSSendUnicodeChar(0x1E24)
+ Else sendinput {blind}H
+ }
+ else if Ebene = 3
+ {
+ If (PriorDeadKey = "c4") ; Querstrich
+ BSSendUnicodeChar(0x2264) ; kleiner gleich
+ Else
+ send {blind}<
+ }
+ else if Ebene = 4
+ SendUnicodeChar(0x03C8) ;psi
+ else if Ebene = 5
+ Send 7
+ else if Ebene = 6
+ SendUnicodeChar(0x03A8) ; Psi
+ PriorDeadKey := ""
+return
+
+*i::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x011D)
+ Else If (PriorDeadKey = "c3") ; brevis
+ BSSendUnicodeChar(0x011F)
+ Else If (PriorDeadKey = "a3") ; cedilla
+ BSSendUnicodeChar(0x0123)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x0121)
+ Else sendinput {blind}g
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x011C)
+ Else If (PriorDeadKey = "c3") ; brevis
+ BSSendUnicodeChar(0x011E)
+ Else If (PriorDeadKey = "a3") ; cedilla
+ BSSendUnicodeChar(0x0122)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x0120)
+ Else sendinput {blind}G
+ }
+ else if Ebene = 3
+ {
+ If (PriorDeadKey = "c4") ; Querstrich
+ SendUnicodeChar(0x2265) ; größer gleich
+ Else
+ send >
+ }
+ else if Ebene = 4
+ SendUnicodeChar(0x03B3) ;gamma
+ else if Ebene = 5
+ Send 8
+ else if Ebene = 6
+ SendUnicodeChar(0x0393) ; Gamma
+ PriorDeadKey := ""
+return
+
+*o::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "t5") ; durchgestrichen
+ BSSendUnicodeChar(0x0192)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x1E1F)
+ Else sendinput {blind}f
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "t5") ; durchgestrichen
+ BSSendUnicodeChar(0x0191)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x1E1E)
+ Else sendinput {blind}F
+ }
+ else if Ebene = 3
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x2259) ; entspricht
+ Else If (PriorDeadKey = "t1") ; tilde
+ BSSendUnicodeChar(0x2245) ; ungefähr gleich
+ Else If (PriorDeadKey = "t5") ; Schrägstrich
+ BSSendUnicodeChar(0x2260) ; ungleich
+ Else If (PriorDeadKey = "c4") ; Querstrich
+ BSSendUnicodeChar(0x2261) ; identisch
+ Else If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x225A) ; EQUIANGULAR TO
+ Else If (PriorDeadKey = "a6") ; ring drüber
+ BSSendUnicodeChar(0x2257) ; ring equal to
+ Else
+ send `=
+ }
+ else if Ebene = 4
+ SendUnicodeChar(0x03C6) ;phi
+ else if Ebene = 5
+ Send 9
+ else if Ebene = 6
+ SendUnicodeChar(0x03A6) ; Phi
+ PriorDeadKey := ""
+return
+
+*p::
+ EbeneAktualisieren()
+ if Ebene = 1
+ sendinput {blind}q
+ else if Ebene = 2
+ sendinput {blind}Q
+ else if Ebene = 3
+ send {&}
+ else if Ebene = 4
+ SendUnicodeChar(0x0278) ; Varphi? (latin letter phi)
+ else if Ebene = 5
+ Send {+}
+ else if Ebene = 6
+ SendUnicodeChar(0x2202) ; "verdrehtes e" (partielle Ableitung)
+ PriorDeadKey := ""
+return
+
+*ü::
+ EbeneAktualisieren()
+ if Ebene = 1
+ if GetKeyState("CapsLock","T")
+ {
+ SendUnicodeChar(0x1E9E) ; versal-ß
+ }
+ else
+ {
+ send ß
+ }
+ else if Ebene = 2
+ if GetKeyState("CapsLock","T")
+ {
+ send ß
+ }
+ else
+ {
+ SendUnicodeChar(0x1E9E) ; versal-ß
+ }
+ else if Ebene = 3
+ SendUnicodeChar(0x017F) ; langes s
+ else if Ebene = 4
+ SendUnicodeChar(0x03C2) ; varsigma
+ else if Ebene = 5
+ SendUnicodeChar(0x0259) ; schwa
+ else if Ebene = 6
+ SendUnicodeChar(0x018F) ; Schwa
+ PriorDeadKey := ""
+return
+
+
+*+::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ SendUnicodeChar(0x02DC) ; tilde, tot
+ PriorDeadKey := "t1"
+ }
+ else if Ebene = 2
+ {
+ SendUnicodeChar(0x00AF) ; macron, tot
+ PriorDeadKey := "t2"
+ }
+ else if Ebene = 3
+ {
+ SendUnicodeChar(0x00A8) ; Diaerese
+ PriorDeadKey := "t3"
+ }
+ else if Ebene = 4
+ {
+ send " ;doppelakut
+ PriorDeadKey := "t4"
+ }
+ else if Ebene = 5
+ {
+ SendUnicodeChar(0x002F) ; Schrägstrich, tot
+ PriorDeadKey := "t5"
+ }
+ else if Ebene = 6
+ {
+ SendUnicodeChar(0x02CF) ; komma drunter, tot
+ PriorDeadKey := "t6"
+ }
+return
+
+
+/*
+ ------------------------------------------------------
+ Reihe 3
+ ------------------------------------------------------
+*/
+
+*a::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x00FB)
+ Else If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x00FA)
+ Else If (PriorDeadKey = "a2") ; grave
+ BSSendUnicodeChar(0x00F9)
+ Else If (PriorDeadKey = "t3") ; Diaerese
+ Send, {bs}ü
+ Else If (PriorDeadKey = "t4") ; doppelakut
+ BSSendUnicodeChar(0x0171)
+ Else If (PriorDeadKey = "c3") ; brevis
+ BSSendUnicodeChar(0x016D)
+ Else If (PriorDeadKey = "t2") ; macron
+ BSSendUnicodeChar(0x016B)
+ Else If (PriorDeadKey = "a4") ; ogonek
+ BSSendUnicodeChar(0x0173)
+ Else If (PriorDeadKey = "a6") ; Ring
+ BSSendUnicodeChar(0x016F)
+ Else If (PriorDeadKey = "t1") ; tilde
+ BSSendUnicodeChar(0x0169)
+ Else If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x01D4)
+ Else
+ sendinput {blind}u
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x00DB)
+ Else If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x00DA)
+ Else If (PriorDeadKey = "a2") ; grave
+ BSSendUnicodeChar(0x00D9)
+ Else If (PriorDeadKey = "t3") ; Diaerese
+ Send, {bs}Ü
+ Else If (PriorDeadKey = "a6") ; Ring
+ BSSendUnicodeChar(0x016E)
+ Else If (PriorDeadKey = "c3") ; brevis
+ BSSendUnicodeChar(0x016C)
+ Else If (PriorDeadKey = "t4") ; doppelakut
+ BSSendUnicodeChar(0x0170)
+ Else If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x01D3)
+ Else If (PriorDeadKey = "t2") ; macron
+ BSSendUnicodeChar(0x016A)
+ Else If (PriorDeadKey = "a4") ; ogonek
+ BSSendUnicodeChar(0x0172)
+ Else If (PriorDeadKey = "t1") ; tilde
+ BSSendUnicodeChar(0x0168)
+ Else
+ sendinput {blind}U
+ }
+ else if Ebene = 3
+ send \
+ else if Ebene = 5
+ Send {blind}{Home}
+ else if Ebene = 6
+ Send {blind}+{Home}
+ PriorDeadKey := ""
+return
+
+*s::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x00EE)
+ Else If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x00ED)
+ Else If (PriorDeadKey = "a2") ; grave
+ BSSendUnicodeChar(0x00EC)
+ Else If (PriorDeadKey = "t3") ; Diaerese
+ Send, {bs}ï
+ Else If (PriorDeadKey = "t2") ; macron
+ BSSendUnicodeChar(0x012B)
+ Else If (PriorDeadKey = "c3") ; brevis
+ BSSendUnicodeChar(0x012D)
+ Else If (PriorDeadKey = "a4") ; ogonek
+ BSSendUnicodeChar(0x012F)
+ Else If (PriorDeadKey = "t1") ; tilde
+ BSSendUnicodeChar(0x0129)
+ Else If (PriorDeadKey = "a5") ; (ohne) punkt darüber
+ BSSendUnicodeChar(0x0131)
+ Else
+ sendinput {blind}i
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x00CE)
+ Else If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x00CD)
+ Else If (PriorDeadKey = "a2") ; grave
+ BSSendUnicodeChar(0x00CC)
+ Else If (PriorDeadKey = "t3") ; Diaerese
+ Send, {bs}Ï
+ Else If (PriorDeadKey = "t2") ; macron
+ BSSendUnicodeChar(0x012A)
+ Else If (PriorDeadKey = "c3") ; brevis
+ BSSendUnicodeChar(0x012C)
+ Else If (PriorDeadKey = "a4") ; ogonek
+ BSSendUnicodeChar(0x012E)
+ Else If (PriorDeadKey = "t1") ; tilde
+ BSSendUnicodeChar(0x0128)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x0130)
+ Else
+ sendinput {blind}I
+ }
+ else if Ebene = 3
+ send `/
+ else if Ebene = 4
+ SendUnicodeChar(0x03B9) ;iota
+ else if Ebene = 5
+ Sendinput {Blind}{Left}
+ else if Ebene = 6
+ Sendinput {Blind}+{Left}
+ PriorDeadKey := ""
+return
+
+*d::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x00E2)
+ Else If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x00E1)
+ Else If (PriorDeadKey = "a2") ; grave
+ BSSendUnicodeChar(0x00E0)
+ Else If (PriorDeadKey = "t3") ; Diaerese
+ send {bs}ä
+ Else If (PriorDeadKey = "a6") ; Ring
+ Send {bs}å
+ Else If (PriorDeadKey = "t1") ; tilde
+ BSSendUnicodeChar(0x00E3)
+ Else If (PriorDeadKey = "a4") ; ogonek
+ BSSendUnicodeChar(0x0105)
+ Else If (PriorDeadKey = "t2") ; macron
+ BSSendUnicodeChar(0x0101)
+ Else If (PriorDeadKey = "c3") ; brevis
+ BSSendUnicodeChar(0x0103)
+ Else
+ sendinput {blind}a
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x00C2)
+ Else If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x00C1)
+ Else If (PriorDeadKey = "a2") ; grave
+ BSSendUnicodeChar(0x00C0)
+ Else If (PriorDeadKey = "t3") ; Diaerese
+ send {bs}Ä
+ Else If (PriorDeadKey = "t1") ; tilde
+ BSSendUnicodeChar(0x00C3)
+ Else If (PriorDeadKey = "a6") ; Ring
+ Send {bs}Å
+ Else If (PriorDeadKey = "t2") ; macron
+ BSSendUnicodeChar(0x0100)
+ Else If (PriorDeadKey = "c3") ; brevis
+ BSSendUnicodeChar(0x0102)
+ Else If (PriorDeadKey = "a4") ; ogonek
+ BSSendUnicodeChar(0x0104)
+ Else
+ sendinput {blind}A
+ }
+ else if Ebene = 3
+ sendraw {
+ else if Ebene = 4
+ SendUnicodeChar(0x03B1) ;alpha
+ else if Ebene = 5
+ Sendinput {Blind}{Down}
+ else if Ebene = 6
+ Sendinput {Blind}+{Down}
+ PriorDeadKey := ""
+return
+
+*f::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x00EA)
+ Else If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x00E9)
+ Else If (PriorDeadKey = "a2") ; grave
+ BSSendUnicodeChar(0x00E8)
+ Else If (PriorDeadKey = "t3") ; Diaerese
+ Send, {bs}ë
+ Else If (PriorDeadKey = "a4") ; ogonek
+ BSSendUnicodeChar(0x0119)
+ Else If (PriorDeadKey = "t2") ; macron
+ BSSendUnicodeChar(0x0113)
+ Else If (PriorDeadKey = "c3") ; brevis
+ BSSendUnicodeChar(0x0115)
+ Else If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x011B)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x0117)
+ Else
+ sendinput {blind}e
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x00CA)
+ Else If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x00C9)
+ Else If (PriorDeadKey = "a2") ; grave
+ BSSendUnicodeChar(0x00C8)
+ Else If (PriorDeadKey = "t3") ; Diaerese
+ Send, {bs}Ë
+ Else If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x011A)
+ Else If (PriorDeadKey = "t2") ; macron
+ BSSendUnicodeChar(0x0112)
+ Else If (PriorDeadKey = "c3") ; brevis
+ BSSendUnicodeChar(0x0114)
+ Else If (PriorDeadKey = "a4") ; ogonek
+ BSSendUnicodeChar(0x0118)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x0116)
+ Else
+ sendinput {blind}E
+ }
+ else if Ebene = 3
+ sendraw }
+ else if Ebene = 4
+ SendUnicodeChar(0x03B5) ;epsilon
+ else if Ebene = 5
+ Sendinput {Blind}{Right}
+ else if Ebene = 6
+ Sendinput {Blind}+{Right}
+ PriorDeadKey := ""
+return
+
+*g::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x00F4)
+ Else If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x00F3)
+ Else If (PriorDeadKey = "a2") ; grave
+ BSSendUnicodeChar(0x00F2)
+ Else If (PriorDeadKey = "t3") ; Diaerese
+ Send, {bs}ö
+ Else If (PriorDeadKey = "t1") ; tilde
+ BSSendUnicodeChar(0x00F5)
+ Else If (PriorDeadKey = "t4") ; doppelakut
+ BSSendUnicodeChar(0x0151)
+ Else If (PriorDeadKey = "t5") ; Schrägstrich
+ BSSendUnicodeChar(0x00F8)
+ Else If (PriorDeadKey = "t2") ; macron
+ BSSendUnicodeChar(0x014D)
+ Else If (PriorDeadKey = "c3") ; brevis
+ BSSendUnicodeChar(0x014F)
+ Else
+ sendinput {blind}o
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x00D4)
+ Else If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x00D3)
+ Else If (PriorDeadKey = "a2") ; grave
+ BSSendUnicodeChar(0x00D2)
+ Else If (PriorDeadKey = "t5") ; Schrägstrich
+ BSSendUnicodeChar(0x00D8)
+ Else If (PriorDeadKey = "t1") ; tilde
+ BSSendUnicodeChar(0x00D5)
+ Else If (PriorDeadKey = "t4") ; doppelakut
+ BSSendUnicodeChar(0x0150)
+ Else If (PriorDeadKey = "t3") ; Diaerese
+ send {bs}Ö
+ Else If (PriorDeadKey = "t2") ; macron
+ BSSendUnicodeChar(0x014C)
+ Else If (PriorDeadKey = "c3") ; brevis
+ BSSendUnicodeChar(0x014E)
+ Else
+ sendinput {blind}O
+ }
+ else if Ebene = 3
+ send *
+ else if Ebene = 4
+ SendUnicodeChar(0x03C9) ;omega
+ else if Ebene = 5
+ Send {blind}{End}
+ else if Ebene = 6
+ Send {blind}+{End}
+ PriorDeadKey := ""
+return
+
+*h::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x015D)
+ Else If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x015B)
+ Else If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x0161)
+ Else If (PriorDeadKey = "a3") ; cedilla
+ BSSendUnicodeChar(0x015F)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x1E61)
+ Else If (PriorDeadKey = "c6") ; punkt darunter
+ BSSendUnicodeChar(0x1E63)
+ Else
+ sendinput {blind}s
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x015C)
+ Else If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x0160)
+ Else If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x015A)
+ Else If (PriorDeadKey = "a3") ; cedilla
+ BSSendUnicodeChar(0x015E)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x1E60)
+ Else If (PriorDeadKey = "c6") ; punkt darunter
+ BSSendUnicodeChar(0x1E62)
+ Else
+ sendinput {blind}S
+ }
+ else if Ebene = 3
+ send ?
+ else if Ebene = 4
+ SendUnicodeChar(0x03C3) ;sigma
+ else if Ebene = 5
+ Send ¿
+ else if Ebene = 6
+ SendUnicodeChar(0x03A3) ; Sigma
+ PriorDeadKey := ""
+return
+
+*j::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x0144)
+ Else If (PriorDeadKey = "t1") ; tilde
+ BSSendUnicodeChar(0x00F1)
+ Else If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x0148)
+ Else If (PriorDeadKey = "a3") ; cedilla
+ BSSendUnicodeChar(0x0146)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x1E45)
+ Else
+ sendinput {blind}n
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x0147)
+ Else If (PriorDeadKey = "t1") ; tilde
+ BSSendUnicodeChar(0x00D1)
+ Else If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x0143)
+ Else If (PriorDeadKey = "a3") ; cedilla
+ BSSendUnicodeChar(0x0145)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x1E44)
+ Else
+ sendinput {blind}N
+ }
+ else if Ebene = 3
+ send (
+ else if Ebene = 4
+ SendUnicodeChar(0x03BD) ;nu
+ else if Ebene = 5
+ Send 4
+ PriorDeadKey := ""
+return
+
+*k::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x0155)
+ Else If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x0159)
+ Else If (PriorDeadKey = "a3") ; cedilla
+ BSSendUnicodeChar(0x0157)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x0E59)
+ Else If (PriorDeadKey = "c6") ; punkt darunter
+ BSSendUnicodeChar(0x1E5B)
+ Else
+ sendinput {blind}r
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x0158)
+ Else If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x0154)
+ Else If (PriorDeadKey = "a3") ; cedilla
+ BSSendUnicodeChar(0x0156)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x1E58)
+ Else If (PriorDeadKey = "c6") ; punkt darunter
+ BSSendUnicodeChar(0x1E5A)
+ Else
+ sendinput {blind}R
+ }
+ else if Ebene = 3
+ send )
+ else if Ebene = 4
+ SendUnicodeChar(0x03C1) ;rho
+ else if Ebene = 5
+ Send 5
+ PriorDeadKey := ""
+return
+
+*l::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x0165)
+ Else If (PriorDeadKey = "a3") ; cedilla
+ BSSendUnicodeChar(0x0163)
+ Else If (PriorDeadKey = "c4") ; Querstrich
+ BSSendUnicodeChar(0x0167)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x1E6B)
+ Else If (PriorDeadKey = "c6") ; punkt darunter
+ BSSendUnicodeChar(0x1E6D)
+ Else
+ sendinput {blind}t
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x0164)
+ Else If (PriorDeadKey = "a3") ; cedilla
+ BSSendUnicodeChar(0x0162)
+ Else If (PriorDeadKey = "c4") ; Querstrich
+ BSSendUnicodeChar(0x0166)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x1E6A)
+ Else If (PriorDeadKey = "c6") ; punkt darunter
+ BSSendUnicodeChar(0x1E6C)
+ Else
+ sendinput {blind}T
+ }
+ else if Ebene = 3
+ send {blind}- ; Bind
+ else if Ebene = 4
+ SendUnicodeChar(0x03C4) ;tau
+ else if Ebene = 5
+ Send 6
+ PriorDeadKey := ""
+return
+
+*ö::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c4") ; Querstrich
+ BSSendUnicodeChar(0x0111)
+ Else If (PriorDeadKey = "t5") ; Schrägstrich
+ BSSendUnicodeChar(0x00F0)
+ Else If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x010F)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x1E0B)
+ Else If (PriorDeadKey = "c6") ; punkt darunter
+ BSSendUnicodeChar(0x1E0D)
+ Else
+ sendinput {blind}d
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "c4") ; Querstrich
+ BSSendUnicodeChar(0x0110)
+ Else If (PriorDeadKey = "t5") ; Schrägstrich
+ BSSendUnicodeChar(0x00D0)
+ Else If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x010E)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x1E0A)
+ Else If (PriorDeadKey = "c6") ; punkt darunter
+ BSSendUnicodeChar(0x1E0D)
+ Else sendinput {blind}D
+ }
+ else if Ebene = 3
+ send :
+ else if Ebene = 4
+ SendUnicodeChar(0x03B4) ;delta
+ else if Ebene = 5
+ Send `,
+ else if Ebene = 6
+ SendUnicodeChar(0x0394) ; Delta
+ PriorDeadKey := ""
+return
+
+*ä::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "t3") ; Diaerese
+ Send {bs}ÿ
+ Else If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x00FD)
+ Else If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x0177)
+ Else
+ sendinput {blind}y
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x00DD)
+ Else If (PriorDeadKey = "t3") ; Diaerese
+ Send {bs}Ÿ
+ Else If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x0176)
+ Else
+ sendinput {blind}Y
+ }
+ else if Ebene = 4
+ SendUnicodeChar(0x03C5) ;upsilon
+ else if Ebene = 5
+ Send þ ; thorn
+ else if Ebene = 6
+ Send Þ ; Thorn
+ PriorDeadKey := ""
+return
+
+;SC02B (#) wird zu Mod3
+
+
+/*
+ ------------------------------------------------------
+ Reihe 4
+ ------------------------------------------------------
+*/
+
+;SC056 (<) wird zu Mod5
+
+*y::
+ EbeneAktualisieren()
+ if Ebene = 1
+ sendinput {blind}ü
+ else if Ebene = 2
+ sendinput {blind}Ü
+ else if Ebene = 3
+ send {blind}{#}
+ else if Ebene = 5
+ Send {Esc}
+ PriorDeadKey := ""
+return
+
+*x::
+ EbeneAktualisieren()
+ if Ebene = 1
+ sendinput {blind}ö
+ else if Ebene = 2
+ sendinput {blind}Ö
+ else if Ebene = 3
+ send $
+ else if Ebene = 5
+ Send {Del}
+ else if Ebene = 6
+ Send +{Del}
+ PriorDeadKey := ""
+return
+
+*c::
+ EbeneAktualisieren()
+ if Ebene = 1
+ sendinput {blind}ä
+ else if Ebene = 2
+ sendinput {blind}Ä
+ else if Ebene = 3
+ send |
+ else if Ebene = 4
+ SendUnicodeChar(0x03B7) ;eta
+ else if Ebene = 5
+ Send {PgDn} ; Next
+ else if Ebene = 6
+ Send +{PgDn}
+ PriorDeadKey := ""
+return
+
+*v::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x1E57)
+ Else
+ sendinput {blind}p
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x1E56)
+ Else
+ sendinput {blind}P
+ }
+ else if Ebene = 3
+ {
+ If (PriorDeadKey = "t1") ; tilde
+ BSSendUnicodeChar(0x2248)
+ Else
+ sendraw ~
+ }
+ else if Ebene = 4
+ SendUnicodeChar(0x03C0) ;pi
+ else if Ebene = 5
+ Send {Enter}
+ else if Ebene = 6
+ SendUnicodeChar(0x03A0) ; Pi
+ PriorDeadKey := ""
+return
+
+*b::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x017E)
+ Else If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x017A)
+ Else If (PriorDeadKey = "a5") ; punkt drüber
+ BSSendUnicodeChar(0x017C)
+ Else If (PriorDeadKey = "c6") ; punkt drunter
+ BSSendUnicodeChar(0x1E93)
+ Else
+ sendinput {blind}z
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x017D)
+ Else If (PriorDeadKey = "a1") ; akut
+ BSSendUnicodeChar(0x0179)
+ Else If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x017B)
+ Else If (PriorDeadKey = "c6") ; punkt drunter
+ BSSendUnicodeChar(0x1E92)
+ Else
+ sendinput {blind}Z
+ }
+ else if Ebene = 3
+ send ``{space} ; untot
+ else if Ebene = 4
+ SendUnicodeChar(0x03B6) ;zeta
+ else if Ebene = 6
+ SendUnicodeChar(0x03A9) ; Omega
+ PriorDeadKey := ""
+return
+
+*n::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x1E03)
+ Else
+ sendinput {blind}b
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x1E02)
+ Else
+ sendinput {blind}B
+ }
+ else if Ebene = 3
+ send {blind}{+}
+ else if Ebene = 4
+ SendUnicodeChar(0x03B2) ;beta
+ else if Ebene = 6
+ SendUnicodeChar(0x221E) ;infty
+ PriorDeadKey := ""
+return
+
+*m::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x1E41)
+ Else If (PriorDeadKey = "c6") ; punkt darunter
+ BSSendUnicodeChar(0x1E43)
+ Else
+ sendinput {blind}m
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "a5") ; punkt darüber
+ BSSendUnicodeChar(0x1E40)
+ Else If (PriorDeadKey = "c6") ; punkt darunter
+ BSSendUnicodeChar(0x1E42)
+ Else
+ sendinput {blind}M
+ }
+ else if Ebene = 3
+ send `%
+ else if Ebene = 4
+ SendUnicodeChar(0x03BC) ;micro, mu wäre 0x00B5
+ else if Ebene = 5
+ Send 1
+ else if Ebene = 6
+ SendUnicodeChar(0x222B) ; Int
+ PriorDeadKey := ""
+return
+
+*,::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {blind},
+ else if Ebene = 3
+ send '
+ else if Ebene = 4
+ SendUnicodeChar(0x03F1) ; varrho
+ else if Ebene = 5
+ Send 2
+ else if Ebene = 6
+ SendUnicodeChar(0x221A) ; sqrt
+ PriorDeadKey := ""
+return
+
+*.::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {blind}.
+ else if Ebene = 2
+ SendUnicodeChar(0x2026) ; ellipse
+ else if Ebene = 3
+ send "
+ else if Ebene = 4
+ SendUnicodeChar(0x03B8) ;theta
+ else if Ebene = 5
+ Send 3
+ else if Ebene = 6
+ SendUnicodeChar(0x0398) ; Theta
+ PriorDeadKey := ""
+return
+
+
+*-::
+ EbeneAktualisieren()
+ if Ebene = 1
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x0135)
+ Else If (PriorDeadKey = "c2") ; caron
+ BSSendUnicodeChar(0x01F0)
+ Else
+ sendinput {blind}j
+ }
+ else if Ebene = 2
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x0134)
+ Else
+ sendinput {blind}J
+ }
+ else if Ebene = 3
+ send `;
+ else if Ebene = 4
+ SendUnicodeChar(0x03D1) ; vartheta
+ else if Ebene = 5
+ Send .
+ else if Ebene = 6
+ SendUnicodeChar(0x2207) ; Nabla
+ PriorDeadKey := ""
+return
+
+/*
+ ------------------------------------------------------
+ Numpad
+ ------------------------------------------------------
+
+ folgende Tasten verhalten sich bei ein- und ausgeschaltetem
+ NumLock gleich:
+*/
+
+*NumpadDiv::
+ EbeneAktualisieren()
+ if ( (Ebene = 1) or (Ebene = 2) )
+ send {NumpadDiv}
+ else if Ebene = 3
+ send ÷
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x2215) ; slash
+ PriorDeadKey := ""
+return
+
+*NumpadMult::
+ EbeneAktualisieren()
+ if ( (Ebene = 1) or (Ebene = 2) )
+ send {NumpadMult}
+ else if Ebene = 3
+ send ×
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x22C5) ; cdot
+ PriorDeadKey := ""
+return
+
+*NumpadSub::
+ EbeneAktualisieren()
+ if ( (Ebene = 1) or (Ebene = 2) )
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x207B)
+ Else
+ send {blind}{NumpadSub}
+ }
+ else if Ebene = 3
+ SendUnicodeChar(0x2212) ; echtes minus
+ PriorDeadKey := ""
+return
+
+*NumpadAdd::
+ EbeneAktualisieren()
+ if ( (Ebene = 1) or (Ebene = 2) )
+ {
+ If (PriorDeadKey = "c1") ; circumflex
+ BSSendUnicodeChar(0x207A)
+ Else
+ send {blind}{NumpadAdd}
+ }
+ else if Ebene = 3
+ send ±
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x2213) ; -+
+ PriorDeadKey := ""
+return
+
+*NumpadEnter::
+ EbeneAktualisieren()
+ if ( (Ebene = 1) or (Ebene = 2) )
+ send {NumpadEnter}
+ else if Ebene = 3
+ SendUnicodeChar(0x2260) ; neq
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x2248) ; approx
+ PriorDeadKey := ""
+return
+
+/*
+ folgende Tasten verhalten sich bei ein- und ausgeschaltetem NumLock
+ unterschiedlich:
+
+ bei NumLock ein
+*/
+
+*Numpad7::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {blind}{Numpad7}
+ else if Ebene = 2
+ send {NumpadHome}
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x226A) ; ll
+ PriorDeadKey := ""
+return
+
+*Numpad8::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {blind}{Numpad8}
+ else if Ebene = 2
+ send {NumpadUp}
+ else if Ebene = 3
+ SendUnicodeChar(0x2191) ; uparrow
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x2229) ; intersection
+ PriorDeadKey := ""
+return
+
+*Numpad9::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {blind}{Numpad9}
+ else if Ebene = 2
+ send {NumpadPgUp}
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x226B) ; gg
+ PriorDeadKey := ""
+return
+
+*Numpad4::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {blind}{Numpad4}
+ else if Ebene = 2
+ send {NumpadLeft}
+ else if Ebene = 3
+ SendUnicodeChar(0x2190) ; leftarrow
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x2282) ; subset of
+ PriorDeadKey := ""
+return
+
+*Numpad5::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {blind}{Numpad5}
+ else if Ebene = 2
+ send {NumpadClear}
+ else if Ebene = 3
+ send †
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x220A) ; small element of
+ PriorDeadKey := ""
+return
+
+*Numpad6::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {blind}{Numpad6}
+ else if Ebene = 2
+ send {NumpadRight}
+ else if Ebene = 3
+ SendUnicodeChar(0x2192) ; rightarrow
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x2283) ; superset of
+ PriorDeadKey := ""
+return
+
+*Numpad1::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {blind}{Numpad1}
+ else if Ebene = 2
+ send {NumpadEnd}
+ else if Ebene = 3
+ SendUnicodeChar(0x21CB) ; LEFTWARDS HARPOON OVER RIGHTWARDS HARPOON
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x2264) ; leq
+ PriorDeadKey := ""
+return
+
+*Numpad2::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {blind}{Numpad2}
+ else if Ebene = 2
+ send {NumpadDown}
+ else if Ebene = 3
+ SendUnicodeChar(0x2193) ; downarrow
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x222A) ; vereinigt
+ PriorDeadKey := ""
+return
+
+*Numpad3::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {blind}{Numpad3}
+ else if Ebene = 2
+ send {NumpadPgDn}
+ else if Ebene = 3
+ SendUnicodeChar(0x21CC) ; RIGHTWARDS HARPOON OVER LEFTWARDS HARPOON
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x2265) ; geq
+ PriorDeadKey := ""
+return
+
+*Numpad0::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {blind}{Numpad0}
+ else if Ebene = 2
+ send {NumpadIns}
+ else if Ebene = 3
+ send `%
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ send ‰
+ PriorDeadKey := ""
+return
+
+*NumpadDot::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {NumpadDot}
+ else if Ebene = 2
+ send {NumpadDel}
+ else if Ebene = 3
+ send .
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ send `,
+ PriorDeadKey := ""
+return
+
+/*
+ bei NumLock aus
+*/
+
+*NumpadHome::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {NumpadHome}
+ else if Ebene = 2
+ send {Numpad7}
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x226A) ; ll
+ PriorDeadKey := ""
+return
+
+*NumpadUp::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {NumpadUp}
+ else if Ebene = 2
+ send {Numpad8}
+ else if Ebene = 3
+ SendUnicodeChar(0x2191) ; uparrow
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x2229) ; intersection
+ PriorDeadKey := ""
+return
+
+*NumpadPgUp::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {NumpadPgUp}
+ else if Ebene = 2
+ send {Numpad9}
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x226B) ; gg
+ PriorDeadKey := ""
+return
+
+*NumpadLeft::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {NumpadLeft}
+ else if Ebene = 2
+ send {Numpad4}
+ else if Ebene = 3
+ SendUnicodeChar(0x2190) ; leftarrow
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x2282) ; subset of
+ PriorDeadKey := ""
+return
+
+*NumpadClear::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {NumpadClear}
+ else if Ebene = 2
+ send {Numpad5}
+ else if Ebene = 3
+ send †
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x220A) ; small element of
+ PriorDeadKey := ""
+return
+
+*NumpadRight::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {NumpadRight}
+ else if Ebene = 2
+ send {Numpad6}
+ else if Ebene = 3
+ SendUnicodeChar(0x2192) ; rightarrow
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x2283) ; superset of
+ PriorDeadKey := ""
+return
+
+*NumpadEnd::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {NumpadEnd}
+ else if Ebene = 2
+ send {Numpad1}
+ else if Ebene = 3
+ SendUnicodeChar(0x21CB) ; LEFTWARDS HARPOON OVER RIGHTWARDS HARPOON
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x2264) ; leq
+ PriorDeadKey := ""
+return
+
+*NumpadDown::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {NumpadDown}
+ else if Ebene = 2
+ send {Numpad2}
+ else if Ebene = 3
+ SendUnicodeChar(0x2193) ; downarrow
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x222A) ; vereinigt
+ PriorDeadKey := ""
+return
+
+*NumpadPgDn::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {NumpadPgDn}
+ else if Ebene = 2
+ send {Numpad3}
+ else if Ebene = 3
+ SendUnicodeChar(0x21CC) ; RIGHTWARDS HARPOON OVER LEFTWARDS HARPOON
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ SendUnicodeChar(0x2265) ; geq
+ PriorDeadKey := ""
+return
+
+*NumpadIns::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {NumpadIns}
+ else if Ebene = 2
+ send {Numpad0}
+ else if Ebene = 3
+ send `%
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ send ‰
+ PriorDeadKey := ""
+return
+
+*NumpadDel::
+ EbeneAktualisieren()
+ if Ebene = 1
+ send {NumpadDel}
+ else if Ebene = 2
+ send {NumpadDot}
+ else if Ebene = 3
+ send .
+ else if ( (Ebene = 4) or (Ebene = 5) )
+ send `,
+ PriorDeadKey := ""
+return
+
+
+
+/*
+ ------------------------------------------------------
+ Sondertasten
+ ------------------------------------------------------
+*/
+
+*Space::
+ EbeneAktualisieren()
+ if Ebene = 4
+ SendUnicodeChar(0x00A0) ; geschütztes Leerzeichen
+ else if Ebene = 5
+ Send 0
+ else if Ebene = 6
+ SendUnicodeChar(0x202F) ; schmales Leerzeichen
+ else
+ Send {blind}{Space}
+ PriorDeadKey := ""
+return
+
+/*
+ Folgende Tasten sind nur aufgeführt, um PriorDeadKey zu leeren.
+ Irgendwie sieht das noch nicht schön aus. Vielleicht lässt sich dieses
+ Problem irgendwie eleganter lösen...
+
+ Nachtrag:
+ Weil es mit Alt+Tab Probleme gab, wird hier jetzt erstmal rumgeflickschustert,
+ bis eine allgemeinere Lösung gefunden wurde.
+*/
+
+*Enter::
+ sendinput {Blind}{Enter}
+ PriorDeadKey := ""
+return
+
+*Backspace::
+ sendinput {Blind}{Backspace}
+ PriorDeadKey := ""
+return
+
+
+
+/*
+Tab wurde rausgenommen, weil es Probleme mit AltTab und ShiftAltTab gab.
+Allerdings kommt es jetzt zu komischen Ergebnissen, wenn man Tab nach
+einem DeadKey drückt...
+
+*Tab::
+ send {Blind}{Tab}
+ PriorDeadKey := ""
+return
+
+*/
+
+*Home::
+ sendinput {Blind}{Home}
+ PriorDeadKey := ""
+return
+
+*End::
+ sendinput {Blind}{End}
+ PriorDeadKey := ""
+return
+
+*PgUp::
+ sendinput {Blind}{PgUp}
+ PriorDeadKey := ""
+return
+
+*PgDn::
+ sendinput {Blind}{PgDn}
+ PriorDeadKey := ""
+return
+
+*Up::
+ sendinput {Blind}{Up}
+ PriorDeadKey := ""
+return
+
+*Down::
+ sendinput {Blind}{Down}
+ PriorDeadKey := ""
+return
+
+*Left::
+ sendinput {Blind}{Left}
+ PriorDeadKey := ""
+return
+
+*Right::
+ sendinput {Blind}{Right}
+ PriorDeadKey := ""
+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("SC138","P") )
+ {
+ Ebene += 4
+ }
+
+ return
+}
+
+
+/*************************
+ Alte Methoden
+*************************/
+
+/*
+Unicode(code)
+{
+ saved_clipboard := ClipboardAll
+ Transform, Clipboard, Unicode, %code%
+ sendplay ^v
+ Clipboard := saved_clipboard
+}
+
+BSUnicode(code)
+{
+ saved_clipboard := ClipboardAll
+ Transform, Clipboard, Unicode, %code%
+ sendplay {bs}^v
+ Clipboard := saved_clipboard
+}
+*/
+
+SendUnicodeChar(charCode)
+{
+ VarSetCapacity(ki, 28 * 2, 0)
+
+ EncodeInteger(&ki + 0, 1)
+ EncodeInteger(&ki + 6, charCode)
+ EncodeInteger(&ki + 8, 4)
+ EncodeInteger(&ki +28, 1)
+ EncodeInteger(&ki +34, charCode)
+ EncodeInteger(&ki +36, 4|2)
+
+ DllCall("SendInput", "UInt", 2, "UInt", &ki, "Int", 28)
+}
+
+
+BSSendUnicodeChar(charCode)
+{
+ send {bs}
+ VarSetCapacity(ki, 28 * 2, 0)
+
+ EncodeInteger(&ki + 0, 1)
+ EncodeInteger(&ki + 6, charCode)
+ EncodeInteger(&ki + 8, 4)
+ EncodeInteger(&ki +28, 1)
+ EncodeInteger(&ki +34, charCode)
+ EncodeInteger(&ki +36, 4|2)
+
+ DllCall("SendInput", "UInt", 2, "UInt", &ki, "Int", 28)
+}
+
+
+EncodeInteger(ref, val)
+{
+ DllCall("ntdll\RtlFillMemoryUlong", "Uint", ref, "Uint", 4, "Uint", val)
+}
+
+
+/*
+ ------------------------------------------------------
+ Shift+Pause "pausiert" das Script.
+ ------------------------------------------------------
+*/
+
++pause::suspend
|