mirrors
/
CnC_Remastered_Collection
mirror of https://github.com/electronicarts/CnC_Remastered_Collection.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
CnC_Remastered_Collection/REDALERT/STARTUP.CPP

1217 lines
35 KiB
C++
Raw Normal View History

Initial Source Code commit Initial commit of original Tiberian Dawn and Red Alert source code converted to build as DLLs, and compatible with the release version of Command & Conquer Remastered.
2020-05-27 20:16:20 +01:00
//
// Copyright 2020 Electronic Arts Inc.
//
// TiberianDawn.DLL and RedAlert.dll and corresponding source code is free
// software: you can redistribute it and/or modify it under the terms of
// the GNU General Public License as published by the Free Software Foundation,
// either version 3 of the License, or (at your option) any later version.
// TiberianDawn.DLL and RedAlert.dll and corresponding source code is distributed
// in the hope that it will be useful, but with permitted additional restrictions
// under Section 7 of the GPL. See the GNU General Public License in LICENSE.TXT
// distributed with this program. You should have received a copy of the
// GNU General Public License along with permitted additional restrictions
// with this program. If not, see https://github.com/electronicarts/CnC_Remastered_Collection
/* $Header: /counterstrike/STARTUP.CPP 6 3/15/97 7:18p Steve_tall $ */
/***********************************************************************************************
*** C O N F I D E N T I A L --- W E S T W O O D S T U D I O S ***
***********************************************************************************************
* *
* Project Name : Command & Conquer *
* *
* File Name : STARTUP.CPP *
* *
* Programmer : Joe L. Bostic *
* *
* Start Date : October 3, 1994 *
* *
* Last Update : September 30, 1996 [JLB] *
* *
*---------------------------------------------------------------------------------------------*
* Functions: *
* Prog_End -- Cleans up library systems in prep for game exit. *
* main -- Initial startup routine (preps library systems). *
* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
#include "function.h"
#include <conio.h>
#include <io.h>
#ifdef WIN32
#include "ccdde.h"
#include "ipx95.h"
#endif //WIN32
#ifdef MCIMPEG // Denzil 6/15/98
#include "mcimovie.h"
#endif
#ifdef WOLAPI_INTEGRATION
//#include "WolDebug.h"
#endif
extern char RedAlertINI[_MAX_PATH];
bool Read_Private_Config_Struct(FileClass & file, NewConfigType * config);
void Print_Error_End_Exit(char * string);
void Print_Error_Exit(char * string);
#ifdef WIN32
//WinTimerClass * WinTimer;
extern void Create_Main_Window ( HANDLE instance , int command_show , int width , int height);
extern bool RA95AlreadyRunning;
HINSTANCE ProgramInstance;
void Check_Use_Compressed_Shapes (void);
void Read_Setup_Options(RawFileClass *config_file);
bool VideoBackBufferAllowed = true;
#else
BOOL Init_Timer_System(unsigned int freq, int partial = FALSE);
BOOL Remove_Timer_System(VOID);
#endif //WIN32
const char* Game_Registry_Key();
#if (ENGLISH)
#define WINDOW_NAME "Red Alert"
#endif
#if (FRENCH)
#define WINDOW_NAME "Alerte Rouge"
#endif
#if (GERMAN)
#define WINDOW_NAME "Alarmstufe Rot"
#endif
// Added. ST - 5/14/2019
bool ProgEndCalled = false;
extern "C"{
extern char *BigShapeBufferStart;
extern char *TheaterShapeBufferStart;
extern BOOL UseBigShapeBuffer;
extern bool IsTheaterShape;
}
extern void Free_Heaps(void);
extern void DLL_Shutdown(void);
BOOL WINAPI DllMain(HINSTANCE instance, unsigned int fdwReason, void *lpvReserved)
{
lpvReserved;
switch (fdwReason) {
case DLL_PROCESS_ATTACH:
ProgramInstance = instance;
break;
case DLL_PROCESS_DETACH:
if (WindowsTimer) {
delete WindowsTimer;
WindowsTimer = NULL;
}
/*
** Red Alert doesn't clean up memory. Do some of that here.
*/
MFCD::Free_All();
if (BigShapeBufferStart) {
Free(BigShapeBufferStart);
BigShapeBufferStart = NULL;
}
if (TheaterShapeBufferStart) {
Free(TheaterShapeBufferStart);
TheaterShapeBufferStart = NULL;
}
if (_ShapeBuffer) {
delete [] _ShapeBuffer;
_ShapeBuffer = NULL;
}
DLL_Shutdown();
Free_Heaps();
break;
case DLL_THREAD_ATTACH:
case DLL_THREAD_DETACH:
break;
}
return true;
}
/***********************************************************************************************
* main -- Initial startup routine (preps library systems). *
* *
* This is the routine that is first called when the program starts up. It basically *
* handles the command line parsing and setting up library systems. *
* *
* INPUT: argc -- Number of command line arguments. *
* *
* argv -- Pointer to array of command line argument strings. *
* *
* OUTPUT: Returns with execution failure code (if any). *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 03/20/1995 JLB : Created. *
*=============================================================================================*/
#ifdef WIN32
//int PASCAL WinMain(HINSTANCE, HINSTANCE, char *, int )
//PG int PASCAL WinMain ( HINSTANCE instance , HINSTANCE , char * command_line , int command_show )
int DLL_Startup(const char * command_line_in)
#else //WIN32
int main(int argc, char * argv[])
#endif //WIN32
{
#ifdef WIN32
RunningAsDLL = true;
int command_show = SW_HIDE;
HINSTANCE instance = ProgramInstance;
char command_line[1024];
strcpy(command_line, command_line_in);
#ifndef MPEGMOVIE // Denzil 6/10/98
//PG DDSCAPS surface_capabilities;
#endif
/*
** First thing to do is check if there is another instance of Red Alert already running
** and if so, switch to the existing instance and terminate ourselves.
*/
SpawnedFromWChat = false;
#if (0)//PG
if (RA95AlreadyRunning) { //Set in the DDEServer constructor
//MessageBox (NULL, "Error - attempt to restart Red Alert 95 when already running.", "Red Alert", MB_ICONEXCLAMATION|MB_OK);
HWND ccwindow;
ccwindow = FindWindow (WINDOW_NAME, WINDOW_NAME);
if (ccwindow) {
SetForegroundWindow ( ccwindow );
ShowWindow ( ccwindow, SW_RESTORE );
}
return (EXIT_SUCCESS);
}
#endif
#endif
//printf("in program.\n");getch();
//printf("ram free = %ld\n",Ram_Free(MEM_NORMAL));getch();
#ifdef WIN32
if (Ram_Free(MEM_NORMAL) < 7000000) {
#else
void *temp_mem = malloc (13*1024*1024);
if (temp_mem) {
free (temp_mem);
}else{
//if (Ram_Free(MEM_NORMAL) < 13000000) {
// if (Ram_Free(MEM_NORMAL) < 3500000) {
#endif
printf (TEXT_NO_RAM);
#ifndef WIN32
printf (TEXT_USE_START_MENU);
getch();
#endif
#if (0)
/*
** Take a stab at finding out how much memory there is available.
*/
for ( int mem = 13*1024*1024 ; mem >0 ; mem -=1024 ) {
temp_mem = malloc (mem);
if (temp_mem){
free (temp_mem);
printf ("Memory available: %d", mem);
break;
}
}
getch();
#endif //(0)
return(EXIT_FAILURE);
}
#ifdef WIN32
if (strstr(command_line, "f:\\projects\\c&c0") != NULL ||
strstr(command_line, "F:\\PROJECTS\\C&C0") != NULL) {
MessageBox(0, "Playing off of the network is not allowed.", "Red Alert", MB_OK|MB_ICONSTOP);
return(EXIT_FAILURE);
}
int argc; //Command line argument count
unsigned command_scan;
char command_char;
char * argv[20]; //Pointers to command line arguments
char path_to_exe[132];
ProgramInstance = instance;
/*
** Get the full path to the .EXE
*/
GetModuleFileName (instance, &path_to_exe[0], 132);
/*
** First argument is supposed to be a pointer to the .EXE that is running
**
*/
argc=1; //Set argument count to 1
argv[0]=&path_to_exe[0]; //Set 1st command line argument to point to full path
/*
** Get pointers to command line arguments just like if we were in DOS
**
** The command line we get is cr/zero? terminated.
**
*/
command_scan=0;
do {
/*
** Scan for non-space character on command line
*/
do {
command_char = *( command_line+command_scan++ );
} while ( command_char==' ' );
if ( command_char!=0 && command_char != 13 ) {
argv[argc++]=command_line+command_scan-1;
/*
** Scan for space character on command line
*/
bool in_quotes = false;
do {
command_char = *( command_line+command_scan++ );
if (command_char == '"') {
in_quotes = !in_quotes;
}
} while ( (in_quotes || command_char!=' ') && command_char != 0 && command_char!=13 );
*( command_line+command_scan-1 ) = 0;
}
} while ( command_char != 0 && command_char != 13 && argc<20 );
#endif //WIN32
/*
** Remember the current working directory and drive.
*/
#if (0)//PG
unsigned olddrive;
char oldpath[MAX_PATH];
getcwd(oldpath, sizeof(oldpath));
_dos_getdrive(&olddrive);
/*
** Change directory to the where the executable is located. Handle the
** case where there is no path attached to argv[0].
*/
char drive[_MAX_DRIVE];
char path[_MAX_PATH];
unsigned drivecount;
_splitpath(argv[0], drive, path, NULL, NULL);
if (!drive[0]) {
drive[0] = ('A' + olddrive)-1;
}
if (!path[0]) {
strcpy(path, ".");
}
_dos_setdrive(toupper((drive[0])-'A')+1, &drivecount);
if (path[strlen(path)-1] == '\\') {
path[strlen(path)-1] = '\0';
}
chdir(path);
#endif
#ifdef WOLAPI_INTEGRATION
// Look for special wolapi install program, used after the patch to version 3, to install "Shared Internet Components".
WIN32_FIND_DATA wfd;
HANDLE hWOLSetupFile = FindFirstFile( "wolsetup.exe", &wfd );
bool bWOLSetupFile = ( hWOLSetupFile != INVALID_HANDLE_VALUE );
// if( bWOLSetupFile )
// debugprint( "Found wolsetup.exe\n" );
FindClose( hWOLSetupFile );
// Look for special registry entry that tells us when the setup exe has done its thing.
HKEY hKey;
RegOpenKeyEx( HKEY_LOCAL_MACHINE, Game_Registry_Key(), 0, KEY_READ, &hKey );
DWORD dwValue;
DWORD dwBufSize = sizeof( DWORD );
if( RegQueryValueEx( hKey, "WolapiInstallComplete", 0, NULL, (LPBYTE)&dwValue, &dwBufSize ) == ERROR_SUCCESS )
{
// debugprint( "Found WolapiInstallComplete in registry\n" );
// Setup has finished. Delete the setup exe and remove reg key.
if( bWOLSetupFile )
{
if( DeleteFile( "wolsetup.exe" ) )
RegDeleteValue( hKey, "WolapiInstallComplete" );
}
else
RegDeleteValue( hKey, "WolapiInstallComplete" );
}
RegCloseKey( hKey );
// I've been having problems getting the patch to delete "conquer.eng", which is present in the game
// directory for 1.08, but which must NOT be present for this version (Aftermath mix files provide the
// string overrides that the 1.08 separate conquer.eng did before Aftermath).
// Delete conquer.eng if it's found.
if( FindFirstFile( "conquer.eng", &wfd ) != INVALID_HANDLE_VALUE )
DeleteFile( "conquer.eng" );
#endif
if (Parse_Command_Line(argc, argv)) {
#if(TEN)
//
// Only allow the TEN version of the game to run if the TEN
// or AllowSoloPlayOptions arguments are specified.
//
if (Session.AllowSolo==0 && Session.Type != GAME_TEN) {
#ifdef WIN32
MessageBox(NULL, "Red Alert for TEN\n (c) 1996 Westwood Studios",
"Red Alert", MB_OK);
exit(0);
#else
printf("\n");
printf(" Red Alert for TEN\n");
printf(" (c) 1996 Westwood Studios\n");
printf("\n");
exit(0);
#endif // WIN32
}
#endif // TEN
#if(MPATH)
//
// Only allow the MPATH version of the game to run if the MPATH
// or AllowSoloPlayOptions arguments are specified.
//
if (Session.AllowSolo==0 && Session.Type != GAME_MPATH) {
#ifdef WIN32
MessageBox(NULL, "Red Alert for MPATH\n (c) 1996 Westwood Studios",
"Red Alert", MB_OK);
exit(0);
#else
printf("\n");
printf(" Red Alert for MPATH\n");
printf(" (c) 1996 Westwood Studios\n");
printf("\n");
exit(0);
#endif // WIN32
}
#endif // MPATH
#ifdef WIN32
WindowsTimer = new WinTimerClass(60, FALSE);
#if (0)//PG
int time_test = WindowsTimer->Get_System_Tick_Count();
Sleep (1000);
if (WindowsTimer->Get_System_Tick_Count() == time_test){
MessageBox(0, TEXT_ERROR_TIMER, TEXT_SHORT_TITLE, MB_OK|MB_ICONSTOP);
return(EXIT_FAILURE);
}
#endif
#else //WIN32
Init_Timer_System(60, true);
#endif //WIN32
////////////////////////////////////////
// The editor needs to load the Red Alert ini file from a different location than the real game. - 7/18/2019 JAS
char* red_alert_file_path = nullptr;
if (RunningFromEditor)
{
red_alert_file_path = RedAlertINI;
}
else
{
red_alert_file_path = CONFIG_FILE_NAME;
}
RawFileClass cfile(red_alert_file_path);
//RawFileClass cfile(CONFIG_FILE_NAME);
// end of change - 7/18/2019 JAS
////////////////////////////////////////
#ifndef WIN32
Install_Keyboard_Interrupt(Get_RM_Keyboard_Address(), Get_RM_Keyboard_Size());
#endif //WIN32
#ifdef NEVER
Keyboard->IsLibrary = true;
if (Debug_Flag) {
Keyboard_Attributes_On(DEBUGINT);
}
#endif
Keyboard = new KeyboardClass();
#ifdef WIN32
/*
** If there is loads of memory then use uncompressed shapes
*/
Check_Use_Compressed_Shapes();
#endif
/*
** If there is not enough disk space free, don't allow the product to run.
*/
if (Disk_Space_Available() < INIT_FREE_DISK_SPACE) {
#ifdef WIN32
#if (0)//PG
char disk_space_message [512];
sprintf(disk_space_message, TEXT_CRITICALLY_LOW); //PG , (INIT_FREE_DISK_SPACE) / (1024 * 1024));
int reply = MessageBox(NULL, disk_space_message, TEXT_SHORT_TITLE, MB_ICONQUESTION|MB_YESNO);
if (reply == IDNO) {
if ( WindowsTimer )
delete WindowsTimer;
return (EXIT_FAILURE);
}
#endif
#else
printf(TEXT_INSUFFICIENT);
printf(TEXT_MUST_HAVE, INIT_FREE_DISK_SPACE / (1024 * 1024));
printf("\n");
if (Keyboard) Keyboard->Get();
// Keyboard::IsLibrary = false;
Remove_Keyboard_Interrupt();
Remove_Timer_System();
return(EXIT_FAILURE);
#endif
}
if (cfile.Is_Available()) {
Read_Private_Config_Struct(cfile, &NewConfig);
#ifdef WIN32
/*
** Set the options as requested by the ccsetup program
*/
Read_Setup_Options( &cfile );
Create_Main_Window( instance , command_show , ScreenWidth , ScreenHeight );
SoundOn = Audio_Init ( MainWindow , 16 , false , 11025*2 , 0 );
#else //WIN32
if (!Debug_Quiet) {
Audio_Init(NewConfig.DigitCard,
NewConfig.Port,
NewConfig.IRQ,
NewConfig.DMA,
PLAYBACK_RATE_NORMAL,
// (NewConfig.Speed) ? PLAYBACK_RATE_SLOW : PLAYBACK_RATE_NORMAL,
NewConfig.BitsPerSample,
// 4,
(Get_CPU() < 5) ? 3 : 5,
// (NewConfig.Speed) ? 3 : 5,
NewConfig.Reverse);
SoundOn = true;
} else {
Audio_Init(0, -1, -1, -1, PLAYBACK_RATE_NORMAL, 8, 5, false);
}
#endif //WIN32
#ifdef WIN32
#ifdef MPEGMOVIE // Denzil 6/10/98
if (!InitDDraw())
return (EXIT_FAILURE);
#else
BOOL video_success = FALSE;
/*
** Set 640x400 video mode. If its not available then try for 640x480
*/
if (ScreenHeight == 400) {
if (Set_Video_Mode (MainWindow, ScreenWidth, ScreenHeight, 8)) {
video_success = TRUE;
} else {
if (Set_Video_Mode (MainWindow, ScreenWidth, 480, 8)) {
video_success = TRUE;
ScreenHeight = 480;
}
}
} else {
if (Set_Video_Mode (MainWindow, ScreenWidth, ScreenHeight, 8)) {
video_success = TRUE;
}
}
if (!video_success) {
MessageBox(MainWindow, TEXT_VIDEO_ERROR, TEXT_SHORT_TITLE, MB_ICONEXCLAMATION|MB_OK);
if (WindowsTimer) delete WindowsTimer;
//if (Palette) delete Palette;
return (EXIT_FAILURE);
}
if (ScreenWidth==320) {
VisiblePage.Init( ScreenWidth , ScreenHeight , NULL , 0 , (GBC_Enum)0);
ModeXBuff.Init( ScreenWidth , ScreenHeight , NULL , 0 , (GBC_Enum)(GBC_VISIBLE | GBC_VIDEOMEM));
} else {
#if (1) //ST - 1/3/2019 2:11PM
VisiblePage.Init(ScreenWidth, ScreenHeight, NULL, 0, (GBC_Enum)0);
HiddenPage.Init(ScreenWidth, ScreenHeight, NULL, 0, (GBC_Enum)0);
#else
VisiblePage.Init( ScreenWidth , ScreenHeight , NULL , 0 , (GBC_Enum)(GBC_VISIBLE | GBC_VIDEOMEM));
/*
** Check that we really got a video memory page. Failure is fatal.
*/
memset (&surface_capabilities, 0, sizeof(surface_capabilities));
VisiblePage.Get_DD_Surface()->GetCaps(&surface_capabilities);
if (surface_capabilities.dwCaps & DDSCAPS_SYSTEMMEMORY) {
/*
** Aaaarrgghh!
*/
WWDebugString(TEXT_DDRAW_ERROR);WWDebugString("\n");
MessageBox(MainWindow, TEXT_DDRAW_ERROR, TEXT_SHORT_TITLE, MB_ICONEXCLAMATION|MB_OK);
if (WindowsTimer) delete WindowsTimer;
return (EXIT_FAILURE);
}
/*
** If we have enough left then put the hidpage in video memory unless...
**
** If there is no blitter then we will get better performance with a system
** memory hidpage
**
** Use a system memory page if the user has specified it via the ccsetup program.
*/
unsigned video_memory = Get_Free_Video_Memory();
unsigned video_capabilities = Get_Video_Hardware_Capabilities();
if (video_memory < (unsigned int)(ScreenWidth*ScreenHeight) ||
(! (video_capabilities & VIDEO_BLITTER)) ||
(video_capabilities & VIDEO_NO_HARDWARE_ASSIST) ||
!VideoBackBufferAllowed) {
HiddenPage.Init (ScreenWidth , ScreenHeight , NULL , 0 , (GBC_Enum)0);
} else {
//HiddenPage.Init (ScreenWidth , ScreenHeight , NULL , 0 , (GBC_Enum)0);
HiddenPage.Init (ScreenWidth , ScreenHeight , NULL , 0 , (GBC_Enum)GBC_VIDEOMEM);
/*
** Make sure we really got a video memory hid page. If we didnt then things
** will run very slowly.
*/
memset (&surface_capabilities, 0, sizeof(surface_capabilities));
HiddenPage.Get_DD_Surface()->GetCaps(&surface_capabilities);
if (surface_capabilities.dwCaps & DDSCAPS_SYSTEMMEMORY) {
/*
** Oh dear, big trub. This must be an IBM Aptiva or something similarly cruddy.
** We must redo the Hidden Page as system memory.
*/
AllSurfaces.Remove_DD_Surface(HiddenPage.Get_DD_Surface()); // Remove the old surface from the AllSurfaces list
HiddenPage.Get_DD_Surface()->Release();
HiddenPage.Init (ScreenWidth , ScreenHeight , NULL , 0 , (GBC_Enum)0);
} else {
VisiblePage.Attach_DD_Surface(&HiddenPage);
}
}
#endif
}
ScreenHeight = 3072;
if (VisiblePage.Get_Height() == 480) {
SeenBuff.Attach(&VisiblePage, 0, 40, 3072, 3072);
HidPage.Attach(&HiddenPage, 0, 40, 3072, 3072);
} else {
SeenBuff.Attach(&VisiblePage, 0, 0, 3072, 3072);
HidPage.Attach(&HiddenPage, 0, 0, 3072, 3072);
}
#endif // MPEGMOVIE - Denzil 6/10/98
Options.Adjust_Variables_For_Resolution();
/*
** Install the memory error handler
*/
Memory_Error = &Memory_Error_Handler;
WindowList[0][WINDOWWIDTH] = SeenBuff.Get_Width();
WindowList[0][WINDOWHEIGHT] = SeenBuff.Get_Height();
WindowList[WINDOW_EDITOR][WINDOWWIDTH] = SeenBuff.Get_Width();
WindowList[WINDOW_EDITOR][WINDOWHEIGHT]= SeenBuff.Get_Height();
////////////////////////////////////////
// The editor needs to not start the mouse up. - 7/22/2019 JAS
if (!RunningFromEditor)
{
WWMouse = new WWMouseClass(&SeenBuff, 48, 48);
MouseInstalled = TRUE;
}
//PG CDFileClass::Set_CD_Drive (CDList.Get_First_CD_Drive());
#else //WIN32
Options.Adjust_Variables_For_Resolution();
if (!Special.IsFromInstall) {
BlackPalette.Set();
// Set_Palette(Palette);
Set_Video_Mode(MCGA_MODE);
}
MouseInstalled = Install_Mouse(32, 24, 320, 200);
#endif //WIN32
/*
** See if we should run the intro
*/
INIClass ini;
ini.Load(cfile);
/*
** Check for forced intro movie run disabling. If the conquer
** configuration file says "no", then don't run the intro.
** Don't do this for TEN & MPath.
*/
if (!Special.IsFromInstall && Session.Type != GAME_TEN &&
Session.Type != GAME_MPATH) {
Special.IsFromInstall = ini.Get_Bool("Intro", "PlayIntro", true);
}
SlowPalette = ini.Get_Bool("Options", "SlowPalette", false);
/*
** Regardless of whether we should run it or not, here we're
** gonna change it to say "no" in the future.
*/
if (Special.IsFromInstall) {
BreakoutAllowed = true;
// BreakoutAllowed = false;
ini.Put_Bool("Intro", "PlayIntro", false);
ini.Save(cfile);
}
#ifndef WOLAPI_INTEGRATION
#ifdef WIN32
/*
** If WChat has been trying to send us a game start packet then receive it and
** flag that we were spawned from WCHat so we dont play the into movie.
*/
if (DDEServer.Get_MPlayer_Game_Info()){
Check_From_WChat(NULL);
}else{
//Check_From_WChat("C&CSPAWN.INI");
//if (Special.IsFromWChat){
// DDEServer.Disable();
//}
}
#endif //WIN32
#endif
/*
** If the intro is being run for the first time, then don't
** allow breaking out of it with the <ESC> key.
*/
if (Special.IsFromInstall) {
BreakoutAllowed = true;
// BreakoutAllowed = false;
}
Memory_Error_Exit = Print_Error_End_Exit;
Main_Game(argc, argv);
if (RunningAsDLL) { //PG
return (EXIT_SUCCESS);
}
#ifdef MPEGMOVIE // Denzil 6/15/98
if (MpgSettings != NULL)
delete MpgSettings;
#ifdef MCIMPEG
if (MciMovie != NULL)
delete MciMovie;
#endif
#endif
#ifdef WIN32
VisiblePage.Clear();
HiddenPage.Clear();
#else //WIN32
SeenPage.Clear();
Set_Video_Mode(RESET_MODE);
#endif //WIN32
Memory_Error_Exit = Print_Error_Exit;
#ifdef WIN32
/*
** Flag that this is a clean shutdown (not killed with Ctrl-Alt-Del)
*/
ReadyToQuit = 1;
/*
** Post a message to our message handler to tell it to clean up.
*/
PostMessage(MainWindow, WM_DESTROY, 0, 0);
/*
** Wait until the message handler has dealt with the message
*/
do
{
Keyboard->Check();
}while (ReadyToQuit == 1);
return (EXIT_SUCCESS);
#else //WIN32
Remove_Mouse();
Sound_End();
#endif //WIN32
} else {
if (!RunningFromEditor)
{
puts(TEXT_SETUP_FIRST);
Keyboard->Get();
}
}
#ifdef WIN32
if (WindowsTimer) {
delete WindowsTimer;
WindowsTimer = NULL;
}
#else //WIN32
Remove_Keyboard_Interrupt();
Remove_Timer_System();
#endif //WIN32
}
/*
** Restore the current drive and directory.
*/
#ifndef WIN32
_dos_setdrive(olddrive, &drivecount);
chdir(oldpath);
#endif //WIN32
return(EXIT_SUCCESS);
}
/* Initialize DirectDraw and surfaces */
bool InitDDraw(void)
{
VisiblePage.Init(ScreenWidth, ScreenHeight, NULL, 0, (GBC_Enum)(GBC_VISIBLE | GBC_VIDEOMEM));
HiddenPage.Init(ScreenWidth, ScreenHeight, NULL, 0, (GBC_Enum)GBC_VIDEOMEM);
VisiblePage.Attach_DD_Surface(&HiddenPage);
SeenBuff.Attach(&VisiblePage, 0, 0, 3072, 3072);
HidPage.Attach(&HiddenPage, 0, 0, 3072, 3072);
#if (0)//PG
DDSCAPS surface_capabilities;
BOOL video_success = FALSE;
/* Set 640x400 video mode. If its not available then try for 640x480 */
if (ScreenHeight == 400)
{
if (Set_Video_Mode(MainWindow, ScreenWidth, ScreenHeight, 8))
{
video_success = TRUE;
}
else
{
if (Set_Video_Mode(MainWindow, ScreenWidth, 480, 8))
{
video_success = TRUE;
ScreenHeight = 480;
}
}
}
else
{
if (Set_Video_Mode(MainWindow, ScreenWidth, ScreenHeight, 8))
{
video_success = TRUE;
}
}
if (!video_success)
{
MessageBox(MainWindow, TEXT_VIDEO_ERROR, TEXT_SHORT_TITLE, MB_ICONEXCLAMATION|MB_OK);
if (WindowsTimer)
delete WindowsTimer;
return false;
}
if (ScreenWidth == 320)
{
VisiblePage.Init(ScreenWidth, ScreenHeight, NULL, 0, (GBC_Enum)0);
ModeXBuff.Init(ScreenWidth, ScreenHeight, NULL, 0, (GBC_Enum)(GBC_VISIBLE|GBC_VIDEOMEM));
}
else
{
VisiblePage.Init(ScreenWidth, ScreenHeight, NULL, 0, (GBC_Enum)(GBC_VISIBLE|GBC_VIDEOMEM));
/* Check that we really got a video memory page. Failure is fatal. */
memset(&surface_capabilities, 0, sizeof(surface_capabilities));
VisiblePage.Get_DD_Surface()->GetCaps(&surface_capabilities);
if (surface_capabilities.dwCaps & DDSCAPS_SYSTEMMEMORY)
{
/* Aaaarrgghh! */
WWDebugString(TEXT_DDRAW_ERROR);WWDebugString("\n");
MessageBox(MainWindow, TEXT_DDRAW_ERROR, TEXT_SHORT_TITLE, MB_ICONEXCLAMATION|MB_OK);
if (WindowsTimer)
delete WindowsTimer;
return false;
}
/* If we have enough left then put the hidpage in video memory unless...
*
* If there is no blitter then we will get better performance with a system
* memory hidpage
*
* Use a system memory page if the user has specified it via the ccsetup program.
*/
unsigned video_memory = Get_Free_Video_Memory();
unsigned video_capabilities = Get_Video_Hardware_Capabilities();
if (video_memory < ScreenWidth * ScreenHeight
|| (!(video_capabilities & VIDEO_BLITTER))
|| (video_capabilities & VIDEO_NO_HARDWARE_ASSIST)
|| !VideoBackBufferAllowed)
{
HiddenPage.Init(ScreenWidth, ScreenHeight, NULL, 0, (GBC_Enum)0);
}
else
{
HiddenPage.Init(ScreenWidth, ScreenHeight, NULL, 0, (GBC_Enum)GBC_VIDEOMEM);
/* Make sure we really got a video memory hid page. If we didnt then things
* will run very slowly.
*/
memset(&surface_capabilities, 0, sizeof(surface_capabilities));
HiddenPage.Get_DD_Surface()->GetCaps(&surface_capabilities);
if (surface_capabilities.dwCaps & DDSCAPS_SYSTEMMEMORY)
{
/* Oh dear, big trub. This must be an IBM Aptiva or something similarly cruddy.
* We must redo the Hidden Page as system memory.
*/
AllSurfaces.Remove_DD_Surface(HiddenPage.Get_DD_Surface()); // Remove the old surface from the AllSurfaces list
HiddenPage.Get_DD_Surface()->Release();
HiddenPage.Init(ScreenWidth, ScreenHeight, NULL, 0, (GBC_Enum)0);
}
else
{
VisiblePage.Attach_DD_Surface(&HiddenPage);
}
}
}
ScreenHeight = 400;
if (VisiblePage.Get_Height() == 480)
{
SeenBuff.Attach(&VisiblePage, 0, 40, 3072, 3072);
HidPage.Attach(&HiddenPage, 0, 40, 3072, 3072);
}
else
{
SeenBuff.Attach(&VisiblePage, 0, 0, 3072, 3072);
HidPage.Attach(&HiddenPage, 0, 0, 3072, 3072);
}
#endif
return true;
}
/***********************************************************************************************
* Prog_End -- Cleans up library systems in prep for game exit. *
* *
* This routine should be called before the game terminates. It handles cleaning up *
* library systems so that a graceful return to the host operating system is achieved. *
* *
* INPUT: why - text description of exit reason *
* fatal - indicates a fatal error *
* *
* OUTPUT: none *
* *
* WARNINGS: none *
* *
* HISTORY: *
* 03/20/1995 JLB : Created. *
* 08/07/2019 ST : Added why and fatal params *
*=============================================================================================*/
#ifdef WIN32
void __cdecl Prog_End(const char *why, bool fatal)
{
GlyphX_Debug_Print("Prog_End()");
if (why) {
GlyphX_Debug_Print(why);
}
if (fatal) {
*((int*)0) = 0;
}
August 6th Patch Update Accumulated DLL source code changes since June 22nd patch
2020-08-06 17:44:54 +01:00
if (Session.Type == GAME_GLYPHX_MULTIPLAYER) {
return;
}
Initial Source Code commit Initial commit of original Tiberian Dawn and Red Alert source code converted to build as DLLs, and compatible with the release version of Command & Conquer Remastered.
2020-05-27 20:16:20 +01:00
Sound_End();
if (WWMouse) {
delete WWMouse;
WWMouse = NULL;
}
if (WindowsTimer) {
delete WindowsTimer;
WindowsTimer = NULL;
}
ProgEndCalled = true;
}
#else //WIN32
void Prog_End(void)
{
if (Session.Type == GAME_MODEM || Session.Type == GAME_NULL_MODEM) {
NullModem.Change_IRQ_Priority(0);
}
Set_Video_Mode(RESET_MODE);
Remove_Keyboard_Interrupt();
Remove_Mouse();
Sound_End();
Remove_Timer_System();
}
#endif //WIN32
void Print_Error_End_Exit(char * string)
{
Prog_End(string, true);
printf( "%s\n", string );
if (!RunningAsDLL) {
exit(1);
}
}
void Print_Error_Exit(char * string)
{
GlyphX_Debug_Print(string);
printf( "%s\n", string );
if (!RunningAsDLL) {
exit(1);
}
}
/***********************************************************************************************
* Emergency_Exit -- Function to call when we want to exit unexpectedly. *
* Use this function instead of exit(n) so everything is properly cleaned up.*
* *
* *
* INPUT: Code to return to the OS *
* *
* OUTPUT: Nothing *
* *
* WARNINGS: None *
* *
* HISTORY: *
* 3/13/97 1:32AM ST : Created *
*=============================================================================================*/
void Emergency_Exit ( int code )
{
if (RunningAsDLL) { //PG
return;
}
#ifdef WIN32
/*
** Clear out the video buffers so we dont glitch when we lose focus
*/
VisiblePage.Clear();
HiddenPage.Clear();
BlackPalette.Set();
Memory_Error_Exit = Print_Error_Exit;
/*
** Flag that this is an emergency shut down - not a clean shutdown but
** not killed with Ctrl-Alt-Del either.
*/
ReadyToQuit = 3;
/*
** Post a message to our message handler to tell it to clean up.
*/
PostMessage(MainWindow, WM_DESTROY, 0, 0);
/*
** Wait until the message handler has dealt with the message
*/
do
{
Keyboard->Check();
}while (ReadyToQuit == 3);
#else //WIN32
/*
** Do the DOS end
*/
Prog_End();
#endif //WIN32
exit ( code );
}
#ifdef WIN32
/***********************************************************************************************
* Read_Setup_Options -- Read stuff in from the INI file that we need to know sooner *
* *
* *
* *
* INPUT: Ptr to config file class *
* *
* OUTPUT: Nothing *
* *
* WARNINGS: None *
* *
* HISTORY: *
* 6/7/96 4:09PM ST : Created *
* 09/30/1996 JLB : Uses INI class. *
*=============================================================================================*/
void Read_Setup_Options( RawFileClass *config_file )
{
if (config_file->Is_Available()) {
INIClass ini;
ini.Load(*config_file);
/*
** Read in the boolean options
*/
VideoBackBufferAllowed = ini.Get_Bool("Options", "VideoBackBuffer", true);
AllowHardwareBlitFills = ini.Get_Bool("Options", "HardwareFills", true);
ScreenHeight = ini.Get_Bool("Options", "Resolution", false) ? 3072 : 3072;
/*
** See if an alternative socket number has been specified
*/
int socket = ini.Get_Int("Options", "Socket", 0);
if (socket >0 ) {
socket += 0x4000;
if (socket >= 0x4000 && socket < 0x8000) {
Ipx.Set_Socket (socket);
}
}
/*
** See if a destination network has been specified
*/
char netbuf [512];
memset(netbuf, 0, sizeof(netbuf));
char * netptr = netbuf;
bool found = ini.Get_String("Options", "DestNet", NULL, netbuf, sizeof(netbuf));
if (found && netptr != NULL && strlen(netbuf)) {
NetNumType net;
NetNodeType node;
/*
** Scan the string, pulling off each address piece
*/
int i = 0;
char * p = strtok(netbuf,".");
int x;
while (p != NULL) {
sscanf(p,"%x",&x); // convert from hex string to int
if (i < 4) {
net[i] = (char)x; // fill NetNum
} else {
node[i-4] = (char)x; // fill NetNode
}
i++;
p = strtok(NULL,".");
}
/*
** If all the address components were successfully read, fill in the
** BridgeNet with a broadcast address to the network across the bridge.
*/
if (i >= 4) {
Session.IsBridge = 1;
memset(node, 0xff, 6);
Session.BridgeNet = IPXAddressClass(net, node);
}
}
}
}
void Get_OS_Version (void)
{
//PG
//WindowsNT = ((GetVersion() & 0x80000000) == 0) ? true : false;
#if (0)
OSVERSIONINFO osversion;
if ( GetVersionEx (&osversion) ){
WindowsNT = (osversion.dwPlatformId == VER_PLATFORM_WIN32_NT) ? true : false;
OutputDebugString ("RA95 - Got OS version\n");
}else{
OutputDebugString ("RA95 - Failed to get OS version\n");
char debugstr [128];
sprintf (debugstr, "RA95 - Error code is %d\n", GetLastError());
OutputDebugString (debugstr);
}
#endif //(0)
}
#endif //WIN32