Global $yvar, $X, $Y, $Umschaltung, $Abzug, $fPosition, $geschwindigkeit, $xvar, $richtung $yvar = 1 $Umschaltung = 0 $Abzug = 0 $geschwindigkeit = 10 $xvar = 1 $fTitel = "" HotKeySet("{UP}","UP") HotKeySet("{RIGHT}","RIGHT") HotKeySet("{LEFT}","LEFT") HotKeySet("{DOWN}","DOWN") HotKeySet("{ESC}","Escape") While 1 Fenster() Berechnung() Neue_Position() Sleep(1) WEnd Func Fenster() $fTitelneu = WinGetTitle("[ACTIVE]") If $fTitelneu <> $fTitel Then WinMove($fTitel,"",0,0) $fTitel = $fTitelneu $geschwindigkeit = 10 $yVar = 1 $xVar = 1 $Umschaltung = 0 $Abzug = 0 EndIf $fPosition = WinGetPos($fTitel) EndFunc Func Berechnung() $fPosition = WinGetPos($fTitel) If $fPosition[0] >= (@DesktopWidth - $fPosition[2]) Then $richtung = 0 ElseIf $fPosition[0] <= 0 Then $richtung = 1 EndIf If $Umschaltung = 0 Then $yvar = $yvar + ($yvar/$geschwindigkeit) $Y = $Y + $yvar If $Y >= (@DesktopHeight - $fPosition[3]) Then $xvar = $xvar - ($xvar/5) $Umschaltung = 1 EndIf ElseIf $Umschaltung = 1 Then If $Abzug = 0 Then $yvar = $yvar - ($yvar/5) $Abzug = 1 EndIf $yvar = $yvar - ($yvar/$geschwindigkeit) $Y = $Y - $yvar If $yvar <= 2 Then $Umschaltung = 0 $Abzug = 0 EndIf EndIf If $xvar > 1 Then If $richtung = 1 Then $X = $X + $xvar ElseIf $richtung = 0 Then $X = $X - $xvar EndIf EndIf EndFunc Func Neue_Position() WinMove($fTitel,"", $X, $Y) EndFunc Func UP() $geschwindigkeit = 10 $Umschaltung = 1 $Abzug = 0 $yvar = 55 EndFunc Func RIGHT() If $richtung = 0 Then $xvar = 10 $richtung = 1 Else $xvar = $xvar + 10 $richtung = 1 EndIf EndFunc Func LEFT() If $richtung = 1 Then $xvar = 10 $richtung = 0 Else $xvar = $xvar + 10 $richtung = 0 EndIf EndFunc Func DOWN() $geschwindigkeit = 3 EndFunc Func Escape() WinMove($fTitel,"",0,0) Exit EndFunc