Jump to content
Sign in to follow this  
w0uter

1337 clock

Recommended Posts

#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


My UDF's:;mem stuff_Mem;ftp stuff_FTP ( OLD );inet stuff_INetGetSource ( OLD )_INetGetImage _INetBrowse ( Collection )_EncodeUrl_NetStat_Google;random stuff_iPixelSearch_DiceRoll

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...