AutoHotkey Community

;==Shake effect==
if SelectEffect = Shake       
{
   SetWinDelay, 35          ; Shake speed
   Loop, 5
   {
      ; Set Shake intensity. X axis shake looks better than Y axis shake
      if A_index = 1    ; 2 pixels
      XEff -= 2
      Else if A_index = 2    ; 2 pixels
      XEff += 4
      Else if A_index = 3    ; 1 pixel
      XEff -= 3
      Else if A_index = 4    ; 1 pixel
      XEff += 2
      Else if A_index = 5    ; back to initial position
      XEff -= 1
      WinMove, %WinTitle%,, XEff, YEff
   }
}

; I add these custom SelectEffect lines
If SelectEffect = Fuzzy
{
   SetWinDelay, 10
   WinGetPos, PosX, PosY,,, %WinTitle%
   Loop, 40
   {
      Random, RX, -7, 7
      Random, RY, -7, 7
      XEff := RX+PosX
      YEff := RY+PosY
      WinMove, %WinTitle%,, XEff, YEff
   }
}

If SelectEffect = Rocket
{
   SetWinDelay, 10
   WinGetPos, PosX, PosY, Wid, Hei, %WinTitle%
   Loop, 30
   {
      Random, RX, -9, 9
      Random, RY, -9, 9
      XEff := RX+PosX
      YEff := RY+PosY
      WinMove, %WinTitle%,, XEff, YEff
   }
   WinMove, %WinTitle%,, PosX, PosY
   Loop, 20
   {
      YEff-=15
      WinMove, %WinTitle%,,,YEff
   }
}

If SelectEffect = Snow
{
   SetWinDelay, 10
   WinGetPos, PosX, PosY,,, %WinTitle%
   Loop, 7
   {
      Loop, 5
      {
         Random, XX, 2, 4
         If Sign = 1
         PosX -= XX
         Else
         PosX += XX
         WinMove, %WinTitle%,, PosX
         Loop, 2
         {
            PosY += 2
            WinMove, %WinTitle%,, PosX, PosY
         }
      }
      If Sign = 1
      Sign = 0
      Else
      Sign = 1
   }
   XX =
   YY =
}

If SelectEffect = Spiral
{
   Sign = 1
   SetWinDelay, 10
   WinGetPos, PosX, PosY,,, %WinTitle%
   Loop, 5
   {
      YY++
      Loop, %YY%
      {
         If Sign = 1
         PosY -= YY
         Else
         PosY += YY
         WinMove, %WinTitle%,,, PosY
      }
      XX++
      Loop, %XX%
      {
         If Sign = 1
         PosX -= XX
         Else
         PosX += XX
         WinMove, %WinTitle%,, PosX
      }
      If Sign = 1
      Sign = 0
      Else
      Sign = 1
   }
   XX =
   YY =
}
If SelectEffect = Random
{
   SetWinDelay, 20
   WinGetPos, PosX, PosY,,, %WinTitle%
   Loop, 50
   {
      Random, RR1, 0, 1
      Random, RR2, 0, 1
      If RR1 = 0
      Axis = X
      Else
      Axis = Y
      If RR2 = 0
      Pos%Axis%+=2
      Else
      Pos%Axis%-=2
      WinMove, %WinTitle%,, PosX, PosY
   }
}
SetWinDelay, 100        ; default
Return

#Include Gdip.ahk      ; by Tic
#Include RMmodule.ahk   ; by Learning one

MenuA := RM_Create("This|is|my|first|menu")   ; creates menu with 5 items and stores its ID in MenuA variable
Return

1::   ; press 1 to show menu
RM_Show(MenuA)   ; shows MenuA under mouse
ItemA := RM_GetSelectedItem(MenuA)   ; gets selected item from MenuA and stores it in ItemA variable
if ItemA   ; if item is selected
MsgBox, ,Selected, %ItemA%,1   ; show it in MsgBox
Return

Esc::ExitApp