/engine/src/f_finale.c

Large files files are truncated, but you can click here to view the full file

// Emacs style mode select   -*- C++ -*-
//-----------------------------------------------------------------------------
//
// Copyright (C) 1993-1996 by id Software, Inc.
// Copyright (C) 1998-2000 by DooM Legacy Team.
//
// This program 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 2
// of the License, or (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//-----------------------------------------------------------------------------
/// \file
/// \brief Title screen, intro, game evaluation, and credits.

#include "doomdef.h"
#include "doomstat.h"
#include "am_map.h"
#include "dstrings.h"
#include "d_main.h"
#include "f_finale.h"
#include "g_game.h"
#include "hu_stuff.h"
#include "r_local.h"
#include "s_sound.h"
#include "i_video.h"
#include "v_video.h"
#include "w_wad.h"
#include "z_zone.h"
#include "i_system.h"
#include "m_menu.h"
#include "dehacked.h"
#include "g_input.h"
#include "console.h"
#include "m_random.h"
#include "y_inter.h"

credit_t credits[19];

// Stage of animation:
// 0 = text, 1 = art screen
static int finalestage;
static int finalecount;
int titlescrollspeed = 80;

static tic_t timetonext; // Delay between screen changes
static int finaletextcount;
static tic_t animtimer; // Used for some animation timings

#ifndef TMNTINTRO
static int deplete;
#endif
static tic_t stoptimer;

#define TEXTSPEED 3
#define TEXTWAIT 250

static const char *finaletext = NULL;
static boolean keypressed = false;

static patch_t *background;
#ifndef TMNTINTRO
static patch_t *currentanim;
static patch_t *nextanim;
static patch_t *first;
static patch_t *second;
static patch_t *third;
#endif

// Demo end stuff
static patch_t *desonic;
static patch_t *dehand1;
static patch_t *dehand2;
static patch_t *dehand3;
static patch_t *deblink1;
static patch_t *deblink2;

// De-Demo'd Title Screen
static patch_t *ttbanner; // white banner with "robo blast" and "2"
static patch_t *ttwing; // wing background
#ifndef TMNTMAIN // INTRO
static patch_t *ttsonic; // "SONIC"
static patch_t *ttswave1; // Title Sonics
static patch_t *ttswave2;
static patch_t *ttswip1;
static patch_t *ttsprep1;
static patch_t *ttsprep2;
static patch_t *ttspop1;
static patch_t *ttspop2;
static patch_t *ttspop3;
static patch_t *ttspop4;
static patch_t *ttspop5;
static patch_t *ttspop6;
static patch_t *ttspop7;
#endif
#ifdef HEROMODE
static patch_t *herottwing; // Teenage Mutant Hero Turtles
static patch_t *herottbanner; // Currently the same as ttbanner.
#endif

static void F_SkyScroll(void);

static boolean drawemblem = false, drawchaosemblem = false, runningprecutscene = false, precutresetplayer = false;

typedef struct
{
	USHORT frame;
	int tics;
} mouth_t;

static mouth_t *mouthframe;
static int mouthtics;

#define NUMMOUTHSTATES 530

// Talking mouth on demo end screen
static mouth_t mouthstates[NUMMOUTHSTATES] =
{
	// 1st 'finalstage'
	{2,3},
	{1,3},
	{0,4},
	{3,2},
	{1,1},
	{2,4},
	{1,2},
	{2,5},
	{1,2},
	{0,2},
	{2,3},
	{1,1},
	{2,5},
	{1,2},
	{3,6},
	{0,1},
	{1,1},
	{2,2},
	{1,1},
	{0,2},
	{3,9},
	{0,10},
	{1,1},
	{2,2},
	{1,4},
	{2,3},
	{1,3},
	{4,3},
	{2,1},
	{1,1},
	{0,3},
	{1,1},
	{2,3},
	{1,1},
	{2,3},
	{1,2},
	{0,2},
	{1,3},
	{0,3},
	{1,2},
	{3,3},
	{0,3},
	{1,1},
	{2,2},
	{0,1},
	{2,1},
	{1,2},
	{0,3},
	{1,1},
	{2,2},
	{0,5},
	{1,1},
	{4,3},
	{1,1},
	{0,3},
	{1,1},
	{3,4},
	{0,20},
	{1,1},
	{2,2},
	{1,1},
	{0,1},
	{1,4},
	{2,2},
	{1,2},
	{0,1},
	{1,3},
	{0,1},
	{2,1},
	{1,1},
	{0,2},
	{1,3},
	{0,3},
	{1,6},
	{0,1},
	{3,3},
	{0,1},
	{1,4},
	{0,1},
	{3,5},
	{0,1},
	{3,2},
	{0,2},
	{1,7},
	{0,2},
	{3,3},
	{1,1},
	{2,1},
	{4,2},
	{2,1},
	{1,1},
	{0,2},
	{1,4},
	{0,140},

	// 2nd 'finalstage'
	{0,1},
	{1,1},
	{0,1},
	{2,1},
	{1,1},
	{0,1},
	{1,2},
	{0,3},
	{1,1},
	{0,1},
	{1,1},
	{2,3},
	{1,1},
	{0,1},
	{1,2},
	{2,3},
	{1,1},
	{0,2},
	{1,3},
	{0,3},
	{3,3},
	{1,1},
	{2,1},
	{1,1},
	{0,1},
	{2,3},
	{1,1},
	{0,3},
	{1,3},
	{2,4},
	{1,1},
	{0,1},
	{1,5},
	{0,7},
	{3,2},
	{0,1},
	{1,2},
	{3,5},
	{0,1},
	{3,2},
	{0,1},
	{1,2},
	{3,4},
	{0,1},
	{1,1},
	{2,2},
	{0,1},
	{1,2},
	{3,4},
	{0,2},
	{1,1},
	{2,3},
	{1,2},
	{0,5},
	{1,3},
	{1,1},
	{2,1},
	{1,3},
	{0,2},
	{2,2},
	{1,2},
	{0,2},
	{1,3},
	{0,3},
	{3,7},
	{0,1},
	{2,2},
	{1,3},
	{0,3},
	{3,6},
	{1,3},
	{0,14},
	{3,5},
	{1,4},
	{0,3},
	{2,2},
	{1,3},
	{0,5},
	{1,1},
	{2,2},
	{1,3},
	{0,140},

	// 3rd 'finalstage'
	{0,1},
	{1,1},
	{3,2},
	{1,1},
	{0,3},
	{1,1},
	{0,1},
	{2,2},
	{1,1},
	{0,1},
	{1,2},
	{0,1},
	{1,1},
	{2,4},
	{1,1},
	{0,1},
	{2,3},
	{1,1},
	{2,2},
	{1,1},
	{2,3},
	{1,2},
	{0,3},
	{1,2},
	{0,2},
	{2,2},
	{1,1},
	{0,1},
	{1,3},
	{0,2},
	{1,2},
	{0,1},
	{1,1},
	{2,2},
	{1,1},
	{0,1},
	{1,5},
	{0,28},
	{2,3},
	{1,2},
	{3,4},
	{2,1},
	{1,2},
	{0,1},
	{2,4},
	{1,1},
	{0,3},
	{3,4},
	{1,1},
	{0,3},
	{1,1},
	{4,4},
	{1,2},
	{0,3},
	{1,1},
	{3,6},
	{1,5},
	{2,2},
	{0,2},
	{1,6},
	{0,14},
	{1,1},
	{2,2},
	{1,1},
	{2,2},
	{0,3},
	{1,6},
	{0,7},
	{1,1},
	{2,4},
	{1,1},
	{0,3},
	{4,4},
	{7,7},
	{1,5},
	{0,140},

	// 4th 'finalstage'
	{0,2},
	{1,5},
	{4,3},
	{1,1},
	{0,3},
	{2,3},
	{1,2},
	{0,1},
	{1,2},
	{0,2},
	{1,1},
	{3,3},
	{1,1},
	{0,2},
	{1,3},
	{0,2},
	{2,2},
	{1,2},
	{0,2},
	{1,4},
	{0,2},
	{3,6},
	{0,2},
	{1,2},
	{2,3},
	{1,2},
	{0,2},
	{1,1},
	{3,8},
	{0,25},
	{1,2},
	{0,2},
	{1,2},
	{2,3},
	{1,2},
	{0,2},
	{1,4},
	{0,2},
	{1,1},
	{2,5},
	{1,1},
	{2,6},
	{1,3},
	{0,2},
	{1,7},
	{0,8},
	{1,1},
	{2,2},
	{1,1},
	{0,1},
	{1,2},
	{0,1},
	{2,3},
	{1,3},
	{0,2},
	{3,4},
	{1,2},
	{0,2},
	{1,2},
	{2,3},
	{1,1},
	{0,2},
	{3,1},
	{2,2},
	{1,3},
	{0,4},
	{1,1},
	{2,2},
	{1,2},
	{0,3},
	{1,1},
	{2,1},
	{1,1},
	{0,1},
	{1,2},
	{0,2},
	{3,2},
	{0,3},
	{1,2},
	{2,4},
	{1,1},
	{2,1},
	{1,1},
	{0,2},
	{1,1},
	{2,2},
	{1,1},
	{0,4},
	{1,1},
	{2,2},
	{1,2},
	{0,2},
	{3,3},
	{1,3},
	{0,240},

	// 5th 'finalstage'
	{0,1},
	{1,1},
	{2,6},
	{1,4},
	{0,11},
	{2,1},
	{4,2},
	{2,1},
	{1,1},
	{3,4},
	{0,3},
	{1,2},
	{0,1},
	{1,3},
	{0,1},
	{1,3},
	{2,2},
	{1,2},
	{0,2},
	{1,1},
	{2,2},
	{1,2},
	{0,3},
	{3,3},
	{1,2},
	{0,2},
	{1,1},
	{2,4},
	{1,1},
	{0,1},
	{1,2},
	{0,1},
	{1,2},
	{0,3},
	{1,6},
	{0,19},
	{1,2},
	{0,2},
	{3,4},
	{1,1},
	{2,3},
	{0,2},
	{1,1},
	{0,1},
	{1,1},
	{2,3},
	{1,1},
	{0,1},
	{1,4},
	{0,1},
	{1,5},
	{0,16},
	{1,1},
	{2,3},
	{1,1},
	{0,2},
	{1,1},
	{2,2},
	{1,1},
	{0,1},
	{1,2},
	{0,1},
	{1,1},
	{2,1},
	{1,2},
	{2,1},
	{1,1},
	{0,2},
	{1,1},
	{2,1},
	{1,1},
	{0,2},
	{1,3},
	{0,4},
	{1,1},
	{2,3},
	{1,1},
	{0,3},
	{1,3},
	{0,3},
	{2,4},
	{1,3},
	{0,3},
	{2,1},
	{4,1},
	{2,1},
	{1,1},
	{0,1},
	{1,2},
	{0,3},
	{1,2},
	{2,2},
	{4,6},
	{2,1},
	{1,1},
	{0,2},
	{1,4},
	{0,4},
	{1,2},
	{0,2},
	{1,2},
	{0,1},
	{2,2},
	{1,1},
	{0,2},
	{1,2},
	{2,3},
	{1,1},
	{0,1},
	{1,2},
	{0,1},
	{2,3},
	{1,1},
	{0,1},
	{1,5},
	{0,4},
	{1,4},
	{0,20},
	{1,1},
	{2,2},
	{1,1},
	{0,2},
	{3,3},
	{1,2},
	{0,2},
	{1,1},
	{2,2},
	{1,1},
	{2,4},
	{1,1},
	{0,2},
	{3,6},
	{1,1},
	{0,3},
	{1,2},
	{2,2},
	{1,1},
	{2,3},
	{1,2},
	{0,2},
	{1,2},
	{0,1},
	{2,3},
	{1,2},
	{0,1},
	{1,3},
	{2,5},
	{1,2},
	{0,3},
	{1,5},
	{0,420},
};

