diff options
Diffstat (limited to 'windows/XP')
| -rw-r--r-- | windows/XP/autohotkey/neo20-all-in-one.ahk | 2135 | ||||
| -rw-r--r-- | windows/XP/autohotkey/neo20-all-in-one.exe | bin | 220493 -> 0 bytes |
2 files changed, 0 insertions, 2135 deletions
diff --git a/windows/XP/autohotkey/neo20-all-in-one.ahk b/windows/XP/autohotkey/neo20-all-in-one.ahk deleted file mode 100644 index 783c35b..0000000 --- a/windows/XP/autohotkey/neo20-all-in-one.ahk +++ /dev/null @@ -1,2135 +0,0 @@ -/* - Titel: NEO 2.0 beta Autohotkey-Treiber - Version: 0.09 beta - Datum: 10.01.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 Lsung fr das leeren von PriorDeadKey finden, damit die Sondertasten - nicht mehr abgefangen werden mssen. - - 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. - (Lsst sich das elegant in eine Funktion auslagern?) - |------------------| - | - Compose-Taste | - |------------------| - Ideen: - DeadKeys tot machen - - 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: Brche - Hinzugefgt: Geschlechts-Piktogramme, Listings-Zeichen -*/ - -; aus Noras script kopiert: -#usehook on -#singleinstance force -#LTrim - ; Quelltext kann eingerckt werden, - ; msgbox ist trotzdem linksbndig - -SendMode Input -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 -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. Abhngig von der Variablen "Ebene" Zeichen ausgeben und die Variable "PriorDeadKey" setzen - - Ablauf bei "lebenden" (sagt man das?) Tasten: - 1. Ebene Aktualisieren - 2. Abhngig von den Variablen "Ebene" und "PriorDeadKey" Zeichen ausgeben - 3. "PriorDeadKey" mit leerem String berschreiben - - ------------------------------------------------------ - Reihe 1 - ------------------------------------------------------ -*/ - -*^:: - EbeneAktualisieren() - if Ebene = 1 - { - Unicode("ˆ") ; circumflex, tot - PriorDeadKey := "c1" - } - else if Ebene = 2 - { - Unicode("ˇ") ; caron, tot - PriorDeadKey := "c2" - } - else if Ebene = 3 - { - Unicode("˘") ; brevis - PriorDeadKey := "c3" - } - else if Ebene = 4 - { - send - ; querstrich, tot - PriorDeadKey := "c4" - } - else if Ebene = 5 - { - Unicode("·") ; Mittenpunkt, tot - PriorDeadKey := "c5" - } - else if Ebene = 6 - { - Send . ; punkt darunter - PriorDeadKey := "c6" - } -return - -*1:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "c1") ; circumflex 1 - BSUnicode("¹") - Else - send {blind}1 - } - else if Ebene = 2 - send - else if Ebene = 4 - Unicode("♀") ; Piktogramm weiblich - else if Ebene = 5 - Unicode("•") ; bullet - PriorDeadKey := "" -return - -*2:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("²") - Else - send {blind}2 - } - else if Ebene = 2 - Unicode("№") ; numero - else if Ebene = 4 - Unicode("⚥") ; Piktogramm Zwitter - else if Ebene = 5 - Unicode("‣") ; aufzaehlungspfeil - PriorDeadKey := "" -return - -*3:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("³") - Else - send {blind}3 - } - else if Ebene = 2 - send - else if Ebene = 4 - Unicode("♂") ; Piktogramm mnnlich - PriorDeadKey := "" -return - -*4:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("⁴") - 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 - BSUnicode("⁵") - Else - send {blind}5 - } - else if Ebene = 2 - send - else if Ebene = 3 - send - else if Ebene = 6 - Unicode("⇒") ; Implikation - PriorDeadKey := "" -return - -*6:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("⁶") - Else - send {blind}6 - } - else if Ebene = 2 - send $ - else if Ebene = 3 - send - else if Ebene = 4 - send - else if Ebene = 6 - Unicode("⇔") ; quivalenz - PriorDeadKey := "" -return - -*7:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("⁷") - 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 - BSUnicode("⁸") - Else - send {blind}8 - } - else if Ebene = 2 - send - else if Ebene = 3 - send - else if Ebene = 5 - Send / - else if Ebene = 6 - Unicode("∃") ; Existenzquantor - PriorDeadKey := "" -return - -*9:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("⁹") - Else - send {blind}9 - } - else if Ebene = 2 - send - else if Ebene = 3 - send - else if Ebene = 5 - Send * - else if Ebene = 6 - Unicode("∀") ; Allquantor - PriorDeadKey := "" -return - -*0:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("⁰") - Else - send {blind}0 - } - else if Ebene = 2 - send - else if Ebene = 3 - send - else if Ebene = 5 - Send - - else if Ebene = 6 - Unicode("∨") ; logisch oder - PriorDeadKey := "" -return - -*:: - EbeneAktualisieren() - if Ebene = 1 - send {blind}- ; Bind - else if Ebene = 2 - Unicode("–") ; Ged - else if Ebene = 3 - Unicode("—") - else if Ebene = 4 - Unicode("╌") - else if Ebene = 5 - Unicode("‑") - else if Ebene = 6 - Unicode("∧") ; 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 - { - Unicode("˛") ; ogonek - PriorDeadKey := "a4" - } - else if Ebene = 5 - { - Unicode("˙") ; punkt oben drber - PriorDeadKey := "a5" - } - else if Ebene = 6 - { - Unicode("˚") ; 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 - Unicode("ξ") ;xi - else if Ebene = 5 - send @ ; Redundanz - else if Ebene = 6 - Unicode("Ξ") ; Xi - PriorDeadKey := "" -return - - -*w:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "c6") ; punkt darunter - BSUnicode("ṿ") - Else - sendinput {blind}v - } - else if Ebene = 2 - { - If (PriorDeadKey = "c6") ; punkt darunter - BSUnicode("Ṿ") - Else - sendinput {blind}V - } - else if Ebene = 3 - send _ - else if Ebene = 5 - Send {Backspace} - else if Ebene = 6 - Unicode("Λ") ; Lambda - PriorDeadKey := "" -return - - - -*e:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "t5") ; Schrgstrich - BSUnicode("ł") - Else If (PriorDeadKey = "a1") ; akut - BSUnicode("ĺ") - Else If (PriorDeadKey = "c2") ; caron - BSUnicode("ľ") - Else If (PriorDeadKey = "a3") ; cedilla - BSUnicode("ļ") - Else If (PriorDeadKey = "c5") ; Mittenpunkt - BSUnicode("ŀ") - Else If (PriorDeadKey = "c6") ; punkt darunter - BSUnicode("ḷ") - Else - sendinput {blind}l - } - else if Ebene = 2 - { - If (PriorDeadKey = "a1") ; akut - BSUnicode("Ĺ") - Else If (PriorDeadKey = "c2") ; caron - BSUnicode("Ľ") - Else If (PriorDeadKey = "a3") ; cedilla - BSUnicode("Ļ") - Else If (PriorDeadKey = "t5") ; Schrgstrich - BSUnicode("Ł") - Else If (PriorDeadKey = "c5") ; Mittenpunkt - BSUnicode("Ŀ") - Else If (PriorDeadKey = "c6") ; punkt darunter - BSUnicode("Ḷ") - Else - sendinput {blind}L - } - else if Ebene = 3 - send [ - else if Ebene = 4 - Unicode("λ") ;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 - BSUnicode("ĉ") - Else If (PriorDeadKey = "c2") ; caron - BSUnicode("č") - Else If (PriorDeadKey = "a1") ; akut - BSUnicode("ć") - Else If (PriorDeadKey = "a3") ; cedilla - BSUnicode("ç") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("ċ") - Else - sendinput {blind}c - } - else if Ebene = 2 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("Ĉ") - Else If (PriorDeadKey = "c2") ; caron - BSUnicode("Č") - Else If (PriorDeadKey = "a1") ; akut - BSUnicode("Ć") - Else If (PriorDeadKey = "a3") ; cedilla - BSUnicode("Ç") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("Ċ") - Else - sendinput {blind}C - } - else if Ebene = 3 - send ] - else if Ebene = 4 - Unicode("χ") ;chi - else if Ebene = 5 - Send {Tab} - else if Ebene = 6 - Send +{Tab} - PriorDeadKey := "" -return - -*t:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("ŵ") - Else - sendinput {blind}w - } - else if Ebene = 2 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("ŵ") - 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 - BSUnicode("ķ") - Else If (PriorDeadKey = "c6") ; punkt darunter - BSUnicode("ḳ") - Else - sendinput {blind}k - } - else if Ebene = 2 - { - If (PriorDeadKey = "a3") ; cedilla - BSUnicode("Ķ") - Else If (PriorDeadKey = "c6") ; punkt darunter - BSUnicode("Ḳ") - Else - sendinput {blind}K - } - else if Ebene = 3 - sendraw ! - else if Ebene = 4 - Unicode("κ") ;kappa - else if Ebene = 5 - Send - PriorDeadKey := "" -return - -*u:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("ĥ") - Else If (PriorDeadKey = "c4") ; Querstrich - BSUnicode("ħ") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("ḣ") - Else If (PriorDeadKey = "c6") ; punkt darunter - BSUnicode("ḥ") - Else sendinput {blind}h - } - else if Ebene = 2 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("Ĥ") - Else If (PriorDeadKey = "c4") ; Querstrich - BSUnicode("Ħ") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("Ḣ") - Else If (PriorDeadKey = "c6") ; punkt darunter - BSUnicode("Ḥ") - Else sendinput {blind}H - } - else if Ebene = 3 - { - If (PriorDeadKey = "c4") ; Querstrich - BSUnicode("≤") - Else - send {blind}< - } - else if Ebene = 4 - Unicode("ψ") ;psi - else if Ebene = 5 - Send 7 - else if Ebene = 6 - Unicode("Ψ") ; Psi - PriorDeadKey := "" -return - -*i:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("ĝ") - Else If (PriorDeadKey = "c3") ; brevis - BSUnicode("ğ") - Else If (PriorDeadKey = "a3") ; cedilla - BSUnicode("ģ") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("ġ") - Else sendinput {blind}g - } - else if Ebene = 2 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("Ĝ") - Else If (PriorDeadKey = "c3") ; brevis - BSUnicode("Ğ") - Else If (PriorDeadKey = "a3") ; cedilla - BSUnicode("Ģ") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("Ġ") - Else sendinput {blind}G - } - else if Ebene = 3 - { - If (PriorDeadKey = "c4") ; Querstrich - BSUnicode("≥") - Else - send > - } - else if Ebene = 4 - Unicode("γ") ;gamma - else if Ebene = 5 - Send 8 - else if Ebene = 6 - Unicode("Γ") ; Gamma - PriorDeadKey := "" -return - -*o:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "t5") ; durchgestrichen - BSUnicode("ƒ") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("ḟ") - Else sendinput {blind}f - } - else if Ebene = 2 - { - If (PriorDeadKey = "t5") ; durchgestrichen - BSUnicode("₣") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("Ḟ") - Else sendinput {blind}F - } - else if Ebene = 3 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("≙") - Else If (PriorDeadKey = "t1") ; tilde - BSUnicode("≅") - Else If (PriorDeadKey = "t5") ; Schrgstrich - BSUnicode("≠") - Else If (PriorDeadKey = "c4") ; Querstrich - BSUnicode("≡") - Else If (PriorDeadKey = "c2") ; caron - BSUnicode("≚") - Else If (PriorDeadKey = "a6") ; ring drber - BSUnicode("≗") - - - -/* - was bedeutet dieser PriorHotkey? -*/ - - Else If A_PriorHotkey = +1 ; Grad - BSUnicode("≗") - Else - send `= - } - else if Ebene = 4 - Unicode("φ") ;phi - else if Ebene = 5 - Send 9 - else if Ebene = 6 - Unicode("Φ") ; 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 - Unicode("ɸ") ; Varphi? - else if Ebene = 5 - Send {+} - else if Ebene = 6 - Unicode("∂") ; "verdrehtes e" - PriorDeadKey := "" -return - -*:: - EbeneAktualisieren() - if Ebene = 1 - if GetKeyState("CapsLock","T") - { - Unicode("ẞ") ; versal- - } - else - { - send - } - else if Ebene = 2 - if GetKeyState("CapsLock","T") - { - send - } - else - { - Unicode("ẞ") ; versal- - } - else if Ebene = 3 - Unicode("ſ") ; langes s - else if Ebene = 4 - Unicode("ς") - else if Ebene = 5 - Unicode("ə") ; schwa - else if Ebene = 6 - Unicode("Ə") ; Schwa - PriorDeadKey := "" -return - - -*+:: - EbeneAktualisieren() - if Ebene = 1 - { - Unicode("˜") ; tilde, tot - PriorDeadKey := "t1" - } - else if Ebene = 2 - { - Unicode("ˉ") ; macron, tot - PriorDeadKey := "t2" - } - else if Ebene = 3 - { - Unicode("¨") ; Diaerese - PriorDeadKey := "t3" - } - else if Ebene = 4 - { - send " ;doppelakut - PriorDeadKey := "t4" - } - else if Ebene = 5 - { - Unicode("/") ; Schrgstrich, tot - PriorDeadKey := "t5" - } - else if Ebene = 6 - { - Unicode("ˏ") ; komma drunter, tot - PriorDeadKey := "t6" - } -return - - -/* - ------------------------------------------------------ - Reihe 3 - ------------------------------------------------------ -*/ - -*a:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("û") - Else If (PriorDeadKey = "a1") ; akut - BSUnicode("ú") - Else If (PriorDeadKey = "a2") ; grave - BSUnicode("ù") - Else If (PriorDeadKey = "t3") ; Diaerese - Send, {bs} - Else If (PriorDeadKey = "t4") ; doppelakut - BSUnicode("ű") - Else If (PriorDeadKey = "c3") ; brevis - BSUnicode("ŭ") - Else If (PriorDeadKey = "t2") ; macron - BSUnicode("ū") - Else If (PriorDeadKey = "a4") ; ogonek - BSUnicode("ų") - Else If (PriorDeadKey = "a6") ; Ring - BSUnicode("ů") - Else If (PriorDeadKey = "t1") ; tilde - BSUnicode("ũ") - Else - sendinput {blind}u - } - else if Ebene = 2 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("Û") - Else If (PriorDeadKey = "a1") ; akut - BSUnicode("Ú") - Else If (PriorDeadKey = "a2") ; grave - BSUnicode("Ù") - Else If (PriorDeadKey = "t3") ; Diaerese - Send, {bs} - Else If (PriorDeadKey = "a6") ; Ring - BSUnicode("Ů") - Else If (PriorDeadKey = "c3") ; brevis - BSUnicode("Ŭ") - Else If (PriorDeadKey = "t4") ; doppelakut - BSUnicode("Ű") - Else If (PriorDeadKey = "c2") ; caron - BSUnicode("Ů") - Else If (PriorDeadKey = "t2") ; macron - BSUnicode("Ū") - Else If (PriorDeadKey = "c3") ; brevis - BSUnicode("Ŭ") - Else If (PriorDeadKey = "a4") ; ogonek - BSUnicode("Ų") - Else If (PriorDeadKey = "t1") ; tilde - BSUnicode("Ũ") - 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 - BSUnicode("î") - Else If (PriorDeadKey = "a1") ; akut - BSUnicode("í") - Else If (PriorDeadKey = "a2") ; grave - BSUnicode("ì") - Else If (PriorDeadKey = "t3") ; Diaerese - Send, {bs} - Else If (PriorDeadKey = "t2") ; macron - BSUnicode("ī") - Else If (PriorDeadKey = "c3") ; brevis - BSUnicode("ĭ") - Else If (PriorDeadKey = "a4") ; ogonek - BSUnicode("į") - Else If (PriorDeadKey = "t1") ; tilde - BSUnicode("ĩ") - Else If (PriorDeadKey = "a5") ; (ohne) punkt darber - BSUnicode("ı") - Else - sendinput {blind}i - } - else if Ebene = 2 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("Î") - Else If (PriorDeadKey = "a1") ; akut - BSUnicode("Í") - Else If (PriorDeadKey = "a2") ; grave - BSUnicode("Ì") - Else If (PriorDeadKey = "t3") ; Diaerese - Send, {bs} - Else If (PriorDeadKey = "t2") ; macron - BSUnicode("Ī") - Else If (PriorDeadKey = "c3") ; brevis - BSUnicode("Ĭ") - Else If (PriorDeadKey = "a4") ; ogonek - BSUnicode("Į") - Else If (PriorDeadKey = "t1") ; tilde - BSUnicode("Ĩ") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("İ") - Else - sendinput {blind}I - } - else if Ebene = 3 - send `/ - else if Ebene = 4 - Unicode("ι") ;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 - BSUnicode("â") - Else If (PriorDeadKey = "a1") ; akut - BSUnicode("á") - Else If (PriorDeadKey = "a2") ; grave - BSUnicode("à") - Else If (PriorDeadKey = "t3") ; Diaerese - send {bs} - Else If (PriorDeadKey = "a6") ; Ring - Send {bs} - Else If (PriorDeadKey = "t1") ; tilde - BSUnicode("ã") - Else If (PriorDeadKey = "a4") ; ogonek - BSUnicode("ą") - Else If (PriorDeadKey = "t2") ; macron - BSUnicode("ā") - Else If (PriorDeadKey = "c3") ; brevis - BSUnicode("ă") - Else - sendinput {blind}a - } - else if Ebene = 2 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("Â") - Else If (PriorDeadKey = "a1") ; akut - BSUnicode("Á") - Else If (PriorDeadKey = "a2") ; grave - BSUnicode("À") - Else If (PriorDeadKey = "t3") ; Diaerese - send {bs} - Else If (PriorDeadKey = "t1") ; tilde - BSUnicode("Ã") - Else If (PriorDeadKey = "a6") ; Ring - Send {bs} - Else If (PriorDeadKey = "t2") ; macron - BSUnicode("Ā") - Else If (PriorDeadKey = "c3") ; brevis - BSUnicode("Ă") - Else If (PriorDeadKey = "a4") ; ogonek - BSUnicode("Ą") - Else - sendinput {blind}A - } - else if Ebene = 3 - sendraw { - else if Ebene = 4 - Unicode("α") ;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 - BSUnicode("ê") - Else If (PriorDeadKey = "a1") ; akut - BSUnicode("é") - Else If (PriorDeadKey = "a2") ; grave - BSUnicode("è") - Else If (PriorDeadKey = "t3") ; Diaerese - Send, {bs} - Else If (PriorDeadKey = "a4") ; ogonek - BSUnicode("ę") - Else If (PriorDeadKey = "t2") ; macron - BSUnicode("ē") - Else If (PriorDeadKey = "c3") ; brevis - BSUnicode("ĕ") - Else If (PriorDeadKey = "c2") ; caron - BSUnicode("ě") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("ė") - Else - sendinput {blind}e - } - else if Ebene = 2 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("Ê") - Else If (PriorDeadKey = "a1") ; akut - BSUnicode("É") - Else If (PriorDeadKey = "a2") ; grave - BSUnicode("È") - Else If (PriorDeadKey = "t3") ; Diaerese - Send, {bs} - Else If (PriorDeadKey = "c2") ; caron - BSUnicode("Ě") - Else If (PriorDeadKey = "t2") ; macron - BSUnicode("Ē") - Else If (PriorDeadKey = "c3") ; brevis - BSUnicode("Ĕ") - Else If (PriorDeadKey = "a4") ; ogonek - BSUnicode("Ę") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("Ė") - Else - sendinput {blind}E - } - else if Ebene = 3 - sendraw } - else if Ebene = 4 - Unicode("ε") ;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 - BSUnicode("ô") - Else If (PriorDeadKey = "a1") ; akut - BSUnicode("ó") - Else If (PriorDeadKey = "a2") ; grave - BSUnicode("ò") - Else If (PriorDeadKey = "t3") ; Diaerese - Send, {bs} - Else If (PriorDeadKey = "t1") ; tilde - BSUnicode("õ") - Else If (PriorDeadKey = "t4") ; doppelakut - BSUnicode("ő") - Else If (PriorDeadKey = "t5") ; Schrgstrich - BSUnicode("ø") - Else If (PriorDeadKey = "t2") ; macron - BSUnicode("ō") - Else If (PriorDeadKey = "c3") ; brevis - BSUnicode("ŏ") - Else - sendinput {blind}o - } - else if Ebene = 2 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("Ô") - Else If (PriorDeadKey = "a1") ; akut - BSUnicode("Ó") - Else If (PriorDeadKey = "a2") ; grave - BSUnicode("Ò") - Else If (PriorDeadKey = "t5") ; Schrgstrich - BSUnicode("Ø") - Else If (PriorDeadKey = "t1") ; tilde - BSUnicode("Õ") - Else If (PriorDeadKey = "t4") ; doppelakut - BSUnicode("Ő") - Else If (PriorDeadKey = "t3") ; Diaerese - send {bs} - Else If (PriorDeadKey = "t2") ; macron - BSUnicode("Ō") - Else If (PriorDeadKey = "c3") ; brevis - BSUnicode("Ŏ") - Else - sendinput {blind}O - } - else if Ebene = 3 - send * - else if Ebene = 4 - Unicode("ω") ;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 - BSUnicode("ŝ") - Else If (PriorDeadKey = "a1") ; akut - BSUnicode("ś") - Else If (PriorDeadKey = "c2") ; caron - BSUnicode("š") - Else If (PriorDeadKey = "a3") ; cedilla - BSUnicode("ş") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("ṡ") - Else If (PriorDeadKey = "c6") ; punkt darunter - BSUnicode("ṣ") - Else - sendinput {blind}s - } - else if Ebene = 2 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("Ŝ") - Else If (PriorDeadKey = "c2") ; caron - BSUnicode("Š") - Else If (PriorDeadKey = "a1") ; akut - BSUnicode("Ś") - Else If (PriorDeadKey = "a3") ; cedilla - BSUnicode("Ş") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("") - Else If (PriorDeadKey = "c6") ; punkt darunter - BSUnicode("Ṣ") - Else - sendinput {blind}S - } - else if Ebene = 3 - send ? - else if Ebene = 4 - Unicode("σ") ;sigma - else if Ebene = 5 - Send - else if Ebene = 6 - Unicode("Σ") ; Sigma - PriorDeadKey := "" -return - -*j:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "a1") ; akut - BSUnicode("ń") - Else If (PriorDeadKey = "t1") ; tilde - BSUnicode("ñ") - Else If (PriorDeadKey = "c2") ; caron - BSUnicode("ň") - Else If (PriorDeadKey = "a3") ; cedilla - BSUnicode("ņ") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("ṅ") - Else - sendinput {blind}n - } - else if Ebene = 2 - { - If (PriorDeadKey = "c2") ; caron - BSUnicode("Ň") - Else If (PriorDeadKey = "t1") ; tilde - BSUnicode("Ñ") - Else If (PriorDeadKey = "a1") ; akut - BSUnicode("Ń") - Else If (PriorDeadKey = "a3") ; cedilla - BSUnicode("Ņ") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("Ṅ") - Else - sendinput {blind}N - } - else if Ebene = 3 - send ( - else if Ebene = 4 - Unicode("ν") ;nu - else if Ebene = 5 - Send 4 - PriorDeadKey := "" -return - -*k:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "a1") ; akut - BSUnicode("ŕ") - Else If (PriorDeadKey = "c2") ; caron - BSUnicode("ř") - Else If (PriorDeadKey = "a3") ; cedilla - BSUnicode("ŗ") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("ṙ") - Else If (PriorDeadKey = "c6") ; punkt darunter - BSUnicode("ṛ") - Else - sendinput {blind}r - } - else if Ebene = 2 - { - If (PriorDeadKey = "c2") ; caron - BSUnicode("Ř") - Else If (PriorDeadKey = "a1") ; akut - BSUnicode("Ŕ") - Else If (PriorDeadKey = "a3") ; cedilla - BSUnicode("Ŗ") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("Ṙ") - Else If (PriorDeadKey = "c6") ; punkt darunter - BSUnicode("Ṛ") - Else - sendinput {blind}R - } - else if Ebene = 3 - send ) - else if Ebene = 4 - Unicode("ρ") ;rho - else if Ebene = 5 - Send 5 - PriorDeadKey := "" -return - -*l:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "c2") ; caron - BSUnicode("ť") - Else If (PriorDeadKey = "a3") ; cedilla - BSUnicode("ţ") - Else If (PriorDeadKey = "c4") ; Querstrich - BSUnicode("ŧ") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("ṫ") - Else If (PriorDeadKey = "c6") ; punkt darunter - BSUnicode("ṭ") - Else - sendinput {blind}t - } - else if Ebene = 2 - { - If (PriorDeadKey = "c2") ; caron - BSUnicode("Ť") - Else If (PriorDeadKey = "a3") ; cedilla - BSUnicode("Ţ") - Else If (PriorDeadKey = "c4") ; Querstrich - BSUnicode("Ŧ") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("Ṫ") - Else If (PriorDeadKey = "c6") ; punkt darunter - BSUnicode("Ṭ") - Else - sendinput {blind}T - } - else if Ebene = 3 - send {blind}- ; Bind - else if Ebene = 4 - Unicode("τ") ;tau - else if Ebene = 5 - Send 6 - PriorDeadKey := "" -return - -*:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "c4") ; Querstrich - BSUnicode("đ") - Else If (PriorDeadKey = "t5") ; Schrgstrich - BSUnicode("ð") - Else If (PriorDeadKey = "c2") ; caron - BSUnicode("ď") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("ḋ") - Else If (PriorDeadKey = "c6") ; punkt darunter - BSUnicode("ḍ") - Else - sendinput {blind}d - } - else if Ebene = 2 - { - If (PriorDeadKey = "c4") ; Querstrich - BSUnicode("Đ") - Else If (PriorDeadKey = "t5") ; Schrgstrich - BSUnicode("Ð") - Else If (PriorDeadKey = "c2") ; caron - BSUnicode("Ď") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("Ḋ") - Else If (PriorDeadKey = "c6") ; punkt darunter - BSUnicode("Ḍ") - Else sendinput {blind}D - } - else if Ebene = 3 - send : - else if Ebene = 4 - Unicode("δ") ;delta - else if Ebene = 5 - Send `, - else if Ebene = 6 - Unicode("Δ") ; Delta - PriorDeadKey := "" -return - -*:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "t3") ; Diaerese - Send {bs} - Else If (PriorDeadKey = "a1") ; akut - BSUnicode("ý") - Else If (PriorDeadKey = "c1") ; circumflex - BSUnicode("ŷ") - Else - sendinput {blind}y - } - else if Ebene = 2 - { - If (PriorDeadKey = "a1") ; akut - BSUnicode("Ý") - Else If (PriorDeadKey = "t3") ; Diaerese - Send {bs} - Else If (PriorDeadKey = "c1") ; circumflex - BSUnicode("Ŷ") - Else - sendinput {blind}Y - } - else if Ebene = 4 - Unicode("υ") ;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 - Unicode("η") ;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 darber - BSUnicode("ṗ") - Else - sendinput {blind}p - } - else if Ebene = 2 - { - If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("Ṗ") - Else - sendinput {blind}P - } - else if Ebene = 3 - { - If (PriorDeadKey = "t1") ; tilde - BSUnicode("≈") - Else - sendraw ~ - } - else if Ebene = 4 - Unicode("π") ;pi - else if Ebene = 5 - Send {Enter} - else if Ebene = 6 - Unicode("Π") ; Pi - PriorDeadKey := "" -return - -*b:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "c2") ; caron - BSUnicode("ž") - Else If (PriorDeadKey = "a1") ; akut - BSUnicode("ź") - Else If (PriorDeadKey = "a5") ; punkt drber - BSUnicode("ż") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("ż") - Else - sendinput {blind}z - } - else if Ebene = 2 - { - If (PriorDeadKey = "c2") ; caron - BSUnicode("Ž") - Else If (PriorDeadKey = "a1") ; akut - BSUnicode("Ź") - Else If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("Ż") - Else - sendinput {blind}Z - } - else if Ebene = 3 - send ``{space} ; untot - else if Ebene = 4 - Unicode("ζ") ;zeta - else if Ebene = 6 - Unicode("Ω") ; Omega - PriorDeadKey := "" -return - -*n:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("ḃ") - Else - sendinput {blind}b - } - else if Ebene = 2 - { - If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("Ḃ") - Else - sendinput {blind}B - } - else if Ebene = 3 - send {blind}{+} - else if Ebene = 4 - Unicode("β") ;beta - else if Ebene = 6 - Unicode("∞") ;infty - PriorDeadKey := "" -return - -*m:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("ṁ") - Else If (PriorDeadKey = "c6") ; punkt darunter - BSUnicode("ṃ") - Else - sendinput {blind}m - } - else if Ebene = 2 - { - If (PriorDeadKey = "a5") ; punkt darber - BSUnicode("Ṁ") - Else If (PriorDeadKey = "c6") ; punkt darunter - BSUnicode("Ṃ") - Else - sendinput {blind}M - } - else if Ebene = 3 - send `% - else if Ebene = 4 - Unicode("µ") ;micro, mu wre μ - else if Ebene = 5 - Send 1 - else if Ebene = 6 - Unicode("∫") ; Int - PriorDeadKey := "" -return - -*,:: - EbeneAktualisieren() - if Ebene = 1 - send {blind}, - else if Ebene = 3 - send ' - else if Ebene = 4 - Unicode("ϱ") ; varsigma - else if Ebene = 5 - Send 2 - else if Ebene = 6 - Unicode("√") ; sqrt - PriorDeadKey := "" -return - -*.:: - EbeneAktualisieren() - if Ebene = 1 - send {blind}. - else if Ebene = 2 - Unicode("…") ; ellipse - else if Ebene = 3 - send " - else if Ebene = 4 - Unicode("θ") ;theta - else if Ebene = 5 - Send 3 - else if Ebene = 6 - Unicode("Θ") ; Theta - PriorDeadKey := "" -return - - -*-:: - EbeneAktualisieren() - if Ebene = 1 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("ĵ") - Else - sendinput {blind}j - } - else if Ebene = 2 - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("Ĵ") - Else - sendinput {blind}J - } - else if Ebene = 3 - send `; - else if Ebene = 4 - Unicode("ϑ") ; vartheta - else if Ebene = 5 - Send . - else if Ebene = 6 - Unicode("∇") ; 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) ) - Unicode("∕") ; 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) ) - Unicode("⋅") ; cdot - PriorDeadKey := "" -return - -*NumpadSub:: - EbeneAktualisieren() - if ( (Ebene = 1) or (Ebene = 2) ) - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("⁻") - Else - send {blind}{NumpadSub} - } - else if Ebene = 3 - Unicode("−") ; echtes minus - PriorDeadKey := "" -return - -*NumpadAdd:: - EbeneAktualisieren() - if ( (Ebene = 1) or (Ebene = 2) ) - { - If (PriorDeadKey = "c1") ; circumflex - BSUnicode("⁺") - Else - send {blind}{NumpadAdd} - } - else if Ebene = 3 - send - else if ( (Ebene = 4) or (Ebene = 5) ) - Unicode("∓") ; -+ - PriorDeadKey := "" -return - -*NumpadEnter:: - EbeneAktualisieren() - if ( (Ebene = 1) or (Ebene = 2) ) - send {NumpadEnter} - else if Ebene = 3 - Unicode("≠") ; neq - else if ( (Ebene = 4) or (Ebene = 5) ) - Unicode("≈") ; 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) ) - Unicode("≪") ; ll - PriorDeadKey := "" -return - -*Numpad8:: - EbeneAktualisieren() - if Ebene = 1 - send {blind}{Numpad8} - else if Ebene = 2 - send {NumpadUp} - else if Ebene = 3 - Unicode("↑") ; uparrow - else if ( (Ebene = 4) or (Ebene = 5) ) - Unicode("∩") ; - PriorDeadKey := "" -return - -*Numpad9:: - EbeneAktualisieren() - if Ebene = 1 - send {blind}{Numpad9} - else if Ebene = 2 - send {NumpadPgUp} - else if ( (Ebene = 4) or (Ebene = 5) ) - Unicode("≫") ; gg - PriorDeadKey := "" -return - -*Numpad4:: - EbeneAktualisieren() - if Ebene = 1 - send {blind}{Numpad4} - else if Ebene = 2 - send {NumpadLeft} - else if Ebene = 3 - Unicode("←") ; leftarrow - else if ( (Ebene = 4) or (Ebene = 5) ) - Unicode("⊂") ; - 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) ) - Unicode("∊") ; - PriorDeadKey := "" -return - -*Numpad6:: - EbeneAktualisieren() - if Ebene = 1 - send {blind}{Numpad6} - else if Ebene = 2 - send {NumpadRight} - else if Ebene = 3 - Unicode("→") ; rightarrow - else if ( (Ebene = 4) or (Ebene = 5) ) - Unicode("⊃") ; - PriorDeadKey := "" -return - -*Numpad1:: - EbeneAktualisieren() - if Ebene = 1 - send {blind}{Numpad1} - else if Ebene = 2 - send {NumpadEnd} - else if Ebene = 3 - Unicode("⇋") - else if ( (Ebene = 4) or (Ebene = 5) ) - Unicode("≤") ; leq - PriorDeadKey := "" -return - -*Numpad2:: - EbeneAktualisieren() - if Ebene = 1 - send {blind}{Numpad2} - else if Ebene = 2 - send {NumpadDown} - else if Ebene = 3 - Unicode("↓") ; downarrow - else if ( (Ebene = 4) or (Ebene = 5) ) - Unicode("∪") ; - PriorDeadKey := "" -return - -*Numpad3:: - EbeneAktualisieren() - if Ebene = 1 - send {blind}{Numpad3} - else if Ebene = 2 - send {NumpadPgDn} - else if Ebene = 3 - Unicode("⇌") - else if ( (Ebene = 4) or (Ebene = 5) ) - Unicode("≥") ; 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) ) - Unicode("≪") ; ll - PriorDeadKey := "" -return - -*NumpadUp:: - EbeneAktualisieren() - if Ebene = 1 - send {NumpadUp} - else if Ebene = 2 - send {Numpad8} - else if Ebene = 3 - Unicode("↑") ; uparrow - else if ( (Ebene = 4) or (Ebene = 5) ) - Unicode("∩") ; - PriorDeadKey := "" -return - -*NumpadPgUp:: - EbeneAktualisieren() - if Ebene = 1 - send {NumpadPgUp} - else if Ebene = 2 - send {Numpad9} - else if ( (Ebene = 4) or (Ebene = 5) ) - Unicode("≫") ; gg - PriorDeadKey := "" -return - -*NumpadLeft:: - EbeneAktualisieren() - if Ebene = 1 - send {NumpadLeft} - else if Ebene = 2 - send {Numpad4} - else if Ebene = 3 - Unicode("←") ; leftarrow - else if ( (Ebene = 4) or (Ebene = 5) ) - Unicode("⊂") ; - 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) ) - Unicode("∊") ; - PriorDeadKey := "" -return - -*NumpadRight:: - EbeneAktualisieren() - if Ebene = 1 - send {NumpadRight} - else if Ebene = 2 - send {Numpad6} - else if Ebene = 3 - Unicode("→") ; rightarrow - else if ( (Ebene = 4) or (Ebene = 5) ) - Unicode("⊃") ; - PriorDeadKey := "" -return - -*NumpadEnd:: - EbeneAktualisieren() - if Ebene = 1 - send {NumpadEnd} - else if Ebene = 2 - send {Numpad1} - else if ( (Ebene = 4) or (Ebene = 5) ) - Unicode("≤") ; leq - PriorDeadKey := "" -return - -*NumpadDown:: - EbeneAktualisieren() - if Ebene = 1 - send {NumpadDown} - else if Ebene = 2 - send {Numpad2} - else if Ebene = 3 - Unicode("↓") ; downarrow - else if ( (Ebene = 4) or (Ebene = 5) ) - Unicode("∪") ; - PriorDeadKey := "" -return - -*NumpadPgDn:: - EbeneAktualisieren() - if Ebene = 1 - send {NumpadPgDn} - else if Ebene = 2 - send {Numpad3} - else if ( (Ebene = 4) or (Ebene = 5) ) - Unicode("≥") ; 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) ; geschtztes 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 aufgefhrt, um PriorDeadKey zu leeren. - Irgendwie sieht das noch nicht schn aus. Vielleicht lsst sich dieses - Problem irgendwie eleganter lsen... - - Nachtrag: - Weil es mit Alt+Tab Probleme gab, wird hier jetzt erstmal rumgeflickschustert, - bis eine allgemeinere Lsung 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 drckt... - -*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 -} - -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) -} - -EncodeInteger(ref, val) -{ - DllCall("ntdll\RtlFillMemoryUlong", "Uint", ref, "Uint", 4, "Uint", val) -} - - -/* - ------------------------------------------------------ - Shift+Pause "pausiert" das Script. - ------------------------------------------------------ -*/ - -+pause::suspend diff --git a/windows/XP/autohotkey/neo20-all-in-one.exe b/windows/XP/autohotkey/neo20-all-in-one.exe Binary files differdeleted file mode 100644 index 95f6c66..0000000 --- a/windows/XP/autohotkey/neo20-all-in-one.exe +++ /dev/null |