Skip to content

Commit

Permalink
Update CDPLAYER.PAS
Browse files Browse the repository at this point in the history
  • Loading branch information
@TheElf01
TheElf01 authored May 24, 2024
1 parent 6487bd0 commit 910c25b
Showing 1 changed file with 40 additions and 32 deletions.
72 changes: 40 additions & 32 deletions CDPLAYER.PAS
View file
Original file line number Diff line number Diff line change
Expand Up @@ -872,14 +872,22 @@ begin
MyWriteln(' The whole CD will be played over and over. ');
end
else
If MouseIn(1,2,80,5) then
begin
fgColor:=12; bgcolor:=5;
Gotoxy(10,47);
MyWriteln(' Modificaciones al codigo por TheElf *2024* ');
end
else

If MouseIn(10,47,70,47) then
begin
fgColor:=12; bgcolor:=5;
Gotoxy(10,47);
MyWriteln(' Go away, here is nothing of interest. ');
end
else
If MouseIn(27,35,52,43) then
If MouseIn(27,30,52,43) then
begin
fgColor:=13; bgcolor:=5;
Gotoxy(10,47);
Expand Down Expand Up @@ -917,11 +925,11 @@ begin
MyWriteln(' No CD found. ');
TrackPosition := 0;
ActualTrack.TNr := 0;
for Counter := 1 to 9 do
for Counter := 1 to 14 do
begin
If Counter <= ActualCD.HTrack then
begin
gotoxy(28,34 + Counter);
gotoxy(28,29 + Counter);
MyWriteln(' ');
end;
end;
Expand All @@ -940,15 +948,15 @@ begin
close(CodeFile);
TrackPosition :=0;
ActualTrack.Tnr :=1;
for Counter := 1 to 9 do
for Counter := 1 to 14 do
begin
If Counter <= ActualCD.HTrack then
begin
TempStr1:=GetTrackName(Counter);
close(CodeFile);
gotoxy(28,34 + Counter);
gotoxy(28,29 + Counter);
MyWriteln(' ');
gotoxy(28,34 + Counter);
gotoxy(28,29 + Counter);
If ActualCD.HTrack >= Counter then
MyWriteln(TempStr1);
end;
Expand Down Expand Up @@ -997,21 +1005,21 @@ begin
end;
end;
If AnimateTimer mod 5 = 0 then
If MouseIn(53,35,53,35) and (bttn = 1) then
If MouseIn(53,30,53,30) and (bttn = 1) then
begin
FgColor := 12;
if ActualCD.LTrack <> 1 - TrackPosition then
begin
dec(TrackPosition);
for Counter := 1 + TrackPosition to 9 + TrackPosition do
for Counter := 1 + TrackPosition to 14 + TrackPosition do
begin
If Counter <= ActualCD.HTrack then
begin
TempStr1:=GetTrackName(Counter);
close(CodeFile);
gotoxy(28,34 + Counter-TrackPosition);
gotoxy(28,29 + Counter-TrackPosition);
MyWriteln(' ');
gotoxy(28,34 + Counter-TrackPosition);
gotoxy(28,29 + Counter-TrackPosition);
If ActualCD.HTrack >= Counter then MyWriteln(TempStr1);
end;
end;
Expand All @@ -1021,18 +1029,18 @@ begin
If MouseIn(53,43,53,43) and (bttn = 1) then
begin
FgColor := 12;
if ActualCD.HTrack > 9 + TrackPosition then
if ActualCD.HTrack > 14 + TrackPosition then
begin
inc(TrackPosition);
for Counter := 1 + TrackPosition to 9 + TrackPosition do
for Counter := 1 + TrackPosition to 14 + TrackPosition do
begin
If Counter <= ActualCD.HTrack then
begin
TempStr1:=GetTrackName(Counter);
close(CodeFile);
gotoxy(28,34 + Counter-TrackPosition);
gotoxy(28,29 + Counter-TrackPosition);
MyWriteln(' ');
gotoxy(28,34 + Counter-TrackPosition);
gotoxy(28,29 + Counter-TrackPosition);
If ActualCD.HTrack >= Counter then MyWriteln(TempStr1);
end;
end;
Expand Down Expand Up @@ -1095,11 +1103,11 @@ begin
StopOrPausePlayingCD(ActualDrive);
Finish := True;
end;
If MouseIn(27,35,52,43) and (bttn = 1) then
If MouseIn(27,30,52,43) and (bttn = 1) then
begin
ActualLocation := 0;
ResumeReady := False;
ActualTrack.TNr := MausY - 34 + TrackPosition;
ActualTrack.TNr := MausY - 29 + TrackPosition;
GetTrackInfo(ActualDrive, ActualTrack.TNr);
LoopOn := False;
If Playing then
Expand Down Expand Up @@ -1131,7 +1139,7 @@ begin
end;
If not Playing then
begin
If MouseIn(27,32,52,32) and (bttn = 2) then
If MouseIn(27,26,52,26) and (bttn = 2) then
begin
If SearchForCDCode = False then
begin
Expand Down Expand Up @@ -1179,12 +1187,12 @@ begin
close(CodeFile);
BgColor := 5;
FgColor := 12;
gotoxy(28,32); MyWriteln(' ');
gotoxy(28,32); MyWriteln(InputText);
gotoxy(28,26); MyWriteln(' ');
gotoxy(28,26); MyWriteln(InputText);
end;
If MouseIn(27,35,52,43) and (bttn = 2) then
If MouseIn(27,30,52,43) and (bttn = 2) then
begin
TempTime := MausY - 34 + TrackPosition;
TempTime := MausY - 29 + TrackPosition;
If SearchForCDCode = False then
begin
close(CodeFile);
Expand Down Expand Up @@ -1233,15 +1241,15 @@ begin
DrawWindow(2,26,15,53,17,0,0);
FgColor := 12;
BgColor := 5;
for Counter := 1 + TrackPosition to 9 + TrackPosition do
for Counter := 1 + TrackPosition to 14 + TrackPosition do
begin
If Counter <= ActualCD.HTrack then
begin
TempStr1:=GetTrackName(Counter);
close(CodeFile);
gotoxy(28,34 + Counter-TrackPosition);
gotoxy(28,29 + Counter-TrackPosition);
MyWriteln(' ');
gotoxy(28,34 + Counter-TrackPosition);
gotoxy(28,29 + Counter-TrackPosition);
If ActualCD.HTrack >= Counter then MyWriteln(TempStr1);
end;
end;
Expand Down Expand Up @@ -1278,13 +1286,13 @@ begin
DrawWindow(2,9,46,70,48,14,5);
Gotoxy(24,46);
MyWriteln('Information from the CD-player');
DrawWindow(2,26,34,53,44,14,5);
DrawBlk(53,35,43);
Gotoxy(30,34);
DrawWindow(2,26,29,53,44,14,5);
DrawBlk(53,30,43);
Gotoxy(30,29);
MyWriteln('Name of the tracks:');
DrawWindow(1,26,25,53,27,14,5);
Gotoxy(32,25);
MyWriteln('Name of the CD:');
Gotoxy(31,25);
MyWriteln(' Name of the CD: ');
FgColor:=12;
gotoxy(27,26);
MyWriteln(' No drive choosen. ');
Expand Down Expand Up @@ -1335,7 +1343,7 @@ begin
Reset(CodeFile);
end;
close(CodeFile);
PlayType := 1;
PlayType := 3;
CDPosition := 0;
TrackPosition := 0;
ActualDrive := 0;
Expand Down Expand Up @@ -1414,11 +1422,11 @@ begin
MyWriteln(' No CD Inserted ');
TrackPosition := 0;
ActualTrack.TNr := 0;
for MainCounter := 1 to 9 do
for MainCounter := 1 to 14 do
begin
If MainCounter <= ActualCD.HTrack then
begin
gotoxy(28,34 + MainCounter);
gotoxy(28,29 + MainCounter);
MyWriteln(' ');
end;
end;
Expand Down

0 comments on commit 910c25b

Please sign in to comment.