program EoBots_JukeBox_V2; //Console Edit var i:integer; //Songs 12 - 27 added by Sorokya const continuous_playback =2; // will play forever const random_music = 2; // 1 will play random music const songselect = 10;{1: Linkin Park - Unknown | 19: Tetris Theme 2: Linkin Park - Numb | 20: Linkin Park - Crawling (Little Bit) 3: Zelda: Link to the Past | 21: Linkin Park - In The End (Little Bit) 4: Ironman | 22: Nelly Furtado - All Good Things 5: Happy Birthday | 23: Sadness and Sorrow 6: Simpsons | 24: Mary Had a Little Lamb 7: Master Of Puppets | 25: Camp Town Races 8: Sweet Child of Mine | 26: Pac-Man Spawn (???) 9: Jinglebells | 27: Mortal Kombat Theme (:D Sorokya's Fav.) 10: Meowmix | 11: Stronger | 12: Mario Theme | 13: Old Mac Donald | 14: Smoke On The Water | 15: Dirty Little Secret | 16: Harry Potter | 17: Futurama | 18: Mad World | } var select:Integer; procedure welcome; begin cleardebug; repeat i:=i-1; writeln('Note concept by Addyguitar-Addyrulez'); writeln('Modified by Joeyroyden to play multiple songs. All songs from http://www.Eobots-online.com, '); writeln('Author of each song in comments next to their songs.') writeln('Many Songs Added By Sorokya, Any Questions Ask In The Forums'); writeln('Starting Script In '+inttostr(i)); wait(1000); cleardebug; until(i=0); findwindowtitlepart ('endless online', false); activateclient; wait(500) end; procedure C1; begin clickmouse(41, 228, true); wait(300); end; procedure C2; begin clickmouse(41, 248, true); wait(300); end; procedure C3; begin clickmouse(41, 268, true); wait(300); end; procedure CS1; begin clickmouse(61, 228, true); wait(300); end; procedure CS2; begin clickmouse(61, 248, true); wait(300); end; procedure CS3; begin clickmouse(61, 268, true); wait(300); end; procedure D1; begin clickmouse(81, 228, true); wait(300); end; procedure D2; begin clickmouse(81, 248, true); wait(300); end; procedure D3; begin clickmouse(81, 268, true); wait(300); end; procedure DS1; begin clickmouse(101, 228, true); wait(300); end; procedure DS2; begin clickmouse(101, 248, true); wait(300); end; procedure DS3; begin clickmouse(101, 268, true); wait(300); end; procedure E1; begin clickmouse(121, 228, true); wait(300); end; procedure E2; begin clickmouse(121, 248, true); wait(300); end; procedure E3; begin clickmouse(121, 268, true); wait(300); end; procedure F1; begin clickmouse(141, 228, true); wait(300); end; procedure F2; begin clickmouse(141, 248, true); wait(300); end; procedure F3; begin clickmouse(141, 268, true); wait(300); end; procedure FS1; begin clickmouse(161, 228, true); wait(300); end; procedure FS2; begin clickmouse(161, 248, true); wait(300); end; procedure FS3; begin clickmouse(161, 268, true); wait(300); end; procedure G1; begin clickmouse(181, 228, true); wait(300); end; procedure G2; begin clickmouse(181, 248, true); wait(300); end; procedure G3; begin clickmouse(181, 268, true); wait(300); end; procedure GS1; begin clickmouse(201, 228, true); wait(300); end; procedure GS2; begin clickmouse(201, 248, true); wait(300); end; procedure GS3; begin clickmouse(201, 268, true); wait(300); end; procedure A1; begin clickmouse(221, 228, true); wait(300); end; procedure A2; begin clickmouse(221, 248, true); wait(300); end; procedure A3; begin clickmouse(221, 268, true); wait(300); end; procedure AS1; begin clickmouse(241, 228, true); wait(300); end; procedure AS2; begin clickmouse(241, 248, true); wait(300); end; procedure AS3; begin clickmouse(241, 268, true); wait(300); end; procedure B1; begin clickmouse(261, 228, true); wait(300); end; procedure B2; begin clickmouse(261, 248, true); wait(300); end; procedure B3; begin clickmouse(261, 268, true); wait(300); end; procedure LinkinPark; var counter:Integer; //Elevations begin counter:=0 repeat DS1; AS1; AS1; FS1; F2; F2; F2; F2; FS1; DS1; counter:=counter+1 until(counter=5) end; procedure LinkinParkNumb; var counter:Integer; //Elevations begin countEr:=0 repeat E2; G3; E2; A2; C3; B2; E2; G3; E2; C3; B2; G3; counter:=counter+1 until(counter=5) end; procedure ZeldaLinkToThePast; begin //Elevations D1; E1; CS1; D1; E1; CS1; C2; D2; B1; G3; DS2; C2; C3; B2; G3; D2; B1; G3; DS2; C2; C3; B2; G3; D2; B1; G3; DS2; C2; C3; B2; C3; D3; C3; G3; C3; G3; G3; D3; G3; C3; G3; C3; G3; G3; D3; G3; A2; E2; C2; E2; FS2; DS1; FS2; C3; B2; F2; GS2; G3; G3; B2; B1; G3; DS2; C2; C3; B2; G3; D2; B1; G3; DS2; C2; C3; B2; G3; D2; B1; G3; DS2; C2; C3; B2; C3; D3; C3; G3; C3; G3; G3; D3; G3; C3; G3; C3; G3; G3; D3; G3; A2; E2; C2; E2; FS2; DS2; FS2; C3; B2; F2; GS2; G3; G3; B2; B1; end; procedure IronMan; begin //Elevations D1;wait(400); F1;wait(200); F1;wait(200); G1;wait(100); G1;wait(200); AS1;wait(50); A1;wait(50); AS1;wait(50); A1;wait(50); AS1;wait(50); A1;wait(50); F1;wait(50); F1;wait(300); G1;wait(300); G1;wait(300); end; procedure HappyBirthday; begin //Elevations G3; G3; A2; G3; C3; B2;wait(300); G3; G3; A2; G3; D3; C3;wait(300); G3; G3; G3; E3; C3; C3; B2; A2; F3; F3; E3; C3; D3; C3; end; procedure Simpsons; begin //Elevations F2; A2; B2; D3; C3; A2; F2; F2; E2; E2; E2; F2; E2; E2; E2; F2; A2; E3; E3; E3; E3; F3; end; procedure MasterOfPuppets; begin //Kaplooey E3; E3; DS3; D3; E2; E2; E3; E2; E2; E3; E2; E2; E3; DS3; D3; B1; B1; B2; B1; B1; AS2; B1; B1; A2; B1; GS2; B1; G3; B1; FS2; E2; E2; E3; E2; E2; DS3; E2; E2; D3; CS3; C3; B1; B1; B2; B1; B1; AS2; B1; B1; A2; B1; GS2; B1; G3; B1; FS2; E2; E2; E3; E2; E2; DS3; E2; E2; D3; CS3; C3; E2; F2; B2; E2; F2; C3; E2; F2; CS3; E2; C3; E2; B2; B2; E2; F2; B2; E2; F2; C3; E2; F2; G3; FS2; E2; G3; FS2; E2; E2; F2; B2; E2; F2; C3; E2; F2; CS3; E2; C3; E2; B2; B2; E2; F2; B2; E2; F2; C3; E2; F2; G3; FS2; E2; G3; FS2; E2; G3; FS2; G3; FS2; E2; G3; FS2; E2; E1; E2; AS2; E1; E2; AS2; E1; E2; AS2; E1; E2; AS2; end; procedure SweetChildOfMine; begin //AddyGuitar C2;C3;G3;F2;F3;G3;E3;G3;C2;C3;G3;F2;F3;G3;E3;G3;D2;C3;G3;F2;F3;G3;E3;G3;D2;C3;G3; F2;F3;G3;E3;G3;F2;C3;G3;F2;F3;G3;E3;G3;F2;C3;G3;F2;F3;G3;E3;G3;C2;C3;G3;F2;F3;G3; E3;G3;C2;C3;G3;F2;F3;G3;E3;D2;C2;C3;G3;F2;F3;G3;E3;G3;D2;C3;G3;F2;F3;G3;E3;G3;D2; C3;G3;F2;F3;G3;E3;G3;D2;C3;G3;F2;F3;G3;E3;G3;F2;C3;G3;F2;F3;G3;E3;G3;F2;C3;G3;F2; F3;G3;E3;G3;D3;G3;C3;G3;D3;G3;E3;G3;F3;G3;E3;G3;D3;G3;C3;G3;G3;G3;G3;G3;F3;E3;F3; G3;F3;E3;E3;F3;E3;C3;F3;F3;F3;E3;D3;C3;F3;E3;C3;F3;E3;D3;F3;E3;C3;F3;G3;F3;E3;G3; F2;F3;G3;E3;G3;C2;C3;G3;F2;F3;G3;F3;G3;G3;G3;G3;F3;E3;F3;G3;F3;E3;C3;F3;E3;C3;F3; F3;F3;E3;G3;F3;E3;C3;F3;E3;C3;F3;G3;F3;E3;F3;E3;F3;E3;C3;F3;E3;C3;C3;G3;F2;F3;G3; E3;G3;F3;E3;F3;F3;F3;F3;F3;E3;G3;F2;F3;G3;E3;G3;C2;C3;G3;F2;F3;G3;E3;G3;G3;F3;E3; F3;D3;D3;E3;C3; end; procedure JingleBells; begin //AddyGuitar G3; E3; D3; C3; G3; G3; G3; G3; E3; D3; C3; A2; A2; F3; E3; D3; B2; G3; G3; F3; D3; E3; G3; G3; E3; D3; C3; G3; G3; G3; G3; E3; D3; C3; A2; A2; A2; F3; E3; D3; G3; G3; G3; G3; A3; G3; F3; D3; C3; G3; E3; E3; E3; E3; E3; E3; E3; G3; C3; D3; E3; F3; F3; F3; F3; F3; E3; E3; E3; E3; E3; D3; D3; E3; D3; G3; E3; E3; E3; E3; E3; E3; E3; G3; C3; D3; E3; F3; F3; F3; F3; E3; E3; E3; E3; E3; G3; G3; F3; D3; C3; end; Procedure MeowMix; begin //AddyGuitar E3; DS3; CS3; B2; E3; DS3; CS3; B2; E3; DS3; E3; F3; FS3; DS3; CS3; B2; FS3; DS3; CS3; B2; FS3; DS3; CS3; B2; FS3; F3; FS3; G3; GS3; E3; DS3; CS3;CS3; DS3; E3; CS3; B2; E3; A3; GS3; FS3; B2; CS3; DS3; E3; end; procedure Stronger; begin //AddyGuitar D1;D1;D2;D2;F1;F1;F2;F2;A2;G2;G2;F2;E2;D2;A1;G1;D1;D2;F2;D2; A2;F2;D2;F2;C1;C2;E2;C2;G2;F2;D2;F2;B1;B1;D2;B1;G3;F3;E3;D3; AS1;AS1;D2;F2;D1;D1;D1; end; procedure Mario; Begin; E2;E2;E2;C2;E2;G2;G1;C2;G1;E1;A1;B1;AS1;A1;G1;E2;G2;A2;F2;G2;E2;C2;D2;B1 C2;G1;E1;A1;B1;AS1;A1;G1;E2;G2;A2;F2;G2;E2;C2;D2;B1 G2;FS2;F2;DS2;E2;GS1;A1;C2;A1;C2;D2 G2;FS2;F2;DS2;E2;C3;C3;C3 G2;FS2;F2;DS2;E2;GS1;A1;C2;A1;C2;D2;DS2;D2;C2 G2;FS2;F2;DS2;E2;GS1;A1;C2;A1;C2;D2 G2;FS2;F2;DS2;E2;C3;C3;C3 G2;FS2;F2;DS2;E2;GS1;A1;C2;A1;C2;D2;DS2;D2;C2 C2;C2;C2;D2;E2;C2;A2;G2 C2;C2;C2;D2;E2 C2;C2;C2;D2;E2;C2;A2;G2 E2;E2;E2;C2;E2;G2;G1;C2;G1;E1;A1;B1;AS1;A1;G1;E2;G2;A2;F2;G2;E2;C2;D2;B1 C2;G1;GS1;A1;F2;F2;A2;A2;A2;G2;F2;E2;C2;A1;G1 E2;C2;G1;GS1;A1;F2;F2;F2;F2;F2;E2;D2;C2 E2;C2;G1;GS1;A1;F2;F2;A2;A2;A2;G2;F2;E2;C2;A1;G1 E2;C2;G1;GS1;A1;F2;F2;F2;F2;F2;E2;D2;C2 C2;C2;C2;D2;E2;C2;A2;G2 C2;C2;C2;D2;E2 C2;C2;C2;D2;E2;C2;A2;G2 E2;E2;E2;C2;E2;G2 E2;C2;G1;GS1;A1;F2;F2;A2;A2;A2;G2;F2;E2;C2;A1;G1 E2;C2;G1;GS1;A1;F2;F2;F2;F2;F2;E2;D2;C2 End; Procedure OldMac; Begin G3;G3;G3;D3;E3;E3;D3;B3;B3;A3;A3;G3; G3;G3;G3;D3;E3;E3;D3;B3;B3;A3;A3;G3; D3;D3;G3;G3;G3;D3;D3;G3;G3;G3; G3;G3;G3;D3;E3;E3;D3;B3;B3;A3;A3;G3; End; Procedure Smoke; Begin C2;DS1;F2;C2;DS1;FS1;F2;C2;DS1;F2;DS1;C2 End; Procedure Dirty; Begin A1;A2;A1;A2;G2;G2;FS2;G2;FS2;D2 A2;A3;A2;A3;G3;G3;FS3;G3;FS3;D3 A2;A3;A2;A3;G3;G3;FS3;G3;FS3;D3 A2;A3;A2;A3;G3;G3;FS3;G3;FS3;D3;G3;G3;FS3;G2;FS2;D3 A2;A2;A2;G2;FS2;G2;FS2;D2;D2;FS2;E2;D2;E2;D2 A2;A2;A2;B2;G2;FS2;D2;D2;FS2;E2;D2;E2;D2 A3;E3;D3;D3;E3;E3 A3;E3;D3;D3;CS3;D3;CS3;A2 FS3;E3;A2;A2;A2 FS3;E3;FS3;E3;E3;D3;CS3;CS3;CS3;D3;CS2;A2 CS3;CS3;CS3;D3;CS2;A2 CS3;CS3;CS3;D3;CS2;A2 End; Procedure Harry; Begin A1;D2;F2;E2;D2;A2;G2;E2 D2;F2;E2;C2;D2;A1 A1;D2;F2;E2;D2;A2;C3;B2;AS2 G2;AS2;A2;G2;F2;E2;C2;D2 End; Procedure Future; Begin AS2;AS2;AS2;A2;A2;GS2;GS2;G2; DS3;DS3;GS3;G3;CS3;CS3;F3;DS3 DS3;DS3;GS3;GS3;CS3;CS3;DS3;DS3 DS3;DS3;GS3;G3;CS3;CS3;FS3;FS3;F3;F3 DS3;DS3;GS3;G3;AS3;AS3;FS3;FS3;FS3;FS3 DS3;GS2;AS2;GS2;DS3;GS3;AS3 AS2;AS2;AS2;A2;A2;GS2;GS2;G2;DS2 End; Procedure Mad; Begin GS2;C3;G2;GS2;F2;G2;DS2;D2 AS1;F2;AS1;F2 GS2;C3;G2;GS2;F2;G2;GS2;AS2 AS1;F2;AS1;F2;F1 F2;F2;GS2;GS2;F2;F2;C3;C3;C3;GS2 AS2;AS2;AS2;G2;AS2;AS2;AS2;GS2;G2;F2 F2;F2;GS2;GS2;F2;F2;C3;C3;C3;GS2 AS2;AS2;AS2;G2;AS2;AS2;AS2;GS2;G2;F2; F2;F2;GS2;GS2;F2;F2;C3;C3;C3;GS2 AS2;AS2;AS2;G2;AS2;AS2;AS2;GS2;G2;F2; F2;F2;GS2;GS2;F2;F2;C3;C3;C3;GS2 AS2;AS2;AS2;G2;AS2;AS2;AS2;GS2;G2;F2 F2;F2;GS2;GS2;F2;F2;C3;C3;C3;GS2 AS2;AS2;AS2;G2;AS2;AS2;AS2;GS2;G2;F2; F2;F2;GS2;GS2;C3;C3;D3;AS2 AS2;D3;D3;AS2;AS2;F2 F2;F2;GS2;GS2;C3;C3;D3;AS2 AS2;D3;D3;AS2;AS2;F2 F2;F2;GS2;GS2;C3;C3;D3;AS2 AS2;D3;D3;AS2;AS2;F2 F2;F2;GS2;GS2;C3;C3;D3;AS2 AS2;AS2;D3;D3;AS2;AS2 GS2;C3;G2;GS2;GS2;F2 AS1;F2;AS1;F2 GS2;C3;G2;GS2;GS2;F2 End; Procedure Tetris; Begin DS2;AS1;B1;CS2;B1;AS1;G1 GS1;B1;DS2;CS2;B1;AS1 AS1;B1;CS2;DS2;B1;GS1;GS1 CS2;E2;GS2;GS2;FS2;E2;DS2 AS1;B1;DS2;CS2;B1;AS1 AS1;B1;CS2;DS2;B1;GS1;GS1 End; Procedure Crawl; Begin B1;A2;FS2;E2;D2;CS2;D2 B1;A2;FS2;E2;D2;CS2;D2 B2;C3;B2;C3;B2 A2;B2;C3;B2;C3;B2;A2 End; Procedure ITE; Begin D2;A2;A2;F2;E2;E2;E2 E2;F2 D2;A2;A2;F2;E2;E2;E2 E2;F2 D2;A2;A2;F2;E2;E2;E2 E2;F2 D2;A2;A2;F2;E2 End; Procedure Good; Begin E3;G3;B2;C3;wait(50);E3;G3;C3;B2;wait(50); D3;G3;A3;wait(50);A3;A3;A3;wait(50);A3;G3;E3 End; Procedure Sad; Begin DS1;FS1;FS2;F2;CS2;DS1;FS1;FS2;F2;AS1 F3;DS3;AS2;DS3;FS3;GS3;DS3;FS3;F3;FS3;GS3;CS3;AS3;GS3 F3;DS3;AS2;DS3;FS3;GS3;DS3;FS3;F3;FS3;GS3;CS3;DS3 DS3;F3;FS3;GS3;AS3;DS3;FS3;F3;DS3 FS3;GS3;FS3;F3;AS3;AS3;GS3 DS3;F3;FS3;GS3;AS3;DS3;FS3;F3;DS3 FS3;GS3;FS3;F3;CS3;DS3 End; Procedure Mary; Begin A2;G2;F2;G2;A2;A2;A2;G2;G2;G2;A2;C3;C3 A2;G2;F2;G2;A2;A2;A2;G2;G2;A2;G2;F2 End; Procedure Camp; Begin C3;C3;A2;C3;D3;C3;A2 A2;G2;A2;G2 C3;C3;A2;C3;D3;C3;A2 G2;AS2;A2;G2;F2 F2;A2;C3;F3;D3;D3;F3;D3;C3 C3;C3;A2;C3;D3;C3;A2 G2;AS2;A2;G2;F2 End; Procedure Pac; Begin B1;B2;FS2;DS2;B2;FS2;DS2;B2 C2;C3;G2;E2;C3;G2;E2;B2 B1;B2;FS2;DS2;B2;FS2;DS2;B2 F2;FS2;G2;GS2;A2;AS2;B2 End; Procedure Mortal; Begin A2;A2;C3;A2;D3;A2;E3;D3 C3;C3;E3;C3;G3;C3;E3;C3 G2;G2;B2;G2;C3;G2;D3;C3 F2;F2;A2;C3;F2;B2;C3 A2;A2;A2;A2;G2;C3;A2;A2;A2;A2;G2;E2 A2;A2;A2;A2;G2;E2;A2;A2;A2;A2;A2 A2;E3;A2;C3;A2;AS2;C3;A2;AS2;G2 A2;E3;A2;C3;A2;AS2;C3;A2;AS2;G2 A2;E3;A2;C3;G2;G2;G2;A2;A2 A2;E3;A2;C3;A2;AS2;C3;A2;AS2;G2 A2;E3;A2;C3;A2;AS2;C3;A2;AS2;G2 A2;E3;A2;C3;G2;G2;G2;A2;A2 End; begin i:=3; welcome select:=0 repeat if random_music = 1 then begin select:=(randomrange(1, 11)) if select = 1 then LinkinPark; if select = 2 then LinkinParkNumb; if select = 3 then ZeldaLinkToThePast; if select = 4 then IronMan; if select = 5 then HappyBirthday; if select = 6 then Simpsons; if select = 7 then MasterOfPuppets; if select = 8 then SweetChildOfMine; if select = 9 then JingleBells; if select = 10 then MeowMix; if select = 11 then Stronger; if select = 12 then Mario; if select = 13 then OldMac; if select = 14 then Smoke; if select = 15 then Dirty; if select = 16 then Harry; if select = 17 then Future; if select = 18 then Mad; if select = 19 then Tetris; if select = 20 then Crawl; if select = 21 then ITE; if select = 22 then Good; if select = 23 then Sad; if select = 24 then Mary; if select = 25 then Camp; if select = 26 then Pac; if select = 27 then Mortal; end; wait(2000) if select=0 then begin if songselect = 1 then LinkinPark; if songselect = 2 then LinkinParkNumb; if songselect = 3 then ZeldaLinkToThePast; if songselect = 4 then IronMan; if songselect = 5 then HappyBirthday; if songselect = 6 then Simpsons; if songselect = 7 then MasterOfPuppets; if songselect = 8 then SweetChildOfMine; if songselect = 9 then JingleBells; if songselect = 10 then MeowMix; if songselect = 11 then Stronger; if songselect = 12 then Mario; if songselect = 13 then OldMac; if songselect = 14 then Smoke; if songselect = 15 then Dirty; if songselect = 16 then Harry; if songselect = 17 then Future; if songselect = 18 then Mad; if songselect = 19 then Tetris; if songselect = 20 then Crawl; if songselect = 21 then ITE; if songselect = 22 then Good; if songselect = 23 then Sad; if songselect = 24 then Mary; if songselect = 25 then Camp; if songselect = 26 then Pac; if songselect = 27 then Mortal; end; until ((ismousebuttondown(false)) or (not(continuous_playback=1))) end.