1
Views
1
Downloads
0
Favorites
Checkers_v01
ÿþ/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C h e c k e r s _ v 0 1 . m q 4 |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
# p r o p e r t y c o p y r i g h t " I n k o v E v g e n i "
# p r o p e r t y l i n k " e w 1 2 3 @ m a i l . r u "
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
# p r o p e r t y v e r s i o n " 1 . 0 0 "
# p r o p e r t y s t r i c t
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
# d e f i n e k o l _ s t e k 1 0 0 / / 4;8=0 AB5:0 4;O 70?><8=0=8O E>4>2
# d e f i n e k o l _ p o s 1 0 / / :>;. 70?><=5==KE ?>78F89 ( >B 1 4> 1 0 )
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
c o l o r c l r _ T e x t = c l r W h i t e ;
c o l o r c l r _ O s n = c l r I n d i a n R e d ;
c o l o r c l r _ T a k e = c l r B r o w n ;
c o l o r c l r _ F o n = c l r L i g h t G r a y ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t t i m e _ t a k e = 1 ;
s t r i n g p r e f = " c h _ " ;
s t r i n g b u t _ b e g = p r e f + " I s h " ;
s t r i n g b u t _ d e l _ a l l = p r e f + " D e l _ a l l " ;
s t r i n g b u t _ l e f t = p r e f + " l e f t " ;
s t r i n g b u t _ r i g h t = p r e f + " r i g h t " ;
s t r i n g b u t _ u s t = p r e f + " u s t " ;
s t r i n g b u t _ p u t = p r e f + " p u t " ;
s t r i n g b u t _ c l r = p r e f + " c l r " ;
s t r i n g b u t _ p o s = p r e f + " p o s " ;
s t r i n g b u t _ c h e c k e r s = p r e f + " C h " ;
i n t u s t _ c h e c k e r s = 0 ; / / B8? H0H:8 2 >B45;L=>< >:=5 ( - 2 , - 1 , 0 , 1 , 2 )
b o o l g a m e ; / / @568< CAB0=>2:8 H0H5: ( 1 - 83@0, 0 - CAB0=>2:0 ?>78F88)
s t r i n g m a s _ a b c [ 8 ] = { " a " , " b " , " c " , " d " , " e " , " f " , " g " , " h " } ;
i n t x 0 _ = 0 , y 0 _ = 0 , d i _ = 0 ;
i n t m a s _ c h [ 4 ] [ 8 ] ; / / [ 4 ] - X :;5B:8, [ 8 ] - Y :;5B:8; 0 - =5B H0H:8, 1 - ?@>AB0O 15;0O, 2 - 40<:0 15;0O, - 1 - ?@>AB0O G5@=0O, - 2 - 40<:0 G5@=0O
/ / . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
i n t m a s _ s t e k [ k o l _ s t e k ] [ 4 ] [ 8 ] ; / / <0AA82 AB5:a , AB5: 70?>;=OBAO ?>A;5 :0A0=8O :;5B:8 2 @568<5 G a m e ( 70?. ?>78F88) .
/ / 70?8AL ?@>8AE>48B B0:65 ?>A;5 :0A0=8O :=>?:8 B e g i n 8;8 ?@8 ?5@5E>45 2 @568< G a m e
i n t e n d _ s t e k ; / / C:07K205B =0 25@E=NN ?>7. AB5:0 ( :>=5F AB5:0)
/ / 5A;8 e n d _ s t e k = k o l _ s t e k , B> AB5:0 5IQ =5B ( >= ?CAB>9)
/ / 5A;8 e n d _ s t e k = 0 , B> AB5: ?>;=K9
i n t t e k _ p o s _ s t e k a ; / / 7=0G5=85 <>65B 42830BLAO A ?><>ILN AB@5;>: >B e n d _ s t e k 4> k o l _ s t e k
/ / . . . . . . . . . . . . . . . . . . . . . . . .
i n t m a s _ p o s [ k o l _ p o s ] [ 4 ] [ 8 ] ; / / <0AA82 ?>78F89
i n t m a s _ i d _ p o s [ k o l _ p o s ] ; / / <0AA82 =><5@0 ?>78F88 ( AC<<0 H0H5: ?> :;5B:0<)
i n t m a s _ i d _ s t e k _ p o s [ k o l _ p o s ] ; / / <0AA82 =0G0; A>E@0=5==>3> AB5:0
i n t m a s _ s t e k _ i n _ p o s [ k o l _ p o s ] [ k o l _ s t e k ] [ 4 ] [ 8 ] ; / / <0AA82 A>E@0=5==KE AB5:>2
i n t X _ T a k e = - 1 , Y _ T a k e = - 1 ;
i n t t e k _ t i m e _ t a k e = 0 ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t O n I n i t ( )
{
i f ( U n i n i t i a l i z e R e a s o n ( ) ! = R E A S O N _ C H A R T C H A N G E )
{
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H O W _ O B J E C T _ D E S C R , f a l s e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ F O R E G R O U N D , f a l s e ) ;
/ / . . . . . . . . . . . . . . . . . . . . . . . . . . .
f i n d _ k r d _ p a n e l ( x 0 _ , y 0 _ , d i _ ) ;
/ / . . . . . . . . . . . . . . . . . . . . . . . . . . .
o u t _ P a n e l ( x 0 _ , y 0 _ , d i _ , X _ T a k e , Y _ T a k e ) ;
/ / . . . . . . . . . . . . . . . . . . . . . .
e n d _ s t e k = k o l _ s t e k ;
t e k _ p o s _ s t e k a = k o l _ s t e k ;
/ / . . . . . . . . . . . . . . . . . . . . . .
B u t t o n C r e a t e ( b u t _ d e l _ a l l , 6 9 3 , 2 0 , 8 0 , 2 0 , " C l e a n " , 1 0 , c l r M a g e n t a ) ;
B u t t o n C r e a t e ( b u t _ b e g , 6 9 3 , 6 0 , 8 0 , 2 0 , " B e g i n " ) ;
L a b e l C r e a t e ( 0 , b u t _ l e f t , 0 , 7 1 0 , 1 2 0 , " Z " , " w i n g d i n g s 3 " , 2 0 , c l r _ T e x t ) ;
L a b e l C r e a t e ( 0 , b u t _ r i g h t , 0 , 7 5 5 , 1 2 0 , " ] " , " w i n g d i n g s 3 " , 2 0 , c l r _ T e x t ) ;
g a m e = t r u e ;
B u t t o n C r e a t e ( b u t _ u s t , 7 0 0 , 1 5 0 , 6 5 , 4 0 , " G a m e " , 1 1 , c l r Y e l l o w ) ;
B u t t o n C r e a t e _ c h ( b u t _ c h e c k e r s , 7 0 0 , 2 0 0 , 6 5 , 6 5 , c l r _ O s n ) ; / / >B45;L=>5 ?>;5 4;O H0H:8
B u t t o n C r e a t e ( b u t _ c l r , 8 2 0 , 2 0 , 5 0 , 2 0 , " C l n " , 1 0 , c l r M a g e n t a ) ;
B u t t o n C r e a t e ( b u t _ p u t , 8 2 0 , 6 0 , 5 0 , 2 0 , " P u t " ) ;
i n i t _ m a s _ p o s ( ) ;
/ / . . . . . . . . . . . . . . . . . . . . . . . . . . . .
E v e n t S e t M i l l i s e c o n d T i m e r ( 1 0 0 0 ) ;
}
r e t u r n ( I N I T _ S U C C E E D E D ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O n D e i n i t ( c o n s t i n t r e a s o n )
{
i f ( U n i n i t i a l i z e R e a s o n ( ) ! = R E A S O N _ C H A R T C H A N G E )
{
O b j e c t s D e l e t e A l l ( 0 , p r e f ) ;
E v e n t K i l l T i m e r ( ) ;
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O n T i c k ( )
{
o s n _ p r o c ( ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | T i m e r f u n c t i o n |
v o i d O n T i m e r ( )
{
i f ( t e k _ t i m e _ t a k e > 0 )
t e k _ t i m e _ t a k e - - ;
e l s e
{
X _ T a k e = - 1 ;
Y _ T a k e = - 1 ;
}
/ / / . . . . . . . . . . . . . . . . . . . . . . .
o s n _ p r o c ( ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d o s n _ p r o c ( )
{
f i n d _ k r d _ p a n e l ( x 0 _ , y 0 _ , d i _ ) ;
/ / . . . . . . . . . . . . . . . . . . . . . . . . . . .
o u t _ P a n e l ( x 0 _ , y 0 _ , d i _ , X _ T a k e , Y _ T a k e ) ;
/ / . . . . . . . . . . . . . . . . . . . . . . . . . . .
o u t _ m a s _ c h ( x 0 _ , y 0 _ , d i _ ) ;
/ / . . . . . . . . . . . . . . . . . . . . . . . . .
o u t _ m a s _ p o s ( ) ;
/ / . . . . . . . . . . . . . . . . . . . . . . . . .
c l r _ s t r e l ( ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - -
v o i d i n i t _ m a s _ p o s ( )
{
A r r a y I n i t i a l i z e ( m a s _ p o s , 0 ) ;
A r r a y I n i t i a l i z e ( m a s _ i d _ p o s , 0 ) ;
A r r a y I n i t i a l i z e ( m a s _ i d _ s t e k _ p o s , 0 ) ;
A r r a y I n i t i a l i z e ( m a s _ s t e k _ i n _ p o s , 0 ) ;
}
/ / - - - - - - - - - - - - - - - - - - -
v o i d c l r _ s t r e l ( )
{
i f ( t e k _ p o s _ s t e k a > = k o l _ s t e k - 1 )
O b j e c t S e t I n t e g e r ( 0 , b u t _ l e f t , O B J P R O P _ C O L O R , c l r D a r k S l a t e G r a y ) ;
e l s e
O b j e c t S e t I n t e g e r ( 0 , b u t _ l e f t , O B J P R O P _ C O L O R , c l r _ T e x t ) ;
i f ( t e k _ p o s _ s t e k a = = e n d _ s t e k )
O b j e c t S e t I n t e g e r ( 0 , b u t _ r i g h t , O B J P R O P _ C O L O R , c l r D a r k S l a t e G r a y ) ;
e l s e
O b j e c t S e t I n t e g e r ( 0 , b u t _ r i g h t , O B J P R O P _ C O L O R , c l r _ T e x t ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - -
v o i d p u t _ s t e k ( )
{ / / 70?8A0BL 2 AB5: >G5@54=CN ?>78F8N
i f ( e n d _ s t e k = = 0 )
{ / / A428=CBL AB5:
f o r ( i n t k = k o l _ s t e k - 1 ; k > = 1 ; k - - )
f o r ( i n t i = 0 ; i < 4 ; i + + )
f o r ( i n t j = 0 ; j < 8 ; j + + )
m a s _ s t e k [ k ] [ i ] [ j ] = m a s _ s t e k [ k - 1 ] [ i ] [ j ] ;
}
e l s e
{ / / A428=CBL C:070B5;L AB5:0
i f ( e n d _ s t e k = = k o l _ s t e k ) A r r a y I n i t i a l i z e ( m a s _ s t e k , 0 ) ;
e n d _ s t e k = t e k _ p o s _ s t e k a ;
e n d _ s t e k - - ;
t e k _ p o s _ s t e k a = e n d _ s t e k ;
}
/ / . . . . . . . . . . . . . . . . . . . . . . . .
f o r ( i n t i = 0 ; i < 4 ; i + + ) / / 70?8A0BL ?>78F8N ?> C:070B5;N
f o r ( i n t j = 0 ; j < 8 ; j + + )
m a s _ s t e k [ e n d _ s t e k ] [ i ] [ j ] = m a s _ c h [ i ] [ j ] ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - -
v o i d g e t _ s t e k ( )
{ / / ?@>G8B0BL AB5: ?> C:070B5;N B5:CI59 ?>78F88 AB5:0 8 ?5@5?8A0BL ?>78F8N
i f ( t e k _ p o s _ s t e k a > = e n d _ s t e k & & t e k _ p o s _ s t e k a < k o l _ s t e k )
f o r ( i n t i = 0 ; i < 4 ; i + + )
f o r ( i n t j = 0 ; j < 8 ; j + + )
m a s _ c h [ i ] [ j ] = m a s _ s t e k [ t e k _ p o s _ s t e k a ] [ i ] [ j ] ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - -
v o i d B e g i n _ p o s ( )
{ / / CAB0=>28BL =0G0;L=>5 @0A?>;>65=85 H0H5:
f o r ( i n t i = 0 ; i < 4 ; i + + )
f o r ( i n t j = 0 ; j < 8 ; j + + )
{
m a s _ c h [ i ] [ j ] = 0 ;
i f ( j ! = 3 & & j ! = 4 )
i f ( j > 3 )
m a s _ c h [ i ] [ j ] = - 1 ;
e l s e
m a s _ c h [ i ] [ j ] = 1 ;
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - -
v o i d p u t _ m a s _ p o s ( )
{ / / 70?8A0BL >G5@54=CN ?>78F8N 2 <0AA82 ?>78F89
f o r ( i n t i = k o l _ p o s - 1 ; i > = 1 ; i - - )
{
f o r ( i n t j = 0 ; j < 4 ; j + + )
f o r ( i n t k = 0 ; k < 8 ; k + + )
{
m a s _ p o s [ i ] [ j ] [ k ] = m a s _ p o s [ i - 1 ] [ j ] [ k ] ; / / A428=CBL <0AA82 ?>78F89
m a s _ i d _ p o s [ i ] = m a s _ i d _ p o s [ i - 1 ] ; / / A428=CBL <0AA82 =><5@>2 ?>78F89
m a s _ i d _ s t e k _ p o s [ i ] = m a s _ i d _ s t e k _ p o s [ i - 1 ] ; / / A428=CBL <0AA82 =0G0;0 AB5:0
}
/ / A428=CBL <0AA82K 70?><=5==>3> AB5:0
f o r ( i n t p = 0 ; p < k o l _ s t e k ; p + + )
f o r ( i n t j = 0 ; j < 4 ; j + + )
f o r ( i n t k = 0 ; k < 8 ; k + + )
m a s _ s t e k _ i n _ p o s [ i ] [ p ] [ j ] [ k ] = m a s _ s t e k _ i n _ p o s [ i - 1 ] [ p ] [ j ] [ k ] ;
}
/ / . . . . . . . . . . . . . . . . . . . . . . .
m a s _ i d _ s t e k _ p o s [ 0 ] = e n d _ s t e k ;
m a s _ i d _ p o s [ 0 ] = 0 ; / / >1=C;8BL 1C4CICN AC<<C ?>78F89
f o r ( i n t j = 0 ; j < 4 ; j + + )
f o r ( i n t k = 0 ; k < 8 ; k + + )
{
m a s _ p o s [ 0 ] [ j ] [ k ] = m a s _ c h [ j ] [ k ] ;
m a s _ i d _ p o s [ 0 ] + = ( m a s _ c h [ j ] [ k ] + 3 ) * ( k + 1 ) * ( j + 1 ) ;
}
/ / 70?><=8BL AB5:
f o r ( i n t p = 0 ; p < k o l _ s t e k ; p + + )
f o r ( i n t j = 0 ; j < 4 ; j + + )
f o r ( i n t k = 0 ; k < 8 ; k + + )
m a s _ s t e k _ i n _ p o s [ 0 ] [ p ] [ j ] [ k ] = m a s _ s t e k [ p ] [ j ] [ k ] ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - -
v o i d g e t _ m a s _ p o s ( i n t i )
{
f o r ( i n t j = 0 ; j < 4 ; j + + )
f o r ( i n t k = 0 ; k < 8 ; k + + )
m a s _ c h [ j ] [ k ] = m a s _ p o s [ i ] [ j ] [ k ] ;
e n d _ s t e k = m a s _ i d _ s t e k _ p o s [ i ] ;
t e k _ p o s _ s t e k a = e n d _ s t e k ;
/ / ?5@5?8A0BL 70?><=5==K9 AB5:
f o r ( i n t p = 0 ; p < k o l _ s t e k ; p + + )
f o r ( i n t j = 0 ; j < 4 ; j + + )
f o r ( i n t k = 0 ; k < 8 ; k + + )
m a s _ s t e k [ p ] [ j ] [ k ] = m a s _ s t e k _ i n _ p o s [ i ] [ p ] [ j ] [ k ] ;
}
/ / - - - - - - - - - - - - - - - - - - - - -
v o i d o u t _ m a s _ c h ( i n t x 0 , i n t y 0 , i n t d i )
{
f o r ( i n t i = 0 ; i < 4 ; i + + )
f o r ( i n t j = 0 ; j < 8 ; j + + )
{
i f ( m a s _ c h [ i ] [ j ] = = 1 & & j = = 7 ) m a s _ c h [ i ] [ j ] = 2 ;
i f ( m a s _ c h [ i ] [ j ] = = - 1 & & j = = 0 ) m a s _ c h [ i ] [ j ] = - 2 ;
s w i t c h ( m a s _ c h [ i ] [ j ] )
{
c a s e 1 :
o u t _ C h e c k e r s ( i , j , x 0 , y 0 , d i , t r u e , f a l s e ) ;
b r e a k ;
c a s e 2 :
o u t _ C h e c k e r s ( i , j , x 0 , y 0 , d i , t r u e , t r u e ) ;
b r e a k ;
c a s e - 1 :
o u t _ C h e c k e r s ( i , j , x 0 , y 0 , d i , f a l s e , f a l s e ) ;
b r e a k ;
c a s e - 2 :
o u t _ C h e c k e r s ( i , j , x 0 , y 0 , d i , f a l s e , t r u e ) ;
b r e a k ;
d e f a u l t :
O b j e c t D e l e t e ( 0 , p r e f + S t r i n g C o n c a t e n a t e ( " s " , i , j ) ) ;
b r e a k ;
}
}
}
/ / - - - - - - - - - - - - - - - - - - - - -
v o i d o u t _ P a n e l ( i n t x 0 , i n t y 0 , i n t d i , i n t x _ t a k e , i n t y _ t a k e )
{ / / 2K25AB8 ?>4;>6:C
o u t _ R e c t ( 9 , 9 , x 0 - 7 * d i - 2 0 , y 0 - 1 0 , 7 * d i + 3 2 0 , c l r B l a c k , " p " , 0 , B O R D E R _ F L A T , C O R N E R _ L E F T _ U P P E R , c l r N O N E , S T Y L E _ S O L I D , 2 , f a l s e ) ;
/ / . . . . . . . . . . . . . . . . . . . . .
f o r ( i n t i = 0 ; i < 4 ; i + + ) / / 2K25AB8 @01>G85 ( 83@>2K5) :;5B:8
f o r ( i n t j = 0 ; j < 8 ; j + + )
{
i n t i _ = 2 * i ;
i f ( M a t h M o d ( j , 2 ) > 0 ) i _ = 2 * i + 1 ;
i n t x i = x 0 - d i * ( 7 - i _ ) ;
i n t y i = y 0 + d i * ( 7 - j ) ;
i f ( i = = x _ t a k e & & j = = y _ t a k e )
o u t _ R e c t ( i , j , x i , y i , d i + 2 , c l r _ T a k e , " r " ) ;
e l s e
o u t _ R e c t ( i , j , x i , y i , d i + 2 , c l r _ O s n , " r " ) ;
}
/ / . . . . . . . . . . . . . . . . . . . . .
f o r ( i n t i = 0 ; i < 4 ; i + + ) / / 2K25AB8 D>=>2K5 :;5B:8
f o r ( i n t j = 0 ; j < 8 ; j + + )
{
i n t i _ = 2 * i + 1 ;
i f ( M a t h M o d ( j , 2 ) > 0 ) i _ = 2 * i ;
i n t x i = x 0 - d i * ( 7 - i _ ) ;
i n t y i = y 0 + d i * ( 7 - j ) ;
o u t _ R e c t ( i , j , x i , y i , d i + 2 , c l r _ F o n , " f " ) ;
}
/ / . . . . . . . . . . . . . . . . . . . . .
f o r ( i n t i = 0 ; i < 8 ; i + + )
{ / / 2K25AB8 >:>;> ?0=5;8 1C:2K A=87C 8 F8D@K A;520
L a b e l C r e a t e ( 0 , p r e f + " b " + ( s t r i n g ) i , 0 , x 0 - d i * ( 7 - i ) + d i / 2 , y 0 + d i * 8 + 8 , m a s _ a b c [ i ] , " A r i a l B l a c k " , 1 0 , c l r _ T e x t ) ;
L a b e l C r e a t e ( 0 , p r e f + " c " + ( s t r i n g ) i , 0 , x 0 - d i * 7 - 1 0 , y 0 + d i * i + d i / 2 , ( s t r i n g ) ( 8 - i ) , " A r i a l B l a c k " , 1 0 , c l r _ T e x t ) ;
}
/ / . . . . . . . . . . . . . . . . . . . . .
L a b e l C r e a t e ( 0 , p r e f + " t " , 0 , x 0 + d i + 1 0 , y 0 + d i * 8 + 8 , T i m e T o S t r i n g ( T i m e L o c a l ( ) , T I M E _ M I N U T E S ) , " A r i a l B l a c k " , 1 2 , c l r _ T e x t , 0 , A N C H O R _ L E F T _ L O W E R ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - -
v o i d o u t _ m i n i _ p o s ( i n t x 0 , i n t y 0 , i n t n )
{
i n t d i = 5 ;
o u t _ R e c t ( 8 , 8 , x 0 - d i * 7 - 1 , y 0 , d i * 8 + 4 , c l r _ O s n , " m " + ( s t r i n g ) n , 1 , B O R D E R _ F L A T , C O R N E R _ L E F T _ U P P E R , c l r N O N E , S T Y L E _ S O L I D , 0 ) ;
f o r ( i n t i = 0 ; i < 4 ; i + + )
f o r ( i n t j = 0 ; j < 8 ; j + + )
{
i n t i _ = 2 * i ;
i f ( M a t h M o d ( j , 2 ) > 0 ) i _ = 2 * i + 1 ;
i n t x i = x 0 - d i * ( 7 - i _ ) ;
i n t y i = y 0 + d i * ( 7 - j ) ;
c o l o r c l r = 0 ;
i f ( m a s _ p o s [ n ] [ i ] [ j ] > 0 )
{
c l r = c l r W h i t e ;
o u t _ R e c t ( i , j , x i , y i + 1 , d i + 2 , c l r , " m " + ( s t r i n g ) n , 0 , B O R D E R _ F L A T , C O R N E R _ L E F T _ U P P E R , c l r N O N E , S T Y L E _ S O L I D , 0 ) ;
}
e l s e
i f ( m a s _ p o s [ n ] [ i ] [ j ] < 0 )
{
c l r = c l r B l a c k ;
o u t _ R e c t ( i , j , x i , y i + 1 , d i + 2 , c l r , " m " + ( s t r i n g ) n , 0 , B O R D E R _ F L A T , C O R N E R _ L E F T _ U P P E R , c l r N O N E , S T Y L E _ S O L I D , 0 ) ;
}
e l s e
O b j e c t D e l e t e ( 0 , p r e f + S t r i n g C o n c a t e n a t e ( " m " + ( s t r i n g ) n , i , j ) ) ;
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
v o i d f i n d _ k r d _ p a n e l ( i n t & x 0 , i n t & y 0 , i n t & d i )
{
d o u b l e m a x = W i n d o w P r i c e M a x ( ) ;
d o u b l e m i n = W i n d o w P r i c e M i n ( ) ;
i n t x _ m a x , y _ m a x ;
i n t x _ m i n , y _ m i n ;
C h a r t T i m e P r i c e T o X Y ( 0 , 0 , T i m e [ 0 ] , m a x , x _ m a x , y _ m a x ) ;
C h a r t T i m e P r i c e T o X Y ( 0 , 0 , T i m e [ 0 ] , m i n , x _ m i n , y _ m i n ) ;
x 0 = 6 0 0 ;
y 0 = y _ m a x + 1 0 ;
i n t d = y _ m i n - y 0 - 2 0 ;
d i = ( i n t ) M a t h F l o o r ( 1 . 0 * d / 8 . 0 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d o u t _ C h e c k e r s ( i n t i _ , i n t j , i n t x 0 , i n t y 0 , i n t d , b o o l c h _ w h i t e , b o o l d a m k a = f a l s e )
{
c o l o r c l r = c l r B l a c k ;
i f ( c h _ w h i t e ) c l r = c l r W h i t e ;
i n t i = 2 * i _ ;
i f ( M a t h M o d ( j , 2 ) > 0 ) i = 2 * i _ + 1 ;
i n t x = x 0 - d * ( 7 - i ) ;
i n t y = y 0 + d * ( 7 - j ) ;
i f ( d a m k a )
L a b e l C r e a t e ( 0 , p r e f + S t r i n g C o n c a t e n a t e ( " s " , i _ , j ) , 0 , x + d / 2 , ( i n t ) M a t h C e i l ( y + d / 2 + d * 0 . 0 3 ) , " m " , " w i n g d i n g s " , ( i n t ) M a t h C e i l ( d * 0 . 6 ) , c l r , - 7 0 ) ;
e l s e
L a b e l C r e a t e ( 0 , p r e f + S t r i n g C o n c a t e n a t e ( " s " , i _ , j ) , 0 , x + d / 2 , ( i n t ) M a t h C e i l ( y + d / 2 + d * 0 . 0 3 ) , " l " , " w i n g d i n g s " , ( i n t ) M a t h C e i l ( d * 0 . 7 ) , c l r ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - -
v o i d o u t _ R e c t ( i n t i , i n t j , i n t x , i n t y , i n t w i d t h , c o l o r c l r _ f o n , s t r i n g s ,
l o n g z _ o r d e r = 1 , / / ?@8>@8B5B =0 =060B85 <KHLN
E N U M _ B O R D E R _ T Y P E b o r d e r = B O R D E R _ F L A T , / / B8? 3@0=8FK
E N U M _ B A S E _ C O R N E R c o r n e r = C O R N E R _ L E F T _ U P P E R , / / C3>; 3@0D8:0 4;O ?@82O7:8
c o l o r c l r = c l r B l u e , / / F25B ?;>A:>9 3@0=8FK ( F l a t )
E N U M _ L I N E _ S T Y L E s t y l e = S T Y L E _ S O L I D , / / AB8;L ?;>A:>9 3@0=8FK
i n t l i n e _ w i d t h = 2 , / / B>;I8=0 ?;>A:>9 3@0=8FK
b o o l b a c k = f a l s e , / / =0 704=5< ?;0=5
b o o l s e l e c t i o n = f a l s e , / / 2K45;8BL 4;O ?5@5<5I5=89
b o o l h i d d e n = t r u e / / A:@KB 2 A?8A:5 >1J5:B>2
)
{
i n t h e i g h t = w i d t h ;
s t r i n g n a m e = p r e f + S t r i n g C o n c a t e n a t e ( s , i , j ) ; ;
i f ( O b j e c t F i n d ( 0 , n a m e ) < 0 )
{
O b j e c t C r e a t e ( 0 , n a m e , O B J _ R E C T A N G L E _ L A B E L , 0 , 0 , 0 ) ;
/ / - - - CAB0=>28< B8? 3@0=8FK
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ B O R D E R _ T Y P E , b o r d e r ) ;
/ / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O R N E R , c o r n e r ) ;
/ / - - - CAB0=>28< F25B ?;>A:>9 @0<:8 ( 2 @568<5 F l a t )
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O L O R , c l r ) ;
/ / - - - CAB0=>28< AB8;L ;8=88 ?;>A:>9 @0<:8
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ S T Y L E , s t y l e ) ;
/ / - - - CAB0=>28< B>;I8=C ?;>A:>9 3@0=8FK
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ W I D T H , l i n e _ w i d t h ) ;
/ / - - - 2:;NG8< ( t r u e ) 8;8 >B:;NG8< ( f a l s e ) @568< ?5@5<5I5=8O <5B:8 <KHLN
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ S E L E C T A B L E , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ S E L E C T E D , s e l e c t i o n ) ;
/ / - - - A:@>5< ( t r u e ) 8;8 >B>1@078< ( f a l s e ) 8<O 3@0D8G5A:>3> >1J5:B0 2 A?8A:5 >1J5:B>2
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ H I D D E N , h i d d e n ) ;
/ / - - - CAB0=>28< ?@8>@8B5B =0 ?>;CG5=85 A>1KB8O =060B8O <KH8 =0 3@0D8:5
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ Z O R D E R , z _ o r d e r ) ;
}
/ / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ B A C K , b a c k ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ X D I S T A N C E , x ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ Y D I S T A N C E , y ) ;
/ / - - - CAB0=>28< @07<5@K <5B:8
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ X S I Z E , w i d t h ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ Y S I Z E , h e i g h t ) ;
/ / - - - CAB0=>28< F25B D>=0
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ B G C O L O R , c l r _ f o n ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
b o o l L a b e l C r e a t e ( c o n s t l o n g c h a r t _ I D = 0 , / / I D 3@0D8:0
c o n s t s t r i n g n a m e = " L a b e l " , / / 8<O <5B:8
c o n s t i n t s u b _ w i n d o w = 0 , / / =><5@ ?>4>:=0
c o n s t i n t x = 0 , / / :>>@48=0B0 ?> >A8 X
c o n s t i n t y = 0 , / / :>>@48=0B0 ?> >A8 Y
c o n s t s t r i n g t e x t = " L a b e l " , / / B5:AB
c o n s t s t r i n g f o n t = " A r i a l " , / / H@8DB
c o n s t i n t f o n t _ s i z e = 1 0 , / / @07<5@ H@8DB0
c o n s t c o l o r c l r = c l r R e d , / / F25B
c o n s t d o u b l e a n g l e = 0 . 0 , / / =0:;>= B5:AB0
c o n s t E N U M _ A N C H O R _ P O I N T a n c h o r = A N C H O R _ C E N T E R , / / A?>A>1 ?@82O7:8
c o n s t E N U M _ B A S E _ C O R N E R c o r n e r = C O R N E R _ L E F T _ U P P E R , / / C3>; 3@0D8:0 4;O ?@82O7:8
c o n s t b o o l b a c k = f a l s e , / / =0 704=5< ?;0=5
c o n s t b o o l s e l e c t i o n = f a l s e , / / 2K45;8BL 4;O ?5@5<5I5=89
c o n s t b o o l h i d d e n = t r u e , / / A:@KB 2 A?8A:5 >1J5:B>2
c o n s t l o n g z _ o r d e r = 0 ) / / ?@8>@8B5B =0 =060B85 <KHLN
{
/ / - - - A1@>A8< 7=0G5=85 >H81:8
R e s e t L a s t E r r o r ( ) ;
/ / - - - A>74048< B5:AB>2CN <5B:C
i f ( O b j e c t F i n d ( c h a r t _ I D , n a m e ) < 0 ) O b j e c t C r e a t e ( c h a r t _ I D , n a m e , O B J _ L A B E L , s u b _ w i n d o w , 0 , 0 ) ;
/ / - - - CAB0=>28< :>>@48=0BK <5B:8
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ X D I S T A N C E , x ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Y D I S T A N C E , y ) ;
/ / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O R N E R , c o r n e r ) ;
/ / - - - CAB0=>28< B5:AB
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ T E X T , t e x t ) ;
/ / - - - CAB0=>28< H@8DB B5:AB0
O b j e c t S e t S t r i n g ( c h a r t _ I D , n a m e , O B J P R O P _ F O N T , f o n t ) ;
/ / - - - CAB0=>28< @07<5@ H@8DB0
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ F O N T S I Z E , f o n t _ s i z e ) ;
/ / - - - CAB0=>28< C3>; =0:;>=0 B5:AB0
O b j e c t S e t D o u b l e ( c h a r t _ I D , n a m e , O B J P R O P _ A N G L E , a n g l e ) ;
/ / - - - CAB0=>28< A?>A>1 ?@82O7:8
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ A N C H O R , a n c h o r ) ;
/ / - - - CAB0=>28< F25B
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ C O L O R , c l r ) ;
/ / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ B A C K , b a c k ) ;
/ / - - - 2:;NG8< ( t r u e ) 8;8 >B:;NG8< ( f a l s e ) @568< ?5@5<5I5=8O <5B:8 <KHLN
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T A B L E , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ S E L E C T E D , s e l e c t i o n ) ;
/ / - - - A:@>5< ( t r u e ) 8;8 >B>1@078< ( f a l s e ) 8<O 3@0D8G5A:>3> >1J5:B0 2 A?8A:5 >1J5:B>2
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ H I D D E N , h i d d e n ) ;
/ / - - - CAB0=>28< ?@8>@8B5B =0 ?>;CG5=85 A>1KB8O =060B8O <KH8 =0 3@0D8:5
O b j e c t S e t I n t e g e r ( c h a r t _ I D , n a m e , O B J P R O P _ Z O R D E R , z _ o r d e r ) ;
/ / - - - CA?5H=>5 2K?>;=5=85
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l B u t t o n C r e a t e ( c o n s t s t r i n g n a m e = " b u t t o n " , / / 8<O :=>?:8
c o n s t i n t x = 0 , / / :>>@48=0B0 ?> >A8 X
c o n s t i n t y = 0 , / / :>>@48=0B0 ?> >A8 Y
c o n s t i n t w i d t h = 0 , / / H8@8=0 :=>?:8
c o n s t i n t h e i g h t = 0 , / / 2KA>B0 :=>?:8
c o n s t s t r i n g t e x t = " " , / / B5:AB
c o n s t i n t f o n t _ s i z e = 1 0 , / / @07<5@ H@8DB0
c o n s t c o l o r b a c k _ c l r = c l r Y e l l o w , / / F25B D>=0
c o n s t s t r i n g f o n t = " A r i a l B l a c k " , / / H@8DB
c o n s t b o o l b a c k = f a l s e , / / =0 704=5< ?;0=5
c o n s t l o n g z _ o r d e r = 1 , / / ?@8>@8B5B =0 =060B85 <KHLN
c o n s t c o l o r c l r = c l r B l a c k , / / F25B B5:AB0
c o n s t b o o l s t a t e = f a l s e , / / =060B0/ >B60B0
c o n s t c o l o r b o r d e r _ c l r = c l r B l u e , / / F25B 3@0=8FK
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
c o n s t b o o l s e l e c t i o n = f a l s e , / / 2K45;8BL 4;O ?5@5<5I5=89
c o n s t b o o l h i d d e n = f a l s e ) / / A:@KB 2 A?8A:5 >1J5:B>2
{
/ / - - - A1@>A8< 7=0G5=85 >H81:8
R e s e t L a s t E r r o r ( ) ;
i f ( O b j e c t F i n d ( n a m e ) = = - 1 )
{
/ / - - - A>74048< :=>?:C
O b j e c t C r e a t e ( 0 , n a m e , O B J _ B U T T O N , 0 , 0 , 0 ) ;
/ / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ U P P E R ) ;
/ / - - - A:@>5< ( t r u e ) 8;8 >B>1@078< ( f a l s e ) 8<O 3@0D8G5A:>3> >1J5:B0 2 A?8A:5 >1J5:B>2
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ H I D D E N , h i d d e n ) ;
/ / - - - CAB0=>28< ?@8>@8B5B =0 ?>;CG5=85 A>1KB8O =060B8O <KH8 =0 3@0D8:5
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ Z O R D E R , z _ o r d e r ) ;
}
/ / - - - CAB0=>28< F25B B5:AB0
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O L O R , c l r ) ;
/ / - - - CAB0=>28< @07<5@ H@8DB0
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ F O N T S I Z E , f o n t _ s i z e ) ;
/ / - - - CAB0=>28< H@8DB B5:AB0
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ F O N T , f o n t ) ;
/ / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ B A C K , b a c k ) ;
/ / - - - CAB0=>28< F25B 3@0=8FK
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ B O R D E R _ C O L O R , b o r d e r _ c l r ) ;
/ / - - - CAB0=>28< F25B D>=0
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ B G C O L O R , b a c k _ c l r ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ X D I S T A N C E , x ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ Y D I S T A N C E , y ) ;
/ / - - - CAB0=>28< @07<5@ :=>?:8
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ X S I Z E , w i d t h ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ Y S I Z E , h e i g h t ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ T E X T , t e x t ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ S T A T E , s t a t e ) ;
/ / - - - 2:;NG8< ( t r u e ) 8;8 >B:;NG8< ( f a l s e ) @568< ?5@5<5I5=8O :=>?:8 <KHLN
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ S E L E C T A B L E , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ S E L E C T E D , s e l e c t i o n ) ;
/ / - - - CA?5H=>5 2K?>;=5=85
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l B u t t o n C r e a t e _ c h ( c o n s t s t r i n g n a m e = " b u t t o n " , / / 8<O :=>?:8
c o n s t i n t x = 0 , / / :>>@48=0B0 ?> >A8 X
c o n s t i n t y = 0 , / / :>>@48=0B0 ?> >A8 Y
c o n s t i n t w i d t h = 0 , / / H8@8=0 :=>?:8
c o n s t i n t h e i g h t = 0 , / / 2KA>B0 :=>?:8
c o n s t c o l o r b a c k _ c l r = c l r B l a c k , / / F25B D>=0
c o n s t s t r i n g t e x t = " " , / / B5:AB
c o n s t s t r i n g f o n t = " " , / / H@8DB
c o n s t i n t f o n t _ s i z e = 1 0 , / / @07<5@ H@8DB0
c o n s t c o l o r c l r = c l r B l a c k , / / F25B B5:AB0
c o n s t b o o l s t a t e = f a l s e , / / =060B0/ >B60B0
c o n s t c o l o r b o r d e r _ c l r = c l r B l u e , / / F25B 3@0=8FK
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
c o n s t b o o l s e l e c t i o n = f a l s e , / / 2K45;8BL 4;O ?5@5<5I5=89
c o n s t b o o l b a c k = f a l s e , / / =0 704=5< ?;0=5
c o n s t b o o l h i d d e n = f a l s e , / / A:@KB 2 A?8A:5 >1J5:B>2
c o n s t l o n g z _ o r d e r = 1 ) / / ?@8>@8B5B =0 =060B85 <KHLN
{
/ / - - - A1@>A8< 7=0G5=85 >H81:8
R e s e t L a s t E r r o r ( ) ;
i f ( O b j e c t F i n d ( n a m e ) = = - 1 )
{
/ / - - - A>74048< :=>?:C
O b j e c t C r e a t e ( 0 , n a m e , O B J _ B U T T O N , 0 , 0 , 0 ) ;
/ / - - - CAB0=>28< C3>; 3@0D8:0, >B=>A8B5;L=> :>B>@>3> 1C4CB >?@545;OBLAO :>>@48=0BK B>G:8
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O R N E R , C O R N E R _ L E F T _ U P P E R ) ;
/ / - - - A:@>5< ( t r u e ) 8;8 >B>1@078< ( f a l s e ) 8<O 3@0D8G5A:>3> >1J5:B0 2 A?8A:5 >1J5:B>2
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ H I D D E N , h i d d e n ) ;
/ / - - - CAB0=>28< ?@8>@8B5B =0 ?>;CG5=85 A>1KB8O =060B8O <KH8 =0 3@0D8:5
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ Z O R D E R , z _ o r d e r ) ;
}
/ / - - - CAB0=>28< F25B B5:AB0
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O L O R , c l r ) ;
/ / - - - CAB0=>28< @07<5@ H@8DB0
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ F O N T S I Z E , f o n t _ s i z e ) ;
/ / - - - CAB0=>28< H@8DB B5:AB0
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ F O N T , f o n t ) ;
/ / - - - >B>1@078< =0 ?5@54=5< ( f a l s e ) 8;8 704=5< ( t r u e ) ?;0=5
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ B A C K , b a c k ) ;
/ / - - - CAB0=>28< F25B 3@0=8FK
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ B O R D E R _ C O L O R , b o r d e r _ c l r ) ;
/ / - - - CAB0=>28< F25B D>=0
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ B G C O L O R , b a c k _ c l r ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ X D I S T A N C E , x ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ Y D I S T A N C E , y ) ;
/ / - - - CAB0=>28< @07<5@ :=>?:8
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ X S I Z E , w i d t h ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ Y S I Z E , h e i g h t ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ T E X T , t e x t ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ S T A T E , s t a t e ) ;
/ / - - - 2:;NG8< ( t r u e ) 8;8 >B:;NG8< ( f a l s e ) @568< ?5@5<5I5=8O :=>?:8 <KHLN
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ S E L E C T A B L E , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ S E L E C T E D , s e l e c t i o n ) ;
/ / - - - CA?5H=>5 2K?>;=5=85
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O n C h a r t E v e n t ( c o n s t i n t i d , c o n s t l o n g & l p a r a m , c o n s t d o u b l e & d p a r a m , c o n s t s t r i n g & s p a r a m )
{ / / ?@>F54C@0 2K7K205BAO 2> 2@5<O :. - ;. 459AB28O >?5@0B>@0
R e s e t L a s t E r r o r ( ) ; / / - - - A1@>A8< 7=0G5=85 >H81:8
/ / - - - ?@>25@:0 A>1KB8O =060B8O :=>?:8 <KH8 =0 >1J5:B5
i f ( i d = = C H A R T E V E N T _ O B J E C T _ C L I C K )
{
i f ( s p a r a m = = b u t _ b e g )
{
B e g i n _ p o s ( ) ;
o u t _ m a s _ c h ( x 0 _ , y 0 _ , d i _ ) ;
u s t _ c h e c k e r s = 0 ;
O b j e c t D e l e t e ( 0 , b u t _ c h e c k e r s + " t " ) ;
A r r a y I n i t i a l i z e ( m a s _ s t e k , 0 ) ;
e n d _ s t e k = k o l _ s t e k ;
t e k _ p o s _ s t e k a = e n d _ s t e k ;
p u t _ s t e k ( ) ;
X _ T a k e = - 1 ;
Y _ T a k e = - 1 ;
o u t _ P a n e l ( x 0 _ , y 0 _ , d i _ , X _ T a k e , Y _ T a k e ) ;
r e t u r n ;
}
i f ( s p a r a m = = b u t _ d e l _ a l l )
{
u s t _ c h e c k e r s = 0 ;
O b j e c t D e l e t e ( 0 , b u t _ c h e c k e r s + " t " ) ;
A r r a y I n i t i a l i z e ( m a s _ c h , 0 ) ;
o u t _ m a s _ c h ( x 0 _ , y 0 _ , d i _ ) ;
A r r a y I n i t i a l i z e ( m a s _ s t e k , 0 ) ;
e n d _ s t e k = k o l _ s t e k ;
t e k _ p o s _ s t e k a = e n d _ s t e k ;
X _ T a k e = - 1 ;
Y _ T a k e = - 1 ;
o u t _ P a n e l ( x 0 _ , y 0 _ , d i _ , X _ T a k e , Y _ T a k e ) ;
r e t u r n ;
}
i f ( s p a r a m = = b u t _ l e f t )
{
i f ( t e k _ p o s _ s t e k a < k o l _ s t e k ) t e k _ p o s _ s t e k a + + ;
g e t _ s t e k ( ) ;
o u t _ m a s _ c h ( x 0 _ , y 0 _ , d i _ ) ;
c l r _ s t r e l ( ) ;
r e t u r n ;
}
i f ( s p a r a m = = b u t _ r i g h t )
{
i f ( t e k _ p o s _ s t e k a > e n d _ s t e k ) t e k _ p o s _ s t e k a - - ;
g e t _ s t e k ( ) ;
o u t _ m a s _ c h ( x 0 _ , y 0 _ , d i _ ) ;
c l r _ s t r e l ( ) ;
r e t u r n ;
}
i f ( s p a r a m = = b u t _ u s t )
{
g a m e = ! g a m e ;
i f ( g a m e )
{
O b j e c t S e t S t r i n g ( 0 , b u t _ u s t , O B J P R O P _ T E X T , " G a m e " ) ;
O b j e c t S e t I n t e g e r ( 0 , b u t _ u s t , O B J P R O P _ F O N T S I Z E , 1 1 ) ;
O b j e c t S e t I n t e g e r ( 0 , b u t _ u s t , O B J P R O P _ B G C O L O R , c l r Y e l l o w ) ;
/ / O b j e c t S e t I n t e g e r ( 0 , b u t _ c h e c k e r s , O B J P R O P _ B G C O L O R , c l r _ O s n ) ;
u s t _ c h e c k e r s = 0 ;
O b j e c t D e l e t e ( 0 , b u t _ c h e c k e r s + " t " ) ;
A r r a y I n i t i a l i z e ( m a s _ s t e k , 0 ) ;
e n d _ s t e k = k o l _ s t e k ;
t e k _ p o s _ s t e k a = e n d _ s t e k ;
p u t _ s t e k ( ) ;
}
e l s e
{
O b j e c t S e t S t r i n g ( 0 , b u t _ u s t , O B J P R O P _ T E X T , " S e t " ) ;
O b j e c t S e t I n t e g e r ( 0 , b u t _ u s t , O B J P R O P _ F O N T S I Z E , 1 5 ) ;
O b j e c t S e t I n t e g e r ( 0 , b u t _ u s t , O B J P R O P _ B G C O L O R , c l r R e d ) ;
/ / O b j e c t S e t I n t e g e r ( 0 , b u t _ c h e c k e r s , O B J P R O P _ B G C O L O R , c l r R e d ) ;
u s t _ c h e c k e r s = 0 ;
o u t _ u s t _ c h _ c i c l e ( ) ;
}
r e t u r n ;
}
i f ( ! g a m e & & s p a r a m = = b u t _ c h e c k e r s )
{
o u t _ u s t _ c h _ c i c l e ( ) ;
r e t u r n ;
}
i f ( S t r i n g S u b s t r ( s p a r a m , 0 , 4 ) = = p r e f + " r " )
{
i n t i = S t r T o I n t e g e r ( S t r i n g S u b s t r ( s p a r a m , 4 , 1 ) ) ;
i n t j = S t r T o I n t e g e r ( S t r i n g S u b s t r ( s p a r a m , 5 , 1 ) ) ;
i f ( i > = 0 & & i < 4 & & j > = 0 & & j < 8 )
i f ( g a m e )
{
i f ( m a s _ c h [ i ] [ j ] = = 0 )
{
m a s _ c h [ i ] [ j ] = u s t _ c h e c k e r s ;
u s t _ c h e c k e r s = 0 ;
o u t _ u s t _ c h ( ) ;
X _ T a k e = - 1 ;
Y _ T a k e = - 1 ;
o u t _ P a n e l ( x 0 _ , y 0 _ , d i _ , X _ T a k e , Y _ T a k e ) ;
}
e l s e
{
u s t _ c h e c k e r s = m a s _ c h [ i ] [ j ] ;
m a s _ c h [ i ] [ j ] = 0 ;
o u t _ u s t _ c h ( ) ;
X _ T a k e = i ;
Y _ T a k e = j ;
t e k _ t i m e _ t a k e = t i m e _ t a k e ;
o u t _ P a n e l ( x 0 _ , y 0 _ , d i _ , X _ T a k e , Y _ T a k e ) ;
}
o u t _ m a s _ c h ( x 0 _ , y 0 _ , d i _ ) ;
p u t _ s t e k ( ) ;
}
e l s e
{
i f ( m a s _ c h [ i ] [ j ] = = 0 )
m a s _ c h [ i ] [ j ] = u s t _ c h e c k e r s ;
e l s e
m a s _ c h [ i ] [ j ] = 0 ;
X _ T a k e = - 1 ;
Y _ T a k e = - 1 ;
o u t _ P a n e l ( x 0 _ , y 0 _ , d i _ , X _ T a k e , Y _ T a k e ) ;
o u t _ m a s _ c h ( x 0 _ , y 0 _ , d i _ ) ;
}
r e t u r n ;
}
i f ( s p a r a m = = b u t _ p u t )
{
p u t _ m a s _ p o s ( ) ;
o u t _ m a s _ p o s ( ) ;
r e t u r n ;
}
i f ( s p a r a m = = b u t _ c l r )
{
i n i t _ m a s _ p o s ( ) ;
o u t _ m a s _ p o s ( ) ;
r e t u r n ;
}
i f ( S t r i n g S u b s t r ( s p a r a m , 0 , 4 ) = = p r e f + " m " )
{
i n t i = S t r T o I n t e g e r ( S t r i n g S u b s t r ( s p a r a m , 4 , 1 ) ) ;
g e t _ m a s _ p o s ( i ) ;
o u t _ m a s _ c h ( x 0 _ , y 0 _ , d i _ ) ;
X _ T a k e = - 1 ;
Y _ T a k e = - 1 ;
o u t _ P a n e l ( x 0 _ , y 0 _ , d i _ , X _ T a k e , Y _ T a k e ) ;
r e t u r n ;
}
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - -
v o i d o u t _ m a s _ p o s ( )
{
i n t k o l _ p o s _ = 0 ;
f o r ( i n t i = 0 ; i < k o l _ p o s ; i + + ) i f ( m a s _ i d _ p o s [ i ] > 0 ) k o l _ p o s _ + + ;
/ / . . . . . . . . . . . . . . . . . . . . . . . . . .
f o r ( i n t i = 0 ; i < k o l _ p o s ; i + + )
i f ( m a s _ i d _ p o s [ i ] > 0 )
{
L a b e l C r e a t e ( 0 , b u t _ p o s + ( s t r i n g ) i , 0 , 8 1 0 , 4 5 * ( i + 1 ) + 6 0 , ( s t r i n g ) ( k o l _ p o s _ - i ) , " A r i a l B l a c k " , 1 2 , c l r _ T e x t ) ;
o u t _ m i n i _ p o s ( 8 6 0 , 4 5 * ( i + 1 ) + 4 0 , i ) ;
}
e l s e
{
i f ( O b j e c t F i n d ( 0 , b u t _ p o s + ( s t r i n g ) i ) > = 0 ) O b j e c t D e l e t e ( b u t _ p o s + ( s t r i n g ) i ) ;
O b j e c t s D e l e t e A l l ( 0 , p r e f + " m " + ( s t r i n g ) i ) ;
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - -
v o i d o u t _ u s t _ c h _ c i c l e ( )
{
s w i t c h ( u s t _ c h e c k e r s )
{
c a s e 1 : u s t _ c h e c k e r s = 2 ; L a b e l C r e a t e ( 0 , b u t _ c h e c k e r s + " t " , 0 , 7 0 0 + 6 4 / 2 , 2 0 0 + 6 4 / 2 , " m " , " w i n g d i n g s " , 3 5 , c l r W h i t e , - 7 0 ) ; b r e a k ;
c a s e 2 : u s t _ c h e c k e r s = - 1 ; L a b e l C r e a t e ( 0 , b u t _ c h e c k e r s + " t " , 0 , 7 0 0 + 6 4 / 2 , 2 0 0 + 6 4 / 2 , " l " , " w i n g d i n g s " , 4 0 , c l r B l a c k ) ; b r e a k ;
c a s e - 1 : u s t _ c h e c k e r s = - 2 ; L a b e l C r e a t e ( 0 , b u t _ c h e c k e r s + " t " , 0 , 7 0 0 + 6 4 / 2 , 2 0 0 + 6 4 / 2 , " m " , " w i n g d i n g s " , 3 5 , c l r B l a c k , - 7 0 ) ; b r e a k ;
d e f a u l t : u s t _ c h e c k e r s = 1 ; L a b e l C r e a t e ( 0 , b u t _ c h e c k e r s + " t " , 0 , 7 0 0 + 6 4 / 2 , 2 0 0 + 6 4 / 2 , " l " , " w i n g d i n g s " , 4 0 , c l r W h i t e ) ; b r e a k ;
}
}
/ / - - - - - - - - - - - - - - - - - - - - -
v o i d o u t _ u s t _ c h ( )
{
s w i t c h ( u s t _ c h e c k e r s )
{
c a s e 1 : L a b e l C r e a t e ( 0 , b u t _ c h e c k e r s + " t " , 0 , 7 0 0 + 6 4 / 2 , 2 0 0 + 6 4 / 2 , " l " , " w i n g d i n g s " , 4 0 , c l r W h i t e ) ; b r e a k ;
c a s e 2 : L a b e l C r e a t e ( 0 , b u t _ c h e c k e r s + " t " , 0 , 7 0 0 + 6 4 / 2 , 2 0 0 + 6 4 / 2 , " m " , " w i n g d i n g s " , 3 5 , c l r W h i t e , - 7 0 ) ; b r e a k ;
c a s e - 1 : L a b e l C r e a t e ( 0 , b u t _ c h e c k e r s + " t " , 0 , 7 0 0 + 6 4 / 2 , 2 0 0 + 6 4 / 2 , " l " , " w i n g d i n g s " , 4 0 , c l r B l a c k ) ; b r e a k ;
c a s e - 2 : L a b e l C r e a t e ( 0 , b u t _ c h e c k e r s + " t " , 0 , 7 0 0 + 6 4 / 2 , 2 0 0 + 6 4 / 2 , " m " , " w i n g d i n g s " , 3 5 , c l r B l a c k , - 7 0 ) ; b r e a k ;
d e f a u l t : O b j e c t D e l e t e ( 0 , b u t _ c h e c k e r s + " t " ) ; b r e a k ;
}
}
/ / - - - - - - - - - - - - - - - - - - - - -
Comments