Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- pink=Msgbox("[1/3] ¬ам нравитс¤ тащить с дигла?",vbYesNo+vbQuestion, "")
- dead=Msgbox("[2/3] Хотите владеть стрельбой с AWP?",vbYesNo+vbQuestion, "")
- radar=Msgbox("[3/3] Сделал репост?",vbYesNo+vbQuestion, "")
- Const ForReading = 1
- Const ForWriting = 2
- Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set objShell = CreateObject("Wscript.Shell")
- dim OnlyRadar
- If radar = 6 Then
- Set Folder = objFSO.GetFolder("C:\Program Files")
- For Each File in Folder.Files
- If InStr(File.Name,"_spectate.dds") => 1 Then
- OnlyRadar = Replace(File.Name,"_spectate","")
- source = (Folder & "\" & File.Name)
- destination = (Folder & "\" & OnlyRadar)
- objFSO.CopyFile source, destination, True
- End If
- Next
- End If
- Set objFile = objFSO.OpenTextFile("csgo_english.txt", ForReading, false, -1)
- strText = objFile.ReadAll
- objFile.Close
- 'SFUI_MainMenu_PlayButton'csgo_english
- strText = Replace(strText,"PLAY", "<font color='#df73ff'>PLAY</font>")
- 'SFUI_MainMenu_Inventory'csgo_english
- strText = Replace(strText,"INVENTORY", "<font color='#ffbf00'>INVENTORY</font>")
- 'SFUI_MainMenu_Watch'csgo_english
- strText = Replace(strText,"WATCH", "<font color='#ffbf00'>WATCH</font>")
- 'SFUI_MainMenu_My_Awards'csgo_english
- strText = Replace(strText,"AWARDS", "<font color='#ffbf00'>AWARDS</font>")
- 'SFUI_MainMenu_HelpButton'csgo_english
- strText = Replace(strText,"OPTIONS", "<font color='#ffbf00'>OPTIONS</font>")
- 'GameUI_Stats_LastMatch_CTWins'csgo_english
- strText = Replace(strText,"Counter-Terrorists: %s1", "<font color='#7cd200'>Counter-Terrorists:</font> <font color='#8a2be2'>%s1</font>")
- 'GameUI_Stats_LastMatch_TWins'csgo_english
- strText = Replace(strText,"Terrorists: %s1", "<font color='#de4940'>Terrorists:</font> <font color='#8a2be2'>%s1</font>")
- 'GameUI_Stats_MapWins'csgo_english
- strText = Replace(strText,"Wins: %s1", "<font color='#d2007c'>Wins:</font> <font color='#4dffaa'>%s1</font>")
- 'Cstrike_TitlesTXT_CTs_Win'csgo_english
- strText = Replace(strText,"Counter-Terrorists Win!", "<font color='#d2007c'>Counter-Terrorists Win!</font>")
- 'Cstrike_TitlesTXT_Terrorists_Win'csgo_english
- strText = Replace(strText,"Terrorists Win!", "<font color='#d2007c'>Terrorists Win!/font>")
- 'SFUI_ELO_RankName_1'csgo_english
- strText = Replace(strText,"Silver I", "<font color='#ce2029'>Silver I</font>")
- 'SFUI_ELO_RankName_2'csgo_english
- strText = Replace(strText,"Silver II", "<font color='#ce2029'>Silver II</font>")
- 'SFUI_ELO_RankName_3'csgo_english
- strText = Replace(strText,"Silver III", "<font color='#ce2029'>Silver III</font>")
- 'SFUI_ELO_RankName_4'csgo_english
- strText = Replace(strText,"Silver IV", "<font color='#ce2029'>Silver IV</font>")
- 'SFUI_ELO_RankName_5'csgo_english
- strText = Replace(strText,"Silver Elite", "<font color='#ce2029'>Silver Elite</font>")
- 'SFUI_ELO_RankName_6'csgo_english
- strText = Replace(strText,"Silver Elite Master", "<font color='#ce2029'>Silver Elite Master</font>")
- 'SFUI_ELO_RankName_7'csgo_english
- strText = Replace(strText,"Gold Nova I", "<font color='#ccff00'>Gold Nova I</font>")
- 'SFUI_ELO_RankName_8'csgo_english
- strText = Replace(strText,"Gold Nova II", "<font color='#ccff00'>Gold Nova II</font>")
- 'SFUI_ELO_RankName_9'csgo_english
- strText = Replace(strText,"Gold Nova III", "<font color='#ccff00'>Gold Nova III</font>")
- 'SFUI_ELO_RankName_10'csgo_english
- strText = Replace(strText,"Gold Nova Master", "<font color='#ccff00'>Gold Nova Master</font>")
- 'SFUI_ELO_RankName_12'csgo_english
- strText = Replace(strText,"Master Guardian II", "<font color='#ffdf00'>Master Guardian II</font>")
- 'SFUI_ELO_RankName_11'csgo_english
- strText = Replace(strText,"Master Guardian I", "<font color='#ffdf00'>Master Guardian I</font>")
- 'SFUI_ELO_RankName_13'csgo_english
- strText = Replace(strText,"Master Guardian Elite", "<font color='#ffdf00'>Master Guardian Elite</font>")
- 'SFUI_ELO_RankName_14'csgo_english
- strText = Replace(strText,"Distinguished Master Guardian", "<font color='#29ab87'>You're a Big Motherfucker Star!</font>")
- 'SFUI_ELO_RankName_16'csgo_english
- strText = Replace(strText,"Legendary Eagle Master", "<font color='#cc00cc'>Legendary Eagle Master!</font>")
- 'SFUI_ELO_RankName_15'csgo_english
- strText = Replace(strText,"Legendary Eagle", "<font color='#cc00cc'>Legendary Eagle</font>")
- 'SFUI_ELO_RankName_17'csgo_english
- strText = Replace(strText,"Supreme Master First Class", "<font color='#ffff00'>Supreme Master First Class</font>")
- 'SFUI_ELO_RankName_18'csgo_english
- strText = Replace(strText,"The Global Elite", "<font color='#ff004f'>The Global Elite</font>")
- 'SFUI_Freeze_Snapshot'csgo_english
- strNewText = Replace(strText,chr(34)&"[%s1] Save this moment", chr(34)&"<font size='0'>[%s1] Save this moment</font>")
- 'FreezePanel_ScreenShot'csgo_english
- strNewText = Replace(strNewText,chr(34)&"[F5] Save this moment", chr(34)&"<font size='0'>[F5] Save this moment</font>")
- 'FreezePanel_DamageTaken'csgo_english
- strNewText = Replace(strNewText,"<font color='#A0A0A0'>Damage taken: </font><font color='#FFFFFF'><b>%s1</b></font> <font color='#A0A0A0'> in</font> <font color='#FFFFFF'><b>%s2 hit </b></font> <font color='#A0A0A0'>from %s3</font>", "<font color='#A0A0A0'>Damage taken: </font><font size='18' color='#ff0080'>%s1</font> <font color='#A0A0A0'> in</font> <font size='18' color='#ff0080'>%s2 hit </font> <font color='#A0A0A0'>from %s3</font>")
- 'FreezePanel_DamageGiven'csgo_english
- strNewText = Replace(strNewText,"<font color='#A0A0A0'>Damage given: </font><font color='#FFFFFF'><b>%s1</b></font> <font color='#A0A0A0'> in</font> <font color='#FFFFFF'><b>%s2 hit </b></font> <font color='#A0A0A0'>to %s3</font>", "<font color='#A0A0A0'>Damage given: </font><font size='18' color='#00ff00'>%s1</font> <font color='#A0A0A0'> in</font> <font size='18' color='#00ff00'>%s2 hit </font> <font color='#A0A0A0'>to %s3</font>")
- 'FreezePanel_DamageTaken_Multi'csgo_english
- strNewText = Replace(strNewText,"<font color='#A0A0A0'>Damage taken: </font><font color='#FFFFFF'><b>%s1</b></font> <font color='#A0A0A0'> in</font> <font color='#FFFFFF'><b>%s2 hits </b></font> <font color='#A0A0A0'>from %s3</font>", "<font color='#A0A0A0'>Damage taken: </font><font size='18' color='#ff0080'>%s1</font> <font color='#A0A0A0'> in</font> <font size='18' color='#ff0080'>%s2 hits </font> <font color='#A0A0A0'>from %s3</font>")
- 'FreezePanel_DamageGiven_Multi'csgo_english
- strNewText = Replace(strNewText,"<font color='#A0A0A0'>Damage given: </font><font color='#FFFFFF'><b>%s1</b></font> <font color='#A0A0A0'> in</font> <font color='#FFFFFF'><b>%s2 hits </b></font> <font color='#A0A0A0'>to %s3</font>", "<font color='#A0A0A0'>Damage given: </font><font size='18' color='#00ff00'>%s1</font> <font color='#A0A0A0'> in</font> <font size='18' color='#00ff00'>%s2 hits </font> <font color='#A0A0A0'>to %s3</font>")
- 'SFUIHUD_playerid_sameteam'csgo_english
- strNewText = Replace(strNewText,"<font color='#6E7D5C'>Friend: %s1 Health: %s2</font>", "<font size='15' color='#9FDB56'>%s1 | %s2</font>")
- 'SFUIHUD_playerid_diffteam'csgo_english
- strNewText = Replace(strNewText,"<font color='#CC0000'>Enemy: %s1</font>", "<font size='30' color='#FF0073'>%s1</font>")
- 'SFUIHUD_playerid_specteam'csgo_english
- strNewText = Replace(strNewText,"<font color='#6E7D5C'>%s1</font>", "<font size='20' color='#6E7D5C'>%s1</font>")
- 'SFUIHUD_playerid_overhead_ct'csgo_english
- strNewText = Replace(strNewText,"<font color='#3f74c8'>%s1</font><font color='#5e779f'> %s2</font>", "<font size='20' color='#4f92ff'>%s1</font><font size='25' color='#00ff00'> %s2</font>")
- 'SFUIHUD_playerid_overhead_ct_lowhealth'csgo_english
- strNewText = Replace(strNewText,"<font color='#3f74c8'>%s1</font><font color='#d82429'> %s2</font>", "<font size='20' color='#4f92ff'>%s1</font><font size='30' color='#ff0080'> %s2</font>")
- 'SFUIHUD_playerid_overhead_ct_money'csgo_english
- strNewText = Replace(strNewText,"<font color='#3f74c8'>%s1</font><font color='#7ebc50'> %s2</font>", "<font size='20' color='#3f74c8'>%s1</font><font size='25' color='#00ff00'> %s2</font>")
- 'SFUIHUD_playerid_overhead_t'csgo_english
- strNewText = Replace(strNewText,"<font color='#c3953f'>%s1</font><font color='#9a8661'> %s2</font>", "<font size='20' color='#ffc252'>%s1</font><font size='25' color='#00ff00'> %s2</font>")
- 'SFUIHUD_playerid_overhead_t_lowhealth'csgo_english
- strNewText = Replace(strNewText,"<font color='#c3953f'>%s1</font><font color='#d82429'> %s2</font>", "<font size='20' color='#ffc252'>%s1</font><font size='30' color='#ff0080'> %s2</font>")
- 'SFUIHUD_playerid_overhead_t_money'csgo_english
- strNewText = Replace(strNewText,"<font color='#c3953f'>%s1</font><font color='#7ebc50'> %s2</font>", "<font size='20' color='#c3953f'>%s1</font><font size='25' color='#00ff00'> %s2</font>")
- 'SFUIHUD_weaponid_pickup'csgo_english
- strNewText = Replace(strNewText,chr(34)&"${use} swap for %s1", chr(34)&"<font size='30'>${use} swap for %s1</font>")
- 'SFUIHUD_weaponid_c4defuse'csgo_english
- strNewText = Replace(strNewText,chr(34)&"${use} defuse the C4", chr(34)&"<font size='30'>${use} defuse the C4</font>")
- 'SFUIHUD_targetid_FLASHED'csgo_english
- strNewText = Replace(strNewText,"<font color='#6600ff'>(BLINDED)</font>", "<font size='15' color='#6600ff'>(BLINDED)</font>")
- 'Game_radio'csgo_english
- strNewText = Replace(strNewText,"%s1 (RADIO): %s2", "%s1 (RADIO): %s2")
- 'Game_radio_location'csgo_english
- strNewText = Replace(strNewText,"%s1 @ %s2 (RADIO): %s3", "%s1 %s2 (Radio): %s3")
- 'Cstrike_Chat_CT_Loc'csgo_english
- strNewText = Replace(strNewText,"(Counter-Terrorist) %s1 @ %s3 : %s2", "(Counter-Terrorist) %s1 %s3 : %s2")
- 'Cstrike_Chat_CT'csgo_english
- strNewText = Replace(strNewText,"(Counter-Terrorist) %s1 : %s2", "(Counter-Terrorist) %s1 : %s2")
- 'Cstrike_Chat_T_Loc'csgo_english
- strNewText = Replace(strNewText,"(Terrorist) %s1 @ %s3 : %s2", "(Terrorist) %s1 %s3 : %s2")
- 'Cstrike_Chat_T'csgo_english
- strNewText = Replace(strNewText,"(Terrorist) %s1 : %s2", "(Terrorist) %s1 : %s2")
- 'Cstrike_Chat_CT_Dead'csgo_english
- strNewText = Replace(strNewText,"*DEAD*(Counter-Terrorist) %s1 : %s2", "*DEAD*(Counter-Terrorist) %s1 : %s2")
- 'Cstrike_Chat_T_Dead'csgo_english
- strNewText = Replace(strNewText,"*DEAD*(Terrorist) %s1 : %s2", "*DEAD*(Terrorist) %s1 : %s2")
- 'Cstrike_Chat_Spec'csgo_english
- strNewText = Replace(strNewText,"(Spectator) %s1 : %s2", "(Spectator) %s1 : %s2")
- 'Cstrike_Chat_All'csgo_english
- strNewText = Replace(strNewText,"%s1 : %s2", "%s1 : %s2")
- 'Cstrike_Chat_AllDead'csgo_english
- strNewText = Replace(strNewText,"*DEAD* %s1 : %s2", "*DEAD* %s1 : %s2")
- 'Cstrike_Chat_AllSpec'csgo_english
- strNewText = Replace(strNewText,"*SPEC* %s1 : %s2", "*SPEC* %s1 : %s2")
- 'Cstrike_Name_Change'csgo_english
- strNewText = Replace(strNewText,"* %s1 changed name to %s2", "* %s1 changed name to %s2")
- 'SFUI_TitlesTXT_Flashbang_in_the_hole'csgo_english
- strNewText = Replace(strNewText,"Flashbang Out!", "Flashbang Out!")
- 'SFUI_TitlesTXT_Incendiary_in_the_hole'csgo_english
- strNewText = Replace(strNewText,"FireBomb on the way!", "FireBomb on the way!")
- 'SFUI_TitlesTXT_Molotov_in_the_hole'csgo_english
- strNewText = Replace(strNewText,"FireBomb on the way!", "FireBomb on the way!")
- 'SFUI_TitlesTXT_Decoy_in_the_hole'csgo_english
- strNewText = Replace(strNewText,"Decoy Out!", "Decoy Out!")
- 'SFUIHUD_Spectate_Navigation_Camera'csgo_english
- strNewText = Replace(strNewText,"${+jump} Camera ", "<font size='0'>${+jump} Camera</font>")
- 'SFUIHUD_Spectate_Navigation_Arrows'csgo_english
- strNewText = Replace(strNewText,"${+attack} Next Player", "<font size='0'>${+attack}Next Player</font>")
- 'SFUIHUD_Spectate_Navigation_ToggleOverview'csgo_english
- strNewText = Replace(strNewText,"${+duck} Overview ", "<font size='0'>${+duck} Overview</font>")
- 'Player_Cash_Award_Killed_Enemy_Generic'csgo_english
- strNewText = Replace(strNewText," %s1: Award for neutralizing an enemy.", " %s1: Award for neutralizing an enemy.")
- 'Player_Cash_Award_Killed_Enemy'csgo_english
- strNewText = Replace(strNewText," %s1: Award for neutralizing an enemy with the %s2.", " %s1: Award for neutralizing an enemy with the %s2.")
- 'Player_Cash_Award_Kill_Teammate'csgo_english
- strNewText = Replace(strNewText," %s1: Penalty for killing a friendly.", " %s1: Penalty for killing a friendly.")
- 'Cstrike_TitlesTXT_Game_teammate_attack'csgo_english
- strNewText = Replace(strNewText,"%s1 attacked a teammate.", " %s1 attacked a teammate.")
- 'Cstrike_TitlesTXT_Game_teammate_kills'csgo_english
- strNewText = Replace(strNewText,chr(34)&"Teammate kills: %s1 of 3", chr(34)&" Teammate kills: %s1 of 3")
- 'Player_Point_Award_Killed_Enemy'csgo_english
- strNewText = Replace(strNewText," %s1 point for neutralizing an enemy with the %s2.", " %s1 point for neutralizing an enemy with the %s2.")
- 'Player_Point_Award_Killed_Enemy_Plural'csgo_english
- strNewText = Replace(strNewText," %s1 points for neutralizing an enemy with the %s2.", " %s1 points for neutralizing an enemy with the %s2.")
- 'FreezePanel_Killer1_KillerWeapon'csgo_english
- strNewText = Replace(strNewText,"killed you with their %s1", "killed you with their <b>%s1</b>")
- 'FreezePanel_Killer1_OthersWeapon'csgo_english
- strNewText = Replace(strNewText,"killed you with <font color='#adadad'>%s2's</font> <b>%s1", "killed you with <font color='#adadad'>%s2's</font> <b>%s1</b>")
- 'FreezePanel_Killer1_YourWeapon'csgo_english
- strNewText = Replace(strNewText,"killed you with your own %s1", "killed you with your own <b>%s1</b>")
- 'FreezePanel_Killer1_Weapon'csgo_english
- strNewText = Replace(strNewText,"killed you with the %s1", "killed you with the <b>%s1</b>")
- 'SFUI_Notice_DM_BonusWeaponText'csgo_english
- strNewText = Replace(strNewText,"The bonus weapon for the next %s1 seconds is: %s2", "The bonus weapon for the next %s1 seconds is: %s2")
- 'Player_You_Are_Now_Dominating'csgo_english
- strNewText = Replace(strNewText,"You are now dominating %s1.", "You are now dominating %s1.")
- 'Player_You_Are_Still_Dominating'csgo_english
- strNewText = Replace(strNewText,"You are still dominating %s1.", "You are still dominating %s1.")
- 'SFUI_ARFlashAlert_ReachedLevel'csgo_english
- strNewText = Replace(strNewText,"Reached Level %s1 / %s2", "Reached Level <font size='30' color='#00FF00'><b>%s1</b></font> / %s2")
- 'SFUIHUD_Spectate_Navigation_Control_Bot_Keyboard'csgo_english
- strNewText = Replace(strNewText,"${+use} Control Bot ", "${+use} <img src='icon_like.png' width='15' height='15' vspace='-7'/>Control Bot ")
- 'hostagerescuetime'csgo_english
- strNewText = Replace(strNewText,"The CTs have earned more time by reaching a hostage.", " The CTs have earned more time by reaching a hostage.")
- 'SFUI_Notice_Knife_Level'csgo_english
- strNewText = Replace(strNewText,"%s1 has reached gold knife level!", " %s1 has reached gold knife level!")
- 'Cstrike_TitlesTXT_Switch_To_BurstFire'csgo_english
- strNewText = Replace(strNewText,chr(34)&"Switched to burst-fire mode", chr(34)&"<font color='#fff000'>Switched to burst-fire mode</font>")
- 'SFUI_Scoreboard_Navigation_PlayerDetails'csgo_english
- strNewText = Replace(strNewText,"<img src='arrow_key.png' width='15' height='15' vspace='-7'/> <img src='arrow_dn_key.png' width='15' height='15' vspace='-7'/>Select Player <img src='enter_key.png' width='31' height='15' vspace='-5'/>Show Profile", "<font size='0'>SFUI_Scoreboard_Navigation_PlayerDetails</font>")
- 'SFUIHUD_Spectate_SpecMode_Director'csgo_english
- strNewText = Replace(strNewText,"[Auto Director]", "<img src='icon_refresh.png' width='15' height='15' vspace='-7'/>")
- 'Cstrike_TitlesTXT_Game_afk_bomb_drop'csgo_english
- strNewText = Replace(strNewText,chr(34)&"I dropped the bomb.", chr(34)&" I dropped the bomb. ")
- 'SFUI_Scoreboard_Navigation_Cursor_Hint'csgo_english
- strNewText = Replace(strNewText,chr(34)&"<img src='info_icon.png' width='14' height='14' vspace='-13'/><b>%s1</b> Enables Cursor", chr(34)&"<font size='0'>SFUI_Scoreboard_Navigation_Cursor_Hint</font>")
- 'Thanks Orel
- 'SFUI_Lobby_StatusRichPresence_classic_casual_lobby'csgo_english
- strNewText = Replace(strNewText,chr(34)&"In CS:GO Casual Lobby", chr(34)&"In Casual Lobby")
- 'SFUI_Lobby_StatusRichPresence_classic_casual_game'csgo_english
- strNewText = Replace(strNewText,chr(34)&"Playing CS:GO Casual", chr(34)&"Playing Casual")
- 'SFUI_Lobby_StatusRichPresence_classic_casual_community'csgo_english
- strNewText = Replace(strNewText,chr(34)&"CS:GO Community Casual", chr(34)&"Community Casual")
- 'SFUI_Lobby_StatusRichPresence_classic_casual_watch'csgo_english
- strNewText = Replace(strNewText,chr(34)&"Watching CS:GO Casual", chr(34)&"WatchingCasual")
- 'SFUI_Lobby_StatusRichPresence_classic_casual_review'csgo_english
- strNewText = Replace(strNewText,chr(34)&"Replaying CS:GO Casual", chr(34)&"Replaying Casual")
- 'SFUI_Lobby_StatusRichPresence_classic_competitive_lobby'csgo_english
- strNewText = Replace(strNewText,chr(34)&"In CS:GO Competitive Lobby", chr(34)&"In MM Lobby")
- 'SFUI_Lobby_StatusRichPresence_classic_competitive_game'csgo_english
- strNewText = Replace(strNewText,chr(34)&"CS:GO Competitive", chr(34)&"MM")
- 'SFUI_Lobby_StatusRichPresence_classic_competitive_community'csgo_english
- strNewText = Replace(strNewText,chr(34)&"CS:GO Community Competitive", chr(34)&"Community Competitive")
- 'SFUI_Lobby_StatusRichPresence_classic_competitive_watch'csgo_english
- strNewText = Replace(strNewText,chr(34)&"Watching CS:GO", chr(34)&"Watching MM")
- 'SFUI_Lobby_StatusRichPresence_classic_competitive_review'csgo_english
- strNewText = Replace(strNewText,chr(34)&"Replaying CS:GO", chr(34)&"Replaying MM")
- 'SFUI_Lobby_StatusRichPresence_gungame_gungameprogressive_lobby'csgo_english
- strNewText = Replace(strNewText,chr(34)&"In CS:GO Arms Race Lobby", chr(34)&"In Arms Race Lobby")
- 'SFUI_Lobby_StatusRichPresence_gungame_gungameprogressive_game'csgo_english
- strNewText = Replace(strNewText,chr(34)&"Playing CS:GO Arms Race", chr(34)&"Playing Arms Race")
- 'SFUI_Lobby_StatusRichPresence_gungame_gungameprogressive_community'csgo_english
- strNewText = Replace(strNewText,chr(34)&"CS:GO Community Arms Race", chr(34)&"Community Arms Race")
- 'SFUI_Lobby_StatusRichPresence_gungame_gungameprogressive_watch'csgo_english
- strNewText = Replace(strNewText,chr(34)&"Watching CS:GO Arms Race", chr(34)&"Watching Arms Race")
- 'SFUI_Lobby_StatusRichPresence_gungame_gungameprogressive_review'csgo_english
- strNewText = Replace(strNewText,chr(34)&"Replaying CS:GO Arms Race", chr(34)&"Replaying Arms Race")
- 'SFUI_Lobby_StatusRichPresence_gungame_gungametrbomb_lobby'csgo_english
- strNewText = Replace(strNewText,chr(34)&"In CS:GO Demolition Lobby", chr(34)&"In Demolition Lobby")
- 'SFUI_Lobby_StatusRichPresence_gungame_gungametrbomb_game'csgo_english
- strNewText = Replace(strNewText,chr(34)&"Playing CS:GO Demolition", chr(34)&"Playing Demolition")
- 'SFUI_Lobby_StatusRichPresence_gungame_gungametrbomb_community'csgo_english
- strNewText = Replace(strNewText,chr(34)&"CS:GO Community Demolition", chr(34)&"Community Demolition")
- 'SFUI_Lobby_StatusRichPresence_gungame_gungametrbomb_watch'csgo_english
- strNewText = Replace(strNewText,chr(34)&"Watching CS:GO Demolition", chr(34)&"Watching Demolition")
- 'SFUI_Lobby_StatusRichPresence_gungame_gungametrbomb_review'csgo_english
- strNewText = Replace(strNewText,chr(34)&"Replaying CS:GO Demolition", chr(34)&"Replaying Demolition")
- 'SFUI_Lobby_StatusRichPresence_gungame_deathmatch_lobby'csgo_english
- strNewText = Replace(strNewText,chr(34)&"In CS:GO Deathmatch Lobby", chr(34)&"In Deathmatch Lobby")
- 'SFUI_Lobby_StatusRichPresence_gungame_deathmatch_game'csgo_english
- strNewText = Replace(strNewText,chr(34)&"Playing CS:GO Deathmatch", chr(34)&"Playing Deathmatch")
- 'SFUI_Lobby_StatusRichPresence_gungame_deathmatch_community'csgo_english
- strNewText = Replace(strNewText,chr(34)&"CS:GO Community Deathmatch", chr(34)&"Community Deathmatch")
- 'SFUI_Lobby_StatusRichPresence_gungame_deathmatch_watch'csgo_english
- strNewText = Replace(strNewText,chr(34)&"Watching CS:GO Deathmatch", chr(34)&"Watching Deathmatch")
- 'SFUI_Lobby_StatusRichPresence_gungame_deathmatch_review'csgo_english
- strNewText = Replace(strNewText,chr(34)&"Replaying CS:GO Deathmatch", chr(34)&"Replaying Deathmatch")
- 'SFUI_Lobby_StatusRichPresence_training_training_game'csgo_english
- strNewText = Replace(strNewText,chr(34)&"Playing CS:GO Weapons Course", chr(34)&"Playing Weapons Course")
- 'SFUI_Notice_Alert_Match_Point'csgo_english
- strNewText = Replace(strNewText,chr(34)&"MATCH POINT", chr(34)&"<font size='20' color='#6599FF'>MATCH POINT</font>")
- 'SFUI_Notice_Alert_Final_Round'csgo_english
- strNewText = Replace(strNewText,chr(34)&"FINAL ROUND", chr(34)&"<font size='20' color='#ff0000'>FINAL ROUND</font>")
- 'SFUI_Notice_Alert_Last_Round_Half'csgo_english
- strNewText = Replace(strNewText,chr(34)&"LAST ROUND OF FIRST HALF8C489F", chr(34)&"<font size='20' color='#ff0000'>LAST ROUND OF FIRST HALF</font>")
- 'SFUI_Notice_Alert_Match_Start'csgo_english
- strNewText = Replace(strNewText,chr(34)&"MATCH START", chr(34)&"<font size='20' color='#8C489F'>MATCH START</font>")
- 'SFUI_Notice_Alert_Warmup_Period'csgo_english
- strNewText = Replace(strNewText,chr(34)&"WARMUP %s1", chr(34)&"<font size='20' color='#66CCFF'>WARMUP %s1</font>")
- 'SFUI_Notice_Alert_Warmup_Period_Ending'csgo_english
- strNewText = Replace(strNewText,chr(34)&"WARMUP ENDING %s1", chr(34)&"<font size='20' color='#FFBAD2'>WARMUP ENDING %s1</font>")
- 'SFUI_Notice_Alert_Waiting_For_Players'csgo_english
- strNewText = Replace(strNewText,chr(34)&"WAITING FOR PLAYERS %s1", chr(34)&"<font size='20' color='#FF9900'>WAITING FOR PLAYERS %s1</font>")
- If pink = 7 Then
- strNewText = Replace(strNewText,"", "")
- End If
- If dead = 6 Then
- strNewText = Replace(strNewText,"*DEAD*[", "*DEAD*[")
- End If
- Set objFile = objFSO.OpenTextFile("csgo_english.txt", ForWriting, true, -1)
- objFile.WriteLine strNewText
- objFile.Close
- font=MsgBox("√отово! вы тащер!" & vbCrLf & "Ќ≈ «јЅџ¬ј…“≈ «јѕ”— ј“№ — –»ѕ“ ѕќ—Ћ≈ ј∆ƒќ√ќ ќЅЌќ¬Ћ≈Ќ»я ¬ CS:GO!" & vbCrLf & "VAC SAFE 100%!" & vbCrLf & "ѕоследние изменени¤ 01.02.2016" & vbCrLf & "¬идео-гайд по ссылке: http://www.youtube.com/watch?v=jtEXPDlH66I" & vbCrLf & "Hi Hello from DARKSIDE" & vbCrLf & "—пасибо за установку!" & vbCrLf & vbCrLf & "’отите посетить YouTube канал автора - Necomine? http://www.youtube.com/user/MinecraftMega13",vbOKCancel+vbQuestion, "")
- If font=1 Then
- objShell.Run("http://www.youtube.com/user/MinecraftMega13")
- End If
- '----------------------------------------------------------------
- LogPath = "D:\Steam\steamapps\common\Counter-Strike Global Offensive\csgo\cfg"
- '----------------------------------------------------------------
- Set fso = CreateObject("Scripting.FileSystemObject")
- currentDate = Date()
- currentDate = Replace(currentDate, ".", "")
- If fso.FileExists(LogPath & "VBlog" & currentDate & ".log") Then
- Set NewFile = fso.OpenTextFile(LogPath & "VBlog" & currentDate & ".log", ForAppending, True)
- Else
- Set NewFile = fso.CreateTextFile(LogPath & "VBlog" & currentDate & ".log", True)
- End If
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement