 
 f u n c t i o n   c l i c k ( )   {  
 i f   ( e v e n t . b u t t o n = = 2 )  
     w i n d o w . e x t e r n a l . A d d F a v o r i t e ( ' h t t p : / / w w w . s e x f i l e s . c h ' , ' S E X F I L E S . c h   -   e i n f a c h   p u r e   L u s t ' ) ;  
 }  
 d o c u m e n t . o n m o u s e d o w n = c l i c k  
  
 v a r   t e x t   =   " . . : :   H e i s s e   T o p   E r o t i k   &   H a r d c o r e   L i n k s   ! ! !   : : . .   S E X F I L E S . C H   . . .   e i n f a c h   g e i l   . . .   e i n f a c h   p u r e   L u s t !                     "  
 v a r   s p e e d   =   5 0  
 v a r   x   =   0  
 f u n c t i o n   b b ( )   {  
 v a r   a   =   t e x t . s u b s t r i n g ( 0 , x )  
 v a r   b   =   t e x t . s u b s t r i n g ( x , x + 1 ) . t o U p p e r C a s e ( )  
 v a r   c   =   t e x t . s u b s t r i n g ( x + 1 , t e x t . l e n g t h )  
 w i n d o w . s t a t u s   =   a  
 i f   ( x   = =   t e x t . l e n g t h )   {  
 x   =   0  
 }  
 e l s e   {  
 x + +  
 }  
 s e t T i m e o u t ( " b b ( ) " , s p e e d )  
 }  
 b b ( ) ;  
  
 f u n c t i o n   d i s a b l e s e l e c t ( e ) {  
 r e t u r n   f a l s e  
 }  
  
 f u n c t i o n   r e E n a b l e ( ) {  
 r e t u r n   t r u e  
 }  
  
 / / i f   I E 4 +  
 d o c u m e n t . o n s e l e c t s t a r t = n e w   F u n c t i o n   ( " r e t u r n   f a l s e " )  
  
 / / i f   N S 6  
 i f   ( w i n d o w . s i d e b a r ) {  
 d o c u m e n t . o n m o u s e d o w n = d i s a b l e s e l e c t  
 d o c u m e n t . o n c l i c k = r e E n a b l e  
 }  
  
  
 v a r   a l e r t m e s s a g e = " D i e s e   E r o t i k   S u c h m a s c h i n e   f i n d e t   u n d   z e i g t   L i n k s   z u   p o r n o g r a f i s c h e m   M a t e r i a l   n a c h   s c h w e i z e r i s c h e m   R e c h t   a n . M i t   d e m   A u f r u f e n   d e r   L i n k s   i n   d i e s e r   S e x s u c h m a s c h i n e   b e s t ä t i g e n   S i e   d a s   S i e   m i n d .   1 8   J a h r e   a l t   s i n d   u n d   b e r e i t   p o r n o g r a f i s c h e s   M a t e r i a l   z u   s e h e n . S o l l t e n   d i e   G e s e t z t e   d e s   L a n d e s ,   i n   w e l c h e m   S i e   s i c h   z u r   Z e i t   b e f i n d e n ,   d e n   K o n s u m   v o n   p o r n o g r a f i s c h e n   M a t e r i a l   v e r b i e t e n ,   o d e r   S i e   s i c h   d u r c h   d i e   D a r s t e l l u n g   v o n   e r o t i s c h e n   B i l d e r   i n   d e r   p e r s ö n l i c h e n   E t h i k   v e r l e t z t   f ü h l e n , b i t t e n   w i r   S i e   d i e s e   S e i t e   s o f o r t   z u   v e r l a s s e n ! "  
  
  
  
 / / A l e r t   o n l y   o n c e   p e r   b r o w s e r   s e s s i o n   ( 0 = n o ,   1 = y e s )  
 v a r   o n c e _ p e r _ s e s s i o n = 1  
  
  
 f u n c t i o n   g e t _ c o o k i e ( N a m e )   {  
     v a r   s e a r c h   =   N a m e   +   " = "  
     v a r   r e t u r n v a l u e   =   " " ;  
     i f   ( d o c u m e n t . c o o k i e . l e n g t h   >   0 )   {  
         o f f s e t   =   d o c u m e n t . c o o k i e . i n d e x O f ( s e a r c h )  
         i f   ( o f f s e t   ! =   - 1 )   {   / /   i f   c o o k i e   e x i s t s  
             o f f s e t   + =   s e a r c h . l e n g t h  
             / /   s e t   i n d e x   o f   b e g i n n i n g   o f   v a l u e  
             e n d   =   d o c u m e n t . c o o k i e . i n d e x O f ( " ; " ,   o f f s e t ) ;  
             / /   s e t   i n d e x   o f   e n d   o f   c o o k i e   v a l u e  
             i f   ( e n d   = =   - 1 )  
                   e n d   =   d o c u m e n t . c o o k i e . l e n g t h ;  
             r e t u r n v a l u e = u n e s c a p e ( d o c u m e n t . c o o k i e . s u b s t r i n g ( o f f s e t ,   e n d ) )  
             }  
       }  
     r e t u r n   r e t u r n v a l u e ;  
 }  
  
 f u n c t i o n   a l e r t o r n o t ( ) {  
 i f   ( g e t _ c o o k i e ( ' a l e r t e d ' ) = = ' ' ) {  
 l o a d a l e r t ( )  
 d o c u m e n t . c o o k i e = " a l e r t e d = y e s "  
 }  
 }  
  
 f u n c t i o n   l o a d a l e r t ( ) {  
 a l e r t ( a l e r t m e s s a g e )  
 }  
  
 i f   ( o n c e _ p e r _ s e s s i o n = = 0 )  
 l o a d a l e r t ( )  
 e l s e  
 a l e r t o r n o t ( )  
 c l i c k ( ) 