// De-Demo'd Title Screen
void F_StartTitleScreen(void)
{
	G_SetGamestate(GS_TITLESCREEN);
	CON_ClearHUD();

#ifdef CHEATEDGAME // when you are at the title screen cheats from last game don't matter.
	cheatedgame = false;
#endif

	// IWAD dependent stuff.

	S_ChangeMusic(mus_titles, looptitle);

	finalecount = 0;
	finalestage = 0;
	animtimer = 0;

	ttbanner = W_CachePatchName("TTBANNER", PU_LEVEL);
	ttwing = W_CachePatchName("TTWING", PU_LEVEL);
#ifndef TMNTMAIN // INTRO
	ttsonic = W_CachePatchName("TTSONIC", PU_LEVEL);
	ttswave1 = W_CachePatchName("TTSWAVE1", PU_LEVEL);
	ttswave2 = W_CachePatchName("TTSWAVE2", PU_LEVEL);
	ttswip1 = W_CachePatchName("TTSWIP1", PU_LEVEL);
	ttsprep1 = W_CachePatchName("TTSPREP1", PU_LEVEL);
	ttsprep2 = W_CachePatchName("TTSPREP2", PU_LEVEL);
	ttspop1 = W_CachePatchName("TTSPOP1", PU_LEVEL);
	ttspop2 = W_CachePatchName("TTSPOP2", PU_LEVEL);
	ttspop3 = W_CachePatchName("TTSPOP3", PU_LEVEL);
	ttspop4 = W_CachePatchName("TTSPOP4", PU_LEVEL);
	ttspop5 = W_CachePatchName("TTSPOP5", PU_LEVEL);
	ttspop6 = W_CachePatchName("TTSPOP6", PU_LEVEL);
	ttspop7 = W_CachePatchName("TTSPOP7", PU_LEVEL);
#endif
#ifdef HEROMODE
	herottbanner = W_CachePatchName("HEROBANR", PU_LEVEL);
	herottwing = W_CachePatchName("HEROWING", PU_LEVEL);
#endif
}

// Demo end thingy
void F_StartDemoEnd(void)
{
	size_t i;

	if (modifiedgame
#if 0 //#ifdef CHEATEDGAME
		|| cheatedgame
#endif
		)
		D_StartTitle();

	G_SetGamestate(GS_DEMOEND);

	gameaction = ga_nothing;
	playerdeadview = false;
	paused = false;
	CON_ToggleOff();
	CON_ClearHUD();
	S_StopMusic();

	finalestage = 1;
	finalecount = 0;
	timetonext = 8*TICRATE;

	// Patch the animation array to keep in-sync if the framerate has been changed.
	for (i = 0; i < NUMMOUTHSTATES; i++)
		mouthstates[i].tics *= NEWTICRATERATIO;

	mouthframe = &mouthstates[0];
	mouthtics = mouthframe->tics;

	// load all the graphics
	desonic = W_CachePatchName("SONCDEND", PU_CACHE);
	dehand1 = W_CachePatchName("DEHAND1", PU_CACHE);
	dehand2 = W_CachePatchName("DEHAND2", PU_CACHE);
	dehand3 = W_CachePatchName("DEHAND3", PU_CACHE);
	deblink1 = W_CachePatchName("DEBLINK1", PU_CACHE);
	deblink2 = W_CachePatchName("DEBLINK2", PU_CACHE);
}

void F_StartGameEvaluation(void)
{
	G_SetGamestate(GS_EVALUATION);

	gameaction = ga_nothing;
	playerdeadview = false;
	paused = false;
	CON_ToggleOff();
	CON_ClearHUD();

#ifndef NOEMERALDS
	if (ALL7EMERALDS)
		animtimer = 64;
#endif

	finalecount = 0;
}

