Results 1 to 5 of 5
  1. #1
    Samueldo's Avatar
    Join Date
    Jan 2010
    Gender
    male
    Location
    Meh
    Posts
    1,024
    Reputation
    29
    Thanks
    346
    My Mood
    Inspired

    Cool [Source]Sound Changer

    To stop choobs leeching, I'm not showing how to use it.

    If you do use it in any way then please credit me on the tool! Or I won't release source like this anymore.

    Code:
    Public Class Form1
        Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            If Dir(TextBox1.Text + "\Game\BGM\") <> "" Then
                System****.File.SetAttributes(TextBox1.Text + "\Game\BGM\BGM_LOOP.mp3", System****.FileAttributes.Normal)
                Rename(TextBox1.Text + "\Game\BGM\BGM_LOOP.mp3", TextBox1.Text + "\Game\BGM\BGM_LOOP_2.mp3")
                IO.File.Move(TextBox2.Text + TextBox3.Text, TextBox1.Text + "\Game\BGM\")
                Rename(TextBox1.Text + "\Game\BGM\" + TextBox2.Text, TextBox1.Text + "\Game\BGM\BGM_LOOP.mp3")
            Else
                Label5.Text = "Status: BGM Failed!"
            End If
            Label5.Text = "Status: BGM Replaced!"
    
            If Dir(TextBox1.Text + "\Game\BGM\") <> "" Then
                System****.File.SetAttributes(TextBox1.Text + "\Game\BGM\Map_Loading.mp3", System****.FileAttributes.Normal)
                Rename(TextBox1.Text + "\Game\BGM\Map_Loading.mp3", TextBox1.Text + "\Game\BGM\Map_Loading_2.mp3")
                IO.File.Move(TextBox4.Text + TextBox5.Text, TextBox1.Text + "\Game\BGM\")
                Rename(TextBox1.Text + "\Game\BGM\" + TextBox5.Text, TextBox1.Text + "\Game\BGM\Map_Loading.mp3")
            Else
                Label5.Text = "Status: Loading Failed!"
            End If
            Label5.Text = "Status: Loading Replaced!"
    
            If Dir(TextBox1.Text + "\Game\BGM\") <> "" Then
                System****.File.SetAttributes(TextBox1.Text + "\Game\BGM\QRT_Count_BGM.mp3", System****.FileAttributes.Normal)
                Rename(TextBox1.Text + "\Game\BGM\QRT_Count_BGM.mp3", TextBox1.Text + "\Game\BGM\QRT_Count_BGM_2.mp3")
                IO.File.Move(TextBox6.Text + TextBox7.Text, TextBox1.Text + "\Game\BGM\")
                Rename(TextBox1.Text + "\Game\BGM\" + TextBox7.Text, TextBox1.Text + "\Game\BGM\QRT_Count_BGM.mp3")
            Else
                Label5.Text = "Status: BGM Failed!"
            End If
            Label5.Text = "Status: BGM Replaced!"
        End Sub
    End Class
    Quote Originally Posted by Grim View Post
    glad to be an inspiration
    Minions rule. /endof

    InjectPlz Refresh - download v1.0 now!

  2. #2
    MugNuf's Avatar
    Join Date
    Dec 2009
    Gender
    male
    Posts
    792
    Reputation
    9
    Thanks
    160
    My Mood
    Goofy
    Easy to make into a program, lol, even for choobs. Good job :P.

  3. #3
    Samueldo's Avatar
    Join Date
    Jan 2010
    Gender
    male
    Location
    Meh
    Posts
    1,024
    Reputation
    29
    Thanks
    346
    My Mood
    Inspired
    If they can work VB they're only half-choob so this is what I've done.
    Quote Originally Posted by Grim View Post
    glad to be an inspiration
    Minions rule. /endof

    InjectPlz Refresh - download v1.0 now!

  4. #4
    MGHP's Avatar
    Join Date
    Nov 2008
    Gender
    male
    Posts
    94
    Reputation
    10
    Thanks
    21
    My Mood
    Aggressive
    I think this is for vb 2008 express..Right?

    And i have another question why did you use label5 but not 1?When i read the code i have realised that xD
    Goal List:

    Have 50 posts []
    Have 75 posts[]
    Have 100 posts [ ]
    Have 150 posts []
    Have 250 posts []
    Have 500 posts []
    Have 1000 posts[]
    Have atleast 2 acc banned[]
    Make my own hack []
    Finish list start new one[]

    Im getting some kind of posts from some people and IDK WHAT to do with em so let me tell now If you send me message about " should be MPGH not MGHP AND LAUGH ABOUT" IT I KNOW THAT IT SHOULD BE like that NOT MGHP BUT MGHP STANDS FOR ME SOMETHING Else
    Actually when i got this username it was going to be MultiGearHp then I just want to make it smaller and said MGHP so now if you send me a message remember this!And if any mod can change it To MultiGearHp im glad to that! Thank MGHP (MultiGearHp)!


    Status: Bored From Playing Combat Arms

  5. #5
    Samueldo's Avatar
    Join Date
    Jan 2010
    Gender
    male
    Location
    Meh
    Posts
    1,024
    Reputation
    29
    Thanks
    346
    My Mood
    Inspired
    Yep, it's 08 Express. And it was Label5 because the other 4 were just info, like "Replacement:" and "CA folder:" so people know what the hell they're doing.
    Quote Originally Posted by Grim View Post
    glad to be an inspiration
    Minions rule. /endof

    InjectPlz Refresh - download v1.0 now!

Similar Threads

  1. [Release] Counter Strike Source sound (Requested by andreas322) by inc3ndium
    By inc3ndium in forum CrossFire Mods & Rez Modding
    Replies: 10
    Last Post: 11-24-2010, 01:04 PM
  2. [Release] Counterstrike : Source sounds
    By Zanxx in forum CrossFire Mods & Rez Modding
    Replies: 10
    Last Post: 08-06-2010, 04:21 PM
  3. Combat arms sounds to Counter Strike source sound
    By calmiller in forum Combat Arms Mod Request
    Replies: 5
    Last Post: 07-17-2010, 05:15 AM
  4. [Release] Sound Changer 1.1
    By Samueldo in forum Combat Arms Hacks & Cheats
    Replies: 21
    Last Post: 04-12-2010, 05:54 PM
  5. [Release] Sound Changer (evolved from BGM Changer)
    By Samueldo in forum Combat Arms Hacks & Cheats
    Replies: 19
    Last Post: 01-12-2010, 11:21 AM