251 lines
7.1 KiB
C
251 lines
7.1 KiB
C
|
|
||
|
|
/* COLumn CLaSs struct */
|
||
|
|
typedef struct _colcls
|
||
|
|
{
|
||
|
|
INT tcls; /* class type */
|
||
|
|
INT (FAR *lpfnColProc)();
|
||
|
|
INT ccolDep; /* # of dependent columns */
|
||
|
|
DX dxUp; /* up card offsets */
|
||
|
|
DY dyUp;
|
||
|
|
DX dxDn; /* down card offsets */
|
||
|
|
DY dyDn;
|
||
|
|
INT dcrdUp; /* up # of cards between ofsetting */
|
||
|
|
INT dcrdDn; /* down # of cards between ofsetting */
|
||
|
|
} COLCLS;
|
||
|
|
|
||
|
|
|
||
|
|
/* MOVE struct, only set up while dragging */
|
||
|
|
typedef struct _move
|
||
|
|
{
|
||
|
|
INT icrdSel; /* current card sel */
|
||
|
|
INT ccrdSel; /* # of cards selected */
|
||
|
|
DEL delHit; /* negative of offset from card where mouse hit */
|
||
|
|
BOOL fHdc; /* TRUE if hdc's are allocated */
|
||
|
|
DY dyCol; /* height of col (BUG: can only drag vert cols) */
|
||
|
|
HDC hdcScreen;
|
||
|
|
|
||
|
|
HDC hdcCol; /* the column */
|
||
|
|
HBITMAP hbmColOld; /* original hbm in hdcCol */
|
||
|
|
|
||
|
|
HDC hdcScreenSave; /* save buffer for screen */
|
||
|
|
HBITMAP hbmScreenSaveOld; /* original hbm in hdcScreenSave */
|
||
|
|
|
||
|
|
HDC hdcT;
|
||
|
|
HBITMAP hbmT;
|
||
|
|
INT izip;
|
||
|
|
} MOVE;
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
/* COL struct, this is what a column o' cards is */
|
||
|
|
typedef struct _col
|
||
|
|
{
|
||
|
|
COLCLS *pcolcls; /* class of this instance */
|
||
|
|
INT (FAR *lpfnColProc)(); /* duplicate of fn in colcls struct (for efficiency) */
|
||
|
|
RC rc; /* bounding rectangle of this col */
|
||
|
|
MOVE *pmove; /* move info, only valid while draggin */
|
||
|
|
INT icrdMac;
|
||
|
|
INT icrdMax;
|
||
|
|
CRD rgcrd[1];
|
||
|
|
} COL;
|
||
|
|
|
||
|
|
/* SCOre */
|
||
|
|
typedef INT SCO;
|
||
|
|
|
||
|
|
// Constants - earlier they were generated in the col.msg file.
|
||
|
|
|
||
|
|
#define icolNil -1
|
||
|
|
#define msgcNil 0
|
||
|
|
#define msgcInit 1
|
||
|
|
#define msgcEnd 2
|
||
|
|
#define msgcClearCol 3
|
||
|
|
#define msgcNumCards 4
|
||
|
|
#define msgcHit 5
|
||
|
|
#define msgcSel 6
|
||
|
|
#define msgcEndSel 7
|
||
|
|
#define msgcFlip 8
|
||
|
|
#define msgcInvert 9
|
||
|
|
#define msgcMouseUp 10
|
||
|
|
#define msgcDblClk 11
|
||
|
|
#define msgcRemove 12
|
||
|
|
#define msgcInsert 13
|
||
|
|
#define msgcMove 14
|
||
|
|
#define msgcCopy 15
|
||
|
|
#define msgcValidMove 16
|
||
|
|
#define msgcValidMovePt 17
|
||
|
|
#define msgcRender 18
|
||
|
|
#define msgcPaint 19
|
||
|
|
#define msgcDrawOutline 20
|
||
|
|
#define msgcComputeCrdPos 21
|
||
|
|
#define msgcDragInvert 22
|
||
|
|
#define msgcGetPtInCrd 23
|
||
|
|
#define msgcValidKbdColSel 24
|
||
|
|
#define msgcValidKbdCrdSel 25
|
||
|
|
#define msgcShuffle 26
|
||
|
|
#define msgcAnimate 27
|
||
|
|
#define msgcZip 28
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
#ifdef DEBUG
|
||
|
|
INT SendColMsg(COL *pcol, INT msgc, WPARAM wp1, LPARAM wp2);
|
||
|
|
#else
|
||
|
|
#define SendColMsg(pcol, msgc, wp1, wp2) \
|
||
|
|
(*((pcol)->lpfnColProc))((pcol), (msgc), (wp1), (wp2))
|
||
|
|
#endif
|
||
|
|
INT DefColProc(COL *pcol, INT msgc, WPARAM wp1, LPARAM wp2);
|
||
|
|
VOID OOM( VOID );
|
||
|
|
VOID DrawOutline( PT *, INT, DX, DY );
|
||
|
|
|
||
|
|
/*---------------------------------------------------------------------------
|
||
|
|
--------------------> Message explanations <---------------------
|
||
|
|
|
||
|
|
// WARNING: probably totally out-o-date
|
||
|
|
|
||
|
|
msgcNil:
|
||
|
|
Nil Message, not used
|
||
|
|
wp1: N/A
|
||
|
|
wp2: N/A
|
||
|
|
returns: TRUE
|
||
|
|
|
||
|
|
msgcInit:
|
||
|
|
Sent when a column in created. (currently not used)
|
||
|
|
wp1: N/A
|
||
|
|
wp2: N/A
|
||
|
|
returns TRUE
|
||
|
|
|
||
|
|
msgcEnd:
|
||
|
|
Sent when a column is destroyed. Frees pcol
|
||
|
|
wp1: N/A
|
||
|
|
wp2: N/A
|
||
|
|
returns TRUE
|
||
|
|
|
||
|
|
msgcClearCol:
|
||
|
|
Sent to clear a column of it's cards
|
||
|
|
wp1: N/A
|
||
|
|
wp2: N/A
|
||
|
|
returns TRUE
|
||
|
|
|
||
|
|
msgcHit:
|
||
|
|
Checks if a card is hit by the mouse. pcol->delHit is set to the
|
||
|
|
point where the mouse hit the card relative to the upper right
|
||
|
|
corner of the card. Sets pcol->icrdSel and pcol->ccrdSel
|
||
|
|
wp1: ppt
|
||
|
|
wp2: N/A
|
||
|
|
returns: icrd if hit, icrdNil if no hit. May return icrdEmpty if hit
|
||
|
|
an empty column
|
||
|
|
|
||
|
|
msgcSel:
|
||
|
|
Selects cards in the column for future moves. Sets pcol->icrdSel and
|
||
|
|
pcol->ccrdSel;
|
||
|
|
wp1: icrdFirst, first card to select; icrdEnd selects last card
|
||
|
|
wp2: ccrdSel, # of cards to select; ccrdToEnd selects to end of col
|
||
|
|
returns: TRUE/FALSE
|
||
|
|
|
||
|
|
msgcFlip:
|
||
|
|
Flips cards to fUp
|
||
|
|
wp1: fUp, TRUE if to flip cards up, FALSE to flip down
|
||
|
|
wp2: N/A
|
||
|
|
returns: TRUE/FALSE
|
||
|
|
|
||
|
|
msgcInvert:
|
||
|
|
Inverts order of cards selected in pcol
|
||
|
|
Often used for dealing to discard.
|
||
|
|
wp1: N/A
|
||
|
|
wp2: N/A
|
||
|
|
returns: TRUE/FALSE
|
||
|
|
|
||
|
|
msgcRemove:
|
||
|
|
Removes cards from pcol and places them in pcolTemp (wp1)
|
||
|
|
pcolTemp must be larger than the number of cards selected
|
||
|
|
wp1: pcolTemp, must be of class tcls == tclsTemp
|
||
|
|
wp2: N/A
|
||
|
|
returns: TRUE/FALSE
|
||
|
|
|
||
|
|
msgcInsert:
|
||
|
|
Inserts all cards from pcolSrc into pcol at icrdInsAfter (wp2)
|
||
|
|
pcol must be large enough to accomodate the cards.
|
||
|
|
wp1: pcolTemp, must be of class tcls == tclsTemp
|
||
|
|
wp2: icrdInsAfter, card to insert after. icrdToEnd if append to end of col
|
||
|
|
returns: TRUE/FALSE
|
||
|
|
|
||
|
|
msgcMove:
|
||
|
|
Combines msgcRemove, msgcInsert, and rendering.
|
||
|
|
Moves cards from pcolSrc into pcolDest at icrdInsAfter. Computes new
|
||
|
|
card positions and sends render messages to both columns
|
||
|
|
wp1: pcolSrc
|
||
|
|
wp2: icrdInsAfter, card to insert after. may be '|'ed with flags:
|
||
|
|
icrdInvert : Inverts order of cards
|
||
|
|
returns: TRUE/FALSE
|
||
|
|
|
||
|
|
msgcCopy:
|
||
|
|
Copies pcolSrc into pcol. pcol must be large enough
|
||
|
|
wp1: pcolSrc
|
||
|
|
wp2: fAll, If true then entire structure is copied, else just the cards
|
||
|
|
returns: TRUE/FALSE
|
||
|
|
|
||
|
|
msgcValidMove: ***** MUST BE SUPPLIED BY GAME, NO DEFAULT ACTION ******
|
||
|
|
Determines if a move is valid.
|
||
|
|
wp1: pcolSrc
|
||
|
|
wp2: N/A
|
||
|
|
returns: TRUE/FALSE
|
||
|
|
|
||
|
|
|
||
|
|
msgcValidMovePt:
|
||
|
|
Determines if a card being dragged over a column is a valid move.
|
||
|
|
Sends msgcValidMove if card overlaps
|
||
|
|
wp1: pcolSrc
|
||
|
|
wp2: pptMouse
|
||
|
|
returns: icrdHit/icrdNil
|
||
|
|
|
||
|
|
msgcRender
|
||
|
|
Renders the column starting at icrdFirst
|
||
|
|
wp1: icrdFirst
|
||
|
|
wp2: N/A
|
||
|
|
return: TRUE/FALSE
|
||
|
|
|
||
|
|
msgcPaint:
|
||
|
|
Renders column if it intersects the paint update rect
|
||
|
|
wp1: ppaint, if NULL then renders entire column
|
||
|
|
wp2: N/A
|
||
|
|
returns: TRUE/FALSE
|
||
|
|
|
||
|
|
|
||
|
|
msgcDrawOutline:
|
||
|
|
Draws outline of cards when being dragged by mouse
|
||
|
|
wp1: pptMouse
|
||
|
|
wp2: N/A
|
||
|
|
returns: TRUE/FALSE
|
||
|
|
|
||
|
|
msgcComputeCrdPos:
|
||
|
|
Computes position of cards based on colcls.{dxcrdUp|dxcrdDn|dycrdUp|dycrdDn}
|
||
|
|
wp1: icrdFirst, first card to compute
|
||
|
|
wp2: N/A
|
||
|
|
returns: TRUE
|
||
|
|
|
||
|
|
msgcDragInvert:
|
||
|
|
Inverts the topmost card in the pile
|
||
|
|
wp1: N/A
|
||
|
|
wp2: N/A
|
||
|
|
returns: TRUE/FALSE
|
||
|
|
|
||
|
|
-----------------------------------------------------------------------------*/
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
#define icrdNil 0x1fff
|
||
|
|
#define icrdEmpty 0x1ffe
|
||
|
|
|
||
|
|
#define icrdToEnd 0x1ffd
|
||
|
|
#define ccrdToEnd -2
|
||
|
|
|
||
|
|
#define icrdEnd 0x1ffc
|
||
|
|
|
||
|
|
|
||
|
|
/* special flags |'d with icrd for msgcMove */
|
||
|
|
#define bitFZip 0x2000
|
||
|
|
#define icrdMask 0x1fff
|
||
|
|
|