Merge pull request #29 from MarkHC/master

Added a Hold-To-Play option

Author: SilentSys

SLAM/App.config

@@ -34,6 +34,9 @@
             <setting name="RelayKey" serializeAs="String">
                 <value>=</value>
             </setting>
+            <setting name="HoldToPlay" serializeAs="String">
+                <value>False</value>
+            </setting>
         </SLAM.My.MySettings>
     </userSettings>
 </configuration>

SLAM/Form1.Designer.vb

@@ -15,6 +15,8 @@ Public Class Form1
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         RefreshPlayKey()
 
+        HoldToPlay.Checked = My.Settings.HoldToPlay
+
         If My.Settings.UpdateCheck Then
             CheckForUpdate()
         End If
@@ -302,7 +304,13 @@ Public Class Form1
             slam_cfg.WriteLine("alias slam_play_on ""alias slam_play slam_play_off; voice_inputfromfile 1; voice_loopback 1; +voicerecord""")
             slam_cfg.WriteLine("alias slam_play_off ""-voicerecord; voice_inputfromfile 0; voice_loopback 0; alias slam_play slam_play_on""")
             slam_cfg.WriteLine("alias slam_updatecfg ""host_writeconfig slam_relay""")
-            slam_cfg.WriteLine("bind {0} slam_play", My.Settings.PlayKey)
+            If HoldToPlay.Checked Then
+                slam_cfg.WriteLine("alias +slam_hold_play slam_play_on")
+                slam_cfg.WriteLine("alias -slam_hold_play slam_play_off")
+                slam_cfg.WriteLine("bind {0} +slam_hold_play", My.Settings.PlayKey)
+            Else
+                slam_cfg.WriteLine("bind {0} slam_play", My.Settings.PlayKey)
+            End If
             slam_cfg.WriteLine("alias slam_curtrack ""exec slam_curtrack.cfg""")
             slam_cfg.WriteLine("alias slam_saycurtrack ""exec slam_saycurtrack.cfg""")
             slam_cfg.WriteLine("alias slam_sayteamcurtrack ""exec slam_sayteamcurtrack.cfg""")
@@ -895,6 +903,11 @@ Public Class Form1
             StopPoll()
         End If
     End Sub
+
+    Private Sub HoldToPlay_CheckedChanged(sender As Object, e As EventArgs) Handles HoldToPlay.CheckedChanged
+        My.Settings.HoldToPlay = HoldToPlay.Checked
+        My.Settings.Save()
+    End Sub
 End Class
 
 

SLAM/Form1.vb

@@ -26,5 +26,8 @@
     <Setting Name="RelayKey" Type="System.String" Scope="User">
       <Value Profile="(Default)">=</Value>
     </Setting>
+    <Setting Name="HoldToPlay" Type="System.Boolean" Scope="User">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
   </Settings>
 </SettingsFile>