Make your CA Texture Remover

Now, Im going to give you the full source code, along with the set up. The source itself I tried to make neat for this purpose, of giving it out.

The Setup
The setup is simple, simply create this below, and ill tell you the rest afterword.

Now I will tell you what settings to edit for each component.

Nexon Text Field

Give the name "FolderText" and the Text "C:\Nexon"

Folder Dialog

Rename it to "FolderDialog"
Selected path is "C:\Nexon"

Guns Label

Give the TEXT and NAME to "Guns"

Map Textures Label

Give the TEXT "Map Textures" and NAME to "Map"

Characters Label

Give the TEXT "Characters" and NAME to "Chara"

Attachments Label

Give the TEXT "Attachments (Silencers, exc)" and NAME to "Attach"

Gun Sounds Label

Give the TEXT "Gun Sounds" and NAME to "GunSound"

Waiting Label

Give the TEXT "Waiting" and NAME to "Waiting"
Color is Dark Red

Remove Button

Give the NAME and TEXT "Remove"

Revert Button

Give the NAME "Revert" and TEXT "Revert to Normal"

The Code
Just select everything in Form1.vb (code) and delete, then paste this.

Code:

Option Explicit On
Imports System.IO


Public Class Form1
    Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
    Private Sub FolderText_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FolderText.Click
        FolderDialog.ShowDialog()
        FolderText.Text = FolderDialog.SelectedPath

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FolderText.Text = FolderDialog.SelectedPath
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Remove.Click
        Dim Location As String
        Dim MoveLocation As String
        Location = FolderDialog.SelectedPath + "\Combat Arms\Game\"
        MoveLocation = FolderDialog.SelectedPath + "\Combat Arms\Game\BGM\"
        Dim GunsFile1 As String
        GunsFile1 = "GUNS_T_HH.rez"
        Dim GunsFile2 As String
        GunsFile2 = "GUNS_T_PV_AR.rez"
        Dim GunsFile3 As String
        GunsFile3 = "GUNS_T_PV_ETC.rez"
        Dim GunsFile4 As String
        GunsFile4 = "GUNS_T_PV_HAND.rez"
        Dim GunsFile5 As String
        GunsFile5 = "GUNS_T_PV_LAUNCHER.rez"
        Dim GunsFile6 As String
        GunsFile6 = "GUNS_T_PV_MELEE.rez"
        Dim GunsFile7 As String
        GunsFile7 = "GUNS_T_PV_OPTION.rez"
        Dim GunsFile8 As String
        GunsFile8 = "GUNS_T_PV_Pistol.rez"
        Dim GunsFile9 As String
        GunsFile9 = "GUNS_T_PV_SG.rez"
        Dim GunsFile10 As String
        GunsFile10 = "GUNS_T_PV_SMG.rez"
        Dim GunsFile11 As String
        GunsFile11 = "GUNS_T_PV_SR.rez"
        Dim GunsFile12 As String
        GunsFile12 = "GUNS_T_PV_Throwing.rez"
        Dim GunsFile13 As String
        GunsFile13 = "GUNS_T_PV_MG.rez"

        If Guns.Checked = True Then
            On Error Resume Next
            File.Move(Location + GunsFile1, MoveLocation + GunsFile1)
            Waiting.Text = "Removing guns (10%)"
            File.Move(Location + GunsFile2, MoveLocation + GunsFile2)
            Waiting.Text = "Removing guns (20%)"
            File.Move(Location + GunsFile3, MoveLocation + GunsFile3)
            Waiting.Text = "Removing guns (30%)"
            File.Move(Location + GunsFile4, MoveLocation + GunsFile4)
            Waiting.Text = "Removing guns (40%)"
            File.Move(Location + GunsFile5, MoveLocation + GunsFile5)
            Waiting.Text = "Removing guns (50%)"
            File.Move(Location + GunsFile6, MoveLocation + GunsFile6)
            Waiting.Text = "Removing guns (60%)"
            File.Move(Location + GunsFile7, MoveLocation + GunsFile7)
            Waiting.Text = "Removing guns (70%)"
            File.Move(Location + GunsFile8, MoveLocation + GunsFile8)
            File.Move(Location + GunsFile9, MoveLocation + GunsFile9)
            Waiting.Text = "Removing guns (80%)"
            File.Move(Location + GunsFile10, MoveLocation + GunsFile10)
            File.Move(Location + GunsFile11, MoveLocation + GunsFile11)
            Waiting.Text = "Removing guns (90%)"
            File.Move(Location + GunsFile12, MoveLocation + GunsFile12)
            File.Move(Location + GunsFile13, MoveLocation + GunsFile13)
            Waiting.Text = "Removing guns (100%)"
        End If

        Dim MapFile1 As String
        MapFile1 = "TEXFX.REZ"
        Dim MapFile2 As String
        MapFile2 = "PROPS.REZ"
        Dim MapFile3 As String
        MapFile3 = "SHADERS.REZ"
        Dim MapFile4 As String
        MapFile4 = "TEXTURESCRIPTS.REZ"
        Dim MapFile5 As String
        MapFile5 = "TEXTURES.REZ"
        Dim MapFile6 As String
        MapFile6 = "PREFABS.REZ"


        If Map.Checked = True Then
            On Error Resume Next
            File.Move(Location + MapFile1, MoveLocation + MapFile1)
            Waiting.Text = "Removing Maps (20%)"
            File.Move(Location + MapFile2, MoveLocation + MapFile2)
            Waiting.Text = "Removing Maps (30%)"
            File.Move(Location + MapFile3, MoveLocation + MapFile3)
            Waiting.Text = "Removing Maps (50%)"
            File.Move(Location + MapFile4, MoveLocation + MapFile4)
            Waiting.Text = "Removing Maps (60%)"
            File.Move(Location + MapFile5, MoveLocation + MapFile5)
            Waiting.Text = "Removing Maps (80%)"
            File.Move(Location + MapFile6, MoveLocation + MapFile6)
            Waiting.Text = "Removing Maps (100%)"

        End If

        Dim GunSoundFile1 As String
        GunSoundFile1 = "GUNS_SND_AR.rez"
        Dim GunSoundFile2 As String
        GunSoundFile2 = "GUNS_SND_ETC.rez"
        Dim GunSoundFile3 As String
        GunSoundFile3 = "GUNS_SND_IMPACTS.rez"
        Dim GunSoundFile4 As String
        GunSoundFile4 = "GUNS_SND_LAUNCHER.rez"
        Dim GunSoundFile5 As String
        GunSoundFile5 = "GUNS_SND_MELEE.rez"
        Dim GunSoundFile6 As String
        GunSoundFile6 = "GUNS_SND_MG.rez"
        Dim GunSoundFile7 As String
        GunSoundFile7 = "GUNS_SND_OPTION.rez"
        Dim GunSoundFile8 As String
        GunSoundFile8 = "GUNS_SND_Pistol.rez"
        Dim GunSoundFile9 As String
        GunSoundFile9 = "GUNS_SND_SG.rez"
        Dim GunSoundFile10 As String
        GunSoundFile10 = "GUNS_SND_SHELLS.rez"
        Dim GunSoundFile11 As String
        GunSoundFile11 = "GUNS_SND_SMG.rez"
        Dim GunSoundFile12 As String
        GunSoundFile12 = "GUNS_SND_SR.rez"
        Dim GunSoundFile13 As String
        GunSoundFile13 = "GUNS_SND_Throwing.rez"

        If GunSound.Checked = True Then
            On Error Resume Next
            File.Move(Location + GunSoundFile1, MoveLocation + GunSoundFile1)
            Waiting.Text = "Removing gun sounds (10%)"
            File.Move(Location + GunSoundFile2, MoveLocation + GunSoundFile2)
            Waiting.Text = "Removing gun sounds (20%)"
            File.Move(Location + GunSoundFile3, MoveLocation + GunSoundFile3)
            Waiting.Text = "Removing gun sounds (30%)"
            File.Move(Location + GunSoundFile4, MoveLocation + GunSoundFile4)
            Waiting.Text = "Removing gun sounds (40%)"
            File.Move(Location + GunSoundFile5, MoveLocation + GunSoundFile5)
            Waiting.Text = "Removing gun sounds (50%)"
            File.Move(Location + GunSoundFile6, MoveLocation + GunSoundFile6)
            Waiting.Text = "Removing gun sounds (60%)"
            File.Move(Location + GunSoundFile7, MoveLocation + GunSoundFile7)
            Waiting.Text = "Removing gun sounds (70%)"
            File.Move(Location + GunSoundFile8, MoveLocation + GunSoundFile8)
            File.Move(Location + GunSoundFile9, MoveLocation + GunSoundFile9)
            Waiting.Text = "Removing gun sounds (80%)"
            File.Move(Location + GunSoundFile10, MoveLocation + GunSoundFile10)
            File.Move(Location + GunSoundFile11, MoveLocation + GunSoundFile11)
            Waiting.Text = "Removing gun sounds (90%)"
            File.Move(Location + GunSoundFile12, MoveLocation + GunSoundFile12)
            File.Move(Location + GunSoundFile13, MoveLocation + GunSoundFile13)
            Waiting.Text = "Removing gun sounds (100%)"
        End If

        Dim AttatchT As String
        AttatchT = "ATTACH_T.rez"
        If Attach.Checked = True Then
            On Error Resume Next
            File.Move(Location + AttatchT, MoveLocation + AttatchT)
            Waiting.Text = "Removing Attatchments (100%)"
        End If

        Dim CharFile1 As String
        CharFile1 = "CHARS_T_BODY.rez"
        Dim CharFile2 As String
        CharFile2 = "CHARS_T_FACE.rez"
        Dim CharFile3 As String
        CharFile3 = "CHARS_T_HAND.rez"
        Dim CharFile4 As String
        CharFile4 = "CHARS_T_HEAD.rez"
        If Chara.Checked = True Then
            On Error Resume Next
            File.Move(Location + CharFile1, MoveLocation + CharFile1)
            File.Move(Location + CharFile2, MoveLocation + CharFile2)
            File.Move(Location + CharFile3, MoveLocation + CharFile3)
            File.Move(Location + CharFile4, MoveLocation + CharFile4)
        End If
        Waiting.Text = "Done"
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Revert.Click
        Waiting.Text = "Reverting..."
        Dim Location As String
        Dim MoveLocation As String
        Location = FolderDialog.SelectedPath + "\Combat Arms\Game\"
        MoveLocation = FolderDialog.SelectedPath + "\Combat Arms\Game\BGM\"
        Dim CharFile1 As String
        CharFile1 = "CHARS_T_BODY.rez"
        Dim CharFile2 As String
        CharFile2 = "CHARS_T_FACE.rez"
        Dim CharFile3 As String
        CharFile3 = "CHARS_T_HAND.rez"
        Dim CharFile4 As String
        CharFile4 = "CHARS_T_HEAD.rez"
        Dim GunsFile1 As String
        GunsFile1 = "GUNS_T_HH.rez"
        Dim GunsFile2 As String
        GunsFile2 = "GUNS_T_PV_AR.rez"
        Dim GunsFile3 As String
        GunsFile3 = "GUNS_T_PV_ETC.rez"
        Dim GunsFile4 As String
        GunsFile4 = "GUNS_T_PV_HAND.rez"
        Dim GunsFile5 As String
        GunsFile5 = "GUNS_T_PV_LAUNCHER.rez"
        Dim GunsFile6 As String
        GunsFile6 = "GUNS_T_PV_MELEE.rez"
        Dim GunsFile7 As String
        GunsFile7 = "GUNS_T_PV_OPTION.rez"
        Dim GunsFile8 As String
        GunsFile8 = "GUNS_T_PV_Pistol.rez"
        Dim GunsFile9 As String
        GunsFile9 = "GUNS_T_PV_SG.rez"
        Dim GunsFile10 As String
        GunsFile10 = "GUNS_T_PV_SMG.rez"
        Dim GunsFile11 As String
        GunsFile11 = "GUNS_T_PV_SR.rez"
        Dim GunsFile12 As String
        GunsFile12 = "GUNS_T_PV_Throwing.rez"
        Dim GunsFile13 As String
        GunsFile13 = "GUNS_T_PV_MG.rez"
        Dim MapFile1 As String
        MapFile1 = "TEXFX.REZ"
        Dim MapFile2 As String
        MapFile2 = "PROPS.REZ"
        Dim MapFile3 As String
        MapFile3 = "SHADERS.REZ"
        Dim MapFile4 As String
        MapFile4 = "TEXTURESCRIPTS.REZ"
        Dim MapFile5 As String
        MapFile5 = "TEXTURES.REZ"
        Dim MapFile6 As String
        MapFile6 = "PREFABS.REZ"
        Dim GunSoundFile1 As String
        GunSoundFile1 = "GUNS_SND_AR.rez"
        Dim GunSoundFile2 As String
        GunSoundFile2 = "GUNS_SND_ETC.rez"
        Dim GunSoundFile3 As String
        GunSoundFile3 = "GUNS_SND_IMPACTS.rez"
        Dim GunSoundFile4 As String
        GunSoundFile4 = "GUNS_SND_LAUNCHER.rez"
        Dim GunSoundFile5 As String
        GunSoundFile5 = "GUNS_SND_MELEE.rez"
        Dim GunSoundFile6 As String
        GunSoundFile6 = "GUNS_SND_MG.rez"
        Dim GunSoundFile7 As String
        GunSoundFile7 = "GUNS_SND_OPTION.rez"
        Dim GunSoundFile8 As String
        GunSoundFile8 = "GUNS_SND_Pistol.rez"
        Dim GunSoundFile9 As String
        GunSoundFile9 = "GUNS_SND_SG.rez"
        Dim GunSoundFile10 As String
        GunSoundFile10 = "GUNS_SND_SHELLS.rez"
        Dim GunSoundFile11 As String
        GunSoundFile11 = "GUNS_SND_SMG.rez"
        Dim GunSoundFile12 As String
        GunSoundFile12 = "GUNS_SND_SR.rez"
        Dim GunSoundFile13 As String
        GunSoundFile13 = "GUNS_SND_Throwing.rez"
        Dim AttatchT As String
        AttatchT = "ATTACH_T.rez"

        On Error Resume Next
        File.Move(MoveLocation + AttatchT, Location + AttatchT)
        File.Move(MoveLocation + GunsFile1, Location + GunsFile1)
        File.Move(MoveLocation + GunsFile2, Location + GunsFile2)
        File.Move(MoveLocation + GunsFile3, Location + GunsFile3)
        File.Move(MoveLocation + GunsFile4, Location + GunsFile4)
        File.Move(MoveLocation + GunsFile5, Location + GunsFile5)
        File.Move(MoveLocation + GunsFile6, Location + GunsFile6)
        File.Move(MoveLocation + GunsFile7, Location + GunsFile7)
        File.Move(MoveLocation + GunsFile8, Location + GunsFile8)
        File.Move(MoveLocation + GunsFile9, Location + GunsFile9)
        File.Move(MoveLocation + GunsFile10, Location + GunsFile10)
        File.Move(MoveLocation + GunsFile11, Location + GunsFile11)
        File.Move(MoveLocation + GunsFile12, Location + GunsFile12)
        File.Move(MoveLocation + GunsFile13, Location + GunsFile13)
        File.Move(MoveLocation + MapFile1, Location + MapFile1)
        File.Move(MoveLocation + MapFile2, Location + MapFile2)
        File.Move(MoveLocation + MapFile3, Location + MapFile3)
        File.Move(MoveLocation + MapFile4, Location + MapFile4)
        File.Move(MoveLocation + MapFile5, Location + MapFile5)
        File.Move(MoveLocation + MapFile6, Location + MapFile6)
        File.Move(MoveLocation + GunSoundFile1, Location + GunSoundFile1)
        File.Move(MoveLocation + GunSoundFile2, Location + GunSoundFile2)
        File.Move(MoveLocation + GunSoundFile3, Location + GunSoundFile3)
        File.Move(MoveLocation + GunSoundFile4, Location + GunSoundFile4)
        File.Move(MoveLocation + GunSoundFile5, Location + GunSoundFile5)
        File.Move(MoveLocation + GunSoundFile6, Location + GunSoundFile6)
        File.Move(MoveLocation + GunSoundFile7, Location + GunSoundFile7)
        File.Move(MoveLocation + GunSoundFile8, Location + GunSoundFile8)
        File.Move(MoveLocation + GunSoundFile9, Location + GunSoundFile9)
        File.Move(MoveLocation + GunSoundFile10, Location + GunSoundFile10)
        File.Move(MoveLocation + GunSoundFile11, Location + GunSoundFile11)
        File.Move(MoveLocation + GunSoundFile12, Location + GunSoundFile12)
        File.Move(MoveLocation + GunSoundFile13, Location + GunSoundFile13)
        File.Move(MoveLocation + CharFile1, Location + CharFile1)
        File.Move(MoveLocation + CharFile2, Location + CharFile2)
        File.Move(MoveLocation + CharFile3, Location + CharFile3)
        File.Move(MoveLocation + CharFile4, Location + CharFile4)
        Guns.Checked = False
        Map.Checked = False
        Chara.Checked = False
        GunSound.Checked = False
        Attach.Checked = False
        Waiting.Text = "Done"
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        System.Diagnostics.Process.Start("http://ugleh.com")
    End Sub
