## Explanation of the MQL4 Script Logic for Non-Programmers
This script is designed to add an information panel and trading tools to a MetaTrader 4 chart. It provides information about the current market and allows for quick placement of support and resistance lines, as well as simple order management.
Here?s a breakdown of the main functionalities:
1. **Information Display:**
* It shows real-time data like lot size, pip value, spread, and swap rates for the current currency pair, giving a trader quick insights into trading costs and potential profits.
* Displays mouse coordinates: Show Price and Time of the chart at the current Mouse Over
* It also displays account information such as your current balance or equity and the amount of money you're willing to risk on each trade.
* Additionally, it can be configured to show information from popular technical indicators like RSI, Stochastic Oscillator, CCI, and MACD to facilitate quick technical analysis.
2. **Trading Tools:**
* **Support and Resistance Lines:** It allows you to quickly draw horizontal lines on the chart, representing potential support and resistance levels. You can customize the color, style, and width of these lines. You can create alerts to notify you if the price crosses these lines.
* **Trend Line Assistance:** Manages manually created trend lines: Trend line created with one name will be considered in all time frames and different chars
* **Money Management:** Allows setting a risk percentage and automatically calculates the appropriate lot size based on account balance and a defined stop loss. This helps to manage risk effectively.
* **Quick Order Placement:** It enables you to place buy and sell orders directly from the panel, with pre-defined or customizable stop-loss and take-profit levels.
* **Order line edition**: you can quickly create B/S/TP/SL Lines and this lines will take action into the Money Management Tool
3. **Customization and Settings:**
* The script offers a variety of customizable settings, including colors, line styles, alert options, and display preferences. These settings are managed through external variables that can be adjusted in the script's properties window.
* It allows you to show/hide many chart elements to create a less polluted screen.
* Chart timeframe fast change
4. **Alerts and Notifications:**
* It can trigger visual and audible alerts when the price crosses support or resistance lines, or when the price is nearing a stop-loss or take-profit level. This helps traders stay informed about important price movements.
* It has the option to send push notifications to a smartphone, providing alerts even when away from the computer.
5. **Persistence:**
* Some settings and drawn support/resistance lines are saved as global variables, meaning they persist even if the script is removed and re-added or the terminal is restarted. This prevents having to reconfigure the tool every time.
In essence, this script acts as a trading assistant, providing at-a-glance information and tools to facilitate faster and more informed trading decisions.
Price Data Components
Orders Execution
Indicators Used
Miscellaneous
10
Views
1
Downloads
0
Favorites
master_info_v1
ÿþ/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | M a s t e r _ I n f o . m q 4 |
/ / | G i r a r d M a t t h i e u |
/ / | h t t p s : / / w w w . m q l 5 . c o m |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
# p r o p e r t y c o p y r i g h t " G i r a r d M a t t h i e u "
# p r o p e r t y l i n k " h t t p s : / / w w w . m q l 5 . c o m "
# p r o p e r t y v e r s i o n " 1 . 0 8 "
# i m p o r t " u s e r 3 2 . d l l "
i n t P o s t M e s s a g e A ( i n t h W n d , i n t M s g , i n t w P a r a m , i n t l P a r a m ) ;
i n t G e t W i n d o w ( i n t h W n d , i n t u C m d ) ;
i n t G e t P a r e n t ( i n t h W n d ) ;
# i m p o r t
# p r o p e r t y s c r i p t _ s h o w _ i n p u t s
# p r o p e r t y i n d i c a t o r _ c h a r t _ w i n d o w
# p r o p e r t y i n d i c a t o r _ b u f f e r s 1 7
# p r o p e r t y s t r i c t
e x t e r n s t r i n g t e x t 1 = " G l o b a l I n f o r m a t i o n " ; / / D e s c r i p t i o n
e x t e r n b o o l C u r r e n c y S y m b o l R i g h t = T r u e ; / / i s y o u r c u r r e n c y s y m b o l ( ¬ $ A) a t t h e R i g h t ?
e x t e r n d o u b l e L o t S i z e = 1 ; / / y o u r d e f a u l t L o t S i z e
e x t e r n s t r i n g M a s t e r H i d e = " H " ; / / h i d e o r s h o w t h e t o o l
e x t e r n b o o l I n d i c a t o r V a l u e = t r u e ; / / s h o w i n d i c a t o r i n f o r m a t i o n
e x t e r n b o o l S h o w G r i d = t r u e ; / / s h o w h o r i z o n t a l g r i d
e x t e r n i n t P i p I n t e r v a l = 1 0 ; / / d e f a u l t 1 0 i n t e r v a l f o r g r i d
e x t e r n i n t C o l o r V a r i a t i o n = 1 ; / / 1 t o 8 , s m a l l e r t h e g r i d c o l o r i s c l o s e t o t h e b a c k g r o u n d c o l o r
e x t e r n s t r i n g M a s t e r T o o l C o n f = " O " ; / / s h o w t h e o p t i o n t o o l
e x t e r n b o o l S h o w D a i l y O p e n = f a l s e ; / / s h o w D a i l y O p e n
e x t e r n b o o l S h o w P i v o t = f a l s e ; / / s h o w P i v o t
e x t e r n b o o l S h o w P i v o t F i b o = f a l s e ; / / s h o w P i v o t b a s e d o n F i b o n a c c i
e x t e r n b o o l S L T P a l e r t = f a l s e ; / / s o u n d a l e r t w h e n T P o r S L i s c l o s e t o b e t o u c h
e x t e r n i n t S L T P a l e r t P i p s = 5 ; / / p i p s b e f o r e a l e r t T P o r S L
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
e n u m f i l e n a m e / / e n u m e r a t i o n o f s o u n d f i l e n a m e
{
n o n e , / / n o s o u n d
p o n g , / / p o n g s o u n d
t o n e , / / t o n e s o u n d
s p a c i a l , / / s p a c i a l s o u n d
b l o p , / / b l o p s o u n d
s t a r t r e k , / / s t a r t r e k s o u n d
s c a n / / s c a n s o u n d
} ;
e x t e r n s t r i n g t e x t c = " " ; / / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
e x t e r n s t r i n g t e x t 2 = " S u p p o r t & R e s i s t a n c e M a n a g e m e n t T o o l " ; / / D e s c r i p t i o n
e x t e r n s t r i n g t e x t 3 = " = = F i r s t L i n e " ; / / D e s c r i p t i o n
e x t e r n s t r i n g L i n e H o r i z o n t a l = " A " ; / / K e y t o C r e a t e a S R L i n e ( 1 )
e x t e r n c o l o r L i n e R e s i s t c o l o r = c l r D o d g e r B l u e ; / / R e s i s t a n c e L i n e C o l o r ( 1 )
e x t e r n c o l o r L i n e S u p p o r t c o l o r = c l r D a r k O r a n g e ; / / S u p p o r t L i n e C o l o r ( 1 )
e x t e r n E N U M _ L I N E _ S T Y L E L i n e S t y l e = S T Y L E _ S O L I D ; / / S t y l e o f S R L i n e s ( 1 )
e x t e r n i n t L i n e w i d t h = 2 ; / / C h o o s e t h e w i d t h o f t h e l i n e ( 1 )
e x t e r n b o o l A l a r m C r o s s W h i t h A l e r t = t r u e ; / / S e n d a n A l e r t
e x t e r n b o o l A l a r m C r o s s W h i t h P u s h S m a r t p h o n e = f a l s e ; / / S e n d a N o t i f i c a t i o n
e x t e r n f i l e n a m e s o u n d n a m e = n o n e ; / / C h o o s e a p a i r o f S o u n d ( h i g h / d e e p t o n e )
e x t e r n s t r i n g t e x t 4 = " = = S e c o n d L i n e " ; / / D e s c r i p t i o n
e x t e r n s t r i n g L i n e H o r i z o n t a l S e c o n d = " Q " ; / / K e y t o C r e a t e a S R L i n e ( 2 )
e x t e r n c o l o r L i n e R e s i s t c o l o r S e c o n d = c l r D o d g e r B l u e ; / / R e s i s t a n c e L i n e C o l o r ( 2 )
e x t e r n c o l o r L i n e S u p p o r t c o l o r S e c o n d = c l r D a r k O r a n g e ; / / S u p p o r t L i n e C o l o r ( 2 )
e x t e r n E N U M _ L I N E _ S T Y L E L i n e S t y l e S e c o n d = S T Y L E _ D O T ; / / S t y l e o f S R L i n e s ( 2 )
e x t e r n i n t L i n e w i d t h S e c o n d = 1 ; / / C h o o s e t h e w i d t h o f t h e l i n e ( 2 )
e x t e r n b o o l A l a r m C r o s s W h i t h A l e r t S e c o n d = t r u e ; / / S e n d a n A l e r t
e x t e r n b o o l A l a r m C r o s s W h i t h P u s h S m a r t p h o n e S e c o n d = f a l s e ; / / S e n d a N o t i f i c a t i o n
e x t e r n f i l e n a m e s o u n d n a m e S e c o n d = n o n e ; / / C h o o s e a p a i r o f S o u n d ( h i g h / d e e p t o n e )
e x t e r n s t r i n g t e x t 5 = " = = T r e n d L i n e " ; / / D e s c r i p t i o n
e x t e r n b o o l T a k e c a r e M a n u a l T r e n d l i n e = t r u e ; / / T a k e c a r e o f y o u r T r e n d l i n e a d d e d m a n u a l l y
e x t e r n s t r i n g t e x t 6 = " = = O t h e r " ; / / D e s c r i p t i o n
e x t e r n s t r i n g D e l e t e L a s t L i n e = " X " ; / / K e y t o D e l e t e L a s t L i n e
e x t e r n i n t h i s t o r y = 2 0 0 ; / / C h e c k o n t h e l a s t x c a n d l e s
e x t e r n i n t M a x D e v i a t i o n = 1 0 ; / / P i p s d e v i a t i o n f o r h i s t o r y
e x t e r n s t r i n g t e x t a = " " ; / / = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
e x t e r n s t r i n g t e x t 7 = " M o n e y M a n a g e m e n t T o o l " ; / / D e s c r i p t i o n
e x t e r n s t r i n g B u y L i n e = " B " ; / / K e y t o C r e a t e a B u y L i n e
e x t e r n s t r i n g S e l l L i n e = " S " ; / / K e y t o C r e a t e a S e l l L i n e
e x t e r n d o u b l e R i s k = 1 ; / / Y o u r P e r c e n t a g e R i s k
e x t e r n d o u b l e D e f a u l t S L = 3 0 ; / / D e f a u l t S L i n P i p s
e x t e r n d o u b l e D e f a u l t T P = 6 0 ; / / D e f a u l t T P i n P i p s
e x t e r n c o l o r C o l o r B u y S e l l = c l r G r e e n ; / / C o l o r o f t h e B u y o r S e l l l i n e
e x t e r n c o l o r C o l o r S L = c l r R e d ; / / C o l o r o f t h e S L l i n e
e x t e r n c o l o r C o l o r T P = c l r L a w n G r e e n ; / / C o l o r o f t h e T P l i n e
e x t e r n c o l o r C o l o r T e x t B o x = c l r W h i t e ; / / C o l o r o f t e x t i n t h e t o o l b o x
e x t e r n E N U M _ L I N E _ S T Y L E M M L i n e S t y l e = S T Y L E _ D A S H D O T D O T ; / / S t y l e o f L i n e s
e x t e r n i n t M M L i n e w i d t h = 1 ; / / C h o o s e t h e w i d t h o f t h e l i n e
e x t e r n b o o l A c c o u n t = t r u e ; / / C h o o s e B a l a n c e [ t r u e ] o r E q u i t y [ f a l s e ]
e x t e r n b o o l C r e a t e T P = t r u e ; / / C r e a t e a T a k e P r o f i t l i n e
e x t e r n b o o l C r e a t e S L = t r u e ; / / C r e a t e a S t o p L o s s l i n e
e x t e r n i n t M a g i c N u m b e r = 1 5 9 3 5 7 ; / / M a g i c N u m b e r
e x t e r n b o o l S h o w A s k L i n e = T r u e ; / / S h o w A s k L i n e
i n t i n t P a r e n t ;
i n t i n t C h i l d ;
d o u b l e P i p V a l u e s ;
d o u b l e p o i n t ;
d o u b l e S w a p L o n g ;
d o u b l e S w a p S h o r t ;
d o u b l e S p r e a d P i p V a l u e ;
d o u b l e S p r e a d P i p ;
d o u b l e C l i c k V a l u e ;
d o u b l e C l i c k P i p ;
d o u b l e C l i c k P r i c e ;
d o u b l e M o u s e P r i c e ;
d a t e t i m e M o u s e D a t e ;
s t r i n g C o u n t D o w n ;
d o u b l e S L T P b r o k e r L i m i t ;
d o u b l e M a x i m u m L o t ;
d o u b l e M i n i m u m L o t S i z e ;
d o u b l e L o t S t e p ;
c o l o r T e x t C o l o r = c l r W h i t e ;
c o l o r B a c k g r o u n d C o l o r = c l r B l a c k ;
c o l o r B o r d e r C o l o r = c l r W h i t e ;
d o u b l e r i s k m o n e y ;
b o o l o b j e c t c l i c k = f a l s e ;
d a t e t i m e l a b e l p o s i t i o n ; / / l a b e l p o s i t i o n o n s c r e e n
d a t e t i m e o r d e r l a b e l p o s i t i o n ;
d o u b l e r a t i o p o s i t i o n = 0 . 7 0 ;
s t r i n g l i n e h i s t o r y = " " ;
s t r i n g L i n e I d = " " ;
s t r i n g o b j e c t l i n e ;
d o u b l e P i p G a p ;
d o u b l e P i p G a p V a l u e ;
c o l o r t e m p a l e r t c o l o r ;
c o l o r t e m p s h o w c o l o r ;
b o o l s h o w l i n e A = t r u e ;
b o o l s h o w l i n e Q = t r u e ;
b o o l s h o w m a s t e r = t r u e ;
d o u b l e P i p V a l u e s o n e l o t ;
s t r i n g o n o f f ;
c o l o r o n o f f c o l o r ;
b o o l f o l l o w p r i c e = f a l s e ;
s t r i n g Y e s N o ;
c o l o r Y e s N o c o l o r ;
d o u b l e S L P i p s ;
d o u b l e T P P i p s ;
s t r i n g r a t i o ;
d o u b l e l o t s i z e m a x i m u m ;
l o n g c h a r t h e i g h t = - 1 ;
l o n g p e r i o d m o u s e o v e r = P e r i o d ( ) ;
i n t B u l l C o u n t ;
i n t B e a r C o u n t ;
i n t M i d d l e C o u n t ;
i n t O v e r S e l l ;
i n t O v e r B u y ;
d o u b l e M e t e r [ ] ;
d a t e t i m e O l d C a n d e l T i m e ;
d o u b l e D a i l y O p e n A r r a y [ ] ;
b o o l S h o w P r i c e = t r u e ;
d o u b l e P P B u f f e r [ ] ;
d o u b l e R 1 B u f f e r [ ] ;
d o u b l e R 2 B u f f e r [ ] ;
d o u b l e R 3 B u f f e r [ ] ;
d o u b l e R 4 B u f f e r [ ] ;
d o u b l e S 1 B u f f e r [ ] ;
d o u b l e S 2 B u f f e r [ ] ;
d o u b l e S 3 B u f f e r [ ] ;
d o u b l e S 4 B u f f e r [ ] ;
d o u b l e F P P B u f f e r [ ] ;
d o u b l e F R 1 B u f f e r [ ] ;
d o u b l e F R 2 B u f f e r [ ] ;
d o u b l e F R 3 B u f f e r [ ] ;
d o u b l e F S 1 B u f f e r [ ] ;
d o u b l e F S 2 B u f f e r [ ] ;
d o u b l e F S 3 B u f f e r [ ] ;
d o u b l e G r i d L o w ;
d o u b l e G r i d H i g h ;
d o u b l e S L T P b r o k e r L i m i t n o t z e r o ;
l o n g C o l o r B i d L i n e ;
i n t T i m e r ;
E N U M _ A C C O U N T _ I N F O _ D O U B L E a c c o u n t t y p e = A C C O U N T _ B A L A N C E ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C u s t o m i n d i c a t o r 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 ( )
{
G l o b a l V a r i a b l e S e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ A c t i o n " , 0 ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ E V E N T _ M O U S E _ M O V E , 1 ) ;
E v e n t S e t T i m e r ( 1 ) ;
i n t P a r e n t = G e t P a r e n t ( W i n d o w H a n d l e ( S y m b o l ( ) , P e r i o d ( ) ) ) ;
i n t C h i l d = G e t W i n d o w ( i n t P a r e n t , 0 ) ;
C h a r t S e t I n t e g e r ( 0 , C H A R T _ S H I F T , 0 , t r u e ) ;
S L T P b r o k e r L i m i t = M a r k e t I n f o ( S y m b o l ( ) , M O D E _ S T O P L E V E L ) ;
/ / c o r r e c t i o n k e y c a s e
L i n e H o r i z o n t a l = S t r i n g C h a n g e T o U p p e r C a s e ( L i n e H o r i z o n t a l ) ;
L i n e H o r i z o n t a l S e c o n d = S t r i n g C h a n g e T o U p p e r C a s e ( L i n e H o r i z o n t a l S e c o n d ) ;
D e l e t e L a s t L i n e = S t r i n g C h a n g e T o U p p e r C a s e ( D e l e t e L a s t L i n e ) ;
B u y L i n e = S t r i n g C h a n g e T o U p p e r C a s e ( B u y L i n e ) ;
S e l l L i n e = S t r i n g C h a n g e T o U p p e r C a s e ( S e l l L i n e ) ;
M a s t e r H i d e = S t r i n g C h a n g e T o U p p e r C a s e ( M a s t e r H i d e ) ;
/ / G l o b a l V a r i a b l e
i f ( G l o b a l V a r i a b l e C h e c k ( " M a s I N _ L o t _ " + s t r i n g ( i n t P a r e n t ) ) )
{
L o t S i z e = d o u b l e ( G l o b a l V a r i a b l e G e t ( " M a s I N _ L o t _ " + s t r i n g ( i n t P a r e n t ) ) ) ;
}
i f ( G l o b a l V a r i a b l e C h e c k ( " M a s I N _ R i s k _ " + s t r i n g ( i n t P a r e n t ) ) )
{
R i s k = d o u b l e ( G l o b a l V a r i a b l e G e t ( " M a s I N _ R i s k _ " + s t r i n g ( i n t P a r e n t ) ) ) ;
}
i f ( G l o b a l V a r i a b l e C h e c k ( " M a s I N _ C l i c k P r i c e _ " + s t r i n g ( i n t P a r e n t ) ) )
{
C l i c k P r i c e = d o u b l e ( G l o b a l V a r i a b l e G e t ( " M a s I N _ C l i c k P r i c e _ " + s t r i n g ( i n t P a r e n t ) ) ) ;
}
i f ( G l o b a l V a r i a b l e C h e c k ( " M a s I N _ s h o w l i n e A " + s t r i n g ( i n t P a r e n t ) ) )
{
s h o w l i n e A = d o u b l e ( G l o b a l V a r i a b l e G e t ( " M a s I N _ s h o w l i n e A " + s t r i n g ( i n t P a r e n t ) ) ) ;
}
i f ( G l o b a l V a r i a b l e C h e c k ( " M a s I N _ A l a r m C r o s s W h i t h A l e r t " + s t r i n g ( i n t P a r e n t ) ) )
{
A l a r m C r o s s W h i t h A l e r t = d o u b l e ( G l o b a l V a r i a b l e G e t ( " M a s I N _ A l a r m C r o s s W h i t h A l e r t " + s t r i n g ( i n t P a r e n t ) ) ) ;
}
i f ( G l o b a l V a r i a b l e C h e c k ( " M a s I N _ s h o w l i n e Q " + s t r i n g ( i n t P a r e n t ) ) )
{
s h o w l i n e Q = d o u b l e ( G l o b a l V a r i a b l e G e t ( " M a s I N _ s h o w l i n e Q " + s t r i n g ( i n t P a r e n t ) ) ) ;
}
i f ( G l o b a l V a r i a b l e C h e c k ( " M a s I N _ A l a r m C r o s s W h i t h A l e r t S e c o n d " + s t r i n g ( i n t P a r e n t ) ) )
{
A l a r m C r o s s W h i t h A l e r t S e c o n d = d o u b l e ( G l o b a l V a r i a b l e G e t ( " M a s I N _ A l a r m C r o s s W h i t h A l e r t S e c o n d " + s t r i n g ( i n t P a r e n t ) ) ) ;
}
i f ( G l o b a l V a r i a b l e C h e c k ( " M a s I N _ I n d i c a t o r V a l u e " + s t r i n g ( i n t P a r e n t ) ) )
{
I n d i c a t o r V a l u e = d o u b l e ( G l o b a l V a r i a b l e G e t ( " M a s I N _ I n d i c a t o r V a l u e " + s t r i n g ( i n t P a r e n t ) ) ) ;
}
i f ( G l o b a l V a r i a b l e C h e c k ( " M a s I N _ s o u n d n a m e " + s t r i n g ( i n t P a r e n t ) ) )
{
i n t s o u n d i d n a m e = i n t ( G l o b a l V a r i a b l e G e t ( " M a s I N _ s o u n d n a m e " + s t r i n g ( i n t P a r e n t ) ) ) ;
i f ( s o u n d i d n a m e = = 0 ) { s o u n d n a m e = 0 ; }
i f ( s o u n d i d n a m e = = 1 ) { s o u n d n a m e = 1 ; }
i f ( s o u n d i d n a m e = = 2 ) { s o u n d n a m e = 2 ; }
i f ( s o u n d i d n a m e = = 3 ) { s o u n d n a m e = 3 ; }
i f ( s o u n d i d n a m e = = 4 ) { s o u n d n a m e = 4 ; }
i f ( s o u n d i d n a m e = = 5 ) { s o u n d n a m e = 5 ; }
i f ( s o u n d i d n a m e = = 6 ) { s o u n d n a m e = 6 ; }
}
i f ( G l o b a l V a r i a b l e C h e c k ( " M a s I N _ s o u n d n a m e S e c o n d " + s t r i n g ( i n t P a r e n t ) ) )
{
i n t s o u n d i d n a m e = i n t ( G l o b a l V a r i a b l e G e t ( " M a s I N _ s o u n d n a m e S e c o n d " + s t r i n g ( i n t P a r e n t ) ) ) ;
i f ( s o u n d i d n a m e = = 0 ) { s o u n d n a m e S e c o n d = 0 ; }
i f ( s o u n d i d n a m e = = 1 ) { s o u n d n a m e S e c o n d = 1 ; }
i f ( s o u n d i d n a m e = = 2 ) { s o u n d n a m e S e c o n d = 2 ; }
i f ( s o u n d i d n a m e = = 3 ) { s o u n d n a m e S e c o n d = 3 ; }
i f ( s o u n d i d n a m e = = 4 ) { s o u n d n a m e S e c o n d = 4 ; }
i f ( s o u n d i d n a m e = = 5 ) { s o u n d n a m e S e c o n d = 5 ; }
i f ( s o u n d i d n a m e = = 6 ) { s o u n d n a m e S e c o n d = 6 ; }
}
i f ( G l o b a l V a r i a b l e C h e c k ( " M a s I N _ S h o w D a i l y O p e n " + s t r i n g ( i n t P a r e n t ) ) )
{
S h o w D a i l y O p e n = d o u b l e ( G l o b a l V a r i a b l e G e t ( " M a s I N _ S h o w D a i l y O p e n " + s t r i n g ( i n t P a r e n t ) ) ) ;
}
i f ( G l o b a l V a r i a b l e C h e c k ( " M a s I N _ S h o w G r i d " + s t r i n g ( i n t P a r e n t ) ) )
{
S h o w G r i d = d o u b l e ( G l o b a l V a r i a b l e G e t ( " M a s I N _ S h o w G r i d " + s t r i n g ( i n t P a r e n t ) ) ) ;
}
i f ( G l o b a l V a r i a b l e C h e c k ( " M a s I N _ S h o w P i v o t " + s t r i n g ( i n t P a r e n t ) ) )
{
S h o w P i v o t = d o u b l e ( G l o b a l V a r i a b l e G e t ( " M a s I N _ S h o w P i v o t " + s t r i n g ( i n t P a r e n t ) ) ) ;
}
i f ( G l o b a l V a r i a b l e C h e c k ( " M a s I N _ S h o w P i v o t F i b o " + s t r i n g ( i n t P a r e n t ) ) )
{
S h o w P i v o t F i b o = d o u b l e ( G l o b a l V a r i a b l e G e t ( " M a s I N _ S h o w P i v o t F i b o " + s t r i n g ( i n t P a r e n t ) ) ) ;
}
i f ( G l o b a l V a r i a b l e C h e c k ( " M a s I N _ " + S y m b o l ( ) + " _ D e f a u l t S L " + s t r i n g ( i n t P a r e n t ) ) )
{
D e f a u l t S L = d o u b l e ( G l o b a l V a r i a b l e G e t ( " M a s I N _ " + S y m b o l ( ) + " _ D e f a u l t S L " + s t r i n g ( i n t P a r e n t ) ) ) ;
}
i f ( G l o b a l V a r i a b l e C h e c k ( " M a s I N _ " + S y m b o l ( ) + " _ D e f a u l t T P " + s t r i n g ( i n t P a r e n t ) ) )
{
D e f a u l t T P = d o u b l e ( G l o b a l V a r i a b l e G e t ( " M a s I N _ " + S y m b o l ( ) + " _ D e f a u l t T P " + s t r i n g ( i n t P a r e n t ) ) ) ;
}
i f ( G l o b a l V a r i a b l e C h e c k ( " M a s I N _ " + S y m b o l ( ) + " _ S L T P a l e r t " + s t r i n g ( i n t P a r e n t ) ) )
{
S L T P a l e r t = d o u b l e ( G l o b a l V a r i a b l e G e t ( " M a s I N _ " + S y m b o l ( ) + " _ S L T P a l e r t " + s t r i n g ( i n t P a r e n t ) ) ) ;
}
i f ( G l o b a l V a r i a b l e C h e c k ( " M a s I N _ " + S y m b o l ( ) + " _ P i p I n t e r v a l " + s t r i n g ( i n t P a r e n t ) ) )
{
P i p I n t e r v a l = i n t ( G l o b a l V a r i a b l e G e t ( " M a s I N _ " + S y m b o l ( ) + " _ P i p I n t e r v a l " + s t r i n g ( i n t P a r e n t ) ) ) ;
}
i f ( G l o b a l V a r i a b l e C h e c k ( " M a s I N _ C o l o r V a r i a t i o n " + s t r i n g ( i n t P a r e n t ) ) )
{
C o l o r V a r i a t i o n = i n t ( G l o b a l V a r i a b l e G e t ( " M a s I N _ C o l o r V a r i a t i o n " + s t r i n g ( i n t P a r e n t ) ) ) ;
}
i f ( A c c o u n t ) { a c c o u n t t y p e = A C C O U N T _ B A L A N C E ; } e l s e { a c c o u n t t y p e = A C C O U N T _ E Q U I T Y ; }
/ / T I M E F R A M E B U T T O N
/ / Z o o m i n
B u t t o n C r e a t e ( 0 , " M a s I N _ L _ Z o m m I n B u t t o n " , 0 , 0 , 1 5 , 2 5 , 1 5 , 2 , " Z + " , " A r i a l " , 1 0 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
/ / Z o o m o u t
B u t t o n C r e a t e ( 0 , " M a s I N _ L _ Z o m m O u t B u t t o n " , 0 , 2 4 , 1 5 , 2 5 , 1 5 , 2 , " Z - " , " A r i a l " , 1 0 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
/ / M 1 b u t t o n
i f ( P e r i o d ( ) = = P E R I O D _ M 1 )
{
B u t t o n C r e a t e ( 0 , " M a s I N _ L _ M 1 B u t t o n " , 0 , 4 8 , 1 5 , 2 5 , 1 5 , 2 , " M 1 " , " A r i a l " , 8 , B a c k g r o u n d C o l o r , T e x t C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
} e l s e {
B u t t o n C r e a t e ( 0 , " M a s I N _ L _ M 1 B u t t o n " , 0 , 4 8 , 1 5 , 2 5 , 1 5 , 2 , " M 1 " , " A r i a l " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L _ M 1 B u t t o n " , O B J P R O P _ T O O L T I P , " C h o o s e 1 M i n u t e p e r i o d " ) ;
/ / M 5 b u t t o n
i f ( P e r i o d ( ) = = P E R I O D _ M 5 )
{
B u t t o n C r e a t e ( 0 , " M a s I N _ L _ M 5 B u t t o n " , 0 , 7 2 , 1 5 , 2 5 , 1 5 , 2 , " M 5 " , " A r i a l " , 8 , B a c k g r o u n d C o l o r , T e x t C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
} e l s e {
B u t t o n C r e a t e ( 0 , " M a s I N _ L _ M 5 B u t t o n " , 0 , 7 2 , 1 5 , 2 5 , 1 5 , 2 , " M 5 " , " A r i a l " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L _ M 5 B u t t o n " , O B J P R O P _ T O O L T I P , " C h o o s e 5 M i n u t e s p e r i o d " ) ;
/ / M 1 5 b u t t o n
i f ( P e r i o d ( ) = = P E R I O D _ M 1 5 )
{
B u t t o n C r e a t e ( 0 , " M a s I N _ L _ M 1 5 B u t t o n " , 0 , 9 6 , 1 5 , 2 5 , 1 5 , 2 , " M 1 5 " , " A r i a l " , 8 , B a c k g r o u n d C o l o r , T e x t C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
} e l s e {
B u t t o n C r e a t e ( 0 , " M a s I N _ L _ M 1 5 B u t t o n " , 0 , 9 6 , 1 5 , 2 5 , 1 5 , 2 , " M 1 5 " , " A r i a l " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L _ M 1 5 B u t t o n " , O B J P R O P _ T O O L T I P , " C h o o s e 1 5 M i n u t e s p e r i o d " ) ;
/ / M 3 0 b u t t o n
i f ( P e r i o d ( ) = = P E R I O D _ M 3 0 )
{
B u t t o n C r e a t e ( 0 , " M a s I N _ L _ M 3 0 B u t t o n " , 0 , 1 2 0 , 1 5 , 2 5 , 1 5 , 2 , " M 3 0 " , " A r i a l " , 8 , B a c k g r o u n d C o l o r , T e x t C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
} e l s e {
B u t t o n C r e a t e ( 0 , " M a s I N _ L _ M 3 0 B u t t o n " , 0 , 1 2 0 , 1 5 , 2 5 , 1 5 , 2 , " M 3 0 " , " A r i a l " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L _ M 3 0 B u t t o n " , O B J P R O P _ T O O L T I P , " C h o o s e 3 0 M i n u t e s p e r i o d " ) ;
/ / H 1 b u t t o n
i f ( P e r i o d ( ) = = P E R I O D _ H 1 )
{
B u t t o n C r e a t e ( 0 , " M a s I N _ L _ H 1 B u t t o n " , 0 , 1 4 4 , 1 5 , 2 5 , 1 5 , 2 , " H 1 " , " A r i a l " , 8 , B a c k g r o u n d C o l o r , T e x t C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
} e l s e {
B u t t o n C r e a t e ( 0 , " M a s I N _ L _ H 1 B u t t o n " , 0 , 1 4 4 , 1 5 , 2 5 , 1 5 , 2 , " H 1 " , " A r i a l " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L _ H 1 B u t t o n " , O B J P R O P _ T O O L T I P , " C h o o s e 1 H o u r p e r i o d " ) ;
/ / H 4 b u t t o n
i f ( P e r i o d ( ) = = P E R I O D _ H 4 )
{
B u t t o n C r e a t e ( 0 , " M a s I N _ L _ H 4 B u t t o n " , 0 , 1 6 8 , 1 5 , 2 5 , 1 5 , 2 , " H 4 " , " A r i a l " , 8 , B a c k g r o u n d C o l o r , T e x t C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
} e l s e {
B u t t o n C r e a t e ( 0 , " M a s I N _ L _ H 4 B u t t o n " , 0 , 1 6 8 , 1 5 , 2 5 , 1 5 , 2 , " H 4 " , " A r i a l " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L _ H 4 B u t t o n " , O B J P R O P _ T O O L T I P , " C h o o s e 4 H o u r s p e r i o d " ) ;
/ / D 1 b u t t o n
i f ( P e r i o d ( ) = = P E R I O D _ D 1 )
{
B u t t o n C r e a t e ( 0 , " M a s I N _ L _ D 1 B u t t o n " , 0 , 1 9 2 , 1 5 , 2 5 , 1 5 , 2 , " D 1 " , " A r i a l " , 8 , B a c k g r o u n d C o l o r , T e x t C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
} e l s e {
B u t t o n C r e a t e ( 0 , " M a s I N _ L _ D 1 B u t t o n " , 0 , 1 9 2 , 1 5 , 2 5 , 1 5 , 2 , " D 1 " , " A r i a l " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L _ D 1 B u t t o n " , O B J P R O P _ T O O L T I P , " C h o o s e 1 D a y p e r i o d " ) ;
/ / W 1 b u t t o n
i f ( P e r i o d ( ) = = P E R I O D _ W 1 )
{
B u t t o n C r e a t e ( 0 , " M a s I N _ L _ W 1 B u t t o n " , 0 , 2 1 4 , 1 5 , 2 5 , 1 5 , 2 , " W 1 " , " A r i a l " , 8 , B a c k g r o u n d C o l o r , T e x t C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
} e l s e {
B u t t o n C r e a t e ( 0 , " M a s I N _ L _ W 1 B u t t o n " , 0 , 2 1 4 , 1 5 , 2 5 , 1 5 , 2 , " W 1 " , " A r i a l " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L _ W 1 B u t t o n " , O B J P R O P _ T O O L T I P , " C h o o s e 1 W e e k p e r i o d " ) ;
/ / M N b u t t o n
i f ( P e r i o d ( ) = = P E R I O D _ M N 1 )
{
B u t t o n C r e a t e ( 0 , " M a s I N _ L _ M N B u t t o n " , 0 , 2 3 8 , 1 5 , 2 5 , 1 5 , 2 , " M N " , " A r i a l " , 8 , B a c k g r o u n d C o l o r , T e x t C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
} e l s e {
B u t t o n C r e a t e ( 0 , " M a s I N _ L _ M N B u t t o n " , 0 , 2 3 8 , 1 5 , 2 5 , 1 5 , 2 , " M N " , " A r i a l " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L _ M N B u t t o n " , O B J P R O P _ T O O L T I P , " C h o o s e 1 M o n t h p e r i o d " ) ;
/ / I n f o r m a t i o n s
p o i n t = P o i n t ;
i f ( ( D i g i t s = = 3 ) | | ( D i g i t s = = 5 ) | | ( D i g i t s = = 1 ) )
{
p o i n t * = 1 0 ;
}
P i p V a l u e s = ( ( ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) * p o i n t ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ) * L o t S i z e ) ;
S w a p L o n g = N o r m a l i z e D o u b l e ( M a r k e t I n f o ( S y m b o l ( ) , 1 8 ) , 2 ) ;
S w a p S h o r t = N o r m a l i z e D o u b l e ( M a r k e t I n f o ( S y m b o l ( ) , 1 9 ) , 2 ) ;
S p r e a d P i p = M a r k e t I n f o ( S y m b o l ( ) , M O D E _ S P R E A D ) / p o i n t ;
S p r e a d P i p V a l u e = ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ S P R E A D ) / p o i n t ) * P i p V a l u e s ;
S L T P b r o k e r L i m i t = M a r k e t I n f o ( S y m b o l ( ) , M O D E _ S T O P L E V E L ) ;
M a x i m u m L o t = M a r k e t I n f o ( S y m b o l ( ) , M O D E _ M A X L O T ) ;
M i n i m u m L o t S i z e = M a r k e t I n f o ( S y m b o l ( ) , M O D E _ M I N L O T ) ;
L o t S t e p = M a r k e t I n f o ( S y m b o l ( ) , M O D E _ L O T S T E P ) ;
r i s k m o n e y = 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 t y p e ) ) / 1 0 0 * R i s k ;
P i p V a l u e s o n e l o t = ( ( ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) * p o i n t ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ) * 1 ) ;
/ / S h o w I n f o r m a t i o n s
/ / L 1 C 1
E d i t C r e a t e ( 0 , " M a s I N _ L 1 C 1 " , 0 , 0 , 4 5 , 2 4 0 , 1 6 , " " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
P i p V a l u e s = ( ( ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) * p o i n t ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ) * L o t S i z e ) ;
i f ( L o t S i z e > M a x i m u m L o t | | L o t S i z e < M i n i m u m L o t S i z e )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ C O L O R , c l r R e d ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ C O L O R , T e x t C o l o r ) ;
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ T E X T , " L o t : " + D o u b l e T o S t r ( L o t S i z e , 2 ) + " / " + C u r r e n c y F o r m a t ( P i p V a l u e s , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ T O O L T I P , " " ) ;
/ / L 1 C 2
E d i t C r e a t e ( 0 , " M a s I N _ L 1 C 2 " , 0 , 2 3 9 , 4 5 , 2 7 0 , 1 6 , " " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 2 " , O B J P R O P _ T E X T , " C l i c k : " ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 2 " , O B J P R O P _ T O O L T I P , " " ) ;
/ / L 1 C 3
E d i t C r e a t e ( 0 , " M a s I N _ L 1 C 3 " , 0 , 5 0 8 , 4 5 , 2 1 0 , 1 6 , " " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 3 " , O B J P R O P _ T E X T , " S w a p B / S : " + D o u b l e T o S t r ( S w a p L o n g , 2 ) + " / " + D o u b l e T o S t r ( S w a p S h o r t , 2 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 3 " , O B J P R O P _ T O O L T I P , " " ) ;
/ / L 2 C 1
E d i t C r e a t e ( 0 , " M a s I N _ L 2 C 1 " , 0 , 0 , 3 0 , 2 4 0 , 1 6 , " " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 1 " , O B J P R O P _ T E X T , " S p r e a d : " ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 1 " , O B J P R O P _ T O O L T I P , " " ) ;
/ / L 2 C 2
E d i t C r e a t e ( 0 , " M a s I N _ L 2 C 2 " , 0 , 2 3 9 , 3 0 , 2 7 0 , 1 6 , " " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 2 " , O B J P R O P _ T E X T , " M o u s e : " ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 2 " , O B J P R O P _ T O O L T I P , " " ) ;
/ / L 2 C 3
E d i t C r e a t e ( 0 , " M a s I N _ L 2 C 3 " , 0 , 5 0 8 , 3 0 , 2 1 0 , 1 6 , " " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 3 " , O B J P R O P _ T E X T , " N e x t C a n d l e : " ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 3 " , O B J P R O P _ T O O L T I P , " " ) ;
/ / L 3 C 1
E d i t C r e a t e ( 0 , " M a s I N _ L 3 C 1 " , 0 , 0 , 6 0 , 2 5 0 , 1 6 , " " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 3 C 1 " , O B J P R O P _ T E X T , " R i s k : " + D o u b l e T o S t r ( R i s k , 2 ) + " % / " + C u r r e n c y F o r m a t ( r i s k m o n e y , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 3 C 1 " , O B J P R O P _ T O O L T I P , " " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 3 C 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 | | O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 3 C 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
/ / L 3 C 2
E d i t C r e a t e ( 0 , " M a s I N _ L 3 C 2 " , 0 , 2 3 9 , 6 0 , 4 7 9 , 1 6 , " " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 3 C 2 " , O B J P R O P _ T E X T , " " ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 3 C 2 " , O B J P R O P _ T O O L T I P , " " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 3 C 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 | | O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 3 C 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
/ / L o t b u t t o n +
B u t t o n C r e a t e ( 0 , " M a s I N _ L o t S i z e B u t t o n P l u s " , 0 , 7 0 , 4 2 , 1 2 , 1 2 , 2 , " + " , " C o u r i e r N e w " , 1 0 , T e x t C o l o r , B a c k g r o u n d C o l o r , B a c k g r o u n d C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L o t S i z e B u t t o n P l u s " , O B J P R O P _ T O O L T I P , " U s e c a n u s e ' P ' k e y t o i n c r e a s e " ) ;
/ / L o t b u t t o n -
B u t t o n C r e a t e ( 0 , " M a s I N _ L o t S i z e B u t t o n M i n u s " , 0 , 7 9 , 4 2 , 1 2 , 1 2 , 2 , " - " , " C o u r i e r N e w " , 1 0 , T e x t C o l o r , B a c k g r o u n d C o l o r , B a c k g r o u n d C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L o t S i z e B u t t o n M i n u s " , O B J P R O P _ T O O L T I P , " U s e c a n u s e ' M ' k e y t o d e c r e a s e " ) ;
/ / R i s k b u t t o n +
B u t t o n C r e a t e ( 0 , " M a s I N _ R i s k B u t t o n P l u s " , 0 , 7 0 , 5 7 , 1 2 , 1 2 , 2 , " + " , " C o u r i e r N e w " , 1 0 , T e x t C o l o r , B a c k g r o u n d C o l o r , B a c k g r o u n d C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ R i s k B u t t o n P l u s " , O B J P R O P _ T O O L T I P , " " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ R i s k B u t t o n P l u s " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 | | O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ R i s k B u t t o n P l u s " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
/ / R i s k b u t t o n -
B u t t o n C r e a t e ( 0 , " M a s I N _ R i s k B u t t o n M i n u s " , 0 , 7 9 , 5 7 , 1 2 , 1 2 , 2 , " - " , " C o u r i e r N e w " , 1 0 , T e x t C o l o r , B a c k g r o u n d C o l o r , B a c k g r o u n d C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ R i s k B u t t o n M i n u s " , O B J P R O P _ T O O L T I P , " " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ R i s k B u t t o n M i n u s " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 | | O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ R i s k B u t t o n M i n u s " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
/ / L 0 C 2
E d i t C r e a t e ( 0 , " M a s I N _ L 0 C 2 " , 0 , 2 6 2 , 1 5 , 2 2 7 , 1 6 , " " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 2 " , O B J P R O P _ T E X T , " L i n e " + L i n e H o r i z o n t a l + " : " ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 2 " , O B J P R O P _ T O O L T I P , " " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
/ / L i n e A a l e r t b u t t o n
i f ( A l a r m C r o s s W h i t h A l e r t )
{
t e m p a l e r t c o l o r = c l r G r e e n ;
}
e l s e
{
t e m p a l e r t c o l o r = c l r R e d ;
}
B u t t o n C r e a t e ( 0 , " M a s I N _ L i n e A B u t t o n A l e r t " , 0 , 3 3 0 , 1 3 , 1 5 , 1 2 , 2 , " A " , " C o u r i e r N e w " , 8 , t e m p a l e r t c o l o r , B a c k g r o u n d C o l o r , t e m p a l e r t c o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L i n e A B u t t o n A l e r t " , O B J P R O P _ T O O L T I P , " A l e r t a c t i v a t e d o r n o t " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e A B u t t o n A l e r t " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( s h o w l i n e A )
{
t e m p s h o w c o l o r = c l r G r e e n ;
}
e l s e
{
t e m p s h o w c o l o r = c l r R e d ;
}
B u t t o n C r e a t e ( 0 , " M a s I N _ L i n e A B u t t o n S h o w " , 0 , 3 5 0 , 1 3 , 5 0 , 1 2 , 2 , " S h o w " , " C o u r i e r N e w " , 8 , t e m p s h o w c o l o r , B a c k g r o u n d C o l o r , t e m p s h o w c o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L i n e A B u t t o n S h o w " , O B J P R O P _ T O O L T I P , " S h o w / h i d e a l l L i n e " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e A B u t t o n S h o w " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
B u t t o n C r e a t e ( 0 , " M a s I N _ L i n e A B u t t o n S o u n d " , 0 , 4 0 5 , 1 3 , 8 0 , 1 2 , 2 , E n u m T o S t r i n g ( s o u n d n a m e ) , " C o u r i e r N e w " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , T e x t C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L i n e A B u t t o n S o u n d " , O B J P R O P _ T O O L T I P , " C h a n g e S o u n d A l e r t " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e A B u t t o n S o u n d " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
/ / L 0 C 3
E d i t C r e a t e ( 0 , " M a s I N _ L 0 C 3 " , 0 , 4 8 8 , 1 5 , 2 3 0 , 1 6 , " " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 3 " , O B J P R O P _ T E X T , " L i n e " + L i n e H o r i z o n t a l S e c o n d + " : " ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 3 " , O B J P R O P _ T O O L T I P , " " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
/ / L 4 C 1
E d i t C r e a t e ( 0 , " M a s I N _ L 4 C 1 " , 0 , 0 , 7 5 , 7 1 8 , 1 6 , " " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 4 C 1 " , O B J P R O P _ T E X T , " S L : T P : " ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 4 C 1 " , O B J P R O P _ T O O L T I P , " " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 C 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 | | O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 C 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
B u t t o n C r e a t e ( 0 , " M a s I N _ L 4 _ B S L M " , 0 , 2 6 , 7 3 , 3 0 , 1 2 , 2 , " M i n " , " C o u r i e r N e w " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , T e x t C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 4 _ B S L M " , O B J P R O P _ T O O L T I P , " M i n i m u m S L a u t h o r i z e " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 | | O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
i f ( S L T P b r o k e r L i m i t = = 0 )
{
i f ( ( D i g i t s = = 3 ) | | ( D i g i t s = = 5 ) | | ( D i g i t s = = 1 ) )
{
S L T P b r o k e r L i m i t n o t z e r o = D e f a u l t S L * 1 0 ;
}
e l s e
{
S L T P b r o k e r L i m i t n o t z e r o = D e f a u l t S L ;
}
}
e l s e
{
S L T P b r o k e r L i m i t n o t z e r o = S L T P b r o k e r L i m i t ;
}
B u t t o n C r e a t e ( 0 , " M a s I N _ L 4 _ B S L M 2 " , 0 , 5 5 , 7 3 , 4 0 , 1 2 , 2 , s t r i n g ( i n t ( S L T P b r o k e r L i m i t n o t z e r o / p o i n t * P o i n t * 2 ) ) , " C o u r i e r N e w " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , T e x t C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 4 _ B S L M 2 " , O B J P R O P _ T O O L T I P , " - " + s t r i n g ( i n t ( S L T P b r o k e r L i m i t n o t z e r o / p o i n t * P o i n t * 2 ) ) + " P i p s " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 | | O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
B u t t o n C r e a t e ( 0 , " M a s I N _ L 4 _ B S L M 3 " , 0 , 9 4 , 7 3 , 4 0 , 1 2 , 2 , s t r i n g ( i n t ( S L T P b r o k e r L i m i t n o t z e r o / p o i n t * P o i n t * 3 ) ) , " C o u r i e r N e w " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , T e x t C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 4 _ B S L M 3 " , O B J P R O P _ T O O L T I P , " - " + s t r i n g ( i n t ( S L T P b r o k e r L i m i t n o t z e r o / p o i n t * P o i n t * 3 ) ) + " P i p s " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 | | O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
B u t t o n C r e a t e ( 0 , " M a s I N _ L 4 _ B S L M 4 " , 0 , 1 3 3 , 7 3 , 4 0 , 1 2 , 2 , s t r i n g ( i n t ( S L T P b r o k e r L i m i t n o t z e r o / p o i n t * P o i n t * 4 ) ) , " C o u r i e r N e w " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , T e x t C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 4 _ B S L M 4 " , O B J P R O P _ T O O L T I P , " - " + s t r i n g ( i n t ( S L T P b r o k e r L i m i t n o t z e r o / p o i n t * P o i n t * 4 ) ) + " P i p s " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 | | O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
B u t t o n C r e a t e ( 0 , " M a s I N _ L 4 _ B S L M 5 " , 0 , 1 7 2 , 7 3 , 4 0 , 1 2 , 2 , s t r i n g ( i n t ( S L T P b r o k e r L i m i t n o t z e r o / p o i n t * P o i n t * 5 ) ) , " C o u r i e r N e w " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , T e x t C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 4 _ B S L M 5 " , O B J P R O P _ T O O L T I P , " - " + s t r i n g ( i n t ( S L T P b r o k e r L i m i t n o t z e r o / p o i n t * P o i n t * 5 ) ) + " P i p s " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 5 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 | | O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 5 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
B u t t o n C r e a t e ( 0 , " M a s I N _ L 4 _ B S L A T R " , 0 , 2 1 1 , 7 3 , 4 0 , 1 2 , 2 , " A T R " , " C o u r i e r N e w " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , T e x t C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 4 _ B S L A T R " , O B J P R O P _ T O O L T I P , " A T R " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L A T R " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 | | O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L A T R " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
B u t t o n C r e a t e ( 0 , " M a s I N _ L 4 _ B T P R R 1 " , 0 , 2 9 2 , 7 3 , 4 0 , 1 2 , 2 , " R R 1 " , " C o u r i e r N e w " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , T e x t C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 4 _ B T P R R 1 " , O B J P R O P _ T O O L T I P , " R i s k R e w a r d 1 : 1 " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 | | O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
B u t t o n C r e a t e ( 0 , " M a s I N _ L 4 _ B T P R R 2 " , 0 , 3 3 1 , 7 3 , 4 0 , 1 2 , 2 , " R R 2 " , " C o u r i e r N e w " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , T e x t C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 4 _ B T P R R 2 " , O B J P R O P _ T O O L T I P , " R i s k R e w a r d 1 : 2 " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 | | O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
B u t t o n C r e a t e ( 0 , " M a s I N _ L 4 _ B T P R R 3 " , 0 , 3 7 0 , 7 3 , 4 0 , 1 2 , 2 , " R R 3 " , " C o u r i e r N e w " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , T e x t C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 4 _ B T P R R 3 " , O B J P R O P _ T O O L T I P , " R i s k R e w a r d 1 : 3 " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 | | O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
B u t t o n C r e a t e ( 0 , " M a s I N _ L 4 _ B T P R R 4 " , 0 , 4 0 9 , 7 3 , 4 0 , 1 2 , 2 , " R R 4 " , " C o u r i e r N e w " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , T e x t C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 4 _ B T P R R 4 " , O B J P R O P _ T O O L T I P , " R i s k R e w a r d 1 : 4 " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 | | O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
/ / S l T p P S t o p L o s s T a k e P r o f i t P e n d i n g O r d e r
E d i t C r e a t e ( 0 , " M a s I N _ L 3 C 1 - e r r o r " , 0 , 4 5 0 , 7 3 , 2 5 0 , 1 3 , " " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , c l r R e d , B a c k g r o u n d C o l o r , B a c k g r o u n d C o l o r , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 3 C 1 - e r r o r " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
/ / L i n e Q a l e r t b u t t o n
i f ( A l a r m C r o s s W h i t h A l e r t S e c o n d )
{
t e m p a l e r t c o l o r = c l r G r e e n ;
}
e l s e
{
t e m p a l e r t c o l o r = c l r R e d ;
}
B u t t o n C r e a t e ( 0 , " M a s I N _ L i n e Q B u t t o n A l e r t " , 0 , 5 5 6 , 1 3 , 1 5 , 1 2 , 2 , " A " , " C o u r i e r N e w " , 8 , t e m p a l e r t c o l o r , B a c k g r o u n d C o l o r , t e m p a l e r t c o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L i n e Q B u t t o n A l e r t " , O B J P R O P _ T O O L T I P , " A l e r t a c t i v a t e d o r n o t " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e Q B u t t o n A l e r t " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( s h o w l i n e Q )
{
t e m p s h o w c o l o r = c l r G r e e n ;
}
e l s e
{
t e m p s h o w c o l o r = c l r R e d ;
}
B u t t o n C r e a t e ( 0 , " M a s I N _ L i n e Q B u t t o n S h o w " , 0 , 5 7 6 , 1 3 , 5 0 , 1 2 , 2 , " S h o w " , " C o u r i e r N e w " , 8 , t e m p s h o w c o l o r , B a c k g r o u n d C o l o r , t e m p s h o w c o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L i n e Q B u t t o n S h o w " , O B J P R O P _ T O O L T I P , " S h o w / h i d e a l l L i n e " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e Q B u t t o n S h o w " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
B u t t o n C r e a t e ( 0 , " M a s I N _ L i n e Q B u t t o n S o u n d " , 0 , 6 3 1 , 1 3 , 8 0 , 1 2 , 2 , E n u m T o S t r i n g ( s o u n d n a m e S e c o n d ) , " C o u r i e r N e w " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , T e x t C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L i n e Q B u t t o n S o u n d " , O B J P R O P _ T O O L T I P , " C h a n g e S o u n d A l e r t " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e Q B u t t o n S o u n d " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
/ / S u p p o r t R e s i s t a n c e M a n a g e m e n t
i n t i ;
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ K c S R _ " ) > - 1 )
{
o b j e c t l i n e = O b j e c t N a m e ( i ) ;
S t r i n g R e p l a c e ( o b j e c t l i n e , " M a s I N _ K c S R _ " , " " ) ;
i f ( S t r i n g S u b s t r ( o b j e c t l i n e , 0 , S t r i n g F i n d ( o b j e c t l i n e , " _ " ) ) = = S y m b o l ( ) )
{
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ R S " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ S E L E C T A B L E , t r u e ) ;
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ S E L E C T E D , t r u e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e A B u t t o n A l e r t " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e A B u t t o n S h o w " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e Q B u t t o n A l e r t " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e Q B u t t o n S h o w " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e A B u t t o n S o u n d " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e Q B u t t o n S o u n d " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
}
i f ( S t r i n g S u b s t r ( o b j e c t l i n e , 0 , S t r i n g F i n d ( o b j e c t l i n e , " _ " ) ) ! = S y m b o l ( ) )
{
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
}
}
}
/ / M o n e y M a n a g e r
/ / T P b u t t o n O n / O f f
i f ( C r e a t e T P ) { o n o f f = " T P O n " ; o n o f f c o l o r = c l r G r e e n ; } e l s e { o n o f f = " T P O f f " ; o n o f f c o l o r = c l r R e d ; }
B u t t o n C r e a t e ( 0 , " M a s I N _ M M G T b o x _ T P B u t t o n " , 0 , 2 4 5 , 5 8 , 4 5 , 1 2 , 2 , o n o f f , " C o u r i e r N e w " , 8 , o n o f f c o l o r , B a c k g r o u n d C o l o r , o n o f f c o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ M M G T b o x _ T P B u t t o n " , O B J P R O P _ T O O L T I P , " T p l i n e O n / O f f " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ T P B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 | | O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ T P B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
/ / S L b u t t o n O n / O f f
i f ( C r e a t e S L ) { o n o f f = " S L O n " ; o n o f f c o l o r = c l r G r e e n ; } e l s e { o n o f f = " S L O f f " ; o n o f f c o l o r = c l r R e d ; }
B u t t o n C r e a t e ( 0 , " M a s I N _ M M G T b o x _ S L B u t t o n " , 0 , 2 9 8 , 5 8 , 4 5 , 1 2 , 2 , o n o f f , " C o u r i e r N e w " , 8 , o n o f f c o l o r , B a c k g r o u n d C o l o r , o n o f f c o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ M M G T b o x _ S L B u t t o n " , O B J P R O P _ T O O L T I P , " S l l i n e O n / O f f " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ S L B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 | | O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ S L B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
i f ( f o l l o w p r i c e ) { Y e s N o c o l o r = c l r G r e e n ; } e l s e { Y e s N o c o l o r = c l r R e d ; }
B u t t o n C r e a t e ( 0 , " M a s I N _ M M G T b o x _ F o l l o w B u t t o n " , 0 , 3 5 0 , 5 8 , 1 0 0 , 1 2 , 2 , " F o l l o w P r i c e " , " C o u r i e r N e w " , 8 , Y e s N o c o l o r , B a c k g r o u n d C o l o r , Y e s N o c o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ M M G T b o x _ F o l l o w B u t t o n " , O B J P R O P _ T O O L T I P , " B u y / S e l l l i n e f o l l o w t h e a c t u a l p r i c e " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ F o l l o w B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 | | O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ F o l l o w B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
/ / O r d e r b u t t o n S e l l / B u y / B u y l i m i t / B u y s t o p / S e l l l i m i t / S e l l s t o p
B u t t o n C r e a t e ( 0 , " M a s I N _ M M G T b o x _ O r d e r B u t t o n " , 0 , 4 6 0 , 5 8 , 2 4 0 , 1 2 , 2 , " " , " C o u r i e r N e w " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , T e x t C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ M M G T b o x _ O r d e r B u t t o n " , O B J P R O P _ T O O L T I P , " O p e n a n O r d e r " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ O r d e r B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 | | O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ O r d e r B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
/ / C l o s e a l l M o n e y M a n a g e r o b j e c t
B u t t o n C r e a t e ( 0 , " M a s I N _ M M G T b o x _ C l o s e B u t t o n " , 0 , 7 0 1 , 5 8 , 1 5 , 1 2 , 2 , " X " , " C o u r i e r N e w " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , T e x t C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ M M G T b o x _ C l o s e B u t t o n " , O B J P R O P _ T O O L T I P , " C l o s e M o n e y M a n a g e r " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ C l o s e B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 | | O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ C l o s e B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
/ / L 0 C 4
E d i t C r e a t e ( 0 , " M a s I N _ L 0 C 4 " , 0 , 7 1 7 , 1 5 , 1 0 0 , 1 5 , " " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ T E X T , " " ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ T O O L T I P , " C C I i n d i c a t o r " ) ;
/ / L 1 C 4
E d i t C r e a t e ( 0 , " M a s I N _ L 1 C 4 " , 0 , 7 1 7 , 3 0 , 1 0 0 , 1 5 , " " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ T E X T , " " ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ T O O L T I P , " S t o c h a s t i c i n d i c a t o r " ) ;
/ / L 2 C 4
E d i t C r e a t e ( 0 , " M a s I N _ L 2 C 4 " , 0 , 7 1 7 , 4 5 , 1 0 0 , 1 5 , " " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ T E X T , " " ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ T O O L T I P , " R S I i n d i c a t o r " ) ;
/ / L 0 C 5
E d i t C r e a t e ( 0 , " M a s I N _ L 0 C 5 " , 0 , 8 1 6 , 1 5 , 1 1 0 , 1 5 , " " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 5 " , O B J P R O P _ T E X T , " " ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 5 " , O B J P R O P _ T O O L T I P , " M A C D i n d i c a t o r " ) ;
/ / L 1 C 5
E d i t C r e a t e ( 0 , " M a s I N _ L 1 C 5 " , 0 , 8 1 6 , 3 0 , 1 1 0 , 1 5 , " " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 5 " , O B J P R O P _ T E X T , " " ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 5 " , O B J P R O P _ T O O L T I P , " M o m e n t u m i n d i c a t o r " ) ;
/ / L 2 C 5
E d i t C r e a t e ( 0 , " M a s I N _ L 2 C 5 " , 0 , 8 1 6 , 4 5 , 1 1 0 , 1 5 , " " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 5 " , O B J P R O P _ T E X T , " " ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 5 " , O B J P R O P _ T O O L T I P , " M A S i m p l e / E x p o n e t i a l ( 5 / 1 0 / 2 0 / 5 0 / 1 0 0 / 2 0 0 ) " ) ;
i f ( ! I n d i c a t o r V a l u e )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 5 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 5 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 5 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
}
/ / s u p p o r t l i n e A
i f ( ! s h o w l i n e A )
{
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ K c S R _ " + S y m b o l ( ) ) > - 1 )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ A _ l a b e l " ) > - 1 )
{
o b j e c t l i n e = O b j e c t N a m e ( i ) ;
S t r i n g R e p l a c e ( o b j e c t l i n e , " _ l a b e l " , " _ R S " ) ;
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , o b j e c t l i n e , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
}
}
}
t e m p s h o w 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 , " M a s I N _ L i n e A B u t t o n S h o w " , O B J P R O P _ C O L O R , t e m p s h o w c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e A B u t t o n S h o w " , O B J P R O P _ B O R D E R _ C O L O R , t e m p s h o w c o l o r ) ;
}
e l s e
{
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ K c S R _ " + S y m b o l ( ) ) > - 1 )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ A _ l a b e l " ) > - 1 )
{
o b j e c t l i n e = O b j e c t N a m e ( i ) ;
S t r i n g R e p l a c e ( o b j e c t l i n e , " _ l a b e l " , " _ R S " ) ;
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , o b j e c t l i n e , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
}
}
t e m p s h o w c o l o r = 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 , " M a s I N _ L i n e A B u t t o n S h o w " , O B J P R O P _ C O L O R , t e m p s h o w c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e A B u t t o n S h o w " , O B J P R O P _ B O R D E R _ C O L O R , t e m p s h o w c o l o r ) ;
}
/ / s u p p o r t l i n e Q
i f ( ! s h o w l i n e Q )
{
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ K c S R _ " + S y m b o l ( ) ) > - 1 )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ Q _ l a b e l " ) > - 1 )
{
o b j e c t l i n e = O b j e c t N a m e ( i ) ;
S t r i n g R e p l a c e ( o b j e c t l i n e , " _ l a b e l " , " _ R S " ) ;
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , o b j e c t l i n e , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
}
}
}
t e m p s h o w 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 , " M a s I N _ L i n e Q B u t t o n S h o w " , O B J P R O P _ C O L O R , t e m p s h o w c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e Q B u t t o n S h o w " , O B J P R O P _ B O R D E R _ C O L O R , t e m p s h o w c o l o r ) ;
}
e l s e
{
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ K c S R _ " + S y m b o l ( ) ) > - 1 )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ Q _ l a b e l " ) > - 1 )
{
o b j e c t l i n e = O b j e c t N a m e ( i ) ;
S t r i n g R e p l a c e ( o b j e c t l i n e , " _ l a b e l " , " _ R S " ) ;
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , o b j e c t l i n e , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
}
}
t e m p s h o w c o l o r = 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 , " M a s I N _ L i n e Q B u t t o n S h o w " , O B J P R O P _ C O L O R , t e m p s h o w c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e Q B u t t o n S h o w " , O B J P R O P _ B O R D E R _ C O L O R , t e m p s h o w c o l o r ) ;
}
/ / G R I D
G r i d C o l o r ( ) ;
/ / O P T I O N T O O L
R e c t L a b e l C r e a t e ( 0 , " M a s I N _ O p t i o n _ T o o l " , 0 , 2 , 4 0 0 , 3 0 0 , 3 0 0 , B a c k g r o u n d C o l o r , 0 , 2 , B o r d e r C o l o 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 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ T o o l " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
B u t t o n C r e a t e ( 0 , " M a s I N _ O p t i o n _ B u t t o n " , 0 , 2 8 3 , 3 9 5 , 1 5 , 1 2 , 2 , " X " , " C o u r i e r N e w " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , T e x t C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( S h o w G r i d ) { o n o f f = " G r i d O n " ; o n o f f c o l o r = c l r G r e e n ; } e l s e { o n o f f = " G r i d O f f " ; o n o f f c o l o r = c l r R e d ; }
B u t t o n C r e a t e ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ G r i d " , 0 , 8 , 3 8 5 , 6 5 , 1 5 , 2 , o n o f f , " C o u r i e r N e w " , 8 , o n o f f c o l o r , B a c k g r o u n d C o l o r , o n o f f c o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ G r i d " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
E d i t C r e a t e ( 0 , " M a s I N _ O p t i o n _ E d i t _ G r i d _ P i p _ T e x t " , 0 , 8 0 , 3 8 5 , 1 5 0 , 1 5 , " I n t e r v a l P i p : " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B a c k g r o u n d C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ E d i t _ G r i d _ P i p _ T e x t " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
E d i t C r e a t e ( 0 , " M a s I N _ O p t i o n _ E d i t _ G r i d _ P i p " , 0 , 2 4 2 , 3 8 5 , 4 0 , 1 5 , s t r i n g ( P i p I n t e r v a l ) , " C o u r i e r N e w " , 8 , A L I G N _ C E N T E R , f a l s e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ E d i t _ G r i d _ P i p " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
E d i t C r e a t e ( 0 , " M a s I N _ O p t i o n _ E d i t _ G r i d _ P i p _ T e x t 2 " , 0 , 8 0 , 3 6 5 , 1 5 0 , 1 5 , " C o l o r V a r i a t i o n 0 - 8 : " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B a c k g r o u n d C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ E d i t _ G r i d _ P i p _ T e x t 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
E d i t C r e a t e ( 0 , " M a s I N _ O p t i o n _ E d i t _ G r i d _ V a r i a t i o n " , 0 , 2 4 2 , 3 6 5 , 4 0 , 1 5 , s t r i n g ( C o l o r V a r i a t i o n ) , " C o u r i e r N e w " , 8 , A L I G N _ C E N T E R , f a l s e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ E d i t _ G r i d _ V a r i a t i o n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
E d i t C r e a t e ( 0 , " M a s I N _ O p t i o n _ E d i t _ G r i d _ P i p _ T e x t 3 " , 0 , 8 0 , 3 4 5 , 1 5 0 , 1 5 , " S h o w P r i c e : " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B a c k g r o u n d C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ E d i t _ G r i d _ P i p _ T e x t 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( S h o w P r i c e ) { o n o f f = " O n " ; o n o f f c o l o r = c l r G r e e n ; } e l s e { o n o f f = " O f f " ; o n o f f c o l o r = c l r R e d ; }
B u t t o n C r e a t e ( 0 , " M a s I N _ O p t i o n _ S h o w _ P r i c e " , 0 , 2 4 2 , 3 4 5 , 4 0 , 1 5 , 2 , " O n " , " C o u r i e r N e w " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , T e x t C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ S h o w _ P r i c e " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( S h o w D a i l y O p e n ) { o n o f f = " D a i l y O n " ; o n o f f c o l o r = c l r G r e e n ; } e l s e { o n o f f = " D a i l y O f f " ; o n o f f c o l o r = c l r R e d ; }
B u t t o n C r e a t e ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ D a i l y O p e n " , 0 , 8 , 3 2 5 , 6 5 , 1 5 , 2 , o n o f f , " C o u r i e r N e w " , 8 , o n o f f c o l o r , B a c k g r o u n d C o l o r , o n o f f c o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ D a i l y O p e n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( I n d i c a t o r V a l u e ) { o n o f f = " I n d i c a t o r O n " ; o n o f f c o l o r = c l r G r e e n ; } e l s e { o n o f f = " I n d i c a t o r O f f " ; o n o f f c o l o r = c l r R e d ; }
B u t t o n C r e a t e ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ I n d i c a t o r " , 0 , 8 , 3 0 5 , 1 0 5 , 1 5 , 2 , o n o f f , " C o u r i e r N e w " , 8 , o n o f f c o l o r , B a c k g r o u n d C o l o r , o n o f f c o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ I n d i c a t o r " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( S h o w P i v o t ) { o n o f f = " P i v o t O n " ; o n o f f c o l o r = c l r G r e e n ; } e l s e { o n o f f = " P i v o t O f f " ; o n o f f c o l o r = c l r R e d ; }
B u t t o n C r e a t e ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ P i v o t " , 0 , 8 , 2 8 5 , 1 0 5 , 1 5 , 2 , o n o f f , " C o u r i e r N e w " , 8 , o n o f f c o l o r , B a c k g r o u n d C o l o r , o n o f f c o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ P i v o t " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
i f ( S h o w P i v o t F i b o ) { o n o f f = " P i v o t F i b o n a c c i O n " ; o n o f f c o l o r = c l r G r e e n ; } e l s e { o n o f f = " P i v o t F i b o n a c c i O f f " ; o n o f f c o l o r = c l r R e d ; }
B u t t o n C r e a t e ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ P i v o t F i b o " , 0 , 1 2 0 , 2 8 5 , 1 4 5 , 1 5 , 2 , o n o f f , " C o u r i e r N e w " , 8 , o n o f f c o l o r , B a c k g r o u n d C o l o r , o n o f f c o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ P i v o t F i b o " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
B u t t o n C r e a t e ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ B a c k u p " , 0 , 8 , 2 6 5 , 1 0 5 , 1 5 , 2 , " B a c k u p L i n e s " , " C o u r i e r N e w " , 8 , T e x t C o l o r , B a c k g r o u n d C o l o r , T e x t C o l o r , f a l s e , f a l s e , f a l s e , f a l s e , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ B a c k u p " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ B a c k u p " , O B J P R O P _ T O O L T I P , " C r e a t e a c s v f i l e o f a l l S u p p o r t R e s i s t a n c e L i n e " ) ;
E d i t C r e a t e ( 0 , " M a s I N _ O p t i o n _ D e f a u l t _ S L _ T e x t " , 0 , 8 , 2 4 5 , 1 5 0 , 1 5 , " D e f a u l t S L : " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B a c k g r o u n d C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ D e f a u l t _ S L _ T e x t " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
E d i t C r e a t e ( 0 , " M a s I N _ O p t i o n _ E d i t _ D e f a u l t _ S L " , 0 , 2 4 2 , 2 4 5 , 4 0 , 1 5 , s t r i n g ( D e f a u l t S L ) , " C o u r i e r N e w " , 8 , A L I G N _ C E N T E R , f a l s e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ E d i t _ D e f a u l t _ S L " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
E d i t C r e a t e ( 0 , " M a s I N _ O p t i o n _ D e f a u l t _ T P _ T e x t " , 0 , 8 , 2 2 5 , 1 5 0 , 1 5 , " D e f a u l t T P : " , " C o u r i e r N e w " , 8 , A L I G N _ L E F T , t r u e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B a c k g r o u n d C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ D e f a u l t _ T P _ T e x t " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
E d i t C r e a t e ( 0 , " M a s I N _ O p t i o n _ E d i t _ D e f a u l t _ T P " , 0 , 2 4 2 , 2 2 5 , 4 0 , 1 5 , s t r i n g ( D e f a u l t T P ) , " C o u r i e r N e w " , 8 , A L I G N _ C E N T E R , f a l s e , 2 , T e x t C o l o r , B a c k g r o u n d C o l o r , B o r d e r C o l o r , f a l s e , f a l s e , t r u e , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ E d i t _ D e f a u l t _ T P " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
/ / D a i l y O p e n
S e t I n d e x B u f f e r ( 0 , D a i l y O p e n A r r a y ) ;
S e t I n d e x S t y l e ( 0 , D R A W _ L I N E , S T Y L E _ D A S H , 1 , c l r O r a n g e ) ;
S e t I n d e x L a b e l ( 0 , " M a s I N _ D a i l y O p e n " ) ;
S e t I n d e x E m p t y V a l u e ( 0 , 0 . 0 ) ;
i f ( S h o w D a i l y O p e n )
{
/ / D a i l y O p e n ( ) ;
}
/ / P i v o t
S e t I n d e x B u f f e r ( 1 , P P B u f f e r ) ;
S e t I n d e x S t y l e ( 1 , D R A W _ L I N E , S T Y L E _ D A S H , 1 , c l r O r a n g e R e d ) ;
S e t I n d e x L a b e l ( 1 , " M a s I N _ P I V O T _ P P " ) ;
S e t I n d e x E m p t y V a l u e ( 1 , 0 . 0 ) ;
S e t I n d e x B u f f e r ( 2 , S 1 B u f f e r ) ;
S e t I n d e x S t y l e ( 2 , D R A W _ L I N E , S T Y L E _ D A S H , 1 , L i n e S u p p o r t c o l o r ) ;
S e t I n d e x L a b e l ( 2 , " M a s I N _ P I V O T _ S 1 " ) ;
S e t I n d e x E m p t y V a l u e ( 2 , 0 . 0 ) ;
S e t I n d e x B u f f e r ( 3 , S 2 B u f f e r ) ;
S e t I n d e x S t y l e ( 3 , D R A W _ L I N E , S T Y L E _ D A S H , 1 , L i n e S u p p o r t c o l o r ) ;
S e t I n d e x L a b e l ( 3 , " M a s I N _ P I V O T _ S 2 " ) ;
S e t I n d e x E m p t y V a l u e ( 3 , 0 . 0 ) ;
S e t I n d e x B u f f e r ( 4 , S 3 B u f f e r ) ;
S e t I n d e x S t y l e ( 4 , D R A W _ L I N E , S T Y L E _ D A S H , 1 , L i n e S u p p o r t c o l o r ) ;
S e t I n d e x L a b e l ( 4 , " M a s I N _ P I V O T _ S 3 " ) ;
S e t I n d e x E m p t y V a l u e ( 4 , 0 . 0 ) ;
S e t I n d e x B u f f e r ( 5 , S 4 B u f f e r ) ;
S e t I n d e x S t y l e ( 5 , D R A W _ L I N E , S T Y L E _ D A S H , 1 , L i n e S u p p o r t c o l o r ) ;
S e t I n d e x L a b e l ( 5 , " M a s I N _ P I V O T _ S 4 " ) ;
S e t I n d e x E m p t y V a l u e ( 5 , 0 . 0 ) ;
S e t I n d e x B u f f e r ( 6 , R 1 B u f f e r ) ;
S e t I n d e x S t y l e ( 6 , D R A W _ L I N E , S T Y L E _ D A S H , 1 , L i n e R e s i s t c o l o r ) ;
S e t I n d e x L a b e l ( 6 , " M a s I N _ P I V O T _ R 1 " ) ;
S e t I n d e x E m p t y V a l u e ( 6 , 0 . 0 ) ;
S e t I n d e x B u f f e r ( 7 , R 2 B u f f e r ) ;
S e t I n d e x S t y l e ( 7 , D R A W _ L I N E , S T Y L E _ D A S H , 1 , L i n e R e s i s t c o l o r ) ;
S e t I n d e x L a b e l ( 7 , " M a s I N _ P I V O T _ R 2 " ) ;
S e t I n d e x E m p t y V a l u e ( 7 , 0 . 0 ) ;
S e t I n d e x B u f f e r ( 8 , R 3 B u f f e r ) ;
S e t I n d e x S t y l e ( 8 , D R A W _ L I N E , S T Y L E _ D A S H , 1 , L i n e R e s i s t c o l o r ) ;
S e t I n d e x L a b e l ( 8 , " M a s I N _ P I V O T _ R 3 " ) ;
S e t I n d e x E m p t y V a l u e ( 8 , 0 . 0 ) ;
S e t I n d e x B u f f e r ( 9 , R 4 B u f f e r ) ;
S e t I n d e x S t y l e ( 9 , D R A W _ L I N E , S T Y L E _ D A S H , 1 , L i n e R e s i s t c o l o r ) ;
S e t I n d e x L a b e l ( 9 , " M a s I N _ P I V O T _ R 4 " ) ;
S e t I n d e x E m p t y V a l u e ( 9 , 0 . 0 ) ;
i f ( S h o w P i v o t )
{
/ / P i v o t L i n e ( ) ;
}
/ / P i v o t F i b o
S e t I n d e x B u f f e r ( 1 0 , F P P B u f f e r ) ;
S e t I n d e x S t y l e ( 1 0 , D R A W _ L I N E , S T Y L E _ D A S H , 1 , c l r O r a n g e R e d ) ;
S e t I n d e x L a b e l ( 1 0 , " M a s I N _ P I V O T _ F P P " ) ;
S e t I n d e x E m p t y V a l u e ( 1 0 , 0 . 0 ) ;
S e t I n d e x B u f f e r ( 1 1 , F S 1 B u f f e r ) ;
S e t I n d e x S t y l e ( 1 1 , D R A W _ L I N E , S T Y L E _ D A S H , 1 , L i n e S u p p o r t c o l o r ) ;
S e t I n d e x L a b e l ( 1 1 , " M a s I N _ P I V O T _ F S 1 " ) ;
S e t I n d e x E m p t y V a l u e ( 1 1 , 0 . 0 ) ;
S e t I n d e x B u f f e r ( 1 2 , F S 2 B u f f e r ) ;
S e t I n d e x S t y l e ( 1 2 , D R A W _ L I N E , S T Y L E _ D A S H , 1 , L i n e S u p p o r t c o l o r ) ;
S e t I n d e x L a b e l ( 1 2 , " M a s I N _ P I V O T _ F S 2 " ) ;
S e t I n d e x E m p t y V a l u e ( 1 2 , 0 . 0 ) ;
S e t I n d e x B u f f e r ( 1 3 , F S 3 B u f f e r ) ;
S e t I n d e x S t y l e ( 1 3 , D R A W _ L I N E , S T Y L E _ D A S H , 1 , L i n e S u p p o r t c o l o r ) ;
S e t I n d e x L a b e l ( 1 3 , " M a s I N _ P I V O T _ F S 3 " ) ;
S e t I n d e x E m p t y V a l u e ( 1 3 , 0 . 0 ) ;
S e t I n d e x B u f f e r ( 1 4 , F R 1 B u f f e r ) ;
S e t I n d e x S t y l e ( 1 4 , D R A W _ L I N E , S T Y L E _ D A S H , 1 , L i n e R e s i s t c o l o r ) ;
S e t I n d e x L a b e l ( 1 4 , " M a s I N _ P I V O T _ F R 1 " ) ;
S e t I n d e x E m p t y V a l u e ( 1 4 , 0 . 0 ) ;
S e t I n d e x B u f f e r ( 1 5 , F R 2 B u f f e r ) ;
S e t I n d e x S t y l e ( 1 5 , D R A W _ L I N E , S T Y L E _ D A S H , 1 , L i n e R e s i s t c o l o r ) ;
S e t I n d e x L a b e l ( 1 5 , " M a s I N _ P I V O T _ F R 2 " ) ;
S e t I n d e x E m p t y V a l u e ( 1 5 , 0 . 0 ) ;
S e t I n d e x B u f f e r ( 1 6 , F R 3 B u f f e r ) ;
S e t I n d e x S t y l e ( 1 6 , D R A W _ L I N E , S T Y L E _ D A S H , 1 , L i n e R e s i s t c o l o r ) ;
S e t I n d e x L a b e l ( 1 6 , " M a s I N _ P I V O T _ F R 3 " ) ;
S e t I n d e x E m p t y V a l u e ( 1 6 , 0 . 0 ) ;
/ / c r e a t e l i n e s a v e , i f n o t a l r e a d y e x i s t
F i l e T o L i n e ( ) ;
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ O r d e r _ " ) > - 1 )
{
O b j e c t D e l e t e ( 0 , O b j e c t N a m e ( i ) ) ;
}
}
/ / B i d C o l o r 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 _ C O L O R _ G R I D , 0 , C o l o r B i d L i n e ) ;
r e t u r n ( I N I T _ S U C C E E D E D ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C u s t o m i n d i c a t o r i t e r a t i o n f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t O n C a l c u l a t e ( c o n s t i n t r a t e s _ t o t a l ,
c o n s t i n t p r e v _ c a l c u l a t e d ,
c o n s t d a t e t i m e & t i m e [ ] ,
c o n s t d o u b l e & o p e n [ ] ,
c o n s t d o u b l e & h i g h [ ] ,
c o n s t d o u b l e & l o w [ ] ,
c o n s t d o u b l e & c l o s e [ ] ,
c o n s t l o n g & t i c k _ v o l u m e [ ] ,
c o n s t l o n g & v o l u m e [ ] ,
c o n s t i n t & s p r e a d [ ] )
{
P i p V a l u e s = ( ( ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) * p o i n t ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ) * L o t S i z e ) ;
S p r e a d P i p = M a r k e t I n f o ( S y m b o l ( ) , M O D E _ S P R E A D ) / p o i n t * P o i n t ;
S p r e a d P i p V a l u e = ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ S P R E A D ) / p o i n t * P o i n t ) * P i p V a l u e s ;
/ / r e a l A s k l i n e f o r B r o k e r w h o d o n ' t d o i t r i g h t
i f ( S h o w A s k L i n e )
{
H L i n e C r e a t e ( 0 , " M a s I N _ A s k _ " + S y m b o l ( ) , 0 , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) , c o l o r ( C o l o r B i d L i n e ) , S T Y L E _ S O L I D , 1 , f a l s e , f a l s e , f a l s e , 0 , T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) ) ;
H L i n e M o v e ( 0 , " M a s I N _ A s k _ " + S y m b o l ( ) , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) ) ;
}
/ / c o u n t d o w n
i n t t i m e n o w , s e c o n d , m i n u t e , h o u r ;
t i m e n o w = ( i n t ) t i m e [ 0 ] + P e r i o d S e c o n d s ( P e r i o d ( ) ) - ( i n t ) T i m e C u r r e n t ( ) ;
s e c o n d = t i m e n o w % 6 0 ;
m i n u t e = ( t i m e n o w - s e c o n d ) ;
i f ( m i n u t e ! = 0 )
{
m i n u t e = m i n u t e / 6 0 ;
}
m i n u t e = m i n u t e - ( m i n u t e - m i n u t e % 6 0 ) ;
h o u r = ( t i m e n o w - s e c o n d - m i n u t e * 6 0 ) ;
i f ( h o u r ! = 0 )
{
h o u r = h o u r / 6 0 ;
}
i f ( h o u r ! = 0 )
{
h o u r = h o u r / 6 0 ;
}
C o u n t D o w n = I n t e g e r T o S t r i n g ( h o u r , 2 , ' 0 ' ) + " : " + I n t e g e r T o S t r i n g ( m i n u t e , 2 , ' 0 ' ) + " : " + I n t e g e r T o S t r i n g ( s e c o n d , 2 , ' 0 ' ) ;
i f ( C l i c k P r i c e > M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) )
{
C l i c k V a l u e = P i p V a l u e s * ( ( C l i c k P r i c e - M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) ) / p o i n t ) ;
C l i c k P i p = N o r m a l i z e D o u b l e ( ( ( C l i c k P r i c e - M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) ) / p o i n t ) , 1 ) ;
}
e l s e
{
C l i c k V a l u e = P i p V a l u e s * ( ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) - C l i c k P r i c e ) / p o i n t ) ;
C l i c k P i p = N o r m a l i z e D o u b l e ( ( ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) - C l i c k P r i c e ) / p o i n t ) , 1 ) ;
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 2 " , O B J P R O P _ T E X T , " C l i c k : " + D o u b l e T o S t r ( C l i c k P r i c e , D i g i t s ) + " / " + D o u b l e T o S t r ( C l i c k P i p , 1 ) + " / " + C u r r e n c y F o r m a t ( C l i c k V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 3 " , O B J P R O P _ T E X T , " N e x t C a n d l e : " + C o u n t D o w n ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 1 " , O B J P R O P _ T E X T , " S p r e a d : " + D o u b l e T o S t r ( S p r e a d P i p , 1 ) + " / " + C u r r e n c y F o r m a t ( S p r e a d P i p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
/ / S u p p o r t R e s i s t a n c e M a n a g e m e n t
i n t i ;
s t r i n g r e s u l t [ ] ;
b o o l l i n e e x i s t = f a l s e ;
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ K c S R _ " + S y m b o l ( ) ) > - 1 )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ l a b e l " ) > - 1 )
{
l i n e e x i s t = t r u e ;
o b j e c t l i n e = O b j e c t N a m e ( i ) ;
S t r i n g R e p l a c e ( o b j e c t l i n e , " _ l a b e l " , " _ R S " ) ;
O b j e c t M o v e ( 0 , O b j e c t N a m e ( i ) , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) ) ;
P i p G a p = M a t h A b s ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) - O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) ) ;
P i p G a p V a l u e = P i p G a p * M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) * L o t S i z e ;
O b j e c t S e t S t r i n g ( 0 , O b j e c t N a m e ( i ) , 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 b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T O O L T I P , D o u b l e T o S t r i n g ( O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , o b j e c t l i n e , O B J P R O P _ T O O L T I P , D o u b l e T o S t r i n g ( O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
}
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ T r e n d l i n e " ) > - 1 )
{
i n t k = S t r i n g S p l i t ( O b j e c t N a m e ( i ) , S t r i n g G e t C h a r a c t e r ( " _ " , 0 ) , r e s u l t ) ;
o b j e c t l i n e = r e s u l t [ 3 ] ;
P i p G a p = M a t h A b s ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) - O b j e c t G e t V a l u e B y T i m e ( 0 , o b j e c t l i n e , T i m e C u r r e n t ( ) ) ) ;
P i p G a p V a l u e = P i p G a p * M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) * L o t S i z e ;
i f ( O b j e c t G e t V a l u e B y T i m e ( 0 , o b j e c t l i n e , T i m e C u r r e n t ( ) ) < M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) )
{
O b j e c t S e t T e x t ( O b j e c t N a m e ( i ) , D o u b l e T o S t r i n g ( O b j e c t G e t V a l u e B y T i m e ( 0 , o b j e c t l i n e , T i m e C u r r e n t ( ) ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) , 1 0 , " C o u r i e r N e w " , L i n e S u p p o r t c o l o r ) ;
}
e l s e
{
O b j e c t S e t T e x t ( O b j e c t N a m e ( i ) , D o u b l e T o S t r i n g ( O b j e c t G e t V a l u e B y T i m e ( 0 , o b j e c t l i n e , T i m e C u r r e n t ( ) ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) , 1 0 , " C o u r i e r N e w " , L i n e R e s i s t c o l o r ) ;
}
i f ( O b j e c t F i n d ( 0 , o b j e c t l i n e ) = = - 1 )
{
O b j e c t D e l e t e ( 0 , O b j e c t N a m e ( i ) ) ;
}
}
}
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ A _ R S " ) > - 1 )
{
i f ( O b j e c t G e t ( O b j e c t N a m e ( i ) , O B J P R O P _ P R I C E 1 ) < M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) )
{ / / i s s u p p o r t
i f ( O b j e c t G e t ( O b j e c t N a m e ( i ) , O B J P R O P _ C O L O R ) = = L i n e S u p p o r t c o l o r )
{ / / i s a l r e a d y s u p p o r t
}
e l s e
{ / / w a s r e s i s t a n c e
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ C O L O R , L i n e S u p p o r t c o l o r ) ;
o b j e c t l i n e = O b j e c t N a m e ( i ) ;
S t r i n g R e p l a c e ( o b j e c t l i n e , " _ R S " , " _ l a b e l " ) ;
O b j e c t S e t I n t e g e r ( 0 , o b j e c t l i n e , O B J P R O P _ C O L O R , L i n e S u p p o r t c o l o r ) ;
i f ( A l a r m C r o s s W h i t h A l e r t )
{ / / s e n d a l a r m
S t r i n g S p l i t ( O b j e c t N a m e ( i ) , S t r i n g G e t C h a r a c t e r ( " _ " , 0 ) , r e s u l t ) ;
A l e r t ( r e s u l t [ 2 ] + " C r o s s e d " + D o u b l e T o S t r i n g ( O b j e c t G e t ( O b j e c t N a m e ( i ) , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " - O v e r " ) ;
i f ( s o u n d n a m e > 0 )
{
P l a y S o u n d ( " B e e p - " + I n t e g e r T o S t r i n g ( s o u n d n a m e ) + " - u p . w a v " ) ;
}
}
i f ( A l a r m C r o s s W h i t h P u s h S m a r t p h o n e )
{ / / s e n d a l a r m
S t r i n g S p l i t ( O b j e c t N a m e ( i ) , S t r i n g G e t C h a r a c t e r ( " _ " , 0 ) , r e s u l t ) ;
S e n d N o t i f i c a t i o n ( r e s u l t [ 2 ] + " C r o s s e d " + D o u b l e T o S t r i n g ( O b j e c t G e t ( O b j e c t N a m e ( i ) , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " - O v e r " ) ;
}
}
}
e l s e
{
i f ( O b j e c t G e t ( O b j e c t N a m e ( i ) , O B J P R O P _ C O L O R ) = = L i n e R e s i s t c o l o r )
{ / / i s a l r e a d y r e s i s t a n c e
}
e l s e
{ / / w a s s u p p o r t
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ C O L O R , L i n e R e s i s t c o l o r ) ;
o b j e c t l i n e = O b j e c t N a m e ( i ) ;
S t r i n g R e p l a c e ( o b j e c t l i n e , " _ R S " , " _ l a b e l " ) ;
O b j e c t S e t I n t e g e r ( 0 , o b j e c t l i n e , O B J P R O P _ C O L O R , L i n e R e s i s t c o l o r ) ;
i f ( A l a r m C r o s s W h i t h A l e r t )
{ / / s e n d a l a r m
S t r i n g S p l i t ( O b j e c t N a m e ( i ) , S t r i n g G e t C h a r a c t e r ( " _ " , 0 ) , r e s u l t ) ;
A l e r t ( r e s u l t [ 2 ] + " C r o s s e d " + D o u b l e T o S t r i n g ( O b j e c t G e t ( O b j e c t N a m e ( i ) , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " - U n d e r " ) ;
i f ( s o u n d n a m e > 0 )
{
P l a y S o u n d ( " B e e p - " + I n t e g e r T o S t r i n g ( s o u n d n a m e ) + " - d o w n . w a v " ) ;
}
}
i f ( A l a r m C r o s s W h i t h P u s h S m a r t p h o n e )
{ / / s e n d a l a r m
S t r i n g S p l i t ( O b j e c t N a m e ( i ) , S t r i n g G e t C h a r a c t e r ( " _ " , 0 ) , r e s u l t ) ;
S e n d N o t i f i c a t i o n ( r e s u l t [ 2 ] + " C r o s s e d " + D o u b l e T o S t r i n g ( O b j e c t G e t ( O b j e c t N a m e ( i ) , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " - U n d e r " ) ;
}
}
}
}
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ Q _ R S " ) > - 1 )
{
i f ( O b j e c t G e t ( O b j e c t N a m e ( i ) , O B J P R O P _ P R I C E 1 ) < M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) )
{ / / i s s u p p o r t
i f ( O b j e c t G e t ( O b j e c t N a m e ( i ) , O B J P R O P _ C O L O R ) = = L i n e S u p p o r t c o l o r )
{ / / i s a l r e a d y s u p p o r t
}
e l s e
{ / / w a s r e s i s t a n c e
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ C O L O R , L i n e S u p p o r t c o l o r ) ;
o b j e c t l i n e = O b j e c t N a m e ( i ) ;
S t r i n g R e p l a c e ( o b j e c t l i n e , " _ R S " , " _ l a b e l " ) ;
O b j e c t S e t I n t e g e r ( 0 , o b j e c t l i n e , O B J P R O P _ C O L O R , L i n e S u p p o r t c o l o r ) ;
i f ( A l a r m C r o s s W h i t h A l e r t S e c o n d )
{ / / s e n d a l a r m
S t r i n g S p l i t ( O b j e c t N a m e ( i ) , S t r i n g G e t C h a r a c t e r ( " _ " , 0 ) , r e s u l t ) ;
A l e r t ( r e s u l t [ 2 ] + " C r o s s e d " + D o u b l e T o S t r i n g ( O b j e c t G e t ( O b j e c t N a m e ( i ) , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " - O v e r " ) ;
i f ( s o u n d n a m e S e c o n d > 0 )
{
P l a y S o u n d ( " B e e p - " + I n t e g e r T o S t r i n g ( s o u n d n a m e S e c o n d ) + " - u p . w a v " ) ;
}
}
i f ( A l a r m C r o s s W h i t h P u s h S m a r t p h o n e S e c o n d )
{ / / s e n d a l a r m
S t r i n g S p l i t ( O b j e c t N a m e ( i ) , S t r i n g G e t C h a r a c t e r ( " _ " , 0 ) , r e s u l t ) ;
S e n d N o t i f i c a t i o n ( r e s u l t [ 2 ] + " C r o s s e d " + D o u b l e T o S t r i n g ( O b j e c t G e t ( O b j e c t N a m e ( i ) , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " - O v e r " ) ;
}
}
}
e l s e
{
i f ( O b j e c t G e t ( O b j e c t N a m e ( i ) , O B J P R O P _ C O L O R ) = = L i n e R e s i s t c o l o r )
{ / / i s a l r e a d y r e s i s t a n c e
}
e l s e
{ / / w a s s u p p o r t
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ C O L O R , L i n e R e s i s t c o l o r ) ;
o b j e c t l i n e = O b j e c t N a m e ( i ) ;
S t r i n g R e p l a c e ( o b j e c t l i n e , " _ R S " , " _ l a b e l " ) ;
O b j e c t S e t I n t e g e r ( 0 , o b j e c t l i n e , O B J P R O P _ C O L O R , L i n e R e s i s t c o l o r ) ;
i f ( A l a r m C r o s s W h i t h A l e r t S e c o n d )
{ / / s e n d a l a r m
S t r i n g S p l i t ( O b j e c t N a m e ( i ) , S t r i n g G e t C h a r a c t e r ( " _ " , 0 ) , r e s u l t ) ;
A l e r t ( r e s u l t [ 2 ] + " C r o s s e d " + D o u b l e T o S t r i n g ( O b j e c t G e t ( O b j e c t N a m e ( i ) , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " - U n d e r " ) ;
i f ( s o u n d n a m e S e c o n d > 0 )
{
P l a y S o u n d ( " B e e p - " + I n t e g e r T o S t r i n g ( s o u n d n a m e S e c o n d ) + " - d o w n . w a v " ) ;
}
}
i f ( A l a r m C r o s s W h i t h P u s h S m a r t p h o n e S e c o n d )
{ / / s e n d a l a r m
S t r i n g S p l i t ( O b j e c t N a m e ( i ) , S t r i n g G e t C h a r a c t e r ( " _ " , 0 ) , r e s u l t ) ;
S e n d N o t i f i c a t i o n ( r e s u l t [ 2 ] + " C r o s s e d " + D o u b l e T o S t r i n g ( O b j e c t G e t ( O b j e c t N a m e ( i ) , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " - U n d e r " ) ;
}
}
}
}
/ / T r e n d l i n e
i f ( T a k e c a r e M a n u a l T r e n d l i n e )
{
s t r i n g o b j e c t n a m e = O b j e c t N a m e ( i ) ;
i f ( S t r i n g F i n d ( o b j e c t n a m e , " T r e n d l i n e " ) > - 1 )
{
i f ( S t r i n g F i n d ( o b j e c t n a m e , " _ T r e n d l i n e " ) = = - 1 )
{
i f ( S t r i n g F i n d ( o b j e c t n a m e , " S M M C " ) > - 1 )
{
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + o b j e c t n a m e + " _ L a b e l " ) = = - 1 )
{
d a t e t i m e l a b e l p o s i t i o n t r e n d ;
d o u b l e t r e n d l i n e p o s i t i o n = O b j e c t G e t V a l u e B y T i m e ( 0 , o b j e c t n a m e , l a b e l p o s i t i o n ) ;
i f ( O b j e c t G e t V a l u e B y T i m e ( 0 , o b j e c t n a m e , l a b e l p o s i t i o n ) = = 0 )
{
t r e n d l i n e p o s i t i o n = O b j e c t G e t ( o b j e c t n a m e , O B J P R O P _ P R I C E 1 ) ;
l a b e l p o s i t i o n t r e n d = d a t e t i m e ( O b j e c t G e t ( o b j e c t n a m e , O B J P R O P _ T I M E 1 ) ) ;
}
e l s e
{
l a b e l p o s i t i o n t r e n d = l a b e l p o s i t i o n ;
}
O b j e c t C r e a t e ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + o b j e c t n a m e + " _ L a b e l " , O B J _ T E X T , 0 , l a b e l p o s i t i o n t r e n d , t r e n d l i n e p o s i t i o n ) ;
O b j e c t M o v e ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + o b j e c t n a m e + " _ L a b e l " , 0 , l a b e l p o s i t i o n t r e n d , t r e n d l i n e p o s i t i o n ) ;
i f ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) > O b j e c t G e t V a l u e B y T i m e ( 0 , o b j e c t n a m e , T i m e C u r r e n t ( ) ) )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + o b j e c t n a m e + " _ L a b e l " , O B J P R O P _ C O L O R , L i n e S u p p o r t c o l o r ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + o b j e c t n a m e + " _ L a b e l " , O B J P R O P _ C O L O R , L i n e R e s i s t c o l o r ) ;
}
}
i f ( O b j e c t G e t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + o b j e c t n a m e + " _ L a b e l " , O B J P R O P _ P R I C E 1 ) = = 0 )
{
d a t e t i m e l a b e l p o s i t i o n t r e n d ;
d o u b l e t r e n d l i n e p o s i t i o n = O b j e c t G e t V a l u e B y T i m e ( 0 , o b j e c t n a m e , l a b e l p o s i t i o n ) ;
i f ( O b j e c t G e t V a l u e B y T i m e ( 0 , o b j e c t n a m e , l a b e l p o s i t i o n ) = = 0 )
{
t r e n d l i n e p o s i t i o n = O b j e c t G e t ( o b j e c t n a m e , O B J P R O P _ P R I C E 1 ) ;
l a b e l p o s i t i o n t r e n d = d a t e t i m e ( O b j e c t G e t ( o b j e c t n a m e , O B J P R O P _ T I M E 1 ) ) ;
}
e l s e
{
l a b e l p o s i t i o n t r e n d = l a b e l p o s i t i o n ;
}
O b j e c t C r e a t e ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + o b j e c t n a m e + " _ L a b e l " , O B J _ T E X T , 0 , l a b e l p o s i t i o n t r e n d , t r e n d l i n e p o s i t i o n ) ;
O b j e c t M o v e ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + o b j e c t n a m e + " _ L a b e l " , 0 , l a b e l p o s i t i o n t r e n d , t r e n d l i n e p o s i t i o n ) ;
}
}
i f ( ! ( O b j e c t G e t ( o b j e c t n a m e , O B J P R O P _ C O L O R ) = = L i n e S u p p o r t c o l o r ) & & ! ( O b j e c t G e t ( o b j e c t n a m e , O B J P R O P _ C O L O R ) = = L i n e R e s i s t c o l o r ) )
{ / / j u s t a d d e d
i f ( O b j e c t G e t V a l u e B y T i m e ( 0 , o b j e c t n a m e , T i m e C u r r e n t ( ) ) < M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) )
{
O b j e c t S e t I n t e g e r ( 0 , o b j e c t n a m e , O B J P R O P _ C O L O R , L i n e S u p p o r t c o l o r ) ;
P i p G a p = M a t h A b s ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) - O b j e c t G e t V a l u e B y T i m e ( 0 , o b j e c t n a m e , T i m e C u r r e n t ( ) ) ) ;
P i p G a p V a l u e = P i p G a p * M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) * L o t S i z e ;
O b j e c t S e t T e x t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + o b j e c t n a m e + " _ L a b e l " , D o u b l e T o S t r i n g ( O b j e c t G e t V a l u e B y T i m e ( 0 , o b j e c t n a m e , T i m e C u r r e n t ( ) ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) , 1 0 , " C o u r i e r N e w " , L i n e S u p p o r t c o l o r ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , o b j e c t n a m e , O B J P R O P _ C O L O R , L i n e R e s i s t c o l o r ) ;
P i p G a p = M a t h A b s ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) - O b j e c t G e t V a l u e B y T i m e ( 0 , o b j e c t n a m e , T i m e C u r r e n t ( ) ) ) ;
P i p G a p V a l u e = P i p G a p * M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) * L o t S i z e ;
O b j e c t S e t T e x t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + o b j e c t n a m e + " _ L a b e l " , D o u b l e T o S t r i n g ( O b j e c t G e t V a l u e B y T i m e ( 0 , o b j e c t n a m e , T i m e C u r r e n t ( ) ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) , 1 0 , " C o u r i e r N e w " , L i n e R e s i s t c o l o r ) ;
}
}
i f ( S t r i n g F i n d ( o b j e c t n a m e , " _ L a b e l " ) = = - 1 )
{
i f ( O b j e c t G e t V a l u e B y T i m e ( 0 , o b j e c t n a m e , T i m e C u r r e n t ( ) ) < M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) )
{ / / i s s u p p o r t
i f ( O b j e c t G e t ( o b j e c t n a m e , O B J P R O P _ C O L O R ) = = L i n e S u p p o r t c o l o r )
{ / / i s a l r e a d y s u p p o r t
}
e l s e
{ / / w a s r e s i s t a n c e
O b j e c t S e t I n t e g e r ( 0 , o b j e c t n a m e , O B J P R O P _ C O L O R , L i n e S u p p o r t c o l o r ) ;
/ / O b j e c t S e t T e x t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + o b j e c t n a m e + " _ L a b e l " , " x x x x / 3 " , 1 0 , " C o u r i e r N e w " , L i n e S u p p o r t c o l o r ) ;
/ / O b j e c t M o v e ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + o b j e c t n a m e + " _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t V a l u e B y T i m e ( 0 , o b j e c t n a m e , l a b e l p o s i t i o n ) ) ;
i f ( A l a r m C r o s s W h i t h A l e r t )
{ / / s e n d a l a r m
A l e r t ( S y m b o l ( ) + " C r o s s e d " + D o u b l e T o S t r i n g ( O b j e c t G e t V a l u e B y T i m e ( 0 , o b j e c t n a m e , T i m e C u r r e n t ( ) ) , D i g i t s ) + " - O v e r T r e n d l i n e " ) ;
i f ( s o u n d n a m e > 0 )
{
P l a y S o u n d ( " B e e p - " + I n t e g e r T o S t r i n g ( s o u n d n a m e ) + " - u p . w a v " ) ;
}
}
i f ( A l a r m C r o s s W h i t h P u s h S m a r t p h o n e )
{ / / s e n d a l a r m
S e n d N o t i f i c a t i o n ( S y m b o l ( ) + " C r o s s e d " + D o u b l e T o S t r i n g ( O b j e c t G e t V a l u e B y T i m e ( 0 , o b j e c t n a m e , T i m e C u r r e n t ( ) ) , D i g i t s ) + " - O v e r T r e n d l i n e " ) ;
i f ( s o u n d n a m e > 0 )
{
P l a y S o u n d ( " B e e p - " + I n t e g e r T o S t r i n g ( s o u n d n a m e ) + " - u p . w a v " ) ;
}
}
}
}
e l s e
{
i f ( O b j e c t G e t ( o b j e c t n a m e , O B J P R O P _ C O L O R ) = = L i n e R e s i s t c o l o r )
{ / / i s a l r e a d y r e s i s t a n c e
}
e l s e
{ / / w a s s u p p o r t
O b j e c t S e t I n t e g e r ( 0 , o b j e c t n a m e , O B J P R O P _ C O L O R , L i n e R e s i s t c o l o r ) ;
i f ( A l a r m C r o s s W h i t h A l e r t )
{ / / s e n d a l a r m
A l e r t ( S y m b o l ( ) + " C r o s s e d " + D o u b l e T o S t r i n g ( O b j e c t G e t V a l u e B y T i m e ( 0 , o b j e c t n a m e , T i m e C u r r e n t ( ) ) , D i g i t s ) + " - U n d e r T r e n d l i n e " ) ;
}
i f ( A l a r m C r o s s W h i t h P u s h S m a r t p h o n e )
{ / / s e n d a l a r m
S e n d N o t i f i c a t i o n ( S y m b o l ( ) + " C r o s s e d " + D o u b l e T o S t r i n g ( O b j e c t G e t V a l u e B y T i m e ( 0 , o b j e c t n a m e , T i m e C u r r e n t ( ) ) , D i g i t s ) + " - U n d e r T r e n d l i n e " ) ;
}
}
}
}
}
}
}
i f ( ! l i n e e x i s t )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e A B u t t o n A l e r t " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e A B u t t o n S h o w " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e Q B u t t o n A l e r t " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e Q B u t t o n S h o w " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e A B u t t o n S o u n d " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e Q B u t t o n S o u n d " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
}
/ / M o n e y M a n a g e m e n t
s t r i n g t e x t l i n e = " " ;
s t r i n g e r r o r l i m i t = " " ;
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ M M G T _ " + S y m b o l ( ) ) > - 1 )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ L a b e l " ) > - 1 )
{
o b j e c t l i n e = O b j e c t N a m e ( i ) ;
S t r i n g R e p l a c e ( o b j e c t l i n e , " _ L a b e l " , " _ L i n e " ) ;
O b j e c t M o v e ( 0 , O b j e c t N a m e ( i ) , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) ) ;
i f ( S t r i n g F i n d ( o b j e c t l i n e , " B u y _ L i n e " ) > - 1 )
{
P i p G a p = ( O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) - M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) ) ;
O b j e c t S e t S t r i n g ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T E X T , " B u y a t " + D o u b l e T o S t r i n g ( O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s f r o m a c t u a l p r i c e " ) ;
O b j e c t S e t S t r i n g ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T O O L T I P , " B u y a t " + D o u b l e T o S t r i n g ( O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s f r o m a c t u a l p r i c e " ) ;
O b j e c t S e t S t r i n g ( 0 , o b j e c t l i n e , O B J P R O P _ T O O L T I P , " B u y a t " + D o u b l e T o S t r i n g ( O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s f r o m a c t u a l p r i c e " ) ;
}
i f ( S t r i n g F i n d ( o b j e c t l i n e , " S e l l _ L i n e " ) > - 1 )
{
P i p G a p = ( O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) - M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) ) ;
O b j e c t S e t S t r i n g ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T E X T , " S e l l a t " + D o u b l e T o S t r i n g ( O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s f r o m a c t u a l p r i c e " ) ;
O b j e c t S e t S t r i n g ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T O O L T I P , " S e l l a t " + D o u b l e T o S t r i n g ( O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s f r o m a c t u a l p r i c e " ) ;
O b j e c t S e t S t r i n g ( 0 , o b j e c t l i n e , O B J P R O P _ T O O L T I P , " S e l l a t " + D o u b l e T o S t r i n g ( O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s f r o m a c t u a l p r i c e " ) ;
}
i f ( S t r i n g F i n d ( o b j e c t l i n e , " S L _ L i n e " ) > - 1 )
{
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
t e x t l i n e = " B u y " ;
P i p G a p = ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
t e x t l i n e = " S e l l " ;
P i p G a p = ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
}
i f ( M a t h R o u n d ( M a t h A b s ( P i p G a p / P o i n t ) ) < S L T P b r o k e r L i m i t )
{
e r r o r l i m i t = e r r o r l i m i t + " S L " ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 3 C 1 - e r r o r " , O B J P R O P _ T E X T , e r r o r l i m i t + " i n B r o k e r L i m i t " ) ;
}
e l s e
{
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 3 C 1 - e r r o r " , O B J P R O P _ T E X T , e r r o r l i m i t ) ;
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " , O B J P R O P _ T E X T , " S L " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( ( P i p V a l u e s * ( P i p G a p / p o i n t ) ) , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T O O L T I P , " S L a t " + D o u b l e T o S t r i n g ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s f r o m " + t e x t l i n e + " / " + C u r r e n c y F o r m a t ( ( P i p V a l u e s * ( P i p G a p / p o i n t ) ) , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , o b j e c t l i n e , O B J P R O P _ T O O L T I P , " S L a t " + D o u b l e T o S t r i n g ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s f r o m " + t e x t l i n e + " / " + C u r r e n c y F o r m a t ( ( P i p V a l u e s * ( P i p G a p / p o i n t ) ) , 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 r r e n c y S y m b o l R i g h t ) ) ;
}
i f ( S t r i n g F i n d ( o b j e c t l i n e , " T P _ L i n e " ) > - 1 )
{
d o u b l e P i p G a p t e m p o = 1 ;
d o u b l e S L P i p s t e m p o = 1 ;
d o u b l e T P P i p s t e m p o = 1 ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
t e x t l i n e = " B u y " ;
P i p G a p t e m p o = ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
S L P i p s t e m p o = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
T P P i p s t e m p o = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
t e x t l i n e = " S e l l " ;
P i p G a p t e m p o = ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
S L P i p s t e m p o = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
T P P i p s t e m p o = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
}
i f ( M a t h R o u n d ( M a t h A b s ( P i p G a p t e m p o / P o i n t ) ) < S L T P b r o k e r L i m i t )
{
e r r o r l i m i t = e r r o r l i m i t + " T P " ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 3 C 1 - e r r o r " , O B J P R O P _ T E X T , e r r o r l i m i t + " i n B r o k e r L i m i t " ) ;
}
e l s e
{
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 3 C 1 - e r r o r " , O B J P R O P _ T E X T , e r r o r l i m i t ) ;
}
i f ( S L P i p s t e m p o ! = 0 )
{
r a t i o = " 1 : " + D o u b l e T o S t r i n g ( ( T P P i p s t e m p o / S L P i p s t e m p o ) , 1 ) ;
}
/ / O b j e c t S e t S t r i n g ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " , O B J P R O P _ T E X T , " T P a t " + D o u b l e T o S t r i n g ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p t e m p o / p o i n t , 1 ) + " P i p s f r o m " + t e x t l i n e + " / " + C u r r e n c y F o r m a t ( ( P i p V a l u e s * ( P i p G a p t e m p o / p o i n t ) ) , 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 r r e n c y S y m b o l R i g h t ) + " / R a t i o : " + r a t i o ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " , O B J P R O P _ T E X T , " T P " + D o u b l e T o S t r i n g ( P i p G a p t e m p o / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( ( P i p V a l u e s * ( P i p G a p t e m p o / p o i n t ) ) , 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 r r e n c y S y m b o l R i g h t ) + " / R a t i o : " + r a t i o ) ;
O b j e c t S e t S t r i n g ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T O O L T I P , " T P a t " + D o u b l e T o S t r i n g ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p t e m p o / p o i n t , 1 ) + " P i p s f r o m " + t e x t l i n e + " / " + C u r r e n c y F o r m a t ( ( P i p V a l u e s * ( P i p G a p t e m p o / p o i n t ) ) , 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 r r e n c y S y m b o l R i g h t ) + " / R a t i o : " + r a t i o ) ;
O b j e c t S e t S t r i n g ( 0 , o b j e c t l i n e , O B J P R O P _ T O O L T I P , " T P a t " + D o u b l e T o S t r i n g ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p t e m p o / p o i n t , 1 ) + " P i p s f r o m " + t e x t l i n e + " / " + C u r r e n c y F o r m a t ( ( P i p V a l u e s * ( P i p G a p t e m p o / p o i n t ) ) , 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 r r e n c y S y m b o l R i g h t ) + " / R a t i o : " + r a t i o ) ;
}
}
}
}
i f ( f o l l o w p r i c e )
{
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
T P P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L a b e l " , 0 , l a b e l p o s i t i o n , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) - S L P i p s ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " , 0 , l a b e l p o s i t i o n , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) - S L P i p s ) ;
i f ( C r e a t e T P )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) + T P P i p s ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " , 0 , l a b e l p o s i t i o n , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) + T P P i p s ) ;
}
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
T P P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L a b e l " , 0 , l a b e l p o s i t i o n , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) + S L P i p s ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " , 0 , l a b e l p o s i t i o n , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) + S L P i p s ) ;
i f ( C r e a t e T P )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) - T P P i p s ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " , 0 , l a b e l p o s i t i o n , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) - T P P i p s ) ;
}
}
}
e l s e
{
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
i f ( M a t h R o u n d ( M a t h A b s ( ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) - M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) ) / P o i n t ) ) < S L T P b r o k e r L i m i t )
{
e r r o r l i m i t = e r r o r l i m i t + " P e n d i n g " ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 3 C 1 - e r r o r " , O B J P R O P _ T E X T , e r r o r l i m i t + " i n B r o k e r L i m i t " ) ;
}
e l s e
{
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 3 C 1 - e r r o r " , O B J P R O P _ T E X T , e r r o r l i m i t ) ;
}
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
i f ( M a t h R o u n d ( M a t h A b s ( ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) - M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) ) / P o i n t ) ) < S L T P b r o k e r L i m i t )
{
e r r o r l i m i t = e r r o r l i m i t + " P e n d i n g " ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 3 C 1 - e r r o r " , O B J P R O P _ T E X T , e r r o r l i m i t + " i n B r o k e r L i m i t " ) ;
}
e l s e
{
i f ( S t r i n g L e n ( e r r o r l i m i t ) > 1 )
{
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 3 C 1 - e r r o r " , O B J P R O P _ T E X T , e r r o r l i m i t + " i n B r o k e r L i m i t " ) ;
}
e l s e
{
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 3 C 1 - e r r o r " , O B J P R O P _ T E X T , e r r o r l i m i t ) ;
}
}
}
}
i f ( G l o b a l V a r i a b l e G e t ( " M a s I N _ M M G T _ E A " ) = = 1 & & O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " ) > - 1 )
{
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 ) )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ O r d e r B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ O r d e r B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
}
e l s e
{
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ O r d e r B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
}
}
i f ( G l o b a l V a r i a b l e G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ A c t i o n " ) = = 2 0 )
{
G l o b a l V a r i a b l e S e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ A c t i o n " , 0 ) ; / / 0 = c l o s e
G l o b a l V a r i a b l e S e t ( " M a s I N _ M M G T _ C h a r t I D " , - 1 ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L a b e l " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L a b e l " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 3 C 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 3 C 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ T P B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ S L B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ F o l l o w B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ O r d e r B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ R i s k B u t t o n P l u s " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ R i s k B u t t o n M i n u s " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ C l o s e B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 C 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 5 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L A T R " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ F o l l o w B u t t o n " , 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 , " M a s I N _ M M G T b o x _ F o l l o w B u t t o n " , O B J P R O P _ B O R D E R _ 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 , " M a s I N _ L 3 C 1 - e r r o r " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
f o l l o w p r i c e = f a l s e ;
}
i f ( I n d i c a t o r V a l u e )
{
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ T E X T , " R S I : " + D o u b l e T o S t r ( i R S I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 4 , P R I C E _ C L O S E , 0 ) , 1 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ T E X T , " S T O : " + D o u b l e T o S t r ( i S t o c h a s t i c ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 9 , 6 , 3 , M O D E _ S M A , 1 , M O D E _ S I G N A L , 0 ) , 0 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 5 " , O B J P R O P _ T E X T , " M A C D : " + D o u b l e T o S t r ( i M A C D ( N U L L , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , 2 6 , 9 , P R I C E _ C L O S E , M O D E _ M A I N , 0 ) , 6 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ T E X T , " C C I : " + D o u b l e T o S t r ( i C C I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ T Y P I C A L , 0 ) , 0 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 5 " , O B J P R O P _ T E X T , " M O M E : " + D o u b l e T o S t r ( i M o m e n t u m ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ C L O S E , 0 ) , 4 ) ) ;
I n d i c a t o r C o l o r ( ) ;
B e a r C o u n t = 0 ;
B u l l C o u n t = 0 ;
M i d d l e C o u n t = 0 ;
O v e r B u y = 0 ;
O v e r S e l l = 0 ;
i f ( i M A ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 5 , 0 , M O D E _ S M A , P R I C E _ M E D I A N , 0 ) > B i d )
{
B u l l C o u n t + = 1 ;
}
e l s e
{
B e a r C o u n t + = 1 ;
}
i f ( i M A ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 0 , 0 , M O D E _ S M A , P R I C E _ M E D I A N , 0 ) > B i d )
{
B u l l C o u n t + = 1 ;
}
e l s e
{
B e a r C o u n t + = 1 ;
}
i f ( i M A ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 2 0 , 0 , M O D E _ S M A , P R I C E _ M E D I A N , 0 ) > B i d )
{
B u l l C o u n t + = 1 ;
}
e l s e
{
B e a r C o u n t + = 1 ;
}
i f ( i M A ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 5 0 , 0 , M O D E _ S M A , P R I C E _ M E D I A N , 0 ) > B i d )
{
B u l l C o u n t + = 1 ;
}
e l s e
{
B e a r C o u n t + = 1 ;
}
i f ( i M A ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 0 0 , 0 , M O D E _ S M A , P R I C E _ M E D I A N , 0 ) > B i d )
{
B u l l C o u n t + = 1 ;
}
e l s e
{
B e a r C o u n t + = 1 ;
}
i f ( i M A ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 2 0 0 , 0 , M O D E _ S M A , P R I C E _ M E D I A N , 0 ) > B i d )
{
B u l l C o u n t + = 1 ;
}
e l s e
{
B e a r C o u n t + = 1 ;
}
/ / i M A
i f ( i M A ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 5 , 0 , M O D E _ E M A , P R I C E _ M E D I A N , 0 ) > B i d )
{
B u l l C o u n t + = 1 ;
}
e l s e
{
B e a r C o u n t + = 1 ;
}
i f ( i M A ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 0 , 0 , M O D E _ E M A , P R I C E _ M E D I A N , 0 ) > B i d )
{
B u l l C o u n t + = 1 ;
}
e l s e
{
B e a r C o u n t + = 1 ;
}
i f ( i M A ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 2 0 , 0 , M O D E _ E M A , P R I C E _ M E D I A N , 0 ) > B i d )
{
B u l l C o u n t + = 1 ;
}
e l s e
{
B e a r C o u n t + = 1 ;
}
i f ( i M A ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 5 0 , 0 , M O D E _ E M A , P R I C E _ M E D I A N , 0 ) > B i d )
{
B u l l C o u n t + = 1 ;
}
e l s e
{
B e a r C o u n t + = 1 ;
}
i f ( i M A ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 0 0 , 0 , M O D E _ E M A , P R I C E _ M E D I A N , 0 ) > B i d )
{
B u l l C o u n t + = 1 ;
}
e l s e
{
B e a r C o u n t + = 1 ;
}
i f ( i M A ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 2 0 0 , 0 , M O D E _ E M A , P R I C E _ M E D I A N , 0 ) > B i d )
{
B u l l C o u n t + = 1 ;
}
e l s e
{
B e a r C o u n t + = 1 ;
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 5 " , O B J P R O P _ T E X T , " M A : S = " + s t r i n g ( B u l l C o u n t ) + " B = " + s t r i n g ( B e a r C o u n t ) + " " ) ;
i f ( B e a r C o u n t > 8 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 5 " , O B J P R O P _ C O L O R , c l r G r e e n ) ;
}
i f ( B e a r C o u n t < = 8 & & B e a r C o u n t > 4 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 5 " , O B J P R O P _ C O L O R , T e x t C o l o r ) ;
}
i f ( B e a r C o u n t < = 4 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 5 " , O B J P R O P _ C O L O R , c l r R e d ) ;
}
}
/ / G R I D
s t r i n g i n v e r t a l e d i t ;
O b j e c t G e t S t r i n g ( 0 , " M a s I N _ O p t i o n _ E d i t _ G r i d _ P i p " , O B J P R O P _ T E X T , 0 , i n v e r t a l e d i t ) ;
s t r i n g c o l o r e d i t ;
O b j e c t G e t S t r i n g ( 0 , " M a s I N _ O p t i o n _ E d i t _ G r i d _ V a r i a t i o n " , O B J P R O P _ T E X T , 0 , c o l o r e d i t ) ;
i f ( i n t ( i n v e r t a l e d i t ) ! = P i p I n t e r v a l | | i n t ( c o l o r e d i t ) ! = C o l o r V a r i a t i o n )
{
P i p I n t e r v a l = i n t ( i n v e r t a l e d i t ) ;
C o l o r V a r i a t i o n = i n t ( c o l o r e d i t ) ;
G r i d C o l o r ( ) ;
}
i f ( O l d C a n d e l T i m e < t i m e [ 0 ] )
{
G r i d C o l o r ( ) ;
O l d C a n d e l T i m e = t i m e [ 0 ] ;
}
i f ( B i d > G r i d H i g h | | B i d < G r i d L o w )
{
G r i d C o l o r ( ) ;
}
/ / D a i l y O p e n
i f ( S h o w D a i l y O p e n )
{
D a i l y O p e n ( ) ;
}
/ / P i v o t
i f ( S h o w P i v o t )
{
P i v o t L i n e ( ) ;
}
/ / P i v o t F i b o
i f ( S h o w P i v o t F i b o )
{
P i v o t L i n e F i b o ( ) ;
}
/ / S e l l / B u y / S L / T P l a b e l
s t r i n g r e s u l t o r d e r [ ] ;
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ O r d e r _ " ) > - 1 )
{
S t r i n g S p l i t ( O b j e c t N a m e ( i ) , S t r i n g G e t C h a r a c t e r ( " _ " , 0 ) , r e s u l t o r d e r ) ;
i f ( O r d e r S e l e c t ( i n t ( r e s u l t o r d e r [ 4 ] ) , S E L E C T _ B Y _ T I C K E T , M O D E _ H I S T O R Y ) = = f a l s e ) c o n t i n u e ;
i f ( O r d e r C l o s e T i m e ( ) ! = 0 | | S y m b o l ( ) ! = O r d e r S y m b o l ( ) | | S y m b o l ( ) ! = r e s u l t o r d e r [ 3 ] )
{
O b j e c t D e l e t e ( 0 , O b j e c t N a m e ( i ) ) ;
}
}
}
i n t t o t a l = O r d e r s T o t a l ( ) ;
l o n g c o l o r l i n e o r d e r ;
d o u b l e P i p T p = 0 ;
d o u b l e P i p T p g a p = 0 ;
d o u b l e P i p B g a p ;
d o u b l e P i p S g a p ;
f o r ( i n t p o s = 0 ; p o s < t o t a l ; p o s + + )
{
i f ( O r d e r S e l e c t ( p o s , S E L E C T _ B Y _ P O S ) = = f a l s e ) c o n t i n u e ;
i f ( O r d e r S y m b o l ( ) = = S y m b o l ( ) )
{
i f ( O r d e r T y p e ( ) = = O P _ B U Y )
{
P i p B g a p = N o r m a l i z e D o u b l e ( ( A s k - O r d e r O p e n P r i c e ( ) ) / p o i n t , 1 ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ O r d e r _ B u y _ " + S y m b o l ( ) + " _ " + s t r i n g ( O r d e r T i c k e t ( ) ) ) > - 1 )
{
O b j e c t M o v e ( 0 , " M a s I N _ O r d e r _ B u y _ " + S y m b o l ( ) + " _ " + s t r i n g ( O r d e r T i c k e t ( ) ) , 0 , o r d e r l a b e l p o s i t i o n , O r d e r O p e n P r i c e ( ) ) ;
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 o l o r l i n e o r d e r ) ;
O b j e c t S e t T e x t ( " M a s I N _ O r d e r _ B u y _ " + S y m b o l ( ) + " _ " + s t r i n g ( O r d e r T i c k e t ( ) ) , " B u y # " + s t r i n g ( p o s ) + " [ " + D o u b l e T o S t r i n g ( P i p B g a p , 1 ) + " P i p s ] " + s t r i n g ( O r d e r L o t s ( ) ) , 1 0 , " C o u r i e r N e w " , c o l o r ( c o l o r l i n e o r d e r ) ) ;
}
e l s e
{
O b j e c t C r e a t e ( " M a s I N _ O r d e r _ B u y _ " + S y m b o l ( ) + " _ " + s t r i n g ( O r d e r T i c k e t ( ) ) , O B J _ T E X T , 0 , o r d e r l a b e l p o s i t i o n , O r d e r O p e n P r i c e ( ) ) ;
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 o l o r l i n e o r d e r ) ;
O b j e c t S e t T e x t ( " M a s I N _ O r d e r _ B u y _ " + S y m b o l ( ) + " _ " + s t r i n g ( O r d e r T i c k e t ( ) ) , " B u y # " + s t r i n g ( p o s ) + " [ " + D o u b l e T o S t r i n g ( P i p B g a p , 1 ) + " P i p s ] " + s t r i n g ( O r d e r L o t s ( ) ) , 1 0 , " C o u r i e r N e w " , c o l o r ( c o l o r l i n e o r d e r ) ) ;
}
P i p T p = N o r m a l i z e D o u b l e ( ( ( ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) * p o i n t ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ) * O r d e r L o t s ( ) ) * ( ( O r d e r T a k e P r o f i t ( ) - O r d e r O p e n P r i c e ( ) ) / p o i n t ) , 2 ) ;
P i p T p g a 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 ( ) - O r d e r O p e n P r i c e ( ) ) / p o i n t , 1 ) ;
}
i f ( O r d e r T y p e ( ) = = O P _ S E L L )
{
P i p S g a 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 ( ) - B i d ) / p o i n t , 1 ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ O r d e r _ S e l l _ " + S y m b o l ( ) + " _ " + s t r i n g ( O r d e r T i c k e t ( ) ) ) > - 1 )
{
O b j e c t M o v e ( 0 , " M a s I N _ O r d e r _ S e l l _ " + S y m b o l ( ) + " _ " + s t r i n g ( O r d e r T i c k e t ( ) ) , 0 , o r d e r l a b e l p o s i t i o n , O r d e r O p e n P r i c e ( ) ) ;
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 o l o r l i n e o r d e r ) ;
O b j e c t S e t T e x t ( " M a s I N _ O r d e r _ S e l l _ " + S y m b o l ( ) + " _ " + s t r i n g ( O r d e r T i c k e t ( ) ) , " S e l l # " + s t r i n g ( p o s ) + " [ " + D o u b l e T o S t r i n g ( P i p S g a p , 1 ) + " P i p s ] " + s t r i n g ( O r d e r L o t s ( ) ) , 1 0 , " C o u r i e r N e w " , c o l o r ( c o l o r l i n e o r d e r ) ) ;
}
e l s e
{
O b j e c t C r e a t e ( " M a s I N _ O r d e r _ S e l l _ " + S y m b o l ( ) + " _ " + s t r i n g ( O r d e r T i c k e t ( ) ) , O B J _ T E X T , 0 , o r d e r l a b e l p o s i t i o n , O r d e r O p e n P r i c e ( ) ) ;
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 o l o r l i n e o r d e r ) ;
O b j e c t S e t T e x t ( " M a s I N _ O r d e r _ S e l l _ " + S y m b o l ( ) + " _ " + s t r i n g ( O r d e r T i c k e t ( ) ) , " S e l l # " + s t r i n g ( p o s ) + " [ " + D o u b l e T o S t r i n g ( P i p S g a p , 1 ) + " P i p s ] " + s t r i n g ( O r d e r L o t s ( ) ) , 1 0 , " C o u r i e r N e w " , c o l o r ( c o l o r l i n e o r d e r ) ) ;
}
P i p T p = N o r m a l i z e D o u b l e ( ( ( ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) * p o i n t ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ) * O r d e r L o t s ( ) ) * ( ( O r d e r O p e n P r i c e ( ) - O r d e r T a k e P r o f i t ( ) ) / p o i n t ) , 2 ) ;
P i p T p g a 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 ( ) - O r d e r T a k e P r o f i t ( ) ) / p o i n t , 1 ) ;
}
i f ( O r d e r T y p e ( ) = = O P _ S E L L | | O r d e r T y p e ( ) = = O P _ B U Y )
{
i f ( O b j e c t F i n d ( 0 , " M a s I N _ O r d e r _ T P _ " + S y m b o l ( ) + " _ " + s t r i n g ( O r d e r T i c k e t ( ) ) ) > - 1 )
{
O b j e c t M o v e ( 0 , " M a s I N _ O r d e r _ T P _ " + S y m b o l ( ) + " _ " + s t r i n g ( O r d e r T i c k e t ( ) ) , 0 , o r d e r l a b e l p o s i t i o n , O r d e r T a k e P r o f i t ( ) ) ;
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 o l o r l i n e o r d e r ) ;
O b j e c t S e t T e x t ( " M a s I N _ O r d e r _ T P _ " + S y m b o l ( ) + " _ " + s t r i n g ( O r d e r T i c k e t ( ) ) , " T P # " + s t r i n g ( p o s ) + " [ " + s t r i n g ( P i p T p g a p ) + " P i p s ] " + C u r r e n c y F o r m a t ( d o u b l e ( P i p T p ) , 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 r r e n c y S y m b o l R i g h t ) , 1 0 , " C o u r i e r N e w " , c o l o r ( c o l o r l i n e o r d e r ) ) ;
}
e l s e
{
O b j e c t C r e a t e ( " M a s I N _ O r d e r _ T P _ " + S y m b o l ( ) + " _ " + s t r i n g ( O r d e r T i c k e t ( ) ) , O B J _ T E X T , 0 , o r d e r l a b e l p o s i t i o n , O r d e r T a k e P r o f i t ( ) ) ;
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 o l o r l i n e o r d e r ) ;
O b j e c t S e t T e x t ( " M a s I N _ O r d e r _ T P _ " + S y m b o l ( ) + " _ " + s t r i n g ( O r d e r T i c k e t ( ) ) , " T P # " + s t r i n g ( p o s ) + " [ " + s t r i n g ( P i p T p g a p ) + " P i p s ] " + C u r r e n c y F o r m a t ( d o u b l e ( P i p T p ) , 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 r r e n c y S y m b o l R i g h t ) , 1 0 , " C o u r i e r N e w " , c o l o r ( c o l o r l i n e o r d e r ) ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ O r d e r _ S L _ " + S y m b o l ( ) + " _ " + s t r i n g ( O r d e r T i c k e t ( ) ) ) > - 1 )
{
O b j e c t M o v e ( 0 , " M a s I N _ O r d e r _ S L _ " + S y m b o l ( ) + " _ " + s t r i n g ( O r d e r T i c k e t ( ) ) , 0 , o r d e r l a b e l p o s i t i o n , O r d e r S t o p L o s s ( ) ) ;
}
e l s e
{
O b j e c t C r e a t e ( " M a s I N _ O r d e r _ S L _ " + S y m b o l ( ) + " _ " + s t r i n g ( O r d e r T i c k e t ( ) ) , O B J _ T E X T , 0 , o r d e r l a b e l p o s i t i o n , O r d e r S t o p L o s s ( ) ) ;
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 o l o r l i n e o r d e r ) ;
O b j e c t S e t T e x t ( " M a s I N _ O r d e r _ S L _ " + S y m b o l ( ) + " _ " + s t r i n g ( O r d e r T i c k e t ( ) ) , " S L # " + s t r i n g ( p o s ) , 1 0 , " C o u r i e r N e w " , c o l o r ( c o l o r l i n e o r d e r ) ) ;
}
}
}
}
/ / P r i n t ( P o i n t ) ;
/ / c o r r e c t i o n o f S L a n d T P
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
S L P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
i f ( S L P i p s = = 0 )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) - ( D e f a u l t S L * p o i n t ) ) ;
}
i f ( C r e a t e T P )
{
T P P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
i f ( T P P i p s = = 0 )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) + ( D e f a u l t T P * p o i n t ) ) ;
}
}
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
S L P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
i f ( S L P i p s = = 0 )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) + ( D e f a u l t S L * p o i n t ) ) ;
}
i f ( C r e a t e T P )
{
T P P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
i f ( T P P i p s = = 0 )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) - ( D e f a u l t T P * p o i n t ) ) ;
}
}
}
/ / c o r r e c t i o n o f B u y S e l l T P S L i f t i c k s i z e i s n o t 0 . 1 o r 0 . 0 1 o r 0 . 0 0 0 1 . . .
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
i f ( M a t h M o d ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ) > 0 )
{
d o u b l e p r i c e t e m p = O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ;
p r i c e t e m p = M a t h R o u n d ( p r i c e t e m p / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ) * M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , p r i c e t e m p ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) - S L P i p s ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) - S L P i p s ) ;
i f ( C r e a t e T P )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) + T P P i p s ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) + T P P i p s ) ;
}
}
c a l c u l a t e b u y ( ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
i f ( M a t h M o d ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ) > 0 )
{
d o u b l e p r i c e t e m p = O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ;
p r i c e t e m p = M a t h R o u n d ( p r i c e t e m p / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ) * M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , p r i c e t e m p ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) + S L P i p s ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) + S L P i p s ) ;
i f ( C r e a t e T P )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) - T P P i p s ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) - T P P i p s ) ;
}
}
c a l c u l a t e s e l l ( ) ;
}
r e t u r n ( r a t e s _ t o t a l ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | 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 )
{
d a t e t i m e d t = 0 ;
d o u b l e p r i c e = 0 ;
i n t w i n d o w = 0 ;
i n t k = 1 ;
i n t i = 1 ;
d o u b l e S L p r i c e = 0 ;
d o u b l e T P p r i c e = 0 ;
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C H A R T E V E N T _ O B J E C T _ C L I C K |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i f ( i d = = C H A R T E V E N T _ O B J E C T _ C L I C K )
{
i f ( ( S t r i n g F i n d ( s p a r a m , " M a s I N _ L _ " ) > - 1 ) )
{
i f ( ! ( S t r i n g F i n d ( s p a r a m , " M a s I N _ L _ Z o m m " ) > - 1 ) )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M 1 B u t t o n " , O B J P R O P _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M 1 B u t t o n " , O B J P R O P _ B G C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M 1 B u t t o n " , O B J P R O P _ B O R D E R _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M 5 B u t t o n " , O B J P R O P _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M 5 B u t t o n " , O B J P R O P _ B G C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M 5 B u t t o n " , O B J P R O P _ B O R D E R _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M 1 5 B u t t o n " , O B J P R O P _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M 1 5 B u t t o n " , O B J P R O P _ B G C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M 1 5 B u t t o n " , O B J P R O P _ B O R D E R _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M 3 0 B u t t o n " , O B J P R O P _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M 3 0 B u t t o n " , O B J P R O P _ B G C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M 3 0 B u t t o n " , O B J P R O P _ B O R D E R _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ H 1 B u t t o n " , O B J P R O P _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ H 1 B u t t o n " , O B J P R O P _ B G C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ H 1 B u t t o n " , O B J P R O P _ B O R D E R _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ H 4 B u t t o n " , O B J P R O P _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ H 4 B u t t o n " , O B J P R O P _ B G C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ H 4 B u t t o n " , O B J P R O P _ B O R D E R _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ D 1 B u t t o n " , O B J P R O P _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ D 1 B u t t o n " , O B J P R O P _ B G C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ D 1 B u t t o n " , O B J P R O P _ B O R D E R _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ W 1 B u t t o n " , O B J P R O P _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ W 1 B u t t o n " , O B J P R O P _ B G C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ W 1 B u t t o n " , O B J P R O P _ B O R D E R _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M N B u t t o n " , O B J P R O P _ C O L O R , c l r W h i t e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M N B u t t o n " , O B J P R O P _ B G C O L O R , c l r B l a c k ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M N B u t t o n " , O B J P R O P _ B O R D E R _ C O L O R , c l r W h i t e ) ;
}
}
i f ( s p a r a m = = " M a s I N _ L _ Z o m m I n B u t t o n " )
{
P o s t M e s s a g e A ( i n t P a r e n t , 0 x 0 1 1 1 , 3 3 0 2 5 , 0 ) ;
}
i f ( s p a r a m = = " M a s I N _ L _ Z o m m O u t B u t t o n " )
{
P o s t M e s s a g e A ( i n t P a r e n t , 0 x 0 1 1 1 , 3 3 0 2 6 , 0 ) ;
}
i f ( s p a r a m = = " M a s I N _ L _ M 1 B u t t o n " )
{
P o s t M e s s a g e A ( i n t P a r e n t , 0 x 0 1 1 1 , 3 3 1 3 7 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M 1 B u t t o n " , O B J P R O P _ C O L O R , B a c k g r o u n d C o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M 1 B u t t o n " , O B J P R O P _ B G C O L O R , T e x t C o l o r ) ;
}
i f ( s p a r a m = = " M a s I N _ L _ M 5 B u t t o n " )
{
P o s t M e s s a g e A ( i n t P a r e n t , 0 x 0 1 1 1 , 3 3 1 3 8 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M 5 B u t t o n " , O B J P R O P _ C O L O R , B a c k g r o u n d C o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M 5 B u t t o n " , O B J P R O P _ B G C O L O R , T e x t C o l o r ) ;
}
i f ( s p a r a m = = " M a s I N _ L _ M 1 5 B u t t o n " )
{
P o s t M e s s a g e A ( i n t P a r e n t , 0 x 0 1 1 1 , 3 3 1 3 9 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M 1 5 B u t t o n " , O B J P R O P _ C O L O R , B a c k g r o u n d C o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M 1 5 B u t t o n " , O B J P R O P _ B G C O L O R , T e x t C o l o r ) ;
}
i f ( s p a r a m = = " M a s I N _ L _ M 3 0 B u t t o n " )
{
P o s t M e s s a g e A ( i n t P a r e n t , 0 x 0 1 1 1 , 3 3 1 4 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M 3 0 B u t t o n " , O B J P R O P _ C O L O R , B a c k g r o u n d C o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M 3 0 B u t t o n " , O B J P R O P _ B G C O L O R , T e x t C o l o r ) ;
}
i f ( s p a r a m = = " M a s I N _ L _ H 1 B u t t o n " )
{
P o s t M e s s a g e A ( i n t P a r e n t , 0 x 0 1 1 1 , 3 5 4 0 0 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ H 1 B u t t o n " , O B J P R O P _ C O L O R , B a c k g r o u n d C o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ H 1 B u t t o n " , O B J P R O P _ B G C O L O R , T e x t C o l o r ) ;
}
i f ( s p a r a m = = " M a s I N _ L _ H 4 B u t t o n " )
{
P o s t M e s s a g e A ( i n t P a r e n t , 0 x 0 1 1 1 , 3 3 1 3 6 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ H 4 B u t t o n " , O B J P R O P _ C O L O R , B a c k g r o u n d C o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ H 4 B u t t o n " , O B J P R O P _ B G C O L O R , T e x t C o l o r ) ;
}
i f ( s p a r a m = = " M a s I N _ L _ D 1 B u t t o n " )
{
P o s t M e s s a g e A ( i n t P a r e n t , 0 x 0 1 1 1 , 3 3 1 3 4 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ D 1 B u t t o n " , O B J P R O P _ C O L O R , B a c k g r o u n d C o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ D 1 B u t t o n " , O B J P R O P _ B G C O L O R , T e x t C o l o r ) ;
}
i f ( s p a r a m = = " M a s I N _ L _ W 1 B u t t o n " )
{
P o s t M e s s a g e A ( i n t P a r e n t , 0 x 0 1 1 1 , 3 3 1 4 1 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ W 1 B u t t o n " , O B J P R O P _ C O L O R , B a c k g r o u n d C o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ W 1 B u t t o n " , O B J P R O P _ B G C O L O R , T e x t C o l o r ) ;
}
i f ( s p a r a m = = " M a s I N _ L _ M N B u t t o n " )
{
P o s t M e s s a g e A ( i n t P a r e n t , 0 x 0 1 1 1 , 3 3 3 3 4 , 0 ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M N B u t t o n " , O B J P R O P _ C O L O R , B a c k g r o u n d C o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L _ M N B u t t o n " , O B J P R O P _ B G C O L O R , T e x t C o l o r ) ;
}
i f ( s p a r a m = = " M a s I N _ L o t S i z e B u t t o n P l u s " )
{
L o t S i z e = L o t S i z e + L o t S t e p ;
P i p V a l u e s = ( ( ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) * p o i n t ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ) * L o t S i z e ) ;
O b j e c t S e t I n t e g e r ( 0 , s p a r a m , O B J P R O P _ S T A T E , F a l s e ) ;
i f ( L o t S i z e > M a x i m u m L o t | | L o t S i z e < M i n i m u m L o t S i z e )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ C O L O R , c l r R e d ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ C O L O R , T e x t C o l o r ) ;
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ T E X T , " L o t : " + D o u b l e T o S t r ( L o t S i z e , 2 ) + " / " + C u r r e n c y F o r m a t ( P i p V a l u e s , 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 r r e n c y S y m b o l R i g h t ) ) ;
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ K c S R _ " + S y m b o l ( ) ) > - 1 )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ l a b e l " ) > - 1 )
{
o b j e c t l i n e = O b j e c t N a m e ( i ) ;
S t r i n g R e p l a c e ( o b j e c t l i n e , " _ l a b e l " , " _ R S " ) ;
O b j e c t M o v e ( 0 , O b j e c t N a m e ( i ) , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) ) ;
P i p G a p = M a t h A b s ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) - O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) ) ;
P i p G a p V a l u e = P i p G a p * M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) * L o t S i z e ;
O b j e c t S e t S t r i n g ( 0 , O b j e c t N a m e ( i ) , 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 b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T O O L T I P , D o u b l e T o S t r i n g ( O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , o b j e c t l i n e , O B J P R O P _ T O O L T I P , D o u b l e T o S t r i n g ( O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
}
}
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
s t r i n g O r d e r B u t t o n T e x t = " " ;
i f ( f o l l o w p r i c e )
{
O r d e r B u t t o n T e x t = " O r d e r 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 ) + " L o t " ;
}
e l s e
{
i f ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) > M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) )
{
O r d e r B u t t o n T e x t = " O r d e r B u y S t o p " + D o u b l e T o S t r i n g ( L o t S i z e , 2 ) + " L o t " ;
}
e l s e
{
O r d e r B u t t o n T e x t = " O r d e r B u y L i m i t " + D o u b l e T o S t r i n g ( L o t S i z e , 2 ) + " L o t " ;
}
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ M M G T b o x _ O r d e r B u t t o n " , O B J P R O P _ T E X T , O r d e r B u t t o n T e x t ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
s t r i n g O r d e r B u t t o n T e x t = " " ;
i f ( f o l l o w p r i c e )
{
O r d e r B u t t o n T e x t = " O r d e r 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 ) + " L o t " ;
}
e l s e
{
i f ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) > M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) )
{
O r d e r B u t t o n T e x t = " O r d e r S e l l L i m i t " + D o u b l e T o S t r i n g ( L o t S i z e , 2 ) + " L o t " ;
}
e l s e
{
O r d e r B u t t o n T e x t = " O r d e r S e l l S t o p " + D o u b l e T o S t r i n g ( L o t S i z e , 2 ) + " L o t " ;
}
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ M M G T b o x _ O r d e r B u t t o n " , O B J P R O P _ T E X T , O r d e r B u t t o n T e x t ) ;
}
}
i f ( s p a r a m = = " M a s I N _ L o t S i z e B u t t o n M i n u s " )
{
L o t S i z e = L o t S i z e - L o t S t e p ;
P i p V a l u e s = ( ( ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) * p o i n t ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ) * L o t S i z e ) ;
O b j e c t S e t I n t e g e r ( 0 , s p a r a m , O B J P R O P _ S T A T E , F a l s e ) ;
i f ( L o t S i z e > M a x i m u m L o t | | L o t S i z e < M i n i m u m L o t S i z e )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ C O L O R , c l r R e d ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ C O L O R , T e x t C o l o r ) ;
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ T E X T , " L o t : " + D o u b l e T o S t r ( L o t S i z e , 2 ) + " / " + C u r r e n c y F o r m a t ( P i p V a l u e s , 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 r r e n c y S y m b o l R i g h t ) ) ;
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ K c S R _ " + S y m b o l ( ) ) > - 1 )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ l a b e l " ) > - 1 )
{
o b j e c t l i n e = O b j e c t N a m e ( i ) ;
S t r i n g R e p l a c e ( o b j e c t l i n e , " _ l a b e l " , " _ R S " ) ;
O b j e c t M o v e ( 0 , O b j e c t N a m e ( i ) , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) ) ;
P i p G a p = M a t h A b s ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) - O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) ) ;
P i p G a p V a l u e = P i p G a p * M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) * L o t S i z e ;
O b j e c t S e t S t r i n g ( 0 , O b j e c t N a m e ( i ) , 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 b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T O O L T I P , D o u b l e T o S t r i n g ( O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , o b j e c t l i n e , O B J P R O P _ T O O L T I P , D o u b l e T o S t r i n g ( O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
}
}
}
}
i f ( s p a r a m = = " M a s I N _ R i s k B u t t o n P l u s " )
{
R i s k = R i s k + 0 . 1 ;
r i s k m o n e y = 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 t y p e ) ) / 1 0 0 * R i s k ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 3 C 1 " , O B J P R O P _ T E X T , " R i s k : " + D o u b l e T o S t r ( R i s k , 2 ) + " % / " + C u r r e n c y F o r m a t ( r i s k m o n e y , 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 r r e n c y S y m b o l R i g h t ) ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
c a l c u l a t e b u y ( ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
c a l c u l a t e s e l l ( ) ;
}
}
i f ( s p a r a m = = " M a s I N _ R i s k B u t t o n M i n u s " )
{
R i s k = R i s k - 0 . 1 ;
r i s k m o n e y = 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 t y p e ) ) / 1 0 0 * R i s k ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 3 C 1 " , O B J P R O P _ T E X T , " R i s k : " + D o u b l e T o S t r ( R i s k , 2 ) + " % / " + C u r r e n c y F o r m a t ( r i s k m o n e y , 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 r r e n c y S y m b o l R i g h t ) ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
c a l c u l a t e b u y ( ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
c a l c u l a t e s e l l ( ) ;
}
}
i f ( s p a r a m = = " M a s I N _ L i n e A B u t t o n S h o w " )
{
i f ( s h o w l i n e A )
{
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ K c S R _ " + S y m b o l ( ) ) > - 1 )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ A _ l a b e l " ) > - 1 )
{
o b j e c t l i n e = O b j e c t N a m e ( i ) ;
S t r i n g R e p l a c e ( o b j e c t l i n e , " _ l a b e l " , " _ R S " ) ;
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , o b j e c t l i n e , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
}
}
}
s h o w l i n e A = f a l s e ;
t e m p s h o w 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 , " M a s I N _ L i n e A B u t t o n S h o w " , O B J P R O P _ C O L O R , t e m p s h o w c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e A B u t t o n S h o w " , O B J P R O P _ B O R D E R _ C O L O R , t e m p s h o w c o l o r ) ;
}
e l s e
{
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ K c S R _ " + S y m b o l ( ) ) > - 1 )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ A _ l a b e l " ) > - 1 )
{
o b j e c t l i n e = O b j e c t N a m e ( i ) ;
S t r i n g R e p l a c e ( o b j e c t l i n e , " _ l a b e l " , " _ R S " ) ;
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , o b j e c t l i n e , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
}
}
s h o w l i n e A = t r u e ;
t e m p s h o w c o l o r = 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 , " M a s I N _ L i n e A B u t t o n S h o w " , O B J P R O P _ C O L O R , t e m p s h o w c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e A B u t t o n S h o w " , O B J P R O P _ B O R D E R _ C O L O R , t e m p s h o w c o l o r ) ;
}
}
i f ( s p a r a m = = " M a s I N _ L i n e A B u t t o n A l e r t " )
{
i f ( A l a r m C r o s s W h i t h A l e r t )
{
A l a r m C r o s s W h i t h A l e r t = f a l s e ;
t e m p a l e r t 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 , " M a s I N _ L i n e A B u t t o n A l e r t " , O B J P R O P _ C O L O R , t e m p a l e r t c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e A B u t t o n A l e r t " , O B J P R O P _ B O R D E R _ C O L O R , t e m p a l e r t c o l o r ) ;
}
e l s e
{
A l a r m C r o s s W h i t h A l e r t = t r u e ;
t e m p a l e r t c o l o r = 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 , " M a s I N _ L i n e A B u t t o n A l e r t " , O B J P R O P _ C O L O R , t e m p a l e r t c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e A B u t t o n A l e r t " , O B J P R O P _ B O R D E R _ C O L O R , t e m p a l e r t c o l o r ) ;
}
}
i f ( s p a r a m = = " M a s I N _ L i n e A B u t t o n S o u n d " )
{
/ / c h a n g e t o n e x t s o u n d
i f ( s o u n d n a m e < 6 )
{
s o u n d n a m e + = 1 ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L i n e A B u t t o n S o u n d " , O B J P R O P _ T E X T , E n u m T o S t r i n g ( s o u n d n a m e ) ) ;
}
e l s e
{
s o u n d n a m e = 0 ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L i n e A B u t t o n S o u n d " , O B J P R O P _ T E X T , E n u m T o S t r i n g ( s o u n d n a m e ) ) ;
}
}
i f ( s p a r a m = = " M a s I N _ L i n e Q B u t t o n S o u n d " )
{
/ / c h a n g e t o n e x t s o u n d
i f ( s o u n d n a m e S e c o n d < 6 )
{
s o u n d n a m e S e c o n d + = 1 ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L i n e Q B u t t o n S o u n d " , O B J P R O P _ T E X T , E n u m T o S t r i n g ( s o u n d n a m e S e c o n d ) ) ;
}
e l s e
{
s o u n d n a m e S e c o n d = 0 ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L i n e Q B u t t o n S o u n d " , O B J P R O P _ T E X T , E n u m T o S t r i n g ( s o u n d n a m e S e c o n d ) ) ;
}
}
i f ( s p a r a m = = " M a s I N _ L i n e Q B u t t o n S h o w " )
{
i f ( s h o w l i n e Q )
{
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ K c S R _ " + S y m b o l ( ) ) > - 1 )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ Q _ l a b e l " ) > - 1 )
{
o b j e c t l i n e = O b j e c t N a m e ( i ) ;
S t r i n g R e p l a c e ( o b j e c t l i n e , " _ l a b e l " , " _ R S " ) ;
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , o b j e c t l i n e , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
}
}
}
s h o w l i n e Q = f a l s e ;
t e m p s h o w 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 , " M a s I N _ L i n e Q B u t t o n S h o w " , O B J P R O P _ C O L O R , t e m p s h o w c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e Q B u t t o n S h o w " , O B J P R O P _ B O R D E R _ C O L O R , t e m p s h o w c o l o r ) ;
}
e l s e
{
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ K c S R _ " + S y m b o l ( ) ) > - 1 )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ Q _ l a b e l " ) > - 1 )
{
o b j e c t l i n e = O b j e c t N a m e ( i ) ;
S t r i n g R e p l a c e ( o b j e c t l i n e , " _ l a b e l " , " _ R S " ) ;
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , o b j e c t l i n e , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
}
}
s h o w l i n e Q = t r u e ;
t e m p s h o w c o l o r = 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 , " M a s I N _ L i n e Q B u t t o n S h o w " , O B J P R O P _ C O L O R , t e m p s h o w c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e Q B u t t o n S h o w " , O B J P R O P _ B O R D E R _ C O L O R , t e m p s h o w c o l o r ) ;
}
}
i f ( s p a r a m = = " M a s I N _ L i n e Q B u t t o n A l e r t " )
{
i f ( A l a r m C r o s s W h i t h A l e r t S e c o n d )
{
A l a r m C r o s s W h i t h A l e r t S e c o n d = f a l s e ;
t e m p a l e r t 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 , " M a s I N _ L i n e Q B u t t o n A l e r t " , O B J P R O P _ C O L O R , t e m p a l e r t c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e Q B u t t o n A l e r t " , O B J P R O P _ B O R D E R _ C O L O R , t e m p a l e r t c o l o r ) ;
}
e l s e
{
A l a r m C r o s s W h i t h A l e r t S e c o n d = t r u e ;
t e m p a l e r t c o l o r = 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 , " M a s I N _ L i n e Q B u t t o n A l e r t " , O B J P R O P _ C O L O R , t e m p a l e r t c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e Q B u t t o n A l e r t " , O B J P R O P _ B O R D E R _ C O L O R , t e m p a l e r t c o l o r ) ;
}
}
i f ( ( S t r i n g F i n d ( s p a r a m , " M a s I N _ K c S R _ " + S y m b o l ( ) ) > - 1 ) )
{
d o u b l e p r i c e t e s t = O b j e c t G e t ( s p a r a m , O B J P R O P _ P R I C E 1 ) ;
l i n e h i s t o r y = " " ;
k = 1 ;
i n t N u m R e s i s t = 0 ;
i n t N u m S u p p o r t = 0 ;
i n t N u m C r o s s U p = 0 ;
i n t N u m C r o s s D o w n = 0 ;
w h i l e ( k < h i s t o r y )
{
i f ( H i g h [ k ] - p r i c e t e s t < M a x D e v i a t i o n * p o i n t )
{
N u m R e s i s t + + ;
}
i f ( L o w [ k ] - p r i c e t e s t < M a x D e v i a t i o n * p o i n t )
{
N u m S u p p o r t + + ;
}
i f ( H i g h [ k ] > p r i c e t e s t & & L o w [ k ] < p r i c e t e s t )
{
i f ( O p e n [ k ] > C l o s e [ k ] )
{
N u m C r o s s D o w n + + ;
} e l s e {
N u m C r o s s U p + + ;
}
}
k + + ;
}
l i n e h i s t o r y = " S u p p o r t : " + I n t e g e r T o S t r i n g ( N u m S u p p o r t ) + " | R e s i s t : " + I n t e g e r T o S t r i n g ( N u m R e s i s t ) +
" | C r o s s U p / D o w n : " + I n t e g e r T o S t r i n g ( N u m C r o s s U p ) + " / " + I n t e g e r T o S t r i n g ( N u m C r o s s D o w n ) ;
C o m m e n t ( l i n e h i s t o r y ) ;
}
i f ( ( S t r i n g F i n d ( s p a r a m , " M a s I N _ L 0 " ) > - 1 ) | | ( S t r i n g F i n d ( s p a r a m , " M a s I N _ L 1 " ) > - 1 ) | | ( S t r i n g F i n d ( s p a r a m , " M a s I N _ L 2 " ) > - 1 ) | | ( S t r i n g F i n d ( s p a r a m , " M a s I N _ L 3 " ) > - 1 ) )
{
o b j e c t c l i c k = t r u e ;
}
i f ( s p a r a m = = " M a s I N _ M M G T b o x _ T P B u t t o n " )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ T P B u t t o n " , O B J P R O P _ S T A T E , f a l s e ) ;
i f ( C r e a t e T P ) { C r e a t e T P = f a l s e ; } e l s e { C r e a t e T P = t r u e ; }
i f ( C r e a t e T P )
{
o n o f f = " T P O n " ;
o n o f f c o l o r = c l r G r e e n ;
s t r i n g t e m p o t x t ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
S L P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
T P p r i c e = O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) + S L P i p s * 2 ;
P i p G a p = ( T P p r i c e - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
t e m p o t x t = " B u y " ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
S L P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
T P p r i c e = O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) - S L P i p s * 2 ;
P i p G a p = ( T P p r i c e - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
t e m p o t x t = " S e l l " ;
}
H L i n e C r e a t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , 0 , T P p r i c e , C o l o r T P , M M L i n e S t y l e , M M L i n e w i d t h , f a l s e , t r u e , f a l s e , 0 , T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) ) ;
O b j e c t C r e a t e ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " , O B J _ T E X T , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t S e t T e x t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " , " T P a t " + D o u b l e T o S t r i n g ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s f r o m " + t e m p o t x t , 1 0 , " C o u r i e r N e w " , C o l o r T P ) ;
}
e l s e
{
o n o f f = " T P O f f " ;
o n o f f c o l o r = c l r R e d ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " ) ;
}
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ T P B u t t o n " , O B J P R O P _ S T A T E , f a l s e ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ M M G T b o x _ T P B u t t o n " , O B J P R O P _ T E X T , o n o f f ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ T P B u t t o n " , O B J P R O P _ C O L O R , o n o f f c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ T P B u t t o n " , O B J P R O P _ B O R D E R _ C O L O R , o n o f f c o l o r ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
c a l c u l a t e b u y ( ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
c a l c u l a t e s e l l ( ) ;
}
}
i f ( s p a r a m = = " M a s I N _ M M G T b o x _ S L B u t t o n " )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ S L B u t t o n " , O B J P R O P _ S T A T E , f a l s e ) ;
i f ( C r e a t e S L ) { C r e a t e S L = f a l s e ; } e l s e { C r e a t e S L = t r u e ; }
i f ( C r e a t e S L )
{
o n o f f = " S L O n " ;
o n o f f c o l o r = c l r G r e e n ;
s t r i n g t e m p o t x t ;
i f ( O b j e c t F i n d ( 0 , " M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
T P p r i c e = O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) - ( D e f a u l t S L * p o i n t ) ;
P i p G a p = ( T P p r i c e - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
t e m p o t x t = " B u y " ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
S L p r i c e = O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) + ( D e f a u l t S L * p o i n t ) ;
P i p G a p = ( T P p r i c e - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
t e m p o t x t = " S e l l " ;
}
H L i n e C r e a t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , 0 , S L p r i c e , C o l o r S L , M M L i n e S t y l e , M M L i n e w i d t h , f a l s e , t r u e , f a l s e , 0 , T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) ) ;
O b j e c t C r e a t e ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " , O B J _ T E X T , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t S e t T e x t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " , " S L a t " + D o u b l e T o S t r i n g ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s f r o m " + t e m p o t x t , 1 0 , " C o u r i e r N e w " , C o l o r S L ) ;
}
e l s e
{
o n o f f = " S L O f f " ;
o n o f f c o l o r = c l r R e d ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " ) ;
}
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ S L B u t t o n " , O B J P R O P _ S T A T E , f a l s e ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ M M G T b o x _ S L B u t t o n " , O B J P R O P _ T E X T , o n o f f ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ S L B u t t o n " , O B J P R O P _ C O L O R , o n o f f c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ S L B u t t o n " , O B J P R O P _ B O R D E R _ C O L O R , o n o f f c o l o r ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
c a l c u l a t e b u y ( ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
c a l c u l a t e s e l l ( ) ;
}
}
i f ( s p a r a m = = " M a s I N _ M M G T b o x _ F o l l o w B u t t o n " )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ F o l l o w B u t t o n " , O B J P R O P _ S T A T E , f a l s e ) ;
i f ( f o l l o w p r i c e ) { f o l l o w p r i c e = f a l s e ; } e l s e { f o l l o w p r i c e = t r u e ; }
i f ( f o l l o w p r i c e )
{
Y e s N o c o l o r = 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 , " M a s I N _ M M G T b o x _ F o l l o w B u t t o n " , O B J P R O P _ S T A T E , f a l s e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ F o l l o w B u t t o n " , O B J P R O P _ C O L O R , Y e s N o c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ F o l l o w B u t t o n " , O B J P R O P _ B O R D E R _ C O L O R , Y e s N o c o l o r ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
T P P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L a b e l " , 0 , l a b e l p o s i t i o n , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) - S L P i p s ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " , 0 , l a b e l p o s i t i o n , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) - S L P i p s ) ;
i f ( C r e a t e T P )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) + T P P i p s ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " , 0 , l a b e l p o s i t i o n , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) + T P P i p s ) ;
}
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
T P P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L a b e l " , 0 , l a b e l p o s i t i o n , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) + S L P i p s ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " , 0 , l a b e l p o s i t i o n , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) + S L P i p s ) ;
i f ( C r e a t e T P )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) - T P P i p s ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " , 0 , l a b e l p o s i t i o n , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) - T P P i p s ) ;
}
}
}
e l s e
{
Y e s N o 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 , " M a s I N _ M M G T b o x _ F o l l o w B u t t o n " , O B J P R O P _ S T A T E , f a l s e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ F o l l o w B u t t o n " , O B J P R O P _ C O L O R , Y e s N o c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ F o l l o w B u t t o n " , O B J P R O P _ B O R D E R _ C O L O R , Y e s N o c o l o r ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
c a l c u l a t e b u y ( ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
c a l c u l a t e s e l l ( ) ;
}
}
i f ( s p a r a m = = " M a s I N _ M M G T b o x _ C l o s e B u t t o n " )
{
G l o b a l V a r i a b l e S e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ A c t i o n " , 0 ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L a b e l " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L a b e l " ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 3 C 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 3 C 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ T P B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ S L B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ F o l l o w B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ O r d e r B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ R i s k B u t t o n P l u s " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ R i s k B u t t o n M i n u s " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ C l o s e B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 C 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 5 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L A T R " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 3 C 1 - e r r o r " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
}
i f ( s p a r a m = = " M a s I N _ M M G T b o x _ O r d e r B u t t o n " )
{
i n t O r d e r P r o p e r t i e s ;
d o u b l e p r i c e o r d e r = 0 ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ O r d e r B u t t o n " , O B J P R O P _ S T A T E , f a l s e ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
i f ( f o l l o w p r i c e )
{
O r d e r P r o p e r t i e s = O P _ B U Y ;
p r i c e o r d e r = M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) ;
}
e l s e
{
p r i c e o r d e r = O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ;
i f ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) > M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) )
{
O r d e r P r o p e r t i e s = O P _ B U Y S T O P ;
}
e l s e
{
O r d e r P r o p e r t i e s = O P _ B U Y L I M I T ;
}
}
G l o b a l V a r i a b l e S e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ A c t i o n " , 1 0 ) ; / / 1 0 = s e n d
G l o b a l V a r i a b l e S e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ O r d e r P r o p " , O r d e r P r o p e r t i e s ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ L o t S i z e " , L o t S i z e ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ P r i c e " , N o r m a l i z e D o u b l e ( p r i c e o r d e r , D i g i t s ) ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L " , N o r m a l i z e D o u b l e ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) , D i g i t s ) ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P " , N o r m a l i z e D o u b l e ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) , D i g i t s ) ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ M A G I C " , M a g i c N u m b e r ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
i f ( f o l l o w p r i c e )
{
O r d e r P r o p e r t i e s = O P _ S E L L ;
p r i c e o r d e r = M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) ;
}
e l s e
{
p r i c e o r d e r = O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ;
i f ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) > M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) )
{
O r d e r P r o p e r t i e s = O P _ S E L L L I M I T ;
}
e l s e
{
O r d e r P r o p e r t i e s = O P _ S E L L S T O P ;
}
}
G l o b a l V a r i a b l e S e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ A c t i o n " , 1 0 ) ; / / 1 0 = s e n d
G l o b a l V a r i a b l e S e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ O r d e r P r o p " , O r d e r P r o p e r t i e s ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ L o t S i z e " , L o t S i z e ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ P r i c e " , N o r m a l i z e D o u b l e ( p r i c e o r d e r , D i g i t s ) ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L " , N o r m a l i z e D o u b l e ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) , D i g i t s ) ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P " , N o r m a l i z e D o u b l e ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) , D i g i t s ) ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ M A G I C " , M a g i c N u m b e r ) ;
}
}
i f ( s p a r a m = = " M a s I N _ O p t i o n _ B u t t o n _ G r i d " )
{
i f ( S h o w G r i d ) { o n o f f = " G r i d O f f " ; o n o f f c o l o r = c l r R e d ; S h o w G r i d = f a l s e ; } e l s e { o n o f f = " G r i d O n " ; o n o f f c o l o r = c l r G r e e n ; S h o w G r i d = t r u e ; }
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ G r i d " , O B J P R O P _ S T A T E , f a l s e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ G r i d " , O B J P R O P _ C O L O R , o n o f f c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ G r i d " , O B J P R O P _ B O R D E R _ C O L O R , o n o f f c o l o r ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ G r i d " , O B J P R O P _ T E X T , o n o f f ) ;
G r i d C o l o r ( ) ;
}
i f ( s p a r a m = = " M a s I N _ O p t i o n _ S h o w _ P r i c e " )
{
i f ( S h o w P r i c e ) { o n o f f = " O f f " ; o n o f f c o l o r = c l r R e d ; S h o w P r i c e = f a l s e ; } e l s e { o n o f f = " O n " ; o n o f f c o l o r = c l r G r e e n ; S h o w P r i c e = t r u e ; }
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ S h o w _ P r i c e " , O B J P R O P _ S T A T E , f a l s e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ S h o w _ P r i c e " , O B J P R O P _ C O L O R , o n o f f c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ S h o w _ P r i c e " , O B J P R O P _ B O R D E R _ C O L O R , o n o f f c o l o r ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ O p t i o n _ S h o w _ P r i c e " , O B J P R O P _ T E X T , o n o f f ) ;
G r i d C o l o r ( ) ;
}
i f ( s p a r a m = = " M a s I N _ O p t i o n _ B u t t o n _ I n d i c a t o r " )
{
i f ( I n d i c a t o r V a l u e )
{
o n o f f = " I n d i c a t o r O f f " ;
o n o f f c o l o r = c l r R e d ;
I n d i c a t o r V a l u e = f a l s e ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 5 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 5 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 5 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
}
e l s e
{
o n o f f = " I n d i c a t o r " ;
o n o f f c o l o r = c l r G r e e n ;
I n d i c a t o r V a l u e = t r u e ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 5 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 5 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 5 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ I n d i c a t o r " , O B J P R O P _ S T A T E , f a l s e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ I n d i c a t o r " , O B J P R O P _ C O L O R , o n o f f c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ I n d i c a t o r " , O B J P R O P _ B O R D E R _ C O L O R , o n o f f c o l o r ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ I n d i c a t o r " , O B J P R O P _ T E X T , o n o f f ) ;
}
i f ( s p a r a m = = " M a s I N _ O p t i o n _ B u t t o n _ D a i l y O p e n " )
{
i f ( S h o w D a i l y O p e n )
{
o n o f f = " D a i l y O f f " ;
o n o f f c o l o r = c l r R e d ;
S h o w D a i l y O p e n = f a l s e ;
A r r a y I n i t i a l i z e ( D a i l y O p e n A r r a y , E M P T Y _ V A L U E ) ;
S e t I n d e x E m p t y V a l u e ( 0 , E M P T Y _ V A L U E ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ D a i l y _ " + S y m b o l ( ) + " _ D O _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
}
e l s e
{
o n o f f = " D a i l y O n " ;
o n o f f c o l o r = c l r G r e e n ;
S h o w D a i l y O p e n = t r u e ;
D a i l y O p e n ( ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ D a i l y _ " + S y m b o l ( ) + " _ D O _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ D a i l y O p e n " , O B J P R O P _ S T A T E , f a l s e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ D a i l y O p e n " , O B J P R O P _ C O L O R , o n o f f c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ D a i l y O p e n " , O B J P R O P _ B O R D E R _ C O L O R , o n o f f c o l o r ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ D a i l y O p e n " , O B J P R O P _ T E X T , o n o f f ) ;
}
i f ( s p a r a m = = " M a s I N _ O p t i o n _ B u t t o n _ P i v o t " )
{
i f ( S h o w P i v o t )
{
o n o f f = " P i v o t O f f " ;
o n o f f c o l o r = c l r R e d ;
S h o w P i v o t = f a l s e ;
A r r a y I n i t i a l i z e ( P P B u f f e r , E M P T Y _ V A L U E ) ;
A r r a y I n i t i a l i z e ( R 4 B u f f e r , E M P T Y _ V A L U E ) ;
A r r a y I n i t i a l i z e ( R 3 B u f f e r , E M P T Y _ V A L U E ) ;
A r r a y I n i t i a l i z e ( R 2 B u f f e r , E M P T Y _ V A L U E ) ;
A r r a y I n i t i a l i z e ( R 1 B u f f e r , E M P T Y _ V A L U E ) ;
A r r a y I n i t i a l i z e ( S 4 B u f f e r , E M P T Y _ V A L U E ) ;
A r r a y I n i t i a l i z e ( S 3 B u f f e r , E M P T Y _ V A L U E ) ;
A r r a y I n i t i a l i z e ( S 2 B u f f e r , E M P T Y _ V A L U E ) ;
A r r a y I n i t i a l i z e ( S 1 B u f f e r , E M P T Y _ V A L U E ) ;
S e t I n d e x E m p t y V a l u e ( 1 , E M P T Y _ V A L U E ) ;
S e t I n d e x E m p t y V a l u e ( 2 , E M P T Y _ V A L U E ) ;
S e t I n d e x E m p t y V a l u e ( 3 , E M P T Y _ V A L U E ) ;
S e t I n d e x E m p t y V a l u e ( 4 , E M P T Y _ V A L U E ) ;
S e t I n d e x E m p t y V a l u e ( 5 , E M P T Y _ V A L U E ) ;
S e t I n d e x E m p t y V a l u e ( 6 , E M P T Y _ V A L U E ) ;
S e t I n d e x E m p t y V a l u e ( 7 , E M P T Y _ V A L U E ) ;
S e t I n d e x E m p t y V a l u e ( 8 , E M P T Y _ V A L U E ) ;
S e t I n d e x E m p t y V a l u e ( 9 , E M P T Y _ V A L U E ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ S 1 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ S 2 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ S 3 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ S 4 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ R 1 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ R 2 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ R 3 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ R 4 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ P P _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
}
e l s e
{
o n o f f = " P i v o t O n " ;
o n o f f c o l o r = c l r G r e e n ;
S h o w P i v o t = t r u e ;
P i v o t L i n e ( ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ S 1 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ S 2 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ S 3 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ S 4 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ R 1 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ R 2 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ R 3 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ R 4 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ P P _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ P i v o t " , O B J P R O P _ S T A T E , f a l s e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ P i v o t " , O B J P R O P _ C O L O R , o n o f f c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ P i v o t " , O B J P R O P _ B O R D E R _ C O L O R , o n o f f c o l o r ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ P i v o t " , O B J P R O P _ T E X T , o n o f f ) ;
}
i f ( s p a r a m = = " M a s I N _ O p t i o n _ B u t t o n _ P i v o t F i b o " )
{
i f ( S h o w P i v o t F i b o )
{
o n o f f = " P i v o t F i b o n a c c i O f f " ;
o n o f f c o l o r = c l r R e d ;
S h o w P i v o t F i b o = f a l s e ;
A r r a y I n i t i a l i z e ( F P P B u f f e r , E M P T Y _ V A L U E ) ;
A r r a y I n i t i a l i z e ( F R 3 B u f f e r , E M P T Y _ V A L U E ) ;
A r r a y I n i t i a l i z e ( F R 2 B u f f e r , E M P T Y _ V A L U E ) ;
A r r a y I n i t i a l i z e ( F R 1 B u f f e r , E M P T Y _ V A L U E ) ;
A r r a y I n i t i a l i z e ( F S 3 B u f f e r , E M P T Y _ V A L U E ) ;
A r r a y I n i t i a l i z e ( F S 2 B u f f e r , E M P T Y _ V A L U E ) ;
A r r a y I n i t i a l i z e ( F S 1 B u f f e r , E M P T Y _ V A L U E ) ;
S e t I n d e x E m p t y V a l u e ( 1 0 , E M P T Y _ V A L U E ) ;
S e t I n d e x E m p t y V a l u e ( 1 1 , E M P T Y _ V A L U E ) ;
S e t I n d e x E m p t y V a l u e ( 1 2 , E M P T Y _ V A L U E ) ;
S e t I n d e x E m p t y V a l u e ( 1 3 , E M P T Y _ V A L U E ) ;
S e t I n d e x E m p t y V a l u e ( 1 4 , E M P T Y _ V A L U E ) ;
S e t I n d e x E m p t y V a l u e ( 1 5 , E M P T Y _ V A L U E ) ;
S e t I n d e x E m p t y V a l u e ( 1 6 , E M P T Y _ V A L U E ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ S 1 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ S 2 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ S 3 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ R 1 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ R 2 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ R 3 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ P P _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
}
e l s e
{
o n o f f = " P i v o t F i b o n a c c i O n " ;
o n o f f c o l o r = c l r G r e e n ;
S h o w P i v o t F i b o = t r u e ;
P i v o t L i n e F i b o ( ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ S 1 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ S 2 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ S 3 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ R 1 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ R 2 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ R 3 _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ P P _ l a b e l " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ P i v o t F i b o " , O B J P R O P _ S T A T E , f a l s e ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ P i v o t F i b o " , O B J P R O P _ C O L O R , o n o f f c o l o r ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ P i v o t F i b o " , O B J P R O P _ B O R D E R _ C O L O R , o n o f f c o l o r ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ O p t i o n _ B u t t o n _ P i v o t F i b o " , O B J P R O P _ T E X T , o n o f f ) ;
}
i f ( s p a r a m = = " M a s I N _ O p t i o n _ B u t t o n " )
{
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ O p t i o n _ " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
}
}
}
i f ( s p a r a m = = " M a s I N _ O p t i o n _ B u t t o n _ B a c k u p " )
{
S a v e S u p p o r t R e s i s t a n c e T o F i l e B a c k u p ( ) ;
}
i f ( s p a r a m = = " M a s I N _ L 4 _ B S L M " )
{
i f ( C r e a t e S L )
{
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) - ( S L T P b r o k e r L i m i t n o t z e r o * P o i n t ) ) ;
c a l c u l a t e b u y ( ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) + ( S L T P b r o k e r L i m i t n o t z e r o * P o i n t ) ) ;
c a l c u l a t e s e l l ( ) ;
}
}
}
i f ( s p a r a m = = " M a s I N _ L 4 _ B S L M 2 " )
{
i f ( C r e a t e S L )
{
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) - ( S L T P b r o k e r L i m i t n o t z e r o * P o i n t * 2 ) ) ;
c a l c u l a t e b u y ( ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) + ( S L T P b r o k e r L i m i t n o t z e r o * P o i n t * 2 ) ) ;
c a l c u l a t e s e l l ( ) ;
}
}
}
i f ( s p a r a m = = " M a s I N _ L 4 _ B S L M 3 " )
{
i f ( C r e a t e S L )
{
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) - ( S L T P b r o k e r L i m i t n o t z e r o * P o i n t * 3 ) ) ;
c a l c u l a t e b u y ( ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) + ( S L T P b r o k e r L i m i t n o t z e r o * P o i n t * 3 ) ) ;
c a l c u l a t e s e l l ( ) ;
}
}
}
i f ( s p a r a m = = " M a s I N _ L 4 _ B S L M 4 " )
{
i f ( C r e a t e S L )
{
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) - ( S L T P b r o k e r L i m i t n o t z e r o * P o i n t * 4 ) ) ;
c a l c u l a t e b u y ( ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) + ( S L T P b r o k e r L i m i t n o t z e r o * P o i n t * 4 ) ) ;
c a l c u l a t e s e l l ( ) ;
}
}
}
i f ( s p a r a m = = " M a s I N _ L 4 _ B S L M 5 " )
{
i f ( C r e a t e S L )
{
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) - ( S L T P b r o k e r L i m i t n o t z e r o * P o i n t * 5 ) ) ;
c a l c u l a t e b u y ( ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) + ( S L T P b r o k e r L i m i t n o t z e r o * P o i n t * 5 ) ) ;
c a l c u l a t e s e l l ( ) ;
}
}
}
i f ( s p a r a m = = " M a s I N _ L 4 _ B S L A T R " )
{
i f ( C r e a t e S L )
{
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) - ( i A T R ( S y m b o l ( ) , P E R I O D _ C U R R E N T , 2 0 , 0 ) ) ) ;
c a l c u l a t e b u y ( ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) + ( i A T R ( S y m b o l ( ) , P E R I O D _ C U R R E N T , 2 0 , 0 ) ) ) ;
c a l c u l a t e s e l l ( ) ;
}
}
}
i f ( s p a r a m = = " M a s I N _ L 4 _ B T P R R 1 " )
{
i f ( C r e a t e T P & & C r e a t e S L )
{
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
S L P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) + ( S L P i p s ) ) ;
c a l c u l a t e b u y ( ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
S L P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) - ( S L P i p s ) ) ;
c a l c u l a t e s e l l ( ) ;
}
}
}
i f ( s p a r a m = = " M a s I N _ L 4 _ B T P R R 2 " )
{
i f ( C r e a t e T P & & C r e a t e S L )
{
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
S L P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) + ( S L P i p s * 2 ) ) ;
c a l c u l a t e b u y ( ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
S L P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) - ( S L P i p s * 2 ) ) ;
c a l c u l a t e s e l l ( ) ;
}
}
}
i f ( s p a r a m = = " M a s I N _ L 4 _ B T P R R 3 " )
{
i f ( C r e a t e T P & & C r e a t e S L )
{
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
S L P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) + ( S L P i p s * 3 ) ) ;
c a l c u l a t e b u y ( ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
S L P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) - ( S L P i p s * 3 ) ) ;
c a l c u l a t e s e l l ( ) ;
}
}
}
i f ( s p a r a m = = " M a s I N _ L 4 _ B T P R R 4 " )
{
i f ( C r e a t e T P & & C r e a t e S L )
{
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
S L P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) + ( S L P i p s * 4 ) ) ;
c a l c u l a t e b u y ( ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
S L P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) - ( S L P i p s * 4 ) ) ;
c a l c u l a t e s e l l ( ) ;
}
}
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C H A R T E V E N T _ C L I C K |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i f ( i d = = C H A R T E V E N T _ C L I C K )
{
i f ( o b j e c t c l i c k )
{
o b j e c t c l i c k = f a l s e ;
}
e l s e
{
C h a r t X Y T o T i m e P r i c e ( 0 , i n t ( l p a r a m ) , i n t ( d p a r a m ) , w i n d o w , d t , p r i c e ) ;
i f ( p r i c e > M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) )
{
C l i c k V a l u e = P i p V a l u e s * ( ( p r i c e - M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) ) / p o i n t ) ;
C l i c k P i p = N o r m a l i z e D o u b l e ( ( ( p r i c e - M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) ) / p o i n t ) , 1 ) ;
}
e l s e
{
C l i c k V a l u e = P i p V a l u e s * ( ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) - p r i c e ) / p o i n t ) ;
C l i c k P i p = N o r m a l i z e D o u b l e ( ( ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) - p r i c e ) / p o i n t ) , 1 ) ;
}
C l i c k P r i c e = p r i c e ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 2 " , O B J P R O P _ T E X T , " C l i c k : " + D o u b l e T o S t r ( C l i c k P r i c e , D i g i t s ) + " / " + D o u b l e T o S t r ( C l i c k P i p , 1 ) + " / " + C u r r e n c y F o r m a t ( C l i c k V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C H A R T E V E N T _ C H A R T _ C H A N G E |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i f ( i d = = C H A R T E V E N T _ C H A R T _ C H A N G E )
{
i f ( r a t i o p o s i t i o n = = 0 )
{
r a t i o p o s i t i o n = 0 . 7 ;
}
i n t n e w b a r p o s = i n t ( W i n d o w F i r s t V i s i b l e B a r ( ) * r a t i o p o s i t i o n ) ;
l a b e l p o s i t i o n = T i m e [ n e w b a r p o s ] ;
n e w b a r p o s = i n t ( W i n d o w F i r s t V i s i b l e B a r ( ) * 0 . 3 ) ;
o r d e r l a b e l p o s i t i o n = T i m e [ n e w b a r p o s ] ;
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 , 0 , c h a r t h e i g h t ) ;
G r i d C o l o r ( ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C H A R T E V E N T _ O B J E C T _ D R A G |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i f ( i d = = C H A R T E V E N T _ O B J E C T _ D R A G )
{
i f ( S t r i n g F i n d ( s p a r a m , " M a s I N _ K c S R _ " + S y m b o l ( ) ) > - 1 )
{
i f ( S t r i n g F i n d ( s p a r a m , " _ l a b e l " ) > - 1 )
{
l a b e l p o s i t i o n = d a t e t i m e ( O b j e c t G e t ( s p a r a m , O B J P R O P _ T I M E 1 ) ) ;
r a t i o p o s i t i o n = i B a r S h i f t ( S y m b o l ( ) , P e r i o d ( ) , l a b e l p o s i t i o n , f a l s e ) / W i n d o w F i r s t V i s i b l e B a r ( ) ;
}
i f ( S t r i n g F i n d ( s p a r a m , " _ R S " ) > - 1 )
{
s t r i n g l a b e l l i n e = s p a r a m ;
S t r i n g R e p l a c e ( l a b e l l i n e , " _ R S " , " _ l a b e l " ) ;
P i p G a p = M a t h A b s ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) - ( O b j e c t G e t ( s p a r a m , O B J P R O P _ P R I C E 1 ) ) ) ;
P i p G a p V a l u e = P i p G a p * M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) * L o t S i z e ;
O b j e c t S e t S t r i n g ( 0 , l a b e l l i n 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 ( M o u s e P r i c e , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , l a b e l l i n e , O B J P R O P _ T O O L T I P , D o u b l e T o S t r i n g ( M o u s e P r i c e , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , s p a r a m , O B J P R O P _ T O O L T I P , D o u b l e T o S t r i n g ( M o u s e P r i c e , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t M o v e ( 0 , l a b e l l i n e , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( s p a r a m , O B J P R O P _ P R I C E 1 ) ) ;
}
}
i f ( S t r i n g F i n d ( s p a r a m , " T r e n d l i n e " ) > - 1 & & S t r i n g F i n d ( s p a r a m , " M a s I N _ K c S R _ " ) = = - 1 )
{
d a t e t i m e l a b e l p o s i t i o n t r e n d ;
d o u b l e t r e n d l i n e p o s i t i o n = O b j e c t G e t V a l u e B y T i m e ( 0 , s p a r a m , l a b e l p o s i t i o n ) ;
i f ( O b j e c t G e t V a l u e B y T i m e ( 0 , s p a r a m , l a b e l p o s i t i o n ) = = 0 )
{
t r e n d l i n e p o s i t i o n = O b j e c t G e t ( s p a r a m , O B J P R O P _ P R I C E 1 ) ;
l a b e l p o s i t i o n t r e n d = d a t e t i m e ( O b j e c t G e t ( s p a r a m , O B J P R O P _ T I M E 1 ) ) ;
}
e l s e
{
l a b e l p o s i t i o n t r e n d = l a b e l p o s i t i o n ;
}
O b j e c t M o v e ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + s p a r a m + " _ L a b e l " , 0 , l a b e l p o s i t i o n t r e n d , t r e n d l i n e p o s i t i o n ) ;
}
i f ( S t r i n g F i n d ( s p a r a m , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) - S L P i p s ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) - S L P i p s ) ;
i f ( C r e a t e T P )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) + T P P i p s ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) + T P P i p s ) ;
}
c a l c u l a t e b u y ( ) ;
}
i f ( S t r i n g F i n d ( s p a r a m , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) + S L P i p s ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) + S L P i p s ) ;
i f ( C r e a t e T P )
{
H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) - T P P i p s ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) - T P P i p s ) ;
}
c a l c u l a t e s e l l ( ) ;
}
i f ( S t r i n g F i n d ( s p a r a m , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " ) > - 1 )
{
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
c a l c u l a t e b u y ( ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
c a l c u l a t e s e l l ( ) ;
}
}
i f ( S t r i n g F i n d ( s p a r a m , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " ) > - 1 )
{
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
c a l c u l a t e b u y ( ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
c a l c u l a t e s e l l ( ) ;
}
}
i f ( S t r i n g F i n d ( s p a r a m , " M a s I N _ M M G T _ " + S y m b o l ( ) ) > - 1 )
{
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
c a l c u l a t e b u y ( ) ;
}
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
c a l c u l a t e s e l l ( ) ;
}
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C H A R T E V E N T _ K E Y D O W N |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i f ( i d = = C H A R T E V E N T _ K E Y D O W N )
{
i f ( l p a r a m = = ( S t r i n g G e t C h a r ( M a s t e r H i d e , 0 ) ) )
{
i f ( s h o w m a s t e r )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L o t S i z e B u t t o n P l u s " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L o t S i z e B u t t o n M i n u s " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 5 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 5 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 5 " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
s h o w m a s t e r = f a l s e ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L o t S i z e B u t t o n P l u s " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L o t S i z e B u t t o n M i n u s " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
i f ( I n d i c a t o r V a l u e )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 5 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 5 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 5 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
s h o w m a s t e r = t r u e ;
}
}
i f ( l p a r a m = = ( S t r i n g G e t C h a r ( " P " , 0 ) ) )
{
L o t S i z e = L o t S i z e + L o t S t e p ;
P i p V a l u e s = ( ( ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) * p o i n t ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ) * L o t S i z e ) ;
O b j e c t S e t I n t e g e r ( 0 , s p a r a m , O B J P R O P _ S T A T E , F a l s e ) ;
i f ( L o t S i z e > M a x i m u m L o t | | L o t S i z e < M i n i m u m L o t S i z e )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ C O L O R , c l r R e d ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ C O L O R , T e x t C o l o r ) ;
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ T E X T , " L o t : " + D o u b l e T o S t r ( L o t S i z e , 2 ) + " / " + C u r r e n c y F o r m a t ( P i p V a l u e s , 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 r r e n c y S y m b o l R i g h t ) ) ;
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ K c S R _ " + S y m b o l ( ) ) > - 1 )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ l a b e l " ) > - 1 )
{
o b j e c t l i n e = O b j e c t N a m e ( i ) ;
S t r i n g R e p l a c e ( o b j e c t l i n e , " _ l a b e l " , " _ R S " ) ;
O b j e c t M o v e ( 0 , O b j e c t N a m e ( i ) , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) ) ;
P i p G a p = M a t h A b s ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) - O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) ) ;
P i p G a p V a l u e = P i p G a p * M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) * L o t S i z e ;
O b j e c t S e t S t r i n g ( 0 , O b j e c t N a m e ( i ) , 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 b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T O O L T I P , D o u b l e T o S t r i n g ( O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , o b j e c t l i n e , O B J P R O P _ T O O L T I P , D o u b l e T o S t r i n g ( O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
}
}
}
}
i f ( l p a r a m = = ( S t r i n g G e t C h a r ( " M " , 0 ) ) )
{
L o t S i z e = L o t S i z e - L o t S t e p ;
P i p V a l u e s = ( ( ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) * p o i n t ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ) * L o t S i z e ) ;
O b j e c t S e t I n t e g e r ( 0 , s p a r a m , O B J P R O P _ S T A T E , F a l s e ) ;
i f ( L o t S i z e > M a x i m u m L o t | | L o t S i z e < M i n i m u m L o t S i z e )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ C O L O R , c l r R e d ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ C O L O R , T e x t C o l o r ) ;
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ T E X T , " L o t : " + D o u b l e T o S t r ( L o t S i z e , 2 ) + " / " + C u r r e n c y F o r m a t ( P i p V a l u e s , 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 r r e n c y S y m b o l R i g h t ) ) ;
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ K c S R _ " + S y m b o l ( ) ) > - 1 )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ l a b e l " ) > - 1 )
{
o b j e c t l i n e = O b j e c t N a m e ( i ) ;
S t r i n g R e p l a c e ( o b j e c t l i n e , " _ l a b e l " , " _ R S " ) ;
O b j e c t M o v e ( 0 , O b j e c t N a m e ( i ) , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) ) ;
P i p G a p = M a t h A b s ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) - O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) ) ;
P i p G a p V a l u e = P i p G a p * M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) * L o t S i z e ;
O b j e c t S e t S t r i n g ( 0 , O b j e c t N a m e ( i ) , 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 b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T O O L T I P , D o u b l e T o S t r i n g ( O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , o b j e c t l i n e , O B J P R O P _ T O O L T I P , D o u b l e T o S t r i n g ( O b j e c t G e t ( o b j e c t l i n e , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
}
}
}
}
L i n e I d = T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) + " " + T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ S E C O N D S ) ;
i f ( l p a r a m = = ( S t r i n g G e t C h a r ( L i n e H o r i z o n t a l , 0 ) ) )
{
i f ( M o u s e P r i c e > M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) )
{
H L i n e C r e a t e ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ R S " , 0 , ( i n t ( M o u s e P r i c e / p o i n t ) * p o i n t ) , L i n e R e s i s t c o l o r , L i n e S t y l e , L i n e w i d t h , f a l s e , t r u e , f a l s e , 0 , T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) ) ;
O b j e c t C r e a t e ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ l a b e l " , O B J _ T E X T , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ R S " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t M o v e ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ l a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ R S " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t S e t T e x t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ l a b e l " , D o u b l e T o S t r i n g ( ( i n t ( M o u s e P r i c e / p o i n t ) * p o i n t ) , D i g i t s ) , 1 0 , " C o u r i e r N e w " , L i n e R e s i s t c o l o r ) ;
}
e l s e
{
H L i n e C r e a t e ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ R S " , 0 , ( i n t ( M o u s e P r i c e / p o i n t ) * p o i n t ) , L i n e S u p p o r t c o l o r , L i n e S t y l e , L i n e w i d t h , f a l s e , t r u e , f a l s e , 0 , T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) ) ;
O b j e c t C r e a t e ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ l a b e l " , O B J _ T E X T , 0 , T i m e [ W i n d o w F i r s t V i s i b l e B a r ( ) / 3 * 2 ] , O b j e c t G e t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ R S " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t M o v e ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ l a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ R S " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t S e t T e x t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ l a b e l " , D o u b l e T o S t r i n g ( ( i n t ( M o u s e P r i c e / p o i n t ) * p o i n t ) , D i g i t s ) , 1 0 , " C o u r i e r N e w " , L i n e S u p p o r t c o l o r ) ;
}
P i p G a p = M a t h A b s ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) - ( i n t ( M o u s e P r i c e / p o i n t ) * p o i n t ) ) ;
P i p G a p V a l u e = P i p G a p * M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) * L o t S i z e ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ l a b e 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 ( ( i n t ( M o u s e P r i c e / p o i n t ) * p o i n t ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ l a b e l " , O B J P R O P _ T O O L T I P , D o u b l e T o S t r i n g ( ( i n t ( M o u s e P r i c e / p o i n t ) * p o i n t ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ R S " , O B J P R O P _ T O O L T I P , D o u b l e T o S t r i n g ( ( i n t ( M o u s e P r i c e / p o i n t ) * p o i n t ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e A B u t t o n A l e r t " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e A B u t t o n S h o w " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e Q B u t t o n A l e r t " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e Q B u t t o n S h o w " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e A B u t t o n S o u n d " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e Q B u t t o n S o u n d " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
S a v e S u p p o r t R e s i s t a n c e T o F i l e ( ) ;
}
i f ( l p a r a m = = ( S t r i n g G e t C h a r ( L i n e H o r i z o n t a l S e c o n d , 0 ) ) )
{
i f ( M o u s e P r i c e > M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) )
{
H L i n e C r e a t e ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ R S " , 0 , ( i n t ( M o u s e P r i c e / p o i n t ) * p o i n t ) , L i n e R e s i s t c o l o r S e c o n d , L i n e S t y l e S e c o n d , L i n e w i d t h S e c o n d , f a l s e , t r u e , f a l s e , 0 , T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) ) ;
O b j e c t C r e a t e ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ l a b e l " , O B J _ T E X T , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ R S " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t M o v e ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ l a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ R S " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t S e t T e x t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ l a b e l " , D o u b l e T o S t r i n g ( ( i n t ( M o u s e P r i c e / p o i n t ) * p o i n t ) , D i g i t s ) , 1 0 , " C o u r i e r N e w " , L i n e R e s i s t c o l o r S e c o n d ) ;
}
e l s e
{
H L i n e C r e a t e ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ R S " , 0 , ( i n t ( M o u s e P r i c e / p o i n t ) * p o i n t ) , L i n e S u p p o r t c o l o r S e c o n d , L i n e S t y l e S e c o n d , L i n e w i d t h S e c o n d , f a l s e , t r u e , f a l s e , 0 , T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) ) ;
O b j e c t C r e a t e ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ l a b e l " , O B J _ T E X T , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ R S " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t M o v e ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ l a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ R S " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t S e t T e x t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ l a b e l " , D o u b l e T o S t r i n g ( ( i n t ( M o u s e P r i c e / p o i n t ) * p o i n t ) , D i g i t s ) , 1 0 , " C o u r i e r N e w " , L i n e S u p p o r t c o l o r S e c o n d ) ;
}
P i p G a p = M a t h A b s ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) - ( i n t ( M o u s e P r i c e / p o i n t ) * p o i n t ) ) ;
P i p G a p V a l u e = P i p G a p * M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) * L o t S i z e ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ l a b e 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 ( ( i n t ( M o u s e P r i c e / p o i n t ) * p o i n t ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ l a b e l " , O B J P R O P _ T O O L T I P , D o u b l e T o S t r i n g ( ( i n t ( M o u s e P r i c e / p o i n t ) * p o i n t ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ R S " , O B J P R O P _ T O O L T I P , D o u b l e T o S t r i n g ( ( i n t ( M o u s e P r i c e / p o i n t ) * p o i n t ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e A B u t t o n A l e r t " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e A B u t t o n S h o w " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e Q B u t t o n A l e r t " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e Q B u t t o n S h o w " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e A B u t t o n S o u n d " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L i n e Q B u t t o n S o u n d " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
S a v e S u p p o r t R e s i s t a n c e T o F i l e ( ) ;
}
i f ( l p a r a m = = ( S t r i n g G e t C h a r ( " L " , 0 ) ) )
{
F i l e T o L i n e ( ) ;
}
i f ( l p a r a m = = ( S t r i n g G e t C h a r ( D e l e t e L a s t L i n e , 0 ) ) )
{
b o o l l a b e l e r a s e = f a l s e ;
b o o l l i n e e r a s e = f a l s e ;
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ K c S R _ " + S y m b o l ( ) ) > - 1 )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ l a b e l " ) > - 1 & & ! l a b e l e r a s e )
{
O b j e c t D e l e t e ( 0 , O b j e c t N a m e ( i ) ) ;
l a b e l e r a s e = t r u e ;
}
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ R S " ) > - 1 & & ! l i n e e r a s e )
{
O b j e c t D e l e t e ( 0 , O b j e c t N a m e ( i ) ) ;
S a v e S u p p o r t R e s i s t a n c e T o F i l e ( ) ;
l i n e e r a s e = t r u e ;
}
}
}
}
i f ( l p a r a m = = ( S t r i n g G e t C h a r ( B u y L i n e , 0 ) ) )
{
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) > - 1 )
{
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L a b e l " ) ;
}
/ / B u y L i n e
i f ( M a t h M o d ( M o u s e P r i c e , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ) > 0 )
{
M o u s e P r i c e = M a t h R o u n d ( M o u s e P r i c e / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ) * M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ;
}
H L i n e C r e a t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , 0 , M o u s e P r i c e , C o l o r B u y S e l l , M M L i n e S t y l e , M M L i n e w i d t h , f a l s e , t r u e , f a l s e , 0 , T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) ) ;
O b j e c t C r e a t e ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L a b e l " , O B J _ T E X T , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
P i p G a p = ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L a b e l " , O B J P R O P _ P R I C E 1 ) - M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) ) ;
O b j e c t S e t T e x t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L a b e l " , D o u b l e T o S t r i n g ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s f r o m a c t u a l p r i c e " , 1 0 , " C o u r i e r N e w " , C o l o r B u y S e l l ) ;
/ / S L L i n e
S L p r i c e = M o u s e P r i c e - ( D e f a u l t S L * p o i n t ) ;
P i p G a p = ( S L p r i c e - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
H L i n e C r e a t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , 0 , S L p r i c e , C o l o r S L , M M L i n e S t y l e , M M L i n e w i d t h , f a l s e , t r u e , f a l s e , 0 , T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) ) ;
O b j e c t C r e a t e ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " , O B J _ T E X T , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t S e t T e x t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " , " S L a t " + D o u b l e T o S t r i n g ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s f r o m B u y / " + C u r r e n c y F o r m a t ( ( P i p V a l u e s * ( P i p G a p / p o i n t ) ) , 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 r r e n c y S y m b o l R i g h t ) , 1 0 , " C o u r i e r N e w " , C o l o r S L ) ;
/ / T a k e P r o f i t
/ / S L L i n e
T P p r i c e = M o u s e P r i c e + ( D e f a u l t T P * p o i n t ) ;
i f ( C r e a t e T P )
{
P i p G a p = ( T P p r i c e - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
H L i n e C r e a t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , 0 , T P p r i c e , C o l o r T P , M M L i n e S t y l e , M M L i n e w i d t h , f a l s e , t r u e , f a l s e , 0 , T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) ) ;
O b j e c t C r e a t e ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " , O B J _ T E X T , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t S e t T e x t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " , " T P a t " + D o u b l e T o S t r i n g ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s f r o m B u y / " + C u r r e n c y F o r m a t ( ( P i p V a l u e s * ( P i p G a p / p o i n t ) ) , 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 r r e n c y S y m b o l R i g h t ) , 1 0 , " C o u r i e r N e w " , C o l o r T P ) ;
}
i f ( C r e a t e T P )
{
S L P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
T P P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
r a t i o = " 1 : " + D o u b l e T o S t r i n g ( ( T P P i p s / S L P i p s ) , 1 ) ;
}
e l s e
{
r a t i o = " n o T P " ;
}
c a l c u l a t e b u y ( ) ;
}
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 L i n e , 0 ) ) )
{
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) > - 1 )
{
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " ) ;
O b j e c t D e l e t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L a b e l " ) ;
}
/ / S e l l L i n e
i f ( M a t h M o d ( M o u s e P r i c e , M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ) > 0 )
{
M o u s e P r i c e = M a t h R o u n d ( M o u s e P r i c e / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ) * M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ;
}
H L i n e C r e a t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , 0 , M o u s e P r i c e , C o l o r B u y S e l l , M M L i n e S t y l e , M M L i n e w i d t h , f a l s e , t r u e , f a l s e , 0 , T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) ) ;
O b j e c t C r e a t e ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L a b e l " , O B J _ T E X T , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
P i p G a p = ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L a b e l " , O B J P R O P _ P R I C E 1 ) - M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) ) ;
O b j e c t S e t T e x t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L a b e l " , D o u b l e T o S t r i n g ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s f r o m a c t u a l p r i c e " , 1 0 , " C o u r i e r N e w " , C o l o r B u y S e l l ) ;
/ / S L L i n e
S L p r i c e = M o u s e P r i c e + ( D e f a u l t S L * p o i n t ) ;
P i p G a p = ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) - S L p r i c e ) ;
H L i n e C r e a t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , 0 , S L p r i c e , C o l o r S L , M M L i n e S t y l e , M M L i n e w i d t h , f a l s e , t r u e , f a l s e , 0 , T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) ) ;
O b j e c t C r e a t e ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " , O B J _ T E X T , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t S e t T e x t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L a b e l " , " S L a t " + D o u b l e T o S t r i n g ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s f r o m S e l l / " + C u r r e n c y F o r m a t ( ( P i p V a l u e s * ( P i p G a p / p o i n t ) ) , 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 r r e n c y S y m b o l R i g h t ) , 1 0 , " C o u r i e r N e w " , C o l o r S L ) ;
/ / T a k e P r o f i t
/ / S L L i n e
T P p r i c e = M o u s e P r i c e - ( D e f a u l t T P * p o i n t ) ;
i f ( C r e a t e T P )
{
P i p G a p = ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) - T P p r i c e ) ;
H L i n e C r e a t e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , 0 , T P p r i c e , C o l o r T P , M M L i n e S t y l e , M M L i n e w i d t h , f a l s e , t r u e , f a l s e , 0 , T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) ) ;
O b j e c t C r e a t e ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " , O B J _ T E X T , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t S e t T e x t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L a b e l " , " T P a t " + D o u b l e T o S t r i n g ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s f r o m S e l l / " + C u r r e n c y F o r m a t ( ( P i p V a l u e s * ( P i p G a p / p o i n t ) ) , 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 r r e n c y S y m b o l R i g h t ) , 1 0 , " C o u r i e r N e w " , C o l o r T P ) ;
}
i f ( C r e a t e T P )
{
S L P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
T P P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
r a t i o = " 1 : " + D o u b l e T o S t r i n g ( ( T P P i p s / S L P i p s ) , 1 ) ;
}
e l s e
{
r a t i o = " n o T P " ;
}
c a l c u l a t e s e l l ( ) ;
}
i f ( l p a r a m = = ( S t r i n g G e t C h a r ( M a s t e r T o o l C o n f , 0 ) ) )
{
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ O p t i o n _ " ) > - 1 )
{
O b j e c t S e t I n t e g e r ( 0 , O b j e c t N a m e ( i ) , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
}
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C H A R T E V E N T _ O B J E C T _ E N D 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 )
{
i f ( s p a r a m = = " M a s I N _ O p t i o n _ E d i t _ G r i d _ P i p " )
{
s t r i n g i n v e r t a l e d i t ;
O b j e c t G e t S t r i n g ( 0 , " M a s I N _ O p t i o n _ E d i t _ G r i d _ P i p " , O B J P R O P _ T E X T , 0 , i n v e r t a l e d i t ) ;
P i p I n t e r v a l = i n t ( i n v e r t a l e d i t ) ;
G r i d C o l o r ( ) ;
}
i f ( s p a r a m = = " M a s I N _ O p t i o n _ E d i t _ G r i d _ V a r i a t i o n " )
{
s t r i n g c o l o r e d i t ;
O b j e c t G e t S t r i n g ( 0 , " M a s I N _ O p t i o n _ E d i t _ G r i d _ V a r i a t i o n " , O B J P R O P _ T E X T , 0 , c o l o r e d i t ) ;
C o l o r V a r i a t i o n = i n t ( c o l o r e d i t ) ;
G r i d C o l o r ( ) ;
}
i f ( s p a r a m = = " M a s I N _ O p t i o n _ E d i t _ D e f a u l t _ S L " )
{
s t r i n g S L v a l u e ;
O b j e c t G e t S t r i n g ( 0 , " M a s I N _ O p t i o n _ E d i t _ D e f a u l t _ S L " , O B J P R O P _ T E X T , 0 , S L v a l u e ) ;
D e f a u l t S L = d o u b l e ( S L v a l u e ) ;
}
i f ( s p a r a m = = " M a s I N _ O p t i o n _ E d i t _ D e f a u l t _ T P " )
{
s t r i n g T P v a l u e ;
O b j e c t G e t S t r i n g ( 0 , " M a s I N _ O p t i o n _ E d i t _ D e f a u l t _ T P " , O B J P R O P _ T E X T , 0 , T P v a l u e ) ;
D e f a u l t T P = d o u b l e ( T P v a l u e ) ;
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C H A R T E V E N T _ M O U S E _ M O V E |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i f ( i d = = C H A R T E V E N T _ M O U S E _ M O V E )
{
C h a r t X Y T o T i m e P r i c e ( 0 , i n t ( l p a r a m ) , i n t ( d p a r a m ) , w i n d o w , d t , p r i c e ) ;
M o u s e P r i c e = N o r m a l i z e D o u b l e ( p r i c e , D i g i t s ) ;
M o u s e D a t e = d t ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 2 " , O B J P R O P _ T E X T , " M o u s e : " + D o u b l e T o S t r ( M o u s e P r i c e , D i g i t s ) + " / " + T i m e T o S t r ( M o u s e D a t e , T I M E _ D A T E | T I M E _ S E C O N D S ) ) ;
p e r i o d m o u s e o v e r = P e r i o d ( ) ;
/ / M 1 b u t t o n
i f ( ( c h a r t h e i g h t - d p a r a m ) > 0 & & ( c h a r t h e i g h t - d p a r a m ) < 1 5 & & l p a r a m > O b j e c t G e t ( " M a s I N _ L _ M 1 B u t t o n " , O B J P R O P _ X D I S T A N C E ) & & l p a r a m < O b j e c t G e t ( " M a s I N _ L _ M 1 B u t t o n " , O B J P R O P _ X D I S T A N C E ) + 2 5 )
{
p e r i o d m o u s e o v e r = P E R I O D _ M 1 ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ T E X T , " R S I : " + D o u b l e T o S t r ( i R S I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 4 , P R I C E _ C L O S E , 0 ) , 1 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ T E X T , " S T O : " + D o u b l e T o S t r ( i S t o c h a s t i c ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 9 , 6 , 3 , M O D E _ S M A , 1 , M O D E _ S I G N A L , 0 ) , 0 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 5 " , O B J P R O P _ T E X T , " M A C D : " + D o u b l e T o S t r ( i M A C D ( N U L L , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , 2 6 , 9 , P R I C E _ C L O S E , M O D E _ M A I N , 0 ) , 6 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ T E X T , " C C I : " + D o u b l e T o S t r ( i C C I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ T Y P I C A L , 0 ) , 0 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 5 " , O B J P R O P _ T E X T , " M O M E : " + D o u b l e T o S t r ( i M o m e n t u m ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ C L O S E , 0 ) , 4 ) ) ;
I n d i c a t o r C o l o r ( ) ;
}
/ / M 5 b u t t o n
i f ( ( c h a r t h e i g h t - d p a r a m ) > 0 & & ( c h a r t h e i g h t - d p a r a m ) < 1 5 & & l p a r a m > O b j e c t G e t ( " M a s I N _ L _ M 5 B u t t o n " , O B J P R O P _ X D I S T A N C E ) & & l p a r a m < O b j e c t G e t ( " M a s I N _ L _ M 5 B u t t o n " , O B J P R O P _ X D I S T A N C E ) + 2 5 )
{
p e r i o d m o u s e o v e r = P E R I O D _ M 5 ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ T E X T , " R S I : " + D o u b l e T o S t r ( i R S I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 4 , P R I C E _ C L O S E , 0 ) , 1 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ T E X T , " S T O : " + D o u b l e T o S t r ( i S t o c h a s t i c ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 9 , 6 , 3 , M O D E _ S M A , 1 , M O D E _ S I G N A L , 0 ) , 0 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 5 " , O B J P R O P _ T E X T , " M A C D : " + D o u b l e T o S t r ( i M A C D ( N U L L , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , 2 6 , 9 , P R I C E _ C L O S E , M O D E _ M A I N , 0 ) , 6 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ T E X T , " C C I : " + D o u b l e T o S t r ( i C C I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ T Y P I C A L , 0 ) , 0 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 5 " , O B J P R O P _ T E X T , " M O M E : " + D o u b l e T o S t r ( i M o m e n t u m ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ C L O S E , 0 ) , 4 ) ) ;
I n d i c a t o r C o l o r ( ) ;
}
/ / M 1 5 b u t t o n
i f ( ( c h a r t h e i g h t - d p a r a m ) > 0 & & ( c h a r t h e i g h t - d p a r a m ) < 1 5 & & l p a r a m > O b j e c t G e t ( " M a s I N _ L _ M 1 5 B u t t o n " , O B J P R O P _ X D I S T A N C E ) & & l p a r a m < O b j e c t G e t ( " M a s I N _ L _ M 1 5 B u t t o n " , O B J P R O P _ X D I S T A N C E ) + 2 5 )
{
p e r i o d m o u s e o v e r = P E R I O D _ M 1 5 ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ T E X T , " R S I : " + D o u b l e T o S t r ( i R S I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 4 , P R I C E _ C L O S E , 0 ) , 1 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ T E X T , " S T O : " + D o u b l e T o S t r ( i S t o c h a s t i c ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 9 , 6 , 3 , M O D E _ S M A , 1 , M O D E _ S I G N A L , 0 ) , 0 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 5 " , O B J P R O P _ T E X T , " M A C D : " + D o u b l e T o S t r ( i M A C D ( N U L L , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , 2 6 , 9 , P R I C E _ C L O S E , M O D E _ M A I N , 0 ) , 6 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ T E X T , " C C I : " + D o u b l e T o S t r ( i C C I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ T Y P I C A L , 0 ) , 0 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 5 " , O B J P R O P _ T E X T , " M O M E : " + D o u b l e T o S t r ( i M o m e n t u m ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ C L O S E , 0 ) , 4 ) ) ;
I n d i c a t o r C o l o r ( ) ;
}
/ / M 3 0 b u t t o n
i f ( ( c h a r t h e i g h t - d p a r a m ) > 0 & & ( c h a r t h e i g h t - d p a r a m ) < 1 5 & & l p a r a m > O b j e c t G e t ( " M a s I N _ L _ M 3 0 B u t t o n " , O B J P R O P _ X D I S T A N C E ) & & l p a r a m < O b j e c t G e t ( " M a s I N _ L _ M 3 0 B u t t o n " , O B J P R O P _ X D I S T A N C E ) + 2 5 )
{
p e r i o d m o u s e o v e r = P E R I O D _ M 3 0 ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ T E X T , " R S I : " + D o u b l e T o S t r ( i R S I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 4 , P R I C E _ C L O S E , 0 ) , 1 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ T E X T , " S T O : " + D o u b l e T o S t r ( i S t o c h a s t i c ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 9 , 6 , 3 , M O D E _ S M A , 1 , M O D E _ S I G N A L , 0 ) , 0 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 5 " , O B J P R O P _ T E X T , " M A C D : " + D o u b l e T o S t r ( i M A C D ( N U L L , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , 2 6 , 9 , P R I C E _ C L O S E , M O D E _ M A I N , 0 ) , 6 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ T E X T , " C C I : " + D o u b l e T o S t r ( i C C I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ T Y P I C A L , 0 ) , 0 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 5 " , O B J P R O P _ T E X T , " M O M E : " + D o u b l e T o S t r ( i M o m e n t u m ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ C L O S E , 0 ) , 4 ) ) ;
I n d i c a t o r C o l o r ( ) ;
}
/ / H 1 b u t t o n
i f ( ( c h a r t h e i g h t - d p a r a m ) > 0 & & ( c h a r t h e i g h t - d p a r a m ) < 1 5 & & l p a r a m > O b j e c t G e t ( " M a s I N _ L _ H 1 B u t t o n " , O B J P R O P _ X D I S T A N C E ) & & l p a r a m < O b j e c t G e t ( " M a s I N _ L _ H 1 B u t t o n " , O B J P R O P _ X D I S T A N C E ) + 2 5 )
{
p e r i o d m o u s e o v e r = P E R I O D _ H 1 ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ T E X T , " R S I : " + D o u b l e T o S t r ( i R S I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 4 , P R I C E _ C L O S E , 0 ) , 1 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ T E X T , " S T O : " + D o u b l e T o S t r ( i S t o c h a s t i c ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 9 , 6 , 3 , M O D E _ S M A , 1 , M O D E _ S I G N A L , 0 ) , 0 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 5 " , O B J P R O P _ T E X T , " M A C D : " + D o u b l e T o S t r ( i M A C D ( N U L L , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , 2 6 , 9 , P R I C E _ C L O S E , M O D E _ M A I N , 0 ) , 6 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ T E X T , " C C I : " + D o u b l e T o S t r ( i C C I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ T Y P I C A L , 0 ) , 0 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 5 " , O B J P R O P _ T E X T , " M O M E : " + D o u b l e T o S t r ( i M o m e n t u m ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ C L O S E , 0 ) , 4 ) ) ;
I n d i c a t o r C o l o r ( ) ;
}
/ / H 4 b u t t o n
i f ( ( c h a r t h e i g h t - d p a r a m ) > 0 & & ( c h a r t h e i g h t - d p a r a m ) < 1 5 & & l p a r a m > O b j e c t G e t ( " M a s I N _ L _ H 4 B u t t o n " , O B J P R O P _ X D I S T A N C E ) & & l p a r a m < O b j e c t G e t ( " M a s I N _ L _ H 4 B u t t o n " , O B J P R O P _ X D I S T A N C E ) + 2 5 )
{
p e r i o d m o u s e o v e r = P E R I O D _ H 4 ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ T E X T , " R S I : " + D o u b l e T o S t r ( i R S I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 4 , P R I C E _ C L O S E , 0 ) , 1 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ T E X T , " S T O : " + D o u b l e T o S t r ( i S t o c h a s t i c ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 9 , 6 , 3 , M O D E _ S M A , 1 , M O D E _ S I G N A L , 0 ) , 0 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 5 " , O B J P R O P _ T E X T , " M A C D : " + D o u b l e T o S t r ( i M A C D ( N U L L , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , 2 6 , 9 , P R I C E _ C L O S E , M O D E _ M A I N , 0 ) , 6 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ T E X T , " C C I : " + D o u b l e T o S t r ( i C C I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ T Y P I C A L , 0 ) , 0 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 5 " , O B J P R O P _ T E X T , " M O M E : " + D o u b l e T o S t r ( i M o m e n t u m ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ C L O S E , 0 ) , 4 ) ) ;
I n d i c a t o r C o l o r ( ) ;
}
/ / D 1 b u t t o n
i f ( ( c h a r t h e i g h t - d p a r a m ) > 0 & & ( c h a r t h e i g h t - d p a r a m ) < 1 5 & & l p a r a m > O b j e c t G e t ( " M a s I N _ L _ D 1 B u t t o n " , O B J P R O P _ X D I S T A N C E ) & & l p a r a m < O b j e c t G e t ( " M a s I N _ L _ D 1 B u t t o n " , O B J P R O P _ X D I S T A N C E ) + 2 5 )
{
p e r i o d m o u s e o v e r = P E R I O D _ D 1 ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ T E X T , " R S I : " + D o u b l e T o S t r ( i R S I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 4 , P R I C E _ C L O S E , 0 ) , 1 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ T E X T , " S T O : " + D o u b l e T o S t r ( i S t o c h a s t i c ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 9 , 6 , 3 , M O D E _ S M A , 1 , M O D E _ S I G N A L , 0 ) , 0 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 5 " , O B J P R O P _ T E X T , " M A C D : " + D o u b l e T o S t r ( i M A C D ( N U L L , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , 2 6 , 9 , P R I C E _ C L O S E , M O D E _ M A I N , 0 ) , 6 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ T E X T , " C C I : " + D o u b l e T o S t r ( i C C I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ T Y P I C A L , 0 ) , 0 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 5 " , O B J P R O P _ T E X T , " M O M E : " + D o u b l e T o S t r ( i M o m e n t u m ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ C L O S E , 0 ) , 4 ) ) ;
I n d i c a t o r C o l o r ( ) ;
}
/ / W 1 b u t t o n
i f ( ( c h a r t h e i g h t - d p a r a m ) > 0 & & ( c h a r t h e i g h t - d p a r a m ) < 1 5 & & l p a r a m > O b j e c t G e t ( " M a s I N _ L _ W 1 B u t t o n " , O B J P R O P _ X D I S T A N C E ) & & l p a r a m < O b j e c t G e t ( " M a s I N _ L _ W 1 B u t t o n " , O B J P R O P _ X D I S T A N C E ) + 2 5 )
{
p e r i o d m o u s e o v e r = P E R I O D _ W 1 ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ T E X T , " R S I : " + D o u b l e T o S t r ( i R S I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 4 , P R I C E _ C L O S E , 0 ) , 1 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ T E X T , " S T O : " + D o u b l e T o S t r ( i S t o c h a s t i c ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 9 , 6 , 3 , M O D E _ S M A , 1 , M O D E _ S I G N A L , 0 ) , 0 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 5 " , O B J P R O P _ T E X T , " M A C D : " + D o u b l e T o S t r ( i M A C D ( N U L L , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , 2 6 , 9 , P R I C E _ C L O S E , M O D E _ M A I N , 0 ) , 6 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ T E X T , " C C I : " + D o u b l e T o S t r ( i C C I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ T Y P I C A L , 0 ) , 0 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 5 " , O B J P R O P _ T E X T , " M O M E : " + D o u b l e T o S t r ( i M o m e n t u m ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ C L O S E , 0 ) , 4 ) ) ;
I n d i c a t o r C o l o r ( ) ;
}
/ / M N b u t t o n
i f ( ( c h a r t h e i g h t - d p a r a m ) > 0 & & ( c h a r t h e i g h t - d p a r a m ) < 1 5 & & l p a r a m > O b j e c t G e t ( " M a s I N _ L _ M N B u t t o n " , O B J P R O P _ X D I S T A N C E ) & & l p a r a m < O b j e c t G e t ( " M a s I N _ L _ M N B u t t o n " , O B J P R O P _ X D I S T A N C E ) + 2 5 )
{
p e r i o d m o u s e o v e r = P E R I O D _ M N 1 ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ T E X T , " R S I : " + D o u b l e T o S t r ( i R S I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 4 , P R I C E _ C L O S E , 0 ) , 1 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ T E X T , " S T O : " + D o u b l e T o S t r ( i S t o c h a s t i c ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 9 , 6 , 3 , M O D E _ S M A , 1 , M O D E _ S I G N A L , 0 ) , 0 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 5 " , O B J P R O P _ T E X T , " M A C D : " + D o u b l e T o S t r ( i M A C D ( N U L L , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , 2 6 , 9 , P R I C E _ C L O S E , M O D E _ M A I N , 0 ) , 6 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ T E X T , " C C I : " + D o u b l e T o S t r ( i C C I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ T Y P I C A L , 0 ) , 0 ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 5 " , O B J P R O P _ T E X T , " M O M E : " + D o u b l e T o S t r ( i M o m e n t u m ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ C L O S E , 0 ) , 4 ) ) ;
I n d i c a t o r C o l o r ( ) ;
}
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | T i m e r f u n c t i o n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d O n T i m e r ( )
{
/ / c o u n t d o w n
i n t t i m e n o w , s e c o n d , m i n u t e , h o u r ;
t i m e n o w = ( i n t ) T i m e [ 0 ] + P e r i o d S e c o n d s ( P e r i o d ( ) ) - ( i n t ) T i m e C u r r e n t ( ) ;
s e c o n d = t i m e n o w % 6 0 ;
m i n u t e = ( t i m e n o w - s e c o n d ) ;
i f ( m i n u t e ! = 0 )
{
m i n u t e = m i n u t e / 6 0 ;
}
m i n u t e = m i n u t e - ( m i n u t e - m i n u t e % 6 0 ) ;
h o u r = ( t i m e n o w - s e c o n d - m i n u t e * 6 0 ) ;
i f ( h o u r ! = 0 )
{
h o u r = h o u r / 6 0 ;
}
i f ( h o u r ! = 0 )
{
h o u r = h o u r / 6 0 ;
}
C o u n t D o w n = I n t e g e r T o S t r i n g ( h o u r , 2 , ' 0 ' ) + " : " + I n t e g e r T o S t r i n g ( m i n u t e , 2 , ' 0 ' ) + " : " + I n t e g e r T o S t r i n g ( s e c o n d , 2 , ' 0 ' ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 2 C 3 " , O B J P R O P _ T E X T , " N e x t C a n d l e : " + C o u n t D o w n ) ;
/ / T i m e r + = 1 ;
/ / i f ( T i m e r > 5 0 0 0 )
/ / {
/ / T i m e r = 0 ;
/ / }
i n t t o t a l = O r d e r s T o t a l ( ) ;
f o r ( i n t p o s = 0 ; p o s < t o t a l ; p o s + + )
{
i f ( O r d e r S e l e c t ( p o s , S E L E C T _ B Y _ P O S ) = = f a l s e ) c o n t i n u e ;
i f ( O r d e r S y m b o l ( ) = = S y m b o l ( ) )
/ / S L a n d T P a l e r t
i f ( S L T P a l e r t )
{
i f ( O r d e r T y p e ( ) = = O P _ B U Y )
{
i f ( M a t h A b s ( O r d e r T a k e P r o f i t ( ) - M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) ) / p o i n t < ( S L T P a l e r t P i p s ) )
{
/ / i f ( T i m e r > 3 0 )
/ / {
/ / P l a y S o u n d ( " " ) ;
P l a y S o u n d ( " s l t p a l a r m . w a v " ) ;
/ / T i m e r = 1 ;
/ / }
}
i f ( M a t h A b s ( O r d e r S t o p L o s s ( ) - M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) ) / p o i n t < ( S L T P a l e r t P i p s ) )
{
/ / i f ( T i m e r > 3 0 )
/ / {
/ / P l a y S o u n d ( " " ) ;
P l a y S o u n d ( " s l t p a l a r m . w a v " ) ;
/ / T i m e r = 1 ;
/ / }
}
}
i f ( O r d e r T y p e ( ) = = O P _ S E L L )
{
i f ( M a t h A b s ( O r d e r T a k e P r o f i t ( ) - M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) ) / p o i n t < ( S L T P a l e r t P i p s ) )
{
/ / i f ( T i m e r > 3 0 )
/ / {
/ / P l a y S o u n d ( " " ) ;
P l a y S o u n d ( " s l t p a l a r m . w a v " ) ;
/ / T i m e r = 1 ;
/ / }
}
i f ( M a t h A b s ( O r d e r S t o p L o s s ( ) - M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) ) / p o i n t < ( S L T P a l e r t P i p s ) )
{
/ / i f ( T i m e r > 3 0 )
/ / {
/ / P l a y S o u n d ( " " ) ;
P l a y S o u n d ( " s l t p a l a r m . w a v " ) ;
/ / T i m e r = 1 ;
/ / }
}
}
}
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C u r r e n c y F o r m a t |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g C u r r e n c y F o r m a t ( c o n s t d o u b l e N u m b e r = 0 ,
c o n s t s t r i n g I s o C u r r e n c y = " E U R " ,
c o n s t b o o l C u r r e n c y P o s i t i o n = t r u e )
{
s t r i n g C u r F o r m a t ;
i f ( I s o C u r r e n c y = = " A L L " ) { C u r F o r m a t = " \ x 4 c " + " \ x 6 5 " + " \ x 6 b " ; }
i f ( I s o C u r r e n c y = = " A F N " ) { C u r F o r m a t = " \ x 6 0 b " ; C u r F o r m a t = " A F N " ; }
i f ( I s o C u r r e n c y = = " A R S " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " A W G " ) { C u r F o r m a t = " \ x 1 9 2 " ; }
i f ( I s o C u r r e n c y = = " A U D " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " A Z N " ) { C u r F o r m a t = " \ x 4 3 c " + " \ x 4 3 0 " + " \ x 4 3 d " ; C u r F o r m a t = " A Z N " ; }
i f ( I s o C u r r e n c y = = " B S D " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " B B D " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " B Y R " ) { C u r F o r m a t = " \ x 7 0 " + " \ x 2 e " ; }
i f ( I s o C u r r e n c y = = " B Z D " ) { C u r F o r m a t = " \ x 4 2 " + " \ x 5 a " + " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " B M D " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " B O B " ) { C u r F o r m a t = " \ x 2 4 " + " \ x 6 2 " ; }
i f ( I s o C u r r e n c y = = " B A M " ) { C u r F o r m a t = " \ x 4 b " + " \ x 4 d " ; }
i f ( I s o C u r r e n c y = = " B W P " ) { C u r F o r m a t = " \ x 5 0 " ; }
i f ( I s o C u r r e n c y = = " B G N " ) { C u r F o r m a t = " \ x 4 3 b " + " \ x 4 3 2 " ; C u r F o r m a t = " B G N " ; }
i f ( I s o C u r r e n c y = = " B R L " ) { C u r F o r m a t = " \ x 5 2 " + " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " B N D " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " K H R " ) { C u r F o r m a t = " \ x 1 7 d b " ; C u r F o r m a t = " K H R " ; }
i f ( I s o C u r r e n c y = = " C A D " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " K Y D " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " C L P " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " C N Y " ) { C u r F o r m a t = " \ x a 5 " ; }
i f ( I s o C u r r e n c y = = " C O P " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " C R C " ) { C u r F o r m a t = " \ x 2 0 a 1 " ; }
i f ( I s o C u r r e n c y = = " H R K " ) { C u r F o r m a t = " \ x 6 b " + " \ x 6 e " ; }
i f ( I s o C u r r e n c y = = " C U P " ) { C u r F o r m a t = " \ x 2 0 b 1 " ; C u r F o r m a t = " C U P " ; }
i f ( I s o C u r r e n c y = = " C Z K " ) { C u r F o r m a t = " \ x 4 b " + " \ x 1 0 d " ; }
i f ( I s o C u r r e n c y = = " D K K " ) { C u r F o r m a t = " \ x 6 b " + " \ x 7 2 " ; }
i f ( I s o C u r r e n c y = = " D O P " ) { C u r F o r m a t = " \ x 5 2 " + " \ x 4 4 " + " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " X C D " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " E G P " ) { C u r F o r m a t = " \ x a 3 " ; }
i f ( I s o C u r r e n c y = = " S V C " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " E E K " ) { C u r F o r m a t = " \ x 6 b " + " \ x 7 2 " ; }
i f ( I s o C u r r e n c y = = " E U R " ) { C u r F o r m a t = " \ x 2 0 a c " ; }
i f ( I s o C u r r e n c y = = " F K P " ) { C u r F o r m a t = " \ x a 3 " ; }
i f ( I s o C u r r e n c y = = " F J D " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " G H C " ) { C u r F o r m a t = " \ x a 2 " ; }
i f ( I s o C u r r e n c y = = " G I P " ) { C u r F o r m a t = " \ x a 3 " ; }
i f ( I s o C u r r e n c y = = " G T Q " ) { C u r F o r m a t = " \ x 5 1 " ; }
i f ( I s o C u r r e n c y = = " G G P " ) { C u r F o r m a t = " \ x a 3 " ; }
i f ( I s o C u r r e n c y = = " G Y D " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " H N L " ) { C u r F o r m a t = " \ x 4 c " ; }
i f ( I s o C u r r e n c y = = " H K D " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " H U F " ) { C u r F o r m a t = " \ x 4 6 " + " \ x 7 4 " ; }
i f ( I s o C u r r e n c y = = " I S K " ) { C u r F o r m a t = " \ x 6 b " + " \ x 7 2 " ; }
i f ( I s o C u r r e n c y = = " I N R " ) { C u r F o r m a t = " \ x 2 0 B 9 " ; C u r F o r m a t = " I N R " ; }
i f ( I s o C u r r e n c y = = " I D R " ) { C u r F o r m a t = " \ x 5 2 " + " \ x 7 0 " ; }
i f ( I s o C u r r e n c y = = " I R R " ) { C u r F o r m a t = " \ x f d f c " ; }
i f ( I s o C u r r e n c y = = " I M P " ) { C u r F o r m a t = " \ x a 3 " ; }
i f ( I s o C u r r e n c y = = " I L S " ) { C u r F o r m a t = " \ x 2 0 a a " ; C u r F o r m a t = " I L S " ; }
i f ( I s o C u r r e n c y = = " J M D " ) { C u r F o r m a t = " \ x 4 a " + " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " J P Y " ) { C u r F o r m a t = " \ x a 5 " ; }
i f ( I s o C u r r e n c y = = " J E P " ) { C u r F o r m a t = " \ x a 3 " ; }
i f ( I s o C u r r e n c y = = " K Z T " ) { C u r F o r m a t = " \ x 4 3 b " + " \ x 4 3 2 " ; C u r F o r m a t = " K Z T " ; }
i f ( I s o C u r r e n c y = = " K P W " ) { C u r F o r m a t = " \ x 2 0 a 9 " ; C u r F o r m a t = " K P W " ; }
i f ( I s o C u r r e n c y = = " K R W " ) { C u r F o r m a t = " \ x 2 0 a 9 " ; C u r F o r m a t = " K R W " ; }
i f ( I s o C u r r e n c y = = " K G S " ) { C u r F o r m a t = " \ x 4 3 b " + " \ x 4 3 2 " ; C u r F o r m a t = " K G S " ; }
i f ( I s o C u r r e n c y = = " L A K " ) { C u r F o r m a t = " \ x 2 0 a d " ; C u r F o r m a t = " L A K " ; }
i f ( I s o C u r r e n c y = = " L V L " ) { C u r F o r m a t = " \ x 4 c " + " \ x 7 3 " ; }
i f ( I s o C u r r e n c y = = " L B P " ) { C u r F o r m a t = " \ x a 3 " ; }
i f ( I s o C u r r e n c y = = " L R D " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " L T L " ) { C u r F o r m a t = " \ x 4 c " + " \ x 7 4 " ; }
i f ( I s o C u r r e n c y = = " M K D " ) { C u r F o r m a t = " \ x 4 3 4 " + " \ x 4 3 5 " + " \ x 4 3 d " ; C u r F o r m a t = " M K D " ; }
i f ( I s o C u r r e n c y = = " M Y R " ) { C u r F o r m a t = " \ x 5 2 " + " \ x 4 d " ; }
i f ( I s o C u r r e n c y = = " M U R " ) { C u r F o r m a t = " \ x 2 0 a 8 " ; }
i f ( I s o C u r r e n c y = = " M X N " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " M N T " ) { C u r F o r m a t = " \ x 2 0 a e " ; C u r F o r m a t = " M N T " ; }
i f ( I s o C u r r e n c y = = " M Z N " ) { C u r F o r m a t = " \ x 4 d " + " \ x 5 4 " ; }
i f ( I s o C u r r e n c y = = " N A D " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " N P R " ) { C u r F o r m a t = " \ x 2 0 a 8 " ; C u r F o r m a t = " N P R " ; }
i f ( I s o C u r r e n c y = = " A N G " ) { C u r F o r m a t = " \ x 1 9 2 " ; }
i f ( I s o C u r r e n c y = = " N Z D " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " N I O " ) { C u r F o r m a t = " \ x 4 3 " + " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " N G N " ) { C u r F o r m a t = " \ x 2 0 a 6 " ; C u r F o r m a t = " N G N " ; }
i f ( I s o C u r r e n c y = = " N O K " ) { C u r F o r m a t = " \ x 6 b " + " \ x 7 2 " ; }
i f ( I s o C u r r e n c y = = " O M R " ) { C u r F o r m a t = " \ x f d f c " ; C u r F o r m a t = " O M R " ; }
i f ( I s o C u r r e n c y = = " P K R " ) { C u r F o r m a t = " \ x 2 0 a 8 " ; C u r F o r m a t = " P K R " ; }
i f ( I s o C u r r e n c y = = " P A B " ) { C u r F o r m a t = " \ x 4 2 " + " \ x 2 f " + " \ x 2 e " ; }
i f ( I s o C u r r e n c y = = " P Y G " ) { C u r F o r m a t = " \ x 4 7 " + " \ x 7 3 " ; }
i f ( I s o C u r r e n c y = = " P E N " ) { C u r F o r m a t = " \ x 5 3 " + " \ x 2 f " + " \ x 2 e " ; }
i f ( I s o C u r r e n c y = = " P H P " ) { C u r F o r m a t = " \ x 2 0 b 1 " ; C u r F o r m a t = " P H P " ; }
i f ( I s o C u r r e n c y = = " P L N " ) { C u r F o r m a t = " \ x 7 a " + " \ x 1 4 2 " ; }
i f ( I s o C u r r e n c y = = " Q A R " ) { C u r F o r m a t = " \ x f d f c " ; C u r F o r m a t = " Q A R " ; }
i f ( I s o C u r r e n c y = = " R O N " ) { C u r F o r m a t = " \ x 6 c " + " \ x 6 5 " + " \ x 6 9 " ; }
i f ( I s o C u r r e n c y = = " R U B " ) { C u r F o r m a t = " \ x 4 4 0 " + " \ x 4 4 3 " + " \ x 4 3 1 " ; C u r F o r m a t = " R U B " ; }
i f ( I s o C u r r e n c y = = " S H P " ) { C u r F o r m a t = " \ x a 3 " ; }
i f ( I s o C u r r e n c y = = " S A R " ) { C u r F o r m a t = " \ x f d f c " ; C u r F o r m a t = " S A R " ; }
i f ( I s o C u r r e n c y = = " R S D " ) { C u r F o r m a t = " \ x 4 1 4 " + " \ x 4 3 8 " + " \ x 4 3 d " + " \ x 2 e " ; C u r F o r m a t = " R S D " ; }
i f ( I s o C u r r e n c y = = " S C R " ) { C u r F o r m a t = " \ x 2 0 a 8 " ; C u r F o r m a t = " S C R " ; }
i f ( I s o C u r r e n c y = = " S G D " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " S B D " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " S O S " ) { C u r F o r m a t = " \ x 5 3 " ; }
i f ( I s o C u r r e n c y = = " Z A R " ) { C u r F o r m a t = " \ x 5 2 " ; }
i f ( I s o C u r r e n c y = = " L K R " ) { C u r F o r m a t = " \ x 2 0 a 8 " ; C u r F o r m a t = " L K R " ; }
i f ( I s o C u r r e n c y = = " S E K " ) { C u r F o r m a t = " \ x 6 b " + " \ x 7 2 " ; }
i f ( I s o C u r r e n c y = = " C H F " ) { C u r F o r m a t = " \ x 4 3 " + " \ x 4 8 " + " \ x 4 6 " ; }
i f ( I s o C u r r e n c y = = " S R D " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " S Y P " ) { C u r F o r m a t = " \ x a 3 " ; }
i f ( I s o C u r r e n c y = = " T W D " ) { C u r F o r m a t = " \ x 4 e " + " \ x 5 4 " + " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " T H B " ) { C u r F o r m a t = " \ x e 3 f " ; C u r F o r m a t = " T H B " ; }
i f ( I s o C u r r e n c y = = " T T D " ) { C u r F o r m a t = " \ x 5 4 " + " \ x 5 4 " + " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " T R L " ) { C u r F o r m a t = " \ x 2 0 a 4 " ; }
i f ( I s o C u r r e n c y = = " T V D " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " U A H " ) { C u r F o r m a t = " \ x 2 0 b 4 " ; C u r F o r m a t = " U A H " ; }
i f ( I s o C u r r e n c y = = " G B P " ) { C u r F o r m a t = " \ x a 3 " ; }
i f ( I s o C u r r e n c y = = " U S D " ) { C u r F o r m a t = " \ x 2 4 " ; }
i f ( I s o C u r r e n c y = = " U Y U " ) { C u r F o r m a t = " \ x 2 4 " + " \ x 5 5 " ; }
i f ( I s o C u r r e n c y = = " U Z S " ) { C u r F o r m a t = " \ x 4 3 b " + " \ x 4 3 2 " ; C u r F o r m a t = " U Z S " ; }
i f ( I s o C u r r e n c y = = " V E F " ) { C u r F o r m a t = " \ x 4 2 " + " \ x 7 3 " ; }
i f ( I s o C u r r e n c y = = " V N D " ) { C u r F o r m a t = " \ x 2 0 a b " ; C u r F o r m a t = " V N D " ; }
i f ( I s o C u r r e n c y = = " Y E R " ) { C u r F o r m a t = " \ x f d f c " ; C u r F o r m a t = " Y E R " ; }
i f ( I s o C u r r e n c y = = " Z W D " ) { C u r F o r m a t = " \ x 5 a " + " \ x 2 4 " ; }
i f ( C u r r e n c y P o s i t i o n )
{
C u r F o r m a t = D o u b l e T o S t r ( N u m b e r , 2 ) + C u r F o r m a t ;
}
e l s e
{
C u r F o r m a t = C u r F o r m a t + D o u b l e T o S t r ( N u m b e r , 2 ) ;
}
r e t u r n C u r F o r m a t ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | B u t t o n C r e a t e |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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 x = 0 , / / X c o o r d i n a t e
c o n s t i n t y 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 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
{
/ / - - - 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 r e a t e t h e b u t t o n
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 = " , G e t L a s t E r r o r ( ) ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - - s e t b u t t o n c o o r d i n a t e 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 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 y ) ;
/ / - - - s e t b u t t o n 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 _ 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 ) ;
/ / - - - s e t t h e c h a r t ' s c o r n e r , r e l a t i v e t o w h i c h p o i n t c o o r d i n a t e s a r e d e f i n e d
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 ) ;
/ / - - - s e t t h e 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 _ T E X T , t e x t ) ;
/ / - - - s e t t e x t f o n 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 ) ;
/ / - - - s e t 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 _ F O N T S I Z E , f o n t _ s i z e ) ;
/ / - - - s e t t e x t c o l 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 ) ;
/ / - - - s e t b a c k g r o u n d c o l 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 _ B G C O L O R , b a c k _ c l r ) ;
/ / - - - s e t b o r d e r c o l 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 _ B O R D E R _ C O L O R , b o r d e r _ c l r ) ;
/ / - - - d i s p l a y i n t h e f o r e g r o u n d ( f a l s e ) o r b a c k g r o u n d ( t r u 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 _ B A C K , b a c k ) ;
/ / - - - s e t b u t t o n 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 T A T E , s t a t e ) ;
/ / - - - e n a b l e ( t r u e ) o r d i s a b l e ( f a l s e ) t h e m o d e o f m o v i n g t h e b u t t o n b y m o u 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 _ 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 ) ;
/ / - - - h i d e ( t r u e ) o r d i s p l a y ( f a l s e ) g r a p h i c a l o b j e c t n a m e i n t h e o b j e c t l i s 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 _ H I D D E N , h i d d e n ) ;
/ / - - - s e t t h e p r i o r i t y f o r r e c e i v i n g t h e e v e n t o f a m o u s e c l i c k i n t h e c h a r 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 _ Z O R D E R , z _ o r d e r ) ;
/ / - - - s u c c e s s f u l e x e c u t i o n
}
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | E d i t C r e a t e |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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
{
/ / - - - 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 r e a t e e d i t f i e l d
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 = " , G e t 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 c o o r d i n a t e 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 ) ;
/ / - - - s e t o b j e c 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 _ 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 ) ;
/ / - - - s e t t h e 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 _ T E X T , t e x t ) ;
/ / - - - s e t t e x t f o n 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 ) ;
/ / - - - s e t 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 _ F O N T S I Z E , f o n t _ s i z e ) ;
/ / - - - s e t t h e t y p e o f t e x t a l i g n m e n t i n t h e o b j e c 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 _ A L I G N , a l i g n ) ;
/ / - - - e n a b l e ( t r u e ) o r c a n c e l ( f a l s e ) r e a d - o n l y m o d 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 _ R E A D O N L Y , r e a d _ o n l y ) ;
/ / - - - s e t t h e c h a r t ' s c o r n e r , r e l a t i v e t o w h i c h o b j e c t c o o r d i n a t e s a r e d e f i n e d
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 ) ;
/ / - - - s e t t e x t c o l 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 ) ;
/ / - - - s e t b a c k g r o u n d c o l 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 _ B G C O L O R , b a c k _ c l r ) ;
/ / - - - s e t b o r d e r c o l 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 _ B O R D E R _ C O L O R , b o r d e r _ c l r ) ;
/ / - - - d i s p l a y i n t h e f o r e g r o u n d ( f a l s e ) o r b a c k g r o u n d ( t r u 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 _ B A C K , b a c k ) ;
/ / - - - e n a b l e ( t r u e ) o r d i s a b l e ( f a l s e ) t h e m o d e o f m o v i n g t h e l a b e l b y m o u 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 _ 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 ) ;
/ / - - - h i d e ( t r u e ) o r d i s p l a y ( f a l s e ) g r a p h i c a l o b j e c t n a m e i n t h e o b j e c t l i s 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 _ H I D D E N , h i d d e n ) ;
/ / - - - s e t t h e p r i o r i t y f o r r e c e i v i n g t h e e v e n t o f a m o u s e c l i c k i n t h e c h a r 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 _ Z O R D E R , z _ o r d e r ) ;
/ / - - - s u c c e s s f u l e x e c u t i o n
}
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | O n D e i n i t |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
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 )
{
G l o b a l V a r i a b l e S e t ( " M a s I N _ L o t _ " + s t r i n g ( i n t P a r e n t ) , L o t S i z e ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ R i s k _ " + s t r i n g ( i n t P a r e n t ) , R i s k ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ C l i c k P r i c e _ " + s t r i n g ( i n t P a r e n t ) , C l i c k P r i c e ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ s h o w l i n e A " + s t r i n g ( i n t P a r e n t ) , s h o w l i n e A ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ A l a r m C r o s s W h i t h A l e r t " + s t r i n g ( i n t P a r e n t ) , A l a r m C r o s s W h i t h A l e r t ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ s h o w l i n e Q " + s t r i n g ( i n t P a r e n t ) , s h o w l i n e Q ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ A l a r m C r o s s W h i t h A l e r t S e c o n d " + s t r i n g ( i n t P a r e n t ) , A l a r m C r o s s W h i t h A l e r t S e c o n d ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ s o u n d n a m e " + s t r i n g ( i n t P a r e n t ) , s o u n d n a m e ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ s o u n d n a m e S e c o n d " + s t r i n g ( i n t P a r e n t ) , s o u n d n a m e S e c o n d ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ I n d i c a t o r V a l u e " + s t r i n g ( i n t P a r e n t ) , I n d i c a t o r V a l u e ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ S h o w D a i l y O p e n " + s t r i n g ( i n t P a r e n t ) , S h o w D a i l y O p e n ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ S h o w G r i d " + s t r i n g ( i n t P a r e n t ) , S h o w G r i d ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ S h o w P i v o t " + s t r i n g ( i n t P a r e n t ) , S h o w P i v o t ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ S h o w P i v o t F i b o " + s t r i n g ( i n t P a r e n t ) , S h o w P i v o t F i b o ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ " + S y m b o l ( ) + " _ D e f a u l t S L " + s t r i n g ( i n t P a r e n t ) , D e f a u l t S L ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ " + S y m b o l ( ) + " _ D e f a u l t T P " + s t r i n g ( i n t P a r e n t ) , D e f a u l t T P ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ " + S y m b o l ( ) + " _ S L T P a l e r t " + s t r i n g ( i n t P a r e n t ) , S L T P a l e r t ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ " + S y m b o l ( ) + " _ P i p I n t e r v a l " + s t r i n g ( i n t P a r e n t ) , P i p I n t e r v a l ) ;
G l o b a l V a r i a b l e S e t ( " M a s I N _ C o l o r V a r i a t i o n " + s t r i n g ( i n t P a r e n t ) , C o l o r V a r i a t i o n ) ;
f o r ( i n t i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N " ) > - 1 )
{
i f ( ! ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ K c S R " ) > - 1 ) )
O b j e c t D e l e t e ( 0 , O b j e c t N a m e ( i ) ) ;
}
}
r e t u r n ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | H L i n e C r e a t e |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l H L i n e 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 = " H L i n e _ m a x " , / / l i n e 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
d o u b l e h p r i c e = 0 , / / l i n e p r i c e
c o n s t c o l o r c l r = c l r R e d , / / l i n e c o l o r
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 , / / l i n e s t y l e
c o n s t i n t w i d t h = 1 , / / l i n e 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 = t r u 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 = " " )
{
O b j e c t D e l e t e ( c h a r t _ I D , n a m 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 ( ) ;
/ / - - - c r e a t e a h o r i z o n t a l l i n e
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 _ H L I N E , s u b _ w i n d o w , 0 , h p r i c e ) )
{
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 h o r i z o n t a l l i n e ! E r r o r c o d e = " , G e t L a s t E r r o r ( ) ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - - s e t l i n e c o l 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 ) ;
/ / - - - s e t l i n e d i s p l a y 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 _ S T Y L E , s t y l e ) ;
/ / - - - s e t 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 _ W I D T H , w i d t h ) ;
/ / - - - d i s p l a y i n t h e f o r e g r o u n d ( f a l s e ) o r b a c k g r o u n d ( t r u 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 _ B A C K , b a c k ) ;
/ / - - - e n a b l e ( t r u e ) o r d i s a b l e ( f a l s e ) t h e m o d e o f m o v i n g t h e l i n e b y m o u s e
/ / - - - w h e n c r e a t i n g a g r a p h i c a l o b j e c t u s i n g O b j e c t C r e a t e f u n c t i o n , t h e o b j e c t c a n n o t b e
/ / - - - h i g h l i g h t e d a n d m o v e d b y d e f a u l t . I n s i d e t h i s m e t h o d , s e l e c t i o n p a r a m e t e r
/ / - - - i s t r u e b y d e f a u l t m a k i n g i t p o s s i b l e t o h i g h l i g h t a n d m o v e t h e o b j e c 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 _ 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 ) ;
/ / - - - h i d e ( t r u e ) o r d i s p l a y ( f a l s e ) g r a p h i c a l o b j e c t n a m e i n t h e o b j e c t l i s 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 _ H I D D E N , h i d d e n ) ;
/ / - - - s e t t h e p r i o r i t y f o r r e c e i v i n g t h e e v e n t o f a m o u s e c l i c k i n t h e c h a r 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 _ 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 ) ;
/ / - - - s u c c e s s f u l e x e c u t i o n
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | H L i n e M o v e |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l H L i n e M o v 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 = " H L i n e " , / / l i n e n a m e
d o u b l e p r i c e l = 0 ) / / l i n e p r i c e
{
/ / - - - i f t h e l i n e p r i c e i s n o t s e t , m o v e i t t o t h e c u r r e n t B i d p r i c e l e v e l
i f ( ! p r i c e l )
p r i c e l = 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 ) ;
/ / - - - 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 ( ) ;
/ / - - - m o v e a h o r i z o n t a l l i n e
i f ( ! O b j e c t M o v e ( c h a r t _ I D , n a m e , 0 , 0 , p r i c e l ) )
{
P r i n t ( _ _ F U N C T I O N _ _ ,
" : f a i l e d t o m o v e t h e h o r i z o n t a l l i n e ! E r r o r c o d e = " , G e t L a s t E r r o r ( ) ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - - s u c c e s s f u l e x e c u t i o n
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | c a l c u l a t e b u y |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d c a l c u l a t e b u y ( )
{
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " ) > - 1 )
{
C r e a t e T P = t r u e ;
}
e l s e
{
C r e a t e T P = f a l s e ;
}
S L P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
/ / i f ( S L P i p s = = 0 )
/ / {
/ / H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) - ( D e f a u l t S L ) ) ;
/ / }
i f ( C r e a t e T P )
{
T P P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
/ / i f ( T P P i p s = = 0 )
/ / {
/ / H L i n e M o v e ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) + ( D e f a u l t T P ) ) ;
/ / }
i f ( ! S L P i p s = = 0 )
{
r a t i o = " 1 : " + D o u b l e T o S t r i n g ( ( T P P i p s / S L P i p s ) , 1 ) ;
}
}
e l s e
{
r a t i o = " " ;
}
i f ( S L P i p s ! = 0 )
{
L o t S i z e = N o r m a l i z e D o u b l e ( r i s k m o n e y / ( ( S L P i p s / p o i n t ) ) / P i p V a l u e s o n e l o t , 2 ) ; ;
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 ;
}
P i p V a l u e s = ( ( ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) * p o i n t ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ) * L o t S i z e ) ;
i f ( L o t S i z e > M a x i m u m L o t | | L o t S i z e < M i n i m u m L o t S i z e )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ C O L O R , c l r R e d ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ C O L O R , T e x t C o l o r ) ;
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ T E X T , " L o t : " + D o u b l e T o S t r ( L o t S i z e , 2 ) + " / " + C u r r e n c y F o r m a t ( P i p V a l u e s , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 3 C 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 3 C 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ T P B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ S L B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ F o l l o w B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ O r d e r B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ R i s k B u t t o n P l u s " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ R i s k B u t t o n M i n u s " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ C l o s e B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 C 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 5 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L A T R " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 3 C 1 - e r r o r " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
i f ( G l o b a l V a r i a b l e G e t ( " M a s I N _ M M G T _ E A " ) = = 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ O r d e r B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ O r d e r B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
}
s t r i n g O r d e r B u t t o n T e x t = " " ;
i f ( f o l l o w p r i c e )
{
O r d e r B u t t o n T e x t = " O r d e r 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 ) + " L o t " ;
}
e l s e
{
i f ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ B u y _ L i n e " , O B J P R O P _ P R I C E 1 ) > M a r k e t I n f o ( S y m b o l ( ) , M O D E _ A S K ) )
{
O r d e r B u t t o n T e x t = " O r d e r B u y S t o p " + D o u b l e T o S t r i n g ( L o t S i z e , 2 ) + " L o t " ;
}
e l s e
{
O r d e r B u t t o n T e x t = " O r d e r B u y L i m i t " + D o u b l e T o S t r i n g ( L o t S i z e , 2 ) + " L o t " ;
}
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ M M G T b o x _ O r d e r B u t t o n " , O B J P R O P _ T E X T , O r d e r B u t t o n T e x t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | c a l c u l a t e s e l l |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d c a l c u l a t e s e l l ( )
{
i f ( O b j e c t F i n d ( 0 , " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " ) > - 1 )
{
C r e a t e T P = t r u e ;
}
e l s e
{
C r e a t e T P = f a l s e ;
}
S L P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S L _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
i f ( C r e a t e T P )
{
T P P i p s = M a t h A b s ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ T P _ L i n e " , O B J P R O P _ P R I C E 1 ) - O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) ) ;
i f ( ! S L P i p s = = 0 )
{
r a t i o = " 1 : " + D o u b l e T o S t r i n g ( ( T P P i p s / S L P i p s ) , 1 ) ;
}
}
e l s e
{
r a t i o = " " ;
}
i f ( S L P i p s ! = 0 )
{
L o t S i z e = N o r m a l i z e D o u b l e ( r i s k m o n e y / ( ( S L P i p s / p o i n t ) ) / P i p V a l u e s o n e l o t , 2 ) ;
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 ;
}
P i p V a l u e s = ( ( ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) * p o i n t ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) ) * L o t S i z e ) ;
i f ( L o t S i z e > M a x i m u m L o t | | L o t S i z e < M i n i m u m L o t S i z e )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ C O L O R , c l r R e d ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ C O L O R , T e x t C o l o r ) ;
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ L 1 C 1 " , O B J P R O P _ T E X T , " L o t : " + D o u b l e T o S t r ( L o t S i z e , 2 ) + " / " + C u r r e n c y F o r m a t ( P i p V a l u e s , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 3 C 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 3 C 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ T P B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ S L B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ F o l l o w B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ O r d e r B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ R i s k B u t t o n P l u s " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ R i s k B u t t o n M i n u s " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ C l o s e B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 C 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L M 5 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B S L A T R " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 1 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 2 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 3 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 4 _ B T P R R 4 " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 3 C 1 - e r r o r " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
i f ( G l o b a l V a r i a b l e G e t ( " M a s I N _ M M G T _ E A " ) = = 1 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ O r d e r B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ A L L _ P E R I O D S ) ;
}
e l s e
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ M M G T b o x _ O r d e r B u t t o n " , O B J P R O P _ T I M E F R A M E S , O B J _ N O _ P E R I O D S , E M P T Y ) ;
}
s t r i n g O r d e r B u t t o n T e x t = " " ;
i f ( f o l l o w p r i c e )
{
O r d e r B u t t o n T e x t = " O r d e r 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 ) + " L o t " ;
}
e l s e
{
i f ( O b j e c t G e t ( " M a s I N _ M M G T _ " + S y m b o l ( ) + " _ S e l l _ L i n e " , O B J P R O P _ P R I C E 1 ) > M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) )
{
O r d e r B u t t o n T e x t = " O r d e r S e l l L i m i t " + D o u b l e T o S t r i n g ( L o t S i z e , 2 ) + " L o t " ;
}
e l s e
{
O r d e r B u t t o n T e x t = " O r d e r S e l l S t o p " + D o u b l e T o S t r i n g ( L o t S i z e , 2 ) + " L o t " ;
}
}
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ M M G T b o x _ O r d e r B u t t o n " , O B J P R O P _ T E X T , O r d e r B u t t o n T e x t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | S t r i n g C h a n g e T o U p p e r C a s e |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
s t r i n g S t r i n g C h a n g e T o U p p e r C a s e ( s t r i n g s T e x t )
{
i n t i L e n = S t r i n g L e n ( s T e x t ) , i ;
u s h o r t i C h a r ;
f o r ( i = 0 ; i < i L e n ; i + + )
{
i C h a r = S t r i n g G e t C h a r ( s T e x t , i ) ;
i f ( i C h a r > = 9 7 & & i C h a r < = 1 2 2 ) s T e x t = S t r i n g S e t C h a r ( s T e x t , i , u s h o r t ( i C h a r - 3 2 ) ) ;
}
r e t u r n ( s T e x t ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | I n d i c a t o r c o l o r |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d I n d i c a t o r C o l o r ( )
{
/ / R S I
i f ( i R S I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 4 , P R I C E _ C L O S E , 0 ) < = 2 0 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ C O L O R , c l r C h o c o l a t e ) ;
}
i f ( i R S I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 4 , P R I C E _ C L O S E , 0 ) > 2 0 & & i R S I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 4 , P R I C E _ C L O S E , 0 ) < = 4 5 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ C O L O R , c l r R e d ) ;
}
i f ( i R S I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 4 , P R I C E _ C L O S E , 0 ) > 4 5 & & i R S I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 4 , P R I C E _ C L O S E , 0 ) < = 5 5 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ C O L O R , T e x t C o l o r ) ;
}
i f ( i R S I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 4 , P R I C E _ C L O S E , 0 ) > 5 5 & & i R S I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 4 , P R I C E _ C L O S E , 0 ) < = 8 0 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ C O L O R , c l r G r e e n ) ;
}
i f ( i R S I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 4 , P R I C E _ C L O S E , 0 ) > 8 0 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 2 C 4 " , O B J P R O P _ C O L O R , c l r D a r k O l i v e G r e e n ) ;
}
/ / S t o c h a s t i c
i f ( i S t o c h a s t i c ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 9 , 6 , 3 , M O D E _ S M A , 1 , M O D E _ S I G N A L , 0 ) < = 2 0 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ C O L O R , c l r C h o c o l a t e ) ;
}
i f ( i S t o c h a s t i c ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 9 , 6 , 3 , M O D E _ S M A , 1 , M O D E _ S I G N A L , 0 ) > 2 0 & & i S t o c h a s t i c ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 9 , 6 , 3 , M O D E _ S M A , 1 , M O D E _ S I G N A L , 0 ) < 4 5 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ C O L O R , c l r R e d ) ;
}
i f ( i S t o c h a s t i c ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 9 , 6 , 3 , M O D E _ S M A , 1 , M O D E _ S I G N A L , 0 ) > = 4 5 & & i S t o c h a s t i c ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 9 , 6 , 3 , M O D E _ S M A , 1 , M O D E _ S I G N A L , 0 ) < = 5 5 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ C O L O R , T e x t C o l o r ) ;
}
i f ( i S t o c h a s t i c ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 9 , 6 , 3 , M O D E _ S M A , 1 , M O D E _ S I G N A L , 0 ) > 5 5 & & i S t o c h a s t i c ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 9 , 6 , 3 , M O D E _ S M A , 1 , M O D E _ S I G N A L , 0 ) < 8 0 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ C O L O R , c l r G r e e n ) ;
}
i f ( i S t o c h a s t i c ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 9 , 6 , 3 , M O D E _ S M A , 1 , M O D E _ S I G N A L , 0 ) > = 8 0 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 4 " , O B J P R O P _ C O L O R , c l r D a r k O l i v e G r e e n ) ;
}
/ / M A C D
i f ( i M A C D ( N U L L , 0 , 1 2 , 2 6 , 9 , P R I C E _ C L O S E , M O D E _ M A I N , 0 ) < 0 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 5 " , O B J P R O P _ C O L O R , c l r R e d ) ;
}
i f ( i M A C D ( N U L L , 0 , 1 2 , 2 6 , 9 , P R I C E _ C L O S E , M O D E _ M A I N , 0 ) = = 0 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 5 " , O B J P R O P _ C O L O R , T e x t C o l o r ) ;
}
i f ( i M A C D ( N U L L , 0 , 1 2 , 2 6 , 9 , P R I C E _ C L O S E , M O D E _ M A I N , 0 ) > 0 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 5 " , O B J P R O P _ C O L O R , c l r G r e e n ) ;
}
/ / C C I
i f ( i C C I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ T Y P I C A L , 0 ) < = - 1 0 0 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ C O L O R , c l r C h o c o l a t e ) ;
}
i f ( i C C I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ T Y P I C A L , 0 ) > - 1 0 0 & & i C C I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ T Y P I C A L , 0 ) < = - 5 0 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ C O L O R , c l r R e d ) ;
}
i f ( i C C I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ T Y P I C A L , 0 ) > - 5 0 & & i C C I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ T Y P I C A L , 0 ) < = 5 0 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ C O L O R , T e x t C o l o r ) ;
}
i f ( i C C I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ T Y P I C A L , 0 ) > 5 0 & & i C C I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ T Y P I C A L , 0 ) < = 1 0 0 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ C O L O R , c l r G r e e n ) ;
}
i f ( i C C I ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ T Y P I C A L , 0 ) > 1 0 0 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 0 C 4 " , O B J P R O P _ C O L O R , c l r D a r k O l i v e G r e e n ) ;
}
/ / M o m e n t u m
i f ( i M o m e n t u m ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ C L O S E , 0 ) > 1 0 0 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 5 " , O B J P R O P _ C O L O R , c l r G r e e n ) ;
}
i f ( i M o m e n t u m ( S y m b o l ( ) , i n t ( p e r i o d m o u s e o v e r ) , 1 2 , P R I C E _ C L O S E , 0 ) < 1 0 0 )
{
O b j e c t S e t I n t e g e r ( 0 , " M a s I N _ L 1 C 5 " , O B J P R O P _ C O L O R , c l r R e d ) ;
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C r e a t e r e c t a n g l e b y t h e g i v e n c o o r d i n a t e s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l R e c t a n g l e 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 a n g l e " , / / r e c t a n g l e 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
d a t e t i m e t i m e 1 = 0 , / / f i r s t p o i n t t i m e
d o u b l e p r i c e 1 = 0 , / / f i r s t p o i n t p r i c e
d a t e t i m e t i m e 2 = 0 , / / s e c o n d p o i n t t i m e
d o u b l e p r i c e 2 = 0 , / / s e c o n d p o i n t p r i c e
c o n s t c o l o r c l r = c l r R e d , / / r e c t a n g l e c o l o r
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 , / / s t y l e o f r e c t a n g l e l i n e s
c o n s t i n t w i d t h = 1 , / / w i d t h o f r e c t a n g l e l i n e s
c o n s t b o o l f i l l = f a l s e , / / f i l l i n g r e c t a n g l e w i t h 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 = t r u 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
{
/ / - - - s e t a n c h o r p o i n t s ' c o o r d i n a t e s i f t h e y a r e n o t s e t
C h a n g e R e c t a n g l e E m p t y P o i n t s ( t i m e 1 , p r i c e 1 , t i m e 2 , p r i c e 2 ) ;
/ / - - - 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 r e a t e a r e c t a n g l e b y t h e g i v e n c o o r d i n a t e s
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 , s u b _ w i n d o w , t i m e 1 , p r i c e 1 , t i m e 2 , p r i c e 2 ) )
{
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 ! E r r o r c o d e = " , G e t L a s t E r r o r ( ) ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - - s e t r e c t a n g l e c o l 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 ) ;
/ / - - - s e t t h e s t y l e o f r e c t a n g l e l i n e 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 _ S T Y L E , s t y l e ) ;
/ / - - - s e t w i d t h o f t h e r e c t a n g l e l i n e 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 _ W I D T H , w i d t h ) ;
/ / - - - d i s p l a y i n t h e f o r e g r o u n d ( f a l s e ) o r b a c k g r o u n d ( t r u 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 _ B A C K , b a c k ) ;
/ / - - - e n a b l e ( t r u e ) o r d i s a b l e ( f a l s e ) t h e m o d e o f h i g h l i g h t i n g t h e r e c t a n g l e f o r m o v i n g
/ / - - - w h e n c r e a t i n g a g r a p h i c a l o b j e c t u s i n g O b j e c t C r e a t e f u n c t i o n , t h e o b j e c t c a n n o t b e
/ / - - - h i g h l i g h t e d a n d m o v e d b y d e f a u l t . I n s i d e t h i s m e t h o d , s e l e c t i o n p a r a m e t e r
/ / - - - i s t r u e b y d e f a u l t m a k i n g i t p o s s i b l e t o h i g h l i g h t a n d m o v e t h e o b j e c 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 _ 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 ) ;
/ / - - - h i d e ( t r u e ) o r d i s p l a y ( f a l s e ) g r a p h i c a l o b j e c t n a m e i n t h e o b j e c t l i s 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 _ H I D D E N , h i d d e n ) ;
/ / - - - s e t t h e p r i o r i t y f o r r e c e i v i n g t h e e v e n t o f a m o u s e c l i c k i n t h e c h a r 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 _ Z O R D E R , z _ o r d e r ) ;
/ / - - - s u c c e s s f u l e x e c u t i o n
}
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C h e c k t h e v a l u e s o f r e c t a n g l e ' s a n c h o r p o i n t s a n d s e t d e f a u l t |
/ / | v a l u e s f o r e m p t y o n e s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d C h a n g e R e c t a n g l e E m p t y P o i n t s ( d a t e t i m e & t i m e 1 , d o u b l e & p r i c e 1 ,
d a t e t i m e & t i m e 2 , d o u b l e & p r i c e 2 )
{
/ / - - - i f t h e f i r s t p o i n t ' s t i m e i s n o t s e t , i t w i l l b e o n t h e c u r r e n t b a r
i f ( ! t i m e 1 )
t i m e 1 = T i m e C u r r e n t ( ) ;
/ / - - - i f t h e f i r s t p o i n t ' s p r i c e i s n o t s e t , i t w i l l h a v e B i d v a l u e
i f ( ! p r i c e 1 )
p r i c e 1 = 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 ) ;
/ / - - - i f t h e s e c o n d p o i n t ' s t i m e i s n o t s e t , i t i s l o c a t e d 9 b a r s l e f t f r o m t h e s e c o n d o n e
i f ( ! t i m e 2 )
{
/ / - - - a r r a y f o r r e c e i v i n g t h e o p e n t i m e o f t h e l a s t 1 0 b a r s
d a t e t i m e t e m p [ 1 0 ] ;
C o p y T i m e ( S y m b o l ( ) , P e r i o d ( ) , t i m e 1 , 1 0 , t e m p ) ;
/ / - - - s e t t h e s e c o n d p o i n t 9 b a r s l e f t f r o m t h e f i r s t o n e
t i m e 2 = t e m p [ 0 ] ;
}
/ / - - - i f t h e s e c o n d p o i n t ' s p r i c e i s n o t s e t , m o v e i t 3 0 0 p o i n t s l o w e r t h a n t h e f i r s t o n e
i f ( ! p r i c e 2 )
p r i c e 2 = p r i c e 1 - 3 0 0 * 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 _ P O I N T ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C r e a t e 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
{
/ / - - - 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 )
{
/ / - - - c r e a t e a r e c t a n g l e l a b e l
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 = " , G e t L a s t E r r o r ( ) ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - - s e t l a b e l c o o r d i n a t e 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 ) ;
/ / - - - s e t l a b e l 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 _ 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 ) ;
/ / - - - s e t b a c k g r o u n d c o l 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 _ B G C O L O R , b a c k _ c l r ) ;
/ / - - - s e t b o r d e r t y p 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 _ B O R D E R _ T Y P E , b o r d e r ) ;
/ / - - - s e t t h e c h a r t ' s c o r n e r , r e l a t i v e t o w h i c h p o i n t c o o r d i n a t e s a r e d e f i n e d
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 ) ;
/ / - - - s e t f l a t b o r d e r c o l o r ( i n F l a t m o d 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 ) ;
/ / - - - s e t f l a t b o r d e r l i n 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 _ S T Y L E , s t y l e ) ;
/ / - - - s e t f l a t b o r d e r 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 _ W I D T H , l i n e _ w i d t h ) ;
/ / - - - d i s p l a y i n t h e f o r e g r o u n d ( f a l s e ) o r b a c k g r o u n d ( t r u 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 _ B A C K , b a c k ) ;
/ / - - - e n a b l e ( t r u e ) o r d i s a b l e ( f a l s e ) t h e m o d e o f m o v i n g t h e l a b e l b y m o u 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 _ 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 ) ;
/ / - - - h i d e ( t r u e ) o r d i s p l a y ( f a l s e ) g r a p h i c a l o b j e c t n a m e i n t h e o b j e c t l i s 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 _ H I D D E N , h i d d e n ) ;
/ / - - - s e t t h e p r i o r i t y f o r r e c e i v i n g t h e e v e n t o f a m o u s e c l i c k i n t h e c h a r 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 _ Z O R D E R , z _ o r d e r ) ;
/ / - - - s u c c e s s f u l e x e c u t i o n
}
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | G r i d C o l o r |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d G r i d C o l o r ( )
{
d o u b l e m ;
d o u b l e p i p i n t e r v a l = P i p I n t e r v a l * p o i n t ;
i n t b = 0 ;
i n t d i g i t = D i g i t s ;
i f ( ( D i g i t s = = 3 ) | | ( D i g i t s = = 5 ) | | ( D i g i t s = = 1 ) )
{
d i g i t = D i g i t s - 1 ;
}
d o u b l e f i r s s t a r t p r i c e = i n t ( ( i n t ( W i n d o w P r i c e M i n ( ) / p o i n t ) ) / P i p I n t e r v a l ) * P i p I n t e r v a l * p o i n t ;
d o u b l e l a s t p r i c e = i n t ( ( W i n d o w P r i c e M a x ( ) + p i p i n t e r v a l ) / p i p i n t e r v a l ) * p i p i n t e r v a l ;
b o o l c o l o r g r i d = f a l s e ;
l o n g c o l o r b a c k g r o u n d = c l r N O N E ;
l o n g c o l o r a l t e r n a t i v e ;
i n t i ;
i n t n u m b e r s h o w = i n t ( ( W i n d o w P r i c e M a x ( ) - W i n d o w P r i c e M i n ( ) ) / p i p i n t e r v a l ) ;
l o n g v a r i a t i o n i n ;
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 o l o r b a c k g r o u n d ) ;
i f ( c o l o r b a c k g r o u n d > 9 0 0 0 0 0 0 )
{
c o l o r a l t e r n a t i v e = c o l o r b a c k g r o u n d - ( 1 1 1 8 4 8 1 * C o l o r V a r i a t i o n ) ;
v a r i a t i o n i n = c o l o r b a c k g r o u n d - ( 1 1 1 8 4 8 1 * ( C o l o r V a r i a t i o n + 2 ) ) ;
}
e l s e
{
c o l o r a l t e r n a t i v e = c o l o r b a c k g r o u n d + ( 1 1 1 8 4 8 1 * C o l o r V a r i a t i o n ) ;
v a r i a t i o n i n = c o l o r b a c k g r o u n d + ( 1 1 1 8 4 8 1 * ( C o l o r V a r i a t i o n + 2 ) ) ;
}
f o r ( i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ G r i d _ " ) > - 1 )
{
O b j e c t D e l e t e ( 0 , O b j e c t N a m e ( i ) ) ;
}
}
d o u b l e t e s t p r i c e = M a t h C e i l ( f i r s s t a r t p r i c e / p o i n t / P i p I n t e r v a l ) ;
i f ( M a t h M o d ( t e s t p r i c e , 2 ) = = 0 )
{
c o l o r g r i d = t r u e ;
}
i f ( S h o w G r i d )
{
f o r ( m = f i r s s t a r t p r i c e ; m < l a s t p r i c e ; m + = p i p i n t e r v a l )
{
b + = 1 ;
i f ( c o l o r g r i d )
{
c o l o r g r i d = f a l s e ;
i f ( ( B i d > m & & B i d < ( m + p i p i n t e r v a l ) ) )
{
G r i d L o w = m ;
G r i d H i g h = m + p i p i n t e r v a l ;
R e c t a n g l e C r e a t e ( 0 , " M a s I N _ G r i d _ " + s t r i n g ( m ) , 0 , T i m e [ W i n d o w F i r s t V i s i b l e B a r ( ) ] , m , T i m e [ 0 ] + ( P e r i o d ( ) * 8 0 0 ) , ( m + p i p i n t e r v a l ) , c o l o r ( v a r i a t i o n i n ) , S T Y L E _ S O L I D , 1 , t r u e , t r u e , f a l s e , f a l s e , 0 ) ;
}
e l s e
{
R e c t a n g l e C r e a t e ( 0 , " M a s I N _ G r i d _ " + s t r i n g ( m ) , 0 , T i m e [ W i n d o w F i r s t V i s i b l e B a r ( ) ] , m , T i m e [ 0 ] + ( P e r i o d ( ) * 8 0 0 ) , ( m + p i p i n t e r v a l ) , c o l o r ( c o l o r a l t e r n a t i v e ) , S T Y L E _ S O L I D , 1 , t r u e , t r u e , f a l s e , f a l s e , 0 ) ;
}
i f ( S h o w P r i c e & & n u m b e r s h o w < = 1 1 0 )
{
A r r o w R i g h t P r i c e C r e a t e ( 0 , " M a s I N _ G r i d _ P r i c e _ " + s t r i n g ( b ) , 0 , 0 , m , c l r G r a y , S T Y L E _ S O L I D , 1 , f a l s e , f a l s e , f a l s e , 0 ) ;
}
b + = 1 ;
}
e l s e
{
c o l o r g r i d = t r u e ;
i f ( ( B i d > m & & B i d < ( m + p i p i n t e r v a l ) ) )
{
G r i d L o w = m ;
G r i d H i g h = m + p i p i n t e r v a l ;
R e c t a n g l e C r e a t e ( 0 , " M a s I N _ G r i d _ " + s t r i n g ( m ) , 0 , T i m e [ W i n d o w F i r s t V i s i b l e B a r ( ) ] , m , T i m e [ 0 ] + ( P e r i o d ( ) * 8 0 0 ) , ( m + p i p i n t e r v a l ) , c o l o r ( v a r i a t i o n i n ) , S T Y L E _ S O L I D , 1 , t r u e , t r u e , f a l s e , f a l s e , 0 ) ;
}
e l s e
{
/ / R e c t a n g l e C r e a t e ( 0 , " M a s I N _ G r i d _ " + s t r i n g ( m ) , 0 , T i m e [ W i n d o w F i r s t V i s i b l e B a r ( ) ] , m , T i m e [ 0 ] + ( P e r i o d ( ) * 8 0 0 ) , ( m + p i p i n t e r v a l ) , c o l o r ( c o l o r b a c k g r o u n d ) , S T Y L E _ S O L I D , 1 , t r u e , t r u e , f a l s e , f a l s e , 0 ) ;
}
i f ( S h o w P r i c e & & n u m b e r s h o w < = 6 0 ) / / i f n u m b e r s h o w > 6 0 t o o m u c h P r i c e a n d i t s n o t r e a d a b l e
{
A r r o w R i g h t P r i c e C r e a t e ( 0 , " M a s I N _ G r i d _ P r i c e _ " + s t r i n g ( b ) , 0 , 0 , m , c l r G r a y , S T Y L E _ S O L I D , 1 , f a l s e , f a l s e , f a l s e , 0 ) ;
}
}
}
}
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | D a i l y O p e n |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t D a i l y O p e n ( )
{
i n t i ;
d o u b l e o p e n a t = i O p e n ( S y m b o l ( ) , P E R I O D _ D 1 , 0 ) ;
i n t B a r s C o u n t = i B a r S h i f t ( S y m b o l ( ) , P e r i o d ( ) , i T i m e ( S y m b o l ( ) , P E R I O D _ D 1 , 0 ) ) ;
O b j e c t C r e a t e ( " M a s I N _ D a i l y _ " + S y m b o l ( ) + " _ D O _ l a b e l " , O B J _ T E X T , 0 , T i m e [ 2 ] , o p e n a t ) ;
O b j e c t M o v e ( 0 , " M a s I N _ D a i l y _ " + S y m b o l ( ) + " _ D O _ l a b e l " , 0 , T i m e [ 2 ] , o p e n a t ) ;
O b j e c t S e t T e x t ( " M a s I N _ D a i l y _ " + S y m b o l ( ) + " _ D O _ l a b e l " , " D a i l y O p e n " , 7 , " C o u r i e r N e w " , c l r G r a y ) ;
f o r ( i = 1 ; i < B a r s C o u n t ; i + + )
{
D a i l y O p e n A r r a y [ i ] = o p e n a t ;
}
r e t u r n ( 0 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C r e a t e t h e r i g h t p r i c e l a b e l |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
b o o l A r r o w R i g h t P r i c e 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 i g h t P r i c e " , / / p r i c e 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
d a t e t i m e t i m e = 0 , / / a n c h o r p o i n t t i m e
d o u b l e p r i c e = 0 , / / a n c h o r p o i n t p r i c e
c o n s t c o l o r c l r = c l r R e d , / / p r i c e l a b e l c o l o r
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 , / / b o r d e r l i n e s t y l e
c o n s t i n t w i d t h = 1 , / / p r i c e l a b e l s i z 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 = t r u 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
{
/ / - - - s e t a n c h o r p o i n t c o o r d i n a t e s i f t h e y a r e n o t s e t
C h a n g e A r r o w E m p t y P o i n t ( t i m e , p r i c 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 ( ) ;
/ / - - - c r e a t e a p r i c e l a b e l
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 _ A R R O W _ R I G H T _ P R I C E , s u b _ w i n d o w , t i m e , p r i c e ) )
{
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 r i g h t p r i c e l a b e l ! E r r o r c o d e = " , G e t L a s t E r r o r ( ) ) ;
r e t u r n ( f a l s e ) ;
}
/ / - - - s e t t h e l a b e l c o l 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 ) ;
/ / - - - s e t t h e b o r d e r l i n 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 _ S T Y L E , s t y l e ) ;
/ / - - - s e t t h e l a b e l 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 _ W I D T H , w i d t h ) ;
/ / - - - d i s p l a y i n t h e f o r e g r o u n d ( f a l s e ) o r b a c k g r o u n d ( t r u 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 _ B A C K , b a c k ) ;
/ / - - - e n a b l e ( t r u e ) o r d i s a b l e ( f a l s e ) t h e m o d e o f m o v i n g t h e l a b e l b y m o u s e
/ / - - - w h e n c r e a t i n g a g r a p h i c a l o b j e c t u s i n g O b j e c t C r e a t e f u n c t i o n , t h e o b j e c t c a n n o t b e
/ / - - - h i g h l i g h t e d a n d m o v e d b y d e f a u l t . I n s i d e t h i s m e t h o d , s e l e c t i o n p a r a m e t e r
/ / - - - i s t r u e b y d e f a u l t m a k i n g i t p o s s i b l e t o h i g h l i g h t a n d m o v e t h e o b j e c 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 _ 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 ) ;
/ / - - - h i d e ( t r u e ) o r d i s p l a y ( f a l s e ) g r a p h i c a l o b j e c t n a m e i n t h e o b j e c t l i s 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 _ H I D D E N , h i d d e n ) ;
/ / - - - s e t t h e p r i o r i t y f o r r e c e i v i n g t h e e v e n t o f a m o u s e c l i c k i n t h e c h a r 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 _ Z O R D E R , z _ o r d e r ) ;
/ / - - - s u c c e s s f u l e x e c u t i o n
r e t u r n ( t r u e ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | C h e c k a n c h o r p o i n t v a l u e s a n d s e t d e f a u l t v a l u e s |
/ / | f o r e m p t y o n e s |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
v o i d C h a n g e A r r o w E m p t y P o i n t ( d a t e t i m e & t i m e , d o u b l e & p r i c e )
{
/ / - - - i f t h e p o i n t ' s t i m e i s n o t s e t , i t w i l l b e o n t h e c u r r e n t b a r
i f ( ! t i m e )
t i m e = T i m e C u r r e n t ( ) ;
/ / - - - i f t h e p o i n t ' s p r i c e i s n o t s e t , i t w i l l h a v e B i d v a l u e
i f ( ! p r i c e )
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 o l ( ) , S Y M B O L _ B I D ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | P i v o t L i n e |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t P i v o t L i n e ( )
{
d o u b l e y e s t e r d a y h i g h t = i H i g h ( N U L L , P E R I O D _ D 1 , 1 ) ;
d o u b l e y e s t e r d a y l o w = i L o w ( N U L L , P E R I O D _ D 1 , 1 ) ;
d o u b l e y e s t e r d a y c l o s e = i C l o s e ( S y m b o l ( ) , P E R I O D _ D 1 , 1 ) ;
d o u b l e p i v o t = ( y e s t e r d a y h i g h t + y e s t e r d a y l o w + y e s t e r d a y c l o s e ) / 3 ;
d o u b l e r 4 = p i v o t + ( ( y e s t e r d a y h i g h t - y e s t e r d a y l o w ) * 3 ) ;
d o u b l e r 3 = p i v o t + ( ( y e s t e r d a y h i g h t - y e s t e r d a y l o w ) * 2 ) ;
d o u b l e r 2 = p i v o t + ( ( y e s t e r d a y h i g h t - y e s t e r d a y l o w ) ) ;
d o u b l e r 1 = ( 2 * p i v o t ) - y e s t e r d a y l o w ;
d o u b l e s 1 = ( 2 * p i v o t ) - y e s t e r d a y h i g h t ;
d o u b l e s 2 = p i v o t - ( y e s t e r d a y h i g h t - y e s t e r d a y l o w ) ;
d o u b l e s 3 = p i v o t - ( ( y e s t e r d a y h i g h t - y e s t e r d a y l o w ) * 2 ) ;
d o u b l e s 4 = p i v o t - ( ( y e s t e r d a y h i g h t - y e s t e r d a y l o w ) * 3 ) ;
i n t i ;
O b j e c t C r e a t e ( " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ S 1 _ l a b e l " , O B J _ T E X T , 0 , T i m e [ 2 ] , s 1 ) ;
O b j e c t M o v e ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ S 1 _ l a b e l " , 0 , T i m e [ 2 ] , s 1 ) ;
O b j e c t S e t T e x t ( " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ S 1 _ l a b e l " , " C l a s s i c P i v o t S 1 " , 7 , " C o u r i e r N e w " , c l r G r a y ) ;
O b j e c t C r e a t e ( " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ S 2 _ l a b e l " , O B J _ T E X T , 0 , T i m e [ 2 ] , s 2 ) ;
O b j e c t M o v e ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ S 2 _ l a b e l " , 0 , T i m e [ 2 ] , s 2 ) ;
O b j e c t S e t T e x t ( " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ S 2 _ l a b e l " , " C l a s s i c P i v o t S 2 " , 7 , " C o u r i e r N e w " , c l r G r a y ) ;
O b j e c t C r e a t e ( " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ S 3 _ l a b e l " , O B J _ T E X T , 0 , T i m e [ 2 ] , s 3 ) ;
O b j e c t M o v e ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ S 3 _ l a b e l " , 0 , T i m e [ 2 ] , s 3 ) ;
O b j e c t S e t T e x t ( " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ S 3 _ l a b e l " , " C l a s s i c P i v o t S 3 " , 7 , " C o u r i e r N e w " , c l r G r a y ) ;
O b j e c t C r e a t e ( " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ S 4 _ l a b e l " , O B J _ T E X T , 0 , T i m e [ 2 ] , s 4 ) ;
O b j e c t M o v e ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ S 4 _ l a b e l " , 0 , T i m e [ 2 ] , s 4 ) ;
O b j e c t S e t T e x t ( " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ S 4 _ l a b e l " , " C l a s s i c P i v o t S 4 " , 7 , " C o u r i e r N e w " , c l r G r a y ) ;
O b j e c t C r e a t e ( " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ R 1 _ l a b e l " , O B J _ T E X T , 0 , T i m e [ 2 ] , r 1 ) ;
O b j e c t M o v e ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ R 1 _ l a b e l " , 0 , T i m e [ 2 ] , r 1 ) ;
O b j e c t S e t T e x t ( " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ R 1 _ l a b e l " , " C l a s s i c P i v o t R 1 " , 7 , " C o u r i e r N e w " , c l r G r a y ) ;
O b j e c t C r e a t e ( " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ R 2 _ l a b e l " , O B J _ T E X T , 0 , T i m e [ 2 ] , r 2 ) ;
O b j e c t M o v e ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ R 2 _ l a b e l " , 0 , T i m e [ 2 ] , r 2 ) ;
O b j e c t S e t T e x t ( " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ R 2 _ l a b e l " , " C l a s s i c P i v o t R 2 " , 7 , " C o u r i e r N e w " , c l r G r a y ) ;
O b j e c t C r e a t e ( " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ R 3 _ l a b e l " , O B J _ T E X T , 0 , T i m e [ 2 ] , r 3 ) ;
O b j e c t M o v e ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ R 3 _ l a b e l " , 0 , T i m e [ 2 ] , r 3 ) ;
O b j e c t S e t T e x t ( " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ R 3 _ l a b e l " , " C l a s s i c P i v o t R 3 " , 7 , " C o u r i e r N e w " , c l r G r a y ) ;
O b j e c t C r e a t e ( " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ R 4 _ l a b e l " , O B J _ T E X T , 0 , T i m e [ 2 ] , r 4 ) ;
O b j e c t M o v e ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ R 4 _ l a b e l " , 0 , T i m e [ 2 ] , r 4 ) ;
O b j e c t S e t T e x t ( " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ R 4 _ l a b e l " , " C l a s s i c P i v o t R 4 " , 7 , " C o u r i e r N e w " , c l r G r a y ) ;
O b j e c t C r e a t e ( " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ P P _ l a b e l " , O B J _ T E X T , 0 , T i m e [ 2 ] , p i v o t ) ;
O b j e c t M o v e ( 0 , " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ P P _ l a b e l " , 0 , T i m e [ 2 ] , p i v o t ) ;
O b j e c t S e t T e x t ( " M a s I N _ P i v o t _ " + S y m b o l ( ) + " _ P P _ l a b e l " , " P i v o t P " , 7 , " C o u r i e r N e w " , c l r G r a y ) ;
i n t B a r s C o u n t = i B a r S h i f t ( S y m b o l ( ) , P e r i o d ( ) , i T i m e ( S y m b o l ( ) , P E R I O D _ D 1 , 0 ) ) ;
f o r ( i = 0 ; i < B a r s C o u n t ; i + + )
{
P P B u f f e r [ i ] = p i v o t ;
R 4 B u f f e r [ i ] = r 4 ;
R 3 B u f f e r [ i ] = r 3 ;
R 2 B u f f e r [ i ] = r 2 ;
R 1 B u f f e r [ i ] = r 1 ;
S 1 B u f f e r [ i ] = s 1 ;
S 2 B u f f e r [ i ] = s 2 ;
S 3 B u f f e r [ i ] = s 3 ;
S 4 B u f f e r [ i ] = s 4 ;
}
r e t u r n ( 0 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | P i v o t L i n e F i b o |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t P i v o t L i n e F i b o ( )
{
d o u b l e y e s t e r d a y h i g h t = i H i g h ( N U L L , P E R I O D _ D 1 , 1 ) ;
d o u b l e y e s t e r d a y l o w = i L o w ( N U L L , P E R I O D _ D 1 , 1 ) ;
d o u b l e y e s t e r d a y c l o s e = i C l o s e ( S y m b o l ( ) , P E R I O D _ D 1 , 1 ) ;
d o u b l e p i v o t = ( y e s t e r d a y h i g h t + y e s t e r d a y l o w + y e s t e r d a y c l o s e ) / 3 ;
d o u b l e r 3 = p i v o t + ( ( y e s t e r d a y h i g h t - y e s t e r d a y l o w ) * 1 ) ;
d o u b l e r 2 = p i v o t + ( ( y e s t e r d a y h i g h t - y e s t e r d a y l o w ) * 0 . 6 1 8 ) ;
d o u b l e r 1 = p i v o t + ( ( y e s t e r d a y h i g h t - y e s t e r d a y l o w ) * 0 . 3 8 2 ) ;
d o u b l e s 1 = p i v o t - ( ( y e s t e r d a y h i g h t - y e s t e r d a y l o w ) * 0 . 3 8 2 ) ;
d o u b l e s 2 = p i v o t - ( ( y e s t e r d a y h i g h t - y e s t e r d a y l o w ) * 0 . 6 1 8 ) ;
d o u b l e s 3 = p i v o t - ( ( y e s t e r d a y h i g h t - y e s t e r d a y l o w ) * 1 ) ;
i n t i ;
O b j e c t C r e a t e ( " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ S 1 _ l a b e l " , O B J _ T E X T , 0 , T i m e [ 2 ] , s 1 ) ;
O b j e c t M o v e ( 0 , " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ S 1 _ l a b e l " , 0 , T i m e [ 2 ] , s 1 ) ;
O b j e c t S e t T e x t ( " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ S 1 _ l a b e l " , " F i b o t P i v o t S 1 " , 7 , " C o u r i e r N e w " , c l r G r a y ) ;
O b j e c t C r e a t e ( " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ S 2 _ l a b e l " , O B J _ T E X T , 0 , T i m e [ 2 ] , s 2 ) ;
O b j e c t M o v e ( 0 , " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ S 2 _ l a b e l " , 0 , T i m e [ 2 ] , s 2 ) ;
O b j e c t S e t T e x t ( " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ S 2 _ l a b e l " , " F i b o t P i v o t S 2 " , 7 , " C o u r i e r N e w " , c l r G r a y ) ;
O b j e c t C r e a t e ( " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ S 3 _ l a b e l " , O B J _ T E X T , 0 , T i m e [ 2 ] , s 3 ) ;
O b j e c t M o v e ( 0 , " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ S 3 _ l a b e l " , 0 , T i m e [ 2 ] , s 3 ) ;
O b j e c t S e t T e x t ( " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ S 3 _ l a b e l " , " F i b o t P i v o t S 3 " , 7 , " C o u r i e r N e w " , c l r G r a y ) ;
O b j e c t C r e a t e ( " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ R 1 _ l a b e l " , O B J _ T E X T , 0 , T i m e [ 2 ] , r 1 ) ;
O b j e c t M o v e ( 0 , " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ R 1 _ l a b e l " , 0 , T i m e [ 2 ] , r 1 ) ;
O b j e c t S e t T e x t ( " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ R 1 _ l a b e l " , " F i b o t P i v o t R 1 " , 7 , " C o u r i e r N e w " , c l r G r a y ) ;
O b j e c t C r e a t e ( " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ R 2 _ l a b e l " , O B J _ T E X T , 0 , T i m e [ 2 ] , r 2 ) ;
O b j e c t M o v e ( 0 , " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ R 2 _ l a b e l " , 0 , T i m e [ 2 ] , r 2 ) ;
O b j e c t S e t T e x t ( " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ R 2 _ l a b e l " , " F i b o t P i v o t R 2 " , 7 , " C o u r i e r N e w " , c l r G r a y ) ;
O b j e c t C r e a t e ( " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ R 3 _ l a b e l " , O B J _ T E X T , 0 , T i m e [ 2 ] , r 3 ) ;
O b j e c t M o v e ( 0 , " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ R 3 _ l a b e l " , 0 , T i m e [ 2 ] , r 3 ) ;
O b j e c t S e t T e x t ( " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ R 3 _ l a b e l " , " F i b o t P i v o t R 3 " , 7 , " C o u r i e r N e w " , c l r G r a y ) ;
O b j e c t C r e a t e ( " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ P P _ l a b e l " , O B J _ T E X T , 0 , T i m e [ 2 ] , p i v o t ) ;
O b j e c t M o v e ( 0 , " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ P P _ l a b e l " , 0 , T i m e [ 2 ] , p i v o t ) ;
O b j e c t S e t T e x t ( " M a s I N _ P i v o t F i b _ " + S y m b o l ( ) + " _ P P _ l a b e l " , " P i v o t P " , 7 , " C o u r i e r N e w " , c l r G r a y ) ;
i n t B a r s C o u n t = i B a r S h i f t ( S y m b o l ( ) , P e r i o d ( ) , i T i m e ( S y m b o l ( ) , P E R I O D _ D 1 , 0 ) ) ;
f o r ( i = 0 ; i < B a r s C o u n t ; i + + )
{
F P P B u f f e r [ i ] = p i v o t ;
F R 3 B u f f e r [ i ] = r 3 ;
F R 2 B u f f e r [ i ] = r 2 ;
F R 1 B u f f e r [ i ] = r 1 ;
F S 1 B u f f e r [ i ] = s 1 ;
F S 2 B u f f e r [ i ] = s 2 ;
F S 3 B u f f e r [ i ] = s 3 ;
}
r e t u r n ( 0 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | S a v e S u p p o r t R e s i s t a n c e T o F i l e |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t S a v e S u p p o r t R e s i s t a n c e T o F i l e ( )
{
F i l e D e l e t e ( " S u p p o r t R e s i s t a n c e - " + S y m b o l ( ) + " - . c s v " ) ;
i n t h a n d l e = F i l e O p e n ( " S u p p o r t R e s i s t a n c e - " + S y m b o l ( ) + " - . c s v " , F I L E _ C S V | F I L E _ R E A D | F I L E _ W R I T E , ' ; ' ) ;
i f ( h a n d l e < 1 )
{
P r i n t ( " F i l e S u p p o r t R e s i s t a n c e - " + S y m b o l ( ) + " - . c s v n o t f o u n d , t h e l a s t e r r o r i s " , G e t L a s t E r r o r ( ) ) ;
r e t u r n ( f a l s e ) ;
}
e l s e
{
f o r ( i n t i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ K c S R _ " + S y m b o l ( ) ) > - 1 )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ A _ R S " ) > - 1 )
{
F i l e W r i t e ( h a n d l e , S y m b o l ( ) , O b j e c t G e t ( O b j e c t N a m e ( i ) , O B J P R O P _ P R I C E 1 ) , " A " ) ;
}
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ Q _ R S " ) > - 1 )
{
F i l e W r i t e ( h a n d l e , S y m b o l ( ) , O b j e c t G e t ( O b j e c t N a m e ( i ) , O B J P R O P _ P R I C E 1 ) , " Q " ) ;
}
}
}
}
F i l e C l o s e ( h a n d l e ) ;
r e t u r n ( 0 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | F i l e T o S u p p o r t R e s i s t a n c e |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t F i l e T o L i n e ( )
{
s t r i n g a r r [ 3 ] ;
i n t i n a m e = 0 ;
i f ( F i l e I s E x i s t ( " S u p p o r t R e s i s t a n c e - " + S y m b o l ( ) + " - . c s v " ) )
{
i n t h a n d l e = F i l e O p e n ( " S u p p o r t R e s i s t a n c e - " + S y m b o l ( ) + " - . c s v " , F I L E _ C S V | F I L E _ R E A D , ' ~ ' ) ;
i f ( h a n d l e < 1 )
{
P r i n t ( " F i l e S u p p o r t R e s i s t a n c e - " + S y m b o l ( ) + " - . c s v n o t f o u n d , t h e l a s t e r r o r i s " , G e t L a s t E r r o r ( ) ) ;
r e t u r n ( f a l s e ) ;
}
e l s e
{
w h i l e ( ! F i l e I s E n d i n g ( h a n d l e ) )
{
s t r i n g t m p = F i l e R e a d S t r i n g ( h a n d l e ) ;
i n a m e + = 1 ;
b o o l C r e a t e L i n e = t r u e ;
i f ( F i l e I s E n d i n g ( h a n d l e ) ) b r e a k ;
i n t k = S t r i n g S p l i t ( t m p , S t r i n g G e t C h a r ( " ; " , 0 ) , a r r ) ;
/ / a r r [ 0 ] S y m b o l ;
/ / a r r [ 1 ] P r i c e ;
/ / a r r [ 2 ] L i n e S t y l e ;
i f ( a r r [ 2 ] = = L i n e H o r i z o n t a l )
{
f o r ( i n t i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ K c S R _ " + S y m b o l ( ) ) > - 1 )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ A _ R S " ) > - 1 )
{
i f ( O b j e c t G e t ( O b j e c t N a m e ( i ) , O B J P R O P _ P R I C E 1 ) = = d o u b l e ( a r r [ 1 ] ) )
{
C r e a t e L i n e = f a l s e ;
}
}
}
}
i f ( C r e a t e L i n e )
{
L i n e I d = T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) + " " + T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ S E C O N D S ) + s t r i n g ( i n a m e ) ;
i f ( d o u b l e ( a r r [ 1 ] ) > M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) )
{
H L i n e C r e a t e ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ R S " , 0 , ( ( d o u b l e ( a r r [ 1 ] ) / p o i n t ) * p o i n t ) , L i n e R e s i s t c o l o r , L i n e S t y l e , L i n e w i d t h , f a l s e , t r u e , f a l s e , 0 , T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) ) ;
O b j e c t C r e a t e ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ l a b e l " , O B J _ T E X T , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ R S " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t M o v e ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ l a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ R S " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t S e t T e x t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ l a b e l " , D o u b l e T o S t r i n g ( ( i n t ( d o u b l e ( a r r [ 1 ] ) / p o i n t ) * p o i n t ) , D i g i t s ) , 1 0 , " C o u r i e r N e w " , L i n e R e s i s t c o l o r ) ;
}
e l s e
{
H L i n e C r e a t e ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ R S " , 0 , ( ( d o u b l e ( a r r [ 1 ] ) / p o i n t ) * p o i n t ) , L i n e S u p p o r t c o l o r , L i n e S t y l e , L i n e w i d t h , f a l s e , t r u e , f a l s e , 0 , T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) ) ;
O b j e c t C r e a t e ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ l a b e l " , O B J _ T E X T , 0 , T i m e [ W i n d o w F i r s t V i s i b l e B a r ( ) / 3 * 2 ] , O b j e c t G e t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ R S " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t M o v e ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ l a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ R S " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t S e t T e x t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ l a b e l " , D o u b l e T o S t r i n g ( ( i n t ( d o u b l e ( a r r [ 1 ] ) / p o i n t ) * p o i n t ) , D i g i t s ) , 1 0 , " C o u r i e r N e w " , L i n e S u p p o r t c o l o r ) ;
}
P i p G a p = M a t h A b s ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) - ( ( d o u b l e ( a r r [ 1 ] ) / p o i n t ) * p o i n t ) ) ;
P i p G a p V a l u e = P i p G a p * M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) * L o t S i z e ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ l a b e 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 ( ( i n t ( d o u b l e ( a r r [ 1 ] ) / p o i n t ) * p o i n t ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ l a b e l " , O B J P R O P _ T O O L T I P , D o u b l e T o S t r i n g ( ( i n t ( d o u b l e ( a r r [ 1 ] ) / p o i n t ) * p o i n t ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ A _ R S " , O B J P R O P _ T O O L T I P , D o u b l e T o S t r i n g ( ( i n t ( d o u b l e ( a r r [ 1 ] ) / p o i n t ) * p o i n t ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
}
}
i f ( a r r [ 2 ] = = L i n e H o r i z o n t a l S e c o n d )
{
f o r ( i n t i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ K c S R _ " + S y m b o l ( ) ) > - 1 )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ Q _ R S " ) > - 1 )
{
i f ( O b j e c t G e t ( O b j e c t N a m e ( i ) , O B J P R O P _ P R I C E 1 ) = = d o u b l e ( a r r [ 1 ] ) )
{
C r e a t e L i n e = f a l s e ;
}
}
}
}
i f ( C r e a t e L i n e )
{
L i n e I d = T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) + " " + T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ S E C O N D S ) + s t r i n g ( i n a m e ) ;
i f ( d o u b l e ( a r r [ 1 ] ) > M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) )
{
H L i n e C r e a t e ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ R S " , 0 , ( ( d o u b l e ( a r r [ 1 ] ) / p o i n t ) * p o i n t ) , L i n e R e s i s t c o l o r S e c o n d , L i n e S t y l e S e c o n d , L i n e w i d t h S e c o n d , f a l s e , t r u e , f a l s e , 0 , T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) ) ;
O b j e c t C r e a t e ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ l a b e l " , O B J _ T E X T , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ R S " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t M o v e ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ l a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ R S " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t S e t T e x t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ l a b e l " , D o u b l e T o S t r i n g ( ( i n t ( d o u b l e ( a r r [ 1 ] ) / p o i n t ) * p o i n t ) , D i g i t s ) , 1 0 , " C o u r i e r N e w " , L i n e R e s i s t c o l o r S e c o n d ) ;
}
e l s e
{
H L i n e C r e a t e ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ R S " , 0 , ( ( d o u b l e ( a r r [ 1 ] ) / p o i n t ) * p o i n t ) , L i n e S u p p o r t c o l o r S e c o n d , L i n e S t y l e S e c o n d , L i n e w i d t h S e c o n d , f a l s e , t r u e , f a l s e , 0 , T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) ) ;
O b j e c t C r e a t e ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ l a b e l " , O B J _ T E X T , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ R S " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t M o v e ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ l a b e l " , 0 , l a b e l p o s i t i o n , O b j e c t G e t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ R S " , O B J P R O P _ P R I C E 1 ) ) ;
O b j e c t S e t T e x t ( " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ l a b e l " , D o u b l e T o S t r i n g ( ( i n t ( d o u b l e ( a r r [ 1 ] ) / p o i n t ) * p o i n t ) , D i g i t s ) , 1 0 , " C o u r i e r N e w " , L i n e S u p p o r t c o l o r S e c o n d ) ;
}
P i p G a p = M a t h A b s ( M a r k e t I n f o ( S y m b o l ( ) , M O D E _ B I D ) - ( ( d o u b l e ( a r r [ 1 ] ) / p o i n t ) * p o i n t ) ) ;
P i p G a p V a l u e = P i p G a p * M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K V A L U E ) / M a r k e t I n f o ( S y m b o l ( ) , M O D E _ T I C K S I Z E ) * L o t S i z e ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ l a b e 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 ( ( i n t ( d o u b l e ( a r r [ 1 ] ) / p o i n t ) * p o i n t ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ l a b e l " , O B J P R O P _ T O O L T I P , D o u b l e T o S t r i n g ( ( i n t ( d o u b l e ( a r r [ 1 ] ) / p o i n t ) * p o i n t ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
O b j e c t S e t S t r i n g ( 0 , " M a s I N _ K c S R _ " + S y m b o l ( ) + " _ " + L i n e I d + " _ Q _ R S " , O B J P R O P _ T O O L T I P , D o u b l e T o S t r i n g ( ( i n t ( d o u b l e ( a r r [ 1 ] ) / p o i n t ) * p o i n t ) , D i g i t s ) + " / " + D o u b l e T o S t r i n g ( P i p G a p / p o i n t , 1 ) + " P i p s / " + C u r r e n c y F o r m a t ( P i p G a p V a l u e , 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 r r e n c y S y m b o l R i g h t ) ) ;
}
}
}
F i l e C l o s e ( h a n d l e ) ;
}
}
r e t u r n ( 0 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
/ / | S p e c i a l B a c k u p |
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
i n t S a v e S u p p o r t R e s i s t a n c e T o F i l e B a c k u p ( )
{
i n t h a n d l e = F i l e O p e n ( " S u p p o r t R e s i s t a n c e - " + S y m b o l ( ) + " - " + T i m e T o S t r i n g ( T i m e C u r r e n t ( ) , T I M E _ D A T E ) + " . c s v " , F I L E _ C S V | F I L E _ R E A D | F I L E _ W R I T E , ' ; ' ) ;
i f ( h a n d l e < 1 )
{
r e t u r n ( f a l s e ) ;
}
e l s e
{
f o r ( i n t i = O b j e c t s T o t a l ( ) - 1 ; i > = 0 ; i - - )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " M a s I N _ K c S R _ " + S y m b o l ( ) ) > - 1 )
{
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ A _ R S " ) > - 1 )
{
F i l e W r i t e ( h a n d l e , S y m b o l ( ) , O b j e c t G e t ( O b j e c t N a m e ( i ) , O B J P R O P _ P R I C E 1 ) , " A " ) ;
}
i f ( S t r i n g F i n d ( O b j e c t N a m e ( i ) , " _ Q _ R S " ) > - 1 )
{
F i l e W r i t e ( h a n d l e , S y m b o l ( ) , O b j e c t G e t ( O b j e c t N a m e ( i ) , O B J P R O P _ P R I C E 1 ) , " Q " ) ;
}
}
}
}
F i l e C l o s e ( h a n d l e ) ;
r e t u r n ( 0 ) ;
}
/ / + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - +
Comments