//John's Internet Midi Player - Last Modified 2005-Mar-12 //======================================================= d=document;CurrSong=0; MusicGroup='';MusicSite='';MusicList=new Array(); function JWrite(id,text){d=document;if(d.getElementById){x=d.getElementById(id)}else if(d.all){x=d.all[id]};x.innerHTML='';x.innerHTML=text;return;}; function GetSong() { song=MusicList[CurrSong]; tail=song.substring(song.length-3); if(tail.toUpperCase()!='MID'){song+='.mid'}; return song; }; //function DoMusic(){JWrite('Music','');return;}; function DoMusic(){JWrite('Music','');return;}; function ChngMusic(x) { if(x=='+'){CurrSong=(CurrSong+1)%MusicList.length}; if(x=='-'){CurrSong=(CurrSong-1+MusicList.length)%MusicList.length}; if(x=='R'){CurrSong=Math.floor(Math.random()*MusicList.length)}; JWrite('MusicInfo1',MusicGroup+"-Music: ["+(CurrSong+1)+"/"+MusicList.length+"]"); //JWrite('MusicInfo2',MusicList[CurrSong]+".mid |> "); JWrite('MusicInfo2',GetSong()+" |> "); JWrite('Music',''); return; }; //============================= function SetMusicGroup(GrpName) { if(GrpName=='Enya') { MusicGroup="Enya"; MusicSite="http://www.angelfire.com/ny5/davesworld56/"; MusicList=new Array( "TheCelts", "Aldebaran", "IWantTomorrow", "DeireadThTuath", "TheSunInTheStream", "ToGoBeyond1", "Fairytale", "Epona", "Triad", "Portrait", "Boadicea", "BardDance", "EnyaDanYDwr", "ToGoBeyond2", "Watermark", "CursumPerficio", "OnYourShore", "StormsInAfrica", "Exile", "MissClareRemembers", "OrinocoFlow", "EveningFalls", "River", "TheLongships", "NaLaethaGealMoige", "ShepherdMoons", "CaribbeanBlue", "HowCanIKeepFromSinging", "Ebudae", "Angeles", "NoHollyForMissQuinn", "BookOfDays", "Evacuee", "Lothlorien", "MarbleHalls", "AferVentus", "Smaointe", "OutOfTheBlue", "TheMemoryOfTrees", "AnywhereIs", "PaxDeorum", "AthairArNeamh", "FromWhereIAm", "ChinaRoses", "HopeHasAPlace", "TeaHouseMoon", "OnceYouHadGold", "LaSonadora", "OnMyWayHome", "OnlyIf", "ADayWithoutRain", "WildChild2", "OnlyTime", "FlorasSecret", "FallenEmbers", "SilverInches", "Pilgrim", "TheFirstOfAutumn", "OicheChiuin", "WillowsOnTheWater2", "OnlyTime" ); };//if Enya if(GrpName=='Rush') { MusicGroup="Rush"; MusicSite="http://rushmidi.com/midi/"; MusicList=new Array( "2112", "A_Farewell_To_Kings", "A_Passage_To_Bangkok", "After_Image", "Alien_Shore", "Animate", "Anthem", "Available_Light", "Bastille_Day", "Before_And_After", "Beneath_Between_And_Behind", "Best_I_Can", "Between_The_Wheels", "Bravado", "Bravado_Live", "Broon's_Bane", "By-Thor_And_The_Snow_Dog", "Chain_Lightning", "Chemistry", "Cinderella_Man", "Circumstances", "Closer_To_The_Heart", "Cold_Fire", "Countdown", "Cut_To_The_Chase", "Cygnus_X-1", "Different_Strings", "Digital_Man", "Distant_Early_Warning", "Double_Agent", "Dreamline", "Driven", "Emotion_Detector", "Entre_Nous", "Everyday_Glory", "Finding_My_Way", "Fly_By_Night", "Force_Ten", "Freewill", "Grand_Designs", "Half_The_World", "Hand_Over_Fist", "Hemispheres", "High_Water", "In_The_End", "In_The_Mood", "Jacob's_Ladder", "Kid_Gloves", "La_Villa_Strangiato", "Lakeside_Park", "Leave_That_Thing_Alone", "Lessons", "Limelight", "Lock_And_Key", "Losing_It", "Madrigal", "Making_Memories", "Manhattan_Project", "Marathon", "Middletown_Dreams", "Mission", "Mystic_Rhythms", "Natural_Science", "Need_Some_Love", "New_World_Man", "Nobody's_Hero", "Open_Secrets", "Panacea", "Presto", "Prime_Mover", "Red_Barchetta", "Red_Lenses", "Red_Sector_A", "Red_Tide", "Resist", "Rivendell", "Roll_The_Bones", "Scars", "Show_Don't_Tell", "Something_For_Nothing", "Speed_Of_Love", "Stick_It_Out", "Subdivisions", "Super_Conductor", "Tears", "Territories", "Test_For_Echo", "The_Analog_Kid", "The_Big_Money", "The_Big_Wheel", "The_Body_Electric", "The_Camera_Eye", "The_Enemy_Within", "The_Fountain_Of_Lamnenth", "The_Necromancer", "The_Pass", "The_Spirit_Of_Radio", "The_Trees", "The_Twilight_Zone", "The_Weapon", "Time_And_Motion", "Time_Stand_Still", "Tom_Sawyer", "Totem", "Turn_The_Page", "Virtuality", "Vital_Signs", "War_Paint", "Where's_My_Thing", "Witch_Hunt", "Working_Man", "Xanadu", "YYZ" ); };//if Rush if(GrpName=='TanDream') { MusicGroup="TanDream"; MusicSite="http://www.tadream.net/midi/TANGERINE/" MusicList=new Array( "Big_Sleep_In_The_Search_For_Hades_(Reggea_Style)_(Tanger~2CA", "Big_Sleep_In_The_Search_For_Hades_-_Reggae", "Canyon_voices", "Cool_At_Heart_(Preview!)_(Tangerine_Dream)", "Cool_At_Heart_(Tangerine_Dream)", "Dolphin_Dance", "Dolphin_Dance_-_Reggae", "Dreamtime_-_1", "Dreamtime_-_2", "Force_Majeure", "Largo_(Tangerine_Dream)", "Lifted_Veil", "Melrose_Place", "Mojave_Plan", "Monolight_-_Swing", "Song_Of_The_Whale_Pt1", "Stratosfear_(Tangerine_Dream)", "Streethawk_(Tangerine_Dream)", "Stuntman", "Sungate---_(Tangerine_Dream)", "Tangram_-_Solution_Part", "Theme_-_Tangerine_Dream", "Tiergarten", "Tiger", "Too_Hot_For_My_Chinchilla_(Tangerine_Dream)", "Tula", "White_Eagle_-_Bossanova", "dreamtime_ok", "logos88", "poland", "tangent", "BigSur.MID", "CHORONZN.MID", "TIMESQ.MID" ); };//if TanDream if(GrpName=='Vangelis') { MusicGroup="Vangelis"; MusicSite="http://virtual.xs4all.nl/download/midi/v/"; MusicList=new Array( "vangelis_-_1492", "vangelis_-_alpha", "vangelis_-_antartic", "vangelis_-_antartic1", "vangelis_-_antartica_1", "vangelis_-_antartica_2", "vangelis_-_blade_runner_1", "vangelis_-_blade_runner_2", "vangelis_-_blade_runner_3", "vangelis_-_blade_runner_alpha_1", "vangelis_-_blade_runner_remix", "vangelis_-_bladerunner", "vangelis_-_bounty", "vangelis_-_chariots_of_fire", "vangelis_-_chariots_of_fire_2", "vangelis_-_chung_kuo", "vangelis_-_chung_kuo_2", "vangelis_-_conquest_of_paradise_1", "vangelis_-_conquest_of_paradise_2", "vangelis_-_conquest_of_paradise_3", "vangelis_-_deliverance", "vangelis_-_dervish", "vangelis_-_glorianna", "vangelis_-_hymne", "vangelis_-_hymne_2", "vangelis_-_i_hear_you_now", "vangelis_-_ill_find_my_way_home_1", "vangelis_-_ill_find_my_way_home_2", "vangelis_-_light_and_shadow", "vangelis_-_light_and_shadow_2", "vangelis_-_love_theme", "vangelis_-_mask", "vangelis_-_mask_2", "vangelis_-_memories_of_green", "vangelis_-_missing", "vangelis_-_pulstar", "vangelis_-_pulstar_2", "vangelis_-_rain_and_tears", "vangelis_-_theme_from_bladerunner", "vangelis_-_to_the_unknown_man" ); };//if Vangelis if(GrpName=='Local') { MusicGroup="Local"; MusicSite=""; MusicList=new Array( "AEL", "carmina_25", "DesertRose", "Egyptian", "fifthelement", "forever.MID", "MissImpo", "Presto", "Raiders", "SpyHunter", "Xfiles" ); };//if Local //============ ChngMusic('R'); return; };//SetMusicGroup(GrpName) d.write( ' '+ ' '+ ' ' ); d.write('
*
*
*
'); //SetMusicGroup('Enya');