/*******************************************************************************
	FILE:			CREDITS.CPP

	DESCRIPTION:

	AUTHOR:			Peter M. Freese
	CREATED:		12-05-95
	COPYRIGHT:		Copyright (c) 1995 Q Studios Corporation
*******************************************************************************/

#include "credits.h"
#include "key.h"
#include "sound.h"
#include "screen.h"
#include "globals.h"
#include "misc.h"
#include "view.h"
#include "gfx.h"
#include "trig.h"
#include "debug4g.h"

#define kDACWaitTicks	2	// ticks between DAC updates

char *credits[] =
{
	"Game By",
	"Q Studios",
	"",
	"Project Director",
	"Nick Newhard",
	"",
	"Executive Producer",
	"George Broussard",
	"",
	"Lead Programmer",
	"Peter Freese",
	"",
	"3D Engine",
	"Ken Silverman",
	NULL,
	"Level Design",
	"Jay Wilson",
	"Nick Newhard",
	"Terry Hamel",
	"Kevin Kilstrom",
	"Richard Gray",
	"Vance Andrew Blevins",
	NULL,
	"Artists",
	"Kevin Kilstrom",
	"Terry Hamel",
	"",
	"Creature Models",
	"Kevin Kilstrom",
	"",
	"Additional Art",
	"Rick Welsh",
	"David Brinkley",
	NULL,
	"Music and Sound",
	"LoudMouth",
	"",
	"3D Sound System",
	"Peter Freese",
	"",
	"Audio Technology",
	"Jim Dose",
	"",
	"Network Programming",
	"Mark Dochterman",
	NULL,
	"Special Thanks",
	"Chris Rush",
	"Erik Klokstad",
	"Helen Newhard",
	"Cynthia Freese",
	"Francine Kilstrom",
};

static BOOL Wait( int nTicks )
{
	gGameClock = 0;
	while ( gGameClock < nTicks )
		if ( keyGet() != 0 )
			return FALSE;
	return TRUE;
}


static BOOL DoFade( BYTE r, BYTE g, BYTE b, int nTicks )
{
	dassert(nTicks > 0);
	scrSetupFade(r, g, b);
	gGameClock = gFrameClock = 0;
	do
	{
		while (gGameClock < gFrameClock);
		gFrameClock += kDACWaitTicks;

		WaitVSync();
		scrFadeAmount(divscale16(ClipHigh(gGameClock, nTicks), nTicks));

		if ( keyGet() != 0 )
			return FALSE;
	} while ( gGameClock <= nTicks );
	return TRUE;
}

static BOOL DoUnFade( int nTicks )
{
	dassert(nTicks > 0);
	scrSetupUnfade();
	gGameClock = gFrameClock = 0;
	do
	{
		while (gGameClock < gFrameClock);
		gFrameClock += kDACWaitTicks;

		WaitVSync();
		scrFadeAmount(0x10000 - divscale16(ClipHigh(gGameClock, nTicks), nTicks));

		if ( keyGet() != 0 )
			return FALSE;
	} while ( gGameClock <= nTicks );
	return TRUE;
}