void F_StartCredits(void)
{
	size_t i = 0;

	if (creditscutscene)
	{
		F_StartCustomCutscene(creditscutscene - 1, false, false);
		return;
	}

	G_SetGamestate(GS_CREDITS);

	gameaction = ga_nothing;
	playerdeadview = false;
	paused = false;
	CON_ToggleOff();
	CON_ClearHUD();
	S_StopMusic();
	S_ChangeMusic(mus_credit, false);
	finalecount = 0;
	animtimer = 0;

	// "Modification By" - see dehacked.c
	if (modcredits)
		timetonext = 165*NEWTICRATERATIO;
	else
		timetonext = 5*TICRATE-1;

	// Initalize the credits table
	strcpy(credits[i].header, "Sonic Team Junior\n");
	strcpy(credits[i].fakenames[0], "Staff\n");
	strcpy(credits[i].realnames[0], "Staff\n");
	credits[i].numnames = 1;
	i++;
	strcpy(credits[i].header, "Producer\n");
	strcpy(credits[i].fakenames[0], "SSNTails\n");
	strcpy(credits[i].realnames[0], "Art Freda\n");
	strcpy(credits[i].fakenames[1], "\n");
	strcpy(credits[i].realnames[1], "\n");
	strcpy(credits[i].fakenames[2], "Director\n");
	strcpy(credits[i].realnames[2], "Director\n");
	strcpy(credits[i].fakenames[3], "Sonikku\n");
	strcpy(credits[i].realnames[3], "Johnny Wallbank\n");
	credits[i].numnames = 4;
	i++;
	strcpy(credits[i].header, "Game Designers\n");
	strcpy(credits[i].fakenames[0], "Sonikku\n");
	strcpy(credits[i].fakenames[1], "SSNTails\n");
	strcpy(credits[i].fakenames[2], "Mystic\n");
	strcpy(credits[i].realnames[0], "Johnny Wallbank\n");
	strcpy(credits[i].realnames[1], "Art Freda\n");
	strcpy(credits[i].realnames[2], "Ben Geyer\n");
	credits[i].numnames = 3;
	i++;
	strcpy(credits[i].header, "Character Designers\n");
	strcpy(credits[i].fakenames[0], "Sonikku\n");
	strcpy(credits[i].fakenames[1], "Instant Sonic\n");
	strcpy(credits[i].realnames[0], "Johnny Wallbank\n");
	strcpy(credits[i].realnames[1], "David Spencer Jr\n");
	credits[i].numnames = 2;
	i++;
	strcpy(credits[i].header, "Visual Design\n");
	strcpy(credits[i].fakenames[0], "SSNTails\n");
	strcpy(credits[i].realnames[0], "Art Freda\n");
	credits[i].numnames = 1;
	i++;
	strcpy(credits[i].header, "Landscape Design\n");
	strcpy(credits[i].fakenames[0], "Sonikku\n");
	strcpy(credits[i].realnames[0], "Johnny Wallbank\n");
	credits[i].numnames = 1;
	i++;
	strcpy(credits[i].header, "Chief Programmer\n");
	strcpy(credits[i].fakenames[0], "SSNTails\n");
	strcpy(credits[i].realnames[0], "Art Freda\n");
	credits[i].numnames = 1;
	i++;
	strcpy(credits[i].header, "Programmers\n");
	strcpy(credits[i].fakenames[0], "Alam_GBC\n");
	strcpy(credits[i].fakenames[1], "Graue\n");
	strcpy(credits[i].fakenames[2], "Orospakr\n");
	strcpy(credits[i].fakenames[3], "Jason the Echidna\n");
	strcpy(credits[i].realnames[0], "Alam Arias\n");
	strcpy(credits[i].realnames[1], "Scott Feeney\n");
	strcpy(credits[i].realnames[2], "Andrew Clunis\n");
	strcpy(credits[i].realnames[3], "John J. Muniz\n");
#if defined SRB2ZTM || defined TMNTCREDITS // Turtle Man: My game mod so I'm in the credits...
	strcpy(credits[i].fakenames[4], "ZTurtleMan\n");
	strcpy(credits[i].realnames[4], "Zack Middleton\n");
	credits[i].numnames = 5;
#else
	credits[i].numnames = 4;
#endif
	i++;
	strcpy(credits[i].header, "Coding Assistants\n");
	strcpy(credits[i].fakenames[0], "StroggOnMeth\n");
	strcpy(credits[i].fakenames[1], "Cyan Helkaraxe\n");
	strcpy(credits[i].fakenames[2], "Logan_GBA\n");
	strcpy(credits[i].fakenames[3], "Shuffle\n");
	strcpy(credits[i].fakenames[4], "Oogaland\n");
	strcpy(credits[i].realnames[0], "Steven McGranahan\n");
	strcpy(credits[i].realnames[1], "Cyan Helkaraxe\n");
	strcpy(credits[i].realnames[2], "Logan Arias\n");
	strcpy(credits[i].realnames[3], "Matt Marsalko\n");
	strcpy(credits[i].realnames[4], "Gregor Dick\n");
	credits[i].numnames = 5;
	i++;
	strcpy(credits[i].header, "Multiplayer Levels\n");
	strcpy(credits[i].fakenames[0], "Mystic\n");
	strcpy(credits[i].fakenames[1], "SSNTails\n");
	strcpy(credits[i].fakenames[2], "Digiku\n");
	strcpy(credits[i].fakenames[3], "Furious Fox\n");
	strcpy(credits[i].fakenames[4], "Neo Chaotikal\n");
	strcpy(credits[i].fakenames[5], "Some Guy\n");
	strcpy(credits[i].realnames[0], "Ben Geyer\n");
	strcpy(credits[i].realnames[1], "Art Freda\n");
	strcpy(credits[i].realnames[2], "Marco Zafra\n");
	strcpy(credits[i].realnames[3], "Hank Brannock\n");
	strcpy(credits[i].realnames[4], "Fred Bronze\n");
	strcpy(credits[i].realnames[5], "Anonymous\n");
#ifdef TMNTCREDITS
	strcpy(credits[i].fakenames[6], "ZTurtleMan\n");
	strcpy(credits[i].realnames[6], "Zack Middleton\n");
	credits[i].numnames = 7;
#else
	credits[i].numnames = 6;
#endif
	i++;
	strcpy(credits[i].header, "Texture Artists\n");
	strcpy(credits[i].fakenames[0], "KinkaJoy\n");
	strcpy(credits[i].fakenames[1], "SSNTails\n");
	strcpy(credits[i].fakenames[2], "Blaze Hedgehog\n");
	strcpy(credits[i].realnames[0], "Buddy Fischer\n");
	strcpy(credits[i].realnames[1], "Art Freda\n");
	strcpy(credits[i].realnames[2], "Ryan Bloom\n");
#ifdef TMNTCREDITS
	strcpy(credits[i].fakenames[3], "ZTurtleMan\n");
	strcpy(credits[i].realnames[3], "Zack Middleton\n");
	credits[i].numnames = 4;
#else
	credits[i].numnames = 3;
#endif
	i++;
	strcpy(credits[i].header, "Music Production\n");
	strcpy(credits[i].fakenames[0], "Bulmybag\n");
	strcpy(credits[i].fakenames[1], "Arrow\n");
	strcpy(credits[i].fakenames[2], "Stuf\n");
	strcpy(credits[i].fakenames[3], "SSNTails\n");
	strcpy(credits[i].fakenames[4], "Cyan Helkaraxe\n");
	strcpy(credits[i].fakenames[5], "Red XVI\n");
	strcpy(credits[i].realnames[0], "David Bulmer\n");
	strcpy(credits[i].realnames[1], "Jarel Jones\n");
	strcpy(credits[i].realnames[2], "Stefan Rimalia\n");
	strcpy(credits[i].realnames[3], "Art Freda\n");
	strcpy(credits[i].realnames[4], "Cyan Helkaraxe\n");
	strcpy(credits[i].realnames[5], "Malcolm Brown\n");
	credits[i].numnames = 6;
	i++;
	strcpy(credits[i].header, "Lead Guitar\n");
	strcpy(credits[i].fakenames[0], "Big Wave Dave\n");
	strcpy(credits[i].realnames[0], "David Spencer Sr\n");
	credits[i].numnames = 1;
	i++;
	strcpy(credits[i].header, "Sound Effects\n");
	strcpy(credits[i].fakenames[0], "Sega\n");
	strcpy(credits[i].fakenames[1], "Instant Sonic\n");
	strcpy(credits[i].fakenames[2], "Various Sources\n");
	strcpy(credits[i].realnames[0], "Sega\n");
	strcpy(credits[i].realnames[1], "David Spencer Jr\n");
	strcpy(credits[i].realnames[2], "Various Sources\n");
	credits[i].numnames = 3;
	i++;
	strcpy(credits[i].header, "Official Mascot\n");
	strcpy(credits[i].fakenames[0], "Mr Encyclopedia\n");
	strcpy(credits[i].realnames[0], "Jason Butz\n");
	credits[i].numnames = 1;
	i++;
	strcpy(credits[i].header, "Beta Testing\n");
	strcpy(credits[i].fakenames[0], "Tets\n");
	strcpy(credits[i].fakenames[1], "Mystic\n");
	strcpy(credits[i].fakenames[2], "Digiku\n");
	strcpy(credits[i].fakenames[3], "Omega Hedgehog\n");
	strcpy(credits[i].fakenames[4], "Furious Fox\n");
	strcpy(credits[i].fakenames[5], "Sonict\n");
	strcpy(credits[i].realnames[0], "Bill Reed\n");
	strcpy(credits[i].realnames[1], "Ben Geyer\n");
	strcpy(credits[i].realnames[2], "Marco Zafra\n");
	strcpy(credits[i].realnames[3], "Mike Meredith\n");
	strcpy(credits[i].realnames[4], "Hank Brannock\n");
	strcpy(credits[i].realnames[5], "Colin Pfaff\n");
	credits[i].numnames = 6;
	i++;
	strcpy(credits[i].header, "Special Thanks\n");
#ifdef TMNTCREDITS
	strcpy(credits[i].realnames[0], "Sonic Team Junior\n");
	strcpy(credits[i].fakenames[1], "Doom Legacy Project\n");
	strcpy(credits[i].fakenames[2], "iD Software\n");
	strcpy(credits[i].fakenames[3], "Dave Perry\n");
	strcpy(credits[i].fakenames[4], "MistaED\n");
	strcpy(credits[i].realnames[0], "Sonic Team Junior\n");
	strcpy(credits[i].realnames[1], "Doom Legacy Project\n");
	strcpy(credits[i].realnames[2], "iD Software\n");
	strcpy(credits[i].realnames[3], "Dave Perry\n");
	strcpy(credits[i].realnames[4], "Alex Fuller\n");
	credits[i].numnames = 5;
#else
	strcpy(credits[i].fakenames[0], "Doom Legacy Project\n");
	strcpy(credits[i].fakenames[1], "iD Software\n");
	strcpy(credits[i].fakenames[2], "Dave Perry\n");
	strcpy(credits[i].fakenames[3], "MistaED\n");
	strcpy(credits[i].realnames[0], "Doom Legacy Project\n");
	strcpy(credits[i].realnames[1], "iD Software\n");
	strcpy(credits[i].realnames[2], "Dave Perry\n");
	strcpy(credits[i].realnames[3], "Alex Fuller\n");
	credits[i].numnames = 4;
#endif
	i++;
	strcpy(credits[i].header, "In Fond Memory Of\n");
#ifdef TMNTCREDITS // Umm... I think that the 'In Fond Memory Of' page should be removed...
	strcpy(credits[i].fakenames[0], "Peter Laird\n");
	strcpy(credits[i].fakenames[1], "Kevin Eastman\n");
	strcpy(credits[i].fakenames[2], "\n");
	strcpy(credits[i].fakenames[3], "\n");
	strcpy(credits[i].realnames[0], "Peter Laird\n");
	strcpy(credits[i].realnames[1], "Kevin Eastman\n");
	strcpy(credits[i].realnames[2], "\n");
	strcpy(credits[i].realnames[3], "\n");
#else
	strcpy(credits[i].fakenames[0], "Naoto Oshima\n");
	strcpy(credits[i].fakenames[1], "Howard Drossin\n");
	strcpy(credits[i].fakenames[2], "\n");
	strcpy(credits[i].fakenames[3], "\n");
	strcpy(credits[i].realnames[0], "Naoto Oshima\n");
	strcpy(credits[i].realnames[1], "Howard Drossin\n");
	strcpy(credits[i].realnames[2], "\n");
	strcpy(credits[i].realnames[3], "\n");
#endif
	credits[i].numnames = 4;
	i++;
}

static int scenenum, cutnum;
static int picxpos, picypos, picnum, pictime;
static int textxpos, textypos;

void F_StartCustomCutscene(int cutscenenum, boolean precutscene, boolean resetplayer)
{
	G_SetGamestate(GS_CUTSCENE);

	gameaction = ga_nothing;
	playerdeadview = false;
	paused = false;
	CON_ToggleOff();
	finaletext = cutscenes[cutscenenum].scene[0].text;

	CON_ClearHUD();

	runningprecutscene = precutscene;

	if (runningprecutscene)
		precutresetplayer = resetplayer;

	scenenum = picnum = 0;
	cutnum = cutscenenum;
	picxpos = cutscenes[cutnum].scene[0].xcoord[0];
	picypos = cutscenes[cutnum].scene[0].ycoord[0];
	textxpos = cutscenes[cutnum].scene[0].textxpos;
	textypos = cutscenes[cutnum].scene[0].textypos;

	pictime = cutscenes[cutnum].scene[0].picduration[0];

	keypressed = false;
	finalestage = 0;
	finalecount = 0;
	finaletextcount = 0;
	timetonext = 0;
	animtimer = cutscenes[cutnum].scene[0].picduration[0]; // Picture duration
	stoptimer = 0;
	mouthtics = BASEVIDWIDTH - 64; // Crap.. I forgot what this is for! I'd better not touch it...

	if (cutscenes[cutnum].scene[scenenum].musicslot != 0)
		S_ChangeMusic(cutscenes[cutnum].scene[scenenum].musicslot, cutscenes[cutnum].scene[scenenum].musicloop);
}

static void F_IntroTextWrite(void);
// Introduction
void F_StartIntro(void)
{
	if (introtoplay)
	{
		F_StartCustomCutscene(introtoplay - 1, false, false);
		return;
	}

	G_SetGamestate(GS_INTRO);
	gameaction = ga_nothing;
	playerdeadview = false;
	paused = false;
	CON_ToggleOff();
	CON_ClearHUD();
	finaletext = INTRO01TEXT;

	finalestage = finaletextcount = finalecount = timetonext = animtimer = stoptimer = 0;
	mouthtics = BASEVIDWIDTH - 64;
}

// Intro
boolean F_IntroResponder(event_t *event)
{
	int key = event->data1;

	// remap virtual keys (mouse & joystick buttons)
	switch (key)
	{
		case KEY_MOUSE1:
			key = KEY_ENTER;
			break;
		case KEY_MOUSE1 + 1:
			key = KEY_BACKSPACE;
			break;
		case KEY_JOY1:
		case KEY_JOY1 + 2:
			key = KEY_ENTER;
			break;
		case KEY_JOY1 + 3:
			key = 'n';
			break;
		case KEY_JOY1 + 1:
			key = KEY_BACKSPACE;
			break;
		case KEY_HAT1:
			key = KEY_UPARROW;
			break;
		case KEY_HAT1 + 1:
			key = KEY_DOWNARROW;
			break;
		case KEY_HAT1 + 2:
			key = KEY_LEFTARROW;
			break;
		case KEY_HAT1 + 3:
			key = KEY_RIGHTARROW;
			break;
	}

	if (event->type != ev_keydown && key != 301)
		return false;

	if (key != 27 && key != KEY_ENTER && key != KEY_SPACE && key != KEY_BACKSPACE)
		return false;

	if (keypressed)
		return false;

	keypressed = true;
	return true;
}

boolean F_CutsceneResponder(event_t *event)
{
	if (cutnum == introtoplay-1)
		return F_IntroResponder(event);

	return false;
}

boolean F_CreditResponder(event_t *event)
{
	int key = event->data1;

	// remap virtual keys (mouse & joystick buttons)
	switch (key)
	{
		case KEY_MOUSE1:
			key = KEY_ENTER;
			break;
		case KEY_MOUSE1 + 1:
			key = KEY_BACKSPACE;
			break;
		case KEY_JOY1:
		case KEY_JOY1 + 2:
			key = KEY_ENTER;
			break;
		case KEY_JOY1 + 3:
			key = 'n';
			break;
		case KEY_JOY1 + 1:
			key = KEY_BACKSPACE;
			break;
		case KEY_HAT1:
			key = KEY_UPARROW;
			break;
		case KEY_HAT1 + 1:
			key = KEY_DOWNARROW;
			break;
		case KEY_HAT1 + 2:
			key = KEY_LEFTARROW;
			break;
		case KEY_HAT1 + 3:
			key = KEY_RIGHTARROW;
			break;
	}

	if (!(grade & 1))
		return false;

	if (event->type != ev_keydown)
		return false;

	if (key != 27 && key != KEY_ENTER && key != KEY_SPACE && key != KEY_BACKSPACE)
		return false;

	if (keypressed)
		return true;

	keypressed = true;
	return true;
}

// De-Demo'd Title Screen
void F_TitleScreenTicker(void)
{
	finalecount++;
	finalestage += 8;
}

// Demo end thingy
//
// F_DemoEndTicker
//
void F_DemoEndTicker(void)
{
	if (timetonext > 0)
		timetonext--;
	else // Switch finalestages
	{
		finalestage++;
		switch (finalestage)
		{
			case 2:
				finalecount = 0;
				timetonext = 7*TICRATE;
				mouthframe++;
				mouthtics = mouthframe->tics;
				S_StartSound(NULL, sfx_annon2);
				break;
			case 3:
				finalecount = 0;
				timetonext = 7*TICRATE;
				mouthframe++;
				mouthtics = mouthframe->tics;
				S_StartSound(NULL, sfx_annon3);
				break;
			case 4:
				finalecount = 0;
				timetonext = (9*TICRATE);
				mouthframe++;
				mouthtics = mouthframe->tics;
				S_StartSound(NULL, sfx_annon4);
				break;
			case 5:
				finalecount = 0;
				timetonext = 11*TICRATE;
				mouthframe++;
				mouthtics = mouthframe->tics;
				S_StartSound(NULL, sfx_annon5);
				break;
			case 6:
				finalecount = 0;
				timetonext = 5*TICRATE;
				break;
			case 7:
				D_StartTitle();
				break;
			default:
				break;
		}
	}
}

void F_GameEvaluationTicker(void)
{
	finalecount++;

	if (finalecount > 10*TICRATE)
		F_StartDemoEnd();
}

void F_CreditTicker(void)
{
	finalecount++;

	if (finalecount > 90*TICRATE)
		F_StartGameEvaluation();
}

//
// F_IntroTicker
//
void F_IntroTicker(void)
{
	// advance animation
	finalecount++;
	finaletextcount++;

	if (finalecount % 3 == 0)
		mouthtics--;

	// check for skipping
	if (keypressed)
	{
		keypressed = false;
		finaletextcount += 64;
		if (timetonext)
			timetonext = 2;
	}
}

