w0uter 4 Posted April 29, 2005 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 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
randallc 0 Posted May 2, 2005 thanks! -fun. What is "leek" ExcelCOM... AccessCom.. Word2... FileListToArrayNew...SearchMiner... Regexps...SQL...Explorer...Array2D.. _GUIListView...array problem...APITailRW Share this post Link to post Share on other sites
tazdev 1 Posted May 2, 2005 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
randallc 0 Posted May 4, 2005 OK! - A bit rough; so does he want to know the script is wrong, or does he expect the user to fix it themselves? ExcelCOM... AccessCom.. Word2... FileListToArrayNew...SearchMiner... Regexps...SQL...Explorer...Array2D.. _GUIListView...array problem...APITailRW Share this post Link to post Share on other sites