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.

You dahh man :P
This is exactly wat i wanted to add to my utility pack. and now i can

THANKS MAN. U RAWK

acid_buRn

Hmm

Hey, i have never coded anything. And i want to start tonight.
This is a fucked up question , but uhh. what do i use to do that kindof stuff? If you could direct me something like c or c++ that would be cool. But i want to know the software that you used to code this.

It says in this thread, its Visual Basic.

Oh

Originally Posted by Ugleh

It says in this thread, its Visual Basic.

Oh okay, i am sorry did not know that Visual basic was an actual software.

I've never used the function "FolderDialog", and I don't have it too?
I only have "FolderBrowseDialog".. no difference? Dx
Also, wdf.. Gun sounds texture? >.>

And one more problem, you didn't have a declare code for "File"..
So, File.Move won't work

Edit: Nvm, I just saw that code at the top. &oops, dubble post :O

If you read, I renamed FolderBrowserDialog to FolderDialog

WOW, you are the best, I saw this and I was like OMG this looks so cool, now you release source code to, THANKS YOU!!

So what the program does is move all the files to the BGM folder?

Originally Posted by LegendaryAbbo

So what the program does is move all the files to the BGM folder?

yeah, and moves them back if you want.

I am a leeching noob when it comes to hacks(I give credit though dont wrry) and I am going to start my first real hack with this. Thanks a lot.!

Nice, this is a great tutorial for VB.Net beginners.

wow dude this shit is so hard to understand give the TEXT WTF does that mean

fianlly found out wat u meant

sorry for double post do we really need this

Code:

 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

seems like adevertimest to me

Make your CA Texture Remover

Similar Threads

Tags for this Thread