From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Sat, 19 May 2018 18:48:04 +0000 (+0300)
Subject: added some "key unpress" calls; maybe it will fix intermissions (i don't know, it... 
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=67c6f2778c699f242412be03e2b874d14a7d10c9;p=d2df-sdl.git

added some "key unpress" calls; maybe it will fix intermissions (i don't know, it always works for me)
---

diff --git a/src/game/g_game.pas b/src/game/g_game.pas
index b2c3dc0..4414740 100644
--- a/src/game/g_game.pas
+++ b/src/game/g_game.pas
@@ -1015,6 +1015,7 @@ begin
             gMusic.SetByName('MUSIC_INTERMUS');
             gMusic.Play();
             gState := STATE_INTERSINGLE;
+            e_UnpressAllKeys();
 
             g_Game_ExecuteEvent('oninter');
           end
@@ -1665,12 +1666,14 @@ begin
 
                 gMusic.Play();
                 gState := STATE_INTERCUSTOM;
+                e_UnpressAllKeys();
               end
             else // Çàêîí÷èëàñü ïîñëåäíÿÿ êàðòà â Îäèíî÷íîé èãðå
               begin
                 gMusic.SetByName('MUSIC_INTERMUS');
                 gMusic.Play();
                 gState := STATE_INTERSINGLE;
+                e_UnpressAllKeys();
               end;
             g_Game_ExecuteEvent('oninter');
           end