From addddc2eda68b17f8cd710a47dc62dd2ce9c9ec3 Mon Sep 17 00:00:00 2001 From: Hane Date: Sun, 23 Apr 2023 22:43:32 +0200 Subject: [PATCH] mausu: speedbug? rlease? mantner clic? tuckaway? --- mausu.ahk | 67 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 67 insertions(+) create mode 100644 mausu.ahk diff --git a/mausu.ahk b/mausu.ahk new file mode 100644 index 0000000..7bbfcce --- /dev/null +++ b/mausu.ahk @@ -0,0 +1,67 @@ +#MaxThreadsPerHotkey 1 + +;;For debugging purposes, it controls nothing, as it happens to us all with the flow of our lives +mouseActive := 0 + +rightMov := 0 +lefMov := 0 +upMov := 0 +downMov := 0 + +mouseSpeed := 1 +speedUp := 0 +speedUpFactor := 20 + +;;2 is default speed +RCtrl & Left::lefMov := -1 +RCtrl & Left Up::lefMov := 0 +RCtrl & Right::rightMov := 1 +RCtrl & Right Up::rightMov := 0 +RCtrl & Up::upMov := -1 +RCtrl & Up Up::upMov := 0 +RCtrl & Down::downMov := 1 +RCtrl & Down Up::downMov := 0 + + +RCtrl & /:: + SendInput, {RCtrl Up} + speedUp := !(speedUp) + mouseSpeed := speedUp * speedUpFactor + 3 + SendInput, {RCtrl Down} + return + + +;;Toggle mouse action +~RCtrl:: + Global mouseActive, mouseSpeed + mouseActive := 1 + while (GetKeyState("RCtrl", "P") != 0) { + MouseMove, (rightMov + lefMov) * (mouseSpeed), (upMov + downMov) * (mouseSpeed), 0, R + } + mouseActive := 0 + rightMov := 0 + lefMov := 0 + upMov := 0 + downMov := 0 + return + +;;Mouse buttons +RCtrl & RShift:: + SendInput, {RCtrl Up} + SendInput, {RShift Up} + SendInput, {LButton} + SendInput, {RCtrl Down} + return +RCtrl & End:: + SendInput, {RCtrl Up} + SendInput, {End Up} + SendInput, {RButton} + SendInput, {RCtrl Down} + return +RCtrl & Enter:: + SendInput, {RCtrl Up} + SendInput, {Enter Up} + SendInput, {MButton} + SendInput, {RCtrl Down} + return + \ No newline at end of file