Initial commit.

MOVIE.CPP

@@ -0,0 +1,114 @@
+//******************************************************************
+// movie.cpp
+//******************************************************************
+
+
+#include "diablo.h"
+#pragma hdrstop
+#include "storm/h/storm.h"
+#include "palette.h"
+#include "engine.h"
+#include "scrollrt.h"
+#include "gendung.h"
+#include "sound.h"
+
+
+//******************************************************************
+// externs
+//******************************************************************
+void CALLBACK menusnd_play(LPCSTR pszName);
+WNDPROC my_SetWindowProc(WNDPROC wndProc);
+void BlackPalette();
+void music_pause(BOOL bPause);
+void stream_stop();
+
+
+//******************************************************************
+// private
+//******************************************************************
+static BYTE sgbPlayMovie;
+
+
+//******************************************************************
+//******************************************************************
+static LRESULT CALLBACK MovieWndProc(HWND hWnd,UINT uMsg,WPARAM wParam,LPARAM lParam) {
+	switch (uMsg) {
+		case WM_SYSCOMMAND:
+			if (wParam == SC_CLOSE) {
+				sgbPlayMovie = FALSE;
+				return 0;
+			}
+		break;
+
+		case WM_KEYDOWN:
+			sgbPlayMovie = FALSE;
+		break;
+
+		case WM_CHAR:
+		case WM_LBUTTONDOWN:
+		case WM_RBUTTONDOWN:
+			sgbPlayMovie = FALSE;
+		break;
+	}
+
+	return DiabloDefProc(hWnd,uMsg,wParam,lParam);
+}
+
+
+//******************************************************************
+//******************************************************************
+BOOL gbLoopMovie = FALSE;
+void play_movie(const char * pszMovie,BOOL bAllowCancel) {
+	app_assert(pszMovie);
+
+	// if we are not the frontmost window then don't play the movie
+	if (! bActive) return;
+
+	app_assert(ghMainWnd);
+	WNDPROC saveProc = my_SetWindowProc(MovieWndProc);
+	InvalidateRect(ghMainWnd,NULL,0);
+	UpdateWindow(ghMainWnd);
+
+	sgbPlayMovie = TRUE;
+
+	// stop music and streaming SFX from playing so they
+	// don't interfere with the CD bandwidth during movie
+	music_pause(TRUE);
+	stream_stop();
+
+	// play "silence" because according to RAD software, it
+	// prevents a popping noise upon movie startup
+	menusnd_play("Sfx\\Misc\\blank.wav");
+	HSVIDEO hVid;
+	SVidPlayBegin(
+		pszMovie,
+		NULL,
+		NULL,
+		NULL,
+		0,
+		gbLoopMovie ? (SVID_AUTOCUTSCENE|SVID_FLAG_LOOP)&~SVID_FLAG_CLEARSCREEN : SVID_AUTOCUTSCENE,
+		&hVid
+	);
+
+	while (hVid && bActive) {
+		if (bAllowCancel && !sgbPlayMovie) break;
+
+		MSG msg;
+		while (PeekMessage(&msg,NULL,0,0,PM_REMOVE)) {
+			if (msg.message == WM_QUIT) continue;
+			TranslateMessage(&msg);
+			DispatchMessage(&msg);
+		}
+
+		if (!SVidPlayContinue())
+			break;
+	}
+
+	if (hVid) SVidPlayEnd(hVid);
+
+	// restore window procedure
+	saveProc = my_SetWindowProc(saveProc);
+	app_assert(saveProc == MovieWndProc);
+
+	music_pause(FALSE);
+}