Macintosh-SW
/
GliderPRO
mirror of https://github.com/softdorothy/GliderPRO.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
GliderPRO/Sources/ObjectInfo.c

1 line
62 KiB
C
Executable File
Raw Permalink Blame History

//============================================================================
//----------------------------------------------------------------------------
// ObjectInfo.c
//----------------------------------------------------------------------------
//============================================================================
#include <NumberFormatting.h>
#include <Sound.h>
#include <TextUtils.h>
#include "DialogUtils.h"
#include "Externs.h"
#include "ObjectEdit.h"
#include "RectUtils.h"
#define kBlowerInfoDialogID 1007
#define kFurnitureInfoDialogID 1010
#define kSwitchInfoDialogID 1011
#define kLightInfoDialogID 1013
#define kApplianceInfoDialogID 1014
#define kInvisBonusInfoDialogID 1015
#define kGreaseInfoDialogID 1019
#define kTransInfoDialogID 1022
#define kEnemyInfoDialogID 1027
#define kFlowerInfoDialogID 1033
#define kTriggerInfoDialogID 1034
#define kMicrowaveInfoDialogID 1035
#define kCustPictInfoDialogID 1045
#define kCustPictIDItem 7
#define kInitialStateCheckbox 6
#define kForceCheckbox 7
#define kDirectionText 9
#define kLeftFacingRadio 16
#define kRightFacingRadio 17
#define kToggleRadio 6
#define kForceOnRadio 7
#define kForceOffRadio 8
#define kDelay3Item 6
#define kDelayItem 8
#define kDelayLabelItem 9
#define k100PtRadio 6
#define k300PtRadio 7
#define k500PtRadio 8
#define kGreaseItem 6
#define kLinkTransButton 6
#define kInitialStateCheckbox3 13
#define kTransRoomText 8
#define kTransObjectText 9
#define kKillBandsCheckbox 8
#define kKillBatteryCheckbox 9
#define kKillFoilCheckbox 10
#define kDelay2Item 7
#define kDelay2LabelItem 8
#define kDelay2LabelItem2 9
#define kInitialStateCheckbox2 10
#define kRadioFlower1 6
#define kRadioFlower6 11
#define kFlowerCancel 12
#define kGotoButton1 11
#define kGotoButton2 14
void UpdateBlowerInfo (DialogPtr);
void UpdateFurnitureInfo (DialogPtr);
void UpdateCustPictInfo (DialogPtr);
void UpdateSwitchInfo (DialogPtr);
void UpdateTriggerInfo (DialogPtr);
void UpdateLightInfo (DialogPtr);
void UpdateApplianceInfo (DialogPtr);
void UpdateMicrowaveInfo (DialogPtr);
void UpdateGreaseInfo (DialogPtr);
void UpdateInvisBonusInfo (DialogPtr);
void UpdateTransInfo (DialogPtr);
void UpdateEnemyInfo (DialogPtr);
void UpdateFlowerInfo (DialogPtr);
pascal Boolean BlowerFilter (DialogPtr, EventRecord *, short *);
pascal Boolean FurnitureFilter (DialogPtr, EventRecord *, short *);
pascal Boolean CustPictFilter (DialogPtr, EventRecord *, short *);
pascal Boolean SwitchFilter (DialogPtr, EventRecord *, short *);
pascal Boolean TriggerFilter (DialogPtr, EventRecord *, short *);
pascal Boolean LightFilter (DialogPtr, EventRecord *, short *);
pascal Boolean ApplianceFilter (DialogPtr, EventRecord *, short *);
pascal Boolean MicrowaveFilter (DialogPtr, EventRecord *, short *);
pascal Boolean GreaseFilter (DialogPtr, EventRecord *, short *);
pascal Boolean InvisBonusFilter (DialogPtr, EventRecord *, short *);
pascal Boolean TransFilter (DialogPtr, EventRecord *, short *);
pascal Boolean EnemyFilter (DialogPtr, EventRecord *, short *);
pascal Boolean FlowerFilter (DialogPtr, EventRecord *, short *);
void DoBlowerObjectInfo (short);
void DoFurnitureObjectInfo (void);
void DoCustPictObjectInfo (void);
void DoSwitchObjectInfo (void);
void DoTriggerObjectInfo (void);
void DoLightObjectInfo (void);
void DoApplianceObjectInfo (short);
void DoMicrowaveObjectInfo (void);
void DoGreaseObjectInfo (void);
void DoInvisBonusObjectInfo (void);
void DoTransObjectInfo (short);
void DoEnemyObjectInfo (short);
void DoFlowerObjectInfo (void);
short newDirection, newPoint;
Byte newType;
extern retroLink retroLinkList[];
extern short linkRoom, linkType, wasFlower;
extern Byte linkObject;
extern Boolean linkerIsSwitch;
#ifndef COMPILEDEMO
//============================================================== Functions
//-------------------------------------------------------------- UpdateBlowerInfo
void UpdateBlowerInfo (DialogPtr theDialog)
{
#define kArrowheadLength 4
Rect bounds;
DrawDialog(theDialog);
DrawDefaultButton(theDialog);
FrameDialogItemC(theDialog, 5, kRedOrangeColor8);
if ((thisRoom->objects[objActive].what != kLeftFan) &&
(thisRoom->objects[objActive].what != kRightFan))
{
GetDialogItemRect(theDialog, 8, &bounds);
bounds.right += 2;
bounds.bottom += 2;
EraseRect(&bounds);
bounds.right -= 2;
bounds.bottom -= 2;
PenSize(2, 2);
switch (newDirection)
{
case 1: // up
MoveTo(bounds.left + HalfRectWide(&bounds), bounds.top);
Line(0, RectTall(&bounds));
MoveTo(bounds.left + HalfRectWide(&bounds), bounds.top);
Line(kArrowheadLength, kArrowheadLength);
MoveTo(bounds.left + HalfRectWide(&bounds), bounds.top);
Line(-kArrowheadLength, kArrowheadLength);
break;
case 2: // right
MoveTo(bounds.right, bounds.top + HalfRectTall(&bounds));
Line(-RectWide(&bounds), 0);
MoveTo(bounds.right, bounds.top + HalfRectTall(&bounds));
Line(-kArrowheadLength, kArrowheadLength);
MoveTo(bounds.right, bounds.top + HalfRectTall(&bounds));
Line(-kArrowheadLength, -kArrowheadLength);
break;
case 4: // down
MoveTo(bounds.left + HalfRectWide(&bounds), bounds.top);
Line(0, RectTall(&bounds));
MoveTo(bounds.left + HalfRectWide(&bounds), bounds.bottom);
Line(kArrowheadLength, -kArrowheadLength);
MoveTo(bounds.left + HalfRectWide(&bounds), bounds.bottom);
Line(-kArrowheadLength, -kArrowheadLength);
break;
case 8: // left
MoveTo(bounds.left, bounds.top + HalfRectTall(&bounds));
Line(RectWide(&bounds), 0);
MoveTo(bounds.left, bounds.top + HalfRectTall(&bounds));
Line(kArrowheadLength, -kArrowheadLength);
MoveTo(bounds.left, bounds.top + HalfRectTall(&bounds));
Line(kArrowheadLength, kArrowheadLength);
break;
default:
break;
}
PenNormal();
if ((thisRoom->objects[objActive].what == kInvisBlower) ||
(thisRoom->objects[objActive].what == kLiftArea))
{
switch (newDirection)
{
case 1: // up
EraseDialogItem(theDialog, 11);
FrameOvalDialogItem(theDialog, 12);
FrameOvalDialogItem(theDialog, 13);
FrameOvalDialogItem(theDialog, 14);
break;
case 2: // right
FrameOvalDialogItem(theDialog, 11);
EraseDialogItem(theDialog, 12);
FrameOvalDialogItem(theDialog, 13);
FrameOvalDialogItem(theDialog, 14);
break;
case 4: // down
FrameOvalDialogItem(theDialog, 11);
FrameOvalDialogItem(theDialog, 12);
EraseDialogItem(theDialog, 13);
FrameOvalDialogItem(theDialog, 14);
break;
case 8: // left
FrameOvalDialogItem(theDialog, 11);
FrameOvalDialogItem(theDialog, 12);
FrameOvalDialogItem(theDialog, 13);
EraseDialogItem(theDialog, 14);
break;
}
}
}
}
//-------------------------------------------------------------- UpdateFurnitureInfo
void UpdateFurnitureInfo (DialogPtr theDialog)
{
DrawDialog(theDialog);
DrawDefaultButton(theDialog);
FrameDialogItemC(theDialog, 4, kRedOrangeColor8);
}
//-------------------------------------------------------------- UpdateCustPictInfo
void UpdateCustPictInfo (DialogPtr theDialog)
{
DrawDialog(theDialog);
DrawDefaultButton(theDialog);
FrameDialogItemC(theDialog, 5, kRedOrangeColor8);
}
//-------------------------------------------------------------- UpdateSwitchInfo
void UpdateSwitchInfo (DialogPtr theDialog)
{
DrawDialog(theDialog);
DrawDefaultButton(theDialog);
SelectFromRadioGroup(theDialog, newType + kToggleRadio,
kToggleRadio, kForceOffRadio);
FrameDialogItemC(theDialog, 4, kRedOrangeColor8);
FrameDialogItemC(theDialog, 13, kRedOrangeColor8);
}
//-------------------------------------------------------------- UpdateTriggerInfo
void UpdateTriggerInfo (DialogPtr theDialog)
{
DrawDialog(theDialog);
DrawDefaultButton(theDialog);
FrameDialogItemC(theDialog, 4, kRedOrangeColor8);
FrameDialogItemC(theDialog, 13, kRedOrangeColor8);
}
//-------------------------------------------------------------- UpdateLightInfo
void UpdateLightInfo (DialogPtr theDialog)
{
DrawDialog(theDialog);
DrawDefaultButton(theDialog);
FrameDialogItemC(theDialog, 5, kRedOrangeColor8);
}
//-------------------------------------------------------------- UpdateApplianceInfo
void UpdateApplianceInfo (DialogPtr theDialog)
{
DrawDialog(theDialog);
DrawDefaultButton(theDialog);
FrameDialogItemC(theDialog, 5, kRedOrangeColor8);
}
//-------------------------------------------------------------- UpdateMicrowaveInfo
void UpdateMicrowaveInfo (DialogPtr theDialog)
{
DrawDialog(theDialog);
DrawDefaultButton(theDialog);
FrameDialogItemC(theDialog, 5, kRedOrangeColor8);
}
//-------------------------------------------------------------- UpdateGreaseInfo
void UpdateGreaseInfo (DialogPtr theDialog)
{
DrawDialog(theDialog);
DrawDefaultButton(theDialog);
FrameDialogItemC(theDialog, 5, kRedOrangeColor8);
}
//-------------------------------------------------------------- UpdateInvisBonusInfo
void UpdateInvisBonusInfo (DialogPtr theDialog)
{
DrawDialog(theDialog);
DrawDefaultButton(theDialog);
SelectFromRadioGroup(theDialog, newPoint + k100PtRadio,
k100PtRadio, k500PtRadio);
FrameDialogItemC(theDialog, 4, kRedOrangeColor8);
}
//-------------------------------------------------------------- UpdateTransInfo
void UpdateTransInfo (DialogPtr theDialog)
{
DrawDialog(theDialog);
DrawDefaultButton(theDialog);
FrameDialogItemC(theDialog, 4, kRedOrangeColor8);
FrameDialogItemC(theDialog, 10, kRedOrangeColor8);
}
//-------------------------------------------------------------- UpdateEnemyInfo
void UpdateEnemyInfo (DialogPtr theDialog)
{
DrawDialog(theDialog);
DrawDefaultButton(theDialog);
FrameDialogItemC(theDialog, 4, kRedOrangeColor8);
}
//-------------------------------------------------------------- UpdateFlowerInfo
void UpdateFlowerInfo (DialogPtr theDialog)
{
DrawDialog(theDialog);
DrawDefaultButton(theDialog);
FrameDialogItemC(theDialog, 4, kRedOrangeColor8);
}
//-------------------------------------------------------------- BlowerFilter
pascal Boolean BlowerFilter (DialogPtr dial, EventRecord *event, short *item)
{
switch (event->what)
{
case keyDown:
switch ((event->message) & charCodeMask)
{
case kReturnKeyASCII:
case kEnterKeyASCII:
FlashDialogButton(dial, kOkayButton);
*item = kOkayButton;
return(true);
break;
case kEscapeKeyASCII:
FlashDialogButton(dial, kCancelButton);
*item = kCancelButton;
return(true);
break;
case kTabKeyASCII:
// SelectDialogItemText(dial, kRoomNameItem, 0, 1024);
return(true);
break;
default:
return(false);
}
break;
case mouseDown:
return(false);
break;
case mouseUp:
return(false);
break;
case updateEvt:
SetPort((GrafPtr)dial);
BeginUpdate(GetDialogWindow(dial));
UpdateBlowerInfo(dial);
EndUpdate(GetDialogWindow(dial));
event->what = nullEvent;
return(false);
break;
default:
return(false);
break;
}
}
//-------------------------------------------------------------- FurnitureFilter
pascal Boolean FurnitureFilter (DialogPtr dial, EventRecord *event, short *item)
{
switch (event->what)
{
case keyDown:
switch ((event->message) & charCodeMask)
{
case kReturnKeyASCII:
case kEnterKeyASCII:
FlashDialogButton(dial, kOkayButton);
*item = kOkayButton;
return(true);
break;
default:
return(false);
}
break;
case updateEvt:
SetPort((GrafPtr)dial);
BeginUpdate(GetDialogWindow(dial));
UpdateFurnitureInfo(dial);
EndUpdate(GetDialogWindow(dial));
event->what = nullEvent;
return(false);
break;
default:
return(false);
break;
}
}
//-------------------------------------------------------------- CustPictFilter
pascal Boolean CustPictFilter (DialogPtr dial, EventRecord *event, short *item)
{
switch (event->what)
{
case keyDown:
switch ((event->message) & charCodeMask)
{
case kReturnKeyASCII:
case kEnterKeyASCII:
FlashDialogButton(dial, kOkayButton);
*item = kOkayButton;
return(true);
break;
default:
return(false);
}
break;
case updateEvt:
SetPort((GrafPtr)dial);
BeginUpdate(GetDialogWindow(dial));
UpdateCustPictInfo(dial);
EndUpdate(GetDialogWindow(dial));
event->what = nullEvent;
return(false);
break;
default:
return(false);
break;
}
}
//-------------------------------------------------------------- SwitchFilter
pascal Boolean SwitchFilter (DialogPtr dial, EventRecord *event, short *item)
{
switch (event->what)
{
case keyDown:
switch ((event->message) & charCodeMask)
{
case kReturnKeyASCII:
case kEnterKeyASCII:
FlashDialogButton(dial, kOkayButton);
*item = kOkayButton;
return(true);
break;
case kEscapeKeyASCII:
FlashDialogButton(dial, kCancelButton);
*item = kCancelButton;
return(true);
break;
default:
return(false);
}
break;
case updateEvt:
SetPort((GrafPtr)dial);
BeginUpdate(GetDialogWindow(dial));
UpdateSwitchInfo(dial);
EndUpdate(GetDialogWindow(dial));
event->what = nullEvent;
return(false);
break;
default:
return(false);
break;
}
}
//-------------------------------------------------------------- TriggerFilter
pascal Boolean TriggerFilter (DialogPtr dial, EventRecord *event, short *item)
{
switch (event->what)
{
case keyDown:
switch ((event->message) & charCodeMask)
{
case kReturnKeyASCII:
case kEnterKeyASCII:
FlashDialogButton(dial, kOkayButton);
*item = kOkayButton;
return(true);
break;
case kEscapeKeyASCII:
FlashDialogButton(dial, kCancelButton);
*item = kCancelButton;
return(true);
break;
case kTabKeyASCII:
SelectDialogItemText(dial, kDelay3Item, 0, 1024);
return(true);
break;
default:
return(false);
}
break;
case updateEvt:
SetPort((GrafPtr)dial);
BeginUpdate(GetDialogWindow(dial));
UpdateTriggerInfo(dial);
EndUpdate(GetDialogWindow(dial));
event->what = nullEvent;
return(false);
break;
default:
return(false);
break;
}
}
//-------------------------------------------------------------- LightFilter
pascal Boolean LightFilter (DialogPtr dial, EventRecord *event, short *item)
{
switch (event->what)
{
case keyDown:
switch ((event->message) & charCodeMask)
{
case kReturnKeyASCII:
case kEnterKeyASCII:
FlashDialogButton(dial, kOkayButton);
*item = kOkayButton;
return(true);
break;
case kEscapeKeyASCII:
FlashDialogButton(dial, kCancelButton);
*item = kCancelButton;
return(true);
break;
default:
return(false);
}
break;
case mouseDown:
return(false);
break;
case mouseUp:
return(false);
break;
case updateEvt:
SetPort((GrafPtr)dial);
BeginUpdate(GetDialogWindow(dial));
UpdateLightInfo(dial);
EndUpdate(GetDialogWindow(dial));
event->what = nullEvent;
return(false);
break;
default:
return(false);
break;
}
}
//-------------------------------------------------------------- ApplianceFilter
pascal Boolean ApplianceFilter (DialogPtr dial, EventRecord *event, short *item)
{
switch (event->what)
{
case keyDown:
switch ((event->message) & charCodeMask)
{
case kReturnKeyASCII:
case kEnterKeyASCII:
FlashDialogButton(dial, kOkayButton);
*item = kOkayButton;
return(true);
break;
case kEscapeKeyASCII:
FlashDialogButton(dial, kCancelButton);
*item = kCancelButton;
return(true);
break;
case kTabKeyASCII:
SelectDialogItemText(dial, kDelayItem, 0, 1024);
return(true);
break;
default:
return(false);
}
break;
case mouseDown:
return(false);
break;
case mouseUp:
return(false);
break;
case updateEvt:
SetPort((GrafPtr)dial);
BeginUpdate(GetDialogWindow(dial));
UpdateApplianceInfo(dial);
EndUpdate(GetDialogWindow(dial));
event->what = nullEvent;
return(false);
break;
default:
return(false);
break;
}
}
//-------------------------------------------------------------- MicrowaveFilter
pascal Boolean MicrowaveFilter (DialogPtr dial, EventRecord *event, short *item)
{
switch (event->what)
{
case keyDown:
switch ((event->message) & charCodeMask)
{
case kReturnKeyASCII:
case kEnterKeyASCII:
FlashDialogButton(dial, kOkayButton);
*item = kOkayButton;
return(true);
break;
case kEscapeKeyASCII:
FlashDialogButton(dial, kCancelButton);
*item = kCancelButton;
return(true);
break;
default:
return(false);
}
break;
case mouseDown:
return(false);
break;
case mouseUp:
return(false);
break;
case updateEvt:
SetPort((GrafPtr)dial);
BeginUpdate(GetDialogWindow(dial));
UpdateMicrowaveInfo(dial);
EndUpdate(GetDialogWindow(dial));
event->what = nullEvent;
return(false);
break;
default:
return(false);
break;
}
}
//-------------------------------------------------------------- GreaseFilter
pascal Boolean GreaseFilter (DialogPtr dial, EventRecord *event, short *item)
{
switch (event->what)
{
case keyDown:
switch ((event->message) & charCodeMask)
{
case kReturnKeyASCII:
case kEnterKeyASCII:
FlashDialogButton(dial, kOkayButton);
*item = kOkayButton;
return(true);
break;
case kEscapeKeyASCII:
FlashDialogButton(dial, kCancelButton);
*item = kCancelButton;
return(true);
break;
default:
return(false);
}
break;
case updateEvt:
SetPort((GrafPtr)dial);
BeginUpdate(GetDialogWindow(dial));
UpdateGreaseInfo(dial);
EndUpdate(GetDialogWindow(dial));
event->what = nullEvent;
return(false);
break;
default:
return(false);
break;
}
}
//-------------------------------------------------------------- InvisBonusFilter
pascal Boolean InvisBonusFilter (DialogPtr dial, EventRecord *event, short *item)
{
switch (event->what)
{
case keyDown:
switch ((event->message) & charCodeMask)
{
case kReturnKeyASCII:
case kEnterKeyASCII:
FlashDialogButton(dial, kOkayButton);
*item = kOkayButton;
return(true);
break;
default:
return(false);
}
break;
case updateEvt:
SetPort((GrafPtr)dial);
BeginUpdate(GetDialogWindow(dial));
UpdateInvisBonusInfo(dial);
EndUpdate(GetDialogWindow(dial));
event->what = nullEvent;
return(false);
break;
default:
return(false);
break;
}
}
//-------------------------------------------------------------- TransFilter
pascal Boolean TransFilter (DialogPtr dial, EventRecord *event, short *item)
{
switch (event->what)
{
case keyDown:
switch ((event->message) & charCodeMask)
{
case kReturnKeyASCII:
case kEnterKeyASCII:
FlashDialogButton(dial, kOkayButton);
*item = kOkayButton;
return(true);
break;
case kEscapeKeyASCII:
FlashDialogButton(dial, kCancelButton);
*item = kCancelButton;
return(true);
break;
default:
return(false);
}
break;
case updateEvt:
SetPort((GrafPtr)dial);
BeginUpdate(GetDialogWindow(dial));
UpdateTransInfo(dial);
EndUpdate(GetDialogWindow(dial));
event->what = nullEvent;
return(false);
break;
default:
return(false);
break;
}
}
//-------------------------------------------------------------- EnemyFilter
pascal Boolean EnemyFilter (DialogPtr dial, EventRecord *event, short *item)
{
switch (event->what)
{
case keyDown:
switch ((event->message) & charCodeMask)
{
case kReturnKeyASCII:
case kEnterKeyASCII:
FlashDialogButton(dial, kOkayButton);
*item = kOkayButton;
return(true);
break;
case kEscapeKeyASCII:
FlashDialogButton(dial, kCancelButton);
*item = kCancelButton;
return(true);
break;
case kTabKeyASCII:
SelectDialogItemText(dial, kDelay2Item, 0, 1024);
return(true);
break;
default:
return(false);
}
break;
case mouseDown:
return(false);
break;
case mouseUp:
return(false);
break;
case updateEvt:
SetPort((GrafPtr)dial);
BeginUpdate(GetDialogWindow(dial));
UpdateEnemyInfo(dial);
EndUpdate(GetDialogWindow(dial));
event->what = nullEvent;
return(false);
break;
default:
return(false);
break;
}
}
//-------------------------------------------------------------- EnemyFilter
pascal Boolean FlowerFilter (DialogPtr dial, EventRecord *event, short *item)
{
switch (event->what)
{
case keyDown:
switch ((event->message) & charCodeMask)
{
case kReturnKeyASCII:
case kEnterKeyASCII:
FlashDialogButton(dial, kOkayButton);
*item = kOkayButton;
return(true);
break;
case kEscapeKeyASCII:
FlashDialogButton(dial, kCancelButton);
*item = kCancelButton;
return(true);
break;
default:
return(false);
}
break;
case mouseDown:
return(false);
break;
case mouseUp:
return(false);
break;
case updateEvt:
SetPort((GrafPtr)dial);
BeginUpdate(GetDialogWindow(dial));
UpdateFlowerInfo(dial);
EndUpdate(GetDialogWindow(dial));
event->what = nullEvent;
return(false);
break;
default:
return(false);
break;
}
}
//-------------------------------------------------------------- DoBlowerObjectInfo
void DoBlowerObjectInfo (short what)
{
DialogPtr infoDial;
Str255 numberStr, kindStr, distStr;
short item, initial;
Boolean leaving, doReturn, leftFacing;
ModalFilterUPP blowerFilterUPP;
blowerFilterUPP = NewModalFilterUPP(BlowerFilter);
NumToString(objActive + 1, numberStr);
GetIndString(kindStr, kObjectNameStrings, thisRoom->objects[objActive].what);
NumToString(thisRoom->objects[objActive].data.a.distance, distStr);
ParamText(numberStr, kindStr, distStr, "\p");
// CenterDialog(kBlowerInfoDialogID);
infoDial = GetNewDialog(kBlowerInfoDialogID, nil, kPutInFront);
if (infoDial == nil)
RedAlert(kErrDialogDidntLoad);
SetPort((GrafPtr)infoDial);
newDirection = thisRoom->objects[objActive].data.a.vector & 0x0F;
if (thisRoom->objects[objActive].data.a.initial)
SetDialogItemValue(infoDial, kInitialStateCheckbox, 1);
else
SetDialogItemValue(infoDial, kInitialStateCheckbox, 0);
if ((what == kTaper) || (what == kCandle) || (what == kStubby) ||
(what == kTiki) || (what == kBBQ))
{
HideDialogItem(infoDial, kInitialStateCheckbox);
}
if ((what == kLeftFan) || (what == kRightFan))
{
if (what == kLeftFan)
{
SelectFromRadioGroup(infoDial, kLeftFacingRadio,
kLeftFacingRadio, kRightFacingRadio);
leftFacing = true;
}
else
{
SelectFromRadioGroup(infoDial, kRightFacingRadio,
kLeftFacingRadio, kRightFacingRadio);
leftFacing = false;
}
HideDialogItem(infoDial, kDirectionText);
}
else
{
HideDialogItem(infoDial, kLeftFacingRadio);
HideDialogItem(infoDial, kRightFacingRadio);
}
if (retroLinkList[objActive].room == -1)
HideDialogItem(infoDial, 15);
ShowWindow(GetDialogWindow(infoDial));
leaving = false;
doReturn = false;
while (!leaving)
{
ModalDialog(blowerFilterUPP, &item);
if (item == kOkayButton)
{
GetDialogItemValue(infoDial, kInitialStateCheckbox, &initial);
if (initial == 1)
thisRoom->objects[objActive].data.a.initial = true;
else
thisRoom->objects[objActive].data.a.initial = false;
thisRoom->objects[objActive].data.a.vector = (Byte)newDirection;
if ((what == kLeftFan) || (what == kRightFan))
{
if (leftFacing)
thisRoom->objects[objActive].what = kLeftFan;
else
thisRoom->objects[objActive].what = kRightFan;
if (KeepObjectLegal())
{
}
InvalWindowRect(mainWindow, &mainWindowRect);
GetThisRoomsObjRects();
ReadyBackground(thisRoom->background, thisRoom->tiles);
DrawThisRoomsObjects();
}
fileDirty = true;
UpdateMenus(false);
leaving = true;
}
else if (item == kCancelButton)
leaving = true;
else if (item == kInitialStateCheckbox)
ToggleDialogItemValue(infoDial, kInitialStateCheckbox);
else if (item == 15) // Linked From? button.
{
GetDialogItemValue(infoDial, kInitialStateCheckbox, &initial);
if (initial == 1)
thisRoom->objects[objActive].data.a.initial = true;
else
thisRoom->objects[objActive].data.a.initial = false;
thisRoom->objects[objActive].data.a.vector = (Byte)newDirection;
if ((what == kLeftFan) || (what == kRightFan))
{
if (leftFacing)
thisRoom->objects[objActive].what = kLeftFan;
else
thisRoom->objects[objActive].what = kRightFan;
if (KeepObjectLegal())
{
}
InvalWindowRect(mainWindow, &mainWindowRect);
GetThisRoomsObjRects();
ReadyBackground(thisRoom->background, thisRoom->tiles);
DrawThisRoomsObjects();
}
fileDirty = true;
UpdateMenus(false);
leaving = true;
doReturn = true;
}
else if (item == kLeftFacingRadio)
{
leftFacing = true;
SelectFromRadioGroup(infoDial, kLeftFacingRadio, kLeftFacingRadio,
kRightFacingRadio);
}
else if (item == kRightFacingRadio)
{
leftFacing = false;
SelectFromRadioGroup(infoDial, kRightFacingRadio, kLeftFacingRadio,
kRightFacingRadio);
}
else if ((thisRoom->objects[objActive].what == kInvisBlower) ||
(thisRoom->objects[objActive].what == kLiftArea))
{
switch (item)
{
case 11:
newDirection = 0x01;
break;
case 12:
newDirection = 0x02;
break;
case 13:
newDirection = 0x04;
break;
case 14:
newDirection = 0x08;
break;
}
UpdateBlowerInfo(infoDial);
}
}
DisposeDialog(infoDial);
DisposeModalFilterUPP(blowerFilterUPP);
if (doReturn)
{
GoToObjectInRoomNum(retroLinkList[objActive].object,
retroLinkList[objActive].room);
}
}
//-------------------------------------------------------------- DoFurnitureObjectInfo
void DoFurnitureObjectInfo (void)
{
DialogPtr infoDial;
Str255 numberStr, kindStr;
short item;
Boolean leaving, doReturn;
ModalFilterUPP furnitureFilterUPP;
furnitureFilterUPP = NewModalFilterUPP(FurnitureFilter);
if (objActive == kInitialGliderSelected)
{
PasStringCopy("\p-", numberStr);
PasStringCopy("\pGlider Begins", kindStr);
}
else if (objActive == kLeftGliderSelected)
{
PasStringCopy("\p-", numberStr);
PasStringCopy("\pNew Glider (left)", kindStr);
}
else if (objActive == kRightGliderSelected)
{
PasStringCopy("\p-", numberStr);
PasStringCopy("\pNew Glider (right)", kindStr);
}
else
{
NumToString(objActive + 1, numberStr);
GetIndString(kindStr, kObjectNameStrings, thisRoom->objects[objActive].what);
}
ParamText(numberStr, kindStr, "\p", "\p");
BringUpDialog(&infoDial, kFurnitureInfoDialogID);
if ((objActive < 0) || (retroLinkList[objActive].room == -1))
HideDialogItem(infoDial, 6);
leaving = false;
doReturn = false;
while (!leaving)
{
ModalDialog(furnitureFilterUPP, &item);
if (item == kOkayButton)
leaving = true;
else if (item == 6) // Linked From? button.
{
leaving = true;
doReturn = true;
}
}
DisposeDialog(infoDial);
DisposeModalFilterUPP(furnitureFilterUPP);
if (doReturn)
{
GoToObjectInRoomNum(retroLinkList[objActive].object,
retroLinkList[objActive].room);
}
}
//-------------------------------------------------------------- DoCustPictObjectInfo
void DoCustPictObjectInfo (void)
{
DialogPtr infoDial;
Str255 numberStr, kindStr;
long wasPict;
short item;
Boolean leaving;
ModalFilterUPP custPictFilterUPP;
custPictFilterUPP = NewModalFilterUPP(CustPictFilter);
NumToString(objActive + 1, numberStr);
GetIndString(kindStr, kObjectNameStrings, thisRoom->objects[objActive].what);
if (thisRoom->objects[objActive].what == kCustomPict)
ParamText(numberStr, kindStr, "\pPICT", "\p10000");
else
ParamText(numberStr, kindStr, "\pSound", "\p3000");
BringUpDialog(&infoDial, kCustPictInfoDialogID);
if (thisRoom->objects[objActive].what == kCustomPict)
{
wasPict = (long)(thisRoom->objects[objActive].data.g.height);
SetDialogNumToStr(infoDial, kCustPictIDItem, wasPict);
}
else
{
wasPict = (long)(thisRoom->objects[objActive].data.e.where);
SetDialogNumToStr(infoDial, kCustPictIDItem, wasPict);
}
SelectDialogItemText(infoDial, kCustPictIDItem, 0, 1024);
leaving = false;
while (!leaving)
{
ModalDialog(custPictFilterUPP, &item);
if (item == kOkayButton)
{
GetDialogNumFromStr(infoDial, kCustPictIDItem, &wasPict);
if (thisRoom->objects[objActive].what == kCustomPict)
{
if ((wasPict < 10000L) || (wasPict > 32767L))
{
SysBeep(1);
wasPict = (long)(thisRoom->objects[objActive].data.g.height);
SetDialogNumToStr(infoDial, kCustPictIDItem, wasPict);
SelectDialogItemText(infoDial, kCustPictIDItem, 0, 1024);
}
else
{
thisRoom->objects[objActive].data.g.height = (short)wasPict;
if (KeepObjectLegal())
{
}
fileDirty = true;
UpdateMenus(false);
InvalWindowRect(mainWindow, &mainWindowRect);
GetThisRoomsObjRects();
ReadyBackground(thisRoom->background, thisRoom->tiles);
DrawThisRoomsObjects();
leaving = true;
}
}
else
{
if ((wasPict < 3000L) || (wasPict > 32767L))
{
SysBeep(1);
wasPict = (long)(thisRoom->objects[objActive].data.e.where);
SetDialogNumToStr(infoDial, kCustPictIDItem, wasPict);
SelectDialogItemText(infoDial, kCustPictIDItem, 0, 1024);
}
else
{
thisRoom->objects[objActive].data.e.where = (short)wasPict;
fileDirty = true;
UpdateMenus(false);
InvalWindowRect(mainWindow, &mainWindowRect);
GetThisRoomsObjRects();
ReadyBackground(thisRoom->background, thisRoom->tiles);
DrawThisRoomsObjects();
leaving = true;
}
}
}
else if (item == kCancelButton)
{
leaving = true;
}
}
DisposeDialog(infoDial);
DisposeModalFilterUPP(custPictFilterUPP);
}
//-------------------------------------------------------------- DoSwitchObjectInfo
void DoSwitchObjectInfo (void)
{
DialogPtr infoDial;
Str255 numberStr, kindStr, roomStr, tempStr, objStr;
short item, floor, suite;
Boolean leaving, doLink, doGoTo, doReturn;
ModalFilterUPP switchFilterUPP;
switchFilterUPP = NewModalFilterUPP(SwitchFilter);
NumToString(objActive + 1, numberStr);
GetIndString(kindStr, kObjectNameStrings, thisRoom->objects[objActive].what);
if (thisRoom->objects[objActive].data.e.where == -1)
PasStringCopy("\pnone", roomStr);
else
{
ExtractFloorSuite(thisRoom->objects[objActive].data.e.where, &floor, &suite);
NumToString((long)floor, roomStr);
PasStringConcat(roomStr, "\p / ");
NumToString((long)suite, tempStr);
PasStringConcat(roomStr, tempStr);
}
if (thisRoom->objects[objActive].data.e.who == 255)
PasStringCopy("\pnone", objStr);
else
NumToString((long)thisRoom->objects[objActive].data.e.who + 1, objStr);
ParamText(numberStr, kindStr, roomStr, objStr);
newType = thisRoom->objects[objActive].data.e.type;
BringUpDialog(&infoDial, kSwitchInfoDialogID);
leaving = false;
doLink = false;
doGoTo = false;
doReturn = false;
if (thisRoom->objects[objActive].data.e.who == 255)
MyDisableControl(infoDial, kGotoButton2);
if (retroLinkList[objActive].room == -1)
HideDialogItem(infoDial, 15);
while (!leaving)
{
ModalDialog(switchFilterUPP, &item);
if (item == kOkayButton)
{
thisRoom->objects[objActive].data.e.type = newType;
fileDirty = true;
UpdateMenus(false);
leaving = true;
}
else if (item == kCancelButton)
leaving = true;
else if (item == kToggleRadio)
{
SelectFromRadioGroup(infoDial, item, kToggleRadio, kForceOffRadio);
newType = kToggle;
}
else if (item == kForceOnRadio)
{
SelectFromRadioGroup(infoDial, item, kToggleRadio, kForceOffRadio);
newType = kForceOn;
}
else if (item == kForceOffRadio)
{
SelectFromRadioGroup(infoDial, item, kToggleRadio, kForceOffRadio);
newType = kForceOff;
}
else if (item == 9)
{
thisRoom->objects[objActive].data.e.type = newType;
fileDirty = true;
UpdateMenus(false);
leaving = true;
doLink = true;
}
else if (item == kGotoButton2)
{
thisRoom->objects[objActive].data.e.type = newType;
fileDirty = true;
UpdateMenus(false);
leaving = true;
doGoTo = true;
}
else if (item == 15) // Linked From? button.
{
thisRoom->objects[objActive].data.e.type = newType;
fileDirty = true;
UpdateMenus(false);
leaving = true;
doReturn = true;
}
}
DisposeDialog(infoDial);
DisposeModalFilterUPP(switchFilterUPP);
if (doLink)
{
linkType = kSwitchLinkOnly;
linkerIsSwitch = true;
OpenLinkWindow();
linkRoom = thisRoomNumber;
linkObject = (Byte)objActive;
DeselectObject();
}
else if (doGoTo)
{
GoToObjectInRoom((short)thisRoom->objects[objActive].data.e.who, floor, suite);
}
else if (doReturn)
{
GoToObjectInRoomNum(retroLinkList[objActive].object,
retroLinkList[objActive].room);
}
}
//-------------------------------------------------------------- DoTriggerObjectInfo
void DoTriggerObjectInfo (void)
{
DialogPtr infoDial;
Str255 numberStr, kindStr, roomStr, tempStr, objStr;
long delayIs;
short item, floor, suite;
Boolean leaving, doLink, doGoTo, doReturn;
ModalFilterUPP triggerFilterUPP;
triggerFilterUPP = NewModalFilterUPP(TriggerFilter);
NumToString(objActive + 1, numberStr);
GetIndString(kindStr, kObjectNameStrings, thisRoom->objects[objActive].what);
if (thisRoom->objects[objActive].data.e.where == -1)
PasStringCopy("\pnone", roomStr);
else
{
ExtractFloorSuite(thisRoom->objects[objActive].data.e.where, &floor, &suite);
NumToString((long)floor, roomStr);
PasStringConcat(roomStr, "\p / ");
NumToString((long)suite, tempStr);
PasStringConcat(roomStr, tempStr);
}
if (thisRoom->objects[objActive].data.e.who == 255)
PasStringCopy("\pnone", objStr);
else
NumToString((long)thisRoom->objects[objActive].data.e.who + 1, objStr);
ParamText(numberStr, kindStr, roomStr, objStr);
newType = thisRoom->objects[objActive].data.e.type;
BringUpDialog(&infoDial, kTriggerInfoDialogID);
leaving = false;
doLink = false;
doGoTo = false;
doReturn = false;
if (retroLinkList[objActive].room == -1)
HideDialogItem(infoDial, 15);
if (thisRoom->objects[objActive].data.e.who == 255)
MyDisableControl(infoDial, kGotoButton2);
SetDialogNumToStr(infoDial, kDelay3Item,
(long)thisRoom->objects[objActive].data.e.delay);
SelectDialogItemText(infoDial, kDelay3Item, 0, 1024);
while (!leaving)
{
ModalDialog(triggerFilterUPP, &item);
if (item == kOkayButton)
{
GetDialogNumFromStr(infoDial, kDelay3Item, &delayIs);
if ((delayIs < 0L) || (delayIs > 32767L))
{
SysBeep(1);
SetDialogNumToStr(infoDial, kDelay3Item,
(long)thisRoom->objects[objActive].data.e.delay);
SelectDialogItemText(infoDial, kDelay3Item, 0, 1024);
}
else
{
thisRoom->objects[objActive].data.e.delay = (short)delayIs;
fileDirty = true;
UpdateMenus(false);
leaving = true;
}
}
else if (item == kCancelButton)
leaving = true;
else if (item == 9)
{
GetDialogNumFromStr(infoDial, kDelay3Item, &delayIs);
if ((delayIs < 0L) || (delayIs > 32767L))
{
SysBeep(1);
SetDialogNumToStr(infoDial, kDelay3Item,
(long)thisRoom->objects[objActive].data.e.delay);
SelectDialogItemText(infoDial, kDelay3Item, 0, 1024);
}
else
{
thisRoom->objects[objActive].data.e.delay = (short)delayIs;
fileDirty = true;
UpdateMenus(false);
leaving = true;
doLink = true;
}
}
else if (item == kGotoButton2)
{
GetDialogNumFromStr(infoDial, kDelay3Item, &delayIs);
if ((delayIs < 0L) || (delayIs > 32767L))
{
SysBeep(1);
SetDialogNumToStr(infoDial, kDelay3Item,
(long)thisRoom->objects[objActive].data.e.delay);
SelectDialogItemText(infoDial, kDelay3Item, 0, 1024);
}
else
{
thisRoom->objects[objActive].data.e.delay = (short)delayIs;
fileDirty = true;
UpdateMenus(false);
leaving = true;
doGoTo = true;
}
}
else if (item == 15) // Linked From? button.
{
GetDialogNumFromStr(infoDial, kDelay3Item, &delayIs);
if ((delayIs < 0L) || (delayIs > 32767L))
{
SysBeep(1);
SetDialogNumToStr(infoDial, kDelay3Item,
(long)thisRoom->objects[objActive].data.e.delay);
SelectDialogItemText(infoDial, kDelay3Item, 0, 1024);
}
else
{
thisRoom->objects[objActive].data.e.delay = (short)delayIs;
fileDirty = true;
UpdateMenus(false);
leaving = true;
doReturn = true;
}
}
}
DisposeDialog(infoDial);
DisposeModalFilterUPP(triggerFilterUPP);
if (doLink)
{
linkType = kTriggerLinkOnly;
linkerIsSwitch = true;
OpenLinkWindow();
linkRoom = thisRoomNumber;
linkObject = (Byte)objActive;
DeselectObject();
}
else if (doGoTo)
{
GoToObjectInRoom((short)thisRoom->objects[objActive].data.e.who, floor, suite);
}
else if (doReturn)
{
GoToObjectInRoomNum(retroLinkList[objActive].object,
retroLinkList[objActive].room);
}
}
//-------------------------------------------------------------- DoLightObjectInfo
void DoLightObjectInfo (void)
{
DialogPtr infoDial;
Str255 numberStr, kindStr;
short item, initial;
Boolean leaving, doReturn;
ModalFilterUPP lightFilterUPP;
lightFilterUPP = NewModalFilterUPP(LightFilter);
NumToString(objActive + 1, numberStr);
GetIndString(kindStr, kObjectNameStrings, thisRoom->objects[objActive].what);
ParamText(numberStr, kindStr, "\p", "\p");
// CenterDialog(kLightInfoDialogID);
infoDial = GetNewDialog(kLightInfoDialogID, nil, kPutInFront);
if (infoDial == nil)
RedAlert(kErrDialogDidntLoad);
SetPort((GrafPtr)infoDial);
if (thisRoom->objects[objActive].data.f.initial)
SetDialogItemValue(infoDial, kInitialStateCheckbox, 1);
else
SetDialogItemValue(infoDial, kInitialStateCheckbox, 0);
if (retroLinkList[objActive].room == -1)
HideDialogItem(infoDial, 8);
ShowWindow(GetDialogWindow(infoDial));
leaving = false;
doReturn = false;
while (!leaving)
{
ModalDialog(lightFilterUPP, &item);
if (item == kOkayButton)
{
GetDialogItemValue(infoDial, kInitialStateCheckbox, &initial);
if (initial == 1)
thisRoom->objects[objActive].data.f.initial = true;
else
thisRoom->objects[objActive].data.f.initial = false;
ReadyBackground(thisRoom->background, thisRoom->tiles);
DrawThisRoomsObjects();
InvalWindowRect(mainWindow, &mainWindowRect);
fileDirty = true;
UpdateMenus(false);
leaving = true;
}
else if (item == kCancelButton)
leaving = true;
else if (item == kInitialStateCheckbox)
ToggleDialogItemValue(infoDial, kInitialStateCheckbox);
else if (item == 8) // Linked From? button.
{
GetDialogItemValue(infoDial, kInitialStateCheckbox, &initial);
if (initial == 1)
thisRoom->objects[objActive].data.f.initial = true;
else
thisRoom->objects[objActive].data.f.initial = false;
ReadyBackground(thisRoom->background, thisRoom->tiles);
DrawThisRoomsObjects();
InvalWindowRect(mainWindow, &mainWindowRect);
fileDirty = true;
UpdateMenus(false);
leaving = true;
doReturn = true;
}
}
DisposeDialog(infoDial);
DisposeModalFilterUPP(lightFilterUPP);
if (doReturn)
{
GoToObjectInRoomNum(retroLinkList[objActive].object,
retroLinkList[objActive].room);
}
}
//-------------------------------------------------------------- DoApplianceObjectInfo
void DoApplianceObjectInfo (short what)
{
DialogPtr infoDial;
Str255 numberStr, kindStr;
long delay;
short item, initial;
Boolean leaving, doReturn;
ModalFilterUPP applianceFilterUPP;
applianceFilterUPP = NewModalFilterUPP(ApplianceFilter);
NumToString(objActive + 1, numberStr);
GetIndString(kindStr, kObjectNameStrings, thisRoom->objects[objActive].what);
ParamText(numberStr, kindStr, "\p", "\p");
BringUpDialog(&infoDial, kApplianceInfoDialogID);
if (retroLinkList[objActive].room == -1)
HideDialogItem(infoDial, 10);
if (thisRoom->objects[objActive].data.g.initial)
SetDialogItemValue(infoDial, kInitialStateCheckbox, 1);
else
SetDialogItemValue(infoDial, kInitialStateCheckbox, 0);
if ((what == kShredder) || (what == kMacPlus) || (what == kTV) ||
(what == kCoffee) || (what == kVCR) || (what == kMicrowave))
{
HideDialogItem(infoDial, kDelayItem);
HideDialogItem(infoDial, kDelayLabelItem);
}
delay = thisRoom->objects[objActive].data.g.delay;
SetDialogNumToStr(infoDial, kDelayItem, (long)delay);
SelectDialogItemText(infoDial, kDelayItem, 0, 1024);
leaving = false;
doReturn = false;
while (!leaving)
{
ModalDialog(applianceFilterUPP, &item);
if (item == kOkayButton)
{
GetDialogNumFromStr(infoDial, kDelayItem, &delay);
if ((delay < 0L) || (delay > 255L))
{
SysBeep(0);
delay = thisRoom->objects[objActive].data.g.delay;
SetDialogNumToStr(infoDial, kDelayItem, (long)delay);
SelectDialogItemText(infoDial, kDelayItem, 0, 1024);
}
else
{
thisRoom->objects[objActive].data.g.delay = (Byte)delay;
GetDialogItemValue(infoDial, kInitialStateCheckbox, &initial);
if (initial == 1)
thisRoom->objects[objActive].data.g.initial = true;
else
thisRoom->objects[objActive].data.g.initial = false;
fileDirty = true;
UpdateMenus(false);
InvalWindowRect(mainWindow, &mainWindowRect);
GetThisRoomsObjRects();
ReadyBackground(thisRoom->background, thisRoom->tiles);
DrawThisRoomsObjects();
leaving = true;
}
}
else if (item == kCancelButton)
leaving = true;
else if (item == kInitialStateCheckbox)
ToggleDialogItemValue(infoDial, kInitialStateCheckbox);
else if (item == 10) // Linked From? button.
{
GetDialogNumFromStr(infoDial, kDelayItem, &delay);
if ((delay < 0L) || (delay > 255L))
{
SysBeep(0);
delay = thisRoom->objects[objActive].data.g.delay;
SetDialogNumToStr(infoDial, kDelayItem, (long)delay);
SelectDialogItemText(infoDial, kDelayItem, 0, 1024);
}
else
{
thisRoom->objects[objActive].data.g.delay = (Byte)delay;
GetDialogItemValue(infoDial, kInitialStateCheckbox, &initial);
if (initial == 1)
thisRoom->objects[objActive].data.g.initial = true;
else
thisRoom->objects[objActive].data.g.initial = false;
fileDirty = true;
UpdateMenus(false);
InvalWindowRect(mainWindow, &mainWindowRect);
GetThisRoomsObjRects();
ReadyBackground(thisRoom->background, thisRoom->tiles);
DrawThisRoomsObjects();
leaving = true;
doReturn = true;
}
}
}
DisposeDialog(infoDial);
DisposeModalFilterUPP(applianceFilterUPP);
if (doReturn)
{
GoToObjectInRoomNum(retroLinkList[objActive].object,
retroLinkList[objActive].room);
}
}
//-------------------------------------------------------------- DoMicrowaveObjectInfo
void DoMicrowaveObjectInfo (void)
{
DialogPtr infoDial;
Str255 numberStr, kindStr;
short item, initial, kills;
Boolean leaving, doReturn;
ModalFilterUPP microwaveFilterUPP;
microwaveFilterUPP = NewModalFilterUPP(MicrowaveFilter);
NumToString(objActive + 1, numberStr);
GetIndString(kindStr, kObjectNameStrings, thisRoom->objects[objActive].what);
ParamText(numberStr, kindStr, "\p", "\p");
BringUpDialog(&infoDial, kMicrowaveInfoDialogID);
if (retroLinkList[objActive].room == -1)
HideDialogItem(infoDial, 11);
if (thisRoom->objects[objActive].data.g.initial)
SetDialogItemValue(infoDial, kInitialStateCheckbox, 1);
else
SetDialogItemValue(infoDial, kInitialStateCheckbox, 0);
kills = (short)thisRoom->objects[objActive].data.g.byte0;
if ((kills & 0x0001) == 0x0001)
SetDialogItemValue(infoDial, kKillBandsCheckbox, 1);
else
SetDialogItemValue(infoDial, kKillBandsCheckbox, 0);
if ((kills & 0x0002) == 0x0002)
SetDialogItemValue(infoDial, kKillBatteryCheckbox, 1);
else
SetDialogItemValue(infoDial, kKillBatteryCheckbox, 0);
if ((kills & 0x0004) == 0x0004)
SetDialogItemValue(infoDial, kKillFoilCheckbox, 1);
else
SetDialogItemValue(infoDial, kKillFoilCheckbox, 0);
leaving = false;
doReturn = false;
while (!leaving)
{
ModalDialog(microwaveFilterUPP, &item);
if (item == kOkayButton)
{
GetDialogItemValue(infoDial, kInitialStateCheckbox, &initial);
if (initial == 1)
thisRoom->objects[objActive].data.g.initial = true;
else
thisRoom->objects[objActive].data.g.initial = false;
kills = 0;
GetDialogItemValue(infoDial, kKillBandsCheckbox, &initial);
if (initial == 1)
kills += 1;
GetDialogItemValue(infoDial, kKillBatteryCheckbox, &initial);
if (initial == 1)
kills += 2;
GetDialogItemValue(infoDial, kKillFoilCheckbox, &initial);
if (initial == 1)
kills += 4;
thisRoom->objects[objActive].data.g.byte0 = (Byte)kills;
fileDirty = true;
UpdateMenus(false);
InvalWindowRect(mainWindow, &mainWindowRect);
GetThisRoomsObjRects();
ReadyBackground(thisRoom->background, thisRoom->tiles);
DrawThisRoomsObjects();
leaving = true;
}
else if (item == kCancelButton)
leaving = true;
else if (item == kInitialStateCheckbox)
ToggleDialogItemValue(infoDial, kInitialStateCheckbox);
else if (item == kKillBandsCheckbox)
ToggleDialogItemValue(infoDial, kKillBandsCheckbox);
else if (item == kKillBatteryCheckbox)
ToggleDialogItemValue(infoDial, kKillBatteryCheckbox);
else if (item == kKillFoilCheckbox)
ToggleDialogItemValue(infoDial, kKillFoilCheckbox);
else if (item == 11) // Linked From? button.
{
GetDialogItemValue(infoDial, kInitialStateCheckbox, &initial);
if (initial == 1)
thisRoom->objects[objActive].data.g.initial = true;
else
thisRoom->objects[objActive].data.g.initial = false;
kills = 0;
GetDialogItemValue(infoDial, kKillBandsCheckbox, &initial);
if (initial == 1)
kills += 1;
GetDialogItemValue(infoDial, kKillBatteryCheckbox, &initial);
if (initial == 1)
kills += 2;
GetDialogItemValue(infoDial, kKillFoilCheckbox, &initial);
if (initial == 1)
kills += 4;
thisRoom->objects[objActive].data.g.byte0 = (Byte)kills;
fileDirty = true;
UpdateMenus(false);
InvalWindowRect(mainWindow, &mainWindowRect);
GetThisRoomsObjRects();
ReadyBackground(thisRoom->background, thisRoom->tiles);
DrawThisRoomsObjects();
leaving = true;
doReturn = true;
}
}
DisposeDialog(infoDial);
DisposeModalFilterUPP(microwaveFilterUPP);
if (doReturn)
{
GoToObjectInRoomNum(retroLinkList[objActive].object,
retroLinkList[objActive].room);
}
}
//-------------------------------------------------------------- DoGreaseObjectInfo
void DoGreaseObjectInfo (void)
{
DialogPtr infoDial;
Str255 numberStr, kindStr;
short item;
Boolean leaving, wasSpilled, doReturn;
ModalFilterUPP greaseFilterUPP;
greaseFilterUPP = NewModalFilterUPP(GreaseFilter);
NumToString(objActive + 1, numberStr);
GetIndString(kindStr, kObjectNameStrings, thisRoom->objects[objActive].what);
ParamText(numberStr, kindStr, "\p", "\p");
BringUpDialog(&infoDial, kGreaseInfoDialogID);
if (retroLinkList[objActive].room == -1)
HideDialogItem(infoDial, 8);
wasSpilled = !(thisRoom->objects[objActive].data.c.initial);
SetDialogItemValue(infoDial, kGreaseItem, (short)wasSpilled);
leaving = false;
doReturn = false;
while (!leaving)
{
ModalDialog(greaseFilterUPP, &item);
if (item == kOkayButton)
{
thisRoom->objects[objActive].data.c.initial = !wasSpilled;
fileDirty = true;
UpdateMenus(false);
InvalWindowRect(mainWindow, &mainWindowRect);
GetThisRoomsObjRects();
ReadyBackground(thisRoom->background, thisRoom->tiles);
DrawThisRoomsObjects();
leaving = true;
}
else if (item == kCancelButton)
{
leaving = true;
}
else if (item == kGreaseItem)
{
wasSpilled = !wasSpilled;
SetDialogItemValue(infoDial, kGreaseItem, (short)wasSpilled);
}
else if (item == 8) // Linked From? button.
{
thisRoom->objects[objActive].data.c.initial = !wasSpilled;
fileDirty = true;
UpdateMenus(false);
InvalWindowRect(mainWindow, &mainWindowRect);
GetThisRoomsObjRects();
ReadyBackground(thisRoom->background, thisRoom->tiles);
DrawThisRoomsObjects();
leaving = true;
doReturn = true;
}
}
DisposeDialog(infoDial);
DisposeModalFilterUPP(greaseFilterUPP);
if (doReturn)
{
GoToObjectInRoomNum(retroLinkList[objActive].object,
retroLinkList[objActive].room);
}
}
//-------------------------------------------------------------- DoInvisBonusObjectInfo
void DoInvisBonusObjectInfo (void)
{
DialogPtr infoDial;
Str255 numberStr, kindStr;
short item;
Boolean leaving, doReturn;
ModalFilterUPP invisBonusFilterUPP;
invisBonusFilterUPP = NewModalFilterUPP(InvisBonusFilter);
NumToString(objActive + 1, numberStr);
GetIndString(kindStr, kObjectNameStrings, thisRoom->objects[objActive].what);
ParamText(numberStr, kindStr, "\p", "\p");
switch (thisRoom->objects[objActive].data.c.points)
{
case 300:
newPoint = 1;
break;
case 500:
newPoint = 2;
break;
default:
newPoint = 0;
break;
}
BringUpDialog(&infoDial, kInvisBonusInfoDialogID);
if (retroLinkList[objActive].room == -1)
HideDialogItem(infoDial, 9);
leaving = false;
doReturn = false;
while (!leaving)
{
ModalDialog(invisBonusFilterUPP, &item);
if (item == kOkayButton)
{
switch (newPoint)
{
case 0:
thisRoom->objects[objActive].data.c.points = 100;
break;
case 1:
thisRoom->objects[objActive].data.c.points = 300;
break;
case 2:
thisRoom->objects[objActive].data.c.points = 500;
break;
}
fileDirty = true;
UpdateMenus(false);
leaving = true;
}
else if (item == kCancelButton)
leaving = true;
else if (item == k100PtRadio)
{
SelectFromRadioGroup(infoDial, item, k100PtRadio, k500PtRadio);
newPoint = 0;
}
else if (item == k300PtRadio)
{
SelectFromRadioGroup(infoDial, item, k100PtRadio, k500PtRadio);
newPoint = 1;
}
else if (item == k500PtRadio)
{
SelectFromRadioGroup(infoDial, item, k100PtRadio, k500PtRadio);
newPoint = 2;
}
else if (item == 9) // Linked From? button.
{
switch (newPoint)
{
case 0:
thisRoom->objects[objActive].data.c.points = 100;
break;
case 1:
thisRoom->objects[objActive].data.c.points = 300;
break;
case 2:
thisRoom->objects[objActive].data.c.points = 500;
break;
}
fileDirty = true;
UpdateMenus(false);
leaving = true;
doReturn = true;
}
}
DisposeDialog(infoDial);
DisposeModalFilterUPP(invisBonusFilterUPP);
if (doReturn)
{
GoToObjectInRoomNum(retroLinkList[objActive].object,
retroLinkList[objActive].room);
}
}
//-------------------------------------------------------------- DoTransObjectInfo
void DoTransObjectInfo (short what)
{
DialogPtr infoDial;
Str255 numberStr, kindStr, roomStr, tempStr, objStr;
short item, floor, suite;
Boolean leaving, doLink, doGoTo, doReturn, wasState;
ModalFilterUPP transFilterUPP;
transFilterUPP = NewModalFilterUPP(TransFilter);
NumToString(objActive + 1, numberStr);
GetIndString(kindStr, kObjectNameStrings, thisRoom->objects[objActive].what);
if (thisRoom->objects[objActive].data.d.where == -1)
PasStringCopy("\pnone", roomStr);
else
{
ExtractFloorSuite(thisRoom->objects[objActive].data.d.where, &floor, &suite);
NumToString((long)floor, roomStr);
PasStringConcat(roomStr, "\p / ");
NumToString((long)suite, tempStr);
PasStringConcat(roomStr, tempStr);
}
if (thisRoom->objects[objActive].data.d.who == 255)
PasStringCopy("\pnone", objStr);
else
NumToString((long)thisRoom->objects[objActive].data.d.who + 1, objStr);
ParamText(numberStr, kindStr, roomStr, objStr);
BringUpDialog(&infoDial, kTransInfoDialogID);
if (retroLinkList[objActive].room == -1)
HideDialogItem(infoDial, 12);
if (what != kDeluxeTrans)
HideDialogItem(infoDial, kInitialStateCheckbox3);
else
{
wasState = (thisRoom->objects[objActive].data.d.wide & 0xF0) >> 4;
SetDialogItemValue(infoDial, kInitialStateCheckbox3, (short)wasState);
}
leaving = false;
doLink = false;
doGoTo = false;
doReturn = false;
if (thisRoom->objects[objActive].data.d.who == 255)
MyDisableControl(infoDial, kGotoButton1);
while (!leaving)
{
ModalDialog(transFilterUPP, &item);
if (item == kOkayButton)
{
if (what == kDeluxeTrans)
thisRoom->objects[objActive].data.d.wide = wasState << 4;
fileDirty = true;
UpdateMenus(false);
leaving = true;
}
else if (item == kCancelButton)
leaving = true;
else if (item == kLinkTransButton)
{
if (what == kDeluxeTrans)
thisRoom->objects[objActive].data.d.wide = wasState << 4;
fileDirty = true;
UpdateMenus(false);
leaving = true;
doLink = true;
}
else if (item == kGotoButton1)
{
if (what == kDeluxeTrans)
thisRoom->objects[objActive].data.d.wide = wasState << 4;
fileDirty = true;
UpdateMenus(false);
leaving = true;
doGoTo = true;
}
else if (item == 12) // Linked From? button.
{
if (what == kDeluxeTrans)
thisRoom->objects[objActive].data.d.wide = wasState << 4;
fileDirty = true;
UpdateMenus(false);
leaving = true;
doReturn = true;
}
else if (item == kInitialStateCheckbox3)
{
wasState = !wasState;
SetDialogItemValue(infoDial, kInitialStateCheckbox3, (short)wasState);
}
}
DisposeDialog(infoDial);
DisposeModalFilterUPP(transFilterUPP);
if (doLink)
{
linkType = kTransportLinkOnly;
linkerIsSwitch = false;
OpenLinkWindow();
linkRoom = thisRoomNumber;
linkObject = (Byte)objActive;
DeselectObject();
}
else if (doGoTo)
{
GoToObjectInRoom((short)thisRoom->objects[objActive].data.d.who, floor, suite);
}
else if (doReturn)
{
GoToObjectInRoomNum(retroLinkList[objActive].object,
retroLinkList[objActive].room);
}
}
//-------------------------------------------------------------- DoEnemyObjectInfo
void DoEnemyObjectInfo (short what)
{
DialogPtr infoDial;
Str255 numberStr, kindStr;
long delay;
short item, initial;
Boolean leaving, doReturn;
ModalFilterUPP enemyFilterUPP;
enemyFilterUPP = NewModalFilterUPP(EnemyFilter);
NumToString(objActive + 1, numberStr);
GetIndString(kindStr, kObjectNameStrings, thisRoom->objects[objActive].what);
ParamText(numberStr, kindStr, "\p", "\p");
BringUpDialog(&infoDial, kEnemyInfoDialogID);
if (retroLinkList[objActive].room == -1)
HideDialogItem(infoDial, 11);
delay = thisRoom->objects[objActive].data.h.delay;
SetDialogNumToStr(infoDial, kDelay2Item, (long)delay);
SelectDialogItemText(infoDial, kDelay2Item, 0, 1024);
if (thisRoom->objects[objActive].data.h.initial)
SetDialogItemValue(infoDial, kInitialStateCheckbox2, 1);
else
SetDialogItemValue(infoDial, kInitialStateCheckbox2, 0);
if (what == kBall)
{
HideDialogItem(infoDial, kDelay2Item);
HideDialogItem(infoDial, 8);
HideDialogItem(infoDial, 9);
}
leaving = false;
doReturn = false;
while (!leaving)
{
ModalDialog(enemyFilterUPP, &item);
if (item == kOkayButton)
{
GetDialogNumFromStr(infoDial, kDelay2Item, &delay);
if (((delay < 0L) || (delay > 255L)) && (what != kBall))
{
SysBeep(0);
delay = thisRoom->objects[objActive].data.h.delay;
SetDialogNumToStr(infoDial, kDelay2Item, (long)delay);
SelectDialogItemText(infoDial, kDelay2Item, 0, 1024);
}
else
{
GetDialogItemValue(infoDial, kInitialStateCheckbox2, &initial);
if (initial == 1)
thisRoom->objects[objActive].data.h.initial = true;
else
thisRoom->objects[objActive].data.h.initial = false;
if (what != kBall)
thisRoom->objects[objActive].data.h.delay = (Byte)delay;
fileDirty = true;
UpdateMenus(false);
leaving = true;
}
}
else if (item == kCancelButton)
leaving = true;
else if (item == kInitialStateCheckbox2)
ToggleDialogItemValue(infoDial, kInitialStateCheckbox2);
else if (item == 11) // Linked From? button.
{
GetDialogNumFromStr(infoDial, kDelay2Item, &delay);
if (((delay < 0L) || (delay > 255L)) && (what != kBall))
{
SysBeep(0);
delay = thisRoom->objects[objActive].data.h.delay;
SetDialogNumToStr(infoDial, kDelay2Item, (long)delay);
SelectDialogItemText(infoDial, kDelay2Item, 0, 1024);
}
else
{
GetDialogItemValue(infoDial, kInitialStateCheckbox2, &initial);
if (initial == 1)
thisRoom->objects[objActive].data.h.initial = true;
else
thisRoom->objects[objActive].data.h.initial = false;
if (what != kBall)
thisRoom->objects[objActive].data.h.delay = (Byte)delay;
fileDirty = true;
UpdateMenus(false);
leaving = true;
doReturn = true;
}
}
}
DisposeDialog(infoDial);
DisposeModalFilterUPP(enemyFilterUPP);
if (doReturn)
{
GoToObjectInRoomNum(retroLinkList[objActive].object,
retroLinkList[objActive].room);
}
}
//-------------------------------------------------------------- DoFlowerObjectInfo
void DoFlowerObjectInfo (void)
{
DialogPtr infoDial;
Str255 numberStr, kindStr;
short item, flower;
Boolean leaving, doReturn;
ModalFilterUPP flowerFilterUPP;
flowerFilterUPP = NewModalFilterUPP(FlowerFilter);
NumToString(objActive + 1, numberStr);
GetIndString(kindStr, kObjectNameStrings, thisRoom->objects[objActive].what);
ParamText(numberStr, kindStr, "\p", "\p");
BringUpDialog(&infoDial, kFlowerInfoDialogID);
if (retroLinkList[objActive].room == -1)
HideDialogItem(infoDial, 13);
flower = thisRoom->objects[objActive].data.i.pict + kRadioFlower1;
SelectFromRadioGroup(infoDial, flower, kRadioFlower1, kRadioFlower6);
leaving = false;
doReturn = false;
while (!leaving)
{
ModalDialog(flowerFilterUPP, &item);
if (item == kOkayButton)
{
flower -= kRadioFlower1;
if (flower != thisRoom->objects[objActive].data.i.pict)
{
InvalWindowRect(mainWindow, &thisRoom->objects[objActive].data.i.bounds);
thisRoom->objects[objActive].data.i.bounds.right =
thisRoom->objects[objActive].data.i.bounds.left +
RectWide(&flowerSrc[flower]);
thisRoom->objects[objActive].data.i.bounds.top =
thisRoom->objects[objActive].data.i.bounds.bottom -
RectTall(&flowerSrc[flower]);
thisRoom->objects[objActive].data.i.pict = flower;
InvalWindowRect(mainWindow, &thisRoom->objects[objActive].data.i.bounds);
GetThisRoomsObjRects();
ReadyBackground(thisRoom->background, thisRoom->tiles);
DrawThisRoomsObjects();
fileDirty = true;
UpdateMenus(false);
wasFlower = flower;
}
leaving = true;
}
else if ((item >= kRadioFlower1) && (item <= kRadioFlower6))
{
flower = item;
SelectFromRadioGroup(infoDial, flower, kRadioFlower1, kRadioFlower6);
}
else if (item == kFlowerCancel)
{
leaving = true;
}
else if (item == 13) // Linked From? button.
{
flower -= kRadioFlower1;
if (flower != thisRoom->objects[objActive].data.i.pict)
{
InvalWindowRect(mainWindow, &thisRoom->objects[objActive].data.i.bounds);
thisRoom->objects[objActive].data.i.bounds.right =
thisRoom->objects[objActive].data.i.bounds.left +
RectWide(&flowerSrc[flower]);
thisRoom->objects[objActive].data.i.bounds.top =
thisRoom->objects[objActive].data.i.bounds.bottom -
RectTall(&flowerSrc[flower]);
thisRoom->objects[objActive].data.i.pict = flower;
InvalWindowRect(mainWindow, &thisRoom->objects[objActive].data.i.bounds);
GetThisRoomsObjRects();
ReadyBackground(thisRoom->background, thisRoom->tiles);
DrawThisRoomsObjects();
fileDirty = true;
UpdateMenus(false);
wasFlower = flower;
}
leaving = true;
doReturn = true;
}
}
DisposeDialog(infoDial);
DisposeModalFilterUPP(flowerFilterUPP);
if (doReturn)
{
GoToObjectInRoomNum(retroLinkList[objActive].object,
retroLinkList[objActive].room);
}
}
//-------------------------------------------------------------- DoObjectInfo
void DoObjectInfo (void)
{
if ((objActive == kInitialGliderSelected) ||
(objActive == kLeftGliderSelected) ||
(objActive == kRightGliderSelected))
{
DoFurnitureObjectInfo();
return;
}
switch (thisRoom->objects[objActive].what)
{
case kFloorVent:
case kCeilingVent:
case kFloorBlower:
case kCeilingBlower:
case kSewerGrate:
case kLeftFan:
case kRightFan:
case kTaper:
case kCandle:
case kStubby:
case kTiki:
case kBBQ:
case kInvisBlower:
case kGrecoVent:
case kSewerBlower:
case kLiftArea:
DoBlowerObjectInfo(thisRoom->objects[objActive].what);
break;
case kTable:
case kShelf:
case kCabinet:
case kFilingCabinet:
case kWasteBasket:
case kMilkCrate:
case kCounter:
case kDresser:
case kDeckTable:
case kStool:
case kTrunk:
case kInvisObstacle:
case kManhole:
case kBooks:
case kInvisBounce:
case kRedClock:
case kBlueClock:
case kYellowClock:
case kCuckoo:
case kPaper:
case kBattery:
case kBands:
case kFoil:
case kStar:
case kSparkle:
case kHelium:
case kSlider:
case kUpStairs:
case kDownStairs:
case kDoorInLf:
case kDoorInRt:
case kDoorExRt:
case kDoorExLf:
case kWindowInLf:
case kWindowInRt:
case kWindowExRt:
case kWindowExLf:
case kCinderBlock:
case kFlowerBox:
case kCDs:
case kGuitar:
case kStereo:
case kCobweb:
case kOzma:
case kMirror:
case kMousehole:
case kFireplace:
case kWallWindow:
case kBear:
case kCalendar:
case kVase1:
case kVase2:
case kBulletin:
case kCloud:
case kFaucet:
case kRug:
case kChimes:
DoFurnitureObjectInfo();
break;
case kGreaseRt:
case kGreaseLf:
DoGreaseObjectInfo();
break;
case kInvisBonus:
DoInvisBonusObjectInfo();
break;
case kMailboxLf:
case kMailboxRt:
case kFloorTrans:
case kCeilingTrans:
case kInvisTrans:
case kDeluxeTrans:
DoTransObjectInfo(thisRoom->objects[objActive].what);
break;
case kLightSwitch:
case kMachineSwitch:
case kThermostat:
case kPowerSwitch:
case kKnifeSwitch:
case kInvisSwitch:
DoSwitchObjectInfo();
break;
case kTrigger:
case kLgTrigger:
DoTriggerObjectInfo();
break;
case kCeilingLight:
case kLightBulb:
case kTableLamp:
case kHipLamp:
case kDecoLamp:
case kFlourescent:
case kTrackLight:
case kInvisLight:
DoLightObjectInfo();
break;
case kShredder:
case kToaster:
case kMacPlus:
case kTV:
case kCoffee:
case kOutlet:
case kVCR:
DoApplianceObjectInfo(thisRoom->objects[objActive].what);
break;
case kMicrowave:
DoMicrowaveObjectInfo();
break;
case kBalloon:
case kCopterLf:
case kCopterRt:
case kDartLf:
case kDartRt:
case kBall:
case kDrip:
case kFish:
DoEnemyObjectInfo(thisRoom->objects[objActive].what);
break;
case kFlower:
DoFlowerObjectInfo();
break;
case kSoundTrigger:
case kCustomPict:
DoCustPictObjectInfo();
break;
default:
SysBeep(1);
break;
}
}
#endif
Reference in New Issue View Git Blame Copy Permalink