void F_CutsceneTicker(void)
{
	int i;

	// advance animation
	finalecount++;
	finaletextcount++;

	for (i = 0; i < MAXPLAYERS; i++)
	{
		if (netgame && i != serverplayer && i != adminplayer)
			continue;

		if (players[i].cmd.buttons & BT_USE)
		{
			keypressed = false;
			finaletextcount += 64;
			if (timetonext)
				timetonext = 2;
		}
	}
}

//
// F_WriteText
//
static void F_WriteText(int cx, int cy)
{
	int count, c, w, originalx = cx;
	const char *ch = finaletext; // draw some of the text onto the screen

	count = (finaletextcount - 10)/2;

	if (count < 0)
		count = 0;

	if (timetonext == 1 || !ch)
	{
		finaletextcount = 0;
		timetonext = 0;
		mouthtics = BASEVIDWIDTH - 64;
		return;
	}

	for (; count; count--)
	{
		c = *ch++;
		if (!c)
			break;

		if (c == '#')
		{
			if (!timetonext)
			{
#ifndef TMNTINTRO
				if (finaletext == INTRO16TEXT)
					timetonext = 12*TICRATE + 1;
				else
#endif
					timetonext = 5*TICRATE + 1;
			}
			break;
		}
		if (c == '\n')
		{
			cx = originalx;
			cy += 12;
			continue;
		}

		c = toupper(c) - HU_FONTSTART;
		if (c < 0 || (c >= HU_REALFONTSIZE && c != '~' - HU_FONTSTART && c != '`' - HU_FONTSTART)) /// \note font end hack
		{
			cx += 4;
			continue;
		}

		w = hu_font[c]->width;
		if (cx + w > vid.width)
			break;
		V_DrawScaledPatch(cx, cy, 0, hu_font[c]);
		cx += w;
	}
}

static void F_WriteCutsceneText(void)
{
	int count, c, w, originalx = textxpos, cx = textxpos, cy = textypos;
	const char *ch = finaletext; // draw some of the text onto the screen

	count = (finaletextcount - 10)/2;

	if (count < 0)
		count = 0;

	if (timetonext == 1 || !ch)
	{
		finaletextcount = 0;
		timetonext = 0;
		mouthtics = BASEVIDWIDTH - 64;
		return;
	}

	for (; count; count--)
	{
		c = *ch++;
		if (!c)
			break;

		if (c == '#')
		{
			if (!timetonext)
				timetonext = 5*TICRATE + 1;
			break;
		}
		if (c == '\n')
		{
			cx = originalx;
			cy += 12;
			continue;
		}

		c = toupper(c) - HU_FONTSTART;
		if (c < 0 || (c >= HU_REALFONTSIZE && c != '~' - HU_FONTSTART && c != '`' - HU_FONTSTART))
		{ /// \note font end hack
			cx += 4;
			continue;
		}

		w = hu_font[c]->width;
		if (cx + w > vid.width)
			break;
		V_DrawScaledPatch(cx, cy, 0, hu_font[c]);
		cx += w;
	}
}

