#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn  ; Enable warnings to assist with detecting common errors.
SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

SplitPath, A_Scriptname, , , , OutNameNoExt
LinkFile=%A_Startup%\%OutNameNoExt%.lnk
;IfNotExist, %LinkFile% ;si existe mejor que lo sobre escriba, asi actualiza el path, si cambia
  ;FileCreateShortcut, %A_ScriptFullPath%, %LinkFile%
SetWorkingDir, %A_ScriptDir%

;Hotkey para teclas:
;ctrl+alt+shift+1=rapido
;ctrl+alt+shift+2=lento
;ctrl+alt+shift+3=personalizado
;ctrl+alt+shift+4=configuracion
TrayTip, Chikitown SpeedChanger Info:, Cambiador de velocidad Iniciado`nctrl+alt+shift+`n1=Rápido`n2=Lento`n3=Personalizado`n4=Opciones, 5, 1

rapido := 10
lento := 4
;NOTIFICACIONES
RegRead, notificaciones, HKEY_LOCAL_MACHINE, SOFTWARE\Chikitown SpeedChanger, Notificaciones
if ErrorLevel{
   RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Chikitown SpeedChanger, Notificaciones, 0
   notificaciones := 0
}
;STARTUP
RegRead, startup, HKEY_LOCAL_MACHINE, SOFTWARE\Chikitown SpeedChanger, Startup
if ErrorLevel{
   RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Chikitown SpeedChanger, Startup, 0
   startup := 0
}
;TRAYICON
RegRead, trayicon, HKEY_LOCAL_MACHINE, SOFTWARE\Chikitown SpeedChanger, TrayIcon
if ErrorLevel{
   RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Chikitown SpeedChanger, TrayIcon, 1
   trayicon := 1
   menu, tray, Icon
}
if(trayicon==0){
   menu, tray, NoIcon
}


^!+1::
   DllCall("SystemParametersInfo", Int,113, Int,0, UInt,rapido, Int,2)
   if(notificaciones==1){
      if(trayicon==0)
         menu, tray, Icon
      TrayTip, Chikitown SpeedChanger Info:, Velocidad: rapido, 3, 1
      sleep 3000
      if(trayicon==0)
         menu, tray, NoIcon
   }
   else{
      ToolTip, % ("Puntero velocidad rapido")
      sleep 1000
      ToolTip
   }
return

^!+2::
   DllCall("SystemParametersInfo", Int,113, Int,0, UInt,lento, Int,2)
   if(notificaciones==1){
      if(trayicon==0)
         menu, tray, Icon
      TrayTip, Chikitown SpeedChanger Info:, Velocidad: lento, 3, 1
      sleep 3000
      if(trayicon==0)
         menu, tray, NoIcon
   }
   else{
      ToolTip, % ("Puntero velocidad lento")
      sleep 1000
      ToolTip
   }
return

^!+3::
      Gui, Add, Text, x30, Valor personalizado(entre 1 y 20):
      Gui, Add, Edit, x30 vvalor
      Gui, Add, Button, w90 y50 default, Aceptar  ; The label ButtonAceptar (if it exists) will be run when the button is pressed.
      Gui, Add, Button, w90 y50, Cancelar  ; The label ButtonCancelar (if it exists) will be run when the button is pressed.
      Gui, Show,, Chikitown SpeedChanger: Introducir valor
      return  ; End of auto-execute section. The script is idle until the user does something.

      ButtonAceptar:
         Gui, Submit  ; Save the input from the user to each control's associated variable.
         valor := round(valor)
         if(valor<21 && valor>0){
            DllCall("SystemParametersInfo", Int,113, Int,0, UInt,valor, Int,2)
            if(notificaciones==1){
               if(trayicon==0)
                  menu, tray, Icon
               TrayTip, Chikitown SpeedChanger Info:, Velocidad Personalizada: "%valor%", 3, 1
               sleep 3000
               if(trayicon==0)
                  menu, tray, NoIcon
            }
            else{
               ToolTip, Puntero velocidad "%valor%"
               sleep 1000
               ToolTip
            }
         }
         else
            MsgBox El valor "%valor%" está fuera de los limites.
         GuiClose:
         GuiEscape:
         ButtonCancelar:
            Gui, Destroy
return

^!+4::
   ; Example: Tab control:
   Gui, New  ; Creates a new GUI named Conf.
   Gui, New:Add, Tab2,, Configuracion|Acerca de..  ; Tab2 vs. Tab requires v1.0.47.05.
   if(startup==1)
      Gui, New:Add, Checkbox, Checked vMyCheckbox1, Autoejecutar con Windows
   else
      Gui, New:Add, Checkbox, vMyCheckbox1, Autoejecutar con Windows
   if(notificaciones==1)
      Gui, New:Add, Checkbox, Checked vMyCheckbox2, Activar Notificaciones
   else
      Gui, New:Add, Checkbox, vMyCheckbox2, Activar Notificaciones
   if(trayicon==1)
      Gui, New:Add, Checkbox, Checked vMyCheckbox3, Activar TrayIcon
   else
      Gui, New:Add, Checkbox, vMyCheckbox3, Activar TrayIcon
   Gui, New:Add,Text,,
   Gui, New:Add, Checkbox, vMyCheckbox4, Salir de la aplicacion
   Gui, New:Tab, 2
   Gui, New:Add, Text,, Puede dejar su comentario`ny para ayuda o soporte`nen mi facebook:`n
   Gui, New:Add, Edit,, https://www.facebook.com/Chikitown
   Gui, New:Tab  ; i.e. subsequently-added controls will not belong to the tab control.
   Gui, New:Add, Button, default w90 xm, OK  ; xm puts it at the bottom left corner.
   Gui, New:Show
   return

   NewButtonOK:
      Gui, Submit  ; Save each control's contents to its associated variable.
      if(MyCheckbox1==0){
         FileDelete, %LinkFile%
         startup := 0
      }
      else{
         FileCreateShortcut, %A_ScriptFullPath%, %LinkFile%
         startup := 1
      }
      if(MyCheckbox2==1)
         notificaciones := 1
      else
         notificaciones := 0
      if(MyCheckbox3==1){
         trayicon := 1
         menu, tray, Icon
      }
      else{
         trayicon := 0
         menu, tray, NoIcon
      }
      RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Chikitown SpeedChanger, Notificaciones, %notificaciones%
      RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Chikitown SpeedChanger, Startup, %startup%
      RegWrite, REG_SZ, HKEY_LOCAL_MACHINE, SOFTWARE\Chikitown SpeedChanger, TrayIcon, %trayicon%
      if(MyCheckbox4==1)
         ExitApp
      NewGuiClose:
      NewGuiEscape:
         Gui, Destroy
return