home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / AMOD095.ZIP / TILT.PAS < prev    next >
Pascal/Delphi Source File  |  1995-11-02  |  469b  |  27 lines
  1. uses modunit,crt;
  2. var
  3. ch : char;
  4. begin
  5.   gusfind;
  6.   gusreset;
  7.   init_mod;
  8.   init_fx(1024*64,2);
  9.   load_mod('pkunk.mod');
  10.   load_fx_raw('test.smp',0);
  11.   load_fx_st3('lasersam.sam',1);
  12.   load_fx_st3('voxuh.sam',2);
  13.   repeat
  14.     ch := readkey;
  15.     case ch of
  16.       '1' : play_fx(0,0);
  17.       '2' : play_fx(0,1);
  18.       '3' : play_fx(0,2);
  19.       'p' : start_playing;
  20.       's' : stop_playing;
  21.     end;
  22.   until ch=#27;
  23.   free_mod;
  24.   gusdeinit;
  25. end.
  26.  
  27.