//
// F_IntroTextWrite
//
static void F_IntroTextWrite(void)
{
	boolean nobg = false, highres = false;
#ifdef TMNTINTRO
	int cx = 8, cy = 192;
#else
	int cx = 8, cy = 128;
#endif

	// DRAW A FULL PIC INSTEAD OF FLAT!
	if (finaletext == INTRO01TEXT)
		nobg = true;
	else if (finaletext == INTRO02TEXT)
		background = W_CachePatchName("INTRO1", PU_CACHE);
	else if (finaletext == INTRO03TEXT)
#ifdef TMNTINTRO
		background = W_CachePatchName("INTRO2", PU_CACHE);
#else
	{
		background = W_CachePatchName("INTRO2", PU_CACHE);
		highres = true;
	}
#endif
	else if (finaletext == INTRO04TEXT)
		background = W_CachePatchName("INTRO3", PU_CACHE);
	else if (finaletext == INTRO05TEXT)
		background = W_CachePatchName("INTRO4", PU_CACHE);
	else if (finaletext == INTRO06TEXT)
#ifdef TMNTINTRO
		background = W_CachePatchName("INTRO5", PU_CACHE);
#else
	{
		background = W_CachePatchName("DRAT", PU_CACHE);
		highres = true;
	}
	else if (finaletext == INTRO07TEXT)
	{
		background = W_CachePatchName("INTRO6", PU_CACHE);
		cx = 180;
		cy = 8;
	}
	else if (finaletext == INTRO08TEXT)
		background = W_CachePatchName("SGRASS1", PU_CACHE);
	else if (finaletext == INTRO09TEXT)
	{
		background = W_CachePatchName("WATCHING", PU_CACHE);
		highres = true;
	}
	else if (finaletext == INTRO10TEXT)
	{
		background = W_CachePatchName("ZOOMING", PU_CACHE);
		highres = true;
	}
	else if (finaletext == INTRO11TEXT)
		nobg = true;
	else if (finaletext == INTRO12TEXT)
		background = W_CachePatchName("INTRO5", PU_CACHE);
	else if (finaletext == INTRO13TEXT)
	{
		background = W_CachePatchName("REVENGE", PU_CACHE);
		highres = true;
	}
	else if (finaletext == INTRO14TEXT)
	{
		nobg = true;
		cx = 8;
		cy = 8;
	}
	else if (finaletext == INTRO15TEXT)
	{
		background = W_CachePatchName("SONICDO1", PU_CACHE);
		highres = true;
		cx = 224;
		cy = 8;
	}
	else if (finaletext == INTRO16TEXT)
	{
		background = W_CachePatchName("INTRO7", PU_CACHE);
		highres = true;
	}
#endif

	V_DrawFill(0, 0, vid.width, vid.height, 0);

	if (finaletext == INTRO01TEXT)
	{
#ifdef TMNTMAIN // TMNTINTRO
#ifdef TMNTFONT
		// TODO (Turtle Man#1#): Should this be Turtle Team? Also Sonic Team Jr. may not want their name here...
		V_DrawLevelTitle(160 - (V_LevelNameWidth("SONIC TEAM JR")/2), 66, 0, "SONIC TEAM JR");
		V_DrawLevelTitle(160 - (V_LevelNameWidth("AND")/2), 80, 0, "AND");
		V_DrawLevelTitle(160 - (V_LevelNameWidth("TURTLE MAN")/2), 96, 0, "TURTLE MAN");
		V_DrawLevelTitle(160 - (V_LevelNameWidth("PRESENT")/2), 112, 0, "PRESENT");
#else
		V_DrawCreditString(160 - (V_CreditStringWidth("SONIC TEAM JR")/2), 66, 0, "SONIC TEAM JR");
		V_DrawCreditString(160 - (V_CreditStringWidth("AND")/2), 80, 0, "AND");
		V_DrawCreditString(160 - (V_CreditStringWidth("TURTLE MAN")/2), 96, 0, "TURTLE MAN");
		V_DrawCreditString(160 - (V_CreditStringWidth("PRESENT")/2), 112, 0, "PRESENT");
#endif
#else
		V_DrawCreditString(160 - (V_CreditStringWidth("SONIC TEAM JR")/2), 80, 0, "SONIC TEAM JR");
		V_DrawCreditString(160 - (V_CreditStringWidth("PRESENTS")/2), 96, 0, "PRESENTS");
#endif
	}
#ifndef TMNTINTRO
	else if (finaletext == INTRO11TEXT)
	{
		if (finaletextcount > 8*TICRATE && finaletextcount < 9*TICRATE)
		{
			if (!(finalecount & 3))
				background = W_CachePatchName("BRITEGG1", PU_CACHE);
			else
				background = W_CachePatchName("DARKEGG1", PU_CACHE);

			V_DrawScaledPatch(0, 0, 0, background);
		}
		else if (finaletextcount > 10*TICRATE && finaletextcount < 11*TICRATE)
		{
			if (!(finalecount & 3))
				background = W_CachePatchName("BRITEGG2", PU_CACHE);
			else
				background = W_CachePatchName("DARKEGG2", PU_CACHE);

			V_DrawScaledPatch(0, 0, 0, background);
		}
		else if (finaletextcount > 12*TICRATE && finaletextcount < 13*TICRATE)
		{
			if (!(finalecount & 3))
				background = W_CachePatchName("BRITEGG3", PU_CACHE);
			else
				background = W_CachePatchName("DARKEGG3", PU_CACHE);

			V_DrawScaledPatch(0, 0, 0, background);
		}
		else
		{
			F_SkyScroll();
			if (timetonext == 7)
			{
				stoptimer = finalecount;
				animtimer = finalecount % 16;
			}
			else if (timetonext > 1 && timetonext < 7)
			{
				animtimer = stoptimer;
				deplete -= 32;
			}
			else
			{
				animtimer = finalecount % 16;
				deplete = 160;
			}

			if (finalecount & 1)
			{
				V_DrawScaledPatch(deplete, 8, 0, W_CachePatchName("RUN2", PU_CACHE));
				V_DrawScaledPatch(deplete, 72, 0, W_CachePatchName("PEELOUT2", PU_CACHE));
			}
			else
			{
				V_DrawScaledPatch(deplete, 8, 0, W_CachePatchName("RUN1", PU_CACHE));
				V_DrawScaledPatch(deplete, 72, 0, W_CachePatchName("PEELOUT1", PU_CACHE));
			}
			V_DrawFill(0, 112, vid.width, (int)(vid.height - 128*vid.fdupy), 0);
		}
	}
	else if (finaletext == INTRO08TEXT && timetonext > 0 && timetonext <= 4*TICRATE
		&& finaletextcount > 0)
	{
		background = W_CachePatchName("SGRASS5", PU_CACHE);
	}
#endif

	if (!nobg)
	{
		if (highres)
			V_DrawSmallScaledPatch(0, 0, 0, background);
		else
			V_DrawScaledPatch(0, 0, 0, background);
	}

#ifndef TMNTINTRO
	if (finaletext == INTRO14TEXT)
	{
		V_DrawFill(0, 0, vid.width, vid.height, 0);
		V_DrawSmallScaledPatch(144, 0, 0, W_CachePatchName("TAILSSAD", PU_CACHE));
	}
	else if (finaletext == INTRO05TEXT) // The asteroid SPINS!
	{
		if (mouthtics >= 0)
			V_DrawScaledPatch(mouthtics, 24, 0,
				W_CachePatchName(va("ROID00%.2ld", stoptimer%35), PU_CACHE));
	}
	else if (finaletext == INTRO06TEXT)
	{
		if (stoptimer == 5*TICRATE + (TICRATE/5)*3)
		{
			if (rendermode == render_soft)
			{
				tic_t nowtime, tics, wipestart, y;
				boolean done;

				F_WriteText(cx, cy);

				F_WipeStartScreen();

				V_DrawScaledPatch(0, 0, 0, W_CachePatchName("RADAR", PU_CACHE));
				// draw some of the text onto the screen
				F_WriteText(cx, cy);

				F_WipeEndScreen(0, 0, vid.width, vid.height);

				wipestart = I_GetTime() - 1;
				y = wipestart + TICRATE; // init a timeout
				do
				{
					do
					{
						nowtime = I_GetTime();
						tics = nowtime - wipestart;
						if (!tics) I_Sleep();
					} while (!tics);
					wipestart = nowtime;
					done = F_ScreenWipe(0, 0, vid.width, vid.height, tics);
					I_OsPolling();
					I_UpdateNoBlit();
					M_Drawer(); // menu is drawn even on top of wipes
					I_FinishUpdate(); // page flip or blit buffer
				} while (!done && I_GetTime() < y);
			}
#ifdef HWRENDER
			else if (rendermode != render_none) // Delay the hardware modes as well
			{
				tic_t nowtime, tics, wipestart, y;

				wipestart = I_GetTime() - 1;
				y = wipestart + 32; // init a timeout
				do
				{
					do
					{
						nowtime = I_GetTime();
						tics = nowtime - wipestart;
						if (!tics) I_Sleep();
					} while (!tics);

					I_OsPolling();
					I_UpdateNoBlit();
					M_Drawer(); // menu is drawn even on top of wipes
//					I_FinishUpdate(); // page flip or blit buffer
				} while (I_GetTime() < y);
			}
#endif
		}
		else if (stoptimer > 5*TICRATE+(TICRATE/5)*3)
			V_DrawScaledPatch(0, 0, 0, W_CachePatchName("RADAR", PU_CACHE));
	}
	else if (finaletext == INTRO13TEXT)
	{
		if (stoptimer == 9*TICRATE)
		{
			if (rendermode == render_soft)
			{
				tic_t nowtime, tics, wipestart, y;
				boolean done;

				F_WriteText(cx, cy);

				F_WipeStartScreen();

				V_DrawSmallScaledPatch(0, 0, 0, W_CachePatchName("CONFRONT", PU_CACHE));
				// draw some of the text onto the screen
				F_WriteText(cx, cy);

				F_WipeEndScreen(0, 0, vid.width, vid.height);

				wipestart = I_GetTime() - 1;
				y = wipestart + TICRATE; // init a timeout
				do
				{
					do
					{
						nowtime = I_GetTime();
						tics = nowtime - wipestart;
						if (!tics) I_Sleep();
					} while (!tics);
					wipestart = nowtime;
					done = F_ScreenWipe(0, 0, vid.width, vid.height, tics);
					I_OsPolling();
					I_UpdateNoBlit();
					M_Drawer(); // menu is drawn even on top of wipes
					I_FinishUpdate(); // page flip or blit buffer
				} while (!done && I_GetTime() < y);
			}
#ifdef HWRENDER
			else if (rendermode != render_none) // Delay the hardware modes as well
			{
				tic_t nowtime, tics, wipestart, y;

				wipestart = I_GetTime() - 1;
				y = wipestart + 32; // init a timeout
				do
				{
					do
					{
						nowtime = I_GetTime();
						tics = nowtime - wipestart;
						if (!tics) I_Sleep();
					} while (!tics);

					I_OsPolling();
					I_UpdateNoBlit();
					M_Drawer(); // menu is drawn even on top of wipes
//					I_FinishUpdate(); // page flip or blit buffer
				} while (I_GetTime() < y);
			}
#endif
		}
		else if (stoptimer > 9*TICRATE)
			V_DrawSmallScaledPatch(0, 0, 0, W_CachePatchName("CONFRONT", PU_CACHE));
	}
	else if (finaletext == INTRO15TEXT)
	{
		if (stoptimer == 7*TICRATE)
		{
			if (rendermode == render_soft)
			{
				tic_t nowtime, tics, wipestart, y;
				boolean done;

				F_WriteText(cx, cy);

				F_WipeStartScreen();

				V_DrawSmallScaledPatch(0, 0, 0, W_CachePatchName("SONICDO2", PU_CACHE));
				// draw some of the text onto the screen
				F_WriteText(cx, cy);

				F_WipeEndScreen(0, 0, vid.width, vid.height);

				wipestart = I_GetTime() - 1;
				y = wipestart + TICRATE; // init a timeout
				do
				{
					do
					{
						nowtime = I_GetTime();
						tics = nowtime - wipestart;
						if (!tics) I_Sleep();
					} while (!tics);
					wipestart = nowtime;
					done = F_ScreenWipe(0, 0, vid.width, vid.height, tics);
					I_OsPolling();
					I_UpdateNoBlit();
					M_Drawer(); // menu is drawn even on top of wipes
					I_FinishUpdate(); // page flip or blit buffer
				} while (!done && I_GetTime() < y);
			}
#ifdef HWRENDER
			else if (rendermode != render_none) // Delay the hardware modes as well
			{
				tic_t nowtime, tics, wipestart, y;

				wipestart = I_GetTime() - 1;
				y = wipestart+32; // init a timeout
				do
				{
					do
					{
						nowtime = I_GetTime();
						tics = nowtime - wipestart;
						if (!tics) I_Sleep();
					} while (!tics);

					I_OsPolling();
					I_UpdateNoBlit();
					M_Drawer(); // menu is drawn even on top of wipes
//					I_FinishUpdate(); // page flip or blit buffer
				} while (I_GetTime() < y);
			}
#endif
		}
		else if (stoptimer > 7*TICRATE)
			V_DrawSmallScaledPatch(0, 0, 0, W_CachePatchName("SONICDO2", PU_CACHE));
	}
#endif

	if (animtimer)
		animtimer--;

#ifndef TMNTINTRO
	if (finaletext == INTRO08TEXT && timetonext && finaletextcount > 0)
	{
		first = W_CachePatchName("SGRASS2", PU_CACHE);
		second = W_CachePatchName("SGRASS3", PU_CACHE);
		third = W_CachePatchName("SGRASS4", PU_CACHE);

		if (timetonext == 3*TICRATE)
		{
			currentanim = first;
			nextanim = second;
			animtimer = TICRATE/7 + 1;
		}
		else if (animtimer == 1 && currentanim == first)
		{
			currentanim = second;
			nextanim = third;
			animtimer = TICRATE/7 + 1;
		}
		else if (animtimer == 1 && currentanim == second)
			currentanim = third;

		if (currentanim)
			V_DrawScaledPatch(123, 4, 0, currentanim);
	}
#endif

	F_WriteText(cx, cy);
}

