Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Option Explicit On
- Imports System.IO
- Public Class chams
- 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"
- msgbox("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"
- msgbox("Done!")
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement