modplay.pas

unit modplay;
{$L c_utils.o}
interface
	
	procedure setmodvolumeto(vol:integer);cdecl ; external;
	procedure haltmod;cdecl ; external;
	procedure initializemod;
	procedure stopmod;       // stop music + unload
	procedure ampsetpanning(n:smallint;pantype:smallint);
	procedure playmod(looping: boolean;s: string);  // load & play mod
	procedure soundeffect(s: string; rate: integer); 
	procedure pausemod;cdecl ; external;
	procedure continuemod;cdecl ; external;
	procedure setmodvolume;
	function playing: boolean;cdecl ; external;
implementation

uses strings;
	procedure sdl_mixer_init;cdecl ; external;
	procedure musicDone;cdecl ; external;
	procedure play_mod(loop:byte;filename:pchar);cdecl ; external;
	procedure play_sound(filename:pchar; rate:integer);cdecl ; external;
	
procedure playmod(looping: boolean;s: string);  // load & play mod
Var p : Pchar;
begin
    
    p:=StrAlloc (length(s)+1);
    StrPCopy (P,s);
    play_mod(byte(looping),P);
    StrDispose(P);
end;

	

procedure initializemod;  //SDL mod
begin
    sdl_mixer_init;
end;

procedure stopmod;       // stop music + unload
begin
 musicDone;
end;


procedure ampsetpanning(n:smallint;pantype:smallint);
begin
end;




procedure soundeffect(s: string; rate: integer); 
Var p : Pchar;
begin
    
    p:=StrAlloc (length(s)+1);
    StrPCopy (P,s);
    play_sound(P,rate);
    StrDispose(P);
end;

procedure setmodvolume;
begin
end;

end.