//
// F_DrawPatchCol
//
static void F_DrawPatchCol(int x, patch_t *patch, int col, int yrepeat)
{
	const column_t *column;
	const byte *source;
	byte *desttop, *dest = NULL;
	const byte *deststop;
	size_t count;

	column = (column_t *)((byte *)patch + LONG(patch->columnofs[col]));
	desttop = screens[0] + x*vid.dupx;
	deststop = screens[0] + vid.width * vid.height * vid.bpp;

	// step through the posts in a column
	while (column->topdelta != 0xff)
	{
		source = (const byte *)column + 3;
		dest = desttop + column->topdelta*vid.width;
		count = column->length;

		while (count--)
		{
			int dupycount = vid.dupy;

			while (dupycount--)
			{
				int dupxcount = vid.dupx;
				while (dupxcount-- && dest <= deststop)
					*dest++ = *source;

				dest += (vid.width - vid.dupx);
			}
			source++;
		}
		column = (const column_t *)((const byte *)column + column->length + 4);
	}

	// repeat a second time, for yrepeat number of pixels
	if (yrepeat)
	{
		column = (column_t *)((byte *)patch + LONG(patch->columnofs[col]));
		while (column->topdelta != 0xff)
		{
			source = (const byte *)column + 3;
			count = column->length;

			while (count--)
			{
				int dupycount = vid.dupy;

				while (dupycount--)
				{
					int dupxcount = vid.dupx;
					while (dupxcount-- && dest <= deststop)
						*dest++ = *source;

					dest += (vid.width - vid.dupx);
				}
				source++;
			}
			if (!--yrepeat)
				break;
			column = (const column_t *)((const byte *)column + column->length + 4);
		}
	}
}

//
// F_SkyScroll
//
static void F_SkyScroll(void)
{
	int scrolled, x, mx, fakedwidth;
	patch_t *pat;

	pat = W_CachePatchName("TITLESKY", PU_CACHE);

#ifdef TMNTMAIN // scroll slower
	animtimer = ((finalecount*((gamestate == GS_INTRO || gamestate == GS_INTRO2) ? titlescrollspeed*4 : titlescrollspeed))/80) % pat->width;
#else
	animtimer = ((finalecount*((gamestate == GS_INTRO || gamestate == GS_INTRO2) ? titlescrollspeed*4 : titlescrollspeed))/16) % pat->width;
#endif

	fakedwidth = vid.width / vid.dupx;

	if (rendermode == render_soft)
	{
		int yr = 0;

		if (vid.fdupy > vid.dupy)
			yr = vid.height - vid.dupy*pat->height;

#if 0 // #ifdef TMNTMAIN // Scroll other way. Like in Turtles in Time.
		scrolled = animtimer;
#else
		scrolled = BASEVIDWIDTH - animtimer;
#endif
		if (scrolled > BASEVIDWIDTH)
			scrolled = BASEVIDWIDTH;
		if (scrolled < 0)
			scrolled = 0;
		for (x = 0, mx = 0; x < fakedwidth; x++, mx++)
		{
			if (mx >= pat->width)
				mx = 0;

			if (mx + scrolled < pat->width)
				F_DrawPatchCol(x, pat, mx + scrolled, yr);
			else
				F_DrawPatchCol(x, pat, mx + scrolled - pat->width, yr);
		}
	}
#ifdef HWRENDER
	else if (rendermode != render_none)
	{ // I wish it were as easy as this for software. I really do.
		scrolled = animtimer;
		if (scrolled > 0)
			V_DrawScaledPatch(scrolled - pat->width, 0, 0, pat);
		while(scrolled < BASEVIDWIDTH)
		{
			V_DrawScaledPatch(scrolled, 0, 0, pat);
			scrolled += pat->width;
		}
	}
#endif
}

// De-Demo'd Title Screen
void F_TitleScreenDrawer(void)
{
	// Draw that sky!
	F_SkyScroll();

#ifdef TMNTMAIN // INTRO
#if 0 // Banner Scrolling. Don't like.
	patch_t *tmnt = NULL;
	patch_t *banner = NULL;
	int count = finalecount << 1; // count is finalecount doubled.

#ifdef HEROMODE
    if (heromode)
    {
	    tmnt = herottwing;
	    banner = herottbanner;
    }
    else
#endif
    {
	    tmnt = ttwing;
	    banner = ttbanner;
    }

	// Scroll the banner to 142 y
	// Yay? for confusing code.
	if (count > (15 << 1) && count < ((15+(58 >> 1)) << 1))
	{
		int y = -(count-(15 << 1))+200;

		V_DrawScaledPatch(30, 14, 0, tmnt);
		V_DrawScaledPatch(48, y, 0,banner);
	}
	else
	{

	    V_DrawScaledPatch(30, 14, 0, tmnt);
		if (count > (15 << 1))
	    	V_DrawScaledPatch(48, 142, 0,banner);
	}
#else // No banner scrolling
#ifdef HEROMODE
    if (heromode)
    {
	    V_DrawScaledPatch(30, 14, 0, herottwing);
	    V_DrawScaledPatch(48, 142, 0,herottbanner);
    }
    else
#endif
    {
	    V_DrawScaledPatch(30, 14, 0, ttwing);
	    V_DrawScaledPatch(48, 142, 0,ttbanner);
    }
#endif
#else
	V_DrawScaledPatch(30, 14, 0, ttwing);

	if (finalecount < 57)
	{
		if (finalecount == 35)
			V_DrawScaledPatch(115, 15, 0, ttspop1);
		else if (finalecount == 36)
			V_DrawScaledPatch(114, 15, 0,ttspop2);
		else if (finalecount == 37)
			V_DrawScaledPatch(113, 15, 0,ttspop3);
		else if (finalecount == 38)
			V_DrawScaledPatch(112, 15, 0,ttspop4);
		else if (finalecount == 39)
			V_DrawScaledPatch(111, 15, 0,ttspop5);
		else if (finalecount == 40)
			V_DrawScaledPatch(110, 15, 0, ttspop6);
		else if (finalecount >= 41 && finalecount <= 44)
			V_DrawScaledPatch(109, 15, 0, ttspop7);
		else if (finalecount >= 45 && finalecount <= 48)
			V_DrawScaledPatch(108, 12, 0, ttsprep1);
		else if (finalecount >= 49 && finalecount <= 52)
			V_DrawScaledPatch(107, 9, 0, ttsprep2);
		else if (finalecount >= 53 && finalecount <= 56)
			V_DrawScaledPatch(106, 6, 0, ttswip1);
		V_DrawScaledPatch(93, 106, 0, ttsonic);
	}
	else
	{
		V_DrawScaledPatch(93, 106, 0,ttsonic);
		if (finalecount/5 & 1)
			V_DrawScaledPatch(100, 3, 0,ttswave1);
		else
			V_DrawScaledPatch(100,3, 0,ttswave2);
	}

	V_DrawScaledPatch(48, 142, 0,ttbanner);
#endif
}

// Demo End Screen
//
// F_DemoEndDrawer
//
// TODO (Turtle Man#1#): Its going to be real fun to change this for TMNT...
void F_DemoEndDrawer(void)
{
	patch_t *mouth;

	// anim the mouth
	if (--mouthtics <= 0)
	{
		mouthframe++;
		mouthtics = mouthframe->tics;
	}

	// Decide which mouth to project
	switch (mouthframe->frame)
	{
		case 1:
			mouth = W_CachePatchName("MOUTB0", PU_CACHE);
			break;
		case 2:
			mouth = W_CachePatchName("MOUTC0", PU_CACHE);
			break;
		case 3:
			mouth = W_CachePatchName("MOUTD0", PU_CACHE);
			break;
		case 4:
			mouth = W_CachePatchName("MOUTE0", PU_CACHE);
			break;
		default:
			mouth = W_CachePatchName("MOUTA0", PU_CACHE);
			break;
	}

	// advance animation
	finalecount++;
	finaletextcount++;

	if (finalestage == 1 && finalecount == 2)
		S_StartSound(NULL, sfx_annon1);

	V_DrawFill(0, 0, 184, 200, *((byte *)colormaps + 0xd7)); // Orange
	V_DrawFill(184, 0, 136, 200, *((byte *)colormaps + 0x04)); // White

	V_DrawScaledPatch(216, 36, 0, desonic); // Sonic

	// Have Sonic blink every so often. (animtimer is used for this)
	if (animtimer)
		animtimer--;

	if (M_Random() == 255 && animtimer == 0 && timetonext & 1)
		animtimer = 3;

	switch (animtimer)
	{
		case 3: // Start to blink..
		case 1: // Opening back up...
			V_DrawScaledPatch(230, 79, 0, deblink1);
			break;
		case 2: // Eyes shut
			V_DrawScaledPatch(230, 79, 0, deblink2);
			break;
		default:
			break;
	}

#define HANDX 189
#define HANDY 111

	// Sonic puts his hand out...
	if ((finalestage == 1 && timetonext <= TICRATE/2) || (finalestage >= 2 && finalestage <= 4)
		|| (finalestage == 5 && timetonext > 3*TICRATE))
		V_DrawScaledPatch(HANDX, HANDY, 0, dehand3);
	else if (finalestage == 1 && timetonext >= TICRATE/2 + 1*NEWTICRATERATIO
		&& timetonext <= TICRATE/2 + 5*NEWTICRATERATIO)
		V_DrawScaledPatch(HANDX, HANDY, 0, dehand2);
	else if (finalestage == 1 && timetonext >= TICRATE/2 + 6*NEWTICRATERATIO
		&& timetonext <= TICRATE/2 + 8*NEWTICRATERATIO)
		V_DrawScaledPatch(HANDX, HANDY, 0, dehand1);

	// And brings it back in.
	if (finalestage == 5 && timetonext <= 3*TICRATE-1*NEWTICRATERATIO
		&& timetonext >= 3*TICRATE-3*NEWTICRATERATIO)
	{
		V_DrawScaledPatch(HANDX, HANDY, 0, dehand1);
	}

	// Tough part -- SYNCING THE MOUTH!
	// Animation is handled up above.
	V_DrawScaledPatch(254, 98, 0, mouth);

	// Draw the text over everything else
	switch (finalestage)
	{
		case 6:
		case 5:
			V_DrawString(8, 184, 0, "Returning to title screen...");
		case 4:
			V_DrawString(8, 152, 0, "3) Stop by the #srb2fun\nchatroom at irc.esper.net.");
		case 3:
			V_DrawString(8, 120, 0, "2) Poke around the addons\nsection of the website.");
		case 2:
			V_DrawString(8, 80, 0, "1) Visit the SRB2 website\nat www.srb2.org for\nnews and updates.");
		case 1:
			V_DrawString(8, 4, 0, "Thanks for playing the SRB2\ndemo. This is the last release\nbefore the final game comes\nout, but here are several\nthings you you can do to\ntide you over:");
		default:
			break;
	}
}

