+++ /dev/null
-uses
- DOS,DPMI,
- A2player,TimerInt,ParserIO,StringIO,TxtScrIO,
- UNPK_LIB;
-
-const
- _timer_xpos = 198;
- _timer_ypos = 5;
- _timer_color = 1;
- _decay_bar_xpos = 10;
- _decay_bar_ypos = 140;
- _decay_bar_palette_start = 250;
- _progress_xpos = 8;
- _progress_ypos = 155;
- _progress_color = 251;
- _fname_xpos = 8;
- _fname_ypos = 170;
- _fname_color = 255;
- _pos_str_xpos = 8;
- _pos_str_ypos = 186;
- _pos_str_color = 252;
-
-const
- decay_bar_rise: Real = 10.0;
- decay_bar_fall: Real = 0.50;
- adjust_tracks: Boolean = TRUE;
- accurate_conv: Boolean = TRUE;
- fix_c_note_bug: Boolean = TRUE;
- window_top: Byte = 8;
- modname: array[1..15] of String[39] = ('/´DLiB TR/´CK3R ][ module',
- '/´DLiB TR/´CK3R ][ G3 module',
- '/´DLiB TR/´CK3R ][ tiny module',
- '/´DLiB TR/´CK3R ][ G3 tiny module',
- 'Amusic module',
- 'XMS-Tracker module',
- 'BoomTracker 4.0 module',
- 'Digital-FM module',
- 'HSC AdLib Composer / HSC-Tracker module',
- 'MPU-401 tr\92kkîr module',
- 'Reality ADlib Tracker module',
- 'Scream Tracker 3.x module',
- 'FM-Kingtracker module',
- 'Surprise! AdLib Tracker module',
- 'Surprise! AdLib Tracker 2.0 module');
-var
- songdata_source: String;
- songdata_title: String;
- load_flag: Byte;
- fkey: Word;
- index,last_order: Byte;
- dirinfo: SearchRec;
-
-var
- buf1: array[0..PRED(SizeOf(tVARIABLE_DATA))] of Byte;
- buf2: array[0..PRED(65535)] of Byte;
- buf3: array[0..PRED(65535)] of Byte;
- buf4: array[0..PRED(65535)] of Byte;
- temp_screen: array[0..PRED(8192)] of Byte;
- correction: Integer;
- entries,
- entries2: Byte;
- temp,temp2: Byte;
- dos_memavail: Word;
- _ParamStr: array[0..255] of String;
-
-const
- jukebox: Boolean = FALSE;
-
-const
- kBkSPC = $0e08;
- kESC = $011b;
- kENTER = $1c0d;
-
-procedure ResetF(var f: File);
-
-var
- fattr: Word;
-
-begin
- _debug_str_:= 'ADT2PLAY.PAS:ResetF_RW';
- GetFAttr(f,fattr);
- If (fattr AND ReadOnly = ReadOnly) then FileMode := 0;
- {$i-}
- Reset(f,1);
- {$i+}
-end;
-
-procedure BlockReadF(var f: File; var data; size: Longint; var bytes_read: Longint);
-begin
- _debug_str_:= 'ADT2PLAY.PAS:BlockReadF';
- {$i-}
- BlockRead(f,data,size,bytes_read);
- {$i+}
- If (IOresult <> 0) then bytes_read := 0;
-end;
-
-procedure SeekF(var f: File; fpos: Longint);
-begin
- _debug_str_:= 'ADT2PLAY.PAS:SeekF';
- {$i-}
- Seek(f,fpos);
- {$i+}
-end;
-
-procedure CloseF(var f: File);
-begin
- _debug_str_:= 'ADT2PLAY.PAS:CloseF';
- {$i-}
- Close(f);
- {$i+}
- If (IOresult <> 0) then ;
-end;
-
-function min(value: Word; minimum: Word): Word; assembler;
-asm
- mov ax,value
- cmp ax,minimum
- jae @@1
- mov ax,minimum
-@@1:
-end;
-
-function max(value: Word; maximum: Word): Word; assembler;
-asm
- mov ax,value
- cmp ax,maximum
- jbe @@1
- mov ax,maximum
-@@1:
-end;
-
-function concw(lo,hi: Byte): Word; assembler;
-asm
- mov al,lo
- mov ah,hi
-end;
-
-function keypressed: Boolean; assembler;
-asm
- mov ah,01h
- int 16h
- mov al,TRUE
- jnz @@1
- mov al,FALSE
-@@1:
-end;
-
-function is_4op_mode: Boolean; assembler;
-asm
- mov al,byte ptr [songdata.flag_4op]
- or al,al
- jz @@1
- mov al,TRUE
-@@1:
-end;
-
-function is_4op_chan(chan: Byte): Boolean; assembler;
-asm
- mov al,byte ptr [songdata.flag_4op]
- mov ah,chan
- test al,1
- jz @@1
- cmp ah,1
- jb @@1
- cmp ah,2
- ja @@1
- mov al,TRUE
- jmp @@7
-@@1: test al,2
- jz @@2
- cmp ah,3
- jb @@2
- cmp ah,4
- ja @@2
- mov al,TRUE
- jmp @@7
-@@2: test al,4
- jz @@3
- cmp ah,5
- jb @@3
- cmp ah,6
- ja @@3
- mov al,TRUE
- jmp @@7
-@@3: test al,8
- jz @@4
- cmp ah,10
- jb @@4
- cmp ah,11
- ja @@4
- mov al,TRUE
- jmp @@7
-@@4: test al,10h
- jz @@5
- cmp ah,12
- jb @@5
- cmp ah,13
- ja @@5
- mov al,TRUE
- jmp @@7
-@@5: test al,20h
- jz @@6
- cmp ah,14
- jb @@6
- cmp ah,15
- ja @@6
- mov al,TRUE
- jmp @@7
-@@6: mov al,FALSE
-@@7:
-end;
-
-{$i structrs.inc}
-{$i iloaders.inc}
-
-const
- _picture_mode: Boolean = FALSE;
-
-var
- vmem: array[0..PRED(320*200)] of Byte;
- fade_buf,fade_buf2: tFADE_BUF;
- vstate: tVIDEO_STATE;
-
-procedure _refresh_decay_bar(xpos,ypos: Word; height,width,level: Byte); assembler;
-asm
- mov edi,0a0000h
- lea edx,dword ptr [_picture_palette]
- add edx,6
- lea esi,dword ptr [_picture_bitmap]
- add esi,6
- movzx eax,ypos
- mov ebx,320
- mul ebx
- movzx ebx,xpos
- add eax,ebx
- add edi,eax
- cmp level,BYTE_NULL
- jnz @@1
- mov level,0
- jmp @@2
-@@1: cmp level,2
- jae @@2
- mov level,2
-@@2: movzx ecx,width
- jecxz @@10
-@@3: push ecx
- push edi
- movzx ecx,height
- jecxz @@9
-@@4: movzx ebx,height
- sub ebx,ecx
- movzx eax,level
- cmp ebx,eax
- jnae @@5
- mov ebx,edi
- sub ebx,0a0000h
- add ebx,esi
- movzx eax,byte ptr [ebx]
- jmp @@8
-@@5: movzx eax,height
- push edx
- xor edx,edx
- sub eax,ecx
- mov ebx,5
- div ebx
- mov eax,edx
- pop edx
- cmp eax,3
- jbe @@6
- mov ebx,edi
- sub ebx,0a0000h
- add ebx,esi
- movzx eax,byte ptr [ebx]
- jmp @@8
-@@6: or eax,eax
- jnz @@7
- xor eax,eax
- jmp @@8
-@@7: add eax,_decay_bar_palette_start
- cmp level,2
- jnbe @@8
- mov eax,250
-@@8: mov byte ptr [edi],al
- sub edi,320
- loop @@4
-@@9: pop edi
- pop ecx
- inc edi
- loop @@3
-@@10:
-end;
-
-const
- _decay_bars_initialized: Boolean = FALSE;
- _decay_bars_nm_tracks: Byte = 0;
-
-var
- _old_decay_bar_value: array[1..25] of Byte;
-
-procedure decay_bars_refresh;
-
-var
- temp: Byte;
-
-begin
- _debug_str_:= 'ADT2PLAY.PAS:decay_bars_refresh';
- If NOT _decay_bars_initialized then
- For temp := 1 to 25 do
- _old_decay_bar_value[temp] := BYTE_NULL;
-
- For temp := 1 to 25 do
- begin
- If (decay_bar[temp].dir = 1) then
- decay_bar[temp].lvl := decay_bar[temp].lvl+
- decay_bar[temp].dir*(decay_bar_rise/IRQ_freq*100)
- else
- decay_bar[temp].lvl := decay_bar[temp].lvl+
- decay_bar[temp].dir*(decay_bar_fall/IRQ_freq*100);
-
- If (decay_bar[temp].lvl < 0) then decay_bar[temp].lvl := 0;
- If (decay_bar[temp].lvl > decay_bar[temp].max_lvl) then
- begin
- decay_bar[temp].dir := -1;
- If (decay_bar[temp].lvl > 63) then
- decay_bar[temp].lvl := 63;
- end;
-
- If (_old_decay_bar_value[temp] <> Round(decay_bar[temp].lvl*4/3)) then
- begin
- _refresh_decay_bar(_decay_bar_xpos+PRED(temp)*12,_decay_bar_ypos,
- Round(63*4/3),10,
- Round(decay_bar[temp].lvl*4/3));
- _old_decay_bar_value[temp] := Round(decay_bar[temp].lvl*4/3);
- end;
- end;
-end;
-
-procedure toggle_picture_mode;
-
-var
- index: Byte;
-
-begin
- _debug_str_:= 'ADT2PLAY.PAS:toggle_picture_mode';
- If NOT _picture_mode then
- begin
- _picture_mode := NOT _picture_mode;
- GetVideoState(vstate);
- fade_speed := 16;
- fade_buf.action := first;
- VgaFade(fade_buf,fadeOut,delayed);
- For index := 1 to 20 do WaitRetrace;
- asm mov ax,13h; int 10h end;
-
- For index := 1 to 20 do WaitRetrace;
- For index := 0 to 255 do
- SetRGBitem(index,tRGB_PALETTE(MEM[Ofs(_picture_palette)+6])[index].r,
- tRGB_PALETTE(MEM[Ofs(_picture_palette)+6])[index].g,
- tRGB_PALETTE(MEM[Ofs(_picture_palette)+6])[index].b);
- fade_speed := 16;
- fade_buf.action := first;
- VgaFade(fade_buf2,fadeOut,fast);
-
- Move(MEM[Ofs(_picture_bitmap)+6],MEM[$0a0000],320*200);
- VgaFade(fade_buf2,fadeIn,delayed);
- external_irq_hook := decay_bars_refresh;
- end
- else begin
- external_irq_hook := NIL;
- _picture_mode := NOT _picture_mode;
- _decay_bars_initialized := FALSE;
- VgaFade(fade_buf2,fadeOut,delayed);
-
- SetVideoState(vstate,FALSE);
- VgaFade(fade_buf2,fadeOut,fast);
- For index := 1 to 20 do WaitRetrace;
- Move(vstate.screen,MEM[$0b8000],SizeOf(vstate.screen));
-
- For index := 1 to 20 do WaitRetrace;
- VgaFade(fade_buf,fadeIn,delayed);
- end;
-end;
-
-procedure wtext(xstart,ystart: Word; txt: String; color: Byte);
-
-var
- x,y: Word;
- temp,i,j,b: Word;
-
-begin
- _debug_str_:= 'ADT2PLAY.PAS:wtext';
- If NOT _picture_mode then EXIT;
- Move(MEM[Ofs(_picture_bitmap)+6+320*ystart],vmem[320*ystart],(8+1)*320);
- x := xstart+1;
- y := ystart+1;
-
- For temp := 1 to Length(txt) do
- begin
- For j := 0 to 7 do
- begin
- b := tCHAR8x8(MEM[Ofs(_font8x8)+6])[txt[temp]][j];
- For i := 7 downto 0 do
- If (b OR (1 SHL i) = b) then
- vmem[x+7-i+(y+j)*320] := 0
- end;
- Inc(x,8);
- end;
-
- x := xstart;
- y := ystart;
-
- For temp := 1 to Length(txt) do
- begin
- For j := 0 to 7 do
- begin
- b := tCHAR8x8(MEM[Ofs(_font8x8)+6])[txt[temp]][j];
- For i := 7 downto 0 do
- If (b OR (1 SHL i) = b) then
- vmem[x+7-i+(y+j)*320] := color;
- end;
- Inc(x,8);
- end;
-
- Move(vmem[320*ystart],MEM[$0a0000+320*ystart],(8+1)*320);
-end;
-
-procedure wtext2(xstart,ystart: Word; txt: String; color: Byte);
-
-const
- _double: array[0..15] of Byte = (0,0,1,1,2,2,3,3,4,4,5,5,6,6,7,7);
-
-var
- x,y: Word;
- temp,i,j,b: Word;
-
-begin
- _debug_str_:= 'ADT2PLAY.PAS:wtext2';
- If NOT _picture_mode then EXIT;
- Move(MEM[Ofs(_picture_bitmap)+6+320*ystart],vmem[320*ystart],(16+1)*320);
- x := xstart+1;
- y := ystart+1;
-
- For temp := 1 to Length(txt) do
- begin
- For j := 0 to 15 do
- begin
- b := tCHAR8x16(MEM[Ofs(_font8x16)+6])[txt[temp]][j];
- For i := 15 downto 0 do
- If (b OR (1 SHL _double[i]) = b) then
- vmem[x+15-i+(y+j)*320] := 0
- end;
- Inc(x,16);
- end;
-
- x := xstart;
- y := ystart;
-
- For temp := 1 to Length(txt) do
- begin
- For j := 0 to 15 do
- begin
- b := tCHAR8x16(MEM[Ofs(_font8x16)+6])[txt[temp]][j];
- For i := 15 downto 0 do
- If (b OR (1 SHL _double[i]) = b) then
- vmem[x+15-i+(y+j)*320] := color;
- end;
- Inc(x,16);
- end;
-
- Move(vmem[320*ystart],MEM[$0a0000+320*ystart],(16+1)*320);
-end;
-
-procedure C3Write(str: String; atr1,atr2,atr3: Byte);
-begin
- _debug_str_:= 'ADT2PLAY.PAS:CWrite';
- If _picture_mode then EXIT;
- ShowC3Str(MEM[$0b8000],WhereX,WhereY,str,atr1,atr2,atr3);
- GotoXY(1,WhereY);
-end;
-
-procedure C3WriteLn(str: String; atr1,atr2,atr3: Byte);
-begin
- _debug_str_:= 'ADT2PLAY.PAS:C3WriteLn';
- ShowC3Str(Ptr(v_seg,v_ofs)^,WhereX,WhereY,
- str,
- atr1,atr2,atr3);
- WriteLn;
-end;
-
-procedure CWriteLn(str: String; atr1,atr2: Byte);
-
-var
- temp: Word;
- attr,posx,posy: Byte;
- color2: Boolean;
-
-begin
- _debug_str_:= 'ADT2PLAY.PAS:CWriteLn';
- If _picture_mode then EXIT;
- color2 := FALSE;
- attr := atr1;
- posx := WhereX;
- posy := WhereY;
-
- For temp := 1 to Length(str) do
- If (str[temp] <> '~') then
- begin
- MEM[$0b8000+(posx-1+(posy-1)*MaxCol) SHL 1] := BYTE(str[temp]);
- MEM[$0b8000+(posx-1+(posy-1)*MaxCol) SHL 1+1] := attr;
- If (posx < MaxCol) then Inc(posx)
- else begin
- posx := 1;
- Inc(posy);
- If (posy > MaxLn) then
- begin
- asm
- mov ah,06h
- mov al,1
- mov bh,07h
- mov ch,window_top
- mov cl,1
- mov dh,MaxLn
- mov dl,MaxCol
- dec ch
- dec cl
- dec dh
- dec dl
- int 10h
- end;
- Dec(posy);
- end;
- end;
- end
- else begin
- color2 := NOT color2;
- If color2 then attr := atr2 else attr := atr1;
- end;
-
- Inc(posy);
- If (posy > MaxLn) then
- begin
- asm
- mov ah,06h
- mov al,1
- mov bh,07h
- mov ch,window_top
- mov cl,1
- mov dh,MaxLn
- mov dl,MaxCol
- dec ch
- dec cl
- dec dh
- dec dl
- int 10h
- end;
- Dec(posy);
- end;
-
- posx := 1;
- GotoXY(posx,posy);
-end;
-
-function __progress_str(value: Byte): String;
-
-var
- result: String;
-
-begin
- result := '';
- Repeat
- If (value > 4) then
- begin
- result := result+#4;
- Dec(value,4);
- end;
- If (value <= 4) and (value <> 0) then
- result := result+CHR(0+value)
- until (value <= 4);
- __progress_str := result;
-end;
-
-function _progress_str: String;
-begin
- If (songdata.patt_len = 0) then EXIT;
- If (entries <> 0) then
- _progress_str :=
- ExpStrR(__progress_str(
- Round(4*38/entries*(current_order-correction+
- 1/songdata.patt_len*(current_line+1)))),38,#0)
- else _progress_str := ExpStrR('',38,#0);
-end;
-
-function _timer_str: String;
-begin
- _timer_str := ExpStrL(Num2str(song_timer DIV 60,10),2,'0')+':'+
- ExpStrL(Num2str(song_timer MOD 60,10),2,'0')+'.'+
- Num2str(song_timer_tenths DIV 10,10);
-end;
-
-function _position_str: String;
-begin
- If (songdata.patt_len = 0) then EXIT;
- If (entries <> 0) then
- _position_str :=
- 'Order '+ExpStrL(Num2str(current_order,10),3,'0')+'/'+
- ExpStrL(Num2str(PRED(entries2),10),3,'0')+', '+
- 'pattern '+ExpStrL(Num2str(current_pattern,10),3,'0')+', '+
- 'row '+ExpStrL(Num2str(current_line,10),3,'0')+' '+
- '['+ExpStrL(Num2str(Round(100/entries*(current_order-correction+
- 1/songdata.patt_len*(current_line+1))),10),3,'0')+'%] '+
- '['+_timer_str+']'+' '
- else _position_str :=
- 'Order '+ExpStrL(Num2str(current_order,10),3,'0')+'/'+
- ExpStrL(Num2str(PRED(entries2),10),3,'0')+', '+
- 'pattern '+ExpStrL(Num2str(current_pattern,10),3,'0')+', '+
- 'row '+ExpStrL(Num2str(current_line,10),3,'0')+' '+
- '['+ExpStrL('',3,'0')+'%] '+
- '['+_timer_str+']'+' ';
-end;
-
-function _position_str2: String;
-begin
- _position_str2 :=
- 'Order '+ExpStrL(Num2str(current_order,10),3,'0')+'/'+
- ExpStrL(Num2str(PRED(entries2),10),3,'0')+', '+
- 'pattern '+ExpStrL(Num2str(current_pattern,10),3,'0')+', '+
- 'row '+ExpStrL(Num2str(current_line,10),3,'0')+' ';
-end;
-
-procedure fade_out;
-
-var
- temp: Byte;
-
-begin
- _debug_str_:= 'ADT2PLAY.PAS:fade_out';
- For temp := overall_volume downto 0 do
- begin
- set_overall_volume(temp);
- _delay_counter := 0;
- While (_delay_counter < overall_volume DIV 10) do
- begin
- wtext2(_timer_xpos,_timer_ypos,_timer_str,_timer_color);
- wtext(_progress_xpos,_progress_ypos,_progress_str,_progress_color);
- wtext(_pos_str_xpos,_pos_str_ypos,_position_str2+'\11\10',_pos_str_color);
- C3Write(DietStr(_position_str+'\11\10',PRED(MaxCol)),$0f,0,0);
- MEMW[0:$041c] := MEMW[0:$041a];
- end;
- end;
-end;
-
-function _gfx_mode: Boolean;
-
-var
- result: Boolean;
- temp: Byte;
-
-begin
- result := FALSE;
- For temp := 1 to ParamCount do
- If (Lower(_ParamStr[temp]) = '/gfx') then
- begin
- result := TRUE;
- BREAK;
- end;
- _gfx_mode := result;
-end;
-
-procedure _list_title;
-begin
- If iVGA then
- begin
- CWriteLn('',$07,0);
- CWriteLn(' subz3ro''s',$09,0);
- CWriteLn(' ÄÂÄ ÄÄ',$09,0);
- CWriteLn(' /´DLiB³R/´CK3R ³³ G3 PLAYER',$09,0);
- CWriteLn(' ³ ³ ÄÄ 0.43',$09,0);
- CWriteLn('',$07,0);
- end
- else begin
- WriteLn;
- WriteLn(' subz3ro''s');
- WriteLn(' ÄÂÄ ÄÄ');
- WriteLn(' /´DLiB³R/´CK3R ³³ G3 PLAYER');
- WriteLn(' ³ ³ ÄÄ 0.43');
- WriteLn;
- end;
-end;
-
-var
- old_exit_proc: procedure;
-
-procedure new_exit_proc;
-begin
- If (ErrorAddr <> NIL) then
- begin
- stop_playing;
- TimerDone;
- opl3exp($0004);
- opl3exp($0005);
- FreeMem(pattdata,PATTERN_SIZE*max_patterns);
-
- asm
- mov ax,03h
- xor bh,bh
- int 10h
- mov MaxCol,80
- mov MaxLn,25
- end;
-
- WriteLn('ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ');
- WriteLn('Û ABNORMAL PROGRAM TERMiNATiON Û');
- WriteLn('ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');
- WriteLn('ERROR_ID #'+Num2str(ExitCode,10)+' at '+ExpStrL(Num2str(LONGINT(ErrorAddr),16),8,'0'));
- WriteLn(_debug_str_);
- WriteLn;
- WriteLn('Please send this information with brief description');
- WriteLn('what you were doing with the program when this error was encountered');
- WriteLn('to following email address:');
- WriteLn;
- WriteLn('subz3ro@hotmail.com');
-
- ErrorAddr := NIL;
- HALT(ExitCode);
- end
- else
- ExitProc := @old_exit_proc;
-end;
-
-begin
- For temp := 0 to 255 do
- _ParamStr[temp] := ParamStr(temp);
-
- If NOT _gfx_mode then
- begin
- If iVGA then CleanScreen(MEM[$0b8000]);
- GotoXY(1,1);
- _list_title;
- end;
-
- asm
- mov bx,0ffffh
- mov ah,48h
- int 21h
- mov dos_memavail,bx
- end;
-
- If (dos_memavail*16 DIV 1024 < 120) then
- begin
- If _gfx_mode then _list_title;
- WriteLn('ERROR(1) - Insufficient DOS memory!');
- HALT(1);
- end;
-
- If NOT iVGA then
- begin
- WriteLn('ERROR(2) - Insufficient video equipment!');
- HALT(2);
- end;
-
- For temp := 1 to ParamCount do
- If (Lower(_ParamStr[temp]) = '/jukebox') then
- jukebox := TRUE;
-
- index := 0;
- If (ParamCount = 0) then
- begin
- If _gfx_mode then _list_title;
- CWriteLn('Syntax: '+BaseNameOnly(_ParamStr[0])+' files|wildcards [files|wildcards{...}]',$07,0);
- CWriteLn('',$07,0);
- CWriteLn('Command-line options:',$07,0);
- CWriteLn(' /jukebox play modules w/ no repeat',$07,0);
- CWriteLn(' /gfx graphical interface',$07,0);
- HALT;
- end;
-
- @old_exit_proc := ExitProc;
- ExitProc := @new_exit_proc;
-
- If _gfx_mode then
- toggle_picture_mode;
-
- Repeat
- If NOT (index <> 0) then
- begin
- CWriteLn(FilterStr(DietStr('úù-Ä--ùú úù-ÄÄÄÄÄÄÄÄÄÄÄÄÄÄ--ùú úù-ÄÄÄ--ùú úù-ÄÄ-Äùú',
- PRED(MaxCol)),
- '.',' '),$01,0);
- CWriteLn( ' ~[~SPACE~]~ Fast-Forward ~[~\11Ä~]~ Restart ~[~\11ÄÙ~]~ Next ~[~ESC~]~ Quit',$09,$01);
- CWriteLn(FilterStr(DietStr('úù-ÄÄÄÄÄÄÄÄÄÄ--ùú úù-ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ-Äùú',
- PRED(MaxCol)),
- '.',' '),$01,0);
-
- CWriteLn('',$07,0);
- window_top := WhereY;
- end;
-
- Inc(index);
- If (_ParamStr[index][1] <> '/') then
- begin
- FindFirst(_ParamStr[index],AnyFile-VolumeID-Directory,dirinfo);
- If (DosError <> 0) then
- begin
- CWriteLn(DietStr('ERROR(2) - No such file "'+
- Lower(_ParamStr[index])+'"',
- PRED(MaxCol)),$07,0);
- CWriteLn('',$07,0);
- FindNext(dirinfo);
- CONTINUE;
- end;
-
- While NOT (DosError <> 0) do
- begin
- If (PathOnly(_ParamStr[index]) <> '') then
- songdata_source := Upper(PathOnly(_ParamStr[index])+dirinfo.name)
- else songdata_source := Upper(dirinfo.name);
-
- wtext2(_timer_xpos,_timer_ypos,_timer_str,_timer_color);
- wtext(_progress_xpos,_progress_ypos,_progress_str,_progress_color);
- wtext(_pos_str_xpos,_pos_str_ypos,_position_str2+' ',_pos_str_color);
- wtext2(_fname_xpos,_fname_ypos,NameOnly(songdata_source),_fname_color);
- wtext(_pos_str_xpos,_pos_str_ypos,'Loading...',_pos_str_color);
-
- C3Write(DietStr('Loading "'+songdata_source+'" (please wait)',
- PRED(MaxCol)),$07,0,0);
- For temp := 1 to 10 do WaitRetrace;
-
- limit_exceeded := FALSE;
- load_flag := BYTE_NULL;
-
- _decay_bars_initialized := FALSE;
- a2m_file_loader;
- If (load_flag = BYTE_NULL) then a2t_file_loader;
- If (load_flag = BYTE_NULL) then amd_file_loader;
- If (load_flag = BYTE_NULL) then cff_file_loader;
- If (load_flag = BYTE_NULL) then dfm_file_loader;
- If (load_flag = BYTE_NULL) then mtk_file_loader;
- If (load_flag = BYTE_NULL) then rad_file_loader;
- If (load_flag = BYTE_NULL) then s3m_file_loader;
- If (load_flag = BYTE_NULL) then fmk_file_loader;
- If (load_flag = BYTE_NULL) then sat_file_loader;
- If (load_flag = BYTE_NULL) then sa2_file_loader;
- If (load_flag = BYTE_NULL) then hsc_file_loader;
- If (load_flag = BYTE_NULL) or
- (load_flag = $7f) then
- begin
- CWriteLn(DietStr(ExpStrR('ERROR(3) - Invalid module ('+songdata_source+')',
- PRED(MaxCol),' '),
- PRED(MaxCol)),$07,0);
- CWriteLn('',$07,0);
- FindNext(dirinfo);
- CONTINUE;
- end;
-
- last_order := 0;
- entries := 0;
- If limit_exceeded then
- begin
- CWriteLn(DietStr(ExpStrR('ERROR(1) - Insufficient memory!',
- PRED(MaxCol),' '),
- PRED(MaxCol)),$07,0);
- CWriteLn('',$07,0);
- FindNext(dirinfo);
- CONTINUE;
- end;
-
- count_order(entries);
- correction := calc_following_order(0);
- entries2 := entries;
- If (correction <> -1) then Dec(entries,correction)
- else entries := 0;
- CWriteLn(DietStr(ExpStrR('Playing '+modname[load_flag]+' "'+
- songdata_source+'"',
- PRED(MaxCol),' '),
- PRED(MaxCol)),$07,0);
- temp2 := PRED(WhereY);
-
- If (entries = 0) then
- begin
- If NOT _picture_mode then GotoXY(1,temp2);
- CWriteLn(DietStr(ExpStrR('Playing '+modname[load_flag]+' "'+
- songdata_source+'"',
- PRED(MaxCol),' '),
- PRED(MaxCol)),$08,0);
- CWriteLn(DietStr(ExpStrR(''+NameOnly(songdata_source)+' [stopped] ['+
- ExpStrL(Num2str(TRUNC(time_playing) DIV 60,10),2,'0')+
- ':'+ExpStrL(Num2str(TRUNC(time_playing) MOD 60,10),2,'0')+']',
- PRED(MaxCol),' '),
- PRED(MaxCol)),$07,0);
- CWriteLn('',$07,0);
- FindNext(dirinfo);
- CONTINUE;
- end;
-
- start_playing;
- set_overall_volume(63);
- _decay_bars_nm_tracks := songdata.nm_tracks;
- _decay_bars_initialized := TRUE;
-
- Repeat
- If (overall_volume = 63) then
- begin
- wtext2(_timer_xpos,_timer_ypos,_timer_str,_timer_color);
- wtext(_progress_xpos,_progress_ypos,_progress_str,_progress_color);
- wtext(_pos_str_xpos,_pos_str_ypos,_position_str2+' ',_pos_str_color);
- C3Write(DietStr(_position_str+' ',PRED(MaxCol)),$0f,0,0);
- end;
-
- If (PORT[$60] = $39) { SPACE pressed } then
- begin
- If (overall_volume > 32) then
- For temp := 63 downto 32 do
- begin
- set_overall_volume(temp);
- _delay_counter := 0;
- While (_delay_counter < overall_volume DIV 20) do
- begin
- wtext2(_timer_xpos,_timer_ypos,_timer_str,_timer_color);
- wtext(_progress_xpos,_progress_ypos,_progress_str,_progress_color);
- wtext(_pos_str_xpos,_pos_str_ypos,_position_str2+'\10\10',_pos_str_color);
- MEMW[0:$041c] := MEMW[0:$041a];
- C3Write(DietStr(_position_str+'\10\10',PRED(MaxCol)),$0f,0,0);
- end;
- end
- else begin
- wtext2(_timer_xpos,_timer_ypos,_timer_str,_timer_color);
- wtext(_progress_xpos,_progress_ypos,_progress_str,_progress_color);
- wtext(_pos_str_xpos,_pos_str_ypos,_position_str2+'\10\10',_pos_str_color);
- C3Write(DietStr(_position_str+'\10\10',PRED(MaxCol)),$0f,0,0);
- MEMW[0:$041c] := MEMW[0:$041a];
- end;
- fast_forward := TRUE;
- end
- else If (PORT[$60] = $0b9) { SPACE released } then
- begin
- fast_forward := FALSE;
- If (overall_volume < 63) then
- For temp := 32 to 63 do
- begin
- set_overall_volume(temp);
- _delay_counter := 0;
- While (_delay_counter < overall_volume DIV 20) do
- begin
- wtext2(_timer_xpos,_timer_ypos,_timer_str,_timer_color);
- wtext(_progress_xpos,_progress_ypos,_progress_str,_progress_color);
- wtext(_pos_str_xpos,_pos_str_ypos,_position_str2+' ',_pos_str_color);
- C3Write(DietStr(_position_str+' ',PRED(MaxCol)),$0f,0,0);
- MEMW[0:$041c] := MEMW[0:$041a];
- end;
- end;
- end;
-
- If keypressed then asm xor ax,ax; int 16h; mov fkey,ax end
- else fkey := $0ffff;
- MEMW[0:$041c] := MEMW[0:$041a];
-
- If jukebox and (last_order <> current_order) then
- begin
- If (last_order > current_order) and
- (last_order = PRED(entries2)) then BREAK
- else last_order := current_order;
- end;
-
- If (fkey = kBkSPC) then
- begin
- fade_out;
- stop_playing;
- set_overall_volume(63);
- start_playing;
- end;
- until (fkey = kENTER) or
- (fkey = kESC);
-
- fade_out;
- stop_playing;
- If NOT _picture_mode then GotoXY(1,temp2);
- CWriteLn(DietStr(ExpStrR('Playing '+modname[load_flag]+' "'+
- songdata_source+'"',
- PRED(MaxCol),' '),
- PRED(MaxCol)),$08,0);
- CWriteLn(DietStr(ExpStrR(''+NameOnly(songdata_source)+' [stopped] ['+
- ExpStrL(Num2str(TRUNC(time_playing) DIV 60,10),2,'0')+
- ':'+ExpStrL(Num2str(TRUNC(time_playing) MOD 60,10),2,'0')+']',
- PRED(MaxCol),' '),
- PRED(MaxCol)),$07,0);
- CWriteLn('',$07,0);
- If (fkey = kESC) then BREAK;
- FindNext(dirinfo);
- end;
- end;
- until (index = ParamCount);
-
- If _picture_mode then toggle_picture_mode;
- MEMW[0:$041c] := MEMW[0:$041a];
- FreeMem(pattdata,PATTERN_SIZE*max_patterns);
- ExitProc := @old_exit_proc;
- HALT(0);
-end.
projects / 16.git / blobdiff