TheImperial

Untitled

Aug 7th, 2017
148
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  
  2. #pragma compile(Icon,C:\Users\Imperial\Desktop\Bots\Glock\g4648.ico)
  3. #pragma compile(CompanyName,'Imperial Games')
  4. #pragma compile(ProductName,Glock)
  5. #pragma compile(ProductVersion,1)
  6. #pragma compile(FileVersion,1.0.0.0)
  7. #Include <GUIConstantsEx.au3>
  8. #Include <StaticConstants.au3>
  9. #Include <Sound.au3>
  10. #Include <Utter.au3>
  11. #Include <Date.au3>
  12.  
  13. HotKeySet("{ESC}",EndProgram)
  14.  
  15. $name = "Glock"
  16. $window_width = 512
  17. $window_height = 256
  18. $Form = GUICreate($name,$window_width,$window_height,-1,-1)
  19. $Time_Output = GUICtrlCreateLabel("Time",0,$window_height/4,$window_width,$window_height/2)
  20. $button_talk = GUICtrlCreateButton("Talk",($window_width/2)-(96/2),$window_height-100,96,32)
  21. $recognize = _Utter_Speech_StartEngine()
  22. _Utter_Speech_CreateGrammar($recognize,"What Time Is It")
  23. _Utter_Speech_CreateTokens($recognize)
  24. _Utter_Speech_GrammarRecognize($recognize,"",0,"DetectAudio")
  25. GUICtrlSetStyle($Time_Output,$SS_CENTER)
  26. GUICtrlSetFont($Time_Output,40,700)
  27. GUICtrlSetColor($Time_Output,0xFFFFFF)
  28. GUISetBkColor(0x000000,$Form)
  29. GUISetIcon("C:\Users\Imperial\Desktop\Bots\Glock\g4648.ico")
  30. GUISetState(@SW_SHOW,$Form)
  31. $Hold = 500
  32.  
  33. While 1
  34.     sleep(100)
  35.     $nMsg = GUIGetMsg()
  36.     Switch $nMsg
  37.         Case $button_talk
  38.             TimeTalk()
  39.         Case $GUI_EVENT_CLOSE
  40.             EndProgram()
  41.     EndSwitch
  42.     $Time = _NowTime()
  43.     GUICtrlSetData($Time_Output,$Time)
  44. WEnd
  45.  
  46. Func TimeTalk()
  47.     Switch @HOUR
  48.         Case 0
  49.             PlayAudio("Midnight")
  50.         Case 1
  51.             PlayTime("1")
  52.         Case 2
  53.             PlayTime("2")
  54.         Case 3
  55.             PlayTime("3")
  56.         Case 4
  57.             PlayTime("4")
  58.         Case 5
  59.             PlayTime("5")
  60.         Case 6
  61.             PlayTime("6")
  62.         Case 7
  63.             PlayTime("7")
  64.         Case 8
  65.             PlayTime("8")
  66.         Case 9
  67.             PlayTime("9")
  68.         Case 10
  69.             PlayTime("10")
  70.         Case 11
  71.             PlayTime("11")
  72.         Case 12
  73.             PlayAudio("Midday")
  74.         Case 13
  75.             PlayTime("1")
  76.         Case 14
  77.             PlayTime("2")
  78.         Case 15
  79.             PlayTime("3")
  80.         Case 16
  81.             PlayTime("4")
  82.         Case 17
  83.             PlayTime("5")
  84.         Case 18
  85.             PlayTime("6")
  86.         Case 19
  87.             PlayTime("7")
  88.         Case 20
  89.             PlayTime("8")
  90.         Case 21
  91.             PlayTime("9")
  92.         Case 22
  93.             PlayTime("10")
  94.         Case 23
  95.             PlayTime("11")
  96.     EndSwitch
  97.     Switch @MIN
  98.         Case 1
  99.             PlayMinutes("1")
  100.         Case 2
  101.             PlayMinutes("2")
  102.         Case 3
  103.             PlayMinutes("3")
  104.         Case 4
  105.             PlayMinutes("4")
  106.         Case 5
  107.             PlayMinutes("5")
  108.         Case 6
  109.             PlayMinutes("6")
  110.         Case 7
  111.             PlayMinutes("7")
  112.         Case 8
  113.             PlayMinutes("8")
  114.         Case 9
  115.             PlayMinutes("9")
  116.         Case 10
  117.             PlayMinutes("10")
  118.         Case 11
  119.             PlayMinutes("11")
  120.         Case 12
  121.             PlayMinutes("12")
  122.         Case 13
  123.             PlayMinutes("13")
  124.         Case 14
  125.             PlayMinutes("14")
  126.         Case 15
  127.             PlayMinutes("15")
  128.         Case 16
  129.             PlayMinutes("16")
  130.         Case 17
  131.             PlayMinutes("17")
  132.         Case 18
  133.             PlayMinutes("18")
  134.         Case 19
  135.             PlayMinutes("19")
  136.         Case 20
  137.             PlayMinutes("20")
  138.         Case 21
  139.             PlayMinutes("21")
  140.         Case 22
  141.             PlayMinutes("22")
  142.         Case 23
  143.             PlayMinutes("23")
  144.         Case 24
  145.             PlayMinutes("24")
  146.         Case 25
  147.             PlayMinutes("25")
  148.         Case 26
  149.             PlayMinutes("26")
  150.         Case 27
  151.             PlayMinutes("27")
  152.         Case 28
  153.             PlayMinutes("28")
  154.         Case 29
  155.             PlayMinutes("29")
  156.         Case 30
  157.             PlayMinutes("30")
  158.         Case 31
  159.             PlayMinutes("31")
  160.         Case 32
  161.             PlayMinutes("32")
  162.         Case 33
  163.             PlayMinutes("33")
  164.         Case 34
  165.             PlayMinutes("34")
  166.         Case 35
  167.             PlayMinutes("35")
  168.         Case 36
  169.             PlayMinutes("36")
  170.         Case 37
  171.             PlayMinutes("37")
  172.         Case 38
  173.             PlayMinutes("38")
  174.         Case 39
  175.             PlayMinutes("39")
  176.         Case 40
  177.             PlayMinutes("40")
  178.         Case 41
  179.             PlayMinutes("41")
  180.         Case 42
  181.             PlayMinutes("42")
  182.         Case 43
  183.             PlayMinutes("43")
  184.         Case 44
  185.             PlayMinutes("44")
  186.         Case 45
  187.             PlayMinutes("45")
  188.         Case 46
  189.             PlayMinutes("46")
  190.         Case 47
  191.             PlayMinutes("47")
  192.         Case 48
  193.             PlayMinutes("48")
  194.         Case 49
  195.             PlayMinutes("49")
  196.         Case 50
  197.             PlayMinutes("50")
  198.         Case 51
  199.             PlayMinutes("51")
  200.         Case 52
  201.             PlayMinutes("52")
  202.         Case 53
  203.             PlayMinutes("53")
  204.         Case 54
  205.             PlayMinutes("54")
  206.         Case 55
  207.             PlayMinutes("55")
  208.         Case 56
  209.             PlayMinutes("56")
  210.         Case 57
  211.             PlayMinutes("57")
  212.         Case 58
  213.             PlayMinutes("58")
  214.         Case 59
  215.             PlayMinutes("59")
  216.     EndSwitch
  217. EndFunc
  218.  
  219. Func DayPeriod()
  220.     If @HOUR > 0 And @HOUR < 12 Then
  221.         return "AM"
  222.     Else
  223.         return "PM"
  224.     EndIf
  225. EndFunc
  226.  
  227. Func PlayTime($string)
  228.     PlayAudio("It's")
  229.     sleep($Hold)
  230.     PlayAudio($string)
  231.     sleep($Hold)
  232.     Local $Period = DayPeriod()
  233.     If $Period = "AM" Then
  234.         PlayAudio("AM")
  235.     Else
  236.         PlayAudio("PM")
  237.     EndIf
  238.     sleep($Hold)
  239. EndFunc
  240.  
  241. Func PlayMinutes($string)
  242.     PlayAudio("And")
  243.     sleep($Hold)
  244.     PlayAudio($string)
  245.     sleep($Hold * 2)
  246.     PlayAudio("Minutes")
  247. EndFunc
  248.  
  249. Func PlayAudio($filename)
  250.     Local $File = _SoundOpen(@ScriptDir & "/Audio/" & $filename & ".mp3")
  251.     _SoundPlay($File)
  252. EndFunc
  253.  
  254. Func DetectAudio($string)
  255.     If $string = "What Time Is It" Then
  256.         TimeTalk()
  257.     EndIf
  258. EndFunc
  259.  
  260. Func EndProgram()
  261.     GUIDelete($Form)
  262.     Exit
  263. EndFunc
RAW Paste Data