diff options
Diffstat (limited to 'Pirate/DrunkMode.vbs')
-rwxr-xr-x | Pirate/DrunkMode.vbs | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/Pirate/DrunkMode.vbs b/Pirate/DrunkMode.vbs new file mode 100755 index 0000000..1c254e7 --- /dev/null +++ b/Pirate/DrunkMode.vbs @@ -0,0 +1,23 @@ +Set WshShell = WScript.CreateObject("WScript.Shell") +Set fso = CreateObject("Scripting.FileSystemObject") + +Dim objShell +Set objShell = Wscript.CreateObject("WScript.Shell") + +objShell.Run "tray.vbs" +objShell.Run "keys.vbs" + +Dim oPlayer +Set oPlayer = CreateObject("WMPlayer.OCX") + +do +Directory = fso.BuildPath(CurrentDirectory, "pirates.wav") +oPlayer.URL = "pirates.wav" +oPlayer.controls.play +While oPlayer.playState <> 1 ' + WScript.Sleep 100 +Wend +oPlayer.close + +c = c+1 +loop while c < 100000 |