// show logos
void credLogos( void )
{
	int nEffect = 0;

//	sndPlaySong("INTRO", FALSE);

	// black out dac
	if ( !DoFade(0, 0, 0, 1) ) return;

	// castle background
	rotatesprite(320 << 15, 200 << 15, 0x10000, 0, 2046, 0, 0,
		kRotateScale | kRotateNoMask, 0, 0, 319, 199);
	scrNextPage();

	if ( !DoUnFade(2 * kTimerRate) ) return;
	if ( !Wait(1 * kTimerRate) ) return;

	if ( !DoFade(255, 255, 255, 2) ) return;

/*
	// flash the subliminal babe
	rotatesprite(320 << 15, 200 << 15, 0x10000, 0, 2323, 0, 0,
		kRotateScale | kRotateNoMask, 0, 0, 319, 199);
	scrNextPage();
	DoUnFade(1);
	DoFade(255, 255, 255, 1);
*/

	// castle again
	rotatesprite(320 << 15, 200 << 15, 0x10000, 0, 2046, 0, 0,
		kRotateScale | kRotateNoMask, 0, 0, 319, 199);
	// Q Studios logo
	rotatesprite(320 << 15, 200 << 15, 0x10000, 0, 2047, 0, 0,
		kRotateScale | kRotateNoMask, 0, 0, 319, 199);
	scrNextPage();

	sndStartSample("THUNDER2", 255);

	if ( !DoUnFade(60) ) return;

	if ( !Wait(1 * kTimerRate) ) return;
	sndStartSample("THUNDER", 255);
	if ( !Wait(1 * kTimerRate) ) return;
	if ( !DoFade(0, 0, 0, 60) ) return;

	// menu background
	rotatesprite(320 << 15, 200 << 15, 0x10000, 0, 2049, 0, 0,
		kRotateScale | kRotateNoMask, 0, 0, 319, 199);
	scrNextPage();

	if ( !DoUnFade(60) ) return;
	sndStartSample("DOORSLID", 255);
	if ( !Wait(2 * kTimerRate) ) return;
	if ( !DoFade(0, 0, 0, 60) ) return;

	while ( sndIsSongPlaying() )
	{
		if (keyGet() != 0 )
			return;
	}
}


static QFONT *pFont;
static int fuseX, fuseY;


static void DrawCreditText( char *string, int x, int y, int nAlign )
{
	char *s;
	dassert(string != NULL);

	setupmvlineasm(16);

	if ( nAlign != TA_LEFT )
	{
		int nWidth = -pFont->charSpace;
		for ( s = string; *s; s++ )
			nWidth += pFont->info[*s].hspace + pFont->charSpace;

		if ( nAlign == TA_CENTER )
			nWidth >>= 1;

		x -= nWidth;
	}

	for ( s = string; *s; s++ )
	{
		int nShade = ClipRange(qdist(x - fuseX, y - fuseY) - 16, 0, 56);
		BYTE *pPalookup = palookup[kPLUNormal] + (getpalookup(0, nShade) << 8);
		viewDrawChar(pFont, *s, x, y, pPalookup);
		x += pFont->info[*s].hspace + pFont->charSpace;
	}
}


#define kLineSpace	14


// show credits
void credCredits( void )
{
	int n = 0;
	int x, y;

	fuseX = -256;
	fuseY = -256;

	RESHANDLE hFont = gSysRes.Lookup((long)kFontMessage, ".QFN");
	dassert(hFont != NULL);
	pFont = (QFONT *)gSysRes.Lock(hFont);

	sndPlaySong("BLOOD5", FALSE);

	// black out dac
	if ( !DoFade(0, 0, 0, 1) ) return;

	while ( n < LENGTH(credits) )
	{
		// calculate number of lines to display
		int nLines = 0;
		while ( credits[n + nLines] != NULL )
			nLines++;

		// draw the screen
		clearview(0);
		y = (200 - nLines * kLineSpace) / 2;
		for ( int i = 0; i < nLines; i++ )
		{
			DrawCreditText(credits[n + i], 160, y, TA_CENTER);
			y += kLineSpace;
		}
		scrNextPage();

		DoUnFade(60);

		int y0 = Random(200);
		int y1 = Random(200);
		int nFrame = 0;
		for ( x = -32; x < 320 + 32; x += 1 )
		{
			fuseX = x;
			fuseY = y0 + muldiv(y1 - y0, x, 320);

			clearview(0);
			y = (200 - nLines * kLineSpace) / 2;
			for ( int i = 0; i < nLines; i++ )
			{
				DrawCreditText(credits[n + i], 160, y, TA_CENTER);
				y += kLineSpace;
			}

/*
			nFrame = IncRotate(nFrame, 3);

			rotatesprite(fuseX << 16, fuseY << 16, 0x10000 + BiRandom(0x1000),
			(short)BiRandom(kAngle30), (short)(3195 + nFrame),
			-128, kPLUNormal, kRotateStatus, 0, 0, xdim - 1, ydim - 1);
*/
			scrNextPage();

			Wait(3);
		}

		DoFade(0, 0, 0, 60);

		n += nLines + 1;
	}
	sndFadeSong(400);

	gSysRes.Unlock(hFont);
}