[Syavak]

вот воде код получше выглядает но кнопка не нажимается
если ктото знает подскажите как в функцию Send("{1}") можна впихнуть переменную $Button чтобы нажимала не 1 а то чему равно $Button

Код:

Global $Paused
    HotKeySet("{INS}", "TogglePause")
	WinActive("Game")
    WinActivate("Game")
	$j = 1 ; Слот аптеки
	$i = 1 ; КОЛИЧЕСТВО использования аптеки
	$Lim = 20 ; КОЛИЧЕСТВО использования аптеки до переключения на следующую
	$Polosa = 1
	Dim $Polosa[9] = [1,2,3,4,5,6,7,8,9]
		While $j <= 9
			if $Polosa = 1 Then 
			    $Button = "{2}"
				EndIf
			if $Polosa = 2 Then
				$Button = "{3}" 
				EndIf
			if $Polosa = 3 Then 
				$Button = "{4}" 
				EndIf
			if $Polosa = 4 Then 
				$Button = "{5}"
				EndIf
			if $Polosa = 5 Then 
				$Button = "{6}" 
				EndIf
			if $Polosa = 6 Then 
				$Button = "{7}" 
				EndIf
			if $Polosa = 7 Then
				$Button = "{8}" 
				EndIf
			if $Polosa = 8 Then 
				$Button = "{9}" 
				EndIf
			if $Polosa = 9 Then 
			   $Button = "{0}" 
		        EndIf
		            $j = $j + 1
					$i = 0	
                    While $i < $Lim
						;MsgBox(0, "Цыкл", "%"&$Button&"="& $j &"<>"& $i &"=", 60 )
						$Mob_HP = PixelGetColor(258, 55) ; цвет пикселя на данный момент времени
					    $Mob_HP_cvet = 0xC00D10 ;цвет, который нужен мне	
						$Self_HP = PixelGetColor(147, 816) ; цвет пикселя на данный момент времени
                        $Self_HP_cvet = 0x555137 ;цвет, который нужен мне
                        if $Self_HP = $Self_HP_cvet Then
                            Send($Button);делается действие трали вали
	                    EndIf
                        if $Mob_HP = $Mob_HP_cvet Then
                            Send("{1}");делается действие трали вали
                            Sleep(1000)
                            Send("{1}");делается действие трали вали
	                    EndIf
				$i = $i + 1
			WEnd
				WEnd
Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc