Dim result
On Error Resume Next

result = MsgBox("Do you want to REMOVE crysis intro movies from the start of your game?", vbYesNo, "Enable Intro Movies")

If result = 6 Then
Set fso = CreateObject("Scripting.FileSystemObject")

Set aFile = fso.GetFile("Trailer_Crytek.sfd")
aFile.Move "Trailer_Crytek.bak."

Set aFile = fso.GetFile("Trailer_CrytekC.sfd")
aFile.Move "Trailer_CrytekC.bak."

Set aFile = fso.GetFile("Trailer_EA.sfd")
aFile.Move "Trailer_EA.bak."

Set aFile = fso.GetFile("Trailer_Intel.sfd")
aFile.Move "Trailer_Intel.bak."

Set aFile = fso.GetFile("Trailer_NVidia.sfd")
aFile.Move "Trailer_NVidia.bak."

Set aFile = fso.GetFile("Trailer_DemoLegal.sfd")
aFile.Move "Trailer_DemoLegal.bak."

Set aFile = fso.GetFile("Intro.sfd")
aFile.Move "Intro.bak."

Set aFile = fso.GetFile("Trailer_PEGI.sfd")
aFile.Move "Trailer_PEGI.bak."

Set aFile = fso.GetFile("Trailer_Rating_Full.sfd")
aFile.Move "Trailer_Rating_Full.bak."

Set aFile = fso.GetFile("Trailer_Rating_Logo.sfd")
aFile.Move "Trailer_Rating_Logo.bak."

Set aFile = fso.GetFile("English\Trailer_Rating.sfd")
aFile.Move "English\Trailer_Rating.bak."

Set aFile = fso.GetFile("English\Trailer_Rating_uk.sfd")
aFile.Move "English\Trailer_Rating_uk.bak."

MsgBox "Your crysis intro movies will NO LONGER PLAY." & vbNewLine & "(Reopen this file and select 'no' to restore the movies)"

Else

Set fso = CreateObject("Scripting.FileSystemObject")

Set aFile = fso.GetFile("Trailer_Crytek.bak.")
aFile.Move "Trailer_Crytek.sfd"

Set aFile = fso.GetFile("Trailer_CrytekC.bak.")
aFile.Move "Trailer_CrytekC.sfd"

Set aFile = fso.GetFile("Trailer_EA.bak.")
aFile.Move "Trailer_EA.sfd"

Set aFile = fso.GetFile("Trailer_Intel.bak.")
aFile.Move "Trailer_Intel.sfd"

Set aFile = fso.GetFile("Trailer_NVidia.bak.")
aFile.Move "Trailer_NVidia.sfd"

Set aFile = fso.GetFile("Trailer_DemoLegal.bak.")
aFile.Move "Trailer_DemoLegal.sfd"

Set aFile = fso.GetFile("Intro.bak.")
aFile.Move "Intro.sfd"

Set aFile = fso.GetFile("Trailer_PEGI.bak.")
aFile.Move "Trailer_PEGI.sfd"

Set aFile = fso.GetFile("Trailer_Rating_Full.bak.")
aFile.Move "Trailer_Rating_Full.sfd"

Set aFile = fso.GetFile("Trailer_Rating_Logo.bak.")
aFile.Move "Trailer_Rating_Logo.sfd"

Set aFile = fso.GetFile("English\Trailer_Rating.bak.")
aFile.Move "English\Trailer_Rating.sfd"

Set aFile = fso.GetFile("English\Trailer_Rating_uk.bak.")
aFile.Move "English\Trailer_Rating_uk.sfd"

MsgBox "Your crysis intro movies WILL NOW PLAY when starting up crysis."

End If

result = MsgBox("Visit Authors Website?", vbYesNo, "Feedback")

If result = 6 Then

With CreateObject("InternetExplorer.Application")

	.Navigate "http://www.rediscussed.com"
  Do Until .ReadyState = 4
    Wscript.sleep 10
  Loop
	.Visible = True

End With
End If