ftp.nice.ch/pub/next/games/card/Solitaire.2.1.s.tar.gz#/Solitaire.2.1.s/FortyThieves/FTSuitDelegate.m

This is FTSuitDelegate.m in view mode; [Download] [Up]

/* indent:4  tabsize:8  font:fixed-width */


#import "FTSuitDelegate.h"
#import "../Solitaire/Solitaire.h"
#import "../Solitaire/CardSet.subproj/cardset.h"
#import "FortyThieves.h"

@implementation FTSuitDelegate

- setDoubleClickCheck
{
    doubleClickCheck = YES;
    return self;
}


- (BOOL)canAcceptPile:aCardPile from:sender in:aCardPileView
{
    id        droppingCard = [aCardPile cardAt:CS_BOTTOM];
    id        targetCard = [[aCardPileView cardPile] cardAt:CS_TOP];

    if ([aCardPile cardCount] > 1)
    {
        if (doubleClickCheck)
        {
            droppingCard = [aCardPile cardAt:CS_TOP];
            doubleClickCheck = NO;
        }
        else
        {
            return NO;
        }
    }

    doubleClickCheck = NO;
    
    if (targetCard)
    {
        if (([droppingCard suit] == [targetCard suit]) &&
                ([droppingCard value] == [targetCard value] + 1))
        {
            return YES;
        }
    }
    else
    {
        if ([droppingCard value] == CS_ACE)
        {
            return YES;
        }
    }
    return NO;
}


- acceptPile:aCardPile in:aCardPileView
{
    [SolGameController() checkForWin];
    return self;
}

@end

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.