Mercurial > spc_convert
changeset 9:477c36226481 tip
added old scripts for historical interest.
| author | Robert McIntyre <rlm@mit.edu> |
|---|---|
| date | Fri, 21 Oct 2011 07:46:18 -0700 |
| parents | a37863126396 |
| children | |
| files | old/remname.pl old/spcconvert.pl old/spckeyguide.pl old/unrename.pl |
| diffstat | 4 files changed, 212 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 1.2 +++ b/old/remname.pl Fri Oct 21 07:46:18 2011 -0700 1.3 @@ -0,0 +1,23 @@ 1.4 + 1.5 + 1.6 +$dir='./'; 1.7 +opendir DIR, $dir; 1.8 +@files=grep !/^\./, readdir(DIR); 1.9 +$" = "\n"; 1.10 +#print "@files"; 1.11 +$name = "AA"; 1.12 + 1.13 +for (@files){ 1.14 + if ($_=~m/\.spc$/) { 1.15 + #print "$_\n"; 1.16 + rename "C:/spc700/$_", "C:/spc700/$name.spc"; 1.17 + $name++; 1.18 + 1.19 + 1.20 + 1.21 + 1.22 + } 1.23 + 1.24 + 1.25 + 1.26 +} 1.27 \ No newline at end of file
2.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 2.2 +++ b/old/spcconvert.pl Fri Oct 21 07:46:18 2011 -0700 2.3 @@ -0,0 +1,22 @@ 2.4 + 2.5 + 2.6 +$dir='./'; 2.7 +opendir DIR, $dir; 2.8 +@files=grep !/^\./, readdir(DIR); 2.9 +$" = "\n"; 2.10 +#print "@files"; 2.11 +$name = "A"; 2.12 + 2.13 +for (@files){ 2.14 + if ($_=~m/\.spc$/) { 2.15 + #print "$_\n"; 2.16 + 2.17 + $base = $_; 2.18 + $base =~ s/\.spc//; 2.19 + system("spcplay -z $base.spc -w $base.wav\n"); 2.20 + 2.21 + } 2.22 + 2.23 + 2.24 + 2.25 +} 2.26 \ No newline at end of file
3.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 3.2 +++ b/old/spckeyguide.pl Fri Oct 21 07:46:18 2011 -0700 3.3 @@ -0,0 +1,5 @@ 3.4 +use Win32::GuiTest; 3.5 +while(1){ 3.6 +sleep 100; 3.7 +Win32::GuiTest::SendKeys("j"); 3.8 +}
4.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000 4.2 +++ b/old/unrename.pl Fri Oct 21 07:46:18 2011 -0700 4.3 @@ -0,0 +1,162 @@ 4.4 +@www = qw(AnnoyingKnock1.wav 4.5 +AnnoyingKnock2.wav 4.6 +AppleOfEnlightenment.wav 4.7 +Arcade.wav 4.8 +Battle01.wav 4.9 +Battle02.wav 4.10 +Battle03.wav 4.11 +Battle04.wav 4.12 +Battle05.wav 4.13 +Battle06.wav 4.14 +Battle07.wav 4.15 +Battle08.wav 4.16 +Battle09.wav 4.17 +Battle10.wav 4.18 +Bicycle.wav 4.19 +BossIntro.wav 4.20 +BrickRoad.wav 4.21 +Bus.wav 4.22 +Cave1.wav 4.23 +Cave2.wav 4.24 +Cave3.wav 4.25 +CaveOfThePast.wav 4.26 +ChaosTheater.wav 4.27 +CoffeeBreak.wav 4.28 +Dalaam.wav 4.29 +DalaamIntro.wav 4.30 +DeepDarkness.wav 4.31 +Defeated.wav 4.32 +Delivery.wav 4.33 +DrAndonuts.wav 4.34 +DrugStore.wav 4.35 +DungeonMan.wav 4.36 +DustyDunesDesert.wav 4.37 +EightMelodies.wav 4.38 +Ending1.wav 4.39 +Ending2.wav 4.40 +Ending3.wav 4.41 +FileSelect.wav 4.42 +FireSpring.wav 4.43 +FlyingMan.wav 4.44 +Fourside.wav 4.45 +Giygas1.wav 4.46 +Giygas2.wav 4.47 +Giygas3.wav 4.48 +Giygas4.wav 4.49 +Giygas5.wav 4.50 +GiygasDeath.wav 4.51 +GiygasIntro.wav 4.52 +GiygasPath.wav 4.53 +GiygasStatic.wav 4.54 +GrapefruitFalls.wav 4.55 +HappyHappy.wav 4.56 +HiddenTrack.wav 4.57 +Home.wav 4.58 +Hospital.wav 4.59 +Hotel1.wav 4.60 +Hotel2.wav 4.61 +Hotel3.wav 4.62 +Hotel4.wav 4.63 +HotelScaraba.wav 4.64 +House1.wav 4.65 +House2.wav 4.66 +House3.wav 4.67 +Intro1.wav 4.68 +Intro2.wav 4.69 +IntroDemo.wav 4.70 +IntroTitle.wav 4.71 +JackiesCafe.wav 4.72 +LevelUp.wav 4.73 +LostUnderworld.wav 4.74 +Magicant1.wav 4.75 +Magicant2.wav 4.76 +MagicantDepart.wav 4.77 +MagicantEnter.wav 4.78 +MagicCake.wav 4.79 +MasterBelchBase.wav 4.80 +MonkeyCave.wav 4.81 +Moonside.wav 4.82 +Mu.wav 4.83 +NewGame.wav 4.84 +Night.wav 4.85 +Onett1.wav 4.86 +Onett2.wav 4.87 +OnettBuzz1.wav 4.88 +OnettBuzz2.wav 4.89 +OnettBuzz3.wav 4.90 +OnettNight1.wav 4.91 +OnettNight2.wav 4.92 +OnettNight3.wav 4.93 +Paula.wav 4.94 +PeacefulRest.wav 4.95 +Photographer.wav 4.96 +PinkCloud.wav 4.97 +Pokey.wav 4.98 +PokeyIntro.wav 4.99 +PokeysHouse.wav 4.100 +PokeysHouseBuzz.wav 4.101 +PowerUp.wav 4.102 +Pray.wav 4.103 +Pyramid.wav 4.104 +Return1.wav 4.105 +Return2.wav 4.106 +RideSub.wav 4.107 +RideUFO.wav 4.108 +Robots.wav 4.109 +Runaway5Bus1.wav 4.110 +Runaway5Bus2.wav 4.111 +Runaway5Bus3.wav 4.112 +Runaway5Song1.wav 4.113 +Runaway5Song2.wav 4.114 +Sailing1.wav 4.115 +Sailing2.wav 4.116 +SaturnValley.wav 4.117 +SaturnValley2.wav 4.118 +Scaraba.wav 4.119 +ScarabaDesert.wav 4.120 +SeaOfEden.wav 4.121 +SnowWood.wav 4.122 +SnowWood2.wav 4.123 +SoundStone.wav 4.124 +SoundStone2.wav 4.125 +Summers.wav 4.126 +TendaVillage.wav 4.127 +Tent.wav 4.128 +Tessie1.wav 4.129 +Tessie2.wav 4.130 +Threed.wav 4.131 +Topolla.wav 4.132 +Twoson.wav 4.133 +Venus.wav 4.134 +Win1.wav 4.135 +Win2.wav 4.136 +Winters.wav 4.137 +YourSanctuary1.wav 4.138 +YourSanctuary2.wav 4.139 +Zombies.wav); 4.140 + 4.141 + 4.142 + 4.143 +$dir='./'; 4.144 +opendir DIR, $dir; 4.145 +@files=grep !/^\./, readdir(DIR); 4.146 +$" = "\n"; 4.147 +#print "@files"; 4.148 +$name = "AA"; 4.149 +$par = 0; 4.150 +for (@files){ 4.151 + 4.152 + if ($_=~m/\.wav$/i) { 4.153 + #print "$_\n"; 4.154 + rename "C:/spc700/$_", "C:/spc700/$www[$par]"; 4.155 + $name++; 4.156 + $par++; 4.157 + 4.158 + 4.159 + 4.160 + 4.161 + } 4.162 + 4.163 + 4.164 + 4.165 +} 4.166 \ No newline at end of file