[GaisinPro]

1) Lib_vibra
function Vibrate(integer i); //i millisec
2) Lib_Resloader

3)

   if not OpenPlayer('/music.mid', 'audio/midi') then // load music
     Halt; // error
   if not SetPlayerCount(-1) then  Halt; 
   if not StartPlayer then     Halt;
    
  // bla-bla-vla

  StopPlayer;

Учи Великий и Могучий )))