Fixes Issue 1 and set Textbackground to black by default

cbrain.pp

@@ -461,12 +461,14 @@ implementation
 			end;
 		end;
 	end;
-
-	{Update the critter's status.}
-	if NAttValue(C^.SF,NAG_StatusChange,SEF_Poison) <> 0 then begin
-		C^.HP := C^.HP - Random( 6 );
+	{Protect against the case where the creature has already died}
+	if SC^.CAct <> Nil then begin
+	    {Update the critter's status.}
+		if NAttValue(C^.SF,NAG_StatusChange,SEF_Poison) <> 0 then begin
+			C^.HP := C^.HP - Random( 6 );
+		end;
+		UpdateStatusList( C^.SF );
 	end;
-	UpdateStatusList( C^.SF );
 
 	if C^.HP < 0 then CritterDeath(SC,C,False);
 	C := SC^.CAct;

dcplay.pp

@@ -276,11 +276,7 @@ implementation
 		DCGameMessage('Game Over.');
 		GamePause;
 
-		{$ifdef WINDOWS}
-			FName := FSearch( SC^.PC^.Name + '.txt' , 'savegame\' );
-		{$else}
-			FName := FSearch( SC^.PC^.Name + '.txt' , 'savegame/' );
-		{$endif}
+		FName := FSearch( SC^.PC^.Name + '.txt' , 'savegame' + DirectorySeparator);
 		if ( FName <> '' ) and PLAY_DangerOn then begin
 			Assign(F,FName);
 			Erase(F);
@@ -327,11 +323,7 @@ implementation
 begin
 	{ Create the menu. }
 	RPM := CreateRPGMenu( LightBlue , Green , LightGreen , 20 , 8 , 60 , 23 );
-	{$ifdef WINDOWS}
-		BuildFileMenu( RPM , 'savegame\*.txt' );
-	{$else}
-		BuildFileMenu( RPM , 'savegame/*.txt' );
-	{$endif}
+	BuildFileMenu( RPM , 'savegame'+ DirectorySeparator + '*.txt' );
 
 	if RPM^.numitem < 1 then begin
 		{ No save game files were found. Jump to STARTGAME, }
@@ -349,11 +341,7 @@ implementation
 		{ main menu. Otherwise, load the file and pass the }
 		{ scenario to PLAYSCENE. }
 		if FName <> '' then begin
-			{$ifdef WINDOWS}
-				SC := LoadGame( 'savegame\' + FName );
-			{$else}
-				SC := LoadGame( 'savegame/' + FName );
-			{$endif}
+			SC := LoadGame( 'savegame' + DirectorySeparator + FName );
 			PlayScene( SC );
 		end;
 	end;

deadcold.pas

@@ -8,6 +8,7 @@
 	rpm: RPGMenuPtr;
 
 begin
+	TextBackground(Black);
 	RPM := CreateRPGMenu( LightBlue , Green , LightGreen , 20 , 8 , 60 , 23 );
 	AddRPGMenuItem( RPM , 'Start New Game' , 1 );
 	AddRPGMenuItem( RPM , 'Load Saved Game' , 2 );

gamebook.pp

@@ -354,12 +354,12 @@ implementation
 	T: Integer;
 begin
 	{Open the file.}
-	{$ifdef WINDOWS}
-		Assign(F,'savegame\' + SC^.PC^.Name + '.txt');
-	{$else}
-		Assign(F,'savegame/' + SC^.PC^.Name + '.txt');
-	{$endif}
+	Assign(F,'savegame' + DirectorySeparator + SC^.PC^.Name + '.txt');
+	{$i-}
 	ReWrite(F);
+	{$+}
+	if IOResult = 0 then
+	begin
 		{Write the savefile version first of all.}
 		writeln(F,SaveFileVersion);
 
@@ -407,8 +407,9 @@ implementation
 			end;
 		end;
 		Writeln( F , '-1' );
-	{Close the file}
-	Close(F);
+		{Close the file}
+		Close(F);
+	end;
 end;
 
 Function LoadGame( FName: String ): ScenarioPtr;