1337 clock

[w0uter]

expandcollapse popup

#NoTrayIcon

$hour = @HOUR
$min = @MIN
$s = ' '
$s2 = ' '


If $hour > 13 Then $text = "past"
If $hour < 13 Then $text = "before"
If $hour = 13 Then $text = "1337"
    
$xhour = Number(StringTrimLeft(String($hour-13), StringInStr(String($hour-13), '-')))
If $xhour <> 1 Then $s = 's '


If $text = "before" Then 
    
    If $min > 37 Then 
        $min = 37 - (60 - $min)
    ElseIf $min < 37 Then 
        $min = 37 - $min
    EndIf
        
ElseIf $text = "past" Then
    $min -= 37
ElseIf $text = "1337" Then
    SLeep(1)
EndIf

If $min <> 1 Then $s2 = 's '
$min = Number(StringTrimLeft(String($min), StringInStr(String($min), '-')))

If StringInStr(String('' & $CmdLineRaw), "-box") Then
    If $text = "1337" And $min = 37 Then
        MsgBox(0, '1337 Clock', "It is now leet.")
    Else
        MsgBox(0, '1337 Clock', "It is now " & $xhour & " hour" & $s & "and " & $min & " minute" & $s2 & $text & " leet.")
    EndIf

    Exit
EndIf

$talk = ObjCreate("SAPI.SpVoice")
If @error Then
    MsgBox(0, '1337 Clock', "You do not seem to have TTS installed" & @CRLF & @CRLF & "It is now " & $xhour & " hour" & $s & "and " & $min & " minute" & $s2 & $text & " leet.")
    Exit
EndIf

Run(@ScriptFullPath & " -box")
WinWait('1337 Clock')
If $text = "1337" And $min = 37 Then
    $talk.Speak("It is now leet.")
Else
    $talk.Speak("It is now " & $xhour & " hour" & $s & "and " & $min & " minute" & $s2 & $text & " leet.")
EndIf

[randallc]

thanks! -fun.

What is "leek"

[tazdev]

thanks! -fun.

What is "leek"

Are you referring to 1337 ? That is not leek it is leet which is short for 31337 or Elite. If those terms are foreign to you don't worry. None will be applied to you.

[randallc]

OK! -

A bit rough;

so does he want to know the script is wrong, or does he expect the user to fix it themselves?