// r33t screenshot dumping script 
// produced by Brain^Virus, r33t scr1p70r 

$filming = false; 
$FPS = 25; // desired frames per second of the captured 'video' 
$SPF = 1.0/$FPS;  // seconds/frame.  this is only here so i don't have to calculate it for each frame 
$filmTimeScale = 1.0/ ($FPS + ($FPS/1.5));  // note that I *JUST* added this... it may puke on you... if it does, set it to 0.03 or lower 
EditActionMap("playMap.sae"); 
bindcommand(keyboard0, make, "f3", TO, "roletape();");  // the on/off toggle 
//bindcommand(keyboard0, break, "f2", TO, ""); 

function roletape(){ 
   $filming = !$filming; 
   makeVideo(); 
} 
function makeVideo(){ 
   if($filming){ 
      $lastSSTime = getSimTime(); 
      $SimGame::TimeScale = $filmTimeScale; 
      function Game::EndFrame(){ 
         %time = getSimTime(); 
         if((%time - $lastSSTime) >= $SPF){ 
            $lastSSTime = %time; 
            screenShot(mainWindow); 
         } 
      } 
   } 
   else{ 
      function Game::EndFrame(){} 
      $SimGame::TimeScale = 1.0; 
   } 
}