# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1319208378 25200
# Node ID 477c36226481babf5b31da3b3f7c6172ca5fa4b5
# Parent  a378631263965315248877409adbf026a2c2a369
added old scripts for historical interest.

diff -r a37863126396 -r 477c36226481 old/remname.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/old/remname.pl	Fri Oct 21 07:46:18 2011 -0700
@@ -0,0 +1,23 @@
+
+
+$dir='./';
+opendir DIR, $dir;
+@files=grep !/^\./, readdir(DIR);
+$" = "\n";
+#print "@files";
+$name = "AA";
+
+for (@files){
+	if ($_=~m/\.spc$/) {
+        #print "$_\n";
+		rename "C:/spc700/$_", "C:/spc700/$name.spc";
+		$name++;
+		
+		
+        
+	
+		}
+		
+		
+		
+}
\ No newline at end of file
diff -r a37863126396 -r 477c36226481 old/spcconvert.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/old/spcconvert.pl	Fri Oct 21 07:46:18 2011 -0700
@@ -0,0 +1,22 @@
+
+
+$dir='./';
+opendir DIR, $dir;
+@files=grep !/^\./, readdir(DIR);
+$" = "\n";
+#print "@files";
+$name = "A";
+
+for (@files){
+	if ($_=~m/\.spc$/) {
+        #print "$_\n";
+		
+		$base = $_;
+		$base =~ s/\.spc//;
+        system("spcplay -z $base.spc -w $base.wav\n");
+	
+		}
+		
+		
+		
+}
\ No newline at end of file
diff -r a37863126396 -r 477c36226481 old/spckeyguide.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/old/spckeyguide.pl	Fri Oct 21 07:46:18 2011 -0700
@@ -0,0 +1,5 @@
+use Win32::GuiTest;
+while(1){
+sleep 100;
+Win32::GuiTest::SendKeys("j");
+}
diff -r a37863126396 -r 477c36226481 old/unrename.pl
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/old/unrename.pl	Fri Oct 21 07:46:18 2011 -0700
@@ -0,0 +1,162 @@
+@www = qw(AnnoyingKnock1.wav
+AnnoyingKnock2.wav
+AppleOfEnlightenment.wav
+Arcade.wav
+Battle01.wav
+Battle02.wav
+Battle03.wav
+Battle04.wav
+Battle05.wav
+Battle06.wav
+Battle07.wav
+Battle08.wav
+Battle09.wav
+Battle10.wav
+Bicycle.wav
+BossIntro.wav
+BrickRoad.wav
+Bus.wav
+Cave1.wav
+Cave2.wav
+Cave3.wav
+CaveOfThePast.wav
+ChaosTheater.wav
+CoffeeBreak.wav
+Dalaam.wav
+DalaamIntro.wav
+DeepDarkness.wav
+Defeated.wav
+Delivery.wav
+DrAndonuts.wav
+DrugStore.wav
+DungeonMan.wav
+DustyDunesDesert.wav
+EightMelodies.wav
+Ending1.wav
+Ending2.wav
+Ending3.wav
+FileSelect.wav
+FireSpring.wav
+FlyingMan.wav
+Fourside.wav
+Giygas1.wav
+Giygas2.wav
+Giygas3.wav
+Giygas4.wav
+Giygas5.wav
+GiygasDeath.wav
+GiygasIntro.wav
+GiygasPath.wav
+GiygasStatic.wav
+GrapefruitFalls.wav
+HappyHappy.wav
+HiddenTrack.wav
+Home.wav
+Hospital.wav
+Hotel1.wav
+Hotel2.wav
+Hotel3.wav
+Hotel4.wav
+HotelScaraba.wav
+House1.wav
+House2.wav
+House3.wav
+Intro1.wav
+Intro2.wav
+IntroDemo.wav
+IntroTitle.wav
+JackiesCafe.wav
+LevelUp.wav
+LostUnderworld.wav
+Magicant1.wav
+Magicant2.wav
+MagicantDepart.wav
+MagicantEnter.wav
+MagicCake.wav
+MasterBelchBase.wav
+MonkeyCave.wav
+Moonside.wav
+Mu.wav
+NewGame.wav
+Night.wav
+Onett1.wav
+Onett2.wav
+OnettBuzz1.wav
+OnettBuzz2.wav
+OnettBuzz3.wav
+OnettNight1.wav
+OnettNight2.wav
+OnettNight3.wav
+Paula.wav
+PeacefulRest.wav
+Photographer.wav
+PinkCloud.wav
+Pokey.wav
+PokeyIntro.wav
+PokeysHouse.wav
+PokeysHouseBuzz.wav
+PowerUp.wav
+Pray.wav
+Pyramid.wav
+Return1.wav
+Return2.wav
+RideSub.wav
+RideUFO.wav
+Robots.wav
+Runaway5Bus1.wav
+Runaway5Bus2.wav
+Runaway5Bus3.wav
+Runaway5Song1.wav
+Runaway5Song2.wav
+Sailing1.wav
+Sailing2.wav
+SaturnValley.wav
+SaturnValley2.wav
+Scaraba.wav
+ScarabaDesert.wav
+SeaOfEden.wav
+SnowWood.wav
+SnowWood2.wav
+SoundStone.wav
+SoundStone2.wav
+Summers.wav
+TendaVillage.wav
+Tent.wav
+Tessie1.wav
+Tessie2.wav
+Threed.wav
+Topolla.wav
+Twoson.wav
+Venus.wav
+Win1.wav
+Win2.wav
+Winters.wav
+YourSanctuary1.wav
+YourSanctuary2.wav
+Zombies.wav);
+
+
+
+$dir='./';
+opendir DIR, $dir;
+@files=grep !/^\./, readdir(DIR);
+$" = "\n";
+#print "@files";
+$name = "AA";
+$par = 0;
+for (@files){
+	
+	if ($_=~m/\.wav$/i) {
+        #print "$_\n";
+		rename "C:/spc700/$_", "C:/spc700/$www[$par]";
+		$name++;
+		$par++;
+		
+		
+        
+	
+		}
+		
+		
+		
+}
\ No newline at end of file