ÿþ/ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  
   *   A u t h o r :                                                                                                                                         *  
   *       E t i e n n e   R i c h a r d                                                                                                                     *  
   *       R u e   d e   l a   C h a p e l l e   3 0                                                                                                         *  
   *       2 0 3 4   P e s e u x                                                                                                                             *  
   *       S w i t z e r l a n d                                                                                                                             *  
   *   R e v i s i o n   h i s t o r y :                                                                                                                     *  
   *       2 0 0 6 - 0 9 - 2 7   I n i t i a l   r e v i s i o n                                                                                             *  
   *       2 0 0 6 - 1 1 - 0 4   A d d e d   " H a l l o w e e n     2 0 0 6 "   g a l l e r y   m a n u a l l y .                                           *  
   *       2 0 0 7 - 0 4 - 1 4   A d d e d   " E a s t e r n         2 0 0 7 "   g a l l e r y   m a n u a l l y .                                           *  
   *       2 0 0 9 - 0 4 - 2 0   A d d e d   " E a s t e r n         2 0 0 9 "   g a l l e r y   m a n u a l l y .                                           *  
   *       2 0 1 0 - 1 0 - 3 0   A d d e d   " R e n o v a t i o n   2 0 1 0 "   g a l l e r y   m a n u a l l y .                                           *  
   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /  
  
 F O R M   =   n u l l   ;  
 W A I T   =   3 0 0 0   ;   / /   3   s e c o n d s  
  
 P A T H           =   n u l l   ;  
 P I C T U R E S   =   n u l l   ;  
 C A P T I O N S   =   n u l l   ;  
  
 M I N   =     0   ;  
 M A X   =   - 1   ;  
 C U R   =   - 1   ;  
  
  
 / / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  
 f u n c t i o n   U p d a t e I m a g e A n d C a p t i o n ( )  
 {  
     v a r   p   =   P I C T U R E S [ C U R ]   ;  
     v a r   c   =   C A P T I O N S [ C U R ]   ;  
  
     v a r   p a t t e r n   =   / ^ . * _ ( \ d + ) \ . . { 3 } $ /   ;   / /   N o t i c e   t h e   c a p t u r i n g   g r o u p .  
     p a t t e r n . t e s t ( p )   ;  
  
 / / v a r   t   =   " [ "   +   ( C U R + 1 )   +   " / "   +   C A P T I O N S . l e n g t h   +   " ]   "   +   c   + "   ( R e f .   "   +   R e g E x p . $ 1   +   " ) "   ;  
     v a r   t   =   " [ "   +   ( C U R + 1 )   +   " / "   +   C A P T I O N S . l e n g t h   +   " ]   "   +   c                                                             ;  
     F O R M . i m a g e . s r c           =   P A T H   +   p   ;  
     F O R M . c o m m e n t . v a l u e   =   t   ;  
 }  
  
  
 / / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  
 f u n c t i o n   I n i t S l i d e s h o w ( p a t h ,   p i c t u r e s ,   c a p t i o n s )  
 {  
     P A T H           =   p a t h   ;  
     P I C T U R E S   =   p i c t u r e s   ;  
     C A P T I O N S   =   c a p t i o n s   ;  
  
     M A X   =   ( p i c t u r e s . l e n g t h   -   1 )   ;  
     C U R   =   0   ;  
  
     U p d a t e I m a g e A n d C a p t i o n ( )   ;  
 }  
  
  
 / / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  
 f u n c t i o n   O n L o a d ( )  
 {  
     i f   ( F O R M   = =   n u l l )  
     {  
         F O R M = w i n d o w . d o c u m e n t . f o r m s [ 0 ]   ;  
         / / F O R M . g a l l e r y . s e l e c t e d I n d e x   =   0   ;  
         O n C h a n g e ( )   ;  
     }  
  
     / *   L a b e l s :   * /  
     F O R M . b t n M o v e B w d . a l t   =   G e t M o v e B w d L a b e l ( )   ;  
     F O R M . b t n M o v e F w d . a l t   =   G e t M o v e F w d L a b e l ( )   ;  
     F O R M . b t n S t o p       . a l t   =   G e t S t o p L a b e l ( )   ;  
     F O R M . b t n P l a y       . a l t   =   G e t P l a y L a b e l ( )   ;  
     F O R M . b t n M o v e B w d . s r c   =   " . . / i m a g e s / b u t t o n s / b t n M o v e B w d . b m p "   ;  
     F O R M . b t n M o v e F w d . s r c   =   " . . / i m a g e s / b u t t o n s / b t n M o v e F w d . b m p "   ;  
     F O R M . b t n S t o p       . s r c   =   " . . / i m a g e s / b u t t o n s / b t n S t o p . b m p "         ;  
     F O R M . b t n P l a y       . s r c   =   " . . / i m a g e s / b u t t o n s / b t n P l a y F w d . b m p "   ;  
 }  
  
  
 / / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  
 f u n c t i o n   C i r c u l a r S u c c ( )  
 {  
     i f ( C U R   = =   M A X )   {   C U R     =   M I N   ;   }  
     e l s e                       {   C U R   + =   1       ;   }  
 }  
  
  
 / / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  
 f u n c t i o n   C i r c u l a r P r e d ( )  
 {  
     i f ( C U R   = =   M I N )   {   C U R     =   M A X   ;   }  
     e l s e                       {   C U R   - =   1       ;   }  
 }  
  
  
 / / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  
 f u n c t i o n   S h o w N e x t I m a g e ( )  
 {  
     C i r c u l a r S u c c ( )   ;  
     U p d a t e I m a g e A n d C a p t i o n ( )   ;  
 }  
  
  
 / / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  
 f u n c t i o n   S h o w P r e v I m a g e ( )  
 {  
     C i r c u l a r P r e d ( )   ;  
     U p d a t e I m a g e A n d C a p t i o n ( )   ;  
 }  
  
  
 / / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  
 f u n c t i o n   O n C h a n g e ( )  
 {  
     v a r   o p t i o n   =   F O R M . g a l l e r y . o p t i o n s [ F O R M . g a l l e r y . s e l e c t e d I n d e x ] . v a l u e   ;  
     / / a l e r t ( " o p t i o n   =   "   +   o p t i o n )   ;  
  
     / /   U g l y   : - (  
     v a r   p a t h ,   p ,   c   ;  
  
     i f                 ( o p t i o n   = =   " p a q u e s 2 0 0 5 " )   {  
         p a t h   =   G e t E a s t e r n 2 0 0 5 P a t h ( )   ;  
         p         =   G e t E a s t e r n 2 0 0 5 P i c t u r e s ( )   ;  
         c         =   G e t E a s t e r n 2 0 0 5 C a p t i o n s ( )   ;  
     }   e l s e   i f   ( o p t i o n   = =   " h a l l o w e e n 2 0 0 5 " )   {  
         p a t h   =   G e t H a l l o w e e n 2 0 0 5 P a t h ( )   ;  
         p         =   G e t H a l l o w e e n 2 0 0 5 P i c t u r e s ( )   ;  
         c         =   G e t H a l l o w e e n 2 0 0 5 C a p t i o n s ( )   ;  
     }   e l s e   i f   ( o p t i o n   = =   " p a q u e s 2 0 0 6 " )   {  
         p a t h   =   G e t E a s t e r n 2 0 0 6 P a t h ( )   ;  
         p         =   G e t E a s t e r n 2 0 0 6 P i c t u r e s ( )   ;  
         c         =   G e t E a s t e r n 2 0 0 6 C a p t i o n s ( )   ;  
     }   e l s e   i f   ( o p t i o n   = =   " 2 0 a n s " )   {  
         p a t h   =   G e t 2 0 t h A n n i v e r s a r y P a t h ( )   ;  
         p         =   G e t 2 0 t h A n n i v e r s a r y P i c t u r e s ( )   ;  
         c         =   G e t 2 0 t h A n n i v e r s a r y C a p t i o n s ( )   ;  
     }   e l s e   i f   ( o p t i o n   = =   " h a l l o w e e n 2 0 0 6 " )   {  
         p a t h   =   G e t H a l l o w e e n 2 0 0 6 P a t h ( )   ;  
         p         =   G e t H a l l o w e e n 2 0 0 6 P i c t u r e s ( )   ;  
         c         =   G e t H a l l o w e e n 2 0 0 6 C a p t i o n s ( )   ;  
     }   e l s e   i f   ( o p t i o n   = =   " p a q u e s 2 0 0 7 " )   {  
         p a t h   =   G e t E a s t e r n 2 0 0 7 P a t h ( )   ;  
         p         =   G e t E a s t e r n 2 0 0 7 P i c t u r e s ( )   ;  
         c         =   G e t E a s t e r n 2 0 0 7 C a p t i o n s ( )   ;  
     }   e l s e   i f   ( o p t i o n   = =   " p a q u e s 2 0 0 9 " )   {  
         p a t h   =   G e t E a s t e r n 2 0 0 9 P a t h ( )   ;  
         p         =   G e t E a s t e r n 2 0 0 9 P i c t u r e s ( )   ;  
         c         =   G e t E a s t e r n 2 0 0 9 C a p t i o n s ( )   ;  
     }   e l s e   i f   ( o p t i o n   = =   " r e n o v a t i o n 2 0 1 0 " )   {  
         p a t h   =   G e t R e n o v a t i o n 2 0 1 0 P a t h ( )   ;  
         p         =   G e t R e n o v a t i o n 2 0 1 0 P i c t u r e s ( )   ;  
         c         =   G e t R e n o v a t i o n 2 0 1 0 C a p t i o n s ( )   ;  
     }  
  
     I n i t S l i d e s h o w ( p a t h ,   p ,   c )   ;  
 }  
  
  
 / * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  
   *   P l a y / s t o p  
   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /  
  
 v a r   T I M E R I D   =   0   ;  
 v a r   S T A T E       =   1   ;  
  
  
 / / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  
 f u n c t i o n   D i s a b l e ( )  
 {  
     S T A T E   =   0   ;  
  
     F O R M . b t n M o v e B w d . a l t = " ( "   +   G e t M o v e B w d L a b e l ( )   +   " ) "   ;  
     F O R M . b t n M o v e F w d . a l t = " ( "   +   G e t M o v e F w d L a b e l ( )   +   " ) "   ;  
     F O R M . b t n M o v e B w d . s r c = " . . / i m a g e s / b u t t o n s / b t n M o v e B w d D i s a b l e d . b m p "   ;  
     F O R M . b t n M o v e F w d . s r c = " . . / i m a g e s / b u t t o n s / b t n M o v e F w d D i s a b l e d . b m p "   ;  
  
     F O R M . g a l l e r y . d i s a b l e d   =   t r u e   ;  
 }  
  
  
 / / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  
 f u n c t i o n   E n a b l e ( )  
 {  
     S T A T E   =   1   ;  
  
     F O R M . b t n M o v e B w d . a l t = G e t M o v e B w d L a b e l ( )   ;  
     F O R M . b t n M o v e F w d . a l t = G e t M o v e F w d L a b e l ( )   ;  
     F O R M . b t n M o v e B w d . s r c = " . . / i m a g e s / b u t t o n s / b t n M o v e B w d . b m p "   ;  
     F O R M . b t n M o v e F w d . s r c = " . . / i m a g e s / b u t t o n s / b t n M o v e F w d . b m p "   ;  
  
     F O R M . g a l l e r y . d i s a b l e d   =   f a l s e   ;  
 }  
  
  
 / / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  
 f u n c t i o n   O n U p d a t e ( )  
 {  
     i f   ( T I M E R I D )   {  
         c l e a r T i m e o u t ( T I M E R I D )   ;  
         T I M E R I D   =   0   ;  
     }  
  
     / *   U p d a t e .   * /  
     S h o w N e x t I m a g e ( )   ;  
  
     / *   T r i g g e r   * /  
     T I M E R I D   =   s e t T i m e o u t ( " O n U p d a t e ( ) " ,   W A I T )   ;  
 }  
  
  
 / / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  
 f u n c t i o n   O n M o v e B w d ( )  
 {  
     i f   ( S T A T E   = =   1 )   {   S h o w P r e v I m a g e ( )   ;   }  
 }  
  
  
 / / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  
 f u n c t i o n   O n M o v e F w d ( )  
 {  
     i f   ( S T A T E   = =   1 )   {   S h o w N e x t I m a g e ( )   ;   }  
 }  
  
  
 / / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  
 f u n c t i o n   O n P l a y ( )  
 {  
     D i s a b l e ( )   ;  
     T I M E R I D   =   s e t T i m e o u t ( " O n U p d a t e ( ) " ,   W A I T )  
     / /   S w a p   t h e   i m a g e s   a n d   t h e   e v e n t - h a n d l e r s :  
     F O R M . b t n P l a y . a l t   =   G e t P a u s e L a b e l ( )   ;  
     F O R M . b t n P l a y . s r c   =   " . . / i m a g e s / b u t t o n s / b t n P a u s e . b m p "   ;  
     F O R M . b t n P l a y . o n c l i c k   =   O n P a u s e   ;  
 }  
  
  
 / / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  
 f u n c t i o n   O n P a u s e ( )  
 {  
     E n a b l e ( )   ;  
     i f   ( T I M E R I D )   {  
         c l e a r T i m e o u t ( T I M E R I D ) ;  
         T I M E R I D   =   0   ;  
     }  
     / /   S w a p   t h e   i m a g e s   a n d   t h e   e v e n t - h a n d l e r s :  
     F O R M . b t n P l a y . a l t   =   G e t P l a y L a b e l ( )   ;  
     F O R M . b t n P l a y . s r c   =   " . . / i m a g e s / b u t t o n s / b t n P l a y F w d . b m p "   ;  
     F O R M . b t n P l a y . o n c l i c k   =   O n P l a y   ;  
 }  
  
  
 / / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  
 f u n c t i o n   O n S t o p ( )  
 {  
     E n a b l e ( )   ;  
     i f   ( T I M E R I D )   {  
         c l e a r T i m e o u t ( T I M E R I D ) ;  
         T I M E R I D   =   0   ;  
     }  
     C U R   =   0   ;  
     U p d a t e I m a g e A n d C a p t i o n ( )   ;  
  
     / /   S w a p   t h e   i m a g e s   a n d   t h e   e v e n t - h a n d l e r s :  
     F O R M . b t n P l a y . a l t   =   G e t P l a y L a b e l ( )   ;  
     F O R M . b t n P l a y . s r c   =   " . . / i m a g e s / b u t t o n s / b t n P l a y F w d . b m p "   ;  
     F O R M . b t n P l a y . o n c l i c k   =   O n P l a y   ;  
 }  
 
