/ /  NBf\Pbk-N00000
 
 
 
 @ I n i t i a l i z e 
 
 { 
 
 	 S e t A u t o D e l e t e O b j e c t ( t r u e ) ; 
 
 	 T B a c k g r o u n d ( ) ; 
 
 	 T M e n u ( ) ; 
 
 } 
 
 
 
 @ M a i n L o o p 
 
 { 
 
 	 y i e l d ; 
 
 } 
 
 
 
 @ F i n a l i z e 
 
 { 
 
 } 
 
 
 
 
 
 t a s k   T B a c k g r o u n d 
 
 { 
 
 	 t a s k   T V e r t e x ( v a r   i n d e x ,   v a r   l e f t ,   v a r   t o p ,   v a r   r i g h t ,   v a r   b o t t o m ) 
 
 	 { 
 
 	 	 O b j P r i m _ S e t V e r t e x P o s i t i o n ( o b j ,   i n d e x   +   0 ,   l e f t ,   t o p ,   0 ) ; 
 
 	 	 O b j P r i m _ S e t V e r t e x P o s i t i o n ( o b j ,   i n d e x   +   1 ,   l e f t ,   b o t t o m ,   0 ) ; 
 
 	 	 O b j P r i m _ S e t V e r t e x P o s i t i o n ( o b j ,   i n d e x   +   2 ,   r i g h t ,   t o p ,   0 ) ; 
 
 	 	 O b j P r i m _ S e t V e r t e x P o s i t i o n ( o b j ,   i n d e x   +   3 ,   r i g h t ,   t o p ,   0 ) ; 
 
 	 	 O b j P r i m _ S e t V e r t e x P o s i t i o n ( o b j ,   i n d e x   +   4 ,   l e f t ,   b o t t o m ,   0 ) ; 
 
 	 	 O b j P r i m _ S e t V e r t e x P o s i t i o n ( o b j ,   i n d e x   +   5 ,   r i g h t ,   b o t t o m ,   0 ) ; 
 
 
 
 	 	 O b j P r i m _ S e t V e r t e x U V T ( o b j ,   i n d e x   +   0 ,   l e f t ,   t o p ) ; 
 
 	 	 O b j P r i m _ S e t V e r t e x U V T ( o b j ,   i n d e x   +   1 ,   l e f t ,   b o t t o m ) ; 
 
 	 	 O b j P r i m _ S e t V e r t e x U V T ( o b j ,   i n d e x   +   2 ,   r i g h t ,   t o p ) ; 
 
 	 	 O b j P r i m _ S e t V e r t e x U V T ( o b j ,   i n d e x   +   3 ,   r i g h t ,   t o p ) ; 
 
 	 	 O b j P r i m _ S e t V e r t e x U V T ( o b j ,   i n d e x   +   4 ,   l e f t ,   b o t t o m ) ; 
 
 	 	 O b j P r i m _ S e t V e r t e x U V T ( o b j ,   i n d e x   +   5 ,   r i g h t ,   b o t t o m ) ; 
 
 
 
 	 	 / / S T G 000Qn000000000
 
 	 	 i f ( l e f t   > =   3 2   & &   r i g h t   < =   4 1 6   & &   t o p   > = 1 6   & &   b o t t o m   < =   4 6 4 ) 
 
 	 	 { 
 
 	 	 	 l e t   a l p h a   =   2 5 5 ; 
 
 	 	 	 w h i l e ( a l p h a   > =   1 2 8 ) 
 
 	 	 	 { 
 
 	 	 	 	 O b j P r i m _ S e t V e r t e x A l p h a ( o b j ,   i n d e x   +   0 ,   a l p h a ) ; 
 
 	 	 	 	 O b j P r i m _ S e t V e r t e x A l p h a ( o b j ,   i n d e x   +   1 ,   a l p h a / 2 ) ; 
 
 	 	 	 	 O b j P r i m _ S e t V e r t e x A l p h a ( o b j ,   i n d e x   +   2 ,   a l p h a / 2 ) ; 
 
 	 	 	 	 O b j P r i m _ S e t V e r t e x A l p h a ( o b j ,   i n d e x   +   3 ,   a l p h a / 2 ) ; 
 
 	 	 	 	 O b j P r i m _ S e t V e r t e x A l p h a ( o b j ,   i n d e x   +   4 ,   a l p h a / 2 ) ; 
 
 	 	 	 	 O b j P r i m _ S e t V e r t e x A l p h a ( o b j ,   i n d e x   +   5 ,   a l p h a ) ; 
 
 	 	 	 	 a l p h a   - =   2 5 5   /   f r a m e ; 
 
 
 
 	 	 	 	 y i e l d ; 
 
 	 	 	 } 
 
 	 	 } 
 
 	 } 
 
 
 
 	 / / RrR-[
 
 	 l e t   f r a m e   =   3 0 ; 
 
 	 l e t   c o u n t H   =   2 0 ;   / / RrRpe
 
 	 l e t   c o u n t V   =   3 0 ;   
 
 	 l e t   w i d t h   =   6 4 0   /   c o u n t H ; 
 
 	 l e t   h e i g h t   =   4 8 0   /   c o u n t V ; 
 
 	 l e t   t a r g e t   =   G e t T r a n s i t i o n R e n d e r T a r g e t N a m e ( ) ; 
 
 	 l e t   o b j   =   O b j P r i m _ C r e a t e ( O B J _ P R I M I T I V E _ 2 D ) ;   / / 2 D p00000ub
 
 	 O b j P r i m _ S e t P r i m i t i v e T y p e ( o b j ,   P R I M I T I V E _ T R I A N G L E L I S T ) ; 
 
 	 O b j P r i m _ S e t V e r t e x C o u n t ( o b j ,   c o u n t H   *   c o u n t V   *   6 ) ; 
 
 	 O b j _ S e t R e n d e r P r i o r i t y I ( o b j ,   0 ) ;   / / c;u*QHQ^0-[
 
 	 O b j P r i m _ S e t T e x t u r e ( o b j ,   t a r g e t ) ;   / / 000000-[
 
 
 
 	 a s c e n t ( i x   i n   0 . .   c o u n t H ) 
 
 	 { 
 
 	 	 a s c e n t ( i y   i n   0 . .   c o u n t V ) 
 
 	 	 { 
 
 	 	 	 l e t   i n d e x   =   ( i x   +   i y   *   c o u n t H )   *   6 ; 
 
 	 	 	 l e t   l e f t   =   i x   *   w i d t h ; 
 
 	 	 	 l e t   r i g h t   =   l e f t   +   w i d t h ; 
 
 	 	 	 l e t   t o p   =   i y   *   h e i g h t ; 
 
 	 	 	 l e t   b o t t o m   =   t o p   +   h e i g h t ; 
 
 	 	 	 T V e r t e x ( i n d e x ,   l e f t ,   t o p ,   r i g h t ,   b o t t o m ) ; 
 
 	 	 } 
 
 	 } 
 
 
 
 } 
 
 
 
 t a s k   T M e n u 
 
 { 
 
 	 l e t   s e l e c t I n d e x   =   0 ; / / xbMOn
 
 	 t a s k   T M e n u I t e m ( l e t   i n d e x ,   l e t   m x ,   l e t   m y ,   l e t   t e x t ) 
 
 	 { 
 
 	 	 f u n c t i o n   C r e a t e T e x t O b j e c t ( l e t   m x ,   l e t   m y ,   l e t   t e x t ) 
 
 	 	 { 
 
 	 	 	 l e t   o b j   =   O b j T e x t _ C r e a t e ( ) ; 
 
 	 	 	 O b j T e x t _ S e t T e x t ( o b j ,   t e x t ) ; 
 
 	 	 	 O b j T e x t _ S e t F o n t S i z e ( o b j ,   2 0 ) ; 
 
 	 	 	 O b j T e x t _ S e t F o n t B o l d ( o b j ,   t r u e ) ; 
 
 	 	 	 O b j T e x t _ S e t F o n t C o l o r T o p ( o b j ,   1 2 8 ,   1 2 8 ,   2 5 5 ) ; 
 
 	 	 	 O b j T e x t _ S e t F o n t C o l o r B o t t o m ( o b j ,   6 4 ,   6 4 ,   2 5 5 ) ; 
 
 	 	 	 O b j T e x t _ S e t F o n t B o r d e r T y p e ( o b j ,   B O R D E R _ F U L L ) ; 
 
 	 	 	 O b j T e x t _ S e t F o n t B o r d e r C o l o r ( o b j , 2 5 5 ,   2 5 5 ,   2 5 5 ) ; 
 
 	 	 	 O b j T e x t _ S e t F o n t B o r d e r W i d t h ( o b j ,   2 ) ; 
 
 	 	 	 O b j _ S e t R e n d e r P r i o r i t y I ( o b j ,   1 0 ) ; 
 
 	 	 	 O b j R e n d e r _ S e t X ( o b j ,   m x ) ; 
 
 	 	 	 O b j R e n d e r _ S e t Y ( o b j ,   m y ) ; 
 
 	 	 	 r e t u r n   o b j ; 
 
 	 	 } 
 
 
 
 	 	 l e t   o b j T e x t   =   C r e a t e T e x t O b j e c t ( m x ,   m y ,   t e x t ) ; 
 
 	 	 l e t   o b j S e l e c t   =   C r e a t e T e x t O b j e c t ( m x ,   m y ,   t e x t ) ; 
 
 	 	 O b j R e n d e r _ S e t B l e n d T y p e ( o b j S e l e c t ,   B L E N D _ A D D _ R G B ) ; 
 
 	 	 l o o p 
 
 	 	 { 
 
 	 	 	 O b j _ S e t V i s i b l e ( o b j S e l e c t ,   i n d e x   = =   s e l e c t I n d e x ) ; 
 
 	 	 	 y i e l d ; 
 
 	 	 } 
 
 	 } 
 
 
 
 	 / / 0000Mn
 
 	 l e t   m x   =   4 8 ; 
 
 	 l e t   m y   =   3 2 ; 
 
 	 l e t   t e x t s   =   [ " Q" ,   " QuB}N" ,   "  gRK0000vY0" ] ; 
 
 	 v a r   c o u n t M e n u   =   l e n g t h ( t e x t s ) ; 
 
 	 a s c e n t ( v a r   i T e x t   i n   0   . .   c o u n t M e n u ) 
 
 	 { 
 
 	 	 T M e n u I t e m ( i T e x t ,   m x ,   m y ,   t e x t s [ i T e x t ] ) ; 
 
 	 	 m y   + =   3 2 ; 
 
 	 } 
 
 
 
 	 / / 00rKaL00000U000~0g0__j
 
 	 w h i l e ( G e t V i r t u a l K e y S t a t e ( V K _ P A U S E )   ! =   K E Y _ F R E E ) { y i e l d ; } 
 
 
 
 	 / / 0000xbQt
 
 	 l e t   f r a m e K e y H o l d   =   0 ; / / 00bW0c0q0j0W00000pe
 
 	 l o o p 
 
 	 { 
 
 	 	 / / zl[
 
 	 	 i f ( G e t V i r t u a l K e y S t a t e ( V K _ O K )   = =   K E Y _ P U L L ) 
 
 	 	 { 
 
 	 	 	 l e t   l i s t R e s u l t   =   [ R E S U L T _ C A N C E L ,   R E S U L T _ E N D ,   R E S U L T _ R E T R Y ] ; 
 
 	 	 	 S e t S c r i p t R e s u l t ( l i s t R e s u l t [ s e l e c t I n d e x ] ) ; 
 
 	 	 	 C l o s e S c r i p t ( G e t O w n S c r i p t I D ( ) ) ; 
 
 	 	 	 r e t u r n ; 
 
 	 	 } 
 
 
 
 	 	 / / 00000
 
 	 	 i f ( G e t V i r t u a l K e y S t a t e ( V K _ C A N C E L )   = =   K E Y _ P U L L   | |   G e t V i r t u a l K e y S t a t e ( V K _ P A U S E )   = =   K E Y _ P U L L ) 
 
 	 	 { 
 
 	 	 	 S e t S c r i p t R e s u l t ( R E S U L T _ C A N C E L ) ; 
 
 	 	 	 C l o s e S c r i p t ( G e t O w n S c r i p t I D ( ) ) ; 
 
 	 	 	 r e t u r n ; 
 
 	 	 } 
 
 
 
 	 	 / / 0000yR
 
 	 	 i f ( G e t V i r t u a l K e y S t a t e ( V K _ U P )   = =   K E Y _ P U S H ) 
 
 	 	 { 
 
 	 	 	 s e l e c t I n d e x - - ; 
 
 	 	 } 
 
 	 	 e l s e   i f ( G e t V i r t u a l K e y S t a t e ( V K _ D O W N )   = =   K E Y _ P U S H ) 
 
 	 	 { 
 
 	 	 	 s e l e c t I n d e x + + ; 
 
 	 	 } 
 
 	 	 e l s e   i f ( G e t V i r t u a l K e y S t a t e ( V K _ U P )   = =   K E Y _ H O L D ) 
 
 	 	 { 
 
 	 	 	 f r a m e K e y H o l d + + ; 
 
 	 	 	 i f ( f r a m e K e y H o l d   = =   3 0   | |   ( f r a m e K e y H o l d   >   3 0   & &   ( f r a m e K e y H o l d   %   1 0   = =   0 ) ) ) 
 
 	 	 	 { 
 
 	 	 	 	 s e l e c t I n d e x - - ; 
 
 	 	 	 } 
 
 	 	 } 
 
 	 	 e l s e   i f ( G e t V i r t u a l K e y S t a t e ( V K _ D O W N )   = =   K E Y _ H O L D ) 
 
 	 	 { 
 
 	 	 	 f r a m e K e y H o l d + + ; 
 
 	 	 	 i f ( f r a m e K e y H o l d   = =   3 0   | |   ( f r a m e K e y H o l d   >   3 0   & &   ( f r a m e K e y H o l d   %   1 0   = =   0 ) ) ) 
 
 	 	 	 { 
 
 	 	 	 	 s e l e c t I n d e x + + ; 
 
 	 	 	 } 
 
 	 	 } 
 
 	 	 e l s e 
 
 	 	 { 
 
 	 	 	 f r a m e K e y H o l d   =   0 ; 
 
 	 	 } 
 
 
 
 	 	 i f ( s e l e c t I n d e x   <   0 )   
 
 	 	 { 
 
 	 	 	 s e l e c t I n d e x   =   c o u n t M e n u   -   1 ; 
 
 	 	 } 
 
 	 	 e l s e 
 
 	 	 { 
 
 	 	 	 s e l e c t I n d e x   % =   c o u n t M e n u ; 
 
 	 	 } 
 
 
 
 	 	 y i e l d ; 
 
 	 } 
 
 } 
 
 
 
 
 
 
 
 