From 40250d513a18159d5ff641df908202ee297f7f96 Mon Sep 17 00:00:00 2001
From: brian-ch <brian-ch@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 12 Jun 2014 20:49:09 +0000
Subject: Add option to skip the song intro

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3071 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/screens/UScreenSing.pas | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/screens/UScreenSing.pas b/src/screens/UScreenSing.pas
index ecc0cc79..f26b8cf7 100644
--- a/src/screens/UScreenSing.pas
+++ b/src/screens/UScreenSing.pas
@@ -222,6 +222,17 @@ begin
         Exit;
       end;
 
+      // skip intro
+      Ord('S'):
+      begin
+        if (AudioPlayback.Position < CurrentSong.gap / 1000 - 6) then
+        begin
+          LyricsState.SetCurrentTime(CurrentSong.gap / 1000 - 5);
+          AudioPlayback.SetSyncSource(fLyricsSync);
+        end;
+        Exit;
+      end;
+
       // pause
       Ord('P'):
       begin
-- 
cgit v1.2.3