piusare/mausu.ahk

#MaxThreadsPerHotkey 1
;;WINDOOOOOOOOOOOOOOOOOOOOOOOOOOOOOWS y ahk unaware del futuro de los escritorios
;;https://www.autohotkey.com/boards/viewtopic.php?t=97706
DllCall("SetThreadDpiAwarenessContext", "ptr", -3, "ptr")

;;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

rBtnHold := 0
mBtnHold := 0
lBtnHold := 0

speedUp := 1
speedUpFactor := 20
mouseSpeed := speedUp * speedUpFactor + 3

inputCleaning() 
{
	;;if (GetKeyState("RShift", "P") != 0) {
	;;	  SendInput, {RShift Down}
	;;}
	if (GetKeyState("RCtrl", "P") != 0) {
		  SendInput, {RCtrl Down}
	}
	return
}
;;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

;;Toggle speed
RCtrl & ,::
	  SendInput, {RCtrl Up}
	  speedUp := !(speedUp)
	  mouseSpeed := speedUp * speedUpFactor + 3 
	  SendInput, {RCtrl Down}
	  return

;;
;;;;Mouse buttons
;;RCtrl & RShift::
;;	  Critical, On
;; 	  ;;SendInput, {RCtrl Up}
;;	  ;;SendInput, {RShift Up}
;;	  SendInput, {LButton Down}
;;	  ;;SendInput, {RShift Down}
;;	  Sleep, 80
;;	  if (GetKeyState("RShift","P") = 0)
;;	  {
;;	  
;;		SendInput, {LButton Up}	
;;	  	;;SendInput, {RCtrl Up}
;;	  }  
;;	  ;;inputCleaning()
;;	  Critical, Off
;;	  return
;;RCtrl & End::
;;	  Critical, On
;;	  SendInput, {RCtrl Up}
;;	  SendInput, {End Up}
;;	  SendInput, {RButton}
;;	  inputCleaning()
;;	  Critical, Off
;;	  return
;;RCtrl & Enter::
;;	  Critical, On
;;	  SendInput, {RCtrl Up}
;;	  SendInput, {Enter Up}
;;	  SendInput, {MButton Down}
;;	  ;;while(GetKeyState("RCtrl","P") = 1)
;;	  ;;{
;;	  ;;	SendInput, {RCtrl Up}
;;	  ;;}
;;	  SendInput, {MButton Up}
;;	  inputCleaning()
;;	  Critical, Off
;;	  return
;;
;;tuckaway
;;targeting 1080p displays with taskbar on top. Change at your leisure.
RCtrl & .::
	  MouseMove, 1940, 100
	  inputCleaning()
	  return

;;Toggle mouse movement
~RCtrl::
	  Global mouseActive, mouseSpeed, lBtnHold, mBtnHold, rBtnHold
	  mouseActive := 1
	  while (GetKeyState("RCtrl", "P") != 0) {
	  		MouseMove, (rightMov + lefMov) * (mouseSpeed), (upMov + downMov) * (mouseSpeed), 0, R
			if(GetKeyState("RShift", "P") = 1)
			{
				if(lBtnHold = 1)
				{
					SendInput, {RCtrl Up}
					SendInput, {LButton Up}
					SendInput, {RCtrl Down}								
					lBtnHold := 0
				}
				else
				{
				SendInput, {LButton}												
				}
				Sleep, 60
			}
			if(GetKeyState("Enter", "P") = 1)
			{
				if(mBtnHold = 1)
				{
					SendInput, {RCtrl Up}
					SendInput, {MButton Up}
					SendInput, {RCtrl Down}								
					mBtnHold := 0
				}
				else
				{
				SendInput, {MButton}												
				}
				Sleep, 60
			}
			if(GetKeyState("End", "P") = 1)
			{
				if(rBtnHold = 1)
				{
					SendInput, {RCtrl Up}
					SendInput, {RButton Up}
					SendInput, {RCtrl Down}								
					rBtnHold := 0
				}
				else
				{
				SendInput, {RButton}												
				}
				Sleep, 60
			}

			if(GetKeyState("/", "P") = 1)
			{
				if(lBtnHold = 1)
				{
					SendInput, {RCtrl Up}
					SendInput, {LButton Up}
					SendInput, {RCtrl Down}
					lBtnHold := 0 
				}
				else
				{
					SendInput, {LButton Down}
					lBtnHold := 1 
				}
				Sleep, 60
			}
			if(GetKeyState("'", "P") = 1)
			{
				if(mBtnHold = 1)
				{
					SendInput, {RCtrl Up}
					SendInput, {MButton Up}
					SendInput, {RCtrl Down}
					mBtnHold := 0 
				}
				else
				{
					SendInput, {MButton Down}
					mBtnHold := 1 
				}
				Sleep, 60
			}
			if(GetKeyState("PgDn", "P") = 1)
			{
				if(rBtnHold = 1)
				{
					SendInput, {RCtrl Up}
					SendInput, {RButton Up}
					SendInput, {RCtrl Down}
					rBtnHold := 0 
				}
				else
				{
					SendInput, {RButton Down}
					rBtnHold := 1 
				}
				Sleep, 60
			}
	  }
	  mouseActive := 0
	  rightMov := 0
	  lefMov := 0
	  upMov := 0
	  downMov := 0
	  return



;;
;;~' & RShift::
;;	  SendInput, {' Up}
;;	  SendInput, {RShift Up}
;;	  SendInput, {LButton Down}
;;	  while(GetKeyState("'","P") != 0 && GetKeyState("RShift","P") != 0)
;;	  {
;;
;;	  }
;;	  SendInput, {LButton Up}
;; 	  inputCleaning()
;;	  return
;;~' & End::
;;	  SendInput, {RCtrl Up}
;;	  SendInput, {End Up}
;;	  RButton}
;;	  inputCleaning()
;;	  return
;;~' & Enter::
;;	  SendInput, {' Up}
;;	  SendInput, {Enter Up}
;;	  SendInput, {MButton Down}
;;	  while(GetKeyState("'","P") != 0 && GetKeyState("Enter","P") != 0)
;;	  {
;;
;;	  }
;;	  SendInput, {MButton Up}
;; 	  inputCleaning()
;;	  return