Orders Execution
Miscellaneous
3
Views
0
Downloads
0
Favorites
cm ea RSI GrId
ÿþ/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C o p y r i g h t © 2 0 2 0 , %;KAB>2 ;048<8@ |
/ / | c m i l l i o n @ n a r o d . r u |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
# 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 © 2 0 2 0 , h t t p : / / c m i l l i o n . r u "
# p r o p e r t y l i n k " c m i l l i o n @ n a r o d . r u "
# p r o p e r t y s t r i c t
# p r o p e r t y d e s c r i p t i o n " !>25B=8: >B:@K205B ?5@2CN ?>78F8N ?> 8=48:0B>@C R S I "
# p r o p e r t y d e s c r i p t i o n " @8 ?@>1>5 7040==>3> 7=0G5=8O R S I >B:@K205BAO ?5@2K9 >@45@. "
# p r o p e r t y d e s c r i p t i o n " 0;55 ?> E>4C F5=K A H03>< 8 :>MDD8F85=B>< >B:@K20NBAO =>2K5 >@45@0. "
# p r o p e r t y d e s c r i p t i o n " !B>? ;>AA 4;O ?5@2>3> >@45@0 @025= @07<5@C H030. "
# p r o p e r t y d e s c r i p t i o n " AB>? ?>A;54CNI8E % >B ?@>945==>3>@0AAB>O=8O F5=>9 >B ?5@2>3> >@45@0. "
# p r o p e r t y d e s c r i p t i o n " "59:- ?@>D8B AG8B05BAO >B ?5@2>3> >@45@0. "
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
i n p u t i n t M a g i c = 0 ; / / <038:
i n p u t E N U M _ T I M E F R A M E S T F _ R S I = 0 ; / / T F 8=48:0B>@0 R S I
i n p u t i n t p e r i o d _ R S I = 1 7 ; / / 5@8>4 8=48:0B>@0 R S I
i n p u t i n t R S I _ l e v e l _ B U Y = 3 0 ; / / @>18B85 R S I A=87C 4;O B u y
i n p u t i n t R S I _ l e v e l _ S E L L = 7 0 ; / / @>18B85 R S I A25@EC 4;O S e l l
i n p u t i n t M i n S t e p = 1 0 0 ; / / H03
i n p u t d o u b l e K _ L o t = 1 . 0 ; / / >MDD8F85=B ;>B0
i n p u t i n t S t o p L o s s P e r c e n t = 3 0 ; / / !B>? %
i n p u t i n t T a k e p r o f i t = 2 0 0 0 ; / / "59:
i n p u t d o u b l e F i x L o t = 0 . 0 1 ; / / $8:A8@>20==K9 =0G0;L=K9 ;>B
i n p u t d o u b l e L o t P e r c e n t = 0 . 1 ; / / ?@>F5=B >B 10;0=A0 4;O @0AG5B0 ?5@2>3> ;>B0
i n t s l i p p a g e = 4 0 ; / / ?@>A:0;L7K20=85 F5=K ?@8 >B:@KB88
i n t D i g i t s L o t = 2 ;
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
d o u b l e M I N L O T , M A X L O T ;
d o u b l e S T O P L E V E L ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t O n I n i t ( )
{
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 o l ( ) , 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 o l ( ) , S Y M B O L _ V O L U M E _ M A X ) ;
s t r i n g v a l = " " + 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 e c t L a b e l C r e a t e ( 0 , " c m r l B a l a n c e W " , 0 , 1 9 5 , 1 0 , 1 9 5 , 6 5 ) ;
D r a w L A B E L ( " c m B a l a n c e " , D o u b l e T o S t r i n g ( 0 , 2 ) , 4 0 , 2 0 , c l r B l a c k ) ;
D r a w L A B E L ( " c m E q u i t 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 ) , 4 0 , 3 5 , c l r B l a c k ) ;
D r a w L A B E L ( " c m F r e e M a r g i n " , 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 _ F R E E ) , 2 ) , 4 0 , 5 0 , c l r B l a c k ) ;
D r a w L A B E L ( " c m r l B a l a n c e " , " B a l a n c e " , 1 9 0 , 2 0 , c l r B l a c k , A N C H O R _ L E F T ) ;
D r a w L A B E L ( " c m r l E q u i t y " , " E q u i t y " , 1 9 0 , 3 5 , c l r B l a c k , A N C H O R _ L E F T ) ;
D r a w L A B E L ( " c m r l F r e e M a r g i n " , " F r e e M a r g i n " , 1 9 0 , 5 0 , c l r B l a c k , A N C H O R _ L E F T ) ;
D r a w L A B E L ( " c m r l P r o f i t " , " P r o f i t " , 1 9 0 , 6 5 , c l r B l a c k , A N C H O R _ L E F T ) ;
D r a w L A B E L ( " c m r l v a l B a l a n c e " , v a l , 5 , 2 0 , c l r B l a c k ) ;
D r a w L A B E L ( " c m r l v a l E q u i t y " , v a l , 5 , 3 5 , c l r B l a c k ) ;
D r a w L A B E L ( " c m r l v a l F r e e M a r g i n " , v a l , 5 , 5 0 , c l r B l a c k ) ;
D r a w L A B E L ( " c m T a k e " , " " , 5 , 6 5 , c l r B l a c k ) ;
r e t u r n ( I N I T _ S U C C E E D E D ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
v o i d O n T i c k ( )
{
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 ) )
A l e r t ( " @>25@LB5 2 =0AB@>9:0E B5@<8=0;0 @07@5H5=85 =0 02B><0B8G5A:CN B>@3>2;N! " ) ;
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 ) )
A l e r t ( " 2B><0B8G5A:0O B>@3>2;O 70?@5I5=0 2 A2>9AB20E ?@>3@0<<K 4;O " , _ _ F I L E _ _ ) ;
}
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 ) )
A l e r t ( " 2B><0B8G5A:0O B>@3>2;O 70?@5I5=0 4;O AG5B0 " , 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 ) ,
" =0 AB>@>=5 B>@3>2>3> A5@25@0" ) ;
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 ) )
C o m m e n t ( " ">@3>2;O 70?@5I5=0 4;O AG5B0 " , 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 >7<>6=>, ?>4:;NG5=85 : B>@3>2><C AG5BC ?@>872545=> ?> 8=25AB ?0@>;N. " ,
" \ n @>25@LB5 6C@=0; B5@<8=0;0, 5ABL ;8 B0< B0:0O 70?8AL: " ,
" \ n \ ' " , 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 . " ) ;
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 _ M O D E ) = = A C C O U N T _ T R A D E _ M O D E _ R E A L & & ! I s T e s t i n g ( ) & & A c c o u n t N u m b e r ( ) ! = 3 7 0 7 2 2 8 )
{
i f ( T e r m i n a l I n f o S t r i n g ( T E R M I N A L _ L A N G U A G E ) = = " R u s s i a n " )
{
C o m m e n t ( " 01>B0 A>25B=8:0 =0 @50;L=>< AG5B5 70?@5I5=0! , >1@0B8B5AL : @07@01>BG8:C 70 :;NG5< c m i l l i o n @ n a r o d . r u " ) ;
A l e r t ( " 01>B0 A>25B=8:0 =0 @50;L=>< AG5B5 70?@5I5=0! , >1@0B8B5AL : @07@01>BG8:C 70 :;NG5< c m i l l i o n @ n a r o d . r u " ) ;
}
e l s e
{
C o m m e n t ( " A d v i s o r W o r k o n a r e a l a c c o u n t i s p r o h i b i t e d ! p l e a s e c o n t a c t t h e d e v e l o p e r f o r t h e k e y c m i l l i o n @ n a r o d . r u " ) ;
A l e r t ( " A d v i s o r W o r k o n a r e a l a c c o u n t i s p r o h i b i t e d ! p l e a s e c o n t a c t t h e d e v e l o p e r f o r t h e k e y c m i l l i o n @ n a r o d . r u " ) ;
}
r e t u r n ;
}
S T O P L E V E L = ( i n t ) 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 _ S T O P S _ L E V E L ) ;
d o u b l e O S L , O T P , O O P , P r o f i t = 0 , P r o f i t B = 0 , P r o f i t S = 0 ;
i n t i , b = 0 , s = 0 ;
l o n g t i p ;
/ / - - - -
d o u b l e M a x O r d e r B u y = 0 , M i n O r d e r S e l l = 0 , M i n O r d e r B u y = 0 , M a x O r d e r S e l l = 0 , O L = 0 ;
d o u b l e M i n L o t B = 0 , M i n L o t S = 0 ;
f o r ( 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 o l ( ) & & M a g i c = = O r d e r M a g i c N u m b e r ( ) )
{
t i p = O r d e r T y p e ( ) ;
O O P = N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) ;
O L = O r d e r L o t s ( ) ;
P r o f i t = O r d e r P r o f i t ( ) + O r d e r S w a p ( ) + O r d e r C o m m i s s i o n ( ) ;
i f ( t i p = = O P _ B U Y )
{
i f ( M i n L o t B > O L | | M i n L o t B = = 0 ) M i n L o t B = O L ;
b + + ;
i f ( M a x O r d e r B u y < O O P | | M a x O r d e r B u y = = 0 ) M a x O r d e r B u y = O O P ;
i f ( M i n O r d e r B u y > O O P | | M i n O r d e r B u y = = 0 ) M i n O r d e r B u y = O O P ;
P r o f i t B + = P r o f i t ;
}
i f ( t i p = = O P _ S E L L )
{
i f ( M i n L o t S > O L | | M i n L o t S = = 0 ) M i n L o t S = O L ;
s + + ;
i f ( M i n O r d e r S e l l > O O P | | M i n O r d e r S e l l = = 0 ) M i n O r d e r S e l l = O O P ;
i f ( M a x O r d e r S e l l < O O P | | M a x O r d e r S e l l = = 0 ) M a x O r d e r S e l l = O O P ;
P r o f i t S + = P r o f i t ;
}
}
}
}
/ / - - - -
P r o f i t = P r o f i t B + P r o f i t S ;
d o u b l e A B = 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 ) ;
d o u b l e D r a w d o w n = 1 0 0 * P r o f i t / A B ;
/ / - - -
O b j e c t S e t S t r i n g ( 0 , " c m B a l a n c e " , 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 B , 2 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " c m E q u i t 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 ( 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 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " c m F r e e M a r g i n " , 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 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 _ F R E E ) , 2 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " c m T a k e " , 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 r o f i t , 2 ) + " " + D o u b l e T o S t r i n g ( D r a w d o w n , 2 ) + " % " ) ;
O b j e c t S e t I n t e g e r ( 0 , " c m T a k e " , O B J P R O P _ C O L O R , P r o f i t > 0 ? c l r G r e e n : c l r R e d ) ;
/ / - - -
d o u b l e T P b = 0 , T P s = 0 ;
i f ( T a k e p r o f i t > 0 )
{
i f ( b > 0 ) T P b = N o r m a l i z e D o u b l e ( M i n O r d e r B u y + T a k e p r o f i t * _ P o i n t , _ D i g i t s ) ;
i f ( s > 0 ) T P s = N o r m a l i z e D o u b l e ( M a x O r d e r S e l l - T a k e p r o f i t * _ P o i n t , _ D i g i t s ) ;
}
/ / - - -
d o u b l e S L b = 0 , S L s = 0 ;
i f ( b > 0 )
{
i f ( b = = 1 ) S L b = N o r m a l i z e D o u b l e ( M i n O r d e r B u y - M i n S t e p * _ P o i n t , _ D i g i t s ) ;
e l s e S L b = N o r m a l i z e D o u b l e ( A s k - ( A s k - M i n O r d e r B u y ) / 1 0 0 * S t o p L o s s P e r c e n t , _ D i g i t s ) ;
}
i f ( s > 0 )
{
i f ( s = = 1 ) S L s = N o r m a l i z e D o u b l e ( M a x O r d e r S e l l + M i n S t e p * _ P o i n t , _ D i g i t s ) ;
e l s e S L s = N o r m a l i z e D o u b l e ( B i d + ( M a x O r d e r S e l l - B i d ) / 1 0 0 * S t o p L o s s P e r c e n t , _ D i g i t s ) ;
}
D r a w A r r o w ( " c m S L B u y " , S L b , i T i m e ( N U L L , 0 , 0 ) , c l r B l u e ) ;
D r a w A r r o w ( " c m S L S e l l " , S L s , i T i m e ( N U L L , 0 , 0 ) , c l r R e d ) ;
/ / - - -
i f ( b + s > 0 )
{
f o r ( 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 o l ( ) & & M a g i c = = O r d e r M a g i c N u m b e r ( ) )
{
t i p = O r d e r T y p e ( ) ;
O S L = N o r m a l i z e D o u b l e ( O r d e r S t o p L o s s ( ) , D i g i t s ) ;
O T P = N o r m a l i z e D o u b l e ( O r d e r T a k e P r o f i t ( ) , D i g i t s ) ;
O O P = N o r m a l i z e D o u b l e ( O r d e r O p e n P r i c e ( ) , D i g i t s ) ;
i f ( t i p = = O P _ B U Y )
{
i f ( S L b > O S L | | T P b ! = O T P )
{
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 O P , S L b , T P b , 0 , c l r N O N E ) )
P r i n t ( " E r r o r O r d e r M o d i f y < < " , ( G e t L a s t E r r o r ( ) ) , " > > " ) ;
}
}
i f ( t i p = = O P _ S E L L )
{
i f ( S L s < O S L | | T P s ! = O T P )
{
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 O P , S L s , T P s , 0 , c l r N O N E ) )
P r i n t ( " E r r o r O r d e r M o d i f y < < " , ( G e t L a s t E r r o r ( ) ) , " > > " ) ;
}
}
}
}
}
}
/ / - - -
O b j e c t S e t S t r i n g ( 0 , " c m k n c l o s e B u 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 ( P r o f i t B , 2 ) + " C l o s e B u y " ) ;
O b j e c t S e t S t r i n g ( 0 , " c m k n c l o s e S e l l " , 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 r o f i t S , 2 ) + " C l o s e S e l l " ) ;
O b j e c t S e t S t r i n g ( 0 , " c m k n c l o s e A l l " , 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 r o f i t , 2 ) + " C l o s e A l l " ) ;
O b j e c t S e t I n t e g e r ( 0 , " c m k n c l o s e B u y " , O B J P R O P _ C O L O R , P r o f i t B < 0 ? c l r R e d : c l r G r e e n ) ;
O b j e c t S e t I n t e g e r ( 0 , " c m k n c l o s e S e l l " , O B J P R O P _ C O L O R , P r o f i t S < 0 ? c l r R e d : c l r G r e e n ) ;
O b j e c t S e t I n t e g e r ( 0 , " c m k n c l o s e A l l " , O B J P R O P _ C O L O R , P r o f i t < 0 ? c l r R e d : c l r G r e e n ) ;
/ / - - -
d o u b l e L o t s = 0 , R S I 1 = 0 , R S I 0 = 0 ;
/ / - - -
i f ( b = = 0 | | s = = 0 )
{
R S I 0 = i R S I ( N U L L , T F _ R S I , p e r i o d _ R S I , P R I C E _ C L O S E , 0 ) ;
R S I 1 = i R S I ( N U L L , T F _ R S I , p e r i o d _ R S I , P R I C E _ C L O S E , 1 ) ;
}
/ / - - -
i f ( ( M a x O r d e r B u y + M i n S t e p * P o i n t < = A s k & & b > 0 ) | | ( R S I 1 < = R S I _ l e v e l _ B U Y & & R S I 0 > R S I _ l e v e l _ B U Y & & b = = 0 ) )
{
i f ( b = = 0 )
{
L o t s = L O T ( ) ;
}
e l s e
{
L o t s = N o r m a l i z e D o u b l e ( M i n L o t B * M a t h P o w ( K _ L o t , b ) , D i g i t s L o t ) ;
}
S e n d O r d e r ( O P _ B U Y , L o t s , N o r m a l i z e D o u b l e ( A s k , D i g i t s ) ) ;
}
/ / - - -
i f ( ( M i n O r d e r S e l l - M i n S t e p * P o i n t > = B i d & & s > 0 ) | | ( R S I 1 > = R S I _ l e v e l _ S E L L & & R S I 0 < R S I _ l e v e l _ S E L L & & s = = 0 ) )
{
i f ( s = = 0 )
{
L o t s = L O T ( ) ;
}
e l s e
{
L o t s = N o r m a l i z e D o u b l e ( M i n L o t S * M a t h P o w ( K _ L o t , s ) , D i g i t s L o t ) ;
}
S e n d O r d e r ( O P _ S E L L , L o t s , N o r m a l i z e D o u b l e ( A s k , D i g i t s ) ) ;
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
c o l o r C o l o r ( b o o l P , c o l o r a , c o l o r b )
{
i f ( P ) r e t u r n ( a ) ;
e l s e r e t u r n ( b ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
v o i d D r a w L A B E L ( s t r i n g n a m e , s t r i n g N a m e , i n t X , i n t Y , c o l o r c l r , E N U M _ A N C H O R _ P O I N T a l i g n = A N C H O R _ R I G H T )
{
i f ( O b j e c t F i n d ( 0 , n a m e ) = = - 1 )
{
O b j e c t C r e a t e ( 0 , n a m e , O B J _ L A B E L , 0 , 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O R N E R , C O R N E R _ R I G H T _ U P P E R ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ X D I S T A N C E , X ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ Y D I S T A N C E , Y ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ S E L E C T A B L E , f a l s e ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ S E L E C T E D , f a l s e ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ H I D D E N , t r u e ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ A N C H O R , a l i g n ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ F O N T , " A r i a l " ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ F O N T S I Z E , 8 ) ;
O b j e c t S e t D o u b l e ( 0 , n a m e , O B J P R O P _ A N G L E , 0 ) ;
}
O b j e c t S e t S t r i n g ( 0 , n a m e , O B J P R O P _ T E X T , N a m e ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
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 )
{
O b j e c t s D e l e t e A l l ( 0 , " c m " ) ;
C o m m e n t ( " " ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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 , / / I D 3@0D8:0
c o n s t s t r i n g n a m e = " R e c t L a b e l " , / / 8<O <5B:8
c o n s t i n t s u b _ w i n d o w = 0 , / / =><5@ ?>4>:=0
c o n s t l o n g x = 0 , / / :>>@48=0B0 ?> >A8 X
c o n s t l o n g y = 0 , / / :>>@48=0B0 ?> >A8 y
c o n s t i n t w i d t h = 5 0 , / / H8@8=0
c o n s t i n t h e i g h t = 1 8 , / / 2KA>B0
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 , / / F25B D>=0
c o n s t c o l o r c l r = c l r B l a c k , / / F25B ?;>A:>9 3@0=8FK ( 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 , / / AB8;L ?;>A:>9 3@0=8FK
c o n s t i n t l i n e _ w i d t h = 1 , / / B>;I8=0 ?;>A:>9 3@0=8FK
c o n s t b o o l b a c k = f a l s e , / / =0 704=5< ?;0=5
c o n s t b o o l s e l e c t i o n = f a l s e , / / 2K45;8BL 4;O ?5@5<5I5=89
c o n s t b o o l h i d d e n = t r u e , / / A:@KB 2 A?8A:5 >1J5:B>2
c o n s t l o n g z _ o r d e r = 0 ) / / ?@8>@8B5B =0 =060B85 <KHLN
{
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 ) = = - 1 )
{
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 ) ;
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 _ F L A 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 _ R I G H T _ U P P 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 _ 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 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 _ R 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 _ 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 _ 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 _ 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 ) ;
r e t u r n ( t r u e ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
s t r i n g E r r o r ( i n t c o d e )
{
s w i t c h ( c o d e )
{
c a s e 0 : r e t u r n ( " 5B >H81>:" ) ;
c a s e 1 : r e t u r n ( " 5B >H81:8, => @57C;LB0B =58725AB5=" ) ;
c a s e 2 : r e t u r n ( " 1I0O >H81:0" ) ;
c a s e 3 : r e t u r n ( " 5?@028;L=K5 ?0@0<5B@K" ) ;
c a s e 4 : r e t u r n ( " ">@3>2K9 A5@25@ 70=OB" ) ;
c a s e 5 : r e t u r n ( " !B0@0O 25@A8O :;85=BA:>3> B5@<8=0;0" ) ;
c a s e 6 : r e t u r n ( " 5B A2O78 A B>@3>2K< A5@25@><" ) ;
c a s e 7 : r e t u r n ( " 54>AB0B>G=> ?@02" ) ;
c a s e 8 : r e t u r n ( " !;8H:>< G0ABK5 70?@>AK" ) ;
c a s e 9 : r e t u r n ( " 54>?CAB8<0O >?5@0F8O =0@CH0NI0O DC=:F8>=8@>20=85 A5@25@0" ) ;
c a s e 6 4 : r e t u r n ( " !G5B 701;>:8@>20=" ) ;
c a s e 6 5 : r e t u r n ( " 5?@028;L=K9 =><5@ AG5B0" ) ;
c a s e 1 2 8 : r e t u r n ( " AB5: A@>: >6840=8O A>25@H5=8O A45;:8" ) ;
c a s e 1 2 9 : r e t u r n ( " 5?@028;L=0O F5=0" ) ;
c a s e 1 3 0 : r e t u r n ( " 5?@028;L=K5 AB>?K" ) ;
c a s e 1 3 1 : r e t u r n ( " 5?@028;L=K9 >1J5<" ) ;
c a s e 1 3 2 : r e t u r n ( " K=>: 70:@KB" ) ;
c a s e 1 3 3 : r e t u r n ( " ">@3>2;O 70?@5I5=0" ) ;
c a s e 1 3 4 : r e t u r n ( " 54>AB0B>G=> 45=53 4;O A>25@H5=8O >?5@0F88" ) ;
c a s e 1 3 5 : r e t u r n ( " &5=0 87<5=8;0AL" ) ;
c a s e 1 3 6 : r e t u r n ( " 5B F5=" ) ;
c a s e 1 3 7 : r e t u r n ( " @>:5@ 70=OB" ) ;
c a s e 1 3 8 : r e t u r n ( " >2K5 F5=K" ) ;
c a s e 1 3 9 : r e t u r n ( " @45@ 701;>:8@>20= 8 C65 >1@010BK205BAO" ) ;
c a s e 1 4 0 : r e t u r n ( " 07@5H5=0 B>;L:> ?>:C?:0" ) ;
c a s e 1 4 1 : r e t u r n ( " !;8H:>< <=>3> 70?@>A>2" ) ;
c a s e 1 4 5 : r e t u r n ( " >48D8:0F8O 70?@5I5=0, B0: :0: >@45@ A;8H:>< 1;87>: : @K=:C" ) ;
c a s e 1 4 6 : r e t u r n ( " >4A8AB5<0 B>@3>2;8 70=OB0" ) ;
c a s e 1 4 7 : r e t u r n ( " A?>;L7>20=85 40BK 8AB5G5=8O >@45@0 70?@5I5=> 1@>:5@><" ) ;
c a s e 1 4 8 : r e t u r n ( " >;8G5AB2> >B:@KBKE 8 >B;>65==KE >@45@>2 4>AB83;> ?@545;0, CAB0=>2;5==>3> 1@>:5@><. " ) ;
d e f a u l t : r e t u r n ( " H81:0 =58725AB=0" ) ;
}
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
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 , / / I D 3@0D8:0
c o n s t s t r i n g n a m e = " E d i t " , / / 8<O >1J5:B0
c o n s t i n t s u b _ w i n d o w = 0 , / / =><5@ ?>4>:=0
c o n s t i n t x = 0 , / / :>>@48=0B0 ?> >A8 X
c o n s t i n t y = 0 , / / :>>@48=0B0 ?> >A8 Y
c o n s t i n t w i d t h = 5 0 , / / H8@8=0
c o n s t i n t h e i g h t = 1 8 , / / 2KA>B0
c o n s t s t r i n g t e x t = " T e x t " , / / B5:AB
c o n s t s t r i n g f o n t = " A r i a l " , / / H@8DB
c o n s t i n t f o n t _ s i z e = 8 , / / @07<5@ H@8DB0
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 _ R I G H T , / / A?>A>1 2K@02=820=8O
c o n s t b o o l r e a d _ o n l y = t r u e , / / 2>7<>6=>ABL @540:B8@>20BL
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 _ R I G H T _ U P P E R , / / C3>; 3@0D8:0 4;O ?@82O7:8
c o n s t c o l o r c l r = c l r B l a c k , / / F25B B5:AB0
c o n s t c o l o r b a c k _ c l r = c l r W h i t e , / / F25B D>=0
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 , / / F25B 3@0=8FK
c o n s t b o o l b a c k = f a l s e , / / =0 704=5< ?;0=5
c o n s t b o o l s e l e c t i o n = f a l s e , / / 2K45;8BL 4;O ?5@5<5I5=89
c o n s t b o o l h i d d e n = t r u e , / / A:@KB 2 A?8A:5 >1J5:B>2
c o n s t l o n g z _ o r d e r = 0 ) / / ?@8>@8B5B =0 =060B85 <KHLN
{
R e s e t L a s t E r r o r ( ) ;
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 _ _ ,
" : =5 C40;>AL A>740BL >1J5:B " , n a m e , " ! >4 >H81:8 = " , G e t L a s t E r r o r ( ) ) ;
r e t u r n ( f a l s 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 _ 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 ) ;
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g T e x t ( b o o l P , s t r i n g a , s t r i n g b )
{
i f ( P ) r e t u r n ( a ) ;
e l s e r e t u r n ( b ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
d o u b l e L O T ( )
{
i f ( F i x L o t ! = 0 ) r e t u r n ( F i x L o t ) ;
d o u b l e L O T = N o r m a l i z e D o u b l 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 ) * L o t P e r c e n t / 1 0 0 0 0 , D i g i t s L o t ) ;
i f ( L O T > M A X L O T ) L O T = M A X L O T ;
i f ( L O T < M I N L O T ) L O T = M I N L O T ;
r e t u r n ( L O T ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
b o o l D r a w A r r o w ( c o n s t s t r i n g n a m e = " R i g h t P r i c e " , / / 8<O F5=>2>9 <5B:8
d o u b l e p r i c e = 0 , / / F5=0 B>G:8 ?@82O7:8
d a t e t i m e t i m e = 0 , / / 2@5<O B>G:8 ?@82O7:8
c o n s t c o l o r c l r = c l r R e d , / / F25B F5=>2>9 <5B:8
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 , / / AB8;L >:09<;ONI59 ;8=88
c o n s t i n t w i d t h = 1 , / / @07<5@ F5=>2>9 <5B:8
c o n s t b o o l b a c k = f a l s e , / / =0 704=5< ?;0=5
c o n s t b o o l s e l e c t i o n = t r u e , / / 2K45;8BL 4;O ?5@5<5I5=89
c o n s t b o o l h i d d e n = t r u e , / / A:@KB 2 A?8A:5 >1J5:B>2
c o n s t l o n g z _ o r d e r = 0 ) / / ?@8>@8B5B =0 =060B85 <KHLN
{
i f ( O b j e c t F i n d ( 0 , n a m e ) < 0 )
{
i f ( ! O b j e c t C r e a t e ( 0 , n a m e , O B J _ A R R O W _ R I G H T _ P R I C E , 0 , t i m e , p r i c e ) )
{
r e t u r n ( f a l s e ) ;
}
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ C O L O R , c l r ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ 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 ( 0 , n a m e , O B J P R O P _ W I D T H , w i d t h ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ B A C K , b a c k ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ S E L E C T A B L E , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ S E L E C T E D , s e l e c t i o n ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ H I D D E N , h i d d e n ) ;
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ Z O R D E R , z _ o r d e r ) ;
}
O b j e c t S e t I n t e g e r ( 0 , n a m e , O B J P R O P _ T I M E , t i m e ) ;
O b j e c t S e t D o u b l e ( 0 , n a m e , O B J P R O P _ P R I C E , p r i c e ) ;
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l I s N e w O r d e r A l l o w e d ( )
{
i n t m a x _ a l l o w e d _ o r d e r s = ( 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 I M I T _ O R D E R S ) ;
i f ( m a x _ a l l o w e d _ o r d e r s = = 0 )
r e t u r n ( t r u e ) ;
i f ( O r d e r s T o t a l ( ) < m a x _ a l l o w e d _ o r d e r s )
r e t u r n ( t r u e ) ;
r e t u r n ( f a l s e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
d o u b l e C h e c k V o l u m e V a l u e ( d o u b l e v o l u m e )
{
d o u b l e m i n _ v o l u m e = 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 f ( v o l u m e < m i n _ v o l u m e )
{
r e t u r n ( m i n _ v o l u m e ) ;
}
d o u b l e m a x _ v o l u m e = 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 A X ) ;
i f ( v o l u m e > m a x _ v o l u m e )
{
r e t u r n ( m a x _ v o l u m e ) ;
}
d o u b l e v o l u m e _ s t e p = 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 _ S T E P ) ;
i n t r a t i o = ( i n t ) M a t h R o u n d ( v o l u m e / v o l u m e _ s t e p ) ;
i f ( M a t h A b s ( r a t i o * v o l u m e _ s t e p - v o l u m e ) > 0 . 0 0 0 0 0 0 1 )
{
r e t u r n ( r a t i o * v o l u m e _ s t e p ) ;
}
r e t u r n ( v o l u m e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l S e n d O r d e r ( i n t t i p , d o u b l e l o t s , d o u b l e p r i c e , d o u b l e s l = 0 , d o u b l e t p = 0 )
{
i f ( ! I s N e w O r d e r A l l o w e d ( ) ) r e t u r n ( f a l s e ) ;
l o t s = C h e c k V o l u m e V a l u e ( l o t s ) ;
i f ( l o t s > M A X L O T ) l o t s = M A X L O T ;
i f ( l o t s < M I N L O T ) l o t s = M I N L O T ;
i f ( t i p < 2 )
{
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 ( ) , t i p , l o t s ) < 0 )
{
A l e r t ( " 54>AB0B>G=> A@54AB2" ) ;
r e t u r n ( f a l s e ) ;
}
}
f o r ( i n t i = 0 ; i < 1 0 ; i + + )
{
i f ( O r d e r S e n d ( S y m b o l ( ) , t i p , l o t s , p r i c e , s l i p p a g e , s l , t p , N U L L , M a g i c , 0 , c l r N O N E ) ! = - 1 ) r e t u r n ( t r u e ) ;
A l e r t ( " ?>?KB:0 " , i , " H81:0 >B:@KB8O >@45@0 " , S t r t i p ( t i p ) , " < < " , E r r o r ( G e t L a s t E r r o r ( ) ) , " > > l o t = " , l o t s , " p r = " , p r i c e , " s l = " , s l , " t p = " , t p ) ;
S l e e p ( 5 0 0 ) ;
R e f r e s h R a t e s ( ) ;
i f ( I s S t o p p e d ( ) ) r e t u r n ( f a l s e ) ;
}
r e t u r n ( f a l s e ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
s t r i n g S t r t i p ( i n t t i p )
{
s w i t c h ( t i p )
{
c a s e O P _ B U Y : r e t u r n ( " B U Y " ) ;
c a s e O P _ S E L L : r e t u r n ( " S E L L " ) ;
c a s e O P _ B U Y S T O P : r e t u r n ( " B U Y S T O P " ) ;
c a s e O P _ S E L L S T O P : r e t u r n ( " S E L L S T O P " ) ;
c a s e O P _ B U Y L I M I T : r e t u r n ( " B U Y L I M I T " ) ;
c a s e O P _ S E L L L I M I T : r e t u r n ( " S E L L L I M I T " ) ;
}
r e t u r n ( " e r r o r " ) ;
}
/ / - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Comments