mrwm

do
    dim s
    randomize
    s = int(rnd*11) + 1
    select case s
        case 1
            WScript.Sleep 1000
            MsgBox "DERP" ,0, "derp"
        case 2
		    WScript.Sleep 1000

mrwm

'
'Credit for the author here: # Credit: https://www.reddit.com/r/AskReddit/comments/44tard/what_was_a_loophole_that_you_found_and_exploited/czt5wl8
'

Set WshShell = CreateObject("WScript.Shell")
Set WinFSO = CreateObject("Scripting.FileSystemObject")
Set oVoice = CreateObject("SAPI.SpVoice")

'Since you're probably playing with this script, create a batch file to easily kill it. 
'WinFSO.CreateTextFile("stahp.plz.bat", True).Write "taskkill /im wscript.exe /f"

mrwm

# Credit: https://www.reddit.com/r/AskReddit/comments/44tard/what_was_a_loophole_that_you_found_and_exploited/czt5wl8
while true
do
  sleep $[RANDOM%3600+1]
  osascript -e "set volume 10"
  say "balls"
done