ÿþ< ! - -  
  
 v a r   k   =   2 5 ;  
 v a r   l   =   4 ;  
  
 v a r   i s P r o f a n e   =   n e w   m a k e A r r a y ( k ) ;  
 v a r   i s N o t P r o f a n e   =   n e w   m a k e A r r a y ( l ) ;  
  
 v a r   w o r d   =   n e w   m a k e A r r a y ( k ) ;  
 v a r   v a l i d W o r d   =   n e w   m a k e A r r a y ( l ) ;  
  
  
  
 f u n c t i o n   p r o f a n i t y _ c h e c k ( o b j )   {  
  
 	 v a r   t e m p   =   o b j . v a l u e ;  
 	 t e m p   =   t e m p . t o L o w e r C a s e ( ) ;  
  
  
  
 w o r d [ 1 ]   =   " s h i t " ;  
 w o r d [ 2 ]   =   " f u c k " ;  
 w o r d [ 3 ]   =   " a r s e h o l e " ;  
 w o r d [ 4 ]   =   " a r s e " ;  
 w o r d [ 5 ]   =   " c u n t " ;  
 w o r d [ 6 ]   =   " s u c k " ;  
 w o r d [ 7 ]   =   " p u s s y " ;  
 w o r d [ 8 ]   =   " c o c k " ;  
 w o r d [ 9 ]   =   " c u m   " ;  
 w o r d [ 1 0 ]   =   " p e n i s " ;  
 w o r d [ 1 1 ]   =   " n u t s " ;  
 w o r d [ 1 2 ]   =   " d i c k " ;  
 w o r d [ 1 3 ]   =   " g e e k " ;  
 w o r d [ 1 4 ]   =   " n e r d " ;  
 w o r d [ 1 5 ]   =   " f a g   " ;  
 w o r d [ 1 6 ]   =   " i d i o t " ;  
 w o r d [ 1 7 ]   =   " s t u p i d " ;  
 w o r d [ 1 8 ]   =   " b i t c h " ;  
 w o r d [ 1 9 ]   =   " g i m p " ;  
 w o r d [ 2 0 ]   =   " f r e a k " ;  
 w o r d [ 2 1 ]   =   " w a n k " ;  
 w o r d [ 2 2 ]   =   " w a n k e r " ;  
 w o r d [ 2 3 ]   =   " s h i t h e a d " ;  
 w o r d [ 2 4 ]   =   " f a g g o t " ;  
 w o r d [ 2 5 ]   =   "   f a g " ;  
  
 v a l i d W o r d [ 1 ]   =   " k i l c o c k " ;  
 v a l i d W o r d [ 2 ]   =   " c u m m i n s " ;  
 v a l i d W o r d [ 3 ]   =   " f a g a n " ;  
 v a l i d W o r d [ 4 ]   =   " c o c k c r o f t " ;  
  
  
 f o r   ( v a r   j   =   1 ;   j   < =   k ;   j + + )   {  
 	 i s P r o f a n e [ j ]   =   t e m p . i n d e x O f ( w o r d [ j ] ) ;  
  
 	 f o r   ( v a r   j j   =   1 ;   j j   < =   l ;   j j + + )   {  
 	 	 i f   (   t e m p . i n d e x O f ( v a l i d W o r d [ j j ] )   ! =   - 1   )   {  
 	 	 	 i s P r o f a n e [ j ]   =   - 1 ;  
 	 	 }  
 	 }  
  
 }  
  
  
 f o r   ( v a r   j   =   1 ;   j   < =   k ;   j + + )   {  
  
       i f   ( i s P r o f a n e [ j ]   ! =   - 1 )   {  
  
 	 a l e r t ( " P r o f a n i t y   d e t e c t e d :   P l e a s e   r e f r a i n   f r o m   u s i n g   t h e   w o r d   \ ' " + w o r d [ j ] + " \ ' . " ) ;  
  
 	 / / o b j . v a l u e   =   " " ;  
  
 	 j   =   k   +   1 ;  
  
 	 o b j . f o c u s ( ) ;  
  
               }  
  
       e l s e   { }  
  
 }  
  
 }  
  
  
  
 f u n c t i o n   m a k e A r r a y ( n )   {  
  
       t h i s . l e n g t h   =   n  
  
       f o r   ( v a r   i   =   1 ;   i < = n ;   i + + )   {  
  
               t h i s [ i ]   =   n e w   S t r i n g ( ) ;  
  
       }  
  
       r e t u r n   t h i s  
  
 }  
  
  
 / / - - >  
 
