GliderPRO/Sources/InterfaceInit.c

//============================================================================
//----------------------------------------------------------------------------
//								InterfaceInit.c
//----------------------------------------------------------------------------
//============================================================================


#include "Externs.h"
#include "Environ.h"
#include "Map.h"
#include "RectUtils.h"
#include "Tools.h"


#define kHandCursorID		128
#define kVertCursorID		129
#define kHoriCursorID		130
#define kDiagCursorID		131


extern	RgnHandle		mirrorRgn;
extern	WindowPtr		mapWindow, toolsWindow, linkWindow;
extern	WindowPtr		menuWindow;
extern	Rect			shieldRect, boardSrcRect, localRoomsDest[];
extern	CursHandle		handCursorH, beamCursorH, vertCursorH, horiCursorH;
extern	CursHandle		diagCursorH;
extern	Cursor			handCursor, beamCursor, vertCursor, horiCursor;
extern	Cursor			diagCursor;
extern	MenuHandle		appleMenu, gameMenu, optionsMenu, houseMenu;
extern	Point			shieldPt;
extern	long			incrementModeTime;
extern	UInt32			doubleTime;
extern	short			fadeInSequence[], idleMode;
extern	short			toolSelected, lastBackground, wasFlower, numExtraHouses;
extern	short			houseResFork, lastHighScore, maxFiles, willMaxFiles;
extern	Boolean			quitting, playing, fadeGraysOut;
extern	Boolean			houseOpen, newRoomNow, evenFrame, menusUp, demoGoing;
extern	Boolean			twoPlayerGame, paused, hasMirror, splashDrawn;


//==============================================================  Functions
//--------------------------------------------------------------  InitializeMenus

// The menus are loaded from disk and the menu bar set up and drawn.

void InitializeMenus (void)
{	
	appleMenu = GetMenu(kAppleMenuID);
	if (appleMenu == nil)
		RedAlert(kErrFailedResourceLoad);
	AppendResMenu(appleMenu, 'DRVR');
	InsertMenu(appleMenu, 0);
	
	gameMenu = GetMenu(kGameMenuID);
	if (gameMenu == nil)
		RedAlert(kErrFailedResourceLoad);
	InsertMenu(gameMenu, 0);
	
	optionsMenu = GetMenu(kOptionsMenuID);
	if (optionsMenu == nil)
		RedAlert(kErrFailedResourceLoad);
	InsertMenu(optionsMenu, 0);
	
	menusUp = true;
	DrawMenuBar();
	
	houseMenu = GetMenu(kHouseMenuID);
	if (houseMenu == nil)
		RedAlert(kErrFailedResourceLoad);
	
	UpdateMenus(false);
}

//--------------------------------------------------------------  GetExtraCursors

// Extra cursors (custom cursors) like the "hand" and various room<6F>
// editing cursors are loaded up.

void GetExtraCursors (void)
{
	handCursorH = GetCursor(kHandCursorID);
	if (handCursorH == nil)
		RedAlert(kErrFailedResourceLoad);
	HLock((Handle)handCursorH);
	handCursor = **handCursorH;
	
	beamCursorH = GetCursor(iBeamCursor);
	if (beamCursorH == nil)
		RedAlert(kErrFailedResourceLoad);
	HLock((Handle)beamCursorH);
	beamCursor = **beamCursorH;
	
	vertCursorH = GetCursor(kVertCursorID);
	if (vertCursorH == nil)
		RedAlert(kErrFailedResourceLoad);
	HLock((Handle)vertCursorH);
	vertCursor = **vertCursorH;
	
	horiCursorH = GetCursor(kHoriCursorID);
	if (horiCursorH == nil)
		RedAlert(kErrFailedResourceLoad);
	HLock((Handle)horiCursorH);
	horiCursor = **horiCursorH;
	
	diagCursorH = GetCursor(kDiagCursorID);
	if (diagCursorH == nil)
		RedAlert(kErrFailedResourceLoad);
	HLock((Handle)diagCursorH);
	diagCursor = **diagCursorH;
}

//--------------------------------------------------------------  VariableInit

// All the simple interface variables are intialized here - Booleans,<2C>
// shorts, a few Rects, etc.

void VariableInit (void)
{
	short		i;
	
	shieldPt.h = 0;
	shieldPt.v = 0;
	shieldRect = thisMac.screen;
	
	menusUp = false;
	quitting = false;
	houseOpen = false;
	newRoomNow = false;
	playing = false;
	evenFrame = false;
	if (thisMac.isDepth == 8)
		fadeGraysOut = true;
	else
		fadeGraysOut = false;
	twoPlayerGame = false;
	paused = false;
	hasMirror = false;
	demoGoing = false;
//	scrapIsARoom = true;
	splashDrawn = false;
	
#ifndef COMPILEDEMO
//	SeeIfValidScrapAvailable(false);
#endif
	
	theGlider.which = kPlayer1;
	theGlider2.leftKey = kControlKeyMap;
	theGlider2.rightKey = kCommandKeyMap;
	theGlider2.batt