AutoHotkey Community

Code: Select all

rangelist := RGBRange(0x008000, 0xFFFF00, -20, "|")
StringSplit, range_, rangelist , |
delay := 50
Gui -Caption +ToolWindow
Gui, Add, Text, x0 y0 w100 h200 GuiMove,
Gui +LastFound
WinSet, Region , 100-0 40-50 20-100 40-150 100-200 70-125 70-75 100-0
Gui, Show, w100 h200
loop
{
	loop, %range_0%
	{
		color := range_%A_Index%
		Gui, color, %color% 
		sleep, %delay%
	}
	sleep, % delay * 10
	loop, %range_0%
	{
		B_Index := range_0 - A_Index + 1 
		color := range_%B_Index%
		Gui, color, %color% 
		sleep, %delay%
	}
}
uiMove:
PostMessage, 0xA1, 2,,, A
if (color = 0xFFFF00)
{
	ripe ++
	banana := ripe<2 ? "Banana" : "Bananas"
	MsgBox, You got %ripe% ripe %banana%
}
Return
RGBRange(x, y=0, c=0, delim=",")
{
   oif := A_FormatInteger
   SetFormat, Integer, H
   dr:=(y>>16&255)-(r:=x>>16&255)
   dg:=(y>>8&255)-(g:=x>>8&255)
   db:=(y&255)-(b:=x&255)
   d := sqrt(dr**2 + dg**2 + db**2)
   v := Floor(d/c)
   IfLessOrEqual, c, 0, SetEnv, c, % d/( v := c<-3 ? -1-Ceil(c) : 2 )
   s := c/d
   cr:=sqrt(d**2-dg**2-db**2)*s
   cg:=sqrt(d**2-dr**2-db**2)*s
   cb:=sqrt(d**2-dg**2-dr**2)*s
   Loop %v%
   {
      u := SubStr("000000" SubStr( ""
      . ((Round(r+cr*A_Index)&255)<<16)
      | ((Round(g+cg*A_Index)&255)<<8)
      | (Round(b+cb*A_Index)&255), 3)   ,-5)
      StringUpper, u, u
      x .= delim "0x" u
   }
   SetFormat, Integer, %oif%
   return x
}