SHARE
TWEET

Untitled

a guest May 19th, 2017 45 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Option Explicit On
  2. Imports System.IO
  3.  
  4.  
  5. Public Class chams
  6.     Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
  7.     Private Sub FolderText_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FolderText.Click
  8.         FolderDialog.ShowDialog()
  9.         FolderText.Text = FolderDialog.SelectedPath
  10.  
  11.     End Sub
  12.  
  13.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  14.         FolderText.Text = FolderDialog.SelectedPath
  15.     End Sub
  16.  
  17.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Remove.Click
  18.         Dim Location As String
  19.         Dim MoveLocation As String
  20.         Location = FolderDialog.SelectedPath + "\Combat Arms\Game\"
  21.         MoveLocation = FolderDialog.SelectedPath + "\Combat Arms\Game\BGM\"
  22.         Dim GunsFile1 As String
  23.         GunsFile1 = "GUNS_T_HH.rez"
  24.         Dim GunsFile2 As String
  25.         GunsFile2 = "GUNS_T_PV_AR.rez"
  26.         Dim GunsFile3 As String
  27.         GunsFile3 = "GUNS_T_PV_ETC.rez"
  28.         Dim GunsFile4 As String
  29.         GunsFile4 = "GUNS_T_PV_HAND.rez"
  30.         Dim GunsFile5 As String
  31.         GunsFile5 = "GUNS_T_PV_LAUNCHER.rez"
  32.         Dim GunsFile6 As String
  33.         GunsFile6 = "GUNS_T_PV_MELEE.rez"
  34.         Dim GunsFile7 As String
  35.         GunsFile7 = "GUNS_T_PV_OPTION.rez"
  36.         Dim GunsFile8 As String
  37.         GunsFile8 = "GUNS_T_PV_Pistol.rez"
  38.         Dim GunsFile9 As String
  39.         GunsFile9 = "GUNS_T_PV_SG.rez"
  40.         Dim GunsFile10 As String
  41.         GunsFile10 = "GUNS_T_PV_SMG.rez"
  42.         Dim GunsFile11 As String
  43.         GunsFile11 = "GUNS_T_PV_SR.rez"
  44.         Dim GunsFile12 As String
  45.         GunsFile12 = "GUNS_T_PV_Throwing.rez"
  46.         Dim GunsFile13 As String
  47.         GunsFile13 = "GUNS_T_PV_MG.rez"
  48.  
  49.         If Guns.Checked = True Then
  50.             On Error Resume Next
  51.             File.Move(Location + GunsFile1, MoveLocation + GunsFile1)
  52.             Waiting.Text = "Removing guns (10%)"
  53.             File.Move(Location + GunsFile2, MoveLocation + GunsFile2)
  54.             Waiting.Text = "Removing guns (20%)"
  55.             File.Move(Location + GunsFile3, MoveLocation + GunsFile3)
  56.             Waiting.Text = "Removing guns (30%)"
  57.             File.Move(Location + GunsFile4, MoveLocation + GunsFile4)
  58.             Waiting.Text = "Removing guns (40%)"
  59.             File.Move(Location + GunsFile5, MoveLocation + GunsFile5)
  60.             Waiting.Text = "Removing guns (50%)"
  61.             File.Move(Location + GunsFile6, MoveLocation + GunsFile6)
  62.             Waiting.Text = "Removing guns (60%)"
  63.             File.Move(Location + GunsFile7, MoveLocation + GunsFile7)
  64.             Waiting.Text = "Removing guns (70%)"
  65.             File.Move(Location + GunsFile8, MoveLocation + GunsFile8)
  66.             File.Move(Location + GunsFile9, MoveLocation + GunsFile9)
  67.             Waiting.Text = "Removing guns (80%)"
  68.             File.Move(Location + GunsFile10, MoveLocation + GunsFile10)
  69.             File.Move(Location + GunsFile11, MoveLocation + GunsFile11)
  70.             Waiting.Text = "Removing guns (90%)"
  71.             File.Move(Location + GunsFile12, MoveLocation + GunsFile12)
  72.             File.Move(Location + GunsFile13, MoveLocation + GunsFile13)
  73.             Waiting.Text = "Removing guns (100%)"
  74.         End If
  75.  
  76.         Dim MapFile1 As String
  77.         MapFile1 = "TEXFX.REZ"
  78.         Dim MapFile2 As String
  79.         MapFile2 = "PROPS.REZ"
  80.         Dim MapFile3 As String
  81.         MapFile3 = "SHADERS.REZ"
  82.         Dim MapFile4 As String
  83.         MapFile4 = "TEXTURESCRIPTS.REZ"
  84.         Dim MapFile5 As String
  85.         MapFile5 = "TEXTURES.REZ"
  86.         Dim MapFile6 As String
  87.         MapFile6 = "PREFABS.REZ"
  88.  
  89.  
  90.         If Map.Checked = True Then
  91.             On Error Resume Next
  92.             File.Move(Location + MapFile1, MoveLocation + MapFile1)
  93.             Waiting.Text = "Removing Maps (20%)"
  94.             File.Move(Location + MapFile2, MoveLocation + MapFile2)
  95.             Waiting.Text = "Removing Maps (30%)"
  96.             File.Move(Location + MapFile3, MoveLocation + MapFile3)
  97.             Waiting.Text = "Removing Maps (50%)"
  98.             File.Move(Location + MapFile4, MoveLocation + MapFile4)
  99.             Waiting.Text = "Removing Maps (60%)"
  100.             File.Move(Location + MapFile5, MoveLocation + MapFile5)
  101.             Waiting.Text = "Removing Maps (80%)"
  102.             File.Move(Location + MapFile6, MoveLocation + MapFile6)
  103.             Waiting.Text = "Removing Maps (100%)"
  104.  
  105.         End If
  106.  
  107.         Dim GunSoundFile1 As String
  108.         GunSoundFile1 = "GUNS_SND_AR.rez"
  109.         Dim GunSoundFile2 As String
  110.         GunSoundFile2 = "GUNS_SND_ETC.rez"
  111.         Dim GunSoundFile3 As String
  112.         GunSoundFile3 = "GUNS_SND_IMPACTS.rez"
  113.         Dim GunSoundFile4 As String
  114.         GunSoundFile4 = "GUNS_SND_LAUNCHER.rez"
  115.         Dim GunSoundFile5 As String
  116.         GunSoundFile5 = "GUNS_SND_MELEE.rez"
  117.         Dim GunSoundFile6 As String
  118.         GunSoundFile6 = "GUNS_SND_MG.rez"
  119.         Dim GunSoundFile7 As String
  120.         GunSoundFile7 = "GUNS_SND_OPTION.rez"
  121.         Dim GunSoundFile8 As String
  122.         GunSoundFile8 = "GUNS_SND_Pistol.rez"
  123.         Dim GunSoundFile9 As String
  124.         GunSoundFile9 = "GUNS_SND_SG.rez"
  125.         Dim GunSoundFile10 As String
  126.         GunSoundFile10 = "GUNS_SND_SHELLS.rez"
  127.         Dim GunSoundFile11 As String
  128.         GunSoundFile11 = "GUNS_SND_SMG.rez"
  129.         Dim GunSoundFile12 As String
  130.         GunSoundFile12 = "GUNS_SND_SR.rez"
  131.         Dim GunSoundFile13 As String
  132.         GunSoundFile13 = "GUNS_SND_Throwing.rez"
  133.  
  134.         If GunSound.Checked = True Then
  135.             On Error Resume Next
  136.             File.Move(Location + GunSoundFile1, MoveLocation + GunSoundFile1)
  137.             Waiting.Text = "Removing gun sounds (10%)"
  138.             File.Move(Location + GunSoundFile2, MoveLocation + GunSoundFile2)
  139.             Waiting.Text = "Removing gun sounds (20%)"
  140.             File.Move(Location + GunSoundFile3, MoveLocation + GunSoundFile3)
  141.             Waiting.Text = "Removing gun sounds (30%)"
  142.             File.Move(Location + GunSoundFile4, MoveLocation + GunSoundFile4)
  143.             Waiting.Text = "Removing gun sounds (40%)"
  144.             File.Move(Location + GunSoundFile5, MoveLocation + GunSoundFile5)
  145.             Waiting.Text = "Removing gun sounds (50%)"
  146.             File.Move(Location + GunSoundFile6, MoveLocation + GunSoundFile6)
  147.             Waiting.Text = "Removing gun sounds (60%)"
  148.             File.Move(Location + GunSoundFile7, MoveLocation + GunSoundFile7)
  149.             Waiting.Text = "Removing gun sounds (70%)"
  150.             File.Move(Location + GunSoundFile8, MoveLocation + GunSoundFile8)
  151.             File.Move(Location + GunSoundFile9, MoveLocation + GunSoundFile9)
  152.             Waiting.Text = "Removing gun sounds (80%)"
  153.             File.Move(Location + GunSoundFile10, MoveLocation + GunSoundFile10)
  154.             File.Move(Location + GunSoundFile11, MoveLocation + GunSoundFile11)
  155.             Waiting.Text = "Removing gun sounds (90%)"
  156.             File.Move(Location + GunSoundFile12, MoveLocation + GunSoundFile12)
  157.             File.Move(Location + GunSoundFile13, MoveLocation + GunSoundFile13)
  158.             Waiting.Text = "Removing gun sounds (100%)"
  159.         End If
  160.  
  161.         Dim AttatchT As String
  162.         AttatchT = "ATTACH_T.rez"
  163.         If Attach.Checked = True Then
  164.             On Error Resume Next
  165.             File.Move(Location + AttatchT, MoveLocation + AttatchT)
  166.             Waiting.Text = "Removing Attatchments (100%)"
  167.         End If
  168.  
  169.         Dim CharFile1 As String
  170.         CharFile1 = "CHARS_T_BODY.rez"
  171.         Dim CharFile2 As String
  172.         CharFile2 = "CHARS_T_FACE.rez"
  173.         Dim CharFile3 As String
  174.         CharFile3 = "CHARS_T_HAND.rez"
  175.         Dim CharFile4 As String
  176.         CharFile4 = "CHARS_T_HEAD.rez"
  177.         If Chara.Checked = True Then
  178.             On Error Resume Next
  179.             File.Move(Location + CharFile1, MoveLocation + CharFile1)
  180.             File.Move(Location + CharFile2, MoveLocation + CharFile2)
  181.             File.Move(Location + CharFile3, MoveLocation + CharFile3)
  182.             File.Move(Location + CharFile4, MoveLocation + CharFile4)
  183.         End If
  184.         Waiting.Text = "Done"
  185. msgbox("Done!")
  186.     End Sub
  187.  
  188.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Revert.Click
  189.         Waiting.Text = "Reverting..."
  190.         Dim Location As String
  191.         Dim MoveLocation As String
  192.         Location = FolderDialog.SelectedPath + "\Combat Arms\Game\"
  193.         MoveLocation = FolderDialog.SelectedPath + "\Combat Arms\Game\BGM\"
  194.         Dim CharFile1 As String
  195.         CharFile1 = "CHARS_T_BODY.rez"
  196.         Dim CharFile2 As String
  197.         CharFile2 = "CHARS_T_FACE.rez"
  198.         Dim CharFile3 As String
  199.         CharFile3 = "CHARS_T_HAND.rez"
  200.         Dim CharFile4 As String
  201.         CharFile4 = "CHARS_T_HEAD.rez"
  202.         Dim GunsFile1 As String
  203.         GunsFile1 = "GUNS_T_HH.rez"
  204.         Dim GunsFile2 As String
  205.         GunsFile2 = "GUNS_T_PV_AR.rez"
  206.         Dim GunsFile3 As String
  207.         GunsFile3 = "GUNS_T_PV_ETC.rez"
  208.         Dim GunsFile4 As String
  209.         GunsFile4 = "GUNS_T_PV_HAND.rez"
  210.         Dim GunsFile5 As String
  211.         GunsFile5 = "GUNS_T_PV_LAUNCHER.rez"
  212.         Dim GunsFile6 As String
  213.         GunsFile6 = "GUNS_T_PV_MELEE.rez"
  214.         Dim GunsFile7 As String
  215.         GunsFile7 = "GUNS_T_PV_OPTION.rez"
  216.         Dim GunsFile8 As String
  217.         GunsFile8 = "GUNS_T_PV_Pistol.rez"
  218.         Dim GunsFile9 As String
  219.         GunsFile9 = "GUNS_T_PV_SG.rez"
  220.         Dim GunsFile10 As String
  221.         GunsFile10 = "GUNS_T_PV_SMG.rez"
  222.         Dim GunsFile11 As String
  223.         GunsFile11 = "GUNS_T_PV_SR.rez"
  224.         Dim GunsFile12 As String
  225.         GunsFile12 = "GUNS_T_PV_Throwing.rez"
  226.         Dim GunsFile13 As String
  227.         GunsFile13 = "GUNS_T_PV_MG.rez"
  228.         Dim MapFile1 As String
  229.         MapFile1 = "TEXFX.REZ"
  230.         Dim MapFile2 As String
  231.         MapFile2 = "PROPS.REZ"
  232.         Dim MapFile3 As String
  233.         MapFile3 = "SHADERS.REZ"
  234.         Dim MapFile4 As String
  235.         MapFile4 = "TEXTURESCRIPTS.REZ"
  236.         Dim MapFile5 As String
  237.         MapFile5 = "TEXTURES.REZ"
  238.         Dim MapFile6 As String
  239.         MapFile6 = "PREFABS.REZ"
  240.         Dim GunSoundFile1 As String
  241.         GunSoundFile1 = "GUNS_SND_AR.rez"
  242.         Dim GunSoundFile2 As String
  243.         GunSoundFile2 = "GUNS_SND_ETC.rez"
  244.         Dim GunSoundFile3 As String
  245.         GunSoundFile3 = "GUNS_SND_IMPACTS.rez"
  246.         Dim GunSoundFile4 As String
  247.         GunSoundFile4 = "GUNS_SND_LAUNCHER.rez"
  248.         Dim GunSoundFile5 As String
  249.         GunSoundFile5 = "GUNS_SND_MELEE.rez"
  250.         Dim GunSoundFile6 As String
  251.         GunSoundFile6 = "GUNS_SND_MG.rez"
  252.         Dim GunSoundFile7 As String
  253.         GunSoundFile7 = "GUNS_SND_OPTION.rez"
  254.         Dim GunSoundFile8 As String
  255.         GunSoundFile8 = "GUNS_SND_Pistol.rez"
  256.         Dim GunSoundFile9 As String
  257.         GunSoundFile9 = "GUNS_SND_SG.rez"
  258.         Dim GunSoundFile10 As String
  259.         GunSoundFile10 = "GUNS_SND_SHELLS.rez"
  260.         Dim GunSoundFile11 As String
  261.         GunSoundFile11 = "GUNS_SND_SMG.rez"
  262.         Dim GunSoundFile12 As String
  263.         GunSoundFile12 = "GUNS_SND_SR.rez"
  264.         Dim GunSoundFile13 As String
  265.         GunSoundFile13 = "GUNS_SND_Throwing.rez"
  266.         Dim AttatchT As String
  267.         AttatchT = "ATTACH_T.rez"
  268.  
  269.         On Error Resume Next
  270.         File.Move(MoveLocation + AttatchT, Location + AttatchT)
  271.         File.Move(MoveLocation + GunsFile1, Location + GunsFile1)
  272.         File.Move(MoveLocation + GunsFile2, Location + GunsFile2)
  273.         File.Move(MoveLocation + GunsFile3, Location + GunsFile3)
  274.         File.Move(MoveLocation + GunsFile4, Location + GunsFile4)
  275.         File.Move(MoveLocation + GunsFile5, Location + GunsFile5)
  276.         File.Move(MoveLocation + GunsFile6, Location + GunsFile6)
  277.         File.Move(MoveLocation + GunsFile7, Location + GunsFile7)
  278.         File.Move(MoveLocation + GunsFile8, Location + GunsFile8)
  279.         File.Move(MoveLocation + GunsFile9, Location + GunsFile9)
  280.         File.Move(MoveLocation + GunsFile10, Location + GunsFile10)
  281.         File.Move(MoveLocation + GunsFile11, Location + GunsFile11)
  282.         File.Move(MoveLocation + GunsFile12, Location + GunsFile12)
  283.         File.Move(MoveLocation + GunsFile13, Location + GunsFile13)
  284.         File.Move(MoveLocation + MapFile1, Location + MapFile1)
  285.         File.Move(MoveLocation + MapFile2, Location + MapFile2)
  286.         File.Move(MoveLocation + MapFile3, Location + MapFile3)
  287.         File.Move(MoveLocation + MapFile4, Location + MapFile4)
  288.         File.Move(MoveLocation + MapFile5, Location + MapFile5)
  289.         File.Move(MoveLocation + MapFile6, Location + MapFile6)
  290.         File.Move(MoveLocation + GunSoundFile1, Location + GunSoundFile1)
  291.         File.Move(MoveLocation + GunSoundFile2, Location + GunSoundFile2)
  292.         File.Move(MoveLocation + GunSoundFile3, Location + GunSoundFile3)
  293.         File.Move(MoveLocation + GunSoundFile4, Location + GunSoundFile4)
  294.         File.Move(MoveLocation + GunSoundFile5, Location + GunSoundFile5)
  295.         File.Move(MoveLocation + GunSoundFile6, Location + GunSoundFile6)
  296.         File.Move(MoveLocation + GunSoundFile7, Location + GunSoundFile7)
  297.         File.Move(MoveLocation + GunSoundFile8, Location + GunSoundFile8)
  298.         File.Move(MoveLocation + GunSoundFile9, Location + GunSoundFile9)
  299.         File.Move(MoveLocation + GunSoundFile10, Location + GunSoundFile10)
  300.         File.Move(MoveLocation + GunSoundFile11, Location + GunSoundFile11)
  301.         File.Move(MoveLocation + GunSoundFile12, Location + GunSoundFile12)
  302.         File.Move(MoveLocation + GunSoundFile13, Location + GunSoundFile13)
  303.         File.Move(MoveLocation + CharFile1, Location + CharFile1)
  304.         File.Move(MoveLocation + CharFile2, Location + CharFile2)
  305.         File.Move(MoveLocation + CharFile3, Location + CharFile3)
  306.         File.Move(MoveLocation + CharFile4, Location + CharFile4)
  307.         Guns.Checked = False
  308.         Map.Checked = False
  309.         Chara.Checked = False
  310.         GunSound.Checked = False
  311.         Attach.Checked = False
  312.         Waiting.Text = "Done"
  313. msgbox("Done!")
  314.     End Sub
  315.  
  316. End Class
RAW Paste Data
Challenge yourself this year...
Learn something new in 2017
Top