home *** CD-ROM | disk | FTP | other *** search
/ Intermedia 1998 January / inter1_98.iso / www / rozi / CMF.ZIP / MIX.PAS < prev    next >
Pascal/Delphi Source File  |  1996-01-22  |  964b  |  50 lines
  1. {$M 15000,0,50000}
  2. uses voc,cmf,crt;
  3.  
  4. var 
  5.     muzyka:pointer;
  6.     odglos:pointer;
  7.     ch:char;
  8.  
  9. procedure CzyBlad;
  10. begin
  11.     if VOC_blad<>VOk then
  12.        begin
  13.          writeln(VOpisBledu);
  14.          halt
  15.        end;
  16.     if CMF_blad<>COk then
  17.        begin
  18.          writeln(COpisBledu);
  19.          halt
  20.        end
  21. end;
  22.  
  23. procedure Wystrzal;
  24. begin
  25.      VOdtworzVOC(Odglos);
  26.      repeat until VOCStatus=0
  27. end;
  28.  
  29. begin
  30.     CzyBlad;
  31.     VinicjujSterownik(0,0);
  32.     CzyBlad;
  33.     VOdczytajPlikVOC(Odglos,'STRZAL.VOC');
  34.     CzyBlad;
  35.     Muzyka:=CZaladujPlikCMF('BADMAN.CMF');
  36.     CzyBlad;
  37.     writeln;
  38.     writeln('SPACJA - WystrzaÆ, ESC - Koniec');
  39.     writeln;
  40.     CZagrajCMF(Muzyka);
  41.     repeat
  42.       ch:=#0;
  43.       if keypressed then ch:=readkey;
  44.       if ch=#32 then Wystrzal
  45.     until (CMFStatus=0)or(ch=#27);
  46.     if ch=#27 then CZakonczCMF;
  47.     CResetujSBFM;
  48.     VZwolnijPamiec(Odglos);
  49.     CZwolnijPamiecCMF(Muzyka)
  50. end.