AHK: Как заменить переменной повторяющуюся часть скрипта.

SameFuncName()
{
   global x6, y6
   Loop
   {
      ImageSearch, x6, y6, 0, 0, 1000, 1200, C:\test\loaded.png
      If !ErrorLevel
         Break
   }
}

SameFuncName() ; т.к. функция ни чего не возвращает, с начало вызов,
MsgBox, % "x: "x "`ny: "y "`nz: "z "`nz2: "z2 ; потом просмотр результата

SameFuncName()
{
   global z, z2 ; это глобальные переменные, их значения будут отображаться
   x:=2, y:=5 ; это локальные переменные, их зачения не будут отображаться
   z:=x*y, z2:=x//y
}

MsgBox, % SameFuncName() ; эта возвращает, по этому, сразу вызов и просмотр

SameFuncName()
{
   x:=2, y:=5
   z:=x*y, z2:=x/y
   Return, "x: "x "`ny: "y "`nz: "z "`nz2: "z2 ; это возвращаемый результат
;                           , тут все зачения переменныx будут отображаться
}

x1:=y1:=0, x2:=(y2:=1200)-200
Path:="c:\boomtime\", Tint:=""
/*
 оттенок (Tint) - щас отсутствует, если нужен, то, или
 инициализируем в переменную сразу (пример: Tint:="*120 "),
 или вписываем в параметр при вызове - примеры:
 SameFuncName(X, Y, 0, 0, 1000, 1200, "*90 ", "c:\same.png")
 или SameFuncName(X, Y, X1, Y1, X2, Y2, Tint, Path)
*/
...
Loop
   If !SameFuncName(x, y, x1, y1, x2, y2, "", Path "loaded.png")
      Break
If !SameFuncName(x, y, x1, y1, x2, y2, "", Path "error.png")
{
   SoundPlay, % Path "finish.mp3", 1
   Return
}
If !SameFuncName(x, y, x1, y1, x2, y2, "", Path "ocenena.png")
   Send, !{F4}
If !SameFuncName(x, y, x1, y1, x2, y2, "", Path "ocenka.png")
{
   Send, % ocenka
   Sleep, 500
   MouseClick,, x, y,, 0
   Sleep, 1000
   If !SameFuncName(x, y, x1, y1, x2, y2, "", Path "zakaz.png")
   {
      Sleep, 500
      Send, % pokupka
      MouseClick,, x, y,, 0
      Sleep, 500
      Send, !{F4}
   }
   Else
      Send, !{F4}
}
Sleep, 500
...

SameFuncName(ByRef OutX, ByRef OutY, X1, Y1, X2, Y2, Variation, FilePath)
{
   ImageSearch, OutX, OutY, X1, Y1, X2, Y2, % Variation . FilePath
   Return, ErrorLevel
}

x1:=y1:=0, x2:=(y2:=1200)-200
Path:="c:\boomtime\", Tint:=""

...
Loop
{
   If (v1>Sr)
   {
      SoundPlay, % Path "finish.mp3", 1
      Return
   }
   Else
      MouseMove, h1, v1
   If (A_Cursor!="Unknown")
      v1:=v1+50
   Else
      Break
}
MouseClick,, h1, v1,, 0
Sleep, 500
SameFuncName()
...

SameFuncName()
{
   global
   Loop
      If !SameFuncName2(x, y, x1, y1, x2, y2, "", Path "loaded.png")
         Break
   If !SameFuncName2(x, y, x1, y1, x2, y2, "", Path "error.png")
   {
      SoundPlay, % Path "finish.mp3", 1
      Return
   }
   If !SameFuncName2(x, y, x1, y1, x2, y2, "", Path "ocenena.png")
      Send, !{F4}
   If !SameFuncName2(x, y, x1, y1, x2, y2, "", Path "ocenka.png")
   {
      Send, % ocenka
      Sleep, 500
      MouseClick,, x, y,, 0
      Sleep, 1000
      If !SameFuncName2(x, y, x1, y1, x2, y2, "", Path "zakaz.png")
      {
         Sleep, 500
         Send, % pokupka
         MouseClick,, x, y,, 0
         Sleep, 500
         Send, !{F4}
      }
      Else
         Send, !{F4}
   }
   Sleep, 500
}

SameFuncName2(ByRef OutX, ByRef OutY, X1, Y1, X2, Y2, Variation, FilePath)
{
   ImageSearch, OutX, OutY, X1, Y1, X2, Y2, % Variation . FilePath
   Return, ErrorLevel
}

Capture:="test"
Space::Test()

WinOnTop:
   SoundBeep
   Return

RunRunRun:
   TrayTip,, % WinTtlCls
   Sleep, 750
   TrayTip
   Return

Test()
{
   global
   SetTimer, WinOnTop, -1000
   WinTtlCls:=Capture
   Gosub, RunRunRun
}

SetTimer, WinOnTop, 100, WinTtlCls=Capture
Gosub, RunRunRun