|
|  Letter H
|  Written by Ph.Donsback
|
|
SCRIPT_TYPE 1
|
BEGIN "Letter H"

  FLAGS  ClickFly AnimateFly AutoFly
  PACKS  2 
  WIDTH   5 * CW
  HEIGHT  5 * CH
  ZeroToWin 104 - CARDSIN$2

| Wastes

  FOR pack = 1 TO 2
    STACK
      X pack * CW + CW / 2
      Y CH
      First 1,13
      JoinFrom 1
      JoinOffset 0,1,2,3,4,5,6,7,8,9,10,11,12
      DragUpTo 1
      FLAGS RotateJoin Join____ PaintLast ClickFly
    END
  END

| Foundations

  FOR pack = 0 TO 4
    FOUNDATION
      X 0
      Y pack * CH 
      DEAL 1,1
      DEALCARD cpack + 1
      MAX 8
      FLAGS RotateJoin Join____
      ID 2
    END
  END

  FOR pack = 1 TO 3
    FOUNDATION
      X pack * CW
      Y 2 * CH
      DEAL 1,1
      DEALCARD cpack + 5
      MAX 8
      FLAGS RotateJoin Join____
      ID 2
    END
  END

  FOR pack = 0 TO 4
    FOUNDATION
      X 4 * CW
      Y pack * CH 
      DEAL 1,1
      DEALCARD cpack + 9
      MAX 8
      FLAGS RotateJoin Join____
      ID 2
    END
  END

| Stock

  STACK
    X 2 * CW
    Y 0 
    DEAL 91,1
    MAX 0
    DRAGUpTo 1
    FLAGS PaintLast ClickFly
    ID 1
  END

END