End Class

At the ending change Ugleh.com to whatever website you own. or want them to be linked to.

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked System.Diagnostics.Process.Start("http://ugleh.com") End Sub

Option Explicit On Imports System.IO Public Class Form1 Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long) Private Sub FolderText_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FolderText.Click FolderDialog.ShowDialog() FolderText.Text = FolderDialog.SelectedPath End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load FolderText.Text = FolderDialog.SelectedPath End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Remove.Click Dim Location As String Dim MoveLocation As String Location = FolderDialog.SelectedPath + "\Combat Arms\Game\" MoveLocation = FolderDialog.SelectedPath + "\Combat Arms\Game\BGM\" Dim GunsFile1 As String GunsFile1 = "GUNS_T_HH.rez" Dim GunsFile2 As String GunsFile2 = "GUNS_T_PV_AR.rez" Dim GunsFile3 As String GunsFile3 = "GUNS_T_PV_ETC.rez" Dim GunsFile4 As String GunsFile4 = "GUNS_T_PV_HAND.rez" Dim GunsFile5 As String GunsFile5 = "GUNS_T_PV_LAUNCHER.rez" Dim GunsFile6 As String GunsFile6 = "GUNS_T_PV_MELEE.rez" Dim GunsFile7 As String GunsFile7 = "GUNS_T_PV_OPTION.rez" Dim GunsFile8 As String GunsFile8 = "GUNS_T_PV_Pistol.rez" Dim GunsFile9 As String GunsFile9 = "GUNS_T_PV_SG.rez" Dim GunsFile10 As String GunsFile10 = "GUNS_T_PV_SMG.rez" Dim GunsFile11 As String GunsFile11 = "GUNS_T_PV_SR.rez" Dim GunsFile12 As String GunsFile12 = "GUNS_T_PV_Throwing.rez" Dim GunsFile13 As String GunsFile13 = "GUNS_T_PV_MG.rez" If Guns.Checked = True Then On Error Resume Next File.Move(Location + GunsFile1, MoveLocation + GunsFile1) Waiting.Text = "Removing guns (10%)" File.Move(Location + GunsFile2, MoveLocation + GunsFile2) Waiting.Text = "Removing guns (20%)" File.Move(Location + GunsFile3, MoveLocation + GunsFile3) Waiting.Text = "Removing guns (30%)" File.Move(Location + GunsFile4, MoveLocation + GunsFile4) Waiting.Text = "Removing guns (40%)" File.Move(Location + GunsFile5, MoveLocation + GunsFile5) Waiting.Text = "Removing guns (50%)" File.Move(Location + GunsFile6, MoveLocation + GunsFile6) Waiting.Text = "Removing guns (60%)" File.Move(Location + GunsFile7, MoveLocation + GunsFile7) Waiting.Text = "Removing guns (70%)" File.Move(Location + GunsFile8, MoveLocation + GunsFile8) File.Move(Location + GunsFile9, MoveLocation + GunsFile9) Waiting.Text = "Removing guns (80%)" File.Move(Location + GunsFile10, MoveLocation + GunsFile10) File.Move(Location + GunsFile11, MoveLocation + GunsFile11) Waiting.Text = "Removing guns (90%)" File.Move(Location + GunsFile12, MoveLocation + GunsFile12) File.Move(Location + GunsFile13, MoveLocation + GunsFile13) Waiting.Text = "Removing guns (100%)" End If Dim MapFile1 As String MapFile1 = "TEXFX.REZ" Dim MapFile2 As String MapFile2 = "PROPS.REZ" Dim MapFile3 As String MapFile3 = "SHADERS.REZ" Dim MapFile4 As String MapFile4 = "TEXTURESCRIPTS.REZ" Dim MapFile5 As String MapFile5 = "TEXTURES.REZ" Dim MapFile6 As String MapFile6 = "PREFABS.REZ" If Map.Checked = True Then On Error Resume Next File.Move(Location + MapFile1, MoveLocation + MapFile1) Waiting.Text = "Removing Maps (20%)" File.Move(Location + MapFile2, MoveLocation + MapFile2) Waiting.Text = "Removing Maps (30%)" File.Move(Location + MapFile3, MoveLocation + MapFile3) Waiting.Text = "Removing Maps (50%)" File.Move(Location + MapFile4, MoveLocation + MapFile4) Waiting.Text = "Removing Maps (60%)" File.Move(Location + MapFile5, MoveLocation + MapFile5) Waiting.Text = "Removing Maps (80%)" File.Move(Location + MapFile6, MoveLocation + MapFile6) Waiting.Text = "Removing Maps (100%)" End If Dim GunSoundFile1 As String GunSoundFile1 = "GUNS_SND_AR.rez" Dim GunSoundFile2 As String GunSoundFile2 = "GUNS_SND_ETC.rez" Dim GunSoundFile3 As String GunSoundFile3 = "GUNS_SND_IMPACTS.rez" Dim GunSoundFile4 As String GunSoundFile4 = "GUNS_SND_LAUNCHER.rez" Dim GunSoundFile5 As String GunSoundFile5 = "GUNS_SND_MELEE.rez" Dim GunSoundFile6 As String GunSoundFile6 = "GUNS_SND_MG.rez" Dim GunSoundFile7 As String GunSoundFile7 = "GUNS_SND_OPTION.rez" Dim GunSoundFile8 As String GunSoundFile8 = "GUNS_SND_Pistol.rez" Dim GunSoundFile9 As String GunSoundFile9 = "GUNS_SND_SG.rez" Dim GunSoundFile10 As String GunSoundFile10 = "GUNS_SND_SHELLS.rez" Dim GunSoundFile11 As String GunSoundFile11 = "GUNS_SND_SMG.rez" Dim GunSoundFile12 As String GunSoundFile12 = "GUNS_SND_SR.rez" Dim GunSoundFile13 As String GunSoundFile13 = "GUNS_SND_Throwing.rez" If GunSound.Checked = True Then On Error Resume Next File.Move(Location + GunSoundFile1, MoveLocation + GunSoundFile1) Waiting.Text = "Removing gun sounds (10%)" File.Move(Location + GunSoundFile2, MoveLocation + GunSoundFile2) Waiting.Text = "Removing gun sounds (20%)" File.Move(Location + GunSoundFile3, MoveLocation + GunSoundFile3) Waiting.Text = "Removing gun sounds (30%)" File.Move(Location + GunSoundFile4, MoveLocation + GunSoundFile4) Waiting.Text = "Removing gun sounds (40%)" File.Move(Location + GunSoundFile5, MoveLocation + GunSoundFile5) Waiting.Text = "Removing gun sounds (50%)" File.Move(Location + GunSoundFile6, MoveLocation + GunSoundFile6) Waiting.Text = "Removing gun sounds (60%)" File.Move(Location + GunSoundFile7, MoveLocation + GunSoundFile7) Waiting.Text = "Removing gun sounds (70%)" File.Move(Location + GunSoundFile8, MoveLocation + GunSoundFile8) File.Move(Location + GunSoundFile9, MoveLocation + GunSoundFile9) Waiting.Text = "Removing gun sounds (80%)" File.Move(Location + GunSoundFile10, MoveLocation + GunSoundFile10) File.Move(Location + GunSoundFile11, MoveLocation + GunSoundFile11) Waiting.Text = "Removing gun sounds (90%)" File.Move(Location + GunSoundFile12, MoveLocation + GunSoundFile12) File.Move(Location + GunSoundFile13, MoveLocation + GunSoundFile13) Waiting.Text = "Removing gun sounds (100%)" End If Dim AttatchT As String AttatchT = "ATTACH_T.rez" If Attach.Checked = True Then On Error Resume Next File.Move(Location + AttatchT, MoveLocation + AttatchT) Waiting.Text = "Removing Attatchments (100%)" End If Dim CharFile1 As String CharFile1 = "CHARS_T_BODY.rez" Dim CharFile2 As String CharFile2 = "CHARS_T_FACE.rez" Dim CharFile3 As String CharFile3 = "CHARS_T_HAND.rez" Dim CharFile4 As String CharFile4 = "CHARS_T_HEAD.rez" If Chara.Checked = True Then On Error Resume Next File.Move(Location + CharFile1, MoveLocation + CharFile1) File.Move(Location + CharFile2, MoveLocation + CharFile2) File.Move(Location + CharFile3, MoveLocation + CharFile3) File.Move(Location + CharFile4, MoveLocation + CharFile4) End If Waiting.Text = "Done" End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Revert.Click Waiting.Text = "Reverting..." Dim Location As String Dim MoveLocation As String Location = FolderDialog.SelectedPath + "\Combat Arms\Game\" MoveLocation = FolderDialog.SelectedPath + "\Combat Arms\Game\BGM\" Dim CharFile1 As String CharFile1 = "CHARS_T_BODY.rez" Dim CharFile2 As String CharFile2 = "CHARS_T_FACE.rez" Dim CharFile3 As String CharFile3 = "CHARS_T_HAND.rez" Dim CharFile4 As String CharFile4 = "CHARS_T_HEAD.rez" Dim GunsFile1 As String GunsFile1 = "GUNS_T_HH.rez" Dim GunsFile2 As String GunsFile2 = "GUNS_T_PV_AR.rez" Dim GunsFile3 As String GunsFile3 = "GUNS_T_PV_ETC.rez" Dim GunsFile4 As String GunsFile4 = "GUNS_T_PV_HAND.rez" Dim GunsFile5 As String GunsFile5 = "GUNS_T_PV_LAUNCHER.rez" Dim GunsFile6 As String GunsFile6 = "GUNS_T_PV_MELEE.rez" Dim GunsFile7 As String GunsFile7 = "GUNS_T_PV_OPTION.rez" Dim GunsFile8 As String GunsFile8 = "GUNS_T_PV_Pistol.rez" Dim GunsFile9 As String GunsFile9 = "GUNS_T_PV_SG.rez" Dim GunsFile10 As String GunsFile10 = "GUNS_T_PV_SMG.rez" Dim GunsFile11 As String GunsFile11 = "GUNS_T_PV_SR.rez" Dim GunsFile12 As String GunsFile12 = "GUNS_T_PV_Throwing.rez" Dim GunsFile13 As String GunsFile13 = "GUNS_T_PV_MG.rez" Dim MapFile1 As String MapFile1 = "TEXFX.REZ" Dim MapFile2 As String MapFile2 = "PROPS.REZ" Dim MapFile3 As String MapFile3 = "SHADERS.REZ" Dim MapFile4 As String MapFile4 = "TEXTURESCRIPTS.REZ" Dim MapFile5 As String MapFile5 = "TEXTURES.REZ" Dim MapFile6 As String MapFile6 = "PREFABS.REZ" Dim GunSoundFile1 As String GunSoundFile1 = "GUNS_SND_AR.rez" Dim GunSoundFile2 As String GunSoundFile2 = "GUNS_SND_ETC.rez" Dim GunSoundFile3 As String GunSoundFile3 = "GUNS_SND_IMPACTS.rez" Dim GunSoundFile4 As String GunSoundFile4 = "GUNS_SND_LAUNCHER.rez" Dim GunSoundFile5 As String GunSoundFile5 = "GUNS_SND_MELEE.rez" Dim GunSoundFile6 As String GunSoundFile6 = "GUNS_SND_MG.rez" Dim GunSoundFile7 As String GunSoundFile7 = "GUNS_SND_OPTION.rez" Dim GunSoundFile8 As String GunSoundFile8 = "GUNS_SND_Pistol.rez" Dim GunSoundFile9 As String GunSoundFile9 = "GUNS_SND_SG.rez" Dim GunSoundFile10 As String GunSoundFile10 = "GUNS_SND_SHELLS.rez" Dim GunSoundFile11 As String GunSoundFile11 = "GUNS_SND_SMG.rez" Dim GunSoundFile12 As String GunSoundFile12 = "GUNS_SND_SR.rez" Dim GunSoundFile13 As String GunSoundFile13 = "GUNS_SND_Throwing.rez" Dim AttatchT As String AttatchT = "ATTACH_T.rez" On Error Resume Next File.Move(MoveLocation + AttatchT, Location + AttatchT) File.Move(MoveLocation + GunsFile1, Location + GunsFile1) File.Move(MoveLocation + GunsFile2, Location + GunsFile2) File.Move(MoveLocation + GunsFile3, Location + GunsFile3) File.Move(MoveLocation + GunsFile4, Location + GunsFile4) File.Move(MoveLocation + GunsFile5, Location + GunsFile5) File.Move(MoveLocation + GunsFile6, Location + GunsFile6) File.Move(MoveLocation + GunsFile7, Location + GunsFile7) File.Move(MoveLocation + GunsFile8, Location + GunsFile8) File.Move(MoveLocation + GunsFile9, Location + GunsFile9) File.Move(MoveLocation + GunsFile10, Location + GunsFile10) File.Move(MoveLocation + GunsFile11, Location + GunsFile11) File.Move(MoveLocation + GunsFile12, Location + GunsFile12) File.Move(MoveLocation + GunsFile13, Location + GunsFile13) File.Move(MoveLocation + MapFile1, Location + MapFile1) File.Move(MoveLocation + MapFile2, Location + MapFile2) File.Move(MoveLocation + MapFile3, Location + MapFile3) File.Move(MoveLocation + MapFile4, Location + MapFile4) File.Move(MoveLocation + MapFile5, Location + MapFile5) File.Move(MoveLocation + MapFile6, Location + MapFile6) File.Move(MoveLocation + GunSoundFile1, Location + GunSoundFile1) File.Move(MoveLocation + GunSoundFile2, Location + GunSoundFile2) File.Move(MoveLocation + GunSoundFile3, Location + GunSoundFile3) File.Move(MoveLocation + GunSoundFile4, Location + GunSoundFile4) File.Move(MoveLocation + GunSoundFile5, Location + GunSoundFile5) File.Move(MoveLocation + GunSoundFile6, Location + GunSoundFile6) File.Move(MoveLocation + GunSoundFile7, Location + GunSoundFile7) File.Move(MoveLocation + GunSoundFile8, Location + GunSoundFile8) File.Move(MoveLocation + GunSoundFile9, Location + GunSoundFile9) File.Move(MoveLocation + GunSoundFile10, Location + GunSoundFile10) File.Move(MoveLocation + GunSoundFile11, Location + GunSoundFile11) File.Move(MoveLocation + GunSoundFile12, Location + GunSoundFile12) File.Move(MoveLocation + GunSoundFile13, Location + GunSoundFile13) File.Move(MoveLocation + CharFile1, Location + CharFile1) File.Move(MoveLocation + CharFile2, Location + CharFile2) File.Move(MoveLocation + CharFile3, Location + CharFile3) File.Move(MoveLocation + CharFile4, Location + CharFile4) Guns.Checked = False Map.Checked = False Chara.Checked = False GunSound.Checked = False Attach.Checked = False Waiting.Text = "Done" End Sub Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked System.Diagnostics.Process.Start("http://ugleh.com") End Sub End Class

Make your CA Texture Remover

Post a Reply

Similar Threads

Tags for this Thread

Make your CA Texture Remover

Post a Reply

Similar Threads

Tags for this Thread