Issues with ToolTip

[xkazz]

Hey guys, I'm following some guide on youtube and I'm stuck at a certain command "ToolTip"

when used alone it shows a tooltip but I tried to use the script from the video and it somehow doesn't work, I tried the prod auto correct and it didn't detect any error.

 

 

expandcollapse popup

HotKeySet("{F2}", "GG")
$wait = 1000
$left = 0
$right = 0


Func GG()
   While 1
   Progress($left, $right)
   Send("{LEFT}")
   Sleep($wait)
   $left = $left + 1
   Progress($left, $right)
   Send("{RIGHT}")
   Sleep($wait)
   $right = $right + 1
   Progress($left, $right)
WEnd
EndFunc


Func Progress($left, $right)
   Local $hotkey = ""
   if @HotKeyPressed = "{F2}" Then
      $hotkey = "You Are gooood"
   EndIf


   ToolTip("Hotkey: " & $hotkey & " " & @hotkeypressed & @CRLF & _
   "Left: " & $left & @CRLF & _
   "right: " & $right & @CRLF & _
   "Time: " & time($left, $right), _
                           400, 500, "_____Thanks so much!_____")

EndFunc


Func time($left, $right)

   $totalSecs = (($left - $right) * $wait) / 1000
   $hrs = Floor($totalSecs / 3600)
   $mins = Floor( ( ($totalSecs / 3600) - $hrs ) *60)
   $secs = Floor( ( ($totalSecs / 60) - Floor(($totalSecs / 60)) ) * 60)
   Return $hrs & " HR: " & $mins & "MIN: " & $secs & " S"

   EndFunc

Where is the error in the code ? why is it not showing the tooltip ?

Edited July 27, 2021 by xkazz

[Musashi]

11 hours ago, xkazz said:

Where is the error in the code ? why is it not showing the tooltip ?

The script ends immediately right after the start ( before you can press F2). You will need e.g. a main loop.

expandcollapse popup

HotKeySet("{ESC}", "_Terminate")
HotKeySet("{F2}", "GG")

Local $wait = 1000, $left = 0, $right = 0

; -------------- Main-Loop -----------------
While 1
    Sleep(100)
WEnd
; -------------------------------------------


Func GG()
    While 1
        Progress($left, $right)
        Send("{LEFT}")
        Sleep($wait)
        $left = $left + 1
        Progress($left, $right)
        Send("{RIGHT}")
        Sleep($wait)
        $right = $right + 1
        Progress($left, $right)
    WEnd
EndFunc   ;==>GG


Func Progress($left, $right)
    Local $hotkey = ""
    If @HotKeyPressed = "{F2}" Then
        $hotkey = "You Are gooood"
    EndIf


    ToolTip("Hotkey: " & $hotkey & " " & @HotKeyPressed & @CRLF & _
            "Left: " & $left & @CRLF & _
            "right: " & $right & @CRLF & _
            "Time: " & time($left, $right), _
            400, 500, "_____Thanks so much!_____")

EndFunc   ;==>Progress


Func time($left, $right)
    $totalSecs = (($left - $right) * $wait) / 1000
    $hrs = Floor($totalSecs / 3600)
    $mins = Floor((($totalSecs / 3600) - $hrs) * 60)
    $secs = Floor((($totalSecs / 60) - Floor(($totalSecs / 60))) * 60)
    Return $hrs & " HR: " & $mins & "MIN: " & $secs & " S"
EndFunc   ;==>time

Func _Terminate()
    ConsoleWrite("! Script terminated by user" & @CRLF)
    Exit;
EndFunc   ;==>_Terminate

 

 

Edited July 28, 2021 by Musashi

[xkazz]

On 7/28/2021 at 5:51 AM, Musashi said:

The script ends immediately right after the start ( before you can press F2). You will need e.g. a main loop.

expandcollapse popup

HotKeySet("{ESC}", "_Terminate")
HotKeySet("{F2}", "GG")

Local $wait = 1000, $left = 0, $right = 0

; -------------- Main-Loop -----------------
While 1
    Sleep(100)
WEnd
; -------------------------------------------


Func GG()
    While 1
        Progress($left, $right)
        Send("{LEFT}")
        Sleep($wait)
        $left = $left + 1
        Progress($left, $right)
        Send("{RIGHT}")
        Sleep($wait)
        $right = $right + 1
        Progress($left, $right)
    WEnd
EndFunc   ;==>GG


Func Progress($left, $right)
    Local $hotkey = ""
    If @HotKeyPressed = "{F2}" Then
        $hotkey = "You Are gooood"
    EndIf


    ToolTip("Hotkey: " & $hotkey & " " & @HotKeyPressed & @CRLF & _
            "Left: " & $left & @CRLF & _
            "right: " & $right & @CRLF & _
            "Time: " & time($left, $right), _
            400, 500, "_____Thanks so much!_____")

EndFunc   ;==>Progress


Func time($left, $right)
    $totalSecs = (($left - $right) * $wait) / 1000
    $hrs = Floor($totalSecs / 3600)
    $mins = Floor((($totalSecs / 3600) - $hrs) * 60)
    $secs = Floor((($totalSecs / 60) - Floor(($totalSecs / 60))) * 60)
    Return $hrs & " HR: " & $mins & "MIN: " & $secs & " S"
EndFunc   ;==>time

Func _Terminate()
    ConsoleWrite("! Script terminated by user" & @CRLF)
    Exit;
EndFunc   ;==>_Terminate

 

Thank you it worked. There is a little issue with the seconds in the time and I'll fix it.