#define INTERVAL 50
#define TRANSLEVEL V_8020TRANS

void F_GameEvaluationDrawer(void)
{
#ifndef NOEMERALDS
	int x, y;
	const fixed_t radius = 48*FRACUNIT;
	angle_t fa;
#endif

	V_DrawFill(0, 0, vid.width, vid.height, 0);

#ifndef TMNTMAIN
	// Draw all the good crap here.
	if (animtimer == 64)
	{
		V_DrawString(114, 16, 0, "GOT THEM ALL!");

		if (gameskill <= sk_easy)
		{
			V_DrawCenteredString(BASEVIDWIDTH/2, 100, V_YELLOWMAP, "Or have you? Play on Normal");
			V_DrawCenteredString(BASEVIDWIDTH/2, 116, V_YELLOWMAP, "or higher to collect them all!");
		}
	}
	else
		V_DrawString(124, 16, 0, "TRY AGAIN!");
#endif

	finalestage++;
	timetonext = finalestage;

#ifndef NOEMERALDS
	fa = FINEANGLE_C(timetonext);
	x = 160 + FixedMul(FixedMul(FINECOSINE(fa),radius),1);
	y = 100 + FixedMul(FixedMul(FINESINE(fa),radius),1);

	if (emeralds & EMERALD1)
		V_DrawScaledPatch(x, y, 0, W_CachePatchName("CEMGA0", PU_CACHE));
	else
		V_DrawTranslucentPatch(x, y, TRANSLEVEL|V_TOPLEFT, W_CachePatchName("CEMGA0", PU_CACHE));

	timetonext += INTERVAL;

	fa = FINEANGLE_C(timetonext);
	x = 160 + FixedMul(FixedMul(FINECOSINE(fa),radius),1);
	y = 100 + FixedMul(FixedMul(FINESINE(fa),radius),1);

	if (emeralds & EMERALD2)
		V_DrawScaledPatch(x, y, 0, W_CachePatchName("CEMOA0", PU_CACHE));
	else
		V_DrawTranslucentPatch(x, y, TRANSLEVEL|V_TOPLEFT, W_CachePatchName("CEMOA0", PU_CACHE));

	timetonext += INTERVAL;

	fa = FINEANGLE_C(timetonext);
	x = 160 + FixedMul(FixedMul(FINECOSINE(fa),radius),1);
	y = 100 + FixedMul(FixedMul(FINESINE(fa),radius),1);

	if (emeralds & EMERALD3)
		V_DrawScaledPatch(x, y, 0, W_CachePatchName("CEMPA0", PU_CACHE));
	else
		V_DrawTranslucentPatch(x, y, TRANSLEVEL|V_TOPLEFT, W_CachePatchName("CEMPA0", PU_CACHE));

	timetonext += INTERVAL;

	fa = FINEANGLE_C(timetonext);
	x = 160 + FixedMul(FixedMul(FINECOSINE(fa),radius),1);
	y = 100 + FixedMul(FixedMul(FINESINE(fa),radius),1);

	if (emeralds & EMERALD4)
		V_DrawScaledPatch(x, y, 0, W_CachePatchName("CEMBA0", PU_CACHE));
	else
		V_DrawTranslucentPatch(x, y, TRANSLEVEL|V_TOPLEFT, W_CachePatchName("CEMBA0", PU_CACHE));

	timetonext += INTERVAL;

	fa = FINEANGLE_C(timetonext);
	x = 160 + FixedMul(FixedMul(FINECOSINE(fa),radius),1);
	y = 100 + FixedMul(FixedMul(FINESINE(fa),radius),1);

	if (emeralds & EMERALD5)
		V_DrawScaledPatch(x, y, 0, W_CachePatchName("CEMRA0", PU_CACHE));
	else
		V_DrawTranslucentPatch(x, y, TRANSLEVEL|V_TOPLEFT, W_CachePatchName("CEMRA0", PU_CACHE));

	timetonext += INTERVAL;

	fa = FINEANGLE_C(timetonext);
	x = 160 + FixedMul(FixedMul(FINECOSINE(fa),radius),1);
	y = 100 + FixedMul(FixedMul(FINESINE(fa),radius),1);

	if (emeralds & EMERALD6)
		V_DrawScaledPatch(x, y, 0, W_CachePatchName("CEMLA0", PU_CACHE));
	else
		V_DrawTranslucentPatch(x, y, TRANSLEVEL|V_TOPLEFT, W_CachePatchName("CEMLA0", PU_CACHE));

	timetonext += INTERVAL;

	fa = FINEANGLE_C(timetonext);
	x = 160 + FixedMul(FixedMul(FINECOSINE(fa),radius),1);
	y = 100 + FixedMul(FixedMul(FINESINE(fa),radius),1);

	if (emeralds & EMERALD7)
		V_DrawScaledPatch(x, y, 0, W_CachePatchName("CEMYA0", PU_CACHE));
	else
		V_DrawTranslucentPatch(x, y, TRANSLEVEL|V_TOPLEFT, W_CachePatchName("CEMYA0", PU_CACHE));
#endif

	if (finalestage >= 360)
		finalestage -= 360;

	if (finalecount == 5*TICRATE)
	{
		if ((!modifiedgame || savemoddata)
#ifdef CHEATEDGAME
			&& !cheatedgame
#endif
			&& mapheaderinfo[gamemap-1].nextlevel == 1102)
		{
			boolean alreadyplayed = false;
			int bitcount = 0;
			int i;

			if (!(emblemlocations[MAXEMBLEMS-2].collected))
			{
				emblemlocations[MAXEMBLEMS-2].collected = true; // For completing the game.
				S_StartSound(NULL, sfx_ncitem);
				alreadyplayed = true;
				drawemblem = true;
			}

#ifndef NOEMERALDS
			if (ALL7EMERALDS)
			{
				if (gameskill <= sk_easy)
					emeralds = 0; // Bye bye!
				else
				{
					if (!(emblemlocations[MAXEMBLEMS-1].collected))
					{
						emblemlocations[MAXEMBLEMS-1].collected = true;

						if (!alreadyplayed)
							S_StartSound(NULL, sfx_ncitem);

						drawchaosemblem = true;
					}
					grade |= 8; // Now you can access Mario!
				}
			}
#endif

			for (i = 0; i < MAXEMBLEMS; i++)
			{
				if (emblemlocations[i].collected)
					bitcount++;
			}

			if (bitcount == numemblems) // Got ALL emblems!
#ifdef TMNTUNLOCK
				grade |= 32;
#else
				grade |= 16;
#endif

			grade |= 1; // Just for completing the game.

			timesbeaten++;

			// An award for beating ultimate mode, perhaps?
			if (gameskill >= sk_insane)
				grade |= 1024;
		}
#ifndef TMNTUNLOCK
		else if (!modifiedgame
#ifdef CHEATEDGAME
			&& !cheatedgame
#endif
			&& gamemap == 29) // Cleared NiGHTS
			grade |= 64;
		else if (!modifiedgame
#ifdef CHEATEDGAME
		…