TextMenuWithSeparateActionsForMenuItems

#SingleInstance Force
;Text Menu with words
TextMenu(TextOptions)
{
 StringSplit, MenuItems, TextOptions , `¦
 Loop %MenuItems0%
  {
    Item := MenuItems%A_Index%
    ;Menu, TxtMenu, add, %Item%, TxtMenuAction
    Menu, TxtMenu, add, %Item%, TxtMenuAction
  }
 Menu, TxtMenu, Show
 Menu, TxtMenu, DeleteAll
}

TxtMenuAction:
 SendInput %A_ThisMenuItem%{raw}%A_EndChar%
Return
;Text menu with separate actions of menu items
:*:ryg::
  TextMenu("It's red.¦It's yellow.¦It's green.")
If A_thismenuitem = It's red.
  SendInput, {Raw}
(
 Stop.
)
If A_thismenuitem = It's yellow.
  SendInput, {Raw}
(
 Get ready.
)
If A_thismenuitem = It's green.
  SendInput, {Raw}
(
 Safe to drive.
)
Return