Price Data Components
Orders Execution
Indicators Used
Miscellaneous
1
Views
0
Downloads
0
Favorites
MultiTrader
ÿþ/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ |
/ / | | \ / | | | | ( _ ) _ _ | | | |
/ / | | . . | _ _ | | | _ _ | | _ _ _ _ _ _ _ _ | | _ _ _ _ _ _ |
/ / | | | \ / | | | | | | _ _ | | | | ' _ _ / _ ` | / _ ` | / _ \ ' _ _ | |
/ / | | | | | | _ | | | | _ | | | | | | ( _ | | ( _ | | _ _ / | |
/ / | \ _ | | _ / \ _ _ , _ | _ | \ _ _ | _ | \ _ / _ | \ _ _ , _ | \ _ _ , _ | \ _ _ _ | _ | |
/ / | |
/ / | O p e n - s o u r c e s o f t w a r e ( O S S ) M u l t i T r a d e r . m q 4 |
/ / | P r o v i d e d f r e e o f c h a r g e C o p y r i g h t © 2 0 1 9 , M h F x 7 < > M a n i H e s h m a t |
/ / | B y M h F x 7 < > M a n i H e s h m a t h t t p s : / / w w w . m q l 5 . c o m / e n / u s e r s / m h f x 7 |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
# d e f i n e C o p y r i g h t " C o p y r i g h t © 2 0 1 9 , M h F x 7 < > M a n i H e s h m a t "
# p r o p e r t y c o p y r i g h t C o p y r i g h t
# d e f i n e L i n k " h t t p s : / / w w w . m q l 5 . c o m / e n / u s e r s / m h f x 7 "
# p r o p e r t y l i n k L i n k
# d e f i n e V e r s i o n " 1 . 0 0 "
# p r o p e r t y v e r s i o n V e r s i o n
# p r o p e r t y s t r i c t
/ / - - -
# d e f i n e E x p e r t N a m e " M u l t i T r a d e r "
# d e f i n e O B J P R E F I X " M T - "
/ / - - -
# p r o p e r t y d e s c r i p t i o n " W a r n i n g : T h e a u t o m a t i c a l l y g e n e r a t e d l o t s i z e i s a n e s t i m a t e d v a l u e a n d s h o u l d n o t b e c o n s i d e r e d a c c u r a t e , n o t e t h a t t h i s f e a t u r e a l w a y s r e q u i r e s a s t o p l o s s d i s t a n c e . \ n "
# p r o p e r t y d e s c r i p t i o n " N o t e : A l l d i s p l a y e d v a l u e s s y m b o l i z e d w i t h a \ " p \ " a s w e l l a s a l l i n p u t d i s t a n c e s a r e i n p o i n t s . \ n "
# p r o p e r t y d e s c r i p t i o n " T h i s s o f t w a r e i s p r o v i d e d f r e e o f c h a r g e a n d c a n b e d o w n l o a d e d u n d e r t h e f o l l o w i n g l i n k : "
# p r o p e r t y d e s c r i p t i o n " h t t p s : / / w w w . m q l 5 . c o m / e n / c o d e / 2 4 7 8 6 "
/ / - - -
# d e f i n e C L I E N T _ B G _ W I D T H 1 1 9 0
# d e f i n e I N D E N T _ T O P 1 5
/ / - - -
# d e f i n e O P E N P R I C E 0
# d e f i n e C L O S E P R I C E 1
/ / - - -
# d e f i n e O P _ A L L - 1
/ / - - -
# d e f i n e K E Y _ U P 3 8
# d e f i n e K E Y _ D O W N 4 0
/ / - - -
e n u m E N U M _ T F { D A I L Y / * D a i l y * / , W E E K L Y / * W e e k l y * / , M O N T H L Y / * M o n t h l y * / } ;
e n u m E N U M _ M O D E { F U L L / * F u l l * / , C O M P A C T / * C o m p a c t * / , M I N I / * M i n i * / } ;
/ / - - - U s e r i n p u t s
i n p u t s t r i n g = " < - - - G e n e r a l - - - > " ;
i n p u t E N U M _ M O D E S e l e c t e d M o d e = C O M P A C T ; / * D a s h b o a r d ( S i z e ) * /
i n p u t E N U M _ T F C a l c P e r i o d = D A I L Y ; / * T i m e F r a m e * /
i n p u t i n t B u y L e v e l = 9 0 ; / / H i g h L e v e l %
i n p u t i n t S e l l L e v e l = 1 0 ; / / L o w L e v e l %
i n p u t s t r i n g P r e f i x = " " ; / / S y m b o l P r e f i x
i n p u t s t r i n g S u f f i x = " " ; / / S y m b o l S u f f i x
e x t e r n s t r i n g T r a d e S y m b o l s = " A U D C A D ; A U D C H F ; A U D J P Y ; A U D N Z D ; A U D U S D ; C A D C H F ; C A D J P Y ; C H F J P Y ; E U R A U D ; E U R C A D ; E U R C H F ; E U R G B P ; E U R J P Y ; E U R N Z D ; E U R U S D ; G B P A U D ; G B P C A D ; G B P C H F ; G B P N Z D ; G B P U S D ; G B P J P Y ; N Z D C H F ; N Z D C A D ; N Z D J P Y ; N Z D U S D ; U S D C A D ; U S D C H F ; U S D J P Y ; " ; / * S y m b o l L i s t ( s e p a r a t e d b y " ; " ) * /
i n p u t s t r i n g = " < - - - T r a d i n g - - - > " ;
i n p u t b o o l O n e C l i c k T r a d i n g = t r u e ; / * O n e - C l i c k T r a d i n g * /
i n p u t i n t M a g i c N u m b e r = 0 ; / / M a g i c N u m b e r
i n p u t i n t S l i p p a g e = 3 ; / / S l i p p a g e
i n p u t b o o l K e y b o a r d T r a d i n g = t r u e ; / * K e y b o a r d T r a d i n g * /
i n p u t s t r i n g B u y K e y = " B " ; / * B u y K e y * /
i n p u t s t r i n g C l o s e K e y = " C " ; / * C l o s e K e y * /
i n p u t s t r i n g S e l l K e y = " S " ; / * S e l l K e y * /
i n p u t s t r i n g = " < - - - A u t o S L - - - > " ;
i n p u t E N U M _ T I M E F R A M E S A T R T F = P E R I O D _ H 1 ; / * A T R T i m e F r a m e * /
i n p u t i n t A T R P e r i o d = 1 4 ; / * A T R P e r i o d * /
e x t e r n d o u b l e A T R M u l t i = 1 ; / * A T R M u l t i p l i e r * /
i n p u t s t r i n g = " < - - - A l e r t s - - - > " ;
i n p u t b o o l P a i r S u g g e s t = t r u e ; / * S u g g e s t i o n s * /
i n p u t b o o l S m a r t A l e r t = t r u e ; / * S m a r t A l e r t s * /
i n p u t b o o l _ A l e r t = t r u e ; / * P o p - u p s * /
i n p u t b o o l P u s h = f a l s e ; / * P u s h * /
i n p u t b o o l M a i l = f a l s e ; / * E m a i l * /
i n p u t s t r i n g = " < - - - G r a p h i c s - - - > " ;
i n p u t c o l o r C O L O R _ B O R D E R = C ' 2 5 5 , 1 5 1 , 2 5 ' ; / * P a n e l B o r d e r * /
i n p u t c o l o r C O L O R _ C B G _ L I G H T = C ' 2 5 2 , 2 5 2 , 2 5 2 ' ; / * C h a r t B a c k g r o u n d ( L i g h t ) * /
i n p u t c o l o r C O L O R _ C B G _ D A R K = C ' 2 8 , 2 7 , 2 6 ' ; / * C h a r t B a c k g r o u n d ( D a r k ) * /
/ / - - - G l o b a l v a r i a b l e s
s t r i n g s T r a d e S y m b o l s = T r a d e S y m b o l s ;
s t r i n g s F o n t T y p e = " " ;
/ / - - -
d o u b l e R i s k P = 0 ;
d o u b l e R i s k C = 0 ;
d o u b l e R i s k I n p C = 0 ;
d o u b l e R i s k I n p P = 0 ;
/ / - - -
i n t R e s e t A l e r t U p = 0 ;
i n t R e s e t A l e r t D w n = 0 ;
b o o l U s e r I s E d i t i n g = f a l s e ;
b o o l U s e r W a s N o t i f i e d = f a l s e ;
/ / - - -
d o u b l e S t o p L o s s D i s t = 0 ;
d o u b l e R i s k I n p = 0 ;
d o u b l e R R = 0 ;
d o u b l e _ T P = 0 ;
/ / - - -
i n t S e l e c t e d T h e m e = 0 ;
i n t P r i c e R o w L e f t = 0 ;
i n t P r i c e R o w R i g h t = 0 ;
b o o l S h o w T r a d e P a n e l = t r u e ;
/ / - - -
i n t E r r o r I n t e r v a l = 3 0 0 ;
i n t L a s t R e a s o n = 0 ;
s t r i n g E r r o r S o u n d = " e r r o r . w a v " ;
b o o l S o u n d I s E n a b l e d = f a l s e ;
b o o l A l a r m I s E n a b l e d = f a l s e ;
i n t P r o f i t M o d e = 0 ;
/ / - - -
b o o l A U D A l a r m = t r u e ;
b o o l C A D A l a r m = t r u e ;
b o o l C H F A l a r m = t r u e ;
b o o l E U R A l a r m = t r u e ;
b o o l G B P A l a r m = t r u e ;
b o o l J P Y A l a r m = t r u e ;
b o o l N Z D A l a r m = t r u e ;
b o o l U S D A l a r m = t r u e ;
/ / - - -
b o o l A U D T r i g g e r = f a l s e ;
b o o l C A D T r i g g e r = f a l s e ;
b o o l C H F T r i g g e r = f a l s e ;
b o o l E U R T r i g g e r = f a l s e ;
b o o l G B P T r i g g e r = f a l s e ;
b o o l J P Y T r i g g e r = f a l s e ;
b o o l N Z D T r i g g e r = f a l s e ;
b o o l U S D T r i g g e r = f a l s e ;
/ / - - - -
s t r i n g S u g g e s t e d P a i r = " " ;
i n t L a s t T i m e F r a m e = 0 ;
i n t L a s t M o d e = - 1 ;
/ / - - -
b o o l A u t o S L = f a l s e ;
b o o l A u t o T P = f a l s e ;
b o o l A u t o L o t s = f a l s e ;
b o o l C l e a r e d T e m p l a t e = f a l s e ;
b o o l F i r s t R u n = t r u e ;
/ / - - -
c o l o r C O L O R _ B G = c l r N O N E ;
c o l o r C O L O R _ F O N T = c l r N O N E ;
/ / - - -
c o l o r C O L O R _ G R E E N = c l r F o r e s t G r e e n ;
c o l o r C O L O R _ R E D = c l r F i r e B r i c k ;
c o l o r C O L O R _ S E L L = C ' 2 2 5 , 6 8 , 2 9 ' ;
c o l o r C O L O R _ B U Y = C ' 3 , 9 5 , 1 7 2 ' ;
c o l o r C O L O R _ C L O S E = c l r N O N E ;
c o l o r C O L O R _ A U T O = c l r D o d g e r B l u e ;
c o l o r C O L O R _ L O W = c l r N O N E ;
c o l o r C O L O R _ M A R K E R = c l r N O N E ;
i n t F O N T S I Z E = 9 ;
/ / - - -
i n t _ x 1 = 0 ;
i n t _ y 1 = 0 ;
i n t C h a r t X = 0 ;
i n t C h a r t Y = 0 ;
i n t C h a r t _ X S i z e = 0 ;
i n t C h a r t _ Y S i z e = 0 ;
i n t C a l c T F = 0 ;
d a t e t i m e d r o p _ t i m e = 0 ;
d a t e t i m e s t a u t s _ t i m e = 0 ;
/ / - - -
c o l o r C O L O R _ R E G B G = C ' 2 7 , 2 7 , 2 7 ' ;
c o l o r C O L O R _ R E G F O N T = c l r S i l v e r ;
/ / - - -
i n t B c k _ W i n _ X = 2 5 5 ;
i n t B c k _ W i n _ Y = 1 5 0 ;
/ / - - -
s t r i n g a S y m b o l s [ ] ;
s t r i n g U s e d S y m b o l s [ ] ;
/ / - - -
s t r i n g M B _ C A P T I O N = E x p e r t N a m e + " v " + V e r s i o n + " | " + C o p y r i g h t ;
/ / - - -
s t r i n g P r i c e R o w L e f t A r r [ ] = { " B i d " , " L o w " , " O p e n " , " P i v o t " } ;
s t r i n g P r i c e R o w R i g h t A r r [ ] = { " A s k " , " H i g h " , " O p e n " , " P i v o t " } ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | E x p e r t i n i t i a l i z a t i o n f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t O n I n i t ( )
{
/ / - - - - C r e a t e T i m e r
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 ) ;
/ / - - - S t r a t e g y T e s t e r
i f ( M Q L I n f o I n t e g e r ( M Q L _ T E S T E R ) )
{
_ O n T e s t e r ( ) ;
r e t u r n ( I N I T _ S U C C E E D E D ) ;
}
/ / - - - D i s c l a i m e r
i f ( ! G l o b a l V a r i a b l e C h e c k ( O B J P R E F I X + " D i s c l a i m e r " ) | | G l o b a l V a r i a b l e G e t ( O B J P R E F I X + " D i s c l a i m e r " ) ! = 1 )
{
/ / - - -
s t r i n g m e s s a g e = " D I S C L A I M E R : \ n \ n I f y o u t r a d e w i t h M u l t i T r a d e r , y o u a r e d o i n g s o a t y o u r o w n d i s c r e t i o n . F o r e x i s a r i s k y b u s i n e s s . Y o u m a y l o s e a s u b s t a n t i a l a m o u n t o f m o n e y b y t a k i n g t h e r i s k o f l i v e t r a d i n g . T h e a u t h o r o f M u l t i T r a d e r a n d / o r M h F x 7 < > M a n i H e s h m a t w i l l n o t b e h e l d r e s p o n s i b l e f o r y o u r l o s s e s o r p r o b l e m s o f a n y k i n d i f t h e E A i s d i r e c t l y o r i n d i r e c t l y r e s p o n s i b l e f o r a n y l o s s e s . " ;
/ / - - -
i f ( M e s s a g e B o x ( m e s s a g e , M B _ C A P T I O N , M B _ O K C A N C E L | M B _ I C O N W A R N I N G ) = = I D O K )
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + " D i s c l a i m e r " , 1 ) ;
e l s e
r e t u r n ( I N I T _ F A I L E D ) ;
}
/ / - - -
i f ( ! G l o b a l V a r i a b l e C h e c k ( O B J P R E F I X + " T h e m e " ) )
S e l e c t e d T h e m e = 1 ;
e l s e
S e l e c t e d T h e m e = ( i n t ) G l o b a l V a r i a b l e G e t ( O B J P R E F I X + " T h e m e " ) ;
/ / - - -
i f ( S e l e c t e d T h e m e = = 0 )
{
C O L O R _ B G = C ' 2 4 0 , 2 4 0 , 2 4 0 ' ;
C O L O R _ F O N T = C ' 4 0 , 4 1 , 5 9 ' ;
C O L O R _ G R E E N = c l r F o r e s t G r e e n ;
C O L O R _ R E D = c l r I n d i a n R e d ;
C O L O R _ L O W = c l r G o l d e n r o d ;
C O L O R _ M A R K E R = c l r D a r k O r a n g e ;
}
e l s e
{
C O L O R _ B G = C ' 2 8 , 2 8 , 2 8 ' ;
C O L O R _ F O N T = c l r S i l v e r ;
C O L O R _ G R E E N = c l r L i m e G r e e n ;
C O L O R _ R E D = c l r R e d ;
C O L O R _ L O W = c l r Y e l l o w ;
C O L O R _ M A R K E R = c l r G o l d ;
}
/ / - - -
i f ( L a s t R e a s o n = = 0 )
{
/ / - - - O f f l i n e C h a r t
i f ( C h a r t G e t I n t e g e r ( 0 , C H A R T _ I S _ O F F L I N E ) )
{
M e s s a g e B o x ( " T h e c u r r e n c t c h a r t i s o f f l i n e , m a k e s u r e t o u n c h e c k \ " O f f l i n e c h a r t \ " u n d e r P r o p e r t i e s ( F 8 ) - > C o m m o n . " ,
M B _ C A P T I O N , M B _ O K | M B _ I C O N E R R O R ) ;
r e t u r n ( I N I T _ F A I L E D ) ;
}
/ / - - - C h e c k C o n n e c t i o n
i f ( ! T e r m i n a l I n f o I n t e g e r ( T E R M I N A L _ C O N N E C T E D ) )
M e s s a g e B o x ( " W a r n i n g : N o I n t e r n e t c o n n e c t i o n f o u n d ! \ n P l e a s e c h e c k y o u r n e t w o r k c o n n e c t i o n . " ,
M B _ C A P T I O N + " | " + " # " + I n t e g e r T o S t r i n g ( 1 2 3 ) , M B _ O K | M B _ I C O N W A R N I N G ) ;
/ / - - - C h e c k T r a d i n g I s A l l o w e d
i f ( ! T e r m i n a l I n f o I n t e g e r ( T E R M I N A L _ T R A D E _ A L L O W E D ) ) / / T e r m i n a l
{
M e s s a g e B o x ( " W a r n i n g : C h e c k i f a u t o m a t e d t r a d i n g i s a l l o w e d i n t h e t e r m i n a l s e t t i n g s ! " ,
M B _ C A P T I O N + " | " + " # " + I n t e g e r T o S t r i n g ( 1 2 3 ) , M B _ O K | M B _ I C O N W A R N I N G ) ;
}
e l s e
{
i f ( ! M Q L I n f o I n t e g e r ( M Q L _ T R A D E _ A L L O W E D ) ) / / C h e c k B o x
{
M e s s a g e B o x ( " W a r n i n g : A u t o m a t e d t r a d i n g i s f o r b i d d e n i n t h e p r o g r a m s e t t i n g s f o r " + _ _ F I L E _ _ ,
M B _ C A P T I O N + " | " + " # " + I n t e g e r T o S t r i n g ( 1 2 3 ) , M B _ O K | M B _ I C O N W A R N I N G ) ;
}
}
/ / - - -
i f ( ! A c c o u n t I n f o I n t e g e r ( A C C O U N T _ T R A D E _ E X P E R T ) ) / / S e r v e r
M e s s a g e B o x ( " W a r n i n g : A u t o m a t e d t r a d i n g i s f o r b i d d e n f o r t h e a c c o u n t " + I n t e g e r T o S t r i n g ( A c c o u n t I n f o I n t e g e r ( A C C O U N T _ L O G I N ) ) + " a t t h e t r a d e s e r v e r s i d e . " ,
M B _ C A P T I O N + " | " + " # " + I n t e g e r T o S t r i n g ( 1 2 3 ) , M B _ O K | M B _ I C O N W A R N I N G ) ;
/ / - - -
i f ( ! A c c o u n t I n f o I n t e g e r ( A C C O U N T _ T R A D E _ A L L O W E D ) ) / / I n v e s t o r
M e s s a g e B o x ( " W a r n i n g : T r a d i n g i s f o r b i d d e n f o r t h e a c c o u n t " + I n t e g e r T o S t r i n g ( A c c o u n t I n f o I n t e g e r ( A C C O U N T _ L O G I N ) ) + " . " +
" \ n \ n P e r h a p s a n i n v e s t o r p a s s w o r d h a s b e e n u s e d t o c o n n e c t t o t h e t r a d i n g a c c o u n t . " +
" \ n \ n C h e c k t h e t e r m i n a l j o u r n a l f o r t h e f o l l o w i n g e n t r y : " +
" \ n \ ' " + I n t e g e r T o S t r i n g ( A c c o u n t I n f o I n t e g e r ( A C C O U N T _ L O G I N ) ) + " \ ' : t r a d i n g h a s b e e n d i s a b l e d - i n v e s t o r m o d e . " ,
M B _ C A P T I O N + " | " + " # " + I n t e g e r T o S t r i n g ( E R R _ T R A D E _ D I S A B L E D ) , M B _ O K | M B _ I C O N W A R N I N G ) ;
/ / - - -
i f ( ! S y m b o l I n f o I n t e g e r ( _ S y m b o l , S Y M B O L _ T R A D E _ M O D E ) ) / / S y m b o l
M e s s a g e B o x ( " W a r n i n g : T r a d i n g i s d i s a b l e d f o r t h e s y m b o l " + _ S y m b o l + " a t t h e t r a d e s e r v e r s i d e . " ,
M B _ C A P T I O N + " | " + " # " + I n t e g e r T o S t r i n g ( E R R _ T R A D E _ D I S A B L E D ) , M B _ O K | M B _ I C O N W A R N I N G ) ;
/ / - - - C h e c k D o t s P e r I n c h
i f ( T e r m i n a l I n f o I n t e g e r ( T E R M I N A L _ S C R E E N _ D P I ) ! = 9 6 )
{
C o m m e n t ( " W a r n i n g : 9 6 D P I h i g h l y r e c o m m e n d e d ! " ) ;
S l e e p ( 3 0 0 0 ) ;
C o m m e n t ( " " ) ;
}
}
/ / - - - C h e c k f o r S y m b o l s ( A n a l y s i s )
f o r ( i n t i = 0 ; i < A r r a y S i z e ( S y m b o l s ) ; i + + )
{
/ / - - -
i f ( ! S y m b o l F i n d ( P r e f i x + S y m b o l s [ i ] + S u f f i x , t r u e ) )
i f ( S y m b o l F i n d ( P r e f i x + S y m b o l s [ i ] + S u f f i x , f a l s e ) )
S y m b o l S e l e c t ( P r e f i x + S y m b o l s [ i ] + S u f f i x , t r u e ) ;
}
/ / - - - I n p u t S y m b o l s C h a n g e d
i f ( s T r a d e S y m b o l s ! = T r a d e S y m b o l s | | L a s t R e a s o n = = 0 )
{
/ / - - -
A r r a y R e s i z e ( a S y m b o l s , 0 , 0 ) ;
O b j e c t s D e l e t e A l l ( 0 , O B J P R E F I X , - 1 , - 1 ) ;
/ / - - - G e t T r a d e S y m o b o l s
i f ( S t r i n g F i n d ( T r a d e S y m b o l s , " ; " , 0 ) = = - 1 )
{
/ / - - -
s t r i n g m e s s a g e = " N o s e p a r a t o r f o u n d ! \ n M a k e s u r e t o s e p a r a t e s y m b o l s w i t h a s e m i c o l o n \ " ; \ " . " ;
/ / - - -
M e s s a g e B o x ( m e s s a g e , M B _ C A P T I O N , M B _ O K | M B _ I C O N E R R O R ) ;
C o m m e n t ( m e s s a g e ) ;
/ / - - -
O b j e c t s D e l e t e A l l ( 0 , O B J P R E F I X , - 1 , - 1 ) ;
r e t u r n ( I N I T _ F A I L E D ) ;
}
/ / - - - S e m i c o l o n a t t h e f i r s t p l a c e
i f ( S t r i n g F i n d ( T r a d e S y m b o l s , " ; " , 0 ) = = 0 )
T r a d e S y m b o l s = S t r i n g S u b s t r ( T r a d e S y m b o l s , 1 , S t r i n g L e n ( T r a d e S y m b o l s ) ) ;
/ / - - -
T r a d e S y m b o l s = S t r i n g T r i m L e f t ( S t r i n g T r i m R i g h t ( T r a d e S y m b o l s ) ) ;
/ / - - -
i f ( S t r i n g S u b s t r ( T r a d e S y m b o l s , S t r i n g L e n ( T r a d e S y m b o l s ) - 1 , 1 ) ! = " ; " )
T r a d e S y m b o l s = S t r i n g C o n c a t e n a t e ( T r a d e S y m b o l s , " ; " ) ;
/ / - - -
i n t s = 0 , k = S t r i n g F i n d ( T r a d e S y m b o l s , " ; " , s ) ;
s t r i n g c u r r e n t ;
/ / - - -
w h i l e ( k > 0 )
{
/ / - - -
c u r r e n t = S t r i n g S u b s t r ( T r a d e S y m b o l s , s , k - s ) ;
/ / - - -
i f ( S y m b o l F i n d ( P r e f i x + c u r r e n t + S u f f i x , f a l s e ) )
{
A r r a y R e s i z e ( a S y m b o l s , A r r a y S i z e ( a S y m b o l s ) + 1 ) ;
a S y m b o l s [ A r r a y S i z e ( a S y m b o l s ) - 1 ] = c u r r e n t ;
}
/ / - - -
s = k + 1 ;
k = S t r i n g F i n d ( T r a d e S y m b o l s , " ; " , s ) ;
}
/ / - - - C h e c k f o r S y m b o l s ( T r a d i n g )
f o r ( i n t i = 0 ; i < A r r a y S i z e ( a S y m b o l s ) ; i + + )
{
/ / - - -
i f ( ! S y m b o l F i n d ( P r e f i x + a S y m b o l s [ i ] + S u f f i x , t r u e ) )
i f ( S y m b o l F i n d ( P r e f i x + a S y m b o l s [ i ] + S u f f i x , f a l s e ) )
S y m b o l S e l e c t ( P r e f i x + a S y m b o l s [ i ] + S u f f i x , t r u e ) ;
}
/ / - - -
s T r a d e S y m b o l s = T r a d e S y m b o l s ;
}
/ / - - - I n i t F u l l S y m b s
S e t F u l l ( ) ;
/ / - - - C h e c k f o r C u r r e n c y P a i r s
f o r ( i n t i = 0 ; i < A r r a y S i z e ( U s e d S y m b o l s ) ; i + + )
{
/ / - - -
i f ( ! S y m b o l F i n d ( P r e f i x + U s e d S y m b o l s [ i ] + S u f f i x , t r u e ) )
{
/ / - - -
i f ( L a s t R e a s o n = = 0 )
{
/ / - - -
s t r i n g m e s s a g e = " A l l 2 8 c u r r e n c y p a i r s a r e n o t a v a i l a b l e ! \ n P e r h a p s t h e P r e f i x a n d / o r S u f f i x w e r e n o t s e t c o r r e c t l y . " ;
/ / - - -
M e s s a g e B o x ( m e s s a g e , M B _ C A P T I O N , M B _ O K | M B _ I C O N E R R O R ) ;
}
/ / - - -
O b j e c t s D e l e t e A l l ( 0 , O B J P R E F I X , - 1 , - 1 ) ;
b r e a k ;
r e t u r n ( I N I T _ F A I L E D ) ;
}
}
/ / - - - C a l c T i m e f r a m e
i f ( C a l c P e r i o d = = D A I L Y )
{
C a l c T F = P E R I O D _ D 1 ;
P r o f i t M o d e = 1 ;
R e s e t A l e r t U p = B u y L e v e l - 1 5 ;
R e s e t A l e r t D w n = S e l l L e v e l + 1 5 ;
}
/ / - - -
i f ( C a l c P e r i o d = = W E E K L Y )
{
C a l c T F = P E R I O D _ W 1 ;
P r o f i t M o d e = 2 ;
R e s e t A l e r t U p = B u y L e v e l - 1 0 ;
R e s e t A l e r t D w n = S e l l L e v e l + 1 0 ;
}
/ / - - -
i f ( C a l c P e r i o d = = M O N T H L Y )
{
C a l c T F = P E R I O D _ M N 1 ;
P r o f i t M o d e = 3 ;
R e s e t A l e r t U p = B u y L e v e l - 5 ;
R e s e t A l e r t D w n = S e l l L e v e l + 5 ;
}
/ / - - - R e s e t A l a r m s
i f ( C a l c T F ! = L a s t T i m e F r a m e )
{
A U D A l a r m = t r u e ;
C A D A l a r m = t r u e ;
C H F A l a r m = t r u e ;
E U R A l a r m = t r u e ;
G B P A l a r m = t r u e ;
J P Y A l a r m = t r u e ;
N Z D A l a r m = t r u e ;
U S D A l a r m = t r u e ;
L a s t T i m e F r a m e = C a l c T F ;
}
/ / - - - C h e c k D a t a
i f ( T e r m i n a l I n f o I n t e g e r ( T E R M I N A L _ C O N N E C T E D ) & & ( L a s t R e a s o n = = 0 | | L a s t R e a s o n = = R E A S O N _ P A R A M E T E R S ) )
{
/ / - - -
R e s e t L a s t E r r o r ( ) ;
/ / - - -
f o r ( i n t i = 0 ; i < A r r a y S i z e ( U s e d S y m b o l s ) ; i + + )
{
/ / - - -
d o u b l e t e s t = i H i g h ( P r e f i x + U s e d S y m b o l s [ i ] + S u f f i x , C a l c T F , 0 ) ;
/ / - - -
i f ( t e s t = = 0 )
{
/ / - - -
f o r ( i n t a = 0 ; a < 1 0 ; a + + )
{
/ / - - -
C o m m e n t ( " L o a d i n g D a t a . . . " ) ;
S l e e p ( 1 ) ;
/ / - - -
d o u b l e _ H i g h = i H i g h ( P r e f i x + U s e d S y m b o l s [ i ] + S u f f i x , C a l c T F , 0 ) ;
d o u b l e _ L o w = i L o w ( P r e f i x + U s e d S y m b o l s [ i ] + S u f f i x , C a l c T F , 0 ) ;
d o u b l e _ C l o s e = i C l o s e ( P r e f i x + U s e d S y m b o l s [ i ] + S u f f i x , C a l c T F , 0 ) ;
/ / - - -
d o u b l e _ B i d = S y m b o l I n f o D o u b l e ( P r e f i x + U s e d S y m b o l s [ i ] + S u f f i x , S Y M B O L _ B I D ) ;
d o u b l e _ A s k = S y m b o l I n f o D o u b l e ( P r e f i x + U s e d S y m b o l s [ i ] + S u f f i x , S Y M B O L _ A S K ) ;
/ / - - -
i f ( _ H i g h ! = 0 & & _ L o w ! = 0 & & _ C l o s e ! = 0 & & _ B i d ! = 0 & & _ A s k ! = 0 )
b r e a k ;
}
}
}
/ / - - -
C o m m e n t ( " " ) ;
}
/ / - - - I n i t C h a r t S i z e
C h a r t _ X S i z e = ( i n t ) C h a r t G e t I n t e g e r ( 0 , C H A R T _ W I D T H _ I N _ P I X E L S ) ;
C h a r t _ Y S i z e = ( i n t ) C h a r t G e t I n t e g e r ( 0 , C H A R T _ H E I G H T _ I N _ P I X E L S ) ;
C h a r t X = C h a r t _ X S i z e ;
C h a r t Y = C h a r t _ Y S i z e ;
/ / - - - C h e c k S o u n d I s E n a b l e d
i f ( ! G l o b a l V a r i a b l e C h e c k ( O B J P R E F I X + " S o u n d " ) )
S o u n d I s E n a b l e d = t r u e ;
e l s e
S o u n d I s E n a b l e d = G l o b a l V a r i a b l e G e t ( O B J P R E F I X + " S o u n d " ) ;
/ / - - - A l e r t
i f ( ! G l o b a l V a r i a b l e C h e c k ( O B J P R E F I X + " A l a r m " ) )
A l a r m I s E n a b l e d = t r u e ;
e l s e
A l a r m I s E n a b l e d = G l o b a l V a r i a b l e G e t ( O B J P R E F I X + " A l a r m " ) ;
i f ( ! _ A l e r t & & ! P u s h & & ! M a i l )
{
/ / - - -
A l a r m I s E n a b l e d = f a l s e ;
/ / - - -
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " A L A R M I O " ) = = 0 )
i f ( O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " A L A R M I O " , O B J P R O P _ C O L O R ) ! = C ' 5 9 , 4 1 , 4 0 ' )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " A L A R M I O " , O B J P R O P _ C O L O R , C ' 5 9 , 4 1 , 4 0 ' ) ;
}
/ / - - -
i f ( ! G l o b a l V a r i a b l e C h e c k ( O B J P R E F I X + " D a s h b o a r d " ) )
S h o w T r a d e P a n e l = t r u e ;
e l s e
S h o w T r a d e P a n e l = G l o b a l V a r i a b l e G e t ( O B J P R E F I X + " D a s h b o a r d " ) ;
/ / - - - A u t o m a t e d S L & T P & L o t s
i f ( ! G l o b a l V a r i a b l e C h e c k ( O B J P R E F I X + " A u t o S L " ) )
A u t o S L = f a l s e ;
e l s e
A u t o S L = G l o b a l V a r i a b l e G e t ( O B J P R E F I X + " A u t o S L " ) ;
/ / - - -
i f ( ! G l o b a l V a r i a b l e C h e c k ( O B J P R E F I X + " A u t o T P " ) )
A u t o T P = f a l s e ;
e l s e
A u t o T P = G l o b a l V a r i a b l e G e t ( O B J P R E F I X + " A u t o T P " ) ;
/ / - - -
i f ( ! G l o b a l V a r i a b l e C h e c k ( O B J P R E F I X + " A u t o L o t s " ) )
A u t o L o t s = f a l s e ;
e l s e
A u t o L o t s = G l o b a l V a r i a b l e G e t ( O B J P R E F I X + " A u t o L o t s " ) ;
/ / - - -
i f ( ! G l o b a l V a r i a b l e C h e c k ( O B J P R E F I X + " R i s k " ) )
R i s k I n p = 0 . 2 5 ;
e l s e
R i s k I n p = G l o b a l V a r i a b l e G e t ( O B J P R E F I X + " R i s k " ) ;
/ / - - -
i f ( ! G l o b a l V a r i a b l e C h e c k ( O B J P R E F I X + " R R " ) )
R R = 2 ;
e l s e
R R = G l o b a l V a r i a b l e G e t ( O B J P R E F I X + " R R " ) ;
/ / - - -
P r i c e R o w L e f t = ( i n t ) G l o b a l V a r i a b l e G e t ( O B J P R E F I X + " P R L " ) ;
P r i c e R o w R i g h t = ( i n t ) G l o b a l V a r i a b l e G e t ( O B J P R E F I X + " P R R " ) ;
/ / - - -
i f ( L a s t R e a s o n = = 0 )
C h a r t G e t C o l o r ( ) ;
/ / - - - H i d e O n e C l i c k A r r o w
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 N E _ C L I C K , t r u 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 N E _ C L I C K , f a l s e ) ;
/ / - - - C h a r t C h a n g e d
i f ( L a s t R e a s o n = = R E A S O N _ C H A R T C H A N G E )
_ P l a y S o u n d ( " s w i t c h . w a v " ) ;
/ / - - -
i f ( S h o w T r a d e P a n e l )
C h a r t M o u s e S c r o l l S e t ( f a l s e ) ;
e l s e
C h a r t M o u s e S c r o l l S e t ( t r u e ) ;
/ / - - -
i f ( A T R M u l t i < = 0 )
A T R M u l t i = 0 . 0 1 ;
/ / - - -
i f ( S e l e c t e d M o d e ! = L a s t M o d e )
O b j e c t s D e l e t e A l l ( 0 , O B J P R E F I X , - 1 , - 1 ) ;
/ / - - - I n i t S p e e d P r i c e s
f o r ( i n t i = A r r a y S i z e ( a S y m b o l s ) - 1 ; i > = 0 ; i - - )
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + P r e f i x + a S y m b o l s [ i ] + S u f f i x + " - P r i c e " , ( S y m b o l I n f o D o u b l e ( P r e f i x + a S y m b o l s [ i ] + S u f f i x , S Y M B O L _ A S K ) + S y m b o l I n f o D o u b l e ( P r e f i x + a S y m b o l s [ i ] + S u f f i x , S Y M B O L _ B I D ) ) / 2 ) ;
/ / - - - A n i m a t i o n
i f ( L a s t R e a s o n = = 0 & & S h o w T r a d e P a n e l )
{
/ / - - -
O b j e c t s C r e a t e A l l ( ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P R I C E R O W _ L ª " , O B J P R O P _ C O L O R , c l r N O N E ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P R I C E R O W _ R ª " , O B J P R O P _ C O L O R , c l r N O N E ) ;
/ / - - -
S e t S t a t u s ( " 6 " , " P l e a s e w a i t . . . " ) ;
/ / - - -
f o r ( i n t i = A r r a y S i z e ( a S y m b o l s ) - 1 ; i > = 0 ; i - - )
{
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S Y M B O L § " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ C O L O R , c l r N O N E ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S Y M B O L % " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ C O L O R , c l r N O N E ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R A N G E ± " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ C O L O R , c l r N O N E ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R A N G E % " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ C O L O R , c l r N O N E ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P O I N T S " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ C O L O R , c l r N O N E ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P R O F I T S " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ C O L O R , c l r N O N E ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R E T U R N " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ C O L O R , c l r N O N E ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " A S K " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ C O L O R , c l r N O N E ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B I D " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ C O L O R , c l r N O N E ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " O P E N L O T S " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ C O L O R , c l r N O N E ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P R E A D " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ C O L O R , c l r N O N E ) ;
}
/ / - - -
f o r ( i n t i = A r r a y S i z e ( a S y m b o l s ) - 1 ; i > = 0 ; i - - )
{
/ / - - -
f o r ( i n t x = ( 1 0 ) - 1 ; x > = 0 ; x - - )
{
/ / - - - S e t O b j e c t s
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P E E D # " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x + I n t e g e r T o S t r i n g ( x , 0 , 0 ) , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S Y M B O L % " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " R A N G E % " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ T E X T , I n t e g e r T o S t r i n g ( M a t h A b s ( ( x - 1 0 ) * 1 0 ) ) + " % " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R A N G E % " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S Y M B O L % " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ T E X T , " L o a d i n g . . . " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P O I N T S " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P R O F I T S " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R E T U R N " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " A S K " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " A S K " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ T E X T , " R e a d y ! " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B I D " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " B I D " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ T E X T , " C h e c k " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " O P E N L O T S " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P R E A D " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - - -
C o m m e n t ( " " ) ;
S l e e p ( 1 ) ;
}
}
/ / - - -
f o r ( i n t i = 1 ; i < 1 1 ; i + + )
{
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P B # " + I n t e g e r T o S t r i n g ( i ) + " - " + " A U D " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P B # " + I n t e g e r T o S t r i n g ( i ) + " - " + " C A D " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P B # " + I n t e g e r T o S t r i n g ( i ) + " - " + " C H F " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P B # " + I n t e g e r T o S t r i n g ( i ) + " - " + " E U R " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P B # " + I n t e g e r T o S t r i n g ( i ) + " - " + " G B P " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P B # " + I n t e g e r T o S t r i n g ( i ) + " - " + " J P Y " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P B # " + I n t e g e r T o S t r i n g ( i ) + " - " + " N Z D " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P B # " + I n t e g e r T o S t r i n g ( i ) + " - " + " U S D " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " A U D % " , O B J P R O P _ T E X T , I n t e g e r T o S t r i n g ( M a t h A b s ( ( i ) * 1 0 ) ) + " % " ) ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " C A D % " , O B J P R O P _ T E X T , I n t e g e r T o S t r i n g ( M a t h A b s ( ( i ) * 1 0 ) ) + " % " ) ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " C H F % " , O B J P R O P _ T E X T , I n t e g e r T o S t r i n g ( M a t h A b s ( ( i ) * 1 0 ) ) + " % " ) ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " E U R % " , O B J P R O P _ T E X T , I n t e g e r T o S t r i n g ( M a t h A b s ( ( i ) * 1 0 ) ) + " % " ) ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " G B P % " , O B J P R O P _ T E X T , I n t e g e r T o S t r i n g ( M a t h A b s ( ( i ) * 1 0 ) ) + " % " ) ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " J P Y % " , O B J P R O P _ T E X T , I n t e g e r T o S t r i n g ( M a t h A b s ( ( i ) * 1 0 ) ) + " % " ) ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " N Z D % " , O B J P R O P _ T E X T , I n t e g e r T o S t r i n g ( M a t h A b s ( ( i ) * 1 0 ) ) + " % " ) ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " U S D % " , O B J P R O P _ T E X T , I n t e g e r T o S t r i n g ( M a t h A b s ( ( i ) * 1 0 ) ) + " % " ) ;
/ / - - -
C o m m e n t ( " " ) ;
S l e e p ( 5 0 ) ;
}
/ / - - -
f o r ( i n t i = 0 ; i < A r r a y S i z e ( a S y m b o l s ) ; i + + )
{
/ / - - - U p d a t e O b j e c t s
O b j e c t s U p d a t e A l l ( P r e f i x + a S y m b o l s [ i ] + S u f f i x ) ;
/ / - - - G e t C u r r e n c i e s
d o u b l e A U D = A U D ( ) , C A D = C A D ( ) , C H F = C H F ( ) , E U R = E U R ( ) , G B P = G B P ( ) , J P Y = J P Y ( ) , N Z D = N Z D ( ) , U S D = U S D ( ) ;
/ / - - -
U p d a t e P r o B a r ( " A U D " , A U D ) ;
U p d a t e P e r c e n t ( " A U D " , A U D ) ;
U p d a t e P r o B a r ( " C A D " , C A D ) ;
U p d a t e P e r c e n t ( " C A D " , C A D ) ;
U p d a t e P r o B a r ( " C H F " , C H F ) ;
U p d a t e P e r c e n t ( " C H F " , C H F ) ;
U p d a t e P r o B a r ( " E U R " , E U R ) ;
U p d a t e P e r c e n t ( " E U R " , E U R ) ;
U p d a t e P r o B a r ( " G B P " , G B P ) ;
U p d a t e P e r c e n t ( " G B P " , G B P ) ;
U p d a t e P r o B a r ( " J P Y " , J P Y ) ;
U p d a t e P e r c e n t ( " J P Y " , J P Y ) ;
U p d a t e P r o B a r ( " N Z D " , N Z D ) ;
U p d a t e P e r c e n t ( " N Z D " , N Z D ) ;
U p d a t e P r o B a r ( " U S D " , U S D ) ;
U p d a t e P e r c e n t ( " U S D " , U S D ) ;
/ / - - -
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + P r e f i x + a S y m b o l s [ i ] + S u f f i x + " - P r i c e " , ( S y m b o l I n f o D o u b l e ( P r e f i x + a S y m b o l s [ i ] + S u f f i x , S Y M B O L _ A S K ) + S y m b o l I n f o D o u b l e ( P r e f i x + a S y m b o l s [ i ] + S u f f i x , S Y M B O L _ B I D ) ) / 2 ) ;
/ / - - -
f o r ( i n t x = 0 ; x < ( 1 0 ) ; x + + )
{
/ / - - -
d o u b l e p e r c e n t = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " S Y M B O L % " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ T E X T ) ) ;
/ / - - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P E E D # " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x + I n t e g e r T o S t r i n g ( x , 0 , 0 ) , O B J P R O P _ C O L O R , ± C l r B R ( p e r c e n t ) ) ;
}
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P R I C E R O W _ L ª " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P R I C E R O W _ R ª " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R A N G E ± " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - - -
C o m m e n t ( " " ) ;
S l e e p ( 5 0 ) ;
}
/ / - - -
R e s e t S t a t u s ( ) ;
/ / - - -
}
/ / - - -
F i r s t R u n = f a l s e ;
/ / - - - D r o p p e d T i m e
d r o p _ t i m e = T i m e L o c a l ( ) ;
/ / - - - B o r d e r C o l o r
i f ( S h o w T r a d e P a n e l )
{
/ / - - -
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " B O R D E R [ ] " ) = = 0 | | O b j e c t F i n d ( 0 , O B J P R E F I X + " B C K G R N D [ ] " ) = = 0 )
{
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " B O R D E R [ ] " , O B J P R O P _ C O L O R ) ! = C O L O R _ B O R D E R )
{
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B O R D E R [ ] " , O B J P R O P _ C O L O R , C O L O R _ B O R D E R ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B O R D E R [ ] " , O B J P R O P _ B G C O L O R , C O L O R _ B O R D E R ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B C K G R N D [ ] " , O B J P R O P _ C O L O R , C O L O R _ B O R D E R ) ;
}
}
}
/ / - - -
i f ( ! S h o w T r a d e P a n e l )
{
/ / - - -
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " M I N " + " B C K G R N D [ ] " ) = = 0 )
{
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " M I N " + " B C K G R N D [ ] " , O B J P R O P _ C O L O R ) ! = C O L O R _ B O R D E R )
{
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " M I N " + " B C K G R N D [ ] " , O B J P R O P _ C O L O R , C O L O R _ B O R D E R ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " M I N " + " B C K G R N D [ ] " , O B J P R O P _ B G C O L O R , C O L O R _ B O R D E R ) ;
}
}
}
/ / - - - -
r e t u r n ( I N I T _ S U C C E E D E D ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | E x p e r t d e i n i t i a l i z a t i o n f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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 )
{
/ / - - - - D e s t r o y T i m e r
E v e n t K i l l T i m e r ( ) ;
/ / - - - S a v e g l o b a l v a r i a b l e s
i f ( r e a s o n ! = R E A S O N _ I N I T F A I L E D & & ! M Q L I n f o I n t e g e r ( M Q L _ T E S T E R ) )
{
/ / - - -
f o r ( i n t i = 0 ; i < A r r a y S i z e ( a S y m b o l s ) ; i + + )
{
/ / - - -
G l o b a l V a r i a b l e D e l ( P r e f i x + a S y m b o l s [ i ] + S u f f i x + " - P r i c e " ) ;
/ / - - -
i f ( S h o w T r a d e P a n e l )
{
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + P r e f i x + a S y m b o l s [ i ] + S u f f i x + " - S t o p l o s s " , S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " S L < > " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ T E X T ) ) ) ;
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + P r e f i x + a S y m b o l s [ i ] + S u f f i x + " - T a k e p r o f i t " , S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " _ T P < > " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ T E X T ) ) ) ;
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + P r e f i x + a S y m b o l s [ i ] + S u f f i x + " - L o t s i z e " , S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ T E X T ) ) ) ;
}
}
/ / - - -
i f ( S h o w T r a d e P a n e l )
{
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + " S t o p l o s s " , S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " S L < > " , O B J P R O P _ T E X T ) ) ) ;
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + " T a k e p r o f i t " , S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " _ T P < > " , O B J P R O P _ T E X T ) ) ) ;
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + " L o t s i z e " , S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " , O B J P R O P _ T E X T ) ) ) ;
}
/ / - - -
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + " T h e m e " , S e l e c t e d T h e m e ) ;
/ / - - -
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + " D a s h b o a r d " , S h o w T r a d e P a n e l ) ;
/ / - - -
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + " S o u n d " , S o u n d I s E n a b l e d ) ;
/ / - - -
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + " A l a r m " , A l a r m I s E n a b l e d ) ;
/ / - - -
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + " A u t o S L " , A u t o S L ) ;
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + " A u t o T P " , A u t o T P ) ;
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + " A u t o L o t s " , A u t o L o t s ) ;
/ / - - -
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + " R R " , R R ) ;
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + " R i s k " , R i s k I n p ) ;
/ / - - -
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + " P R L " , P r i c e R o w L e f t ) ;
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + " P R R " , P r i c e R o w R i g h t ) ;
/ / - - -
G l o b a l V a r i a b l e s F l u s h ( ) ;
}
/ / - - - D e l e t e O b j e c t s
i f ( r e a s o n < = R E A S O N _ R E M O V E | | r e a s o n = = R E A S O N _ C L O S E | | r e a s o n = = R E A S O N _ R E C O M P I L E | | r e a s o n = = R E A S O N _ I N I T F A I L E D | | r e a s o n = = R E A S O N _ A C C O U N T )
{
O b j e c t s D e l e t e A l l ( 0 , O B J P R E F I X , - 1 , - 1 ) ;
D e l t e M i n W i n d o w ( ) ;
}
/ / - - -
i f ( r e a s o n < = R E A S O N _ R E M O V E | | r e a s o n = = R E A S O N _ C L O S E | | r e a s o n = = R E A S O N _ R E C O M P I L E )
{
/ / - - -
i f ( C l e a r e d T e m p l a t e )
C h a r t S e t C o l o r ( 2 ) ;
}
/ / - - - U n b l o c k S c r o l l i n g
C h a r t M o u s e S c r o l l S e t ( t r u e ) ;
/ / - - - U s e r I s R e g i s t r e d
i f ( ! G l o b a l V a r i a b l e C h e c k ( O B J P R E F I X + " R e g i s t r e d " ) )
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + " R e g i s t r e d " , 1 ) ;
/ / - - -
L a s t M o d e = S e l e c t e d M o d e ;
/ / - - - S t o r e D e i n i t R e a s o n
L a s t R e a s o n = r e a s o n ;
/ / - - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | 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 ( P a i r S u g g e s t )
R e s e t T r i g g e r ( ) ;
/ / - - -
i f ( A r r a y S i z e ( a S y m b o l s ) > A r r a y S i z e ( U s e d S y m b o l s ) )
{
/ / - - -
f o r ( i n t i = 0 ; i < A r r a y S i z e ( a S y m b o l s ) ; i + + )
S p e e d O m e t e r ( P r e f i x + a S y m b o l s [ i ] + S u f f i x ) ;
}
e l s e
{
/ / - - -
f o r ( i n t i = 0 ; i < A r r a y S i z e ( U s e d S y m b o l s ) ; i + + )
S p e e d O m e t e r ( P r e f i x + U s e d S y m b o l s [ i ] + S u f f i x ) ;
}
/ / - - - A l e r t
i f ( d r o p _ t i m e < T i m e L o c a l ( ) - 1 5 )
{
/ / - - -
i f ( ( C a l c P e r i o d = = D A I L Y & & H o u r ( ) > = 4 ) | | ( C a l c P e r i o d = = W E E K L Y & & T i m e D a y O f W e e k ( T i m e C u r r e n t ( ) ) > = 2 ) | | ( C a l c P e r i o d = = M O N T H L Y & & D a y ( ) > = 4 ) )
A l e r t ( ) ;
}
/ / - - -
i f ( S h o w T r a d e P a n e l )
{
/ / - - -
O b j e c t s C r e a t e A l l ( ) ;
/ / - - -
f o r ( i n t i = 0 ; i < A r r a y S i z e ( a S y m b o l s ) ; i + + )
{
O b j e c t s U p d a t e A l l ( P r e f i x + a S y m b o l s [ i ] + S u f f i x ) ;
G e t S e t I n p u t s ( P r e f i x + a S y m b o l s [ i ] + S u f f i x ) ;
}
/ / - - -
G e t S e t I n p u t s A ( ) ;
/ / - - -
O v e r A l l I n f o ( ) ;
/ / - - -
C S t r e n g h t s ( ) ;
/ / - - - M o v e W i n d o w
i f ( L a s t 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 _ X S i z e = ( i n t ) C h a r t G e t I n t e g e r ( 0 , C H A R T _ W I D T H _ I N _ P I X E L S ) ;
C h a r t _ Y S i z e = ( i n t ) C h a r t G e t I n t e g e r ( 0 , C H A R T _ H E I G H T _ I N _ P I X E L S ) ;
/ / - - -
C h a r t X = C h a r t _ X S i z e ;
C h a r t Y = C h a r t _ Y S i z e ;
/ / - - -
L a s t R e a s o n = 0 ;
}
/ / - - -
i f ( C h a r t X ! = C h a r t _ X S i z e | | C h a r t Y ! = C h a r t _ Y S i z e )
{
O b j e c t s D e l e t e A l l ( 0 , O B J P R E F I X , - 1 , - 1 ) ;
/ / - - -
O b j e c t s C r e a t e A l l ( ) ;
/ / - - -
C h a r t X = C h a r t _ X S i z e ;
C h a r t Y = C h a r t _ Y S i z e ;
}
/ / - - -
C h a r t _ X S i z e = ( i n t ) C h a r t G e t I n t e g e r ( 0 , C H A R T _ W I D T H _ I N _ P I X E L S ) ;
C h a r t _ Y S i z e = ( i n t ) C h a r t G e t I n t e g e r ( 0 , C H A R T _ H E I G H T _ I N _ P I X E L S ) ;
/ / - - - C o n n e c t e d
i f ( T e r m i n a l I n f o I n t e g e r ( T E R M I N A L _ C O N N E C T E D ) )
{
/ / - - -
i f ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " C O N N E C T I O N " , O B J P R O P _ T E X T ) ! = " ü " ) / / G e t O b j e c t
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " C O N N E C T I O N " , O B J P R O P _ T E X T , " ü " ) ; / / S e t O b j e c t
/ / - - -
i f ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " C O N N E C T I O N " , O B J P R O P _ T O O L T I P ) ! = " C o n n e c t e d " ) / / G e t O b j e c t
{
d o u b l e P i n g = T e r m i n a l I n f o I n t e g e r ( T E R M I N A L _ P I N G _ L A S T ) ; / / S e t P i n g T o M s
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " C O N N E C T I O N " , O B J P R O P _ T O O L T I P , " C o n n e c t e d . . . " + " \ n P i n g : " + D o u b l e T o S t r i n g ( P i n g / 1 0 0 0 , 2 ) + " m s " ) ; / / S e t O b j e c t
}
}
/ / - - - D i s c o n n e c t e d
e l s e
{
/ / - - -
i f ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " C O N N E C T I O N " , O B J P R O P _ T E X T ) ! = " ñ " ) / / G e t O b j e c t
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " C O N N E C T I O N " , O B J P R O P _ T E X T , " ñ " ) ; / / S e t O b j e c t
/ / - - -
i f ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " C O N N E C T I O N " , O B J P R O P _ T O O L T I P ) ! = " N o c o n n e c t i o n ! " ) / / G e t O b j e c t
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " C O N N E C T I O N " , O B J P R O P _ T O O L T I P , " N o c o n n e c t i o n ! " ) ; / / S e t O b j e c t
}
/ / - - - R e s e t S t a t u s
i f ( s t a u t s _ t i m e < T i m e L o c a l ( ) - 1 )
R e s e t S t a t u s ( ) ;
/ / - - -
C o m m e n t ( " " ) ;
C h a r t R e d r a w ( ) ;
}
e l s e
C r e a t e M i n W i n d o w ( ) ;
/ / - - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C h a r t E v e n t f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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 )
{
/ / - - - -
i f ( i d = = C H A R T E V E N T _ K E Y D O W N )
{
/ / - - -
i f ( K e y b o a r d T r a d i n g )
{
/ / - - -
i f ( l p a r a m = = S t r i n g G e t C h a r ( B u y K e y , 0 ) )
{
/ / - - - S e n d S e l l O r d e r
O r d e r S e n d ( _ S y m b o l , O P _ B U Y ) ;
/ / - - - R e s e t B u t t o n
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B U Y " + " - " + _ S y m b o l , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
}
/ / - - -
i f ( l p a r a m = = S t r i n g G e t C h a r ( S e l l K e y , 0 ) )
{
/ / - - - S e n d S e l l O r d e r
O r d e r S e n d ( _ S y m b o l , O P _ S E L L ) ;
/ / - - - R e s e t B u t t o n
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S E L L " + " - " + _ S y m b o l , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
}
/ / - - -
i f ( l p a r a m = = S t r i n g G e t C h a r ( C l o s e K e y , 0 ) )
{
/ / - - - N o O r d e r s
i f ( O p e n P o s ( _ S y m b o l , O P _ A L L ) = = 0 )
{
/ / - - -
S e t S t a t u s ( " ý " , " N o o p e n o r d e r s . . . " ) ;
S l e e p ( 1 0 0 ) ;
/ / - - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " C L O S E " + " - " + _ S y m b o l , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
}
/ / - - - C l o s e O r d e r ( s )
O r d e r C l o s e ( _ S y m b o l ) ;
/ / - - - R e s e t B u t t o n
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " C L O S E " + " - " + _ S y m b o l , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
}
/ / - - - S w i t c h S y m b o l ( U P )
i f ( l p a r a m = = K E Y _ U P )
{
/ / - - -
i n t i n d e x = 0 ;
/ / - - -
f o r ( i n t i = 0 ; i < A r r a y S i z e ( a S y m b o l s ) ; i + + )
{
i f ( _ S y m b o l = = P r e f i x + a S y m b o l s [ i ] + S u f f i x )
{
/ / - - -
i n d e x = i - 1 ;
/ / - - -
i f ( i n d e x < 0 )
i n d e x = A r r a y S i z e ( a S y m b o l s ) - 1 ;
/ / - - -
i f ( S y m b o l F i n d ( P r e f i x + a S y m b o l s [ i n d e x ] + S u f f i x , f a l s e ) )
{
C h a r t S e t S y m b o l P e r i o d ( 0 , P r e f i x + a S y m b o l s [ i n d e x ] + S u f f i x , P E R I O D _ C U R R E N T ) ;
S e t S t a t u s ( " ÿ " , " S w i t c h e d t o " + a S y m b o l s [ i n d e x ] ) ;
b r e a k ;
}
}
}
}
/ / - - - S w i t c h S y m b o l ( D O W N )
i f ( l p a r a m = = K E Y _ D O W N )
{
/ / - - -
i n t i n d e x = 0 ;
/ / - - -
f o r ( i n t i = 0 ; i < A r r a y S i z e ( a S y m b o l s ) ; i + + )
{
/ / - - -
i f ( _ S y m b o l = = P r e f i x + a S y m b o l s [ i ] + S u f f i x )
{
/ / - - -
i n d e x = i + 1 ;
/ / - - -
i f ( i n d e x > = A r r a y S i z e ( a S y m b o l s ) )
i n d e x = 0 ;
/ / - - -
i f ( S y m b o l F i n d ( P r e f i x + a S y m b o l s [ i n d e x ] + S u f f i x , f a l s e ) )
{
C h a r t S e t S y m b o l P e r i o d ( 0 , P r e f i x + a S y m b o l s [ i n d e x ] + S u f f i x , P E R I O D _ C U R R E N T ) ;
S e t S t a t u s ( " ÿ " , " S w i t c h e d t o " + a S y m b o l s [ i n d e x ] ) ;
b r e a k ;
}
}
}
}
}
}
/ / - - - O B J _ C L I C K S
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 )
{
/ / - - -
f o r ( i n t i = 0 ; i < A r r a y S i z e ( C u r r e n i e s ) ; i + + )
{
/ / - - - D e t e c t E d i t
i f ( s p a r a m = = O B J P R E F I X + " S L < > " + " - " + C u r r e n i e s [ i ] | | s p a r a m = = O B J P R E F I X + " L O T S I Z E < > " + " - " + C u r r e n i e s [ i ] | | s p a r a m = = O B J P R E F I X + " _ T P < > " + " - " + C u r r e n i e s [ i ] | | s p a r a m = = O B J P R E F I X + " R I S K % < > " | | s p a r a m = = O B J P R E F I X + " R I S K $ < > " | | s p a r a m = = O B J P R E F I X + " R R < > " )
U s e r I s E d i t i n g = t r u e ;
/ / - - - B a s k e t B u y
i f ( s p a r a m = = O B J P R E F I X + " B U Y " + " - " + C u r r e n i e s [ i ] )
{
/ / - - - S e n d B u y O r d e r
B u y B a s k e t ( C u r r e n i e s [ i ] ) ;
/ / - - - R e s e t B u t t o n
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B U Y " + " - " + C u r r e n i e s [ i ] , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
}
/ / - - - B a s k e t C l o s e
i f ( s p a r a m = = O B J P R E F I X + " C L O S E " + " - " + C u r r e n i e s [ i ] )
{
/ / - - - S e n d B u y O r d e r
C l o s e B a s k e t ( C u r r e n i e s [ i ] ) ;
/ / - - - R e s e t B u t t o n
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " C L O S E " + " - " + C u r r e n i e s [ i ] , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
}
/ / - - - B a s k e t S e l l
i f ( s p a r a m = = O B J P R E F I X + " S E L L " + " - " + C u r r e n i e s [ i ] )
{
/ / - - - S e n d B u y O r d e r
S e l l B a s k e t ( C u r r e n i e s [ i ] ) ;
/ / - - - R e s e t B u t t o n
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S E L L " + " - " + C u r r e n i e s [ i ] , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
}
/ / - - -
}
/ / - - -
f o r ( i n t i = 0 ; i < A r r a y S i z e ( a S y m b o l s ) ; i + + )
{
/ / - - - S e l l C l i c k
i f ( s p a r a m = = O B J P R E F I X + " S E L L " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x )
{
/ / - - - S e n d S e l l O r d e r
O r d e r S e n d ( P r e f i x + a S y m b o l s [ i ] + S u f f i x , O P _ S E L L ) ;
/ / - - - R e s e t B u t t o n
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S E L L " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
b r e a k ;
}
/ / - - - B u y C l i c k
i f ( s p a r a m = = O B J P R E F I X + " B U Y " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x )
{
/ / - - - S e n d B u y O r d e r
O r d e r S e n d ( P r e f i x + a S y m b o l s [ i ] + S u f f i x , O P _ B U Y ) ;
/ / - - - R e s e t B u t t o n
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B U Y " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
b r e a k ;
}
/ / - - - C l o s e C l i c k
i f ( s p a r a m = = O B J P R E F I X + " C L O S E " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x )
{
/ / - - - N o O r d e r s
i f ( O p e n P o s ( P r e f i x + a S y m b o l s [ i ] + S u f f i x , O P _ A L L ) = = 0 )
{
S e t S t a t u s ( " ý " , " N o o p e n o r d e r s . . . " ) ;
S l e e p ( 1 0 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " C L O S E " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
b r e a k ;
}
/ / - - - C l o s e O r d e r ( s )
O r d e r C l o s e ( P r e f i x + a S y m b o l s [ i ] + S u f f i x ) ;
/ / - - - R e s e t B u t t o n
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " C L O S E " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
b r e a k ;
}
/ / - - - D e c L o t S i z e
i f ( s p a r a m = = O B J P R E F I X + " L O T S I Z E < " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x )
{
i f ( ! A u t o L o t s )
{
/ / - - -
d o u b l e L o t S i z e = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ T E X T ) ) ;
/ / - - -
i f ( ! U s e r I s E d i t i n g )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( L o t S i z e - = L o t S t e p ( P r e f i x + a S y m b o l s [ i ] + S u f f i x ) , 2 ) ) ; / / S e t O b j e c t
}
}
/ / - - - I n c L o t S i z e
i f ( s p a r a m = = O B J P R E F I X + " L O T S I Z E > " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x )
{
i f ( ! A u t o L o t s )
{
/ / - - -
d o u b l e L o t S i z e = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ T E X T ) ) ;
/ / - - -
i f ( ! U s e r I s E d i t i n g )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( L o t S i z e + = L o t S t e p ( P r e f i x + a S y m b o l s [ i ] + S u f f i x ) , 2 ) ) ; / / S e t O b j e c t
}
}
/ / - - - S e t S L
i f ( s p a r a m = = O B J P R E F I X + " S E T S L < > " )
{
i f ( ! A u t o S L )
{
/ / - - -
d o u b l e S t o p L o s s = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " S L < > " , O B J P R O P _ T E X T ) ) ;
/ / - - -
i f ( ! U s e r I s E d i t i n g )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S L < > " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( S t o p L o s s , 0 ) ) ; / / S e t O b j e c t
}
e l s e
{
S e t S t a t u s ( " ý " , " D i s a b l e a u t o s l f i r s t . . . " ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
S l e e p ( 1 0 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S E T S L < > " , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
b r e a k ;
}
/ / - - - R e s e t B u t t o n
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S E T S L < > " , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
}
/ / - - - S e t T P
i f ( s p a r a m = = O B J P R E F I X + " S E T T P < > " )
{
i f ( ! A u t o T P )
{
/ / - - -
d o u b l e T a k e P r o f i t = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " _ T P < > " , O B J P R O P _ T E X T ) ) ;
/ / - - -
i f ( ! U s e r I s E d i t i n g )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " _ T P < > " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( T a k e P r o f i t , 0 ) ) ; / / S e t O b j e c t
}
e l s e
{
S e t S t a t u s ( " ý " , " D i s a b l e a u t o t p f i r s t . . . " ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
S l e e p ( 1 0 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S E T T P < > " , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
b r e a k ;
}
/ / - - - R e s e t B u t t o n
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S E T T P < > " , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
}
/ / - - - S e t L o t s
i f ( s p a r a m = = O B J P R E F I X + " S E T L O T S < > " )
{
/ / - - -
i f ( ! A u t o L o t s )
{
/ / - - -
d o u b l e L o t S i z e = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " , O B J P R O P _ T E X T ) ) ;
/ / - - -
i f ( ! U s e r I s E d i t i n g )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( L o t S i z e , 2 ) ) ; / / S e t O b j e c t
}
e l s e
{
S e t S t a t u s ( " ý " , " D i s a b l e a u t o l o t s f i r s t . . . " ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
S l e e p ( 1 0 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S E T L O T S < > " , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
b r e a k ;
}
/ / - - - R e s e t B u t t o n
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S E T L O T S < > " , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
}
/ / - - - S y m o b l S w i t c h e r
i f ( s p a r a m = = O B J P R E F I X + P r e f i x + a S y m b o l s [ i ] + S u f f i x )
{
C h a r t S e t S y m b o l P e r i o d ( 0 , P r e f i x + a S y m b o l s [ i ] + S u f f i x , P E R I O D _ C U R R E N T ) ;
S e t S t a t u s ( " ÿ " , " S w i t c h e d t o " + a S y m b o l s [ i ] ) ;
b r e a k ;
}
}
/ / - - - R e m o v e E x p e r t
i f ( s p a r a m = = O B J P R E F I X + " E X I T " )
{
/ / - - -
i f ( M e s s a g e B o x ( " A r e y o u s u r e y o u w a n t t o e x i t ? " , M B _ C A P T I O N , M B _ I C O N Q U E S T I O N | M B _ Y E S N O ) = = I D Y E S )
E x p e r t R e m o v e ( ) ; / / E x i t
}
/ / - - - M i n i m i z e
i f ( s p a r a m = = O B J P R E F I X + " M I N I M I Z E " )
{
O b j e c t s D e l e t e A l l ( 0 , O B J P R E F I X , - 1 , - 1 ) ;
C r e a t e M i n W i n d o w ( ) ;
S h o w T r a d e P a n e l = f a l s e ;
C h a r t M o u s e S c r o l l S e t ( t r u e ) ;
C h a r t S e t C o l o r ( 2 ) ;
C l e a r e d T e m p l a t e = f a l s e ;
}
/ / - - - M a x i m i z e
i f ( s p a r a m = = O B J P R E F I X + " M I N " + " M A X I M I Z E " )
{
D e l t e M i n W i n d o w ( ) ;
O b j e c t s C r e a t e A l l ( ) ;
S h o w T r a d e P a n e l = t r u e ;
C h a r t M o u s e S c r o l l S e t ( f a l s e ) ;
}
/ / - - - P i n g
i f ( s p a r a m = = O B J P R E F I X + " C O N N E C T I O N " )
{
/ / - - -
d o u b l e P i n g = T e r m i n a l I n f o I n t e g e r ( T E R M I N A L _ P I N G _ L A S T ) ; / / S e t P i n g T o M s
/ / - - -
i f ( T e r m i n a l I n f o I n t e g e r ( T E R M I N A L _ C O N N E C T E D ) )
S e t S t a t u s ( " \ n " , " P i n g : " + D o u b l e T o S t r i n g ( P i n g / 1 0 0 0 , 2 ) + " m s " ) ;
e l s e
S e t S t a t u s ( " ý " , " N o I n t e r n e t c o n n e c t i o n . . . " ) ;
}
/ / - - - D a t e
i f ( s p a r a m = = O B J P R E F I X + " T I M E " | | s p a r a m = = O B J P R E F I X + " T I M E § " )
S e t S t a t u s ( " \ n " , _ D a y O f W e e k ( ) + " , " + I n t e g e r T o S t r i n g ( T i m e D a y ( T i m e L o c a l ( ) ) ) + " " + _ M o n t h ( ) + " " + I n t e g e r T o S t r i n g ( T i m e D a y O f Y e a r ( T i m e L o c a l ( ) ) ) ) ;
/ / - - - S w i t c h T h e m e
i f ( s p a r a m = = O B J P R E F I X + " T H E M E " )
{
/ / - - -
i f ( S e l e c t e d T h e m e = = 0 )
{
O b j e c t s D e l e t e A l l ( 0 , O B J P R E F I X , - 1 , - 1 ) ;
C O L O R _ B G = C ' 2 8 , 2 8 , 2 8 ' ;
C O L O R _ F O N T = c l r S i l v e r ;
C O L O R _ G R E E N = c l r L i m e G r e e n ;
C O L O R _ R E D = c l r R e d ;
C O L O R _ L O W = c l r Y e l l o w ;
C O L O R _ M A R K E R = c l r G o l d ;
O b j e c t s C r e a t e A l l ( ) ;
S e l e c t e d T h e m e = 1 ;
/ / - - -
S e t S t a t u s ( " ÿ " , " D a r k t h e m e s e l e c t e d . . . " ) ;
S l e e p ( 2 5 0 ) ;
R e s e t S t a t u s ( ) ;
}
e l s e
{
O b j e c t s D e l e t e A l l ( 0 , O B J P R E F I X , - 1 , - 1 ) ;
C O L O R _ B G = C ' 2 4 0 , 2 4 0 , 2 4 0 ' ;
C O L O R _ F O N T = C ' 4 0 , 4 1 , 5 9 ' ;
C O L O R _ G R E E N = c l r F o r e s t G r e e n ;
C O L O R _ R E D = c l r I n d i a n R e d ;
C O L O R _ L O W = c l r G o l d e n r o d ;
C O L O R _ M A R K E R = c l r D a r k O r a n g e ;
O b j e c t s C r e a t e A l l ( ) ;
S e l e c t e d T h e m e = 0 ;
/ / - - -
S e t S t a t u s ( " ÿ " , " L i g h t t h e m e s e l e c t e d . . . " ) ;
S l e e p ( 2 5 0 ) ;
R e s e t S t a t u s ( ) ;
}
}
/ / - - - S w i t c h T h e m e
i f ( s p a r a m = = O B J P R E F I X + " T E M P L A T E " )
{
/ / - - -
i f ( ! C l e a r e d T e m p l a t e )
{
/ / - - -
i f ( S e l e c t e d T h e m e = = 0 )
{
C h a r t S e t C o l o r ( 0 ) ;
C l e a r e d T e m p l a t e = t r u e ;
S e t S t a t u s ( " ÿ " , " C h a r t c o l o r c l e a r e d . . . " ) ;
}
e l s e
{
C h a r t S e t C o l o r ( 1 ) ;
C l e a r e d T e m p l a t e = t r u e ;
S e t S t a t u s ( " ÿ " , " C h a r t c o l o r c l e a r e d . . . " ) ;
}
}
e l s e
{
C h a r t S e t C o l o r ( 2 ) ;
C l e a r e d T e m p l a t e = f a l s e ;
S e t S t a t u s ( " ÿ " , " O r i g i n a l c h a r t c o l o r a p p l i e d . . . " ) ;
}
}
/ / - - - G e t P a r a m e t e r s
G e t P a r a m ( s p a r a m ) ;
/ / - - - S o u n d M a n a g e m e n t
i f ( s p a r a m = = O B J P R E F I X + " S O U N D " | | s p a r a m = = O B J P R E F I X + " S O U N D I O " )
{
/ / - - - E n a b l e S o u n d
i f ( ! S o u n d I s E n a b l e d )
{
S o u n d I s E n a b l e d = t r u e ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S O U N D I O " , O B J P R O P _ C O L O R , C ' 5 9 , 4 1 , 4 0 ' ) ; / / S e t O b j e c t
S e t S t a t u s ( " þ " , " S o u n d s e n a b l e d . . . " ) ;
P l a y S o u n d ( " s o u n d . w a v " ) ;
}
/ / - - - D i s a b l e S o u n d
e l s e
{
S o u n d I s E n a b l e d = f a l s e ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S O U N D I O " , O B J P R O P _ C O L O R , c l r N O N E ) ; / / S e t O b j e c t
S e t S t a t u s ( " ý " , " S o u n d s d i s a b l e d . . . " ) ;
}
}
/ / - - - A l a r m M a n a g e m e n t
i f ( s p a r a m = = O B J P R E F I X + " A L A R M " | | s p a r a m = = O B J P R E F I X + " A L A R M I O " )
{
/ / - - - E n a b l e S o u n d
i f ( ! A l a r m I s E n a b l e d )
{
/ / - - -
A l a r m I s E n a b l e d = t r u e ;
/ / - - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " A L A R M I O " , O B J P R O P _ C O L O R , c l r N O N E ) ;
/ / - - -
s t r i n g m e s s a g e = " \ n " ;
/ / - - -
i f ( _ A l e r t )
m e s s a g e = " [ P o p - u p ] " ;
/ / - - -
i f ( P u s h )
S t r i n g A d d ( m e s s a g e , " [ P u s h ] " ) ;
/ / - - -
i f ( M a i l )
S t r i n g A d d ( m e s s a g e , " [ E m a i l ] " ) ;
/ / - - -
i f ( ! _ A l e r t & & ! P u s h & & ! M a i l )
{
A l e r t ( O B J P R E F I X + " N o a l e r t m e t h o d s e l e c t e d ! " ) ;
r e t u r n ;
}
/ / - - -
A l e r t ( " A l e r t s e n a b l e d " + m e s s a g e ) ;
S e t S t a t u s ( " þ " , " A l e r t s e n a b l e d . . . " ) ;
}
/ / - - - D i s a b l e S o u n d
e l s e
{
/ / - - -
A l a r m I s E n a b l e d = f a l s e ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " A L A R M I O " , O B J P R O P _ C O L O R , C ' 5 9 , 4 1 , 4 0 ' ) ;
/ / - - -
S e t S t a t u s ( " ý " , " A l e r t s d i s a b l e d . . . " ) ;
}
}
/ / - - - B a l a n c e
i f ( s p a r a m = = O B J P R E F I X + " B A L A N C E « " )
{
/ / - - -
s t r i n g t e x t = " " ;
/ / - - -
i f ( _ A c c o u n t C u r r e n c y ( ) = = " $ " | | _ A c c o u n t C u r r e n c y ( ) = = " £ " )
t e x t = _ A c c o u n t C u r r e n c y ( ) + D o u b l e T o S t r i n g ( A c c o u n t I n f o D o u b l e ( A C C O U N T _ E Q U I T Y ) , 2 ) ;
e l s e
t e x t = D o u b l e T o S t r i n g ( A c c o u n t I n f o D o u b l e ( A C C O U N T _ E Q U I T Y ) , 2 ) + _ A c c o u n t C u r r e n c y ( ) ;
/ / - - -
S e t S t a t u s ( " " , " E q u i t y : " + t e x t ) ;
}
/ / - - - A u t o S L M a n a g e m e n t
i f ( s p a r a m = = O B J P R E F I X + " A U T O S L " )
{
/ / - - - E n a b l e A u t o S L
i f ( ! A u t o S L )
{
A u t o S L = t r u e ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " A U T O S L " , O B J P R O P _ C O L O R , C O L O R _ A U T O ) ; / / S e t O b j e c t
S e t S t a t u s ( " þ " , " A u t o s l e n a b l e d . . . " ) ;
}
/ / - - - D i s a b l e A u t o S L
e l s e
{
A u t o S L = f a l s e ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " A U T O S L " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ; / / S e t O b j e c t
S e t S t a t u s ( " ý " , " A u t o s l d i s a b l e d . . . " ) ;
}
}
/ / - - - A u t o T P M a n a g e m e n t
i f ( s p a r a m = = O B J P R E F I X + " A U T O T P " )
{
/ / - - - E n a b l e A u t o T P
i f ( ! A u t o T P )
{
A u t o T P = t r u e ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " A U T O T P " , O B J P R O P _ C O L O R , C O L O R _ A U T O ) ; / / S e t O b j e c t
S e t S t a t u s ( " þ " , " A u t o t p e n a b l e d . . . " ) ;
}
/ / - - - D i s a b l e A u t o T P
e l s e
{
A u t o T P = f a l s e ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " A U T O T P " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ; / / S e t O b j e c t
S e t S t a t u s ( " ý " , " A u t o t p d i s a b l e d . . . " ) ;
}
}
/ / - - - A u t o L o t s M a n a g e m e n t
i f ( s p a r a m = = O B J P R E F I X + " A U T O L O T S " )
{
/ / - - - E n a b l e A u t o L o t s
i f ( ! A u t o L o t s )
{
A u t o L o t s = t r u e ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " A U T O L O T S " , O B J P R O P _ C O L O R , C O L O R _ A U T O ) ; / / S e t O b j e c t
S e t S t a t u s ( " þ " , " A u t o l o t s e n a b l e d . . . " ) ;
}
/ / - - - D i s a b l e A u t o L o t s
e l s e
{
A u t o L o t s = f a l s e ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " A U T O L O T S " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ; / / S e t O b j e c t
S e t S t a t u s ( " ý " , " A u t o l o t s d i s a b l e d . . . " ) ;
}
}
/ / - - - S w i t c h P r i c e R o w L e f t
i f ( s p a r a m = = O B J P R E F I X + " P R I C E R O W _ L ª " )
{
/ / - - -
P r i c e R o w L e f t + + ;
/ / - - -
i f ( P r i c e R o w L e f t > = A r r a y S i z e ( P r i c e R o w L e f t A r r ) ) / / R e s e t
P r i c e R o w L e f t = 0 ;
/ / - - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P R I C E R O W _ L ª " , O B J P R O P _ T E X T , 0 , P r i c e R o w L e f t A r r [ P r i c e R o w L e f t ] ) ; / * S e t O b j e c t * /
/ / - - -
S e t S t a t u s ( " É " , " S w i t c h e d t o " + P r i c e R o w L e f t A r r [ P r i c e R o w L e f t ] + " m o d e . . . " ) ;
/ / - - -
f o r ( i n t i = 0 ; i < A r r a y S i z e ( a S y m b o l s ) ; i + + )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P R I C E R O W _ L " + " - " + a S y m b o l s [ i ] , O B J P R O P _ T O O L T I P , P r i c e R o w L e f t A r r [ P r i c e R o w L e f t ] + " " + a S y m b o l s [ i ] ) ;
}
/ / - - - S w i t c h P r i c e R o w R i g h t
i f ( s p a r a m = = O B J P R E F I X + " P R I C E R O W _ R ª " )
{
/ / - - -
P r i c e R o w R i g h t + + ;
/ / - - -
i f ( P r i c e R o w R i g h t > = A r r a y S i z e ( P r i c e R o w R i g h t A r r ) ) / / R e s e t
P r i c e R o w R i g h t = 0 ;
/ / - - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P R I C E R O W _ R ª " , O B J P R O P _ T E X T , 0 , P r i c e R o w R i g h t A r r [ P r i c e R o w R i g h t ] ) ; / * S e t O b j e c t * /
/ / - - -
S e t S t a t u s ( " Ê " , " S w i t c h e d t o " + P r i c e R o w R i g h t A r r [ P r i c e R o w R i g h t ] + " m o d e . . . " ) ;
/ / - - -
f o r ( i n t i = 0 ; i < A r r a y S i z e ( a S y m b o l s ) ; i + + )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P R I C E R O W _ R " + " - " + a S y m b o l s [ i ] , O B J P R O P _ T O O L T I P , P r i c e R o w R i g h t A r r [ P r i c e R o w R i g h t ] + " " + a S y m b o l s [ i ] ) ;
}
/ / - - - D e c L o t S i z e A L L
i f ( s p a r a m = = O B J P R E F I X + " L O T S I Z E < " )
{
/ / - - -
d o u b l e L o t S i z e = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " , O B J P R O P _ T E X T ) ) ;
/ / - - -
i f ( ! U s e r I s E d i t i n g )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( L o t S i z e - = 0 . 0 1 , 2 ) ) ; / / S e t O b j e c t
}
/ / - - - I n c L o t S i z e A L L
i f ( s p a r a m = = O B J P R E F I X + " L O T S I Z E > " )
{
/ / - - -
d o u b l e L o t S i z e = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " , O B J P R O P _ T E X T ) ) ;
/ / - - -
i f ( ! U s e r I s E d i t i n g )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( L o t S i z e + = 0 . 0 1 , 2 ) ) ; / / S e t O b j e c t
}
/ / - - -
i f ( s p a r a m = = O B J P R E F I X + " C L O S E " )
{
/ / - - - N o O r d e r s
i n t o p e n p o s = 0 ;
/ / - - -
f o r ( i n t x = 0 ; x < A r r a y S i z e ( a S y m b o l s ) ; x + + )
o p e n p o s + = O p e n P o s ( a S y m b o l s [ x ] , O P _ A L L ) ;
/ / - - -
i f ( o p e n p o s = = 0 )
{
S e t S t a t u s ( " ý " , " N o o p e n o r d e r s . . . " ) ;
S l e e p ( 1 0 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " C L O S E " , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
r e t u r n ;
}
/ / - - - C l o s e O r d e r ( s )
f o r ( i n t x = 0 ; x < A r r a y S i z e ( a S y m b o l s ) ; x + + )
O r d e r C l o s e ( a S y m b o l s [ x ] ) ;
/ / - - - R e s e t B u t t o n
S l e e p ( 5 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " C L O S E " , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
}
}
/ / - - - O n E d i t
i f ( i d = = C H A R T E V E N T _ O B J E C T _ E N D E D I T )
{
/ / - - - L o t s i z e A
d o u b l e L o t s i z e A I n p = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " , O B J P R O P _ T E X T ) ) ;
/ / - - -
i f ( L o t s i z e A I n p < 0 . 0 1 )
{
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( 0 . 0 1 , 2 ) ) ; / * S e t O b j e c t * /
L o t s i z e A I n p = 0 . 0 1 ;
}
/ / - - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( L o t s i z e A I n p , 2 ) ) ; / * S e t O b j e c t * /
/ / - - - R R I n p A
d o u b l e R R I n p A = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " R R < > " , O B J P R O P _ T E X T ) ) ;
/ / - - -
i f ( R R I n p A < 0 . 1 )
{
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " R R < > " , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( 0 . 1 , 2 ) ) ; / * S e t O b j e c t * /
R R I n p A = 0 . 1 ;
}
/ / - - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " R R < > " , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( R R I n p A , 2 ) ) ; / * S e t O b j e c t * /
/ / - - -
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + " S t o p l o s s " , S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " S L < > " , O B J P R O P _ T E X T ) ) ) ;
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + " T a k e p r o f i t " , S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " _ T P < > " , O B J P R O P _ T E X T ) ) ) ;
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + " L o t s i z e " , S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " , O B J P R O P _ T E X T ) ) ) ;
/ / - - -
U s e r I s E d i t i n g = f a l s e ;
}
/ / - - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | _ O n T e s t e r |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d _ O n T e s t e r ( )
{
/ / - - -
i f ( A c c o u n t F r e e M a r g i n C h e c k ( _ S y m b o l , O P _ B U Y , S y m b o l I n f o D o u b l e ( _ S y m b o l , S Y M B O L _ V O L U M E _ M I N ) ) > = 0 )
{
d o u b l e l o t s = S y m b o l I n f o D o u b l e ( _ S y m b o l , S Y M B O L _ V O L U M E _ M I N ) ;
/ / - - -
i n t t k t = O r d e r S e n d ( _ S y m b o l , O P _ B U Y , l o t s , S y m b o l I n f o D o u b l e ( _ S y m b o l , S Y M B O L _ A S K ) , 0 , 0 , 0 , N U L L , 0 , 0 , c l r N O N E ) ;
/ / - - -
i f ( t k t > 0 )
i n t c _ t k t = O r d e r C l o s e ( t k t , l o t s , S y m b o l I n f o D o u b l e ( _ S y m b o l , S Y M B O L _ B I D ) , 0 , c l r N O N E ) ;
}
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | A T R |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e A T R ( s t r i n g _ S y m b , i n t t i m e f r a m e , i n t p e r i o d )
{
/ / - - - -
d o u b l e s l = 0 , m l = 0 ;
/ / - - -
i f ( S y m b o l I n f o I n t e g e r ( _ S y m b , S Y M B O L _ D I G I T S ) = = 1 )
m l = 1 0 ;
/ / - - -
i f ( S y m b o l I n f o I n t e g e r ( _ S y m b , S Y M B O L _ D I G I T S ) = = 2 )
m l = 1 0 0 ;
/ / - - -
i f ( S y m b o l I n f o I n t e g e r ( _ S y m b , S Y M B O L _ D I G I T S ) = = 3 )
m l = 1 0 0 0 ;
/ / - - -
i f ( S y m b o l I n f o I n t e g e r ( _ S y m b , S Y M B O L _ D I G I T S ) = = 4 )
m l = 1 0 0 0 0 ;
/ / - - -
i f ( S y m b o l I n f o I n t e g e r ( _ S y m b , S Y M B O L _ D I G I T S ) = = 5 )
m l = 1 0 0 0 0 0 ;
/ / - - -
i f ( B a r s ( _ S y m b , t i m e f r a m e ) < p e r i o d )
s l = 0 ;
e l s e
s l = i A T R ( _ S y m b , t i m e f r a m e , p e r i o d , 1 ) * m l ;
/ / - - -
r e t u r n ( s l ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | A D R |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e A D R ( s t r i n g _ S y m b )
{
/ / - - - -
d o u b l e s = 0 , a d r 1 = 0 , a d r 5 = 0 , a d r 1 0 = 0 , a d r 2 0 = 0 , p t s = S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ P O I N T ) ;
/ / - - -
f o r ( i n t a = 1 ; a < = 2 0 ; a + + )
{
/ / - - -
i f ( p t s ! = 0 )
s + = ( i H i g h ( _ S y m b , C a l c T F , a ) - i L o w ( _ S y m b , C a l c T F , a ) ) / p t s ;
/ / - - -
i f ( a = = 1 )
a d r 1 = M a t h R o u n d ( s ) ;
/ / - - -
i f ( a = = 5 )
a d r 5 = M a t h R o u n d ( s / 5 ) ;
/ / - - -
i f ( a = = 1 0 )
a d r 1 0 = M a t h R o u n d ( s / 1 0 ) ;
/ / - - -
i f ( a = = 2 0 )
a d r 2 0 = M a t h R o u n d ( s / 2 0 ) ;
}
/ / - - - -
r e t u r n ( M a t h R o u n d ( ( a d r 1 + a d r 5 + a d r 1 0 + a d r 2 0 ) / 4 . 0 ) ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | _ L o t s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e _ L o t s ( s t r i n g _ S y m b , d o u b l e R i s k , d o u b l e S L )
{
/ / - - -
d o u b l e l o t s = 0 , t i c k v a l = 0 , r i s k = 0 , s l = S L ;
/ / - - -
i f ( A c c o u n t I n f o D o u b l e ( A C C O U N T _ B A L A N C E ) ! = 0 )
{
/ / - - -
t i c k v a l = S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ T R A D E _ T I C K _ V A L U E ) ;
r i s k = ( A c c o u n t I n f o D o u b l e ( A C C O U N T _ B A L A N C E ) / 1 0 0 ) * R i s k ;
/ / - - -
i f ( ( t i c k v a l * s l ) ! = 0 )
{
l o t s = r i s k / ( t i c k v a l * s l ) ;
}
/ / - - -
}
/ / - - -
d o u b l e M i n L o t = S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ V O L U M E _ M I N ) , M a x L o t = S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ V O L U M E _ M A X ) ;
/ / - - -
i f ( l o t s < = M i n L o t )
l o t s = M i n L o t ;
/ / - - -
i f ( l o t s > = M a x L o t )
l o t s = M a x L o t ;
/ / - - -
i f ( s l = = 0 )
l o t s = M i n L o t ;
/ / - - -
r e t u r n ( N o r m a l i z e D o u b l e ( l o t s , 2 ) ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | B a l a n c e |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g B a l a n c e ( )
{
/ / - - -
s t r i n g t e x t = " " ;
/ / - - -
i f ( _ A c c o u n t C u r r e n c y ( ) = = " $ " | | _ A c c o u n t C u r r e n c y ( ) = = " £ " )
t e x t = _ A c c o u n t C u r r e n c y ( ) + D o u b l e T o S t r i n g ( A c c o u n t I n f o D o u b l e ( A C C O U N T _ B A L A N C E ) , 2 ) ;
e l s e
t e x t = D o u b l e T o S t r i n g ( A c c o u n t I n f o D o u b l e ( A C C O U N T _ B A L A N C E ) , 2 ) + _ A c c o u n t C u r r e n c y ( ) ;
/ / - - -
s t r i n g r e s u l t = " B a l a n c e : " + t e x t ;
/ / - - -
i f ( O p e n P o s ( I n t e g e r T o S t r i n g ( - 1 ) , O P _ A L L ) > 0 )
S t r i n g A d d ( r e s u l t , " M a r g i n L e v e l : " + D o u b l e T o S t r i n g ( A c c o u n t I n f o D o u b l e ( A C C O U N T _ M A R G I N _ L E V E L ) , 2 ) + " % " ) ;
/ / - - -
r e t u r n ( r e s u l t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | O b j e c t s C r e a t e A l l |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O b j e c t s C r e a t e A l l ( )
{
/ / - - -
i n t f r _ y 2 = D p i ( 1 4 0 ) ;
/ / - - -
f o r ( i n t i = 0 ; i < A r r a y S i z e ( a S y m b o l s ) ; i + + )
{
/ / - - -
i f ( S e l e c t e d M o d e = = F U L L )
f r _ y 2 + = D p i ( 2 5 ) ;
/ / - - -
i f ( S e l e c t e d M o d e = = C O M P A C T )
f r _ y 2 + = D p i ( 2 1 ) ;
/ / - - -
i f ( S e l e c t e d M o d e = = M I N I )
f r _ y 2 + = D p i ( 1 7 ) ;
}
/ / - - -
i n t x = C h a r t M i d d l e X ( ) - ( D p i ( C L I E N T _ B G _ W I D T H ) / 2 ) ;
i n t y = C h a r t M i d d l e Y ( ) - ( f r _ y 2 / 2 ) ;
/ / - - -
i n t h e i g h t = f r _ y 2 + D p i ( 3 ) ;
/ / - - -
R e c t L a b e l C r e a t e ( 0 , O B J P R E F I X + " B C K G R N D [ ] " , 0 , x , y , D p i ( C L I E N T _ B G _ W I D T H ) , h e i g h t , C O L O R _ B G , 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 O L O R _ B O R D E R , S T Y L E _ S O L I D , 1 , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
_ x 1 = ( i n t ) O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " B C K G R N D [ ] " , O B J P R O P _ X D I S T A N C E ) ;
_ y 1 = ( i n t ) O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " B C K G R N D [ ] " , O B J P R O P _ Y D I S T A N C E ) ;
/ / - - -
R e c t L a b e l C r e a t e ( 0 , O B J P R E F I X + " B O R D E R [ ] " , 0 , x , y , D p i ( C L I E N T _ B G _ W I D T H ) , D p i ( I N D E N T _ T O P ) , C O L O R _ B O R D E R , 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 O L O R _ B O R D E R , S T Y L E _ S O L I D , 1 , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " C A P T I O N " , 0 , _ x 1 + ( D p i ( C L I E N T _ B G _ W I D T H ) / 2 ) - D p i ( 1 6 ) , _ y 1 , C O R N E R _ L E F T _ U P P E R , E x p e r t N a m e , " A r i a l B l a c k " , 9 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " E X I T " , 0 , ( _ x 1 + D p i ( C L I E N T _ B G _ W I D T H ) ) - D p i ( 1 0 ) , _ y 1 - D p i ( 2 ) , C O R N E R _ L E F T _ U P P E R , " r " , " W e b d i n g s " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 1 , " \ n " , f a l s e ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " M I N I M I Z E " , 0 , ( _ x 1 + D p i ( C L I E N T _ B G _ W I D T H ) ) - D p i ( 3 0 ) , _ y 1 - D p i ( 2 ) , C O R N E R _ L E F T _ U P P E R , " 2 " , " W e b d i n g s " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 1 , " \ n " , f a l s e ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " " , 0 , ( _ x 1 + D p i ( C L I E N T _ B G _ W I D T H ) ) - D p i ( 5 0 ) , _ y 1 - D p i ( 2 ) , C O R N E R _ L E F T _ U P P E R , " s " , " W e b d i n g s " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 1 , " \ n " , f a l s e ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " T I M E " , 0 , ( _ x 1 + D p i ( C L I E N T _ B G _ W I D T H ) ) - D p i ( 8 5 ) , _ y 1 + D p i ( 1 ) , C O R N E R _ L E F T _ U P P E R , T i m e T o S t r i n g ( 0 , T I M E _ S E C O N D S ) , " T a h o m a " , 8 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 1 , " L o c a l T i m e " , f a l s e ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " T I M E § " , 0 , ( _ x 1 + D p i ( C L I E N T _ B G _ W I D T H ) ) - D p i ( 1 2 0 ) , _ y 1 , C O R N E R _ L E F T _ U P P E R , " Â " , " W i n g d i n g s " , 1 2 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 1 , " L o c a l T i m e " , f a l s e ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " C O N N E C T I O N " , 0 , _ x 1 + D p i ( 1 5 ) , _ y 1 - D p i ( 2 ) , C O R N E R _ L E F T _ U P P E R , " ü " , " W e b d i n g s " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 0 , " C o n n e c t i o n " , f a l s e ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " T H E M E " , 0 , _ x 1 + D p i ( 4 0 ) , _ y 1 - D p i ( 4 ) , C O R N E R _ L E F T _ U P P E R , " N " , " W e b d i n g s " , 1 5 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 1 , " T h e m e " , f a l s e ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " T E M P L A T E " , 0 , _ x 1 + D p i ( 6 5 ) , _ y 1 - D p i ( 2 ) , C O R N E R _ L E F T _ U P P E R , " + " , " W e b d i n g s " , 1 2 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 1 , " B a c k g r o u n d " , f a l s e ) ;
/ / - - -
i n t m i d d l e = D p i ( C L I E N T _ B G _ W I D T H / 2 ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S T A T U S " , 0 , _ x 1 + m i d d l e + ( m i d d l e / 2 ) , _ y 1 + D p i ( 8 ) , C O R N E R _ L E F T _ U P P E R , " \ n " , " W i n g d i n g s " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 1 , " \ n " , f a l s e ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S T A T U S « " , 0 , _ x 1 + m i d d l e + ( m i d d l e / 2 ) + D p i ( 1 5 ) , _ y 1 + D p i ( 8 ) , C O R N E R _ L E F T _ U P P E R , " \ n " , s F o n t T y p e , 8 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 1 , " \ n " , f a l s e ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S O U N D " , 0 , _ x 1 + D p i ( 9 0 ) , _ y 1 - D p i ( 2 ) , C O R N E R _ L E F T _ U P P E R , " X " , " W e b d i n g s " , 1 2 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 1 , " S o u n d s " , f a l s e ) ;
/ / - - -
c o l o r s o u n d c l r = S o u n d I s E n a b l e d ? C ' 5 9 , 4 1 , 4 0 ' : c l r N O N E ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S O U N D I O " , 0 , _ x 1 + D p i ( 1 0 0 ) , _ y 1 - D p i ( 1 ) , C O R N E R _ L E F T _ U P P E R , " ð " , " W e b d i n g s " , 1 0 , s o u n d c l r , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 1 , " S o u n d s " , f a l s e ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " A L A R M " , 0 , _ x 1 + D p i ( 1 1 5 ) , _ y 1 - D p i ( 1 ) , C O R N E R _ L E F T _ U P P E R , " % " , " W i n g d i n g s " , 1 2 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 1 , " A l e r t s " , f a l s e ) ;
/ / - - -
c o l o r a l a r m c l r = A l a r m I s E n a b l e d ? c l r N O N E : C ' 5 9 , 4 1 , 4 0 ' ;
/ / - - -
i f ( ! _ A l e r t & & ! P u s h & & ! M a i l )
a l a r m c l r = C ' 5 9 , 4 1 , 4 0 ' ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " A L A R M I O " , 0 , _ x 1 + D p i ( 1 1 5 ) , _ y 1 - D p i ( 6 ) , C O R N E R _ L E F T _ U P P E R , " x " , s F o n t T y p e , 1 6 , a l a r m c l r , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 1 , " A l e r t s " , f a l s e ) ;
/ / - - -
i n t c s m _ f r _ x 1 = _ x 1 + D p i ( 5 0 ) ;
i n t c s m _ f r _ x 2 = _ x 1 + D p i ( 9 5 ) ;
i n t c s m _ f r _ x 3 = _ x 1 + D p i ( 1 3 7 ) ;
i n t c s m _ d i s t _ b = D p i ( 1 5 0 ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " A U D § " , 0 , c s m _ f r _ x 1 , _ y 1 + D p i ( 3 5 ) , C O R N E R _ L E F T _ U P P E R , " A U D " , " A r i a l B l a c k " , 1 5 , C O L O R _ F O N T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " A U D % " , 0 , c s m _ f r _ x 2 , _ y 1 + D p i ( 5 5 ) , C O R N E R _ L E F T _ U P P E R , " 0 % " , " A r i a l B l a c k " , 1 2 , C O L O R _ F O N T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
C r e a t e P r o B a r ( " A U D " , c s m _ f r _ x 3 , _ y 1 + D p i ( 5 7 ) ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " B U Y " + " - " + " A U D " , 0 , c s m _ f r _ x 1 - D p i ( 3 7 ) , _ y 1 + D p i ( 2 7 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " B u y " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 1 6 0 , 1 9 2 , 2 5 5 ' , C ' 1 4 4 , 1 7 6 , 2 3 9 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " C L O S E " + " - " + " A U D " , 0 , c s m _ f r _ x 1 - D p i ( 3 7 ) , _ y 1 + D p i ( 4 2 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " C l o s e " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 5 5 , 2 5 5 , 1 6 0 ' , C ' 2 3 9 , 2 3 9 , 1 4 4 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " S E L L " + " - " + " A U D " , 0 , c s m _ f r _ x 1 - D p i ( 3 7 ) , _ y 1 + D p i ( 5 7 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " S e l l " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 5 5 , 1 2 8 , 1 2 8 ' , C ' 2 3 9 , 1 1 2 , 1 1 2 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " C A D § " , 0 , c s m _ f r _ x 1 + c s m _ d i s t _ b , _ y 1 + D p i ( 3 5 ) , C O R N E R _ L E F T _ U P P E R , " C A D " , " A r i a l B l a c k " , 1 5 , C O L O R _ F O N T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " C A D % " , 0 , c s m _ f r _ x 2 + c s m _ d i s t _ b , _ y 1 + D p i ( 5 5 ) , C O R N E R _ L E F T _ U P P E R , " 0 % " , " A r i a l B l a c k " , 1 2 , C O L O R _ F O N T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
C r e a t e P r o B a r ( " C A D " , c s m _ f r _ x 3 + c s m _ d i s t _ b , _ y 1 + D p i ( 5 7 ) ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " B U Y " + " - " + " C A D " , 0 , c s m _ f r _ x 1 + c s m _ d i s t _ b - D p i ( 3 7 ) , _ y 1 + D p i ( 2 7 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " B u y " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 1 6 0 , 1 9 2 , 2 5 5 ' , C ' 1 4 4 , 1 7 6 , 2 3 9 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " C L O S E " + " - " + " C A D " , 0 , c s m _ f r _ x 1 + c s m _ d i s t _ b - D p i ( 3 7 ) , _ y 1 + D p i ( 4 2 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " C l o s e " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 5 5 , 2 5 5 , 1 6 0 ' , C ' 2 3 9 , 2 3 9 , 1 4 4 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " S E L L " + " - " + " C A D " , 0 , c s m _ f r _ x 1 + c s m _ d i s t _ b - D p i ( 3 7 ) , _ y 1 + D p i ( 5 7 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " S e l l " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 5 5 , 1 2 8 , 1 2 8 ' , C ' 2 3 9 , 1 1 2 , 1 1 2 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " C H F § " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 2 ) , _ y 1 + D p i ( 3 5 ) , C O R N E R _ L E F T _ U P P E R , " C H F " , " A r i a l B l a c k " , 1 5 , C O L O R _ F O N T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " C H F % " , 0 , c s m _ f r _ x 2 + ( c s m _ d i s t _ b * 2 ) , _ y 1 + D p i ( 5 5 ) , C O R N E R _ L E F T _ U P P E R , " 0 % " , " A r i a l B l a c k " , 1 2 , C O L O R _ F O N T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
C r e a t e P r o B a r ( " C H F " , c s m _ f r _ x 3 + ( c s m _ d i s t _ b * 2 ) , _ y 1 + D p i ( 5 7 ) ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " B U Y " + " - " + " C H F " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 2 ) - D p i ( 3 7 ) , _ y 1 + D p i ( 2 7 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " B u y " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 1 6 0 , 1 9 2 , 2 5 5 ' , C ' 1 4 4 , 1 7 6 , 2 3 9 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " C L O S E " + " - " + " C H F " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 2 ) - D p i ( 3 7 ) , _ y 1 + D p i ( 4 2 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " C l o s e " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 5 5 , 2 5 5 , 1 6 0 ' , C ' 2 3 9 , 2 3 9 , 1 4 4 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " S E L L " + " - " + " C H F " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 2 ) - D p i ( 3 7 ) , _ y 1 + D p i ( 5 7 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " S e l l " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 5 5 , 1 2 8 , 1 2 8 ' , C ' 2 3 9 , 1 1 2 , 1 1 2 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " E U R § " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 3 ) , _ y 1 + D p i ( 3 5 ) , C O R N E R _ L E F T _ U P P E R , " E U R " , " A r i a l B l a c k " , 1 5 , C O L O R _ F O N T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " E U R % " , 0 , c s m _ f r _ x 2 + ( c s m _ d i s t _ b * 3 ) , _ y 1 + D p i ( 5 5 ) , C O R N E R _ L E F T _ U P P E R , " 0 % " , " A r i a l B l a c k " , 1 2 , C O L O R _ F O N T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
C r e a t e P r o B a r ( " E U R " , c s m _ f r _ x 3 + ( c s m _ d i s t _ b * 3 ) , _ y 1 + D p i ( 5 7 ) ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " B U Y " + " - " + " E U R " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 3 ) - D p i ( 3 7 ) , _ y 1 + D p i ( 2 7 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " B u y " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 1 6 0 , 1 9 2 , 2 5 5 ' , C ' 1 4 4 , 1 7 6 , 2 3 9 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " C L O S E " + " - " + " E U R " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 3 ) - D p i ( 3 7 ) , _ y 1 + D p i ( 4 2 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " C l o s e " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 5 5 , 2 5 5 , 1 6 0 ' , C ' 2 3 9 , 2 3 9 , 1 4 4 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " S E L L " + " - " + " E U R " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 3 ) - D p i ( 3 7 ) , _ y 1 + D p i ( 5 7 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " S e l l " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 5 5 , 1 2 8 , 1 2 8 ' , C ' 2 3 9 , 1 1 2 , 1 1 2 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " G B P § " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 4 ) , _ y 1 + D p i ( 3 5 ) , C O R N E R _ L E F T _ U P P E R , " G B P " , " A r i a l B l a c k " , 1 5 , C O L O R _ F O N T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " G B P % " , 0 , c s m _ f r _ x 2 + ( c s m _ d i s t _ b * 4 ) , _ y 1 + D p i ( 5 5 ) , C O R N E R _ L E F T _ U P P E R , " 0 % " , " A r i a l B l a c k " , 1 2 , C O L O R _ F O N T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
C r e a t e P r o B a r ( " G B P " , c s m _ f r _ x 3 + ( c s m _ d i s t _ b * 4 ) , _ y 1 + D p i ( 5 7 ) ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " B U Y " + " - " + " G B P " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 4 ) - D p i ( 3 7 ) , _ y 1 + D p i ( 2 7 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " B u y " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 1 6 0 , 1 9 2 , 2 5 5 ' , C ' 1 4 4 , 1 7 6 , 2 3 9 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " C L O S E " + " - " + " G B P " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 4 ) - D p i ( 3 7 ) , _ y 1 + D p i ( 4 2 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " C l o s e " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 5 5 , 2 5 5 , 1 6 0 ' , C ' 2 3 9 , 2 3 9 , 1 4 4 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " S E L L " + " - " + " G B P " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 4 ) - D p i ( 3 7 ) , _ y 1 + D p i ( 5 7 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " S e l l " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 5 5 , 1 2 8 , 1 2 8 ' , C ' 2 3 9 , 1 1 2 , 1 1 2 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " J P Y § " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 5 ) , _ y 1 + D p i ( 3 5 ) , C O R N E R _ L E F T _ U P P E R , " J P Y " , " A r i a l B l a c k " , 1 5 , C O L O R _ F O N T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " J P Y % " , 0 , c s m _ f r _ x 2 + ( c s m _ d i s t _ b * 5 ) , _ y 1 + D p i ( 5 5 ) , C O R N E R _ L E F T _ U P P E R , " 0 % " , " A r i a l B l a c k " , 1 2 , C O L O R _ F O N T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
C r e a t e P r o B a r ( " J P Y " , c s m _ f r _ x 3 + ( c s m _ d i s t _ b * 5 ) , _ y 1 + D p i ( 5 7 ) ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " B U Y " + " - " + " J P Y " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 5 ) - D p i ( 3 7 ) , _ y 1 + D p i ( 2 7 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " B u y " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 1 6 0 , 1 9 2 , 2 5 5 ' , C ' 1 4 4 , 1 7 6 , 2 3 9 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " C L O S E " + " - " + " J P Y " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 5 ) - D p i ( 3 7 ) , _ y 1 + D p i ( 4 2 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " C l o s e " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 5 5 , 2 5 5 , 1 6 0 ' , C ' 2 3 9 , 2 3 9 , 1 4 4 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " S E L L " + " - " + " J P Y " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 5 ) - D p i ( 3 7 ) , _ y 1 + D p i ( 5 7 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " S e l l " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 5 5 , 1 2 8 , 1 2 8 ' , C ' 2 3 9 , 1 1 2 , 1 1 2 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " N Z D § " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 6 ) , _ y 1 + D p i ( 3 5 ) , C O R N E R _ L E F T _ U P P E R , " N Z D " , " A r i a l B l a c k " , 1 5 , C O L O R _ F O N T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " N Z D % " , 0 , c s m _ f r _ x 2 + ( c s m _ d i s t _ b * 6 ) , _ y 1 + D p i ( 5 5 ) , C O R N E R _ L E F T _ U P P E R , " 0 % " , " A r i a l B l a c k " , 1 2 , C O L O R _ F O N T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
C r e a t e P r o B a r ( " N Z D " , c s m _ f r _ x 3 + ( c s m _ d i s t _ b * 6 ) , _ y 1 + D p i ( 5 7 ) ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " B U Y " + " - " + " N Z D " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 6 ) - D p i ( 3 7 ) , _ y 1 + D p i ( 2 7 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " B u y " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 1 6 0 , 1 9 2 , 2 5 5 ' , C ' 1 4 4 , 1 7 6 , 2 3 9 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " C L O S E " + " - " + " N Z D " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 6 ) - D p i ( 3 7 ) , _ y 1 + D p i ( 4 2 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " C l o s e " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 5 5 , 2 5 5 , 1 6 0 ' , C ' 2 3 9 , 2 3 9 , 1 4 4 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " S E L L " + " - " + " N Z D " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 6 ) - D p i ( 3 7 ) , _ y 1 + D p i ( 5 7 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " S e l l " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 5 5 , 1 2 8 , 1 2 8 ' , C ' 2 3 9 , 1 1 2 , 1 1 2 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " U S D § " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 7 ) , _ y 1 + D p i ( 3 5 ) , C O R N E R _ L E F T _ U P P E R , " U S D " , " A r i a l B l a c k " , 1 5 , C O L O R _ F O N T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " U S D % " , 0 , c s m _ f r _ x 2 + ( c s m _ d i s t _ b * 7 ) , _ y 1 + D p i ( 5 5 ) , C O R N E R _ L E F T _ U P P E R , " 0 % " , " A r i a l B l a c k " , 1 2 , C O L O R _ F O N T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
C r e a t e P r o B a r ( " U S D " , c s m _ f r _ x 3 + ( c s m _ d i s t _ b * 7 ) , _ y 1 + D p i ( 5 7 ) ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " B U Y " + " - " + " U S D " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 7 ) - D p i ( 3 7 ) , _ y 1 + D p i ( 2 7 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " B u y " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 1 6 0 , 1 9 2 , 2 5 5 ' , C ' 1 4 4 , 1 7 6 , 2 3 9 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " C L O S E " + " - " + " U S D " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 7 ) - D p i ( 3 7 ) , _ y 1 + D p i ( 4 2 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " C l o s e " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 5 5 , 2 5 5 , 1 6 0 ' , C ' 2 3 9 , 2 3 9 , 1 4 4 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " S E L L " + " - " + " U S D " , 0 , c s m _ f r _ x 1 + ( c s m _ d i s t _ b * 7 ) - D p i ( 3 7 ) , _ y 1 + D p i ( 5 7 ) , D p i ( 2 5 ) , D p i ( 1 1 ) , C O R N E R _ L E F T _ U P P E R , " S e l l " , " T r e b u c h e t M S " , 6 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 5 5 , 1 2 8 , 1 2 8 ' , C ' 2 3 9 , 1 1 2 , 1 1 2 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " B A L A N C E « " , 0 , _ x 1 + D p i ( 3 0 0 ) , _ y 1 + D p i ( 8 ) , C O R N E R _ L E F T _ U P P E R , B a l a n c e ( ) , s F o n t T y p e , 8 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
c o l o r a u t o s l = A u t o S L ? C O L O R _ A U T O : C O L O R _ F O N T ;
c o l o r a u t o t p = A u t o T P ? C O L O R _ A U T O : C O L O R _ F O N T ;
c o l o r a u t o l o t s = A u t o L o t s ? C O L O R _ A U T O : C O L O R _ F O N T ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " A U T O S L " , 0 , _ x 1 + D p i ( 5 1 5 ) , _ y 1 + D p i ( 8 1 ) , C O R N E R _ L E F T _ U P P E R , " A u t o s l " , s F o n t T y p e , 7 , a u t o s l , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " A U T O L O T S " , 0 , _ x 1 + D p i ( 5 8 3 ) , _ y 1 + D p i ( 8 1 ) , C O R N E R _ L E F T _ U P P E R , " A u t o l o t s " , s F o n t T y p e , 7 , a u t o l o t s , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " A U T O T P " , 0 , _ x 1 + D p i ( 6 5 0 ) , _ y 1 + D p i ( 8 1 ) , C O R N E R _ L E F T _ U P P E R , " A u t o t p " , s F o n t T y p e , 7 , a u t o t p , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " P R I C E R O W _ L ª " , 0 , _ x 1 + D p i ( 3 9 5 ) , _ y 1 + D p i ( 8 1 ) , C O R N E R _ L E F T _ U P P E R , P r i c e R o w L e f t A r r [ P r i c e R o w L e f t ] , s F o n t T y p e , 7 , F i r s t R u n ? c l r N O N E : C O L O R _ F O N T , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " P R I C E R O W _ R ª " , 0 , _ x 1 + D p i ( C L I E N T _ B G _ W I D T H ) - D p i ( 3 5 5 ) , _ y 1 + D p i ( 8 1 ) , C O R N E R _ L E F T _ U P P E R , P r i c e R o w R i g h t A r r [ P r i c e R o w R i g h t ] , s F o n t T y p e , 7 , F i r s t R u n ? c l r N O N E : C O L O R _ F O N T , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - - S y m b o l s G U I
i n t f r _ y = _ y 1 + D p i ( 9 5 ) ;
/ / - - -
f o r ( i n t i = 0 ; i < A r r a y S i z e ( a S y m b o l s ) ; i + + )
{
/ / - - -
C r e a t e S y m b G U I ( P r e f i x + a S y m b o l s [ i ] + S u f f i x , f r _ y ) ;
/ / - - -
i f ( S e l e c t e d M o d e = = F U L L )
f r _ y + = D p i ( 2 5 ) ;
/ / - - -
i f ( S e l e c t e d M o d e = = C O M P A C T )
f r _ y + = D p i ( 2 1 ) ;
/ / - - -
i f ( S e l e c t e d M o d e = = M I N I )
f r _ y + = D p i ( 1 7 ) ;
}
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " T O T A L L O T S " , 0 , _ x 1 + D p i ( C L I E N T _ B G _ W I D T H ) - D p i ( 2 2 0 ) , f r _ y + D p i ( 5 ) , C O R N E R _ L E F T _ U P P E R , " 0 . 0 0 " , s F o n t T y p e , F O N T S I Z E , C O L O R _ F O N T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " T o t a l L o t s " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " T O T A L « " , 0 , _ x 1 + D p i ( C L I E N T _ B G _ W I D T H ) - D p i ( 1 5 5 ) , f r _ y + D p i ( 5 ) , C O R N E R _ L E F T _ U P P E R , " 0 p " , s F o n t T y p e , F O N T S I Z E , C O L O R _ F O N T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " T O T A L « « " , 0 , _ x 1 + D p i ( C L I E N T _ B G _ W I D T H ) - D p i ( 7 3 ) , f r _ y + D p i ( 5 ) , C O R N E R _ L E F T _ U P P E R , " 0 . 0 0 " + _ A c c o u n t C u r r e n c y ( ) , s F o n t T y p e , F O N T S I Z E , C O L O R _ F O N T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " T O T A L « « « " , 0 , _ x 1 + D p i ( C L I E N T _ B G _ W I D T H ) - D p i ( 1 0 ) , f r _ y + D p i ( 5 ) , C O R N E R _ L E F T _ U P P E R , " 0 . 0 0 % " , s F o n t T y p e , F O N T S I Z E , C O L O R _ F O N T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " L E V E R A G E " , 0 , _ x 1 + D p i ( C L I E N T _ B G _ W I D T H ) - D p i ( 2 8 5 ) , f r _ y + D p i ( 5 ) , C O R N E R _ L E F T _ U P P E R , " 1 : " + I n t e g e r T o S t r i n g ( A c c o u n t I n f o I n t e g e r ( A C C O U N T _ L E V E R A G E ) ) , s F o n t T y p e , F O N T S I Z E , C O L O R _ F O N T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " C u r r e n t L e v e r a g e " ) ;
/ / - - -
E d i t C r e a t e ( 0 , O B J P R E F I X + " S L < > " , 0 , _ x 1 + D p i ( 4 9 0 ) , f r _ y , D p i ( 5 0 ) , D p i ( 1 5 ) , D o u b l e T o S t r i n g ( G l o b a l V a r i a b l e G e t ( O B J P R E F I X + " S t o p l o s s " ) , 0 ) , " T a h o m a " , 1 0 , A L I G N _ R I G H T , f a l s e , C O R N E R _ L E F T _ U P P E R , C ' 5 9 , 4 1 , 4 0 ' , c l r W h i t e , c l r W h i t e , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S L ª " , 0 , _ x 1 + D p i ( 4 9 8 ) , f r _ y + D p i ( 7 ) , C O R N E R _ L E F T _ U P P E R , " s l " , s F o n t T y p e , 1 0 , c l r D a r k G r a y , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
E d i t C r e a t e ( 0 , O B J P R E F I X + " L O T S I Z E < > " , 0 , _ x 1 + D p i ( 5 5 0 ) , f r _ y , D p i ( 6 5 ) , D p i ( 1 5 ) , D o u b l e T o S t r i n g ( G l o b a l V a r i a b l e G e t ( O B J P R E F I X + " L o t s i z e " ) , 2 ) , " T a h o m a " , 1 0 , A L I G N _ C E N T E R , f a l s e , C O R N E R _ L E F T _ U P P E R , C ' 5 9 , 4 1 , 4 0 ' , c l r W h i t e , c l r W h i t e , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " L O T S I Z E < " , 0 , _ x 1 + D p i ( 5 5 5 ) , f r _ y + D p i ( 5 ) , C O R N E R _ L E F T _ U P P E R , " 6 " , " W e b d i n g s " , 8 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " , f a l s e ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " L O T S I Z E > " , 0 , _ x 1 + D p i ( 6 1 0 ) , f r _ y + D p i ( 5 ) , C O R N E R _ L E F T _ U P P E R , " 5 " , " W e b d i n g s " , 8 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " , f a l s e ) ;
/ / - - -
E d i t C r e a t e ( 0 , O B J P R E F I X + " _ T P < > " , 0 , _ x 1 + D p i ( 6 2 5 ) , f r _ y , D p i ( 5 0 ) , D p i ( 1 5 ) , D o u b l e T o S t r i n g ( G l o b a l V a r i a b l e G e t ( O B J P R E F I X + " T a k e p r o f i t " ) , 0 ) , " T a h o m a " , 1 0 , A L I G N _ R I G H T , f a l s e , C O R N E R _ L E F T _ U P P E R , C ' 5 9 , 4 1 , 4 0 ' , c l r W h i t e , c l r W h i t e , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " T P ª " , 0 , _ x 1 + D p i ( 6 3 3 ) , f r _ y + D p i ( 7 ) , C O R N E R _ L E F T _ U P P E R , " t p " , s F o n t T y p e , 1 0 , c l r D a r k G r a y , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " S E T S L < > " , 0 , _ x 1 + D p i ( 4 9 0 ) , f r _ y + D p i ( 2 0 ) , D p i ( 5 0 ) , D p i ( 1 5 ) , C O R N E R _ L E F T _ U P P E R , " S e t s l " , " T r e b u c h e t M S " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 2 0 , 2 2 0 , 2 2 0 ' , C ' 2 2 0 , 2 2 0 , 2 2 0 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
/ / - - -
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " S E T L O T S < > " , 0 , _ x 1 + D p i ( 4 4 5 ) + D p i ( 1 0 5 ) , f r _ y + D p i ( 2 0 ) , D p i ( 6 5 ) , D p i ( 1 5 ) , C O R N E R _ L E F T _ U P P E R , " S e t l o t s " , " T r e b u c h e t M S " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 2 0 , 2 2 0 , 2 2 0 ' , C ' 2 2 0 , 2 2 0 , 2 2 0 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
/ / - - -
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " S E T T P < > " , 0 , _ x 1 + D p i ( 6 2 5 ) , f r _ y + D p i ( 2 0 ) , D p i ( 5 0 ) , D p i ( 1 5 ) , C O R N E R _ L E F T _ U P P E R , " S e t t p " , " T r e b u c h e t M S " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 2 0 , 2 2 0 , 2 2 0 ' , C ' 2 2 0 , 2 2 0 , 2 2 0 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " \ n " ) ;
/ / - - -
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " C L O S E " , 0 , _ x 1 + D p i ( 7 4 0 ) , f r _ y , D p i ( 4 0 ) , D p i ( 1 5 ) , C O R N E R _ L E F T _ U P P E R , " C l o s e " , " T r e b u c h e t M S " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 5 5 , 2 5 5 , 1 6 0 ' , C ' 2 3 9 , 2 3 9 , 1 4 4 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " C l o s e A l l " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " P O S I T I O N S " , 0 , _ x 1 + D p i ( 1 0 ) , f r _ y + D p i ( 5 ) , C O R N E R _ L E F T _ U P P E R , " F l o a t i n g : " , s F o n t T y p e , F O N T S I Z E , C O L O R _ F O N T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S E L L P O S " , 0 , _ x 1 + D p i ( 9 0 ) , f r _ y + D p i ( 5 ) , C O R N E R _ L E F T _ U P P E R , " S e l l : " , s F o n t T y p e , F O N T S I Z E , C O L O R _ F O N T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S E L L P O S « " , 0 , _ x 1 + D p i ( 1 5 0 ) , f r _ y + D p i ( 5 ) , C O R N E R _ L E F T _ U P P E R , " 0 " , s F o n t T y p e , F O N T S I Z E , C O L O R _ F O N T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " B U Y P O S " , 0 , _ x 1 + D p i ( 1 8 5 ) , f r _ y + D p i ( 5 ) , C O R N E R _ L E F T _ U P P E R , " B u y : " , s F o n t T y p e , F O N T S I Z E , C O L O R _ F O N T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " B U Y P O S « " , 0 , _ x 1 + D p i ( 2 4 5 ) , f r _ y + D p i ( 5 ) , C O R N E R _ L E F T _ U P P E R , " 0 " , s F o n t T y p e , F O N T S I Z E , C O L O R _ F O N T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " T O T A L P O S " , 0 , _ x 1 + D p i ( 2 7 0 ) , f r _ y + D p i ( 5 ) , C O R N E R _ L E F T _ U P P E R , " T o t a l : " , s F o n t T y p e , F O N T S I Z E , C O L O R _ F O N T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " T O T A L P O S « " , 0 , _ x 1 + D p i ( 3 4 5 ) , f r _ y + D p i ( 5 ) , C O R N E R _ L E F T _ U P P E R , " 0 " , s F o n t T y p e , F O N T S I Z E , C O L O R _ F O N T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " R I S K " , 0 , _ x 1 + D p i ( 1 0 ) , f r _ y + D p i ( 2 7 ) , C O R N E R _ L E F T _ U P P E R , " R i s k P T : " , s F o n t T y p e , F O N T S I Z E , C O L O R _ F O N T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " R i s k P e r T r a d e " ) ;
E d i t C r e a t e ( 0 , O B J P R E F I X + " R I S K % < > " , 0 , _ x 1 + D p i ( 9 0 ) , f r _ y + D p i ( 2 0 ) , D p i ( 6 0 ) , D p i ( 1 5 ) , D o u b l e T o S t r i n g ( R i s k I n p , 2 ) , " T a h o m a " , 1 0 , A L I G N _ R I G H T , f a l s e , C O R N E R _ L E F T _ U P P E R , C ' 5 9 , 4 1 , 4 0 ' , c l r W h i t e , c l r W h i t e , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " R I S K % ª " , 0 , _ x 1 + D p i ( 9 8 ) , f r _ y + D p i ( 2 7 ) , C O R N E R _ L E F T _ U P P E R , " % " , s F o n t T y p e , 1 0 , c l r D a r k G r a y , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
E d i t C r e a t e ( 0 , O B J P R E F I X + " R I S K $ < > " , 0 , _ x 1 + D p i ( 1 7 5 ) , f r _ y + D p i ( 2 0 ) , D p i ( 8 0 ) , D p i ( 1 5 ) , D o u b l e T o S t r i n g ( ( A c c o u n t I n f o D o u b l e ( A C C O U N T _ B A L A N C E ) / 1 0 0 ) * R i s k I n p , 2 ) , " T a h o m a " , 1 0 , A L I G N _ R I G H T , f a l s e , C O R N E R _ L E F T _ U P P E R , C ' 5 9 , 4 1 , 4 0 ' , c l r W h i t e , c l r W h i t e , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
L a b e l C r e a t e ( 0 , O B J P R E F I X + " R I S K $ ª " , 0 , _ x 1 + D p i ( 1 8 2 ) , f r _ y + D p i ( 2 7 ) , C O R N E R _ L E F T _ U P P E R , _ A c c o u n t C u r r e n c y ( ) , s F o n t T y p e , 1 0 , c l r D a r k G r a y , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " R R " , 0 , _ x 1 + D p i ( 2 7 0 ) , f r _ y + D p i ( 2 7 ) , C O R N E R _ L E F T _ U P P E R , " R e w a r d R a t i o : " , s F o n t T y p e , F O N T S I Z E , C O L O R _ F O N T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " R i s k / R e w a r d R a t i o " ) ;
E d i t C r e a t e ( 0 , O B J P R E F I X + " R R < > " , 0 , _ x 1 + D p i ( 3 7 0 ) , f r _ y + D p i ( 2 0 ) , D p i ( 5 0 ) , D p i ( 1 5 ) , D o u b l e T o S t r i n g ( R R , 2 ) , " T a h o m a " , 1 0 , A L I G N _ C E N T E R , f a l s e , C O R N E R _ L E F T _ U P P E R , C ' 5 9 , 4 1 , 4 0 ' , c l r W h i t e , c l r W h i t e , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C r e a t e S y m b G U I |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d C r e a t e S y m b G U I ( s t r i n g _ S y m b , i n t Y )
{
/ / - - -
c o l o r s t a r t c o l o r = F i r s t R u n ? c l r N O N E : C O L O R _ F O N T ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + _ S y m b , 0 , _ x 1 + D p i ( 1 0 ) , Y , C O R N E R _ L E F T _ U P P E R , S t r i n g S u b s t r ( _ S y m b , S t r i n g L e n ( P r e f i x ) , 6 ) + " : " , s F o n t T y p e , F O N T S I Z E , C O L O R _ F O N T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S Y M B O L § " + " - " + _ S y m b , 0 , _ x 1 + D p i ( 1 0 5 ) , Y , C O R N E R _ L E F T _ U P P E R , " à " , " W i n g d i n g s " , 1 2 , s t a r t c o l o r , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S Y M B O L % " + " - " + _ S y m b , 0 , _ x 1 + D p i ( 1 4 5 ) , Y , C O R N E R _ L E F T _ U P P E R , " 0 . 0 0 % " , s F o n t T y p e , 8 , s t a r t c o l o r , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " R A N G E ± " + " - " + _ S y m b , 0 , _ x 1 + D p i ( 2 0 5 ) , Y , C O R N E R _ L E F T _ U P P E R , " 0 p " , s F o n t T y p e , F O N T S I Z E , s t a r t c o l o r , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " R a n g e " + _ S y m b ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " R A N G E % " + " - " + _ S y m b , 0 , _ x 1 + D p i ( 2 5 5 ) , Y , C O R N E R _ L E F T _ U P P E R , " 0 % " , s F o n t T y p e , F O N T S I Z E , s t a r t c o l o r , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S P E E D ª " + " - " + _ S y m b , 0 , _ x 1 + D p i ( 3 5 5 ) , Y , C O R N E R _ L E F T _ U P P E R , " \ n " , s F o n t T y p e , 9 , c l r N O N E , 0 . 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 ) ;
/ / - - -
i n t f r _ x = D p i ( 3 3 0 ) ;
/ / - - -
f o r ( i n t i = 0 ; i < 1 0 ; i + + )
{
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S P E E D # " + " - " + _ S y m b + I n t e g e r T o S t r i n g ( i ) , 0 , _ x 1 + f r _ x , Y , C O R N E R _ L E F T _ U P P E R , " l " , " A r i a l B l a c k " , 1 2 , c l r N O N E , 0 . 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 ) ;
f r _ x - = D p i ( 5 ) ;
}
/ / - - -
d o u b l e b i d = M a r k e t I n f o ( _ S y m b , M O D E _ B I D ) ;
/ / - - -
i n t d i g i t s = ( i n t ) M a r k e t I n f o ( _ S y m b , M O D E _ D I G I T S ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " P R I C E R O W _ L " + " - " + _ S y m b , 0 , _ x 1 + D p i ( 4 1 7 ) , Y , C O R N E R _ L E F T _ U P P E R , D o u b l e T o S t r i n g ( 0 , d i g i t s ) , s F o n t T y p e , F O N T S I Z E , s t a r t c o l o r , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , P r i c e R o w L e f t A r r [ P r i c e R o w L e f t ] + " " + _ S y m b ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " O P E N S E L L " + " - " + _ S y m b , 0 , _ x 1 + D p i ( 4 4 5 ) , Y + D p i ( 2 ) , C O R N E R _ L E F T _ U P P E R , " \ n " , s F o n t T y p e , F O N T S I Z E , C O L O R _ F O N T , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " O P E N B U Y " + " - " + _ S y m b , 0 , _ x 1 + D p i ( 7 2 0 ) , Y + D p i ( 2 ) , C O R N E R _ L E F T _ U P P E R , " \ n " , s F o n t T y p e , F O N T S I Z E , C O L O R _ F O N T , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " S E L L " + " - " + _ S y m b , 0 , _ x 1 + D p i ( 4 5 0 ) , Y - D p i ( 5 ) , D p i ( 3 0 ) , D p i ( 1 5 ) , C O R N E R _ L E F T _ U P P E R , " S e l l " , " T r e b u c h e t M S " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 5 5 , 1 2 8 , 1 2 8 ' , C ' 2 3 9 , 1 1 2 , 1 1 2 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " S e l l " + _ S y m b ) ;
/ / - - -
E d i t C r e a t e ( 0 , O B J P R E F I X + " S L < > " + " - " + _ S y m b , 0 , _ x 1 + D p i ( 4 9 0 ) , Y - D p i ( 5 ) , D p i ( 5 0 ) , D p i ( 1 5 ) , D o u b l e T o S t r i n g ( G l o b a l V a r i a b l e G e t ( O B J P R E F I X + _ S y m b + " - S t o p l o s s " ) , 0 ) , " T a h o m a " , 1 0 , A L I G N _ R I G H T , f a l s e , C O R N E R _ L E F T _ U P P E R , C ' 5 9 , 4 1 , 4 0 ' , c l r W h i t e , c l r W h i t e , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S L ª " + " - " + _ S y m b , 0 , _ x 1 + D p i ( 4 9 8 ) , Y + D p i ( 2 ) , C O R N E R _ L E F T _ U P P E R , " s l " , s F o n t T y p e , 1 0 , c l r D a r k G r a y , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
E d i t C r e a t e ( 0 , O B J P R E F I X + " L O T S I Z E < > " + " - " + _ S y m b , 0 , _ x 1 + D p i ( 5 5 0 ) , Y - D p i ( 5 ) , D p i ( 6 5 ) , D p i ( 1 5 ) , D o u b l e T o S t r i n g ( G l o b a l V a r i a b l e G e t ( O B J P R E F I X + _ S y m b + " - L o t s i z e " ) , 2 ) , " T a h o m a " , 1 0 , A L I G N _ C E N T E R , f a l s e , C O R N E R _ L E F T _ U P P E R , C ' 5 9 , 4 1 , 4 0 ' , c l r W h i t e , c l r W h i t e , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " L O T S I Z E < " + " - " + _ S y m b , 0 , _ x 1 + D p i ( 5 5 5 ) , Y , C O R N E R _ L E F T _ U P P E R , " 6 " , " W e b d i n g s " , 8 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " , f a l s e ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " L O T S I Z E > " + " - " + _ S y m b , 0 , _ x 1 + D p i ( 6 1 0 ) , Y , C O R N E R _ L E F T _ U P P E R , " 5 " , " W e b d i n g s " , 8 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " , f a l s e ) ;
/ / - - -
E d i t C r e a t e ( 0 , O B J P R E F I X + " _ T P < > " + " - " + _ S y m b , 0 , _ x 1 + D p i ( 6 2 5 ) , Y - D p i ( 5 ) , D p i ( 5 0 ) , D p i ( 1 5 ) , D o u b l e T o S t r i n g ( G l o b a l V a r i a b l e G e t ( O B J P R E F I X + _ S y m b + " - T a k e p r o f i t " ) , 0 ) , " T a h o m a " , 1 0 , A L I G N _ R I G H T , f a l s e , C O R N E R _ L E F T _ U P P E R , C ' 5 9 , 4 1 , 4 0 ' , c l r W h i t e , c l r W h i t e , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " T P ª " + " - " + _ S y m b , 0 , _ x 1 + D p i ( 6 3 3 ) , Y + D p i ( 2 ) , C O R N E R _ L E F T _ U P P E R , " t p " , s F o n t T y p e , 1 0 , c l r D a r k G r a y , 0 , A N C H O R _ C E N T E R , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " B U Y " + " - " + _ S y m b , 0 , _ x 1 + D p i ( 6 8 5 ) , Y - D p i ( 5 ) , D p i ( 3 0 ) , D p i ( 1 5 ) , C O R N E R _ L E F T _ U P P E R , " B u y " , " T r e b u c h e t M S " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , C ' 1 6 0 , 1 9 2 , 2 5 5 ' , C ' 1 4 4 , 1 7 6 , 2 3 9 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " B u y " + _ S y m b ) ;
/ / - - -
B u t t o n C r e a t e ( 0 , O B J P R E F I X + " C L O S E " + " - " + _ S y m b , 0 , _ x 1 + D p i ( 7 4 0 ) , Y - D p i ( 5 ) , D p i ( 4 0 ) , D p i ( 1 5 ) , C O R N E R _ L E F T _ U P P E R , " C l o s e " , " T r e b u c h e t M S " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , C ' 2 5 5 , 2 5 5 , 1 6 0 ' , C ' 2 3 9 , 2 3 9 , 1 4 4 ' , f a l s e , f a l s e , f a l s e , t r u e , 1 , " C l o s e " + _ S y m b ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " P R I C E R O W _ R " + " - " + _ S y m b , 0 , _ x 1 + D p i ( 8 5 5 ) , Y , C O R N E R _ L E F T _ U P P E R , D o u b l e T o S t r i n g ( 0 , d i g i t s ) , s F o n t T y p e , F O N T S I Z E , s t a r t c o l o r , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , P r i c e R o w R i g h t A r r [ P r i c e R o w R i g h t ] + " " + _ S y m b ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " S P R E A D " + " - " + _ S y m b , 0 , _ x 1 + D p i ( 9 0 5 ) , Y , C O R N E R _ L E F T _ U P P E R , " 0 p " , s F o n t T y p e , F O N T S I Z E , s t a r t c o l o r , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " S p r e a d " + _ S y m b ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " O P E N L O T S " + " - " + _ S y m b , 0 , _ x 1 + D p i ( 9 7 0 ) , Y , C O R N E R _ L E F T _ U P P E R , " 0 . 0 0 " , s F o n t T y p e , F O N T S I Z E , s t a r t c o l o r , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " P O I N T S " + " - " + _ S y m b , 0 , _ x 1 + D p i ( C L I E N T _ B G _ W I D T H ) - D p i ( 1 5 5 ) , Y , C O R N E R _ L E F T _ U P P E R , " 0 p " , s F o n t T y p e , F O N T S I Z E , s t a r t c o l o r , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " P R O F I T S " + " - " + _ S y m b , 0 , _ x 1 + D p i ( C L I E N T _ B G _ W I D T H ) - D p i ( 7 3 ) , Y , C O R N E R _ L E F T _ U P P E R , " 0 . 0 0 " + _ A c c o u n t C u r r e n c y ( ) , s F o n t T y p e , F O N T S I Z E , s t a r t c o l o r , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " R E T U R N " + " - " + _ S y m b , 0 , _ x 1 + D p i ( C L I E N T _ B G _ W I D T H ) - D p i ( 1 0 ) , Y , C O R N E R _ L E F T _ U P P E R , " 0 . 0 0 % " , s F o n t T y p e , F O N T S I Z E , s t a r t c o l o r , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - - K e y b o a r d T r a d i n g
i f ( S h o w T r a d e P a n e l )
{
/ / - - -
i f ( K e y b o a r d T r a d i n g )
{
/ / - - -
i f ( _ S y m b = = _ S y m b o l )
{
/ / - - -
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " M A R K E R " ) ! = 0 )
L a b e l C r e a t e ( 0 , O B J P R E F I X + " M A R K E R " , 0 , _ x 1 + D p i ( 1 0 ) , Y + D p i ( 5 ) , C O R N E R _ L E F T _ U P P E R , " _ _ _ _ _ _ _ " , s F o n t T y p e , F O N T S I Z E , C O L O R _ M A R K E R , 0 , A N C H O R _ L E F T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
e l s e
{
/ / - - -
i f ( O b j e c t G e t I n t e g e r ( 0 , O B J P R E F I X + " M A R K E R " , O B J P R O P _ Y D I S T A N C E , 0 ) ! = Y + D p i ( 5 ) )
O b j e c t D e l e t e ( 0 , O B J P R E F I X + " M A R K E R " ) ;
}
}
}
e l s e
{
/ / - - -
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " M A R K E R " ) = = 0 )
O b j e c t D e l e t e ( 0 , O B J P R E F I X + " M A R K E R " ) ;
}
}
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C r e a t e P r o B a r |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d C r e a t e P r o B a r ( s t r i n g _ S y m b , i n t x , i n t y )
{
/ / - - -
i n t f r _ y _ p b = y ;
/ / - - -
f o r ( i n t i = 1 ; i < 1 1 ; i + + )
{
L a b e l C r e a t e ( 0 , O B J P R E F I X + " P B # " + I n t e g e r T o S t r i n g ( i ) + " - " + _ S y m b , 0 , x , f r _ y _ p b , C O R N E R _ L E F T _ U P P E R , " 0 " , " W e b d i n g s " , 2 5 , c l r N O N E , 0 , A N C H O R _ R I G H T , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
f r _ y _ p b - = D p i ( 5 ) ;
}
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | U p d a t e P r o B a r |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d U p d a t e P r o B a r ( s t r i n g _ S y m b , d o u b l e P e r c e n t )
{
/ / - - -
f o r ( i n t i = 1 ; i < 1 1 ; i + + )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P B # " + I n t e g e r T o S t r i n g ( i ) + " - " + _ S y m b , O B J P R O P _ C O L O R , S e l e c t e d T h e m e = = 0 ? c l r G a i n s b o r o : C ' 8 0 , 8 0 , 8 0 ' ) ;
/ / - - -
i f ( P e r c e n t > = 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P B # " + " 1 " + " - " + _ S y m b , O B J P R O P _ C O L O R , C ' 2 5 5 , 0 , 0 ' ) ;
/ / - - -
i f ( P e r c e n t > 1 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P B # " + " 2 " + " - " + _ S y m b , O B J P R O P _ C O L O R , C ' 2 5 5 , 6 9 , 0 ' ) ;
/ / - - -
i f ( P e r c e n t > 2 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P B # " + " 3 " + " - " + _ S y m b , O B J P R O P _ C O L O R , C ' 2 5 5 , 1 5 0 , 0 ' ) ;
/ / - - -
i f ( P e r c e n t > 3 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P B # " + " 4 " + " - " + _ S y m b , O B J P R O P _ C O L O R , C ' 2 5 5 , 1 6 5 , 0 ' ) ;
/ / - - -
i f ( P e r c e n t > 4 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P B # " + " 5 " + " - " + _ S y m b , O B J P R O P _ C O L O R , C ' 2 5 5 , 2 1 5 , 0 ' ) ;
/ / - - -
i f ( P e r c e n t > 5 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P B # " + " 6 " + " - " + _ S y m b , O B J P R O P _ C O L O R , C ' 2 5 5 , 2 5 5 , 0 ' ) ;
/ / - - -
i f ( P e r c e n t > 6 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P B # " + " 7 " + " - " + _ S y m b , O B J P R O P _ C O L O R , C ' 1 7 3 , 2 5 5 , 4 7 ' ) ;
/ / - - -
i f ( P e r c e n t > 7 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P B # " + " 8 " + " - " + _ S y m b , O B J P R O P _ C O L O R , C ' 1 2 4 , 2 5 2 , 0 ' ) ;
/ / - - -
i f ( P e r c e n t > 8 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P B # " + " 9 " + " - " + _ S y m b , O B J P R O P _ C O L O R , C ' 0 , 2 5 5 , 0 ' ) ;
/ / - - -
i f ( P e r c e n t > 9 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P B # " + " 1 0 " + " - " + _ S y m b , O B J P R O P _ C O L O R , C ' 0 , 2 5 5 , 0 ' ) ;
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C r e a t e M i n W i n d o w |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d C r e a t e M i n W i n d o w ( )
{
/ / - - -
R e c t L a b e l C r e a t e ( 0 , O B J P R E F I X + " M I N " + " B C K G R N D [ ] " , 0 , D p i ( 1 ) , D p i ( 2 0 ) , D p i ( 1 6 3 ) , D p i ( 2 5 ) , C O L O R _ B O R D E R , B O R D E R _ F L A T , C O R N E R _ L E F T _ L O W E R , C O L O R _ B O R D E R , S T Y L E _ S O L I D , 1 , f a l s e , f a l s e , t r u e , 0 , " \ n " ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " M I N " + " C A P T I O N " , 0 , D p i ( 1 4 0 ) - D p i ( 6 4 ) , D p i ( 1 8 ) , C O R N E R _ L E F T _ L O W E R , " M u l t i T r a d e r " , " A r i a l B l a c k " , 8 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 0 , " \ n " , f a l s e ) ;
/ / - - -
L a b e l C r e a t e ( 0 , O B J P R E F I X + " M I N " + " M A X I M I Z E " , 0 , D p i ( 1 5 6 ) , D p i ( 2 3 ) , C O R N E R _ L E F T _ L O W E R , " 1 " , " W e b d i n g s " , 1 0 , C ' 5 9 , 4 1 , 4 0 ' , 0 , A N C H O R _ U P P E R , f a l s e , f a l s e , t r u e , 0 , " \ n " , f a l s e ) ;
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | D e l t e M i n W i n d o w |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d D e l t e M i n W i n d o w ( )
{
/ / - - -
O b j e c t D e l e t e ( 0 , O B J P R E F I X + " M I N " + " B C K G R N D [ ] " ) ;
O b j e c t D e l e t e ( 0 , O B J P R E F I X + " M I N " + " C A P T I O N " ) ;
O b j e c t D e l e t e ( 0 , O B J P R E F I X + " M I N " + " M A X I M I Z E " ) ;
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | T r a d e N u m |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t T r a d e N u m ( i n t T y p e )
{
/ / - - -
i n t c o u n t = 0 ;
/ / - - -
d a t e t i m e s t a r t t i m e = 0 ;
/ / - - -
i f ( T y p e = = 1 )
s t a r t t i m e = i T i m e ( _ S y m b o l , P E R I O D _ D 1 , 0 ) ;
/ / - - -
i f ( T y p e = = 2 )
s t a r t t i m e = i T i m e ( _ S y m b o l , P E R I O D _ W 1 , 0 ) ;
/ / - - -
i f ( T y p e = = 3 )
s t a r t t i m e = i T i m e ( _ S y m b o l , P E R I O D _ M N 1 , 0 ) ;
/ / - - -
f o r ( i n t i = 0 ; i < O r d e r s H i s t o r y T o t a l ( ) ; i + + )
{
/ / - - -
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ H I S T O R Y ) )
{
/ / - - -
i f ( O r d e r M a g i c N u m b e r ( ) = = M a g i c N u m b e r )
{
/ / - - -
i f ( O r d e r T y p e ( ) < = 1 )
{
/ / - - -
i f ( O r d e r C l o s e T i m e ( ) > = s t a r t t i m e )
c o u n t + + ;
}
}
}
}
/ / - - -
r e t u r n ( c o u n t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | U p d a t e S y m b o l G U I |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O b j e c t s U p d a t e A l l ( s t r i n g _ S y m b )
{
/ / - - - M a r k e t i n f o
d o u b l e b i d = M a r k e t I n f o ( _ S y m b , M O D E _ B I D ) , a s k = M a r k e t I n f o ( _ S y m b , M O D E _ A S K ) , a v g = ( a s k + b i d ) / 2 ;
/ / - - -
d o u b l e T F H i g h = i H i g h ( _ S y m b , C a l c T F , 0 ) , T F L o w = i L o w ( _ S y m b , C a l c T F , 0 ) , T F O p e n = i O p e n ( _ S y m b , C a l c T F , 0 ) ;
/ / - - -
d o u b l e T F L a s t H i g h = i H i g h ( _ S y m b , C a l c T F , 1 ) , T F L a s t L o w = i L o w ( _ S y m b , C a l c T F , 1 ) , T F L a s t C l o s e = i C l o s e ( _ S y m b , C a l c T F , 1 ) ;
/ / - - -
l o n g S p r e a d = S y m b o l I n f o I n t e g e r ( _ S y m b , S Y M B O L _ S P R E A D ) ;
i n t d i g i t s = ( i n t ) M a r k e t I n f o ( _ S y m b , M O D E _ D I G I T S ) ;
/ / - - - O p e n P o s S e l l
i f ( O p e n P o s ( _ S y m b , O P _ S E L L ) > 0 )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " O P E N S E L L " + " - " + _ S y m b , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( O p e n P o s ( _ S y m b , O P _ S E L L ) , 0 ) ) ;
e l s e
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " O P E N S E L L " + " - " + _ S y m b , O B J P R O P _ T E X T , " \ n " ) ;
/ / - - - O p e n P o s B u y
i f ( O p e n P o s ( _ S y m b , O P _ B U Y ) > 0 )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " O P E N B U Y " + " - " + _ S y m b , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( O p e n P o s ( _ S y m b , O P _ B U Y ) , 0 ) ) ;
e l s e
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " O P E N B U Y " + " - " + _ S y m b , O B J P R O P _ T E X T , " \ n " ) ;
/ / - - - R a n g e
d o u b l e p t s = M a r k e t I n f o ( _ S y m b , M O D E _ P O I N T ) ;
/ / - - -
d o u b l e r a n g e = 0 ;
/ / - - -
i f ( p t s ! = 0 )
r a n g e = ( T F H i g h - T F L o w ) / p t s ;
/ / - - - S e t R a n g e
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " R A N G E ± " + " - " + _ S y m b , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( r a n g e , 0 ) + " p " ) ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " R A N G E ± " + " - " + _ S y m b , O B J P R O P _ T O O L T I P , " R a n g e " + _ S y m b + " \ n " + " A v e r a g e : " + D o u b l e T o S t r i n g ( A D R ( _ S y m b ) , 0 ) + " p " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R A N G E ± " + " - " + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - - - P r i c e R o w s ( L / R )
d o u b l e p p = ( T F L a s t H i g h + T F L a s t L o w + T F L a s t C l o s e ) / 3 ;
/ / - - -
i f ( P r i c e R o w L e f t = = 0 ) / / B i d
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P R I C E R O W _ L " + " - " + _ S y m b , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( b i d , d i g i t s ) ) ;
/ / - - -
i f ( P r i c e R o w L e f t = = 1 ) / / L o w
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P R I C E R O W _ L " + " - " + _ S y m b , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( T F L o w , d i g i t s ) ) ;
/ / - - -
i f ( P r i c e R o w L e f t = = 2 ) / / O p e n
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P R I C E R O W _ L " + " - " + _ S y m b , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( T F O p e n , d i g i t s ) ) ;
/ / - - -
i f ( P r i c e R o w L e f t = = 3 ) / / P i v o t
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P R I C E R O W _ L " + " - " + _ S y m b , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( p p , d i g i t s ) ) ;
/ / - - -
i f ( P r i c e R o w R i g h t = = 0 ) / / A s k
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P R I C E R O W _ R " + " - " + _ S y m b , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( a s k , d i g i t s ) ) ;
/ / - - -
i f ( P r i c e R o w R i g h t = = 1 ) / / H i g h
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P R I C E R O W _ R " + " - " + _ S y m b , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( T F H i g h , d i g i t s ) ) ;
/ / - - -
i f ( P r i c e R o w R i g h t = = 2 ) / / O p e n
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P R I C E R O W _ R " + " - " + _ S y m b , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( T F O p e n , d i g i t s ) ) ;
/ / - - -
i f ( P r i c e R o w R i g h t = = 3 ) / / P i v o t
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P R I C E R O W _ R " + " - " + _ S y m b , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( p p , d i g i t s ) ) ;
/ / - - - S e t C o l o r
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P R I C E R O W _ R " + " - " + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P R I C E R O W _ L " + " - " + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - - -
i f ( P r i c e R o w L e f t < = 1 )
{
/ / - - -
i f ( ( b i d - T F L o w ) = = 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P R I C E R O W _ L " + " - " + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ R E D ) ;
}
/ / - - -
i f ( P r i c e R o w L e f t = = 3 )
{
/ / - - -
i f ( a v g > p p )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P R I C E R O W _ L " + " - " + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ B U Y ) ;
/ / - - -
i f ( a v g < p p )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P R I C E R O W _ L " + " - " + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ S E L L ) ;
}
/ / - - -
i f ( P r i c e R o w R i g h t < = 1 )
{
/ / - - -
i f ( ( a s k - T F H i g h ) = = 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P R I C E R O W _ R " + " - " + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ G R E E N ) ;
}
/ / - - -
i f ( P r i c e R o w R i g h t = = 3 )
{
/ / - - -
i f ( a v g > p p )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P R I C E R O W _ R " + " - " + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ B U Y ) ;
/ / - - -
i f ( a v g < p p )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P R I C E R O W _ R " + " - " + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ S E L L ) ;
}
/ / - - - S p r e a d
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S P R E A D " + " - " + _ S y m b , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( M a r k e t I n f o ( _ S y m b , M O D E _ S P R E A D ) , 0 ) + " p " ) ;
/ / - - -
i f ( S p r e a d > = 1 0 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P R E A D " + " - " + _ S y m b , O B J P R O P _ C O L O R , c l r O r a n g e R e d ) ;
e l s e
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P R E A D " + " - " + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - - - O p e n L o t s
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " O P E N L O T S " + " - " + _ S y m b , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( O p e n L o t s ( _ S y m b , O P _ A L L ) , 2 ) ) ;
/ / - - -
i f ( O p e n L o t s ( _ S y m b , O P _ B U Y ) > 0 & & O p e n L o t s ( _ S y m b , O P _ S E L L ) = = 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " O P E N L O T S " + " - " + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ B U Y ) ;
/ / - - -
i f ( O p e n L o t s ( _ S y m b , O P _ S E L L ) > 0 & & O p e n L o t s ( _ S y m b , O P _ B U Y ) = = 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " O P E N L O T S " + " - " + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ S E L L ) ;
/ / - - -
c o l o r C O L O R _ H E D G E = ( S e l e c t e d T h e m e = = 0 ) ? c l r D a r k O r a n g e : c l r G o l d ;
/ / - - -
i f ( O p e n L o t s ( _ S y m b , O P _ S E L L ) > 0 & & O p e n L o t s ( _ S y m b , O P _ B U Y ) > 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " O P E N L O T S " + " - " + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ H E D G E ) ;
/ / - - -
i f ( O p e n L o t s ( _ S y m b , O P _ A L L ) = = 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " O P E N L O T S " + " - " + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - - - G e t C u r r e n c i e s
d o u b l e A U D = A U D ( ) , C A D = C A D ( ) , C H F = C H F ( ) , E U R = E U R ( ) , G B P = G B P ( ) , J P Y = J P Y ( ) , N Z D = N Z D ( ) , U S D = U S D ( ) ;
/ / - - -
d o u b l e s y m b o l _ r = S y m b P e r c ( _ S y m b ) ;
/ / - - - P e r c e n t
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " R A N G E % " + " - " + _ S y m b , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( S y m b P e r c ( _ S y m b ) , 0 ) + " % " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R A N G E % " + " - " + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - - -
i f ( s y m b o l _ r > = B u y L e v e l )
{
/ / - - -
i f (
( S t r i n g F i n d ( _ S y m b , " A U D " , 0 ) ! = - 1 & & ( A U D > = B u y L e v e l | | A U D < = S e l l L e v e l ) )
| |
( S t r i n g F i n d ( _ S y m b , " C A D " , 0 ) ! = - 1 & & ( C A D > = B u y L e v e l | | C A D < = S e l l L e v e l ) )
| |
( S t r i n g F i n d ( _ S y m b , " C H F " , 0 ) ! = - 1 & & ( C H F > = B u y L e v e l | | C H F < = S e l l L e v e l ) )
| |
( S t r i n g F i n d ( _ S y m b , " E U R " , 0 ) ! = - 1 & & ( E U R > = B u y L e v e l | | E U R < = S e l l L e v e l ) )
| |
( S t r i n g F i n d ( _ S y m b , " G B P " , 0 ) ! = - 1 & & ( G B P > = B u y L e v e l | | G B P < = S e l l L e v e l ) )
| |
( S t r i n g F i n d ( _ S y m b , " J P Y " , 0 ) ! = - 1 & & ( J P Y > = B u y L e v e l | | J P Y < = S e l l L e v e l ) )
| |
( S t r i n g F i n d ( _ S y m b , " N Z D " , 0 ) ! = - 1 & & ( N Z D > = B u y L e v e l | | N Z D < = S e l l L e v e l ) )
| |
( S t r i n g F i n d ( _ S y m b , " U S D " , 0 ) ! = - 1 & & ( U S D > = B u y L e v e l | | U S D < = S e l l L e v e l ) )
)
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ G R E E N ) ;
/ / - - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R A N G E % " + " - " + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ G R E E N ) ;
}
/ / - - -
i f ( s y m b o l _ r < = S e l l L e v e l )
{
/ / - - -
i f (
( S t r i n g F i n d ( _ S y m b , " A U D " , 0 ) ! = - 1 & & ( A U D > = B u y L e v e l | | A U D < = S e l l L e v e l ) )
| |
( S t r i n g F i n d ( _ S y m b , " C A D " , 0 ) ! = - 1 & & ( C A D > = B u y L e v e l | | C A D < = S e l l L e v e l ) )
| |
( S t r i n g F i n d ( _ S y m b , " C H F " , 0 ) ! = - 1 & & ( C H F > = B u y L e v e l | | C H F < = S e l l L e v e l ) )
| |
( S t r i n g F i n d ( _ S y m b , " E U R " , 0 ) ! = - 1 & & ( E U R > = B u y L e v e l | | E U R < = S e l l L e v e l ) )
| |
( S t r i n g F i n d ( _ S y m b , " G B P " , 0 ) ! = - 1 & & ( G B P > = B u y L e v e l | | G B P < = S e l l L e v e l ) )
| |
( S t r i n g F i n d ( _ S y m b , " J P Y " , 0 ) ! = - 1 & & ( J P Y > = B u y L e v e l | | J P Y < = S e l l L e v e l ) )
| |
( S t r i n g F i n d ( _ S y m b , " N Z D " , 0 ) ! = - 1 & & ( N Z D > = B u y L e v e l | | N Z D < = S e l l L e v e l ) )
| |
( S t r i n g F i n d ( _ S y m b , " U S D " , 0 ) ! = - 1 & & ( U S D > = B u y L e v e l | | U S D < = S e l l L e v e l ) )
)
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ R E D ) ;
/ / - - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R A N G E % " + " - " + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ R E D ) ;
}
/ / - - - A v o i d Z e r o D i v i d e
d o u b l e c u r r e n t c l o s e = i C l o s e ( _ S y m b , C a l c T F , 0 ) ;
d o u b l e p r e v i o u s c l o s e = i C l o s e ( _ S y m b , C a l c T F , 1 ) ;
/ / - - -
i f ( p r e v i o u s c l o s e ! = 0 )
{
/ / - - -
/ / d o u b l e s y m b o l _ p = N o r m a l i z e D o u b l e ( ( d a y c l o s e - d a y o p e n ) / d a y c l o s e * 1 0 0 , 2 ) ; / / O l d C a l c u l a t i o n
d o u b l e s y m b o l _ p = N o r m a l i z e D o u b l e ( ( c u r r e n t c l o s e - p r e v i o u s c l o s e ) / p r e v i o u s c l o s e * 1 0 0 , 2 ) ;
/ / - - -
i f ( s y m b o l _ p > 0 )
{
/ / - - - S e t O b j e c t s
i f ( s y m b o l _ r > = 7 5 )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S Y M B O L § " + " - " + _ S y m b , O B J P R O P _ T E X T , 0 , " á " ) ;
i f ( s y m b o l _ r < 7 5 )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S Y M B O L § " + " - " + _ S y m b , O B J P R O P _ T E X T , 0 , " ä " ) ;
/ / - - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S Y M B O L % " + " - " + _ S y m b , O B J P R O P _ C O L O R , ± C l r ( s y m b o l _ p ) ) ;
/ / - - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S Y M B O L % " + " - " + _ S y m b , O B J P R O P _ T E X T , 0 , ± S t r ( s y m b o l _ p , 2 ) + " % " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S Y M B O L § " + " - " + _ S y m b , O B J P R O P _ C O L O R , ± C l r ( s y m b o l _ p ) ) ;
/ / - - - R a n g e P
i f ( r a n g e > A D R ( _ S y m b ) )
{
/ / - - -
i f ( s y m b o l _ r > = B u y L e v e l )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R A N G E ± " + " - " + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ G R E E N ) ;
}
}
/ / - - -
i f ( s y m b o l _ p < 0 )
{
/ / - - -
i f ( s y m b o l _ r < = 2 5 )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S Y M B O L § " + " - " + _ S y m b , O B J P R O P _ T E X T , 0 , " â " ) ;
i f ( s y m b o l _ r > 2 5 )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S Y M B O L § " + " - " + _ S y m b , O B J P R O P _ T E X T , 0 , " æ " ) ;
/ / - - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S Y M B O L % " + " - " + _ S y m b , O B J P R O P _ C O L O R , ± C l r ( s y m b o l _ p ) ) ;
/ / - - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S Y M B O L % " + " - " + _ S y m b , O B J P R O P _ T E X T , 0 , ± S t r ( s y m b o l _ p , 2 ) + " % " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S Y M B O L § " + " - " + _ S y m b , O B J P R O P _ C O L O R , ± C l r ( s y m b o l _ p ) ) ;
/ / - - - R a n g e P
i f ( r a n g e > A D R ( _ S y m b ) )
{
/ / - - -
i f ( s y m b o l _ r < = S e l l L e v e l )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R A N G E ± " + " - " + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ R E D ) ;
}
}
/ / - - -
i f ( s y m b o l _ p = = 0 )
{
/ / - - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S Y M B O L § " + " - " + _ S y m b , O B J P R O P _ T E X T , 0 , " à " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S Y M B O L % " + " - " + _ S y m b , O B J P R O P _ C O L O R , ± C l r ( s y m b o l _ p ) ) ;
/ / - - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S Y M B O L % " + " - " + _ S y m b , O B J P R O P _ T E X T , 0 , ± S t r ( s y m b o l _ p , 2 ) + " % " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S Y M B O L § " + " - " + _ S y m b , O B J P R O P _ C O L O R , ± C l r ( s y m b o l _ p ) ) ;
}
}
/ / - - - F l o a t i n g
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P O I N T S " + " - " + _ S y m b , O B J P R O P _ T E X T , ± S t r ( F l o a t i n g P o i n t s ( _ S y m b ) , 0 ) + " p " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P O I N T S " + " - " + _ S y m b , O B J P R O P _ C O L O R , ± C l r ( F l o a t i n g P o i n t s ( _ S y m b ) ) ) ;
/ / - - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " P R O F I T S " + " - " + _ S y m b , O B J P R O P _ T E X T , ± S t r ( F l o a t i n g P r o f i t s ( _ S y m b ) , 2 ) + _ A c c o u n t C u r r e n c y ( ) ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " P R O F I T S " + " - " + _ S y m b , O B J P R O P _ C O L O R , ± C l r ( F l o a t i n g P r o f i t s ( _ S y m b ) ) ) ;
/ / - - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " R E T U R N " + " - " + _ S y m b , O B J P R O P _ T E X T , ± S t r ( F l o a t i n g R e t u r n ( _ S y m b ) , 2 ) + " % " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " R E T U R N " + " - " + _ S y m b , O B J P R O P _ C O L O R , ± C l r ( F l o a t i n g R e t u r n ( _ S y m b ) ) ) ;
/ / - - - A u t o S L & T P & L o t s
S t o p L o s s D i s t = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " S L < > " + " - " + _ S y m b , O B J P R O P _ T E X T , 0 ) ) ;
R i s k I n p = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " R I S K % < > " , O B J P R O P _ T E X T , 0 ) ) ;
R R = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " R R < > " , O B J P R O P _ T E X T , 0 ) ) ;
_ T P = S t o p L o s s D i s t * R R ;
/ / - - - S L
i f ( A u t o S L )
{
/ / - - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S L < > " + " - " + _ S y m b , O B J P R O P _ R E A D O N L Y , t r u e ) ;
i f ( ! U s e r I s E d i t i n g )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S L < > " + " - " + _ S y m b , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( A T R ( _ S y m b , A T R T F , A T R P e r i o d ) * A T R M u l t i , 0 ) ) ;
}
e l s e
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S L < > " + " - " + _ S y m b , O B J P R O P _ R E A D O N L Y , f a l s e ) ;
/ / - - - _ T P
i f ( A u t o T P )
{
/ / - - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " _ T P < > " + " - " + _ S y m b , O B J P R O P _ R E A D O N L Y , t r u e ) ;
/ / - - -
i f ( ! U s e r I s E d i t i n g )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " _ T P < > " + " - " + _ S y m b , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( _ T P , 0 ) ) ;
}
e l s e
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " _ T P < > " + " - " + _ S y m b , O B J P R O P _ R E A D O N L Y , f a l s e ) ;
/ / - - - L o t s
i f ( A u t o L o t s )
{
/ / - - -
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " L O T S I Z E < > " + " - " + _ S y m b , O B J P R O P _ R E A D O N L Y , t r u e ) ;
/ / - - -
i f ( ! U s e r I s E d i t i n g )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " + " - " + _ S y m b , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( _ L o t s ( _ S y m b , R i s k I n p , S t o p L o s s D i s t ) , 2 ) ) ;
}
e l s e
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " L O T S I Z E < > " + " - " + _ S y m b , O B J P R O P _ R E A D O N L Y , f a l s e ) ;
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | O v e r A l l I n f o |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O v e r A l l I n f o ( )
{
/ / - - - T o t a l P o s
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S E L L P O S « " , O B J P R O P _ C O L O R , 0 , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B U Y P O S « " , O B J P R O P _ C O L O R , 0 , C O L O R _ F O N T ) ;
/ / - - -
i n t o p e n p o s _ s e l l = 0 ;
/ / - - -
f o r ( i n t x = 0 ; x < A r r a y S i z e ( a S y m b o l s ) ; x + + )
o p e n p o s _ s e l l + = O p e n P o s ( a S y m b o l s [ x ] , O P _ S E L L ) ;
/ / - - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S E L L P O S « " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( o p e n p o s _ s e l l , 0 ) ) ;
/ / - - -
i f ( o p e n p o s _ s e l l > 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S E L L P O S « " , O B J P R O P _ C O L O R , 0 , C O L O R _ S E L L ) ;
/ / - - -
i n t o p e n p o s _ b u y = 0 ;
/ / - - -
f o r ( i n t x = 0 ; x < A r r a y S i z e ( a S y m b o l s ) ; x + + )
o p e n p o s _ b u y + = O p e n P o s ( a S y m b o l s [ x ] , O P _ B U Y ) ;
/ / - - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " B U Y P O S « " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( o p e n p o s _ b u y , 0 ) ) ;
/ / - - -
i f ( o p e n p o s _ b u y > 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " B U Y P O S « " , O B J P R O P _ C O L O R , 0 , C O L O R _ B U Y ) ;
/ / - - -
i n t o p e n p o s _ a l l = 0 ;
/ / - - -
f o r ( i n t x = 0 ; x < A r r a y S i z e ( a S y m b o l s ) ; x + + )
o p e n p o s _ a l l + = O p e n P o s ( a S y m b o l s [ x ] , O P _ A L L ) ;
/ / - - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " T O T A L P O S « " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( o p e n p o s _ a l l , 0 ) ) ;
/ / - - -
i f ( o p e n p o s _ b u y > 0 & & o p e n p o s _ s e l l = = 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " T O T A L P O S « " , O B J P R O P _ C O L O R , C O L O R _ B U Y ) ;
/ / - - -
i f ( o p e n p o s _ s e l l > 0 & & o p e n p o s _ b u y = = 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " T O T A L P O S « " , O B J P R O P _ C O L O R , C O L O R _ S E L L ) ;
/ / - - -
c o l o r C O L O R _ H E D G E = ( S e l e c t e d T h e m e = = 0 ) ? c l r D a r k O r a n g e : c l r G o l d ;
/ / - - -
i f ( o p e n p o s _ s e l l > 0 & & o p e n p o s _ b u y > 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " T O T A L P O S « " , O B J P R O P _ C O L O R , C O L O R _ H E D G E ) ;
/ / - - -
i f ( o p e n p o s _ a l l = = 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " T O T A L P O S « " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - - - T o t a l
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " T O T A L « " , O B J P R O P _ T E X T , ± S t r ( T o t a l F l o a t i n g P o i n t s ( ) , 0 ) + " p " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " T O T A L « " , O B J P R O P _ C O L O R , ± C l r ( T o t a l F l o a t i n g P o i n t s ( ) ) ) ;
/ / - - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " T O T A L « « " , O B J P R O P _ T E X T , ± S t r ( T o t a l F l o a t i n g P r o f i t s ( ) , 2 ) + _ A c c o u n t C u r r e n c y ( ) ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " T O T A L « « " , O B J P R O P _ C O L O R , ± C l r ( T o t a l F l o a t i n g P r o f i t s ( ) ) ) ;
/ / - - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " T O T A L « « « " , O B J P R O P _ T E X T , ± S t r ( T o t a l R e t u r n ( ) , 2 ) + " % " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " T O T A L « « « " , O B J P R O P _ C O L O R , ± C l r ( T o t a l R e t u r n ( ) ) ) ;
/ / - - - B a l a n c e
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " B A L A N C E « " , O B J P R O P _ T E X T , B a l a n c e ( ) ) ;
/ / - - - L e v e r a g e
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " L E V E R A G E " , O B J P R O P _ T E X T , L e v e r a g e ( ) > = " 1 " ? L e v e r a g e ( ) : " 1 " ) ;
/ / - - - T o t a l L o t s
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " T O T A L L O T S " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( O p e n L o t s ( I n t e g e r T o S t r i n g ( - 1 ) , O P _ A L L ) , 2 ) ) ;
/ / - - -
i f ( O p e n L o t s ( I n t e g e r T o S t r i n g ( - 1 ) , O P _ B U Y ) > 0 & & O p e n L o t s ( I n t e g e r T o S t r i n g ( - 1 ) , O P _ S E L L ) = = 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " T O T A L L O T S " , O B J P R O P _ C O L O R , C O L O R _ B U Y ) ;
/ / - - -
i f ( O p e n L o t s ( I n t e g e r T o S t r i n g ( - 1 ) , O P _ S E L L ) > 0 & & O p e n L o t s ( I n t e g e r T o S t r i n g ( - 1 ) , O P _ B U Y ) = = 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " T O T A L L O T S " , O B J P R O P _ C O L O R , C O L O R _ S E L L ) ;
/ / - - -
i f ( O p e n L o t s ( I n t e g e r T o S t r i n g ( - 1 ) , O P _ S E L L ) > 0 & & O p e n L o t s ( I n t e g e r T o S t r i n g ( - 1 ) , O P _ B U Y ) > 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " T O T A L L O T S " , O B J P R O P _ C O L O R , C O L O R _ H E D G E ) ;
/ / - - -
i f ( O p e n L o t s ( I n t e g e r T o S t r i n g ( - 1 ) , O P _ A L L ) = = 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " T O T A L L O T S " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
/ / - - - T i m e
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " T I M E " , O B J P R O P _ T E X T , 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 _ S E C O N D S ) ) ;
/ / - - -
s t r i n g T i m e C h a r = " " , T i m e S t r = 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 ) ;
/ / - - -
i f ( ( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 0 0 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 0 1 : 0 0 " ) , T I M E _ M I N U T E S ) )
| |
( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 1 2 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 1 3 : 0 0 " ) , T I M E _ M I N U T E S ) ) )
T i m e C h a r = " Â " ;
/ / - - -
i f ( ( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 0 1 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 0 2 : 0 0 " ) , T I M E _ M I N U T E S ) )
| |
( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 1 3 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 1 4 : 0 0 " ) , T I M E _ M I N U T E S ) ) )
T i m e C h a r = " · " ;
/ / - - -
i f ( ( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 0 2 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 0 3 : 0 0 " ) , T I M E _ M I N U T E S ) )
| |
( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 1 4 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 1 5 : 0 0 " ) , T I M E _ M I N U T E S ) ) )
T i m e C h a r = " ¸ " ;
/ / - - -
i f ( ( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 0 3 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 0 4 : 0 0 " ) , T I M E _ M I N U T E S ) )
| |
( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 1 5 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 1 6 : 0 0 " ) , T I M E _ M I N U T E S ) ) )
T i m e C h a r = " ¹ " ;
/ / - - -
i f ( ( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 0 4 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 0 5 : 0 0 " ) , T I M E _ M I N U T E S ) )
| |
( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 1 6 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 1 7 : 0 0 " ) , T I M E _ M I N U T E S ) ) )
T i m e C h a r = " º " ;
/ / - - -
i f ( ( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 0 5 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 0 6 : 0 0 " ) , T I M E _ M I N U T E S ) )
| |
( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 1 7 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 1 8 : 0 0 " ) , T I M E _ M I N U T E S ) ) )
T i m e C h a r = " » " ;
/ / - - -
i f ( ( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 0 6 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 0 7 : 0 0 " ) , T I M E _ M I N U T E S ) )
| |
( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 1 8 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 1 9 : 0 0 " ) , T I M E _ M I N U T E S ) ) )
T i m e C h a r = " ¼ " ;
/ / - - -
i f ( ( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 0 7 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 0 8 : 0 0 " ) , T I M E _ M I N U T E S ) )
| |
( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 1 9 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 2 0 : 0 0 " ) , T I M E _ M I N U T E S ) ) )
T i m e C h a r = " ½ " ;
/ / - - -
i f ( ( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 0 8 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 0 9 : 0 0 " ) , T I M E _ M I N U T E S ) )
| |
( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 2 0 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 2 1 : 0 0 " ) , T I M E _ M I N U T E S ) ) )
T i m e C h a r = " ¾ " ;
/ / - - -
i f ( ( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 0 9 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 1 0 : 0 0 " ) , T I M E _ M I N U T E S ) )
| |
( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 2 1 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 2 2 : 0 0 " ) , T I M E _ M I N U T E S ) ) )
T i m e C h a r = " ¿ " ;
/ / - - -
i f ( ( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 1 0 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 1 1 : 0 0 " ) , T I M E _ M I N U T E S ) )
| |
( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 2 2 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 2 3 : 0 0 " ) , T I M E _ M I N U T E S ) ) )
T i m e C h a r = " À " ;
/ / - - -
i f ( ( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 1 1 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < T i m e T o S t r i n g ( S t r T o T i m e ( " 1 2 : 0 0 " ) , T I M E _ M I N U T E S ) )
| |
( T i m e S t r > = T i m e T o S t r i n g ( S t r T o T i m e ( " 2 3 : 0 0 " ) , T I M E _ M I N U T E S ) & & T i m e S t r < = T i m e T o S t r i n g ( S t r T o T i m e ( " 2 3 : 5 9 " ) , T I M E _ M I N U T E S ) ) )
T i m e C h a r = " Á " ;
/ / - - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " T I M E § " , O B J P R O P _ T E X T , T i m e C h a r ) ;
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C S t r e n g h t s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d C S t r e n g h t s ( )
{
/ / - - - G e t C u r r e n c i e s
d o u b l e A U D = A U D ( ) , C A D = C A D ( ) , C H F = C H F ( ) , E U R = E U R ( ) , G B P = G B P ( ) , J P Y = J P Y ( ) , N Z D = N Z D ( ) , U S D = U S D ( ) ;
/ / - - - A U D
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " A U D % " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( A U D , 0 ) + " % " ) ;
U p d a t e P e r c e n t ( " A U D " , A U D ) ;
U p d a t e P r o B a r ( " A U D " , A U D ) ;
/ / - - - C A D
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " C A D % " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( C A D , 0 ) + " % " ) ;
U p d a t e P e r c e n t ( " C A D " , C A D ) ;
U p d a t e P r o B a r ( " C A D " , C A D ) ;
/ / - - - C H F
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " C H F % " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( C H F , 0 ) + " % " ) ;
U p d a t e P e r c e n t ( " C H F " , C H F ) ;
U p d a t e P r o B a r ( " C H F " , C H F ) ;
/ / - - - E U R
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " E U R % " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( E U R , 0 ) + " % " ) ;
U p d a t e P e r c e n t ( " E U R " , E U R ) ;
U p d a t e P r o B a r ( " E U R " , E U R ) ;
/ / - - - G B P
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " G B P % " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( G B P , 0 ) + " % " ) ;
U p d a t e P e r c e n t ( " G B P " , G B P ) ;
U p d a t e P r o B a r ( " G B P " , G B P ) ;
/ / - - - J P Y
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " J P Y % " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( J P Y , 0 ) + " % " ) ;
U p d a t e P e r c e n t ( " J P Y " , J P Y ) ;
U p d a t e P r o B a r ( " J P Y " , J P Y ) ;
/ / - - - N Z D
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " N Z D % " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( N Z D ( ) , 0 ) + " % " ) ;
U p d a t e P e r c e n t ( " N Z D " , N Z D ) ;
U p d a t e P r o B a r ( " N Z D " , N Z D ) ;
/ / - - - U S D
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " U S D % " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( U S D , 0 ) + " % " ) ;
U p d a t e P e r c e n t ( " U S D " , U S D ) ;
U p d a t e P r o B a r ( " U S D " , U S D ) ;
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | A l e r t |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d A l e r t ( )
{
/ / - - - G e t C u r r e n c i e s
d o u b l e A U D = A U D ( ) , C A D = C A D ( ) , C H F = C H F ( ) , E U R = E U R ( ) , G B P = G B P ( ) , J P Y = J P Y ( ) , N Z D = N Z D ( ) , U S D = U S D ( ) ;
/ / - - -
S u g g e s t e d P a i r = " " ;
/ / - - -
d o u b l e C o m p a r e A r r [ 8 ] ;
/ / - - -
C o m p a r e A r r [ 0 ] = A U D ;
C o m p a r e A r r [ 1 ] = C A D ;
C o m p a r e A r r [ 2 ] = C H F ;
C o m p a r e A r r [ 3 ] = E U R ;
C o m p a r e A r r [ 4 ] = G B P ;
C o m p a r e A r r [ 5 ] = J P Y ;
C o m p a r e A r r [ 6 ] = N Z D ;
C o m p a r e A r r [ 7 ] = U S D ;
/ / - - - G e t M a x
d o u b l e M a x V a l u e = A r r a y M a x i m u m ( C o m p a r e A r r ) ;
/ / - - -
s t r i n g M a x = " \ n " ;
/ / - - -
i f ( M a x V a l u e = = 0 )
M a x = " A U D " ;
/ / - - -
i f ( M a x V a l u e = = 1 )
M a x = " C A D " ;
/ / - - -
i f ( M a x V a l u e = = 2 )
M a x = " C H F " ;
/ / - - -
i f ( M a x V a l u e = = 3 )
M a x = " E U R " ;
/ / - - -
i f ( M a x V a l u e = = 4 )
M a x = " G B P " ;
/ / - - -
i f ( M a x V a l u e = = 5 )
M a x = " J P Y " ;
/ / - - -
i f ( M a x V a l u e = = 6 )
M a x = " N Z D " ;
/ / - - -
i f ( M a x V a l u e = = 7 )
M a x = " U S D " ;
/ / - - - G e t M i n
d o u b l e M i n V a l u e = A r r a y M i n i m u m ( C o m p a r e A r r ) ;
/ / - - -
s t r i n g M i n = " \ n " ;
/ / - - -
i f ( M i n V a l u e = = 0 )
M i n = " A U D " ;
/ / - - -
i f ( M i n V a l u e = = 1 )
M i n = " C A D " ;
/ / - - -
i f ( M i n V a l u e = = 2 )
M i n = " C H F " ;
/ / - - -
i f ( M i n V a l u e = = 3 )
M i n = " E U R " ;
/ / - - -
i f ( M i n V a l u e = = 4 )
M i n = " G B P " ;
/ / - - -
i f ( M i n V a l u e = = 5 )
M i n = " J P Y " ;
/ / - - -
i f ( M i n V a l u e = = 6 )
M i n = " N Z D " ;
/ / - - -
i f ( M i n V a l u e = = 7 )
M i n = " U S D " ;
/ / - - -
i f ( A l a r m I s E n a b l e d )
{
/ / - - - A U D
i f ( A U D > R e s e t A l e r t D w n & & A U D < R e s e t A l e r t U p )
{
/ / - - -
i f ( ! A U D A l a r m )
A U D A l a r m = t r u e ;
}
/ / - - -
i f ( A U D > = B u y L e v e l & & A U D A l a r m )
{
/ / - - - G e t P a i r
s t r i n g p a i r = " \ n " ;
/ / - - -
i f ( M i n = = " C A D " )
p a i r = " A U D C A D " ;
/ / - - -
i f ( M i n = = " C H F " )
p a i r = " A U D C H F " ;
/ / - - -
i f ( M i n = = " E U R " )
p a i r = " E U R A U D " ;
/ / - - -
i f ( M i n = = " G B P " )
p a i r = " G B P A U D " ;
/ / - - -
i f ( M i n = = " J P Y " )
p a i r = " A U D J P Y " ;
/ / - - -
i f ( M i n = = " N Z D " )
p a i r = " A U D N Z D " ;
/ / - - -
i f ( M i n = = " U S D " )
p a i r = " A U D U S D " ;
/ / - - -
s t r i n g m e s s a g e = " \ n " ;
/ / - - -
m e s s a g e = " A U D h a s r e a c h e d t h e h i g h l e v e l " ;
/ / - - -
i f ( p a i r ! = " N / A " & & p a i r ! = " \ n " & & P a i r S u g g e s t )
S t r i n g A d d ( m e s s a g e , " | S u g g e s t e d p a i r : " + p a i r ) ;
/ / - - -
S u g g e s t e d P a i r = p a i r ;
/ / - - -
i f ( A U D T r i g g e r | | ! S m a r t A l e r t )
{
/ / - - -
S e n d A l e r t s ( m e s s a g e ) ;
/ / - - -
A U D A l a r m = f a l s e ;
}
}
i f ( A U D < = S e l l L e v e l & & A U D A l a r m )
{
/ / - - - G e t P a i r
s t r i n g p a i r = " \ n " ;
/ / - - -
i f ( M a x = = " C A D " )
p a i r = " A U D C A D " ;
/ / - - -
i f ( M a x = = " C H F " )
p a i r = " A U D C H F " ;
/ / - - -
i f ( M a x = = " E U R " )
p a i r = " E U R A U D " ;
/ / - - -
i f ( M a x = = " G B P " )
p a i r = " G B P A U D " ;
/ / - - -
i f ( M a x = = " J P Y " )
p a i r = " A U D J P Y " ;
/ / - - -
i f ( M a x = = " N Z D " )
p a i r = " A U D N Z D " ;
/ / - - -
i f ( M a x = = " U S D " )
p a i r = " A U D U S D " ;
/ / - - -
s t r i n g m e s s a g e = " \ n " ;
/ / - - -
m e s s a g e = " A U D h a s r e a c h e d t h e l o w l e v e l " ;
/ / - - -
i f ( p a i r ! = " N / A " & & p a i r ! = " \ n " & & P a i r S u g g e s t )
S t r i n g A d d ( m e s s a g e , " | S u g g e s t e d p a i r : " + p a i r ) ;
/ / - - -
S u g g e s t e d P a i r = p a i r ;
/ / - - -
i f ( A U D T r i g g e r | | ! S m a r t A l e r t )
{
/ / - - -
S e n d A l e r t s ( m e s s a g e ) ;
/ / - - -
A U D A l a r m = f a l s e ;
}
}
/ / - - - C A D
i f ( C A D > R e s e t A l e r t D w n & & C A D < R e s e t A l e r t U p )
{
/ / - - -
i f ( ! C A D A l a r m )
C A D A l a r m = t r u e ;
}
/ / - - -
i f ( C A D > = B u y L e v e l & & C A D A l a r m )
{
/ / - - - G e t P a i r
s t r i n g p a i r = " \ n " ;
/ / - - -
i f ( M i n = = " A U D " )
p a i r = " A U D C A D " ;
/ / - - -
i f ( M i n = = " C H F " )
p a i r = " C A D C H F " ;
/ / - - -
i f ( M i n = = " E U R " )
p a i r = " E U R C A D " ;
/ / - - -
i f ( M i n = = " G B P " )
p a i r = " G B P C A D " ;
/ / - - -
i f ( M i n = = " J P Y " )
p a i r = " C A D J P Y " ;
/ / - - -
i f ( M i n = = " N Z D " )
p a i r = " N Z D C A D " ;
/ / - - -
i f ( M i n = = " U S D " )
p a i r = " U S D C A D " ;
/ / - - -
s t r i n g m e s s a g e = " \ n " ;
/ / - - -
m e s s a g e = " C A D h a s r e a c h e d t h e h i g h l e v e l " ;
/ / - - -
i f ( p a i r ! = " N / A " & & p a i r ! = " \ n " & & P a i r S u g g e s t )
S t r i n g A d d ( m e s s a g e , " | S u g g e s t e d p a i r : " + p a i r ) ;
/ / - - -
S u g g e s t e d P a i r = p a i r ;
/ / - - -
i f ( C A D T r i g g e r | | ! S m a r t A l e r t )
{
/ / - - -
S e n d A l e r t s ( m e s s a g e ) ;
/ / - - -
C A D A l a r m = f a l s e ;
}
}
i f ( C A D < = S e l l L e v e l & & C A D A l a r m )
{
/ / - - - G e t P a i r
s t r i n g p a i r = " \ n " ;
/ / - - -
i f ( M a x = = " A U D " )
p a i r = " A U D C A D " ;
/ / - - -
i f ( M a x = = " C H F " )
p a i r = " C A D C H F " ;
/ / - - -
i f ( M a x = = " E U R " )
p a i r = " E U R C A D " ;
/ / - - -
i f ( M a x = = " G B P " )
p a i r = " G B P C A D " ;
/ / - - -
i f ( M a x = = " J P Y " )
p a i r = " C A D J P Y " ;
/ / - - -
i f ( M a x = = " N Z D " )
p a i r = " N Z D C A D " ;
/ / - - -
i f ( M a x = = " U S D " )
p a i r = " U S D C A D " ;
/ / - - -
s t r i n g m e s s a g e = " \ n " ;
/ / - - -
m e s s a g e = " C A D h a s r e a c h e d t h e l o w l e v e l " ;
/ / - - -
i f ( p a i r ! = " N / A " & & p a i r ! = " \ n " & & P a i r S u g g e s t )
S t r i n g A d d ( m e s s a g e , " | S u g g e s t e d p a i r : " + p a i r ) ;
/ / - - -
S u g g e s t e d P a i r = p a i r ;
/ / - - -
i f ( C A D T r i g g e r | | ! S m a r t A l e r t )
{
/ / - - -
S e n d A l e r t s ( m e s s a g e ) ;
/ / - - -
C A D A l a r m = f a l s e ;
}
}
/ / - - - C H F
i f ( C H F > R e s e t A l e r t D w n & & C H F < R e s e t A l e r t U p )
{
/ / - - -
i f ( ! C H F A l a r m )
C H F A l a r m = t r u e ;
}
/ / - - -
i f ( C H F > = B u y L e v e l & & C H F A l a r m )
{
/ / - - - G e t P a i r
s t r i n g p a i r = " \ n " ;
/ / - - -
i f ( M i n = = " A U D " )
p a i r = " A U D C H F " ;
/ / - - -
i f ( M i n = = " C A D " )
p a i r = " C A D C H F " ;
/ / - - -
i f ( M i n = = " E U R " )
p a i r = " E U R C H F " ;
/ / - - -
i f ( M i n = = " G B P " )
p a i r = " G B P C H F " ;
/ / - - -
i f ( M i n = = " J P Y " )
p a i r = " C H F J P Y " ;
/ / - - -
i f ( M i n = = " N Z D " )
p a i r = " N Z D C H F " ;
/ / - - -
i f ( M i n = = " U S D " )
p a i r = " U S D C H F " ;
/ / - - -
s t r i n g m e s s a g e = " \ n " ;
/ / - - -
m e s s a g e = " C H F h a s r e a c h e d t h e h i g h l e v e l " ;
/ / - - -
i f ( p a i r ! = " N / A " & & p a i r ! = " \ n " & & P a i r S u g g e s t )
S t r i n g A d d ( m e s s a g e , " | S u g g e s t e d p a i r : " + p a i r ) ;
/ / - - -
S u g g e s t e d P a i r = p a i r ;
/ / - - -
i f ( C H F T r i g g e r | | ! S m a r t A l e r t )
{
/ / - - -
S e n d A l e r t s ( m e s s a g e ) ;
/ / - - -
C H F A l a r m = f a l s e ;
}
}
i f ( C H F < = S e l l L e v e l & & C H F A l a r m )
{
/ / - - - G e t P a i r
s t r i n g p a i r = " \ n " ;
/ / - - -
i f ( M a x = = " A U D " )
p a i r = " A U D C H F " ;
/ / - - -
i f ( M a x = = " C A D " )
p a i r = " C A D C H F " ;
/ / - - -
i f ( M a x = = " E U R " )
p a i r = " E U R C H F " ;
/ / - - -
i f ( M a x = = " G B P " )
p a i r = " G B P C H F " ;
/ / - - -
i f ( M a x = = " J P Y " )
p a i r = " C H F J P Y " ;
/ / - - -
i f ( M a x = = " N Z D " )
p a i r = " N Z D C H F " ;
/ / - - -
i f ( M a x = = " U S D " )
p a i r = " U S D C H F " ;
/ / - - -
s t r i n g m e s s a g e = " \ n " ;
/ / - - -
m e s s a g e = " C H F h a s r e a c h e d t h e l o w l e v e l " ;
/ / - - -
i f ( p a i r ! = " N / A " & & p a i r ! = " \ n " & & P a i r S u g g e s t )
S t r i n g A d d ( m e s s a g e , " | S u g g e s t e d p a i r : " + p a i r ) ;
/ / - - -
S u g g e s t e d P a i r = p a i r ;
/ / - - -
i f ( C H F T r i g g e r | | ! S m a r t A l e r t )
{
/ / - - -
S e n d A l e r t s ( m e s s a g e ) ;
/ / - - -
C H F A l a r m = f a l s e ;
}
}
/ / - - - E U R
i f ( E U R > R e s e t A l e r t D w n & & E U R < R e s e t A l e r t U p )
{
/ / - - -
i f ( ! E U R A l a r m )
E U R A l a r m = t r u e ;
}
/ / - - -
i f ( E U R > = B u y L e v e l & & E U R A l a r m )
{
/ / - - - G e t P a i r
s t r i n g p a i r = " \ n " ;
/ / - - -
i f ( M i n = = " A U D " )
p a i r = " E U R A U D " ;
/ / - - -
i f ( M i n = = " C A D " )
p a i r = " E U R C A D " ;
/ / - - -
i f ( M i n = = " C H F " )
p a i r = " E U R C H F " ;
/ / - - -
i f ( M i n = = " G B P " )
p a i r = " E U R G B P " ;
/ / - - -
i f ( M i n = = " J P Y " )
p a i r = " E U R J P Y " ;
/ / - - -
i f ( M i n = = " N Z D " )
p a i r = " E U R N Z D " ;
/ / - - -
i f ( M i n = = " U S D " )
p a i r = " E U R U S D " ;
/ / - - -
s t r i n g m e s s a g e = " \ n " ;
/ / - - -
m e s s a g e = " E U R h a s r e a c h e d t h e h i g h l e v e l " ;
/ / - - -
i f ( p a i r ! = " N / A " & & p a i r ! = " \ n " & & P a i r S u g g e s t )
S t r i n g A d d ( m e s s a g e , " | S u g g e s t e d p a i r : " + p a i r ) ;
/ / - - -
S u g g e s t e d P a i r = p a i r ;
/ / - - -
i f ( E U R T r i g g e r | | ! S m a r t A l e r t )
{
/ / - - -
S e n d A l e r t s ( m e s s a g e ) ;
/ / - - -
E U R A l a r m = f a l s e ;
}
}
i f ( E U R < = S e l l L e v e l & & E U R A l a r m )
{
/ / - - - G e t P a i r
s t r i n g p a i r = " \ n " ;
/ / - - -
i f ( M a x = = " A U D " )
p a i r = " E U R A U D " ;
/ / - - -
i f ( M a x = = " C A D " )
p a i r = " E U R C A D " ;
/ / - - -
i f ( M a x = = " C H F " )
p a i r = " E U R C H F " ;
/ / - - -
i f ( M a x = = " G B P " )
p a i r = " E U R G B P " ;
/ / - - -
i f ( M a x = = " J P Y " )
p a i r = " E U R J P Y " ;
/ / - - -
i f ( M a x = = " N Z D " )
p a i r = " E U R N Z D " ;
/ / - - -
i f ( M a x = = " U S D " )
p a i r = " E U R U S D " ;
/ / - - -
s t r i n g m e s s a g e = " \ n " ;
/ / - - -
m e s s a g e = " E U R h a s r e a c h e d t h e l o w l e v e l " ;
/ / - - -
i f ( p a i r ! = " N / A " & & p a i r ! = " \ n " & & P a i r S u g g e s t )
S t r i n g A d d ( m e s s a g e , " | S u g g e s t e d p a i r : " + p a i r ) ;
/ / - - -
S u g g e s t e d P a i r = p a i r ;
/ / - - -
i f ( E U R T r i g g e r | | ! S m a r t A l e r t )
{
/ / - - -
S e n d A l e r t s ( m e s s a g e ) ;
/ / - - -
E U R A l a r m = f a l s e ;
}
}
/ / - - - G B P
i f ( G B P > R e s e t A l e r t D w n & & G B P < R e s e t A l e r t U p )
{
/ / - - -
i f ( ! G B P A l a r m )
G B P A l a r m = t r u e ;
}
/ / - - -
i f ( G B P > = B u y L e v e l & & G B P A l a r m )
{
/ / - - - G e t P a i r
s t r i n g p a i r = " \ n " ;
/ / - - -
i f ( M i n = = " A U D " )
p a i r = " G B P A U D " ;
/ / - - -
i f ( M i n = = " C A D " )
p a i r = " G B P C A D " ;
/ / - - -
i f ( M i n = = " C H F " )
p a i r = " G B P C H F " ;
/ / - - -
i f ( M i n = = " E U R " )
p a i r = " E U R G B P " ;
/ / - - -
i f ( M i n = = " J P Y " )
p a i r = " G B P J P Y " ;
/ / - - -
i f ( M i n = = " N Z D " )
p a i r = " G B P N Z D " ;
/ / - - -
i f ( M i n = = " U S D " )
p a i r = " G B P U S D " ;
/ / - - -
s t r i n g m e s s a g e = " \ n " ;
/ / - - -
m e s s a g e = " G B P h a s r e a c h e d t h e h i g h l e v e l " ;
/ / - - -
i f ( p a i r ! = " N / A " & & p a i r ! = " \ n " & & P a i r S u g g e s t )
S t r i n g A d d ( m e s s a g e , " | S u g g e s t e d p a i r : " + p a i r ) ;
/ / - - -
S u g g e s t e d P a i r = p a i r ;
/ / - - -
i f ( G B P T r i g g e r | | ! S m a r t A l e r t )
{
/ / - - -
S e n d A l e r t s ( m e s s a g e ) ;
/ / - - -
G B P A l a r m = f a l s e ;
}
}
i f ( G B P < = S e l l L e v e l & & G B P A l a r m )
{
/ / - - - G e t P a i r
s t r i n g p a i r = " \ n " ;
/ / - - -
i f ( M a x = = " A U D " )
p a i r = " G B P A U D " ;
/ / - - -
i f ( M a x = = " C A D " )
p a i r = " G B P C A D " ;
/ / - - -
i f ( M a x = = " C H F " )
p a i r = " G B P C H F " ;
/ / - - -
i f ( M a x = = " E U R " )
p a i r = " E U R G B P " ;
/ / - - -
i f ( M a x = = " J P Y " )
p a i r = " G B P J P Y " ;
/ / - - -
i f ( M a x = = " N Z D " )
p a i r = " G B P N Z D " ;
/ / - - -
i f ( M a x = = " U S D " )
p a i r = " G B P U S D " ;
/ / - - -
s t r i n g m e s s a g e = " \ n " ;
/ / - - -
m e s s a g e = " G B P h a s r e a c h e d t h e l o w l e v e l " ;
/ / - - -
i f ( p a i r ! = " N / A " & & p a i r ! = " \ n " & & P a i r S u g g e s t )
S t r i n g A d d ( m e s s a g e , " | S u g g e s t e d p a i r : " + p a i r ) ;
/ / - - -
S u g g e s t e d P a i r = p a i r ;
/ / - - -
i f ( G B P T r i g g e r | | ! S m a r t A l e r t )
{
/ / - - -
S e n d A l e r t s ( m e s s a g e ) ;
/ / - - -
G B P A l a r m = f a l s e ;
}
}
/ / - - - J P Y
i f ( J P Y > R e s e t A l e r t D w n & & J P Y < R e s e t A l e r t U p )
{
/ / - - -
i f ( ! J P Y A l a r m )
J P Y A l a r m = t r u e ;
}
/ / - - -
i f ( J P Y > = B u y L e v e l & & J P Y A l a r m )
{
/ / - - - G e t P a i r
s t r i n g p a i r = " \ n " ;
/ / - - -
i f ( M i n = = " A U D " )
p a i r = " A U D J P Y " ;
/ / - - -
i f ( M i n = = " C A D " )
p a i r = " C A D J P Y " ;
/ / - - -
i f ( M i n = = " C H F " )
p a i r = " C H F J P Y " ;
/ / - - -
i f ( M i n = = " E U R " )
p a i r = " E U R J P Y " ;
/ / - - -
i f ( M i n = = " G B P " )
p a i r = " G B P J P Y " ;
/ / - - -
i f ( M i n = = " N Z D " )
p a i r = " N Z D J P Y " ;
/ / - - -
i f ( M i n = = " U S D " )
p a i r = " U S D J P Y " ;
/ / - - -
s t r i n g m e s s a g e = " \ n " ;
/ / - - -
m e s s a g e = " J P Y h a s r e a c h e d t h e h i g h l e v e l " ;
/ / - - -
i f ( p a i r ! = " N / A " & & p a i r ! = " \ n " & & P a i r S u g g e s t )
S t r i n g A d d ( m e s s a g e , " | S u g g e s t e d p a i r : " + p a i r ) ;
/ / - - -
S u g g e s t e d P a i r = p a i r ;
/ / - - -
i f ( J P Y T r i g g e r | | ! S m a r t A l e r t )
{
/ / - - -
S e n d A l e r t s ( m e s s a g e ) ;
/ / - - -
J P Y A l a r m = f a l s e ;
}
}
i f ( J P Y < = S e l l L e v e l & & J P Y A l a r m )
{
/ / - - - G e t P a i r
s t r i n g p a i r = " \ n " ;
/ / - - -
i f ( M a x = = " A U D " )
p a i r = " A U D J P Y " ;
/ / - - -
i f ( M a x = = " C A D " )
p a i r = " C A D J P Y " ;
/ / - - -
i f ( M a x = = " C H F " )
p a i r = " C H F J P Y " ;
/ / - - -
i f ( M a x = = " E U R " )
p a i r = " E U R J P Y " ;
/ / - - -
i f ( M a x = = " G B P " )
p a i r = " G B P J P Y " ;
/ / - - -
i f ( M a x = = " N Z D " )
p a i r = " N Z D J P Y " ;
/ / - - -
i f ( M a x = = " U S D " )
p a i r = " U S D J P Y " ;
/ / - - -
s t r i n g m e s s a g e = " \ n " ;
/ / - - -
m e s s a g e = " J P Y h a s r e a c h e d t h e l o w l e v e l " ;
/ / - - -
i f ( p a i r ! = " N / A " & & p a i r ! = " \ n " & & P a i r S u g g e s t )
S t r i n g A d d ( m e s s a g e , " | S u g g e s t e d p a i r : " + p a i r ) ;
/ / - - -
S u g g e s t e d P a i r = p a i r ;
/ / - - -
i f ( J P Y T r i g g e r | | ! S m a r t A l e r t )
{
/ / - - -
S e n d A l e r t s ( m e s s a g e ) ;
/ / - - -
J P Y A l a r m = f a l s e ;
}
}
/ / - - - N Z D
i f ( N Z D > R e s e t A l e r t D w n & & N Z D < R e s e t A l e r t U p )
{
/ / - - -
i f ( ! N Z D A l a r m )
N Z D A l a r m = t r u e ;
}
/ / - - -
i f ( N Z D > = B u y L e v e l & & N Z D A l a r m )
{
/ / - - - G e t P a i r
s t r i n g p a i r = " \ n " ;
/ / - - -
i f ( M i n = = " A U D " )
p a i r = " A U D N Z D " ;
/ / - - -
i f ( M i n = = " C A D " )
p a i r = " N Z D C A D " ;
/ / - - -
i f ( M i n = = " C H F " )
p a i r = " N Z D C H F " ;
/ / - - -
i f ( M i n = = " E U R " )
p a i r = " E U R N Z D " ;
/ / - - -
i f ( M i n = = " G B P " )
p a i r = " G B P N Z D " ;
/ / - - -
i f ( M i n = = " J P Y " )
p a i r = " N Z D J P Y " ;
/ / - - -
i f ( M i n = = " U S D " )
p a i r = " N Z D U S D " ;
/ / - - -
s t r i n g m e s s a g e = " \ n " ;
/ / - - -
m e s s a g e = " N Z D h a s r e a c h e d t h e h i g h l e v e l " ;
/ / - - -
i f ( p a i r ! = " N / A " & & p a i r ! = " \ n " & & P a i r S u g g e s t )
S t r i n g A d d ( m e s s a g e , " | S u g g e s t e d p a i r : " + p a i r ) ;
/ / - - -
S u g g e s t e d P a i r = p a i r ;
/ / - - -
i f ( N Z D T r i g g e r | | ! S m a r t A l e r t )
{
/ / - - -
S e n d A l e r t s ( m e s s a g e ) ;
/ / - - -
N Z D A l a r m = f a l s e ;
}
}
i f ( N Z D < = S e l l L e v e l & & N Z D A l a r m )
{
/ / - - - G e t P a i r
s t r i n g p a i r = " \ n " ;
/ / - - -
i f ( M a x = = " A U D " )
p a i r = " A U D N Z D " ;
/ / - - -
i f ( M a x = = " C A D " )
p a i r = " N Z D C A D " ;
/ / - - -
i f ( M a x = = " C H F " )
p a i r = " N Z D C H F " ;
/ / - - -
i f ( M a x = = " E U R " )
p a i r = " E U R N Z D " ;
/ / - - -
i f ( M a x = = " G B P " )
p a i r = " G B P N Z D " ;
/ / - - -
i f ( M a x = = " J P Y " )
p a i r = " N Z D J P Y " ;
/ / - - -
i f ( M a x = = " U S D " )
p a i r = " N Z D U S D " ;
/ / - - -
s t r i n g m e s s a g e = " \ n " ;
/ / - - -
m e s s a g e = " N Z D h a s r e a c h e d t h e l o w l e v e l " ;
/ / - - -
i f ( p a i r ! = " N / A " & & p a i r ! = " \ n " & & P a i r S u g g e s t )
S t r i n g A d d ( m e s s a g e , " | S u g g e s t e d p a i r : " + p a i r ) ;
/ / - - -
S u g g e s t e d P a i r = p a i r ;
/ / - - -
i f ( N Z D T r i g g e r | | ! S m a r t A l e r t )
{
/ / - - -
S e n d A l e r t s ( m e s s a g e ) ;
/ / - - -
N Z D A l a r m = f a l s e ;
}
}
/ / - - - U S D
i f ( U S D > R e s e t A l e r t D w n & & U S D < R e s e t A l e r t U p )
{
/ / - - -
i f ( ! U S D A l a r m )
U S D A l a r m = t r u e ;
}
/ / - - -
i f ( U S D > = B u y L e v e l & & U S D A l a r m )
{
/ / - - - G e t P a i r
s t r i n g p a i r = " \ n " ;
/ / - - -
i f ( M i n = = " A U D " )
p a i r = " A U D U S D " ;
/ / - - -
i f ( M i n = = " C A D " )
p a i r = " U S D C A D " ;
/ / - - -
i f ( M i n = = " C H F " )
p a i r = " U S D C H F " ;
/ / - - -
i f ( M i n = = " E U R " )
p a i r = " E U R U S D " ;
/ / - - -
i f ( M i n = = " G B P " )
p a i r = " G B P U S D " ;
/ / - - -
i f ( M i n = = " J P Y " )
p a i r = " U S D J P Y " ;
/ / - - -
i f ( M i n = = " N Z D " )
p a i r = " N Z D U S D " ;
/ / - - -
s t r i n g m e s s a g e = " \ n " ;
/ / - - -
m e s s a g e = " U S D h a s r e a c h e d t h e h i g h l e v e l " ;
/ / - - -
i f ( p a i r ! = " N / A " & & p a i r ! = " \ n " & & P a i r S u g g e s t )
S t r i n g A d d ( m e s s a g e , " | S u g g e s t e d p a i r : " + p a i r ) ;
/ / - - -
S u g g e s t e d P a i r = p a i r ;
/ / - - -
i f ( U S D T r i g g e r | | ! S m a r t A l e r t )
{
/ / - - -
S e n d A l e r t s ( m e s s a g e ) ;
/ / - - -
U S D A l a r m = f a l s e ;
}
}
i f ( U S D < = S e l l L e v e l & & U S D A l a r m )
{
/ / - - - G e t P a i r
s t r i n g p a i r = " \ n " ;
/ / - - -
i f ( M a x = = " A U D " )
p a i r = " A U D U S D " ;
/ / - - -
i f ( M a x = = " C A D " )
p a i r = " U S D C A D " ;
/ / - - -
i f ( M a x = = " C H F " )
p a i r = " U S D C H F " ;
/ / - - -
i f ( M a x = = " E U R " )
p a i r = " E U R U S D " ;
/ / - - -
i f ( M a x = = " G B P " )
p a i r = " G B P U S D " ;
/ / - - -
i f ( M a x = = " J P Y " )
p a i r = " U S D J P Y " ;
/ / - - -
i f ( M a x = = " N Z D " )
p a i r = " N Z D U S D " ;
/ / - - -
s t r i n g m e s s a g e = " \ n " ;
/ / - - -
m e s s a g e = " U S D h a s r e a c h e d t h e l o w l e v e l " ;
/ / - - -
i f ( p a i r ! = " N / A " & & p a i r ! = " \ n " & & P a i r S u g g e s t )
S t r i n g A d d ( m e s s a g e , " | S u g g e s t e d p a i r : " + p a i r ) ;
/ / - - -
S u g g e s t e d P a i r = p a i r ;
/ / - - -
i f ( U S D T r i g g e r | | ! S m a r t A l e r t )
{
/ / - - -
S e n d A l e r t s ( m e s s a g e ) ;
/ / - - -
U S D A l a r m = f a l s e ;
}
}
}
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | S e n d A l e r t s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d S e n d A l e r t s ( s t r i n g m e s s a g e )
{
/ / - - -
i f ( _ A l e r t )
A l e r t ( m e s s a g e ) ;
/ / - - -
i f ( P u s h )
S e n d N o t i f i c a t i o n ( m e s s a g e ) ;
/ / - - -
i f ( M a i l )
S e n d M a i l ( E x p e r t N a m e + " [ A l e r t ] " , S t r i n g S u b s t r ( m e s s a g e , S t r i n g L e n ( O B J P R E F I X ) , S t r i n g L e n ( m e s s a g e ) ) ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | R e s e t T r i g g e r |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d R e s e t T r i g g e r ( )
{
/ / - - -
A U D T r i g g e r = f a l s e ;
C A D T r i g g e r = f a l s e ;
C H F T r i g g e r = f a l s e ;
E U R T r i g g e r = f a l s e ;
G B P T r i g g e r = f a l s e ;
J P Y T r i g g e r = f a l s e ;
N Z D T r i g g e r = f a l s e ;
U S D T r i g g e r = f a l s e ;
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | S p e e d O m e t e r |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d S p e e d O m e t e r ( s t r i n g _ S y m b )
{
/ / - - - C a l c S p e e d
d o u b l e P t s = S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ P O I N T ) , L a s t P r i c e = 0 , C u r r e n t P r i c e = 0 ;
/ / - - -
i f ( P t s ! = 0 )
{
/ / - - -
L a s t P r i c e = G l o b a l V a r i a b l e G e t ( O B J P R E F I X + _ S y m b + " - P r i c e " ) / P t s ;
/ / - - -
C u r r e n t P r i c e = ( ( S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ A S K ) + S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ B I D ) ) / 2 ) / P t s ;
}
/ / - - -
d o u b l e S p e e d = N o r m a l i z e D o u b l e ( ( C u r r e n t P r i c e - L a s t P r i c e ) , 0 ) ;
/ / - - -
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + _ S y m b + " - P r i c e " , ( S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ A S K ) + S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ B I D ) ) / 2 ) ;
/ / - - - S e t M a x S p e e d
i f ( S p e e d > 9 9 )
S p e e d = 9 9 ;
/ / - - - A l a r m T r i g g e r
l o n g T r i g g e r = ( i V o l u m e ( _ S y m b , P E R I O D _ M 1 , 1 ) / 1 0 ) / 2 ;
/ / - - - G e t C u r r e n c i e s
d o u b l e A U D = A U D ( ) , C A D = C A D ( ) , C H F = C H F ( ) , E U R = E U R ( ) , G B P = G B P ( ) , J P Y = J P Y ( ) , N Z D = N Z D ( ) , U S D = U S D ( ) ;
/ / - - -
i f ( S u g g e s t e d P a i r ! = " \ n " & & T r i g g e r > 0 )
{
/ / - - -
i f ( A U D < = S e l l L e v e l | | A U D > = B u y L e v e l )
i f ( S t r i n g F i n d ( _ S y m b , " A U D " , 0 ) ! = - 1 )
i f ( S t r i n g F i n d ( _ S y m b , S u g g e s t e d P a i r , 0 ) ! = - 1 )
i f ( M a t h A b s ( S p e e d ) > = T r i g g e r )
A U D T r i g g e r = t r u e ;
/ / - - -
i f ( C A D < = S e l l L e v e l | | C A D > = B u y L e v e l )
i f ( S t r i n g F i n d ( _ S y m b , " C A D " , 0 ) ! = - 1 )
i f ( S t r i n g F i n d ( _ S y m b , S u g g e s t e d P a i r , 0 ) ! = - 1 )
i f ( M a t h A b s ( S p e e d ) > = T r i g g e r )
C A D T r i g g e r = t r u e ;
/ / - - -
i f ( C H F < = S e l l L e v e l | | C H F > = B u y L e v e l )
i f ( S t r i n g F i n d ( _ S y m b , " C H F " , 0 ) ! = - 1 )
i f ( S t r i n g F i n d ( _ S y m b , S u g g e s t e d P a i r , 0 ) ! = - 1 )
i f ( M a t h A b s ( S p e e d ) > = T r i g g e r )
C H F T r i g g e r = t r u e ;
/ / - - -
i f ( E U R < = S e l l L e v e l | | E U R > = B u y L e v e l )
i f ( S t r i n g F i n d ( _ S y m b , " E U R " , 0 ) ! = - 1 )
i f ( S t r i n g F i n d ( _ S y m b , S u g g e s t e d P a i r , 0 ) ! = - 1 )
i f ( M a t h A b s ( S p e e d ) > = 7 )
E U R T r i g g e r = t r u e ;
/ / - - -
i f ( G B P < = S e l l L e v e l | | G B P > = B u y L e v e l )
i f ( S t r i n g F i n d ( _ S y m b , " G B P " , 0 ) ! = - 1 )
i f ( S t r i n g F i n d ( _ S y m b , S u g g e s t e d P a i r , 0 ) ! = - 1 )
i f ( M a t h A b s ( S p e e d ) > = T r i g g e r )
G B P T r i g g e r = t r u e ;
/ / - - -
i f ( J P Y < = S e l l L e v e l | | J P Y > = B u y L e v e l )
i f ( S t r i n g F i n d ( _ S y m b , " J P Y " , 0 ) ! = - 1 )
i f ( S t r i n g F i n d ( _ S y m b , S u g g e s t e d P a i r , 0 ) ! = - 1 )
i f ( M a t h A b s ( S p e e d ) > = 7 )
J P Y T r i g g e r = t r u e ;
/ / - - -
i f ( N Z D < = S e l l L e v e l | | N Z D > = B u y L e v e l )
i f ( S t r i n g F i n d ( _ S y m b , " N Z D " , 0 ) ! = - 1 )
i f ( S t r i n g F i n d ( _ S y m b , S u g g e s t e d P a i r , 0 ) ! = - 1 )
i f ( M a t h A b s ( S p e e d ) > = T r i g g e r )
N Z D T r i g g e r = t r u e ;
/ / - - -
i f ( U S D < = S e l l L e v e l | | U S D > = B u y L e v e l )
i f ( S t r i n g F i n d ( _ S y m b , " U S D " , 0 ) ! = - 1 )
i f ( S t r i n g F i n d ( _ S y m b , S u g g e s t e d P a i r , 0 ) ! = - 1 )
i f ( M a t h A b s ( S p e e d ) > = T r i g g e r )
U S D T r i g g e r = t r u e ;
/ / - - -
}
/ / - - - R e s e t C o l o r s
i f ( S h o w T r a d e P a n e l )
{
/ / - - -
f o r ( i n t i = 0 ; i < ( 1 0 ) ; i + + )
{
/ / - - - S e t O b j e c t s
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " S P E E D # " + " - " + _ S y m b + I n t e g e r T o S t r i n g ( i , 0 , 0 ) ) = = 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P E E D # " + " - " + _ S y m b + I n t e g e r T o S t r i n g ( i , 0 , 0 ) , O B J P R O P _ C O L O R , c l r N O N E ) ;
/ / - - -
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " S P E E D ª " + " - " + _ S y m b ) = = 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P E E D ª " + " - " + _ S y m b , O B J P R O P _ C O L O R , c l r N O N E ) ;
}
/ / - - - S e t C o l o r & T e x t
f o r ( i n t i = 0 ; i < M a t h A b s ( S p e e d ) ; i + + )
{
/ / - - - P o s i t i v e V a l u e
i f ( S p e e d > 0 )
{
/ / - - - S e t O b j e c t s
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " S P E E D # " + " - " + _ S y m b + I n t e g e r T o S t r i n g ( i , 0 , 0 ) ) = = 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P E E D # " + " - " + _ S y m b + I n t e g e r T o S t r i n g ( i , 0 , 0 ) , O B J P R O P _ C O L O R , C O L O R _ B U Y ) ;
/ / - - -
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " S P E E D ª " + " - " + _ S y m b ) = = 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P E E D ª " + " - " + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ B U Y ) ;
}
/ / - - - N e g a t i v e V a l u e
i f ( S p e e d < 0 )
{
/ / - - - S e t O b j e c t s
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " S P E E D # " + " - " + _ S y m b + I n t e g e r T o S t r i n g ( i , 0 , 0 ) ) = = 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P E E D # " + " - " + _ S y m b + I n t e g e r T o S t r i n g ( i , 0 , 0 ) , O B J P R O P _ C O L O R , C O L O R _ S E L L ) ;
/ / - - -
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " S P E E D ª " + " - " + _ S y m b ) = = 0 )
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " S P E E D ª " + " - " + _ S y m b , O B J P R O P _ C O L O R , C O L O R _ S E L L ) ;
}
/ / - - -
i f ( O b j e c t F i n d ( 0 , O B J P R E F I X + " S P E E D ª " + " - " + _ S y m b ) = = 0 )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S P E E D ª " + " - " + _ S y m b , O B J P R O P _ T E X T , 0 , ± S t r ( S p e e d , 0 ) ) ; / / S e t O b j e c t
}
}
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | U p d a t e P e r c e n t |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d U p d a t e P e r c e n t ( s t r i n g _ S y m b , d o u b l e P e r c e n t )
{
/ / - - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + _ S y m b + " % " , O B J P R O P _ T E X T , D o u b l e T o S t r i n g ( P e r c e n t , 0 ) + " % " ) ;
/ / - - -
i f ( P e r c e n t > = B u y L e v e l )
{
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + _ S y m b + " % " , O B J P R O P _ C O L O R , c l r L i m e G r e e n ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + _ S y m b + " § " , O B J P R O P _ C O L O R , c l r L i m e G r e e n ) ;
}
/ / - - -
i f ( P e r c e n t < = S e l l L e v e l )
{
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + _ S y m b + " % " , O B J P R O P _ 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 , O B J P R E F I X + _ S y m b + " § " , O B J P R O P _ C O L O R , c l r R e d ) ;
}
/ / - - -
i f ( P e r c e n t < B u y L e v e l & & P e r c e n t > S e l l L e v e l )
{
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + _ S y m b + " % " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + _ S y m b + " § " , O B J P R O P _ C O L O R , C O L O R _ F O N T ) ;
}
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | L o t S t e p |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e L o t S t e p ( c o n s t s t r i n g _ S y m b )
{
r e t u r n ( S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ V O L U M E _ S T E P ) ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | G e t S e t I n p u t s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d G e t S e t I n p u t s ( c o n s t s t r i n g _ S y m b )
{
/ / - - - G e t M a r k e t I n f o
d o u b l e L o t S t e p = S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ V O L U M E _ S T E P ) , M i n L o t = S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ V O L U M E _ M I N ) , M a x L o t = S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ V O L U M E _ M A X ) ;
l o n g M i n S t o p = S y m b o l I n f o I n t e g e r ( _ S y m b , S Y M B O L _ T R A D E _ S T O P S _ L E V E L ) ;
/ / - - - G e t L o t S i z e I n p u t
d o u b l e L o t S i z e I n p = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " + " - " + _ S y m b , O B J P R O P _ T E X T ) ) ; / * S e t O b j e c t * /
/ / - - - R o u n d L o t S i z e
d o u b l e L o t S i z e = L o t S i z e I n p ;
/ / - - - A v o i d Z e r o D i v i d e
i f ( L o t S t e p ! = 0 )
L o t S i z e = M a t h R o u n d ( L o t S i z e / L o t S t e p ) * L o t S t e p ;
/ / - - -
i f ( ! U s e r I s E d i t i n g )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " + " - " + _ S y m b , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( L o t S i z e , 2 ) ) ; / * S e t O b j e c t * /
/ / - - - W r o n g L o t S i z e
i f ( L o t S i z e < = M i n L o t )
{
/ / - - -
L o t S i z e = M i n L o t ;
/ / - - -
i f ( ! U s e r I s E d i t i n g )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " + " - " + _ S y m b , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( L o t S i z e , 2 ) ) ; / * S e t O b j e c t * /
}
/ / - - -
i f ( L o t S i z e > = M a x L o t )
{
/ / - - -
L o t S i z e = M a x L o t ;
/ / - - -
i f ( ! U s e r I s E d i t i n g )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " + " - " + _ S y m b , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( L o t S i z e , 2 ) ) ; / * S e t O b j e c t * /
}
/ / - - - G e t S L I n p u t
d o u b l e S t o p L o s s I n p = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " S L < > " + " - " + _ S y m b , O B J P R O P _ T E X T ) ) ; / * G e t O b j e c t * /
/ / - - - W r o n g S L
i f ( S t o p L o s s I n p ! = 0 )
{
/ / - - -
i f ( S t o p L o s s I n p < = 0 . 9 9 | | S t o p L o s s I n p < M i n S t o p )
{
/ / - - -
i f ( ! U s e r I s E d i t i n g )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S L < > " + " - " + _ S y m b , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( M i n S t o p , 0 ) ) ; / * S e t O b j e c t * /
}
}
/ / - - - G e t T P I n p u t
d o u b l e T a k e P r o f i t I n p = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " _ T P < > " + " - " + _ S y m b , O B J P R O P _ T E X T ) ) ; / * G e t O b j e c t * /
/ / - - - W r o n g T P
i f ( T a k e P r o f i t I n p ! = 0 )
{
/ / - - -
i f ( T a k e P r o f i t I n p < = 0 . 9 9 | | T a k e P r o f i t I n p < M i n S t o p )
{
/ / - - -
i f ( ! U s e r I s E d i t i n g )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " _ T P < > " + " - " + _ S y m b , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( M i n S t o p , 0 ) ) ; / * S e t O b j e c t * /
}
}
/ / - - - S a v e G l o b a l V a r i a b l e s
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + _ S y m b + " - S t o p l o s s " , S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " S L < > " + " - " + _ S y m b , O B J P R O P _ T E X T ) ) ) ;
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + _ S y m b + " - T a k e p r o f i t " , S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " _ T P < > " + " - " + _ S y m b , O B J P R O P _ T E X T ) ) ) ;
G l o b a l V a r i a b l e S e t ( O B J P R E F I X + _ S y m b + " - L o t s i z e " , S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " L O T S I Z E < > " + " - " + _ S y m b , O B J P R O P _ T E X T ) ) ) ;
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | G e t P a r a m |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d G e t P a r a m ( s t r i n g p )
{
/ / - - -
i f ( p = = O B J P R E F I X + " " )
{
/ / - - -
d o u b l e p V a l = T e r m i n a l I n f o I n t e g e r ( T E R M I N A L _ P I N G _ L A S T ) ;
/ / - - -
M e s s a g e B o x
(
/ / - - -
d S t r i n g ( " 9 9 A 6 D 4 3 B 8 3 3 C B 9 7 6 0 2 1 1 8 9 A B A E E A C F 5 D " ) + A c c o u n t I n f o S t r i n g ( A C C O U N T _ N A M E )
+ " \ n " +
d S t r i n g ( " 4 7 D 4 F 6 0 E 4 2 7 2 B E 7 0 F B 3 0 0 E B 0 5 B D 2 A E C 9 " ) + I n t e g e r T o S t r i n g ( A c c o u n t I n f o I n t e g e r ( A C C O U N T _ L O G I N ) )
+ " \ n " +
d S t r i n g ( " 8 3 7 4 4 D 4 8 C 2 D 6 3 F 9 0 D D 2 F 8 1 2 D B B 5 C F C 0 C " ) + I n t e g e r T o S t r i n g ( A c c o u n t I n f o I n t e g e r ( A C C O U N T _ L E V E R A G E ) )
+ " \ n \ n " +
/ / - - -
d S t r i n g ( " B 0 0 1 C 3 6 F 2 4 D D D 8 7 A F B 3 0 0 E B 0 5 B D 2 A E C 9 " ) + A c c o u n t I n f o S t r i n g ( A C C O U N T _ C O M P A N Y )
+ " \ n " +
d S t r i n g ( " 8 0 8 F E F 7 2 7 3 5 2 4 3 4 E 0 2 1 1 8 9 A B A E E A C F 5 D " ) + A c c o u n t I n f o S t r i n g ( A C C O U N T _ S E R V E R )
+ " \ n " +
d S t r i n g ( " 7 0 F A 8 4 9 3 7 3 E 4 1 9 2 8 " ) + D o u b l e T o S t r i n g ( p V a l / 1 0 0 0 , 2 ) + d S t r i n g ( " C D B 9 1 5 5 C B 6 0 8 0 F C 4 " )
+ " \ n \ n " +
/ / - - -
d S t r i n g ( " 4 7 E F F 8 F A D D D A 4 F 0 5 F B 3 0 0 E B 0 5 B D 2 A E C 9 " ) + d S t r i n g ( " 9 7 B A 1 0 D 5 D 7 6 C 5 4 A E " )
+ " \ n \ n " +
d S t r i n g ( " 7 8 2 3 F 8 8 5 8 C 1 3 A 3 9 B 7 C C 5 A 7 E C 4 F 4 0 E 3 8 1 " )
+ " \ n " +
d S t r i n g ( " 3 D 1 E 8 A B C 2 9 D B 2 E 9 2 F 1 B 0 7 F D 9 C B 9 6 A 4 5 7 3 8 F C A 3 2 5 9 5 8 4 0 B 4 8 C 2 4 B E E C 1 8 1 9 1 F 1 5 0 0 8 7 C 9 A F D 9 9 9 E 4 8 7 F " )
+ " \ n \ n " +
d S t r i n g ( " 5 8 9 A C 6 5 F 2 B B 8 3 7 5 3 " )
+ " \ n " +
d S t r i n g ( " 3 D 1 E 8 A B C 2 9 D B 2 E 9 2 F 1 B 0 7 F D 9 C B 9 6 A 4 5 7 3 8 F C A 3 2 5 9 5 8 4 0 B 4 8 0 1 D 4 F E E B A 4 9 1 8 3 B D 6 3 1 4 E 7 4 0 B F 3 E B 9 5 4 " )
/ / - - -
, M B _ C A P T I O N , M B _ I C O N I N F O R M A T I O N | M B _ O K
) ;
}
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | G e t S e t I n p u t s A |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d G e t S e t I n p u t s A ( )
{
/ / - - -
d o u b l e b a l a n c e = A c c o u n t I n f o D o u b l e ( A C C O U N T _ B A L A N C E ) ;
/ / - - -
i f ( S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " R I S K % < > " , O B J P R O P _ T E X T ) ) - R i s k I n p P ! = 0 )
{
/ / - - -
R i s k C = ( b a l a n c e / 1 0 0 ) * S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " R I S K % < > " , O B J P R O P _ T E X T ) ) ;
/ / - - -
i f ( ! U s e r I s E d i t i n g )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " R I S K $ < > " , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( R i s k C , 2 ) ) ; / * S e t O b j e c t * /
/ / - - -
R i s k I n p P = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " R I S K % < > " , O B J P R O P _ T E X T ) ) ;
}
/ / - - -
i f ( S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " R I S K $ < > " , O B J P R O P _ T E X T ) ) - R i s k I n p C ! = 0 )
{
/ / - - -
i f ( b a l a n c e ! = 0 )
R i s k P = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " R I S K $ < > " , O B J P R O P _ T E X T ) ) * 1 0 0 / b a l a n c e ;
/ / - - -
i f ( ! U s e r I s E d i t i n g )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " R I S K % < > " , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( R i s k P , 2 ) ) ; / * S e t O b j e c t * /
/ / - - -
R i s k I n p C = S t r i n g T o D o u b l e ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " R I S K $ < > " , O B J P R O P _ T E X T ) ) ;
}
/ / - - -
i f ( R i s k I n p P < 0 . 0 1 )
i f ( ! U s e r I s E d i t i n g )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " R I S K % < > " , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( 0 . 0 1 , 2 ) ) ; / * S e t O b j e c t * /
/ / - - -
i f ( R i s k I n p C < = 0 )
i f ( ! U s e r I s E d i t i n g )
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " R I S K $ < > " , O B J P R O P _ T E X T , 0 , D o u b l e T o S t r i n g ( 0 . 0 1 , 2 ) ) ; / * S e t O b j e c t * /
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | S e l l B a s k e t |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d S e l l B a s k e t ( s t r i n g C u r r e n c y )
{
/ / - - -
f o r ( i n t i = 0 ; i < A r r a y S i z e ( a S y m b o l s ) ; i + + )
{
/ / - - -
i n t s t r i n g f i n d = S t r i n g F i n d ( P r e f i x + a S y m b o l s [ i ] + S u f f i x , C u r r e n c y , S t r i n g L e n ( P r e f i x ) ) ;
/ / - - -
i f ( s t r i n g f i n d ! = - 1 )
{
/ / - - -
i f ( s t r i n g f i n d > 0 )
O r d e r S e n d ( P r e f i x + a S y m b o l s [ i ] + S u f f i x , O P _ B U Y ) ;
e l s e
O r d e r S e n d ( P r e f i x + a S y m b o l s [ i ] + S u f f i x , O P _ S E L L ) ;
}
}
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | B u y B a s k e t |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d B u y B a s k e t ( s t r i n g C u r r e n c y )
{
/ / - - -
f o r ( i n t i = 0 ; i < A r r a y S i z e ( a S y m b o l s ) ; i + + )
{
/ / - - -
i n t s t r i n g f i n d = S t r i n g F i n d ( P r e f i x + a S y m b o l s [ i ] + S u f f i x , C u r r e n c y , S t r i n g L e n ( P r e f i x ) ) ;
/ / - - -
i f ( s t r i n g f i n d ! = - 1 )
{
/ / - - -
i f ( s t r i n g f i n d > 0 )
O r d e r S e n d ( P r e f i x + a S y m b o l s [ i ] + S u f f i x , O P _ S E L L ) ;
e l s e
O r d e r S e n d ( P r e f i x + a S y m b o l s [ i ] + S u f f i x , O P _ B U Y ) ;
}
}
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C l o s e B a s k e t |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d C l o s e B a s k e t ( s t r i n g C u r r e n c y )
{
/ / - - -
f o r ( i n t i = 0 ; i < A r r a y S i z e ( a S y m b o l s ) ; i + + )
{
/ / - - -
i n t s t r i n g f i n d = S t r i n g F i n d ( P r e f i x + a S y m b o l s [ i ] + S u f f i x , C u r r e n c y , S t r i n g L e n ( P r e f i x ) ) ;
/ / - - -
i f ( s t r i n g f i n d ! = - 1 )
{
/ / - - - N o O r d e r s
i f ( O p e n P o s ( P r e f i x + a S y m b o l s [ i ] + S u f f i x , O P _ A L L ) = = 0 )
{
S e t S t a t u s ( " ý " , " N o o p e n o r d e r s . . . " ) ;
O b j e c t S e t I n t e g e r ( 0 , O B J P R E F I X + " C L O S E " + " - " + P r e f i x + a S y m b o l s [ i ] + S u f f i x , O B J P R O P _ S T A T E , f a l s e ) ; / / S e t O b j e c t
}
e l s e
O r d e r C l o s e ( P r e f i x + a S y m b o l s [ i ] + S u f f i x ) ;
}
}
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | O r d e r S e n d |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O r d e r S e n d ( c o n s t s t r i n g _ S y m b , c o n s t i n t T y p e )
{
/ / - - -
i n t o p _ t k t = 0 ;
u i n t t i c k = 0 , e x _ t i m e = 0 ;
/ / - - -
d o u b l e r q _ p r i c e = 0 , s l i p p a g e = 0 ;
/ / - - - G e t M a r k e t I n f o
d o u b l e L o t S t e p = S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ V O L U M E _ S T E P ) , M i n L o t = S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ V O L U M E _ M I N ) , M a x L o t = S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ V O L U M E _ M A X ) ;
d o u b l e P t s = S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ P O I N T ) , _ B i d = S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ B I D ) , _ A s k = S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ A S K ) ;
d o u b l e L o t S i z e = G l o b a l V a r i a b l e G e t ( O B J P R E F I X + _ S y m b + " - L o t s i z e " ) , S t o p L o s s = G l o b a l V a r i a b l e G e t ( O B J P R E F I X + _ S y m b + " - S t o p l o s s " ) , T a k e P r o f i t = G l o b a l V a r i a b l e G e t ( O B J P R E F I X + _ S y m b + " - T a k e p r o f i t " ) ;
l o n g S p r e a d = S y m b o l I n f o I n t e g e r ( _ S y m b , S Y M B O L _ S P R E A D ) , M i n S t o p = S y m b o l I n f o I n t e g e r ( _ S y m b , S Y M B O L _ T R A D E _ S T O P S _ L E V E L ) , F r e e z e L e v e l = S y m b o l I n f o I n t e g e r ( _ S y m b , S Y M B O L _ T R A D E _ F R E E Z E _ L E V E L ) ;
/ / - - - r e s e t t h e e r r o r v a l u e
R e s e t L a s t E r r o r ( ) ;
/ / - - - C h e c k O r d S e n d R e q u i r e m e n t s
i f ( M Q L I n f o I n t e g e r ( M Q L _ T R A D E _ A L L O W E D ) & & ! I s T r a d e C o n t e x t B u s y ( ) & & T e r m i n a l I n f o I n t e g e r ( T E R M I N A L _ C O N N E C T E D ) )
{
/ / - - - S e l l O r d e r s
i f ( T y p e = = O P _ S E L L )
{
/ / - - - O n e - C l i c k T r a d i n g
i f ( ! O n e C l i c k T r a d i n g )
{
/ / - - -
i f ( M e s s a g e B o x ( " D o y o u r e a l l y w a n t t o o p e n a n e w o r d e r ? \ n \ n " + " S y m b o l : " + _ S y m b + " \ n " + " O r d e r t y p e : S e l l " + " \ n " + " L o t s i z e : " + D o u b l e T o S t r i n g ( L o t S i z e , 2 ) + " \ n \ n " + " S t o p l o s s : " + D o u b l e T o S t r i n g ( S t o p L o s s , 0 ) + " \ n " + " T a k e p r o f i t : " + D o u b l e T o S t r i n g ( T a k e P r o f i t , 0 ) , " O r d e r S e n d - " + M B _ C A P T I O N , M B _ I C O N Q U E S T I O N | M B _ Y E S N O ) ! = I D Y E S )
r e t u r n ;
}
/ / - - - C h e c k S t o p s
i f ( ( S t o p L o s s ! = 0 & & ( _ B i d + S t o p L o s s * P t s ) > = ( _ A s k + F r e e z e L e v e l * P t s ) & & S t o p L o s s > = ( M i n S t o p + S p r e a d ) ) | | ( S t o p L o s s = = 0 ) )
{
/ / - - -
i f ( ( T a k e P r o f i t ! = 0 & & ( _ B i d - T a k e P r o f i t * P t s ) < = ( _ A s k - F r e e z e L e v e l * P t s ) & & T a k e P r o f i t > = M i n S t o p ) | | ( T a k e P r o f i t = = 0 ) )
{
/ / - - - E n o u g h M a r g i n
i f ( A c c o u n t F r e e M a r g i n C h e c k ( _ S y m b , O P _ S E L L , L o t S i z e ) > = 0 )
{
/ / - - - C o r r e c t L o t S i z e ( R o u n d e d b y G e t S e t I n p u t s )
i f ( L o t S i z e > = M i n L o t & & L o t S i z e < = M a x L o t )
{
/ / - - -
S e t S t a t u s ( " ) " , " S e n d i n g S e l l O r d e r . . . " ) ;
/ / - - -
t i c k = G e t T i c k C o u n t ( ) ; / / G e t T i m e
r q _ p r i c e = S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ B I D ) ; / / G e t P r i c e
o p _ t k t = O r d e r S e n d ( _ S y m b , O P _ S E L L , L o t S i z e , r q _ p r i c e , S l i p p a g e , 0 , 0 , E x p e r t N a m e , M a g i c N u m b e r , 0 , c l r N O N E ) ; / / S e n d O r d e r
}
e l s e
{
/ / - - - E r r o r
S e t S t a t u s ( " ý " , " O r d e r s e n d f a i l e d . . . " ) ;
P r i n t ( _ S y m b + " O r d e r S e n d f a i l e d w i t h e r r o r # 1 3 1 [ I n v a l i d t r a d e v o l u m e ] " ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
/ / - - -
S l e e p ( E r r o r I n t e r v a l ) ;
R e s e t S t a t u s ( ) ;
r e t u r n ;
}
/ / - - -
i f ( o p _ t k t < 0 )
{
S e t S t a t u s ( " ý " , " O r d e r s e n d f a i l e d . . . " ) ;
P r i n t ( _ S y m b + " O r d e r S e n d f a i l e d w i t h e r r o r # " , _ L a s t E r r o r ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
/ / - - -
S l e e p ( E r r o r I n t e r v a l ) ;
R e s e t S t a t u s ( ) ;
r e t u r n ;
}
e l s e
{
/ / - - - S u c c e e d e d
e x _ t i m e = G e t T i c k C o u n t ( ) - t i c k ; / / C a l c E x e T i m e
s l i p p a g e = ( P r i c e B y T k t ( O P E N P R I C E , o p _ t k t ) - r q _ p r i c e ) / P t s ; / / C a l c S l i p p a g e
P r i n t ( _ S y m b + " O r d e r S e n d p l a c e d s u c c e s s f u l l y ( O p e n S e l l ) " + " # " + I n t e g e r T o S t r i n g ( o p _ t k t ) + " | E x e c u c t i o n T i m e : " + I n t e g e r T o S t r i n g ( e x _ t i m e ) + " m s " + " | S l i p p a g e : " + D o u b l e T o S t r i n g ( s l i p p a g e , 0 ) + " p " ) ;
_ P l a y S o u n d ( " s e l l . w a v " ) ;
/ / - - - S L
i f ( S t o p L o s s > 0 & & S t o p L o s s > = M i n S t o p )
{
/ / - - -
i f ( O r d e r S e l e c t ( o p _ t k t , S E L E C T _ B Y _ T I C K E T , M O D E _ T R A D E S ) )
{
/ / - - -
i f ( ! O r d e r M o d i f y ( O r d e r T i c k e t ( ) , O r d e r O p e n P r i c e ( ) , O r d e r O p e n P r i c e ( ) + S t o p L o s s * P t s , O r d e r T a k e P r o f i t ( ) , 0 , c l r N O N E ) )
{
/ / - - - E r r o r
P r i n t ( _ S y m b + " E r r o r i n O r d e r M o d i f y . E r r o r c o d e = " , _ L a s t E r r o r ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
}
e l s e
{
/ / - - - S u c c e e d e d
/ / P r i n t ( " O r d e r m o d i f i e d s u c c e s s f u l l y " ) ;
}
}
}
/ / - - - _ T P
i f ( T a k e P r o f i t > 0 & & T a k e P r o f i t > = M i n S t o p )
{
/ / - - -
i f ( O r d e r S e l e c t ( o p _ t k t , S E L E C T _ B Y _ T I C K E T , M O D E _ T R A D E S ) )
{
/ / - - -
i f ( ! O r d e r M o d i f y ( O r d e r T i c k e t ( ) , O r d e r O p e n P r i c e ( ) , O r d e r S t o p L o s s ( ) , O r d e r O p e n P r i c e ( ) - T a k e P r o f i t * P t s , 0 , c l r N O N E ) )
{
/ / - - - E r r o r
P r i n t ( _ S y m b + " E r r o r i n O r d e r M o d i f y . E r r o r c o d e = " , _ L a s t E r r o r ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
}
e l s e
{
/ / - - - S u c c e e d e d
/ / P r i n t ( " O r d e r m o d i f i e d s u c c e s s f u l l y " ) ; * /
}
}
}
}
/ / - - -
}
e l s e
{
/ / - - - N o t E n o u g h M o n e y
S e t S t a t u s ( " ý " , " N o t e n o u g h m o n e y . . . " ) ;
P r i n t ( " ' " , A c c o u n t I n f o I n t e g e r ( A C C O U N T _ L O G I N ) , " ' : " , " o r d e r # 0 s e l l " , D o u b l e T o S t r i n g ( L o t S i z e , 2 ) , " " , _ S y m b , " [ N o t e n o u g h m o n e y ] " ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
S l e e p ( E r r o r I n t e r v a l ) ;
R e s e t S t a t u s ( ) ;
r e t u r n ;
}
/ / - - -
}
e l s e
{
/ / - - - I n v a l i d S t o p
S e t S t a t u s ( " ý " , " I n v a l i d t a k e p r o f i t . . . " ) ;
P r i n t ( " ' " , A c c o u n t I n f o I n t e g e r ( A C C O U N T _ L O G I N ) , " ' : " , " o r d e r # 0 s e l l " , D o u b l e T o S t r i n g ( L o t S i z e , 2 ) , " " , _ S y m b , " f a i l e d [ I n v a l i d T / P ] " ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
S l e e p ( E r r o r I n t e r v a l ) ;
R e s e t S t a t u s ( ) ;
r e t u r n ;
}
}
e l s e
{
/ / - - - I n v a l i d S t o p
S e t S t a t u s ( " ý " , " I n v a l i d s t o p l o s s . . . " ) ;
P r i n t ( " ' " , A c c o u n t I n f o I n t e g e r ( A C C O U N T _ L O G I N ) , " ' : " , " o r d e r # 0 s e l l " , D o u b l e T o S t r i n g ( L o t S i z e , 2 ) , " " , _ S y m b , " f a i l e d [ I n v a l i d S / L ] " ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
S l e e p ( E r r o r I n t e r v a l ) ;
R e s e t S t a t u s ( ) ;
r e t u r n ;
}
/ / - - -
R e s e t S t a t u s ( ) ;
/ / - - -
}
/ / - - - B u y O r d e r s
i f ( T y p e = = O P _ B U Y )
{
/ / - - - O n e - C l i c k T r a d i n g
i f ( ! O n e C l i c k T r a d i n g )
{
/ / - - -
i f ( M e s s a g e B o x ( " D o y o u r e a l l y w a n t t o o p e n a n e w o r d e r ? \ n \ n " + " S y m b o l : " + _ S y m b + " \ n " + " O r d e r t y p e : B u y " + " \ n " + " L o t s i z e : " + D o u b l e T o S t r i n g ( L o t S i z e , 2 ) + " \ n \ n " + " S t o p l o s s : " + D o u b l e T o S t r i n g ( S t o p L o s s , 0 ) + " \ n " + " T a k e p r o f i t : " + D o u b l e T o S t r i n g ( T a k e P r o f i t , 0 ) , " O r d e r S e n d - " + M B _ C A P T I O N , M B _ I C O N Q U E S T I O N | M B _ Y E S N O ) ! = I D Y E S )
r e t u r n ;
}
/ / - - - C h e c k S t o p s
i f ( ( S t o p L o s s ! = 0 & & ( _ A s k - S t o p L o s s * P t s ) < = ( _ B i d - F r e e z e L e v e l * P t s ) & & S t o p L o s s > = ( M i n S t o p + S p r e a d ) ) | | ( S t o p L o s s = = 0 ) )
{
/ / - - -
i f ( ( T a k e P r o f i t ! = 0 & & ( _ A s k + T a k e P r o f i t * P t s ) > = ( _ B i d + F r e e z e L e v e l * P t s ) & & T a k e P r o f i t > = M i n S t o p ) | | ( T a k e P r o f i t = = 0 ) )
{
/ / - - - E n o u g h M a r g i n
i f ( A c c o u n t F r e e M a r g i n C h e c k ( _ S y m b , O P _ B U Y , L o t S i z e ) > = 0 )
{
/ / - - - C o r r e c t L o t S i z e ( R o u n d e d b y G e t S e t I n p u t s )
i f ( L o t S i z e > = M i n L o t & & L o t S i z e < = M a x L o t )
{
/ / - - -
S e t S t a t u s ( " ) " , " S e n d i n g B u y O r d e r . . . " ) ;
/ / - - -
t i c k = G e t T i c k C o u n t ( ) ; / / G e t T i m e
r q _ p r i c e = S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ A S K ) ; / / G e t P r i c e
o p _ t k t = O r d e r S e n d ( _ S y m b , O P _ B U Y , L o t S i z e , r q _ p r i c e , S l i p p a g e , 0 , 0 , E x p e r t N a m e , M a g i c N u m b e r , 0 , c l r N O N E ) ; / / S e n d O r d e r
}
e l s e
{
/ / - - - E r r o r
S e t S t a t u s ( " ý " , " O r d e r s e n d f a i l e d . . . " ) ;
P r i n t ( _ S y m b + " O r d e r S e n d f a i l e d w i t h e r r o r # 1 3 1 [ I n v a l i d t r a d e v o l u m e ] " ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
/ / - - -
S l e e p ( E r r o r I n t e r v a l ) ;
R e s e t S t a t u s ( ) ;
r e t u r n ;
}
/ / - - -
i f ( o p _ t k t < 0 )
{
/ / - - - E r r o r
S e t S t a t u s ( " ý " , " O r d e r s e n d f a i l e d . . . " ) ;
P r i n t ( _ S y m b + " O r d e r S e n d f a i l e d w i t h e r r o r # " , _ L a s t E r r o r ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
/ / - - -
S l e e p ( E r r o r I n t e r v a l ) ;
R e s e t S t a t u s ( ) ;
r e t u r n ;
}
e l s e
{
/ / - - - S u c c e e d e d
e x _ t i m e = G e t T i c k C o u n t ( ) - t i c k ; / / C a l c E x e T i m e
s l i p p a g e = ( r q _ p r i c e - P r i c e B y T k t ( O P E N P R I C E , o p _ t k t ) ) / P t s ; / / C a l c S l i p p a g e
P r i n t ( _ S y m b + " O r d e r S e n d p l a c e d s u c c e s s f u l l y ( O p e n B u y ) " + " # " + I n t e g e r T o S t r i n g ( o p _ t k t ) + " | E x e c u c t i o n T i m e : " + I n t e g e r T o S t r i n g ( e x _ t i m e ) + " m s " + " | S l i p p a g e : " + D o u b l e T o S t r i n g ( s l i p p a g e , 0 ) + " p " ) ;
_ P l a y S o u n d ( " b u y . w a v " ) ;
/ / - - - S L
i f ( S t o p L o s s > 0 & & S t o p L o s s > = M i n S t o p )
{
i f ( O r d e r S e l e c t ( o p _ t k t , S E L E C T _ B Y _ T I C K E T , M O D E _ T R A D E S ) )
{
i f ( ! O r d e r M o d i f y ( O r d e r T i c k e t ( ) , O r d e r O p e n P r i c e ( ) , O r d e r O p e n P r i c e ( ) - S t o p L o s s * P t s , O r d e r T a k e P r o f i t ( ) , 0 , c l r N O N E ) )
{
/ / - - - E r r o r
P r i n t ( _ S y m b + " E r r o r i n O r d e r M o d i f y . E r r o r c o d e = " , _ L a s t E r r o r ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
}
e l s e
{
/ / - - - S u c c e e d e d
/ / P r i n t ( " O r d e r m o d i f i e d s u c c e s s f u l l y " ) ;
}
}
}
/ / - - - _ T P
i f ( T a k e P r o f i t > 0 & & T a k e P r o f i t > = M i n S t o p )
{
/ / - - -
i f ( O r d e r S e l e c t ( o p _ t k t , S E L E C T _ B Y _ T I C K E T , M O D E _ T R A D E S ) )
{
/ / - - -
i f ( ! O r d e r M o d i f y ( O r d e r T i c k e t ( ) , O r d e r O p e n P r i c e ( ) , O r d e r S t o p L o s s ( ) , O r d e r O p e n P r i c e ( ) + T a k e P r o f i t * P t s , 0 , c l r N O N E ) )
{
/ / - - - E r r o r
P r i n t ( _ S y m b + " E r r o r i n O r d e r M o d i f y . E r r o r c o d e = " , _ L a s t E r r o r ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
}
e l s e
{
/ / - - - S u c c e e d e d
/ / P r i n t ( " O r d e r m o d i f i e d s u c c e s s f u l l y " ) ;
}
}
}
}
/ / - - -
}
e l s e
{
/ / - - - N o t E n o u g h M o n e y
S e t S t a t u s ( " ý " , " N o t e n o u g h m o n e y . . . " ) ;
P r i n t ( " ' " , A c c o u n t I n f o I n t e g e r ( A C C O U N T _ L O G I N ) , " ' : " , " o r d e r # 0 b u y " , D o u b l e T o S t r i n g ( L o t S i z e , 2 ) , " " , _ S y m b , " [ N o t e n o u g h m o n e y ] " ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
S l e e p ( E r r o r I n t e r v a l ) ;
R e s e t S t a t u s ( ) ;
r e t u r n ;
}
/ / - - -
}
e l s e
{
/ / - - - I n v a l i d S t o p
S e t S t a t u s ( " ý " , " I n v a l i d t a k e p r o f i t . . . " ) ;
P r i n t ( " ' " , A c c o u n t I n f o I n t e g e r ( A C C O U N T _ L O G I N ) , " ' : " , " o r d e r # 0 b u y " , D o u b l e T o S t r i n g ( L o t S i z e , 2 ) , " " , _ S y m b , " f a i l e d [ I n v a l i d T / P ] " ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
S l e e p ( E r r o r I n t e r v a l ) ;
R e s e t S t a t u s ( ) ;
r e t u r n ;
}
}
e l s e
{
/ / - - - I n v a l i d S t o p
S e t S t a t u s ( " ý " , " I n v a l i d s t o p l o s s . . . " ) ;
P r i n t ( " ' " , A c c o u n t I n f o I n t e g e r ( A C C O U N T _ L O G I N ) , " ' : " , " o r d e r # 0 b u y " , D o u b l e T o S t r i n g ( L o t S i z e , 2 ) , " " , _ S y m b , " f a i l e d [ I n v a l i d S / L ] " ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
S l e e p ( E r r o r I n t e r v a l ) ;
R e s e t S t a t u s ( ) ;
r e t u r n ;
}
/ / - - -
R e s e t S t a t u s ( ) ;
/ / - - -
}
}
e l s e
{
/ / - - - R e q u i r e m e n t s N o t F u l f i l l e d
i f ( ! T e r m i n a l I n f o I n t e g e r ( T E R M I N A L _ C O N N E C T E D ) )
{
S e t S t a t u s ( " ý " , " N o I n t e r n e t c o n n e c t i o n . . . " ) ;
P r i n t ( _ S y m b + " N o I n t e r n e t c o n n e c t i o n f o u n d ! P l e a s e c h e c k y o u r n e t w o r k c o n n e c t i o n a n d t r y a g a i n . " ) ;
}
/ / - - -
i f ( I s T r a d e C o n t e x t B u s y ( ) )
{
S e t S t a t u s ( " ý " , " T r a d e c o n t e x t i s b u s y . . . " ) ;
P r i n t ( _ S y m b + " T r a d e c o n t e x t i s b u s y , P l e a s e w a i t . . . " ) ;
}
/ / - - -
i f ( ! M Q L I n f o I n t e g e r ( M Q L _ T R A D E _ A L L O W E D ) )
{
S e t S t a t u s ( " ý " , " A u t o T r a d i n g i s d i s a b l e d . . . " ) ;
P r i n t ( _ S y m b + " C h e c k i f a u t o m a t e d t r a d i n g i s a l l o w e d i n t h e t e r m i n a l / p r o g r a m s e t t i n g s a n d t r y a g a i n . " ) ;
}
/ / - - -
_ P l a y S o u n d ( E r r o r S o u n d ) ;
/ / - - -
S l e e p ( E r r o r I n t e r v a l ) ;
R e s e t S t a t u s ( ) ;
r e t u r n ;
/ / - - -
}
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | O r d e r C l o s e |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O r d e r C l o s e ( c o n s t s t r i n g _ S y m b )
{
/ / - - -
d o u b l e o r d p r o f i t = 0 , o r d l o t s = 0 ;
/ / - - -
i n t c _ t k t = 0 , o r d t y p e = 0 ;
u i n t t i c k = 0 , e x _ t i m e = 0 ;
/ / - - -
d o u b l e r q _ p r i c e = 0 , s l i p p a g e = 0 ;
/ / - - -
s t r i n g o r d t y p e s t r = " \ n " ;
/ / - - - r e s e t t h e e r r o r v a l u e
R e s e t L a s t E r r o r ( ) ;
/ / - - - C h e c k O r d C l o s e R e q u i r e m e n t s
i f ( M Q L I n f o I n t e g e r ( M Q L _ T R A D E _ A L L O W E D ) & & ! I s T r a d e C o n t e x t B u s y ( ) & & T e r m i n a l I n f o I n t e g e r ( T E R M I N A L _ C O N N E C T E D ) )
{
/ / - - - S e l e c t O r d e r
f o r ( i n t i = O r d e r s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
/ / - - -
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S ) )
{
/ / - - -
i f ( ( O r d e r S y m b o l ( ) = = _ S y m b | | _ S y m b = = I n t e g e r T o S t r i n g ( - 1 ) ) & & O r d e r M a g i c N u m b e r ( ) = = M a g i c N u m b e r )
{
/ / - - -
i f ( O r d e r T y p e ( ) < = O P _ S E L L ) / / M a r k e t O r d e r s O n l y
{
/ / - - -
o r d l o t s = O r d e r L o t s ( ) ; / / S e t L o t s
i f ( o r d l o t s > O r d e r L o t s ( ) )
o r d l o t s = O r d e r L o t s ( ) ;
/ / - - -
t i c k = G e t T i c k C o u n t ( ) ;
r q _ p r i c e = O r d e r C l o s e P r i c e ( ) ;
c _ t k t = O r d e r T i c k e t ( ) ;
o r d t y p e = O r d e r T y p e ( ) ;
o r d t y p e s t r = ( O r d e r T y p e ( ) = = O P _ S E L L ) ? o r d t y p e s t r = " S e l l " : o r d t y p e s t r = " B u y " ;
/ / - - - O n e - C l i c k T r a d i n g
i f ( ! O n e C l i c k T r a d i n g )
{
i f ( M e s s a g e B o x ( " D o y o u r e a l l y w a n t t o c l o s e t h e o r d e r b e l o w ? \ n \ n " + " S y m b o l : " + O r d e r S y m b o l ( ) + " \ n " + " O r d e r t y p e : " + o r d t y p e s t r + " \ n " + " L o t s i z e : " + D o u b l e T o S t r i n g ( o r d l o t s , 2 ) , " O r d e r C l o s e - " + M B _ C A P T I O N , M B _ I C O N Q U E S T I O N | M B _ Y E S N O ) ! = I D Y E S )
c o n t i n u e ;
}
/ / - - -
S e t S t a t u s ( " ) " , " C l o s i n g " + o r d t y p e s t r + " O r d e r . . . " ) ;
/ / - - -
i f ( ! O r d e r C l o s e ( O r d e r T i c k e t ( ) , o r d l o t s , r q _ p r i c e , 0 , C O L O R _ C L O S E ) )
{
/ / - - - E r r o r
S e t S t a t u s ( " ý " , " O r d e r c l o s e f a i l e d . . . " ) ;
P r i n t ( _ S y m b + " O r d e r C l o s e f a i l e d w i t h e r r o r # " , _ L a s t E r r o r ) ;
_ P l a y S o u n d ( E r r o r S o u n d ) ;
S l e e p ( E r r o r I n t e r v a l ) ;
R e s e t S t a t u s ( ) ;
r e t u r n ;
}
e l s e
{
/ / - - - S u c c e e d e d
e x _ t i m e = G e t T i c k C o u n t ( ) - t i c k ; / / C a l c E x e T i m e
s l i p p a g e = ( o r d t y p e = = O P _ S E L L ) ? ( P r i c e B y T k t ( C L O S E P R I C E , c _ t k t ) - r q _ p r i c e ) / _ P o i n t : ( r q _ p r i c e - P r i c e B y T k t ( C L O S E P R I C E , c _ t k t ) ) / _ P o i n t ; / / C a l c S l i p p a g e
P r i n t ( O r d e r S y m b o l ( ) + " O r d e r c l o s e d s u c c e s s f u l l y " + " ( C l o s e " + o r d t y p e s t r + " ) " + " # " + I n t e g e r T o S t r i n g ( c _ t k t ) + " | E x e c u c t i o n T i m e : " + I n t e g e r T o S t r i n g ( e x _ t i m e ) + " m s " + " | " + " S l i p p a g e : " + D o u b l e T o S t r i n g ( s l i p p a g e , 0 ) + " p " ) ;
S e t S t a t u s ( " þ " , " O r d e r s u c c e s s f u l l y c l o s e d . . . " ) ;
_ P l a y S o u n d ( " c l o s e . w a v " ) ;
}
/ / - - -
R e s e t S t a t u s ( ) ;
/ / - - -
}
}
}
}
/ / - - -
}
e l s e
{
/ / - - - R e q u i r e m e n t s N o t F u l f i l l e d
i f ( ! T e r m i n a l I n f o I n t e g e r ( T E R M I N A L _ C O N N E C T E D ) )
{
S e t S t a t u s ( " ý " , " N o I n t e r n e t c o n n e c t i o n . . . " ) ;
P r i n t ( _ S y m b + " N o I n t e r n e t c o n n e c t i o n f o u n d ! P l e a s e c h e c k y o u r n e t w o r k c o n n e c t i o n a n d t r y a g a i n . " ) ;
}
/ / - - -
i f ( I s T r a d e C o n t e x t B u s y ( ) )
{
S e t S t a t u s ( " ý " , " T r a d e c o n t e x t i s b u s y . . . " ) ;
P r i n t ( _ S y m b + " T r a d e c o n t e x t i s b u s y , P l e a s e w a i t . . . " ) ;
}
/ / - - -
i f ( ! M Q L I n f o I n t e g e r ( M Q L _ T R A D E _ A L L O W E D ) )
{
S e t S t a t u s ( " ý " , " A u t o T r a d i n g i s d i s a b l e d . . . " ) ;
P r i n t ( _ S y m b + " C h e c k i f a u t o m a t e d t r a d i n g i s a l l o w e d i n t h e t e r m i n a l / p r o g r a m s e t t i n g s a n d t r y a g a i n . " ) ;
}
/ / - - -
_ P l a y S o u n d ( E r r o r S o u n d ) ;
/ / - - -
S l e e p ( E r r o r I n t e r v a l ) ;
R e s e t S t a t u s ( ) ;
r e t u r n ;
}
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | F l o a t i n g P o i n t s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e F l o a t i n g P o i n t s ( c o n s t s t r i n g _ S y m b )
{
/ / - - -
d o u b l e s e l l p t s = 0 , b u y p t s = 0 , P t s = S y m b o l I n f o D o u b l e ( _ S y m b , S Y M B O L _ P O I N T ) ;
/ / - - -
f o r ( i n t i = O r d e r s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
/ / - - -
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S ) )
{
/ / - - -
i f ( O r d e r S y m b o l ( ) = = _ S y m b & & O r d e r M a g i c N u m b e r ( ) = = M a g i c N u m b e r )
{
/ / - - -
i f ( O r d e r T y p e ( ) = = O P _ S E L L )
s e l l p t s + = ( O r d e r O p e n P r i c e ( ) - O r d e r C l o s e P r i c e ( ) ) / P t s ;
/ / - - -
i f ( O r d e r T y p e ( ) = = O P _ B U Y )
b u y p t s + = ( O r d e r C l o s e P r i c e ( ) - O r d e r O p e n P r i c e ( ) ) / P t s ;
}
}
}
/ / - - -
r e t u r n ( s e l l p t s + b u y p t s ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | F l o a t i n g P r o f i t s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e F l o a t i n g P r o f i t s ( c o n s t s t r i n g _ S y m b )
{
/ / - - -
d o u b l e p r o f i t = 0 ;
/ / - - -
f o r ( i n t i = O r d e r s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
/ / - - -
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S ) )
{
/ / - - -
i f ( O r d e r S y m b o l ( ) = = _ S y m b & & O r d e r M a g i c N u m b e r ( ) = = M a g i c N u m b e r )
{
/ / - - -
i f ( O r d e r T y p e ( ) < = O P _ S E L L ) / / M a r k e t O r d e r s O n l y
p r o f i t + = O r d e r P r o f i t ( ) + O r d e r C o m m i s s i o n ( ) + O r d e r S w a p ( ) ;
}
}
}
/ / - - -
r e t u r n ( p r o f i t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | F l o a t i n g R e t u r n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e F l o a t i n g R e t u r n ( c o n s t s t r i n g _ S y m b )
{
/ / - - -
d o u b l e p e r c e n t = 0 ;
/ / - - - C a l c R e t u r n ( R O I )
i f ( A c c o u n t I n f o D o u b l e ( A C C O U N T _ B A L A N C E ) ! = 0 ) / / A v o i d Z e r o D i v i d e
p e r c e n t = F l o a t i n g P r o f i t s ( _ S y m b ) * 1 0 0 / A c c o u n t I n f o D o u b l e ( A C C O U N T _ B A L A N C E ) ;
/ / - - -
r e t u r n ( p e r c e n t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | T o t a l F l o a t i n g P o i n t s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e T o t a l F l o a t i n g P o i n t s ( )
{
/ / - - -
d o u b l e c n t = 0 ;
/ / - - -
f o r ( i n t i = 0 ; i < A r r a y S i z e ( a S y m b o l s ) ; i + + )
c n t + = F l o a t i n g P o i n t s ( P r e f i x + a S y m b o l s [ i ] + S u f f i x ) ;
/ / - - -
r e t u r n ( c n t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | T o t a l F l o a t i n g P r o f i t s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e T o t a l F l o a t i n g P r o f i t s ( )
{
/ / - - -
d o u b l e c n t = 0 ;
/ / - - -
f o r ( i n t i = 0 ; i < A r r a y S i z e ( a S y m b o l s ) ; i + + )
c n t + = F l o a t i n g P r o f i t s ( P r e f i x + a S y m b o l s [ i ] + S u f f i x ) ;
/ / - - -
r e t u r n ( c n t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | T o t a l R e t u r n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e T o t a l R e t u r n ( )
{
/ / - - -
d o u b l e p e r c e n t = 0 ;
/ / - - - C a l c R e t u r n ( R O I )
i f ( A c c o u n t I n f o D o u b l e ( A C C O U N T _ B A L A N C E ) ! = 0 ) / / A v o i d Z e r o D i v i d e
p e r c e n t = T o t a l F l o a t i n g P r o f i t s ( ) * 1 0 0 / A c c o u n t I n f o D o u b l e ( A C C O U N T _ B A L A N C E ) ;
/ / - - -
r e t u r n ( p e r c e n t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | O p e n P o s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t O p e n P o s ( c o n s t s t r i n g _ S y m b , c o n s t i n t T y p e )
{
/ / - - -
i n t c o u n t = 0 ;
/ / - - -
f o r ( i n t i = 0 ; i < O r d e r s T o t a l ( ) ; i + + )
{
/ / - - -
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S ) )
{
/ / - - -
i f ( ( O r d e r S y m b o l ( ) = = _ S y m b | | _ S y m b = = I n t e g e r T o S t r i n g ( - 1 ) ) & & O r d e r M a g i c N u m b e r ( ) = = M a g i c N u m b e r )
{
/ / - - -
i f ( O r d e r T y p e ( ) = = O P _ S E L L & & T y p e = = O P _ S E L L )
c o u n t + + ;
/ / - - -
i f ( O r d e r T y p e ( ) = = O P _ B U Y & & T y p e = = O P _ B U Y )
c o u n t + + ;
/ / - - -
i f ( O r d e r T y p e ( ) < = O P _ S E L L & & T y p e = = O P _ A L L )
c o u n t + + ;
}
}
}
/ / - - -
r e t u r n ( c o u n t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | O p e n L o t s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e O p e n L o t s ( c o n s t s t r i n g _ S y m b , c o n s t i n t T y p e )
{
/ / - - -
d o u b l e c o u n t = 0 ;
/ / - - -
f o r ( i n t i = 0 ; i < O r d e r s T o t a l ( ) ; i + + )
{
/ / - - -
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ T R A D E S ) )
{
/ / - - -
i f ( ( O r d e r S y m b o l ( ) = = _ S y m b | | _ S y m b = = I n t e g e r T o S t r i n g ( - 1 ) ) & & O r d e r M a g i c N u m b e r ( ) = = M a g i c N u m b e r )
{
/ / - - -
i f ( O r d e r T y p e ( ) = = O P _ S E L L & & T y p e = = O P _ S E L L )
c o u n t + = O r d e r L o t s ( ) ;
/ / - - -
i f ( O r d e r T y p e ( ) = = O P _ B U Y & & T y p e = = O P _ B U Y )
c o u n t + = O r d e r L o t s ( ) ;
/ / - - -
i f ( O r d e r T y p e ( ) < = O P _ S E L L & & T y p e = = O P _ A L L )
c o u n t + = O r d e r L o t s ( ) ;
}
}
}
/ / - - -
r e t u r n ( c o u n t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | L e v e r a g e |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g L e v e r a g e ( )
{
/ / - - -
s t r i n g r e s u l t = " " ;
/ / - - -
d o u b l e e q u i t y = A c c o u n t I n f o D o u b l e ( A C C O U N T _ E Q U I T Y ) ;
d o u b l e m a r g i n _ u s e d = A c c o u n t I n f o D o u b l e ( A C C O U N T _ M A R G I N ) ;
i n t l e v e r a g e = ( i n t ) A c c o u n t I n f o I n t e g e r ( A C C O U N T _ L E V E R A G E ) ;
d o u b l e r e a l _ l e v e r a g e = m a r g i n _ u s e d / e q u i t y * l e v e r a g e ;
/ / - - -
i f ( r e a l _ l e v e r a g e = = 0 )
r e s u l t = " 1 : " + I n t e g e r T o S t r i n g ( A c c o u n t I n f o I n t e g e r ( A C C O U N T _ L E V E R A G E ) ) ;
e l s e
r e s u l t = " 1 : " + D o u b l e T o S t r i n g ( r e a l _ l e v e r a g e , 0 ) ;
/ / - - -
r e t u r n ( r e s u l t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | S y m b P e r c |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e S y m b P e r c ( s t r i n g _ S y m b )
{
/ / - - -
d o u b l e p e r c e n t = 0 , r a n g e = i H i g h ( _ S y m b , C a l c T F , 0 ) - i L o w ( _ S y m b , C a l c T F , 0 ) ;
/ / - - -
i f ( r a n g e ! = 0 )
p e r c e n t = 1 0 0 * ( ( i C l o s e ( _ S y m b , C a l c T F , 0 ) - i L o w ( _ S y m b , C a l c T F , 0 ) ) / r a n g e ) ;
/ / - - -
r e t u r n ( p e r c e n t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | ± S t r |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g ± S t r ( d o u b l e I n p , i n t P r e c i s i o n )
{
/ / - - - P o s i t i v e V a l u e
i f ( I n p > 0 )
r e t u r n ( " + " + D o u b l e T o S t r i n g ( I n p , P r e c i s i o n ) ) ;
/ / - - - N e g a t i v e V a l u e
e l s e
r e t u r n ( D o u b l e T o S t r i n g ( I n p , P r e c i s i o n ) ) ;
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | ± C l r |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
c o l o r ± C l r ( d o u b l e I n p )
{
/ / - - -
c o l o r c l r = c l r N O N E ;
/ / - - - P o s i t i v e V a l u e
i f ( I n p > 0 )
c l r = C O L O R _ G R E E N ;
/ / - - - N e g a t i v e V a l u e
i f ( I n p < 0 )
c l r = C O L O R _ R E D ;
/ / - - - N e u t r a l V a l u e
i f ( I n p = = 0 )
c l r = C O L O R _ F O N T ;
/ / - - -
r e t u r n ( c l r ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | ± C l r B R |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
c o l o r ± C l r B R ( d o u b l e I n p )
{
/ / - - -
c o l o r c l r = c l r N O N E ;
/ / - - - P o s i t i v e V a l u e
i f ( I n p > 0 )
c l r = C O L O R _ B U Y ;
/ / - - - N e g a t i v e V a l u e
i f ( I n p < 0 )
c l r = C O L O R _ S E L L ;
/ / - - - N e u t r a l V a l u e
i f ( I n p = = 0 )
c l r = C O L O R _ F O N T ;
/ / - - -
r e t u r n ( c l r ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | D e p o s i t s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e D e p o s i t s ( )
{
/ / - - -
d o u b l e t o t a l = 0 ;
/ / - - -
f o r ( i n t i = 0 ; i < O r d e r s H i s t o r y T o t a l ( ) ; i + + )
{
/ / - - -
i f ( O r d e r S e l e c t ( i , S E L E C T _ B Y _ P O S , M O D E _ H I S T O R Y ) )
{
/ / - - -
i f ( O r d e r T y p e ( ) > 5 & & O r d e r P r o f i t ( ) > 0 )
t o t a l + = O r d e r P r o f i t ( ) ;
}
}
/ / - - -
r e t u r n ( t o t a l ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | _ A c c o u n t C u r r e n c y |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g _ A c c o u n t C u r r e n c y ( )
{
/ / - - -
s t r i n g t x t = " " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " A U D " )
t x t = " $ " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " B G N " )
t x t = " B " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " C A D " )
t x t = " $ " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " C H F " )
t x t = " F " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " C O P " )
t x t = " $ " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " C R C " )
t x t = " ¡ " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " C U P " )
t x t = " ± " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " C Z K " )
t x t = " K " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " E U R " )
t x t = " ¬ " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " G B P " )
t x t = " £ " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " G H S " )
t x t = " ¢ " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " H K D " )
t x t = " $ " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " J P Y " )
t x t = " ¥ " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " N G N " )
t x t = " ¦ " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " N O K " )
t x t = " k " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " N Z D " )
t x t = " $ " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " U S D " )
t x t = " $ " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " R U B " )
t x t = " ½ " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " S G D " )
t x t = " $ " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " Z A R " )
t x t = " R " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " S E K " )
t x t = " k " ;
/ / - - -
i f ( A c c o u n t I n f o S t r i n g ( A C C O U N T _ C U R R E N C Y ) = = " V N D " )
t x t = " « " ;
/ / - - -
i f ( t x t = = " " )
t x t = " $ " ;
/ / - - -
r e t u r n ( t x t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | _ D a y O f W e e k |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g _ D a y O f W e e k ( )
{
/ / - - -
s t r i n g t x t = " \ n " ;
/ / - - -
i f ( T i m e D a y O f W e e k ( T i m e L o c a l ( ) ) = = 0 )
t x t = " S u n d a y " ;
/ / - - -
i f ( T i m e D a y O f W e e k ( T i m e L o c a l ( ) ) = = 1 )
t x t = " M o n d a y " ;
/ / - - -
i f ( T i m e D a y O f W e e k ( T i m e L o c a l ( ) ) = = 2 )
t x t = " T u e s d a y " ;
/ / - - -
i f ( T i m e D a y O f W e e k ( T i m e L o c a l ( ) ) = = 3 )
t x t = " W e d n e s d a y " ;
/ / - - -
i f ( T i m e D a y O f W e e k ( T i m e L o c a l ( ) ) = = 4 )
t x t = " T h u r s d a y " ;
/ / - - -
i f ( T i m e D a y O f W e e k ( T i m e L o c a l ( ) ) = = 5 )
t x t = " F r i d a y " ;
/ / - - -
i f ( T i m e D a y O f W e e k ( T i m e L o c a l ( ) ) = = 6 )
t x t = " S a t u r d a y " ;
/ / - - -
r e t u r n ( t x t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | _ M o n t h |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g _ M o n t h ( )
{
/ / - - -
s t r i n g t x t = " \ n " ;
/ / - - -
i f ( T i m e M o n t h ( T i m e L o c a l ( ) ) = = 1 )
t x t = " J a n u a r y " ;
/ / - - -
i f ( T i m e M o n t h ( T i m e L o c a l ( ) ) = = 2 )
t x t = " F e b r u a r y " ;
/ / - - -
i f ( T i m e M o n t h ( T i m e L o c a l ( ) ) = = 3 )
t x t = " M a r c h " ;
/ / - - -
i f ( T i m e M o n t h ( T i m e L o c a l ( ) ) = = 4 )
t x t = " A p r i l " ;
/ / - - -
i f ( T i m e M o n t h ( T i m e L o c a l ( ) ) = = 5 )
t x t = " M a y " ;
/ / - - -
i f ( T i m e M o n t h ( T i m e L o c a l ( ) ) = = 6 )
t x t = " J u n e " ;
/ / - - -
i f ( T i m e M o n t h ( T i m e L o c a l ( ) ) = = 7 )
t x t = " J u l y " ;
/ / - - -
i f ( T i m e M o n t h ( T i m e L o c a l ( ) ) = = 8 )
t x t = " A u g u s t " ;
/ / - - -
i f ( T i m e M o n t h ( T i m e L o c a l ( ) ) = = 9 )
t x t = " S e p t e m b e r " ;
/ / - - -
i f ( T i m e M o n t h ( T i m e L o c a l ( ) ) = = 1 0 )
t x t = " O c t o b e r " ;
/ / - - -
i f ( T i m e M o n t h ( T i m e L o c a l ( ) ) = = 1 1 )
t x t = " N o v e m b e r " ;
/ / - - -
i f ( T i m e M o n t h ( T i m e L o c a l ( ) ) = = 1 2 )
t x t = " D e c e m b e r " ;
/ / - - -
r e t u r n ( t x t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | P r i c e B y T k t |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e P r i c e B y T k t ( c o n s t i n t T y p e , c o n s t i n t T i c k e t )
{
/ / - - -
d o u b l e p r i c e = 0 ;
/ / - - -
i f ( O r d e r S e l e c t ( T i c k e t , S E L E C T _ B Y _ T I C K E T , M O D E _ T R A D E S ) )
{
/ / - - -
i f ( T y p e = = O P E N P R I C E )
p r i c e = O r d e r O p e n P r i c e ( ) ;
/ / - - -
i f ( T y p e = = C L O S E P R I C E )
p r i c e = O r d e r C l o s e P r i c e ( ) ;
}
/ / - - -
r e t u r n ( p r i c e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | S y m b o l F i n d |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l S y m b o l F i n d ( c o n s t s t r i n g _ S y m b , i n t m o d e )
{
/ / - - -
b o o l r e s u l t = f a l s e ;
/ / - - -
f o r ( i n t i = 0 ; i < S y m b o l s T o t a l ( m o d e ) ; i + + )
{
/ / - - -
i f ( _ S y m b = = S y m b o l N a m e ( i , m o d e ) )
{
r e s u l t = t r u e ; / / S y m b o l F o u n d
b r e a k ;
}
}
/ / - - -
r e t u r n ( r e s u l t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | A U D |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e A U D ( )
{
/ / - - -
d o u b l e d b l = 0 ;
/ / - - -
d b l = ( S y m b P e r c ( P r e f i x + " A U D J P Y " + S u f f i x ) + S y m b P e r c ( P r e f i x + " A U D N Z D " + S u f f i x ) + S y m b P e r c ( P r e f i x + " A U D U S D " + S u f f i x ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " E U R A U D " + S u f f i x ) ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " G B P A U D " + S u f f i x ) ) + S y m b P e r c ( P r e f i x + " A U D C H F " + S u f f i x ) + S y m b P e r c ( P r e f i x + " A U D C A D " + S u f f i x ) ) / 7 . 0 ;
/ / - - -
r e t u r n ( ( d o u b l e ) D o u b l e T o S t r i n g ( d b l , 0 ) ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C A D |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e C A D ( )
{
/ / - - -
d o u b l e d b l = 0 ;
/ / - - -
d b l = ( S y m b P e r c ( P r e f i x + " C A D J P Y " + S u f f i x ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " N Z D C A D " + S u f f i x ) ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " U S D C A D " + S u f f i x ) ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " E U R C A D " + S u f f i x ) ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " G B P C A D " + S u f f i x ) ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " A U D C A D " + S u f f i x ) ) + S y m b P e r c ( P r e f i x + " C A D C H F " + S u f f i x ) ) / 7 . 0 ;
/ / - - -
r e t u r n ( ( d o u b l e ) D o u b l e T o S t r i n g ( d b l , 0 ) ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C H F |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e C H F ( )
{
/ / - - -
d o u b l e d b l = 0 ;
/ / - - -
d b l = ( S y m b P e r c ( P r e f i x + " C H F J P Y " + S u f f i x ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " N Z D C H F " + S u f f i x ) ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " U S D C H F " + S u f f i x ) ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " E U R C H F " + S u f f i x ) ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " G B P C H F " + S u f f i x ) ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " A U D C H F " + S u f f i x ) ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " C A D C H F " + S u f f i x ) ) ) / 7 . 0 ;
/ / - - -
r e t u r n ( ( d o u b l e ) D o u b l e T o S t r i n g ( d b l , 0 ) ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | E U R |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e E U R ( )
{
/ / - - -
d o u b l e d b l = 0 ;
/ / - - -
d b l = ( S y m b P e r c ( P r e f i x + " E U R J P Y " + S u f f i x ) + S y m b P e r c ( P r e f i x + " E U R N Z D " + S u f f i x ) + S y m b P e r c ( P r e f i x + " E U R U S D " + S u f f i x ) + S y m b P e r c ( P r e f i x + " E U R C A D " + S u f f i x ) + S y m b P e r c ( P r e f i x + " E U R G B P " + S u f f i x ) + S y m b P e r c ( P r e f i x + " E U R A U D " + S u f f i x ) + S y m b P e r c ( P r e f i x + " E U R C H F " + S u f f i x ) ) / 7 . 0 ;
/ / - - -
r e t u r n ( ( d o u b l e ) D o u b l e T o S t r i n g ( d b l , 0 ) ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | G B P |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e G B P ( )
{
/ / - - -
d o u b l e d b l = 0 ;
/ / - - -
d b l = ( S y m b P e r c ( P r e f i x + " G B P J P Y " + S u f f i x ) + S y m b P e r c ( P r e f i x + " G B P N Z D " + S u f f i x ) + S y m b P e r c ( P r e f i x + " G B P U S D " + S u f f i x ) + S y m b P e r c ( P r e f i x + " G B P C A D " + S u f f i x ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " E U R G B P " + S u f f i x ) ) + S y m b P e r c ( P r e f i x + " G B P A U D " + S u f f i x ) + S y m b P e r c ( P r e f i x + " G B P C H F " + S u f f i x ) ) / 7 . 0 ;
/ / - - -
r e t u r n ( ( d o u b l e ) D o u b l e T o S t r i n g ( d b l , 0 ) ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | J P Y |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e J P Y ( )
{
/ / - - -
d o u b l e d b l = 0 ;
/ / - - -
d b l = ( ( 1 0 0 - S y m b P e r c ( P r e f i x + " A U D J P Y " + S u f f i x ) ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " C H F J P Y " + S u f f i x ) ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " C A D J P Y " + S u f f i x ) ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " E U R J P Y " + S u f f i x ) ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " G B P J P Y " + S u f f i x ) ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " N Z D J P Y " + S u f f i x ) ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " U S D J P Y " + S u f f i x ) ) ) / 7 . 0 ;
/ / - - -
r e t u r n ( ( d o u b l e ) D o u b l e T o S t r i n g ( d b l , 0 ) ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | N Z D |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e N Z D ( )
{
/ / - - -
d o u b l e d b l = 0 ;
/ / - - -
d b l = ( S y m b P e r c ( P r e f i x + " N Z D J P Y " ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " G B P N Z D " + S u f f i x ) ) + S y m b P e r c ( P r e f i x + " N Z D J P Y " + S u f f i x ) + S y m b P e r c ( P r e f i x + " N Z D C A D " + S u f f i x ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " E U R N Z D " + S u f f i x ) ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " A U D N Z D " + S u f f i x ) ) + S y m b P e r c ( P r e f i x + " N Z D C H F " + S u f f i x ) ) / 7 . 0 ;
/ / - - -
r e t u r n ( ( d o u b l e ) D o u b l e T o S t r i n g ( d b l , 0 ) ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | U S D |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e U S D ( )
{
/ / - - -
d o u b l e d b l = 0 ;
/ / - - -
d b l = ( ( 1 0 0 - S y m b P e r c ( P r e f i x + " A U D U S D " + S u f f i x ) ) + S y m b P e r c ( P r e f i x + " U S D C H F " + S u f f i x ) + S y m b P e r c ( P r e f i x + " U S D C A D " + S u f f i x ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " E U R U S D " + S u f f i x ) ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " G B P U S D " + S u f f i x ) ) + S y m b P e r c ( P r e f i x + " U S D J P Y " + S u f f i x ) + ( 1 0 0 - S y m b P e r c ( P r e f i x + " N Z D U S D " + S u f f i x ) ) ) / 7 . 0 ;
/ / - - -
r e t u r n ( ( d o u b l e ) D o u b l e T o S t r i n g ( d b l , 0 ) ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | S y m b o l s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g S y m b o l s [ ] =
{
/ / - - -
" A U D C A D " ,
" A U D C H F " ,
" A U D J P Y " ,
" A U D N Z D " ,
" A U D U S D " ,
/ / - - -
" C A D C H F " ,
" C A D J P Y " ,
" C H F J P Y " ,
/ / - - -
" E U R A U D " ,
" E U R C A D " ,
" E U R C H F " ,
" E U R G B P " ,
" E U R J P Y " ,
" E U R N Z D " ,
" E U R U S D " ,
/ / - - -
" G B P A U D " ,
" G B P C A D " ,
" G B P C H F " ,
" G B P N Z D " ,
" G B P U S D " ,
" G B P J P Y " ,
/ / - - -
" N Z D C H F " ,
" N Z D C A D " ,
" N Z D J P Y " ,
" N Z D U S D " ,
/ / - - -
" U S D C A D " ,
" U S D C H F " ,
" U S D J P Y "
} ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g C u r r e n i e s [ ] =
{
" A U D " ,
" C A D " ,
" C H F " ,
" E U R " ,
" G B P " ,
" J P Y " ,
" N Z D " ,
" U S D "
} ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | S e t F u l l |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d S e t F u l l ( )
{
/ / - - -
A r r a y R e s i z e ( U s e d S y m b o l s , 2 8 , 0 ) ;
/ / - - -
U s e d S y m b o l s [ 0 ] = " A U D C A D " ;
U s e d S y m b o l s [ 1 ] = " A U D C H F " ;
U s e d S y m b o l s [ 2 ] = " A U D J P Y " ;
U s e d S y m b o l s [ 3 ] = " A U D N Z D " ;
U s e d S y m b o l s [ 4 ] = " A U D U S D " ;
/ / - - -
U s e d S y m b o l s [ 5 ] = " C A D C H F " ;
U s e d S y m b o l s [ 6 ] = " C A D J P Y " ;
U s e d S y m b o l s [ 7 ] = " C H F J P Y " ;
/ / - - -
U s e d S y m b o l s [ 8 ] = " E U R A U D " ;
U s e d S y m b o l s [ 9 ] = " E U R C A D " ;
U s e d S y m b o l s [ 1 0 ] = " E U R C H F " ;
U s e d S y m b o l s [ 1 1 ] = " E U R G B P " ;
U s e d S y m b o l s [ 1 2 ] = " E U R J P Y " ;
U s e d S y m b o l s [ 1 3 ] = " E U R N Z D " ;
U s e d S y m b o l s [ 1 4 ] = " E U R U S D " ;
/ / - - -
U s e d S y m b o l s [ 1 5 ] = " G B P A U D " ;
U s e d S y m b o l s [ 1 6 ] = " G B P C A D " ;
U s e d S y m b o l s [ 1 7 ] = " G B P C H F " ;
/ / - - -
U s e d S y m b o l s [ 1 8 ] = " G B P N Z D " ;
U s e d S y m b o l s [ 1 9 ] = " G B P U S D " ;
U s e d S y m b o l s [ 2 0 ] = " G B P J P Y " ;
/ / - - -
U s e d S y m b o l s [ 2 1 ] = " N Z D C H F " ;
U s e d S y m b o l s [ 2 2 ] = " N Z D C A D " ;
U s e d S y m b o l s [ 2 3 ] = " N Z D J P Y " ;
U s e d S y m b o l s [ 2 4 ] = " N Z D U S D " ;
/ / - - -
U s e d S y m b o l s [ 2 5 ] = " U S D C A D " ;
U s e d S y m b o l s [ 2 6 ] = " U S D C H F " ;
U s e d S y m b o l s [ 2 7 ] = " U S D J P Y " ;
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | S e t S t a t u s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d S e t S t a t u s ( s t r i n g C h a r , s t r i n g T e x t )
{
/ / - - -
C o m m e n t ( " " ) ;
/ / - - -
s t a u t s _ t i m e = T i m e L o c a l ( ) ;
/ / - - -
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S T A T U S " , O B J P R O P _ T E X T , C h a r ) ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S T A T U S « " , O B J P R O P _ T E X T , T e x t ) ;
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | R e s e t S t a t u s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d R e s e t S t a t u s ( )
{
/ / - - -
i f ( O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " S T A T U S " , O B J P R O P _ T E X T ) ! = " \ n " | | O b j e c t G e t S t r i n g ( 0 , O B J P R E F I X + " S T A T U S « " , O B J P R O P _ T E X T ) ! = " \ n " )
{
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S T A T U S " , O B J P R O P _ T E X T , " \ n " ) ;
O b j e c t S e t S t r i n g ( 0 , O B J P R E F I X + " S T A T U S « " , O B J P R O P _ T E X T , " \ n " ) ;
}
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | D p i |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t D p i ( i n t S i z e )
{
/ / - - -
i n t s c r e e n _ d p i = T e r m i n a l I n f o I n t e g e r ( T E R M I N A L _ S C R E E N _ D P I ) ;
i n t b a s e _ w i d t h = S i z e ;
i n t w i d t h = ( b a s e _ w i d t h * s c r e e n _ d p i ) / 9 6 ;
i n t s c a l e _ f a c t o r = ( T e r m i n a l I n f o I n t e g e r ( T E R M I N A L _ S C R E E N _ D P I ) * 1 0 0 ) / 9 6 ;
/ / - - -
w i d t h = ( b a s e _ w i d t h * s c a l e _ f a c t o r ) / 1 0 0 ;
/ / - - -
r e t u r n ( w i d t h ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | d S t r i n g |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g d S t r i n g ( s t r i n g t e x t )
{
/ / - - -
u c h a r i n [ ] , o u t [ ] , k e y [ ] ;
/ / - - -
S t r i n g T o C h a r A r r a y ( " H + # e F _ H e " , k e y ) ;
/ / - - -
S t r i n g T o C h a r A r r a y ( t e x t , i n , 0 , S t r i n g L e n ( t e x t ) ) ;
/ / - - -
H e x T o A r r a y ( t e x t , i n ) ;
/ / - - -
C r y p t D e c o d e ( C R Y P T _ D E S , i n , k e y , o u t ) ;
/ / - - -
s t r i n g r e s u l t = C h a r A r r a y T o S t r i n g ( o u t ) ;
/ / - - -
r e t u r n ( r e s u l t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | H e x T o A r r a y |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l H e x T o A r r a y ( s t r i n g s t r , u c h a r & a r r [ ] )
{
/ / - - - B y A n d r e w S u m n e r & A l a i n V e r l e y e n
/ / - - - h t t p s : / / w w w . m q l 5 . c o m / e n / f o r u m / 1 5 7 8 3 9 / p a g e 3
# d e f i n e H E X C H A R _ T O _ D E C C H A R ( h ) ( h < = 5 7 ? ( h - 4 8 ) : ( h - 5 5 ) )
/ / - - -
i n t s t r c o u n t = S t r i n g L e n ( s t r ) ;
i n t a r r c o u n t = A r r a y S i z e ( a r r ) ;
i f ( a r r c o u n t < s t r c o u n t / 2 ) r e t u r n f a l s e ;
/ / - - -
u c h a r t c [ ] ;
S t r i n g T o C h a r A r r a y ( s t r , t c ) ;
/ / - - -
i n t i = 0 , j = 0 ;
/ / - - -
f o r ( i = 0 ; i < s t r c o u n t ; i + = 2 )
{
/ / - - -
u c h a r t m p c h r = ( H E X C H A R _ T O _ D E C C H A R ( t c [ i ] ) < < 4 ) + H E X C H A R _ T O _ D E C C H A R ( t c [ i + 1 ] ) ;
/ / - - -
a r r [ j ] = t m p c h r ;
j + + ;
}
/ / - - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | A r r a y T o H e x |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / - - - B y A n d r e w S u m n e r & A l a i n V e r l e y e n
/ / - - - h t t p s : / / w w w . m q l 5 . c o m / e n / f o r u m / 1 5 7 8 3 9 / p a g e 3
s t r i n g A r r a y T o H e x ( u c h a r & a r r [ ] , i n t c o u n t = - 1 )
{
s t r i n g r e s = " " ;
/ / - - -
i f ( c o u n t < 0 | | c o u n t > A r r a y S i z e ( a r r ) )
c o u n t = A r r a y S i z e ( a r r ) ;
/ / - - -
f o r ( i n t i = 0 ; i < c o u n t ; i + + )
r e s + = S t r i n g F o r m a t ( " % . 2 X " , a r r [ i ] ) ;
/ / - - -
r e t u r n ( r e s ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C h a r t S e t C o l o r |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d C h a r t S e t C o l o r ( c o n s t i n t T y p e )
{
/ / - - - S e t L i g h t
i f ( T y p e = = 0 )
{
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ B A C K G R O U N D , C O L O R _ C B G _ L I G H T ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ F O R E G R O U N D , C O L O R _ F O N T ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ G R I D , c l r N O N E ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C H A R T _ U P , C O L O R _ C B G _ L I G H T ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C H A R T _ D O W N , C O L O R _ C B G _ L I G H T ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C A N D L E _ B U L L , C O L O R _ C B G _ L I G H T ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C A N D L E _ B E A R , C O L O R _ C B G _ L I G H T ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C H A R T _ L I N E , C O L O R _ C B G _ L I G H T ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ V O L U M E , C O L O R _ C B G _ L I G H T ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ A S K , c l r N O N E ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ S T O P _ L E V E L , C O L O R _ C B G _ L I G H T ) ;
/ / - - -
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 H L C , 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 _ S H O W _ A S K _ L I N E , 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 _ S H O W _ P E R I O D _ S E P , 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 _ S H O W _ G R I D , 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 _ S H O W _ V O L U M E S , 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 _ 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 _ S H O W _ T R A D E _ L E V E L S , f a l s e ) ;
}
/ / - - - S e t D a r k
i f ( T y p e = = 1 )
{
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ B A C K G R O U N D , C O L O R _ C B G _ D A R K ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ F O R E G R O U N D , C O L O R _ F O N T ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ G R I D , c l r N O N E ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C H A R T _ U P , C O L O R _ C B G _ D A R K ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C H A R T _ D O W N , C O L O R _ C B G _ D A R K ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C A N D L E _ B U L L , C O L O R _ C B G _ D A R K ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C A N D L E _ B E A R , C O L O R _ C B G _ D A R K ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C H A R T _ L I N E , C O L O R _ C B G _ D A R K ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ V O L U M E , C O L O R _ C B G _ D A R K ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ A S K , c l r N O N E ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ S T O P _ L E V E L , C O L O R _ C B G _ D A R K ) ;
/ / - - -
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 H L C , 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 _ S H O W _ A S K _ L I N E , 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 _ S H O W _ P E R I O D _ S E P , 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 _ S H O W _ G R I D , 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 _ S H O W _ V O L U M E S , 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 _ 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 _ S H O W _ T R A D E _ L E V E L S , f a l s e ) ;
}
/ / - - - S e t O r i g i n a l
i f ( T y p e = = 2 )
{
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ B A C K G R O U N D , C h a r t C o l o r _ B G ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ F O R E G R O U N D , C h a r t C o l o r _ F G ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ G R I D , C h a r t C o l o r _ G D ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C H A R T _ U P , C h a r t C o l o r _ U P ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C H A R T _ D O W N , C h a r t C o l o r _ D W N ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C A N D L E _ B U L L , C h a r t C o l o r _ B U L L ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C A N D L E _ B E A R , C h a r t C o l o r _ B E A R ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C H A R T _ L I N E , C h a r t C o l o r _ L I N E ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ V O L U M E , C h a r t C o l o r _ V O L ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ A S K , C h a r t C o l o r _ A S K ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ S T O P _ L E V E L , C h a r t C o l o r _ L V L ) ;
/ / - - -
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 H L C , C h a r t C o l o r _ O H L C ) ;
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 _ A S K _ L I N E , C h a r t C o l o r _ A S K L I N 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 _ P E R I O D _ S E P , C h a r t C o l o r _ P E R I O D S E P ) ;
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 _ G R I D , C h a r t C o l o r _ G R I D ) ;
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 _ V O L U M E S , C h a r t C o l o r _ S H O W V O L ) ;
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 , C h a r t C o l o r _ O B J D E S C R ) ;
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 _ T R A D E _ L E V E L S , C h a r t C o l o r _ T R A D E L V L ) ;
}
/ / - - -
i f ( T y p e = = 3 )
{
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ B A C K G R O U N D , c l r W h i t e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ F O R E G R O U N D , c l r B l a c k ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ G R I D , c l r S i l v e r ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C H A R T _ U P , c l r B l a c k ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C H A R T _ D O W N , c l r B l a c k ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C A N D L E _ B U L L , c l r W h i t e ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C A N D L E _ B E A R , c l r B l a c k ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C H A R T _ L I N E , c l r B l a c k ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ V O L U M E , c l r G r e e n ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ A S K , c l r O r a n g e R e d ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ C O L O R _ S T O P _ L E V E L , c l r O r a n g e R e d ) ;
/ / - - -
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 H L C , 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 _ S H O W _ A S K _ L I N E , 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 _ S H O W _ P E R I O D _ S E P , 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 _ S H O W _ G R I D , 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 _ S H O W _ V O L U M E S , 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 _ 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 G e t C o l o r |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / - - - - O r i g i n a l T e m p l a t e
c o l o r C h a r t C o l o r _ B G = 0 , C h a r t C o l o r _ F G = 0 , C h a r t C o l o r _ G D = 0 , C h a r t C o l o r _ U P = 0 , C h a r t C o l o r _ D W N = 0 , C h a r t C o l o r _ B U L L = 0 , C h a r t C o l o r _ B E A R = 0 , C h a r t C o l o r _ L I N E = 0 , C h a r t C o l o r _ V O L = 0 , C h a r t C o l o r _ A S K = 0 , C h a r t C o l o r _ L V L = 0 ;
/ / - - -
b o o l C h a r t C o l o r _ O H L C = f a l s e , C h a r t C o l o r _ A S K L I N E = f a l s e , C h a r t C o l o r _ P E R I O D S E P = f a l s e , C h a r t C o l o r _ G R I D = f a l s e , C h a r t C o l o r _ S H O W V O L = f a l s e , C h a r t C o l o r _ O B J D E S C R = f a l s e , C h a r t C o l o r _ T R A D E L V L = f a l s e ;
/ / - - - -
v o i d C h a r t G e t C o l o r ( )
{
C h a r t C o l o r _ B G = ( c o l o r ) C h a r t G e t I n t e g e r ( 0 , C H A R T _ C O L O R _ B A C K G R O U N D , 0 ) ;
C h a r t C o l o r _ F G = ( c o l o r ) C h a r t G e t I n t e g e r ( 0 , C H A R T _ C O L O R _ F O R E G R O U N D , 0 ) ;
C h a r t C o l o r _ G D = ( c o l o r ) C h a r t G e t I n t e g e r ( 0 , C H A R T _ C O L O R _ G R I D , 0 ) ;
C h a r t C o l o r _ U P = ( c o l o r ) C h a r t G e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C H A R T _ U P , 0 ) ;
C h a r t C o l o r _ D W N = ( c o l o r ) C h a r t G e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C H A R T _ D O W N , 0 ) ;
C h a r t C o l o r _ B U L L = ( c o l o r ) C h a r t G e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C A N D L E _ B U L L , 0 ) ;
C h a r t C o l o r _ B E A R = ( c o l o r ) C h a r t G e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C A N D L E _ B E A R , 0 ) ;
C h a r t C o l o r _ L I N E = ( c o l o r ) C h a r t G e t I n t e g e r ( 0 , C H A R T _ C O L O R _ C H A R T _ L I N E , 0 ) ;
C h a r t C o l o r _ V O L = ( c o l o r ) C h a r t G e t I n t e g e r ( 0 , C H A R T _ C O L O R _ V O L U M E , 0 ) ;
C h a r t C o l o r _ A S K = ( c o l o r ) C h a r t G e t I n t e g e r ( 0 , C H A R T _ C O L O R _ A S K , 0 ) ;
C h a r t C o l o r _ L V L = ( c o l o r ) C h a r t G e t I n t e g e r ( 0 , C H A R T _ C O L O R _ S T O P _ L E V E L , 0 ) ;
/ / - - -
C h a r t C o l o r _ O H L C = C h a r t G e t I n t e g e r ( 0 , C H A R T _ S H O W _ O H L C , 0 ) ;
C h a r t C o l o r _ A S K L I N E = C h a r t G e t I n t e g e r ( 0 , C H A R T _ S H O W _ A S K _ L I N E , 0 ) ;
C h a r t C o l o r _ P E R I O D S E P = C h a r t G e t I n t e g e r ( 0 , C H A R T _ S H O W _ P E R I O D _ S E P , 0 ) ;
C h a r t C o l o r _ G R I D = C h a r t G e t I n t e g e r ( 0 , C H A R T _ S H O W _ G R I D , 0 ) ;
C h a r t C o l o r _ S H O W V O L = C h a r t G e t I n t e g e r ( 0 , C H A R T _ S H O W _ V O L U M E S , 0 ) ;
C h a r t C o l o r _ O B J D E S C R = C h a r t G 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 , 0 ) ;
C h a r t C o l o r _ T R A D E L V L = C h a r t G e t I n t e g e r ( 0 , C H A R T _ S H O W _ T R A D E _ L E V E L S , 0 ) ;
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C h a r t M i d d l e X |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t C h a r t M i d d l e X ( )
{
r e t u r n ( ( i n t ) C h a r t G e t I n t e g e r ( 0 , C H A R T _ W I D T H _ I N _ P I X E L S ) / 2 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C h a r t M i d d l e Y |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t C h a r t M i d d l e Y ( )
{
r e t u r n ( ( i n t ) C h a r t G e t I n t e g e r ( 0 , C H A R T _ H E I G H T _ I N _ P I X E L S ) / 2 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C r e a t e r e c t a n g l e l a b e l |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / h t t p s : / / d o c s . m q l 4 . c o m / c o n s t a n t s / o b j e c t c o n s t a n t s / e n u m _ o b j e c t / o b j _ r e c t a n g l e _ l a b e l
b o o l R e c t 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 , / / c h a r t ' s I D
c o n s t s t r i n g n a m e = " R e c t L a b e l " , / / l a b e l n a m e
c o n s t i n t s u b _ w i n d o w = 0 , / / s u b w i n d o w i n d e x
c o n s t i n t x = 0 , / / X c o o r d i n a t e
c o n s t i n t y = 0 , / / Y c o o r d i n a t e
c o n s t i n t w i d t h = 5 0 , / / w i d t h
c o n s t i n t h e i g h t = 1 8 , / / h e i g h t
c o n s t c o l o r b a c k _ c l r = C ' 2 3 6 , 2 3 3 , 2 1 6 ' , / / b a c k g r o u n d c o l o r
c o n s t 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 _ S U N K E N , / / b o r d e r t y p e
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 , / / c h a r t c o r n e r f o r a n c h o r i n g
c o n s t c o l o r c l r = c l r R e d , / / f l a t b o r d e r c o l o r ( F l a t )
c o n s 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 , / / f l a t b o r d e r s t y l e
c o n s t i n t l i n e _ w i d t h = 1 , / / f l a t b o r d e r w i d t h
c o n s t b o o l b a c k = f a l s e , / / i n t h e b a c k g r o u n d
c o n s t b o o l s e l e c t i o n = f a l s e , / / h i g h l i g h t t o m o v e
c o n s t b o o l h i d d e n = t r u e , / / h i d d e n i n t h e o b j e c t l i s t
c o n s t l o n g z _ o r d e r = 0 , / / p r i o r i t y f o r m o u s e c l i c k
c o n s t s t r i n g t o o l t i p = " \ n " ) / / t o o l t i p f o r m o u s e h o v e r
{
/ / - - - - r e s e t t h e e r r o r v a l u e
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 ( c h a r t _ I D , n a m e ) ! = 0 )
{
i f ( ! 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 _ R E C T A N G L E _ L A B E L , s u b _ w i n d o w , 0 , 0 ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" : f a i l e d t o c r e a t e a r e c t a n g l e l a b e l ! E r r o r c o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - - S e t O b j e c t s
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 ) ;
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 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 ( c h a r t _ I D , 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 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 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 ( c h a r t _ I D , 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 ) ;
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 ) ;
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 ) ;
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 T Y L E , s t y l e ) ;
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 _ W I D T H , l i n e _ w i d t h ) ;
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 ) ;
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 ) ;
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 ) ;
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 ) ;
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 O O L T I P , t o o l t i p ) ;
}
/ / - - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C r e a t e a t e x t l a b e l |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / h t t p s : / / d o c s . m q l 4 . c o m / c o n s t a n t s / o b j e c t c o n s t a n t s / e n u m _ o b j e c t / o b j _ l a b e l
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 , / / c h a r t ' s I D
c o n s t s t r i n g n a m e = " L a b e l " , / / l a b e l n a m e
c o n s t i n t s u b _ w i n d o w = 0 , / / s u b w i n d o w i n d e x
c o n s t i n t x = 0 , / / X c o o r d i n a t e
c o n s t i n t y = 0 , / / Y c o o r d i n a t e
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 , / / c h a r t c o r n e r f o r a n c h o r i n g
c o n s t s t r i n g t e x t = " L a b e l " , / / t e x t
c o n s t s t r i n g f o n t = " A r i a l " , / / f o n t
c o n s t i n t f o n t _ s i z e = 1 0 , / / f o n t s i z e
c o n s t c o l o r c l r = c l r R e d , / / c o l o r
c o n s t d o u b l e a n g l e = 0 . 0 , / / t e x t s l o p e
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 _ L E F T _ U P P E R , / / a n c h o r t y p e
c o n s t b o o l b a c k = f a l s e , / / i n t h e b a c k g r o u n d
c o n s t b o o l s e l e c t i o n = f a l s e , / / h i g h l i g h t t o m o v e
c o n s t b o o l h i d d e n = t r u e , / / h i d d e n i n t h e o b j e c t l i s t
c o n s t l o n g z _ o r d e r = 0 , / / p r i o r i t y f o r m o u s e c l i c k
c o n s t s t r i n g t o o l t i p = " \ n " , / / t o o l t i p f o r m o u s e h o v e r
c o n s t b o o l t e s t e r = t r u e ) / / c r e a t e o b j e c t i n t h e s t r a t e g y t e s t e r
{
/ / - - - r e s e t t h e e r r o r v a l u e
R e s e t L a s t E r r o r ( ) ;
/ / - - - C h e c k T e s t e r
i f ( ! t e s t e r & & M Q L I n f o I n t e g e r ( M Q L _ T E S T E R ) )
r e t u r n ( f a l s e ) ;
/ / - - -
i f ( O b j e c t F i n d ( c h a r t _ I D , n a m e ) ! = 0 )
{
i f ( ! 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 ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" : f a i l e d t o c r e a t e t e x t l a b e l ! E r r o r c o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - - S e t O b j e c t s
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 ) ;
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 ) ;
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 ) ;
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 ) ;
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 ) ;
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 ) ;
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 ) ;
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 ) ;
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 ) ;
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 ) ;
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 ) ;
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 ) ;
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 O O L T I P , t o o l t i p ) ;
}
/ / - - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C r e a t e E d i t o b j e c t |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / h t t p s : / / d o c s . m q l 4 . c o m / c o n s t a n t s / o b j e c t c o n s t a n t s / e n u m _ o b j e c t / o b j _ e d i t
b o o l E d i t C r e a t e ( c o n s t l o n g c h a r t _ I D = 0 , / / c h a r t ' s I D
c o n s t s t r i n g n a m e = " E d i t " , / / o b j e c t n a m e
c o n s t i n t s u b _ w i n d o w = 0 , / / s u b w i n d o w i n d e x
c o n s t i n t x = 0 , / / X c o o r d i n a t e
c o n s t i n t y = 0 , / / Y c o o r d i n a t e
c o n s t i n t w i d t h = 5 0 , / / w i d t h
c o n s t i n t h e i g h t = 1 8 , / / h e i g h t
c o n s t s t r i n g t e x t = " T e x t " , / / t e x t
c o n s t s t r i n g f o n t = " A r i a l " , / / f o n t
c o n s t i n t f o n t _ s i z e = 1 0 , / / f o n t s i z e
c o n s t E N U M _ A L I G N _ M O D E a l i g n = A L I G N _ C E N T E R , / / a l i g n m e n t t y p e
c o n s t b o o l r e a d _ o n l y = f a l s e , / / a b i l i t y t o e d i t
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 , / / c h a r t c o r n e r f o r a n c h o r i n g
c o n s t c o l o r c l r = c l r B l a c k , / / t e x t c o l o r
c o n s t c o l o r b a c k _ c l r = c l r W h i t e , / / b a c k g r o u n d c o l o r
c o n s t c o l o r b o r d e r _ c l r = c l r N O N E , / / b o r d e r c o l o r
c o n s t b o o l b a c k = f a l s e , / / i n t h e b a c k g r o u n d
c o n s t b o o l s e l e c t i o n = f a l s e , / / h i g h l i g h t t o m o v e
c o n s t b o o l h i d d e n = t r u e , / / h i d d e n i n t h e o b j e c t l i s t
c o n s t l o n g z _ o r d e r = 0 , / / p r i o r i t y f o r m o u s e c l i c k
c o n s t s t r i n g t o o l t i p = " \ n " ) / / t o o l t i p f o r m o u s e h o v e r
{
/ / - - - r e s e t t h e e r r o r v a l u e
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 ( c h a r t _ I D , n a m e ) ! = 0 )
{
i f ( ! 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 _ E D I T , s u b _ w i n d o w , 0 , 0 ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" : f a i l e d t o c r e a t e \ " E d i t \ " o b j e c t ! E r r o r c o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - - S e t O b j e c t s
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 ) ;
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 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 ( c h a r t _ I D , 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 ( 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 ) ;
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 ) ;
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 ) ;
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 L I G N , a l i g 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 _ R E A D O N L Y , r e a d _ o n l y ) ;
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 ) ;
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 ) ;
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 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 ( c h a r t _ I D , 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 ) ;
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 ) ;
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 ) ;
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 ) ;
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 ) ;
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 O O L T I P , t o o l t i p ) ;
}
/ / - - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C r e a t e t h e b u t t o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / h t t p s : / / d o c s . m q l 4 . c o m / c o n s t a n t s / o b j e c t c o n s t a n t s / e n u m _ o b j e c t / o b j _ b u t t o n
b o o l B u t t o n C r e a t e ( c o n s t l o n g c h a r t _ I D = 0 , / / c h a r t ' s I D
c o n s t s t r i n g n a m e = " B u t t o n " , / / b u t t o n n a m e
c o n s t i n t s u b _ w i n d o w = 0 , / / s u b w i n d o w i n d e x
c o n s t i n t x = 0 , / / X c o o r d i n a t e
c o n s t i n t y = 0 , / / Y c o o r d i n a t e
c o n s t i n t w i d t h = 5 0 , / / b u t t o n w i d t h
c o n s t i n t h e i g h t = 1 8 , / / b u t t o n h e i g h t
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 , / / c h a r t c o r n e r f o r a n c h o r i n g
c o n s t s t r i n g t e x t = " B u t t o n " , / / t e x t
c o n s t s t r i n g f o n t = " A r i a l " , / / f o n t
c o n s t i n t f o n t _ s i z e = 1 0 , / / f o n t s i z e
c o n s t c o l o r c l r = c l r B l a c k , / / t e x t c o l o r
c o n s t c o l o r b a c k _ c l r = C ' 2 3 6 , 2 3 3 , 2 1 6 ' , / / b a c k g r o u n d c o l o r
c o n s t c o l o r b o r d e r _ c l r = c l r N O N E , / / b o r d e r c o l o r
c o n s t b o o l s t a t e = f a l s e , / / p r e s s e d / r e l e a s e d
c o n s t b o o l b a c k = f a l s e , / / i n t h e b a c k g r o u n d
c o n s t b o o l s e l e c t i o n = f a l s e , / / h i g h l i g h t t o m o v e
c o n s t b o o l h i d d e n = t r u e , / / h i d d e n i n t h e o b j e c t l i s t
c o n s t l o n g z _ o r d e r = 0 , / / p r i o r i t y f o r m o u s e c l i c k
c o n s t s t r i n g t o o l t i p = " \ n " ) / / t o o l t i p f o r m o u s e h o v e r
{
/ / - - - r e s e t t h e e r r o r v a l u e
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 ( c h a r t _ I D , n a m e ) ! = 0 )
{
i f ( ! 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 _ B U T T O N , s u b _ w i n d o w , 0 , 0 ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" : f a i l e d t o c r e a t e t h e b u t t o n ! E r r o r c o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - - S e t O b j e c t s
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 ) ;
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 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 ( c h a r t _ I D , 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 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 ) ;
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 ) ;
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 ) ;
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 ) ;
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 ) ;
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 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 ( c h a r t _ I D , 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 ) ;
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 ) ;
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 T A T E , s t a t e ) ;
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 ) ;
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 ) ;
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 ) ;
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 O O L T I P , t o o l t i p ) ;
}
/ / - - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C h a r t M o u s e S c r o l l S e t |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / h t t p s : / / d o c s . m q l 4 . c o m / c o n s t a n t s / c h a r t c o n s t a n t s / c h a r t s _ s a m p l e s
b o o l C h a r t M o u s e S c r o l l S e t ( c o n s t b o o l v a l u e )
{
/ / - - - r e s e t t h e e r r o r v a l u e
R e s e t L a s t E r r o r ( ) ;
/ / - - -
i f ( ! C h a r t S e t I n t e g e r ( 0 , C H A R T _ M O U S E _ S C R O L L , 0 , v a l u e ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" , E r r o r C o d e = " , _ L a s t E r r o r ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - -
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | P l a y S o u n d |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d _ P l a y S o u n d ( c o n s t s t r i n g F i l e N a m e )
{
/ / - - -
i f ( S o u n d I s E n a b l e d )
P l a y S o u n d ( F i l e N a m e ) ;
/ / - - -
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | E n d o f t h e C o d e |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
Comments
Markdown Formatting Guide
# H1## H2
### H3
**bold text***italicized text*[title](https://www.example.com)`code````code block
```
> blockquote- Item 1- Item 2
1. First item2. Second item
---