DEADSOFTWARE

added some "key unpress" calls; maybe it will fix intermissions (i don't know, it...
[d2df-sdl.git] / src / game / g_game.pas
index b2c3dc06b4533c45e59df0fb5262c79780f75ae2..4414740e5ddc0f1345ca5eb9703932dd3071a634 100644 (file)
@@ -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