I Found Interesting Indicators Based on Mq4 I Need It Eld

[Guest alina]

I found interesting indicators based on Mq4 and would be happy to have them available for TS.

 

Many thx in advance,

[Guest alina]

DefineDLLFunc: "ABS1LOCK32.dll", FLOAT, "LTCalcRef" , LPFLOAT ,LPFLOAT ,LPFLOAT ,LPFLOAT ,LPSTR ;

DefineDLLFunc: "ABS1LOCK32.dll", FLOAT, "LTCalcVal" , FLOAT ,FLOAT ,FLOAT ,FLOAT ,LPSTR ;

DefineDLLFunc: "ABS1LOCK32.dll", BOOL, "LTInitializeFromINI" ;

DefineDLLFunc: "C:\ASCTREND\ABLEDC32.DLL", LONG, "recover23" , INT ,FLOAT ;

DefineDLLFunc: "C:\ASCTREND\ASCGVLTD.DLL", BOOL, "Active_ASCGV" , LPSTR ;

DefineDLLFunc: "C:\ASCTREND\ASCGVLTD.DLL", BOOL, "Save_ASC_Data" , LONG ,FLOAT ;

DefineDLLFunc: "C:\ASCTREND\ASCLTD351.DLL", FLOAT, "JESSD" , FLOAT ,FLOAT ,FLOAT ,FLOAT ,FLOAT ,FLOAT ;

DefineDLLFunc: "C:\ASCTREND\ASCLTD351.DLL", FLOAT, "BS105" , FLOAT ,FLOAT ,FLOAT ,FLOAT ,FLOAT ;

DefineDLLFunc: "C:\ASCTREND\ASCLTD351.DLL", FLOAT, "SS105" , FLOAT ,FLOAT ,FLOAT ,FLOAT ,FLOAT ;

DefineDLLFunc: "C:\ASCTREND\ASCLTD351.DLL", FLOAT, "BS0" , FLOAT ,FLOAT ,FLOAT ,FLOAT ,FLOAT ,FLOAT ,FLOAT ;

DefineDLLFunc: "C:\ASCTREND\ASCLTD351.DLL", FLOAT, "SS0" , FLOAT ,FLOAT ,FLOAT ,FLOAT ,FLOAT ,FLOAT ,FLOAT ;

DefineDLLFunc: "C:\ASCTREND\ASCLTD351.DLL", FLOAT, "BS2" , FLOAT ,FLOAT ,FLOAT ,FLOAT ,FLOAT ;

DefineDLLFunc: "C:\ASCTREND\ASCLTD351.DLL", FLOAT, "ASCRateD" , FLOAT ,FLOAT ,FLOAT ,FLOAT ;

Inputs: RISK(3), MONYRISK(1.5000000000), ASCMODE(11), AlertID(3001), BarID(4001);

Inputs: PASS(777);

Variables: B8$168SYCSL(FALSE), AQ08BVT521DS(FALSE), Y2KYEAR(21), TDte(971010);

Variables: Dte1(971011), Dte2(971012), ATBQPS1(25901736), ATBQPS2(49014288), ATBQPS3(50152888);

Variables: ATBQPS4(25108528), BLKX(12245678), ConvCurrent(0), ConvDate(0), ConvTDte(0);

Variables: ConvDte1(0), ConvDte2(0), Passcode(694002560), OK(FALSE), OK1(FALSE);

Variables: OK2(FALSE), value1(1), value2(18), value3(9), value20(70), value21(30);

Variables: value12(1000000), value8(1000000), value14(1000000), value18(0), value19(0);

Variables: value4(0), value15(0), value16(0), value17(0), condition1(FALSE), condition2(FALSE);

Variables: value5(0), value41(0), value42(0), value7(0), value43(0), value44(0);

Variables: value13(0), value9(0), value11(0), value10(0);

 

{ Code here }

IF CURRENTBAR = 1 THEN

BEGIN IF LTInitializeFromINI AND ( LTCalcVal ( 1 , 901 , 176200 , 77788 , "ZhUbUeUiMMd" ) = 254890 ) THEN CONDITION0 = TRUE ELSE CONDITION0 = FALSE ;

IF CONDITION0 THEN PRINT ( DATE : 8 : 0 , CURRENTTIME : 6 : 0 , ", ABS1LOCK initialized successfully." ) ELSE PRINT ( DATE : 8 : 0 , CURRENTTIME : 6 : 0 , ", ABS1LOCK failed to initialize. Contact AbleSys Corporation." ) ;

BLKX = recover23 ( 1 , 18950516 ) ;

TDte = recover23 ( 2 , 18950516 ) ;

Dte1 = recover23 ( 3 , 18950516 ) ;

Dte2 = recover23 ( 4 , 18950516 ) ;

ATBQPS1 = recover23 ( 5 , 18950516 ) ;

ATBQPS2 = recover23 ( 6 , 18950516 ) ;

ATBQPS3 = recover23 ( 7 , 18950516 ) ;

ATBQPS4 = recover23 ( 8 , 18950516 ) ;

IF YEAR ( CURRENTDATE ) < Y2KYEAR THEN ConvCurrent = CURRENTDATE + 1000000 ELSE ConvCurrent = CURRENTDATE ;

IF YEAR ( LastCalcDate ) < Y2KYEAR THEN ConvDate = LastCalcDate + 1000000 ELSE ConvDate = DATE ;

IF YEAR ( TDte ) < Y2KYEAR THEN ConvTDte = TDte + 1000000 ELSE ConvTDte = TDte ;

IF YEAR ( Dte1 ) < Y2KYEAR THEN ConvDte1 = Dte1 + 1000000 ELSE ConvDte1 = Dte1 ;

IF YEAR ( Dte2 ) < Y2KYEAR THEN ConvDte2 = Dte2 + 1000000 ELSE ConvDte2 = Dte2 ;

IF ConvCurrent > ConvTDte AND ConvCurrent <= ConvDte1 AND ConvDate <= ConvDte1 AND ( ( PASS = 777 ) OR ( PASS = ATBQPS1 ) ) THEN CONDITION1 = TRUE ELSE

BEGIN CONDITION1 = FALSE ;

END ;

IF ( ConvCurrent > ConvDte1 OR ConvDate > ConvDte1 ) THEN CONDITION1 = FALSE ;

IF ConvCurrent > ConvDte1 AND ConvDate <= ConvDte2 AND ConvCurrent <= ConvDte2 THEN

BEGIN IF ( ( PASS = ATBQPS1 ) OR ( PASS = ATBQPS3 ) ) THEN CONDITION1 = TRUE ELSE CONDITION1 = FALSE ;

END ;

IF ( ConvCurrent > ConvDte2 OR ConvDate > ConvDte2 ) THEN CONDITION1 = FALSE ;

IF ConvCurrent > ConvDte2 THEN

BEGIN IF ( PASS = ATBQPS3 ) THEN CONDITION1 = TRUE ELSE CONDITION1 = FALSE ;

END ;

IF YEAR ( CURRENTDATE ) < Y2KYEAR AND YEAR ( LastCalcDate ) < Y2KYEAR AND ( DATETOJULIAN ( CURRENTDATE ) < ( DATETOJULIAN ( LastCalcDate ) - 31 ) ) THEN CONDITION1 = FALSE ;

IF YEAR ( CURRENTDATE ) < Y2KYEAR AND YEAR ( LastCalcDate ) >= Y2KYEAR AND ( DATETOJULIAN ( 991231 ) + DATETOJULIAN ( CURRENTDATE ) ) < ( DATETOJULIAN ( LastCalcDate ) - 31 ) THEN CONDITION1 = FALSE ;

IF YEAR ( CURRENTDATE ) >= Y2KYEAR AND YEAR ( LastCalcDate ) >= Y2KYEAR AND ( DATETOJULIAN ( CURRENTDATE ) < ( DATETOJULIAN ( LastCalcDate ) - 31 ) ) THEN CONDITION1 = FALSE ;

END ;

IF CONDITION0 AND CONDITION1 THEN

BEGIN IF CURRENTBAR = 1 THEN

BEGIN CONDITION17 = Active_ASCGV ( "260171499526ZA" ) ;

CONDITION18 = Save_ASC_Data ( BarID , 1 ) ;

CONDITION19 = Save_ASC_Data ( AlertID , 0 ) ;

value20 = LTCalcVal ( 3 , 20 , 50 , RISK , "bhUZneU" ) ;

value21 = LTCalcVal ( 3 , 20 , 50 , RISK , "bhnZUeniABQ" ) ;

value1 = LTCalcVal ( 1 , 1.6180000305 , 2.6180000305 , RISK , "ZhAbKe" ) ;

value2 = LTCalcVal ( 1 , 3 , 18 , value1 , "ZYKehRbUiput" ) ;

END ;

IF Range = 0 THEN value18 = Average ( ABSVALUE ( CLOSE - CLOSE [ 3 ] ) , 10 ) ELSE value18 = Average ( Range , 10 ) ;

value19 = 1 * value18 * BIGPOINTVALUE ;

value4 = value3 ;

IF MRO ( ABSVALUE ( OPEN - CLOSE [ 1 ] ) >= value18 * 2 , 9 , 1 ) > - 1 THEN value4 = 3 ELSE value4 = value3 ;

IF MRO ( ABSVALUE ( CLOSE [ 3 ] - CLOSE ) >= value18 * 4.5999999046 , 6 , 1 ) > - 1 THEN value4 = 4 ELSE value4 = value3 ;

value15 = Average ( CLOSE , 9 ) ;

value16 = Average ( CLOSE , value2 ) ;

value17 = BS2 ( Highest ( HIGH , value4 ) , Lowest ( LOW , value4 ) , CLOSE , Passcode ) ;

IF LTCalcVal ( value17 , 20 , 50 , RISK , "eYKhbUZE" ) = 1 THEN

BEGIN CONDITION34 = TRUE ;

CONDITION35 = FALSE ;

END ;

IF LTCalcVal ( value17 , 20 , 50 , RISK , "bhnZEio" ) = - 1 THEN

BEGIN CONDITION34 = FALSE ;

CONDITION35 = TRUE ;

END ;

value5 = ASCRATED ( HIGH , LOW , HIGH [ value1 ] , LOW [ value1 ] , CLOSE [ value1 ] , Passcode ) ;

LTCalcVal ( value5 , value5 [ 1 ] , value5 [ 2 ] , LOW [ 1 ] , "ZaAhaBbaCeaD" ) ;

value41 = LTCalcVal ( value20 , value2 , HIGH [ 5 ] , 0.3819999993 , "tAtBEXZ2qYiF2tBtCEXq3qYiF3tDtBEXZ4qYiF4q" ) ;

LTCalcVal ( value5 [ 1 ] , value5 [ 2 ] , value5 [ 3 ] , LOW [ 1 ] , "ZaAhaBbaCeaD" ) ;

value42 = LTCalcVal ( value21 , value1 , LOW [ 5 ] , 0.3819999993 , "tAtBEXZ2qYiF2tBtCEXq3qYiF3tDtAEXZ4qYiF4q" ) ;

IF value41 = 1 OR value42 = 1 THEN value7 = value5 [ 1 ] - ( 0.3819999993 + 0.1000000015 * RISK ) * value18 ;

LTCalcVal ( value5 , value5 [ 1 ] , value5 [ 2 ] , HIGH [ 1 ] , "ZaAhaBbaCeaD" ) ;

value43 = LTCalcVal ( value20 , value2 , HIGH [ 5 ] , 0.3819999993 , "tAtBEXq2qYiF2tBtCEXZ3qYiF3tDtBEXq4qYiF4q" ) ;

LTCalcVal ( value5 [ 1 ] , value5 [ 2 ] , value5 [ 3 ] , HIGH [ 1 ] , "ZaAhaBbaCeaD" ) ;

value44 = LTCalcVal ( value21 , value1 , LOW [ 5 ] , 0.3819999993 , "tAtBEXq2qYiF2tBtCEXZ3qYiF3tDtAEXq4qYiF4q" ) ;

IF value43 = 1 OR value44 = 1 THEN value8 = value5 [ 1 ] + ( 0.3819999993 + 0.1000000015 * RISK ) * value18 ;

IF value17 [ 1 ] < value20 AND value17 >= value20 THEN value13 = TrueLow - 0.1000000015 * RISK * value18 ;

IF value17 [ 1 ] > value21 AND value17 <= value21 THEN value14 = TrueHigh + 0.1000000015 * RISK * value18 ;

IF ABSVALUE ( OPEN - CLOSE [ 1 ] ) >= value18 * 1.6180000305 THEN

BEGIN IF value17 [ 1 ] < value20 AND value17 >= value20 THEN value13 = LOW - 0.1000000015 * RISK * value18 ;

IF value17 [ 1 ] > value21 AND value17 <= value21 THEN value14 = HIGH + 0.1000000015 * RISK * value18 ;

END ;

value9 = JESSD ( LOW , 1.6180000305 , value18 , value11 , Passcode ) ;

value10 = BS105 ( HIGH , 1.6180000305 , value18 , value12 , Passcode ) ;

value11 = SS105 ( LOW , value20 , value9 , RISK , value19 , BIGPOINTVALUE , Passcode ) ;

value12 = BS0 ( HIGH , value20 , value10 , RISK , value19 , BIGPOINTVALUE , Passcode ) ;

IF LOW - value11 > MONYRISK * value18 THEN value11 = LOW - ( 1 + 0.1000000015 * RISK ) * value18 ;

IF value12 - HIGH > MONYRISK * value18 THEN value12 = HIGH + ( 1 + 0.1000000015 * RISK ) * value18 ;

IF value15 >= value16 AND value7 >= value11 THEN value11 = value7 ;

IF value15 <= value16 AND value8 <= value12 THEN value12 = value8 ;

IF value15 <= value16 AND value7 <= value11 THEN value11 = value7 ;

IF value15 >= value16 AND value8 >= value12 THEN value12 = value8 ;

IF value13 > value11 THEN value11 = value13 ;

IF value14 < value12 THEN value12 = value14 ;

IF MRO ( value17 > value20 , 2 , 2 ) > - 1 AND value11 <= value11 [ 1 ] THEN value11 = value11 [ 1 ] ;

IF MRO ( value17 < value21 , 2 , 2 ) > - 1 AND value12 >= value12 [ 1 ] THEN value12 = value12 [ 1 ] ;

IF value11 > 0 AND CONDITION34 AND CLOSE > ASCVTV2 ( 14 , 3 , 100188 ) AND value11 <= HIGH THEN PLOT1 ( value11 , "BuyStop3" ) ;

IF value12 > 0 AND CONDITION35 AND CLOSE < ASCVTV2 ( 14 , 3 , 100188 ) AND value12 >= LOW THEN PLOT2 ( value12 , "SellStop3" ) ;

IF ( ASCMODE = 1 ) THEN

BEGIN IF value17 > value20 AND CLOSE [ 1 ] < value12 [ 1 ] AND CLOSE > value12 THEN

BEGIN CONDITION18 = BuyAlertSound03 ( AlertID , BarID , "USK$0828AL73F" ) ;

PLOT3 ( value12 , "BOBuy" ) ;

END ;

IF value17 < value21 AND CLOSE [ 1 ] > value11 [ 1 ] AND CLOSE < value11 THEN

BEGIN CONDITION19 = SellAlertSound03 ( AlertID , BarID , "USK$0828AL73F" ) ;

PLOT4 ( value11 , "BOSell" ) ;

END ;

END ;

IF ( ASCMODE = 11 ) THEN

BEGIN IF value17 > value20 AND CLOSE [ 1 ] < value12 [ 1 ] AND CLOSE > value12 THEN

BEGIN ALERT ( "ASCTrend3 BreakOut Buy Setup for " + GETSYMBOLNAME + " at price " + NUMTOSTR ( value12 , 3 ) ) ;

PLOT3 ( value12 , "BOBuy" ) ;

END ;

IF value17 < value21 AND CLOSE [ 1 ] > value11 [ 1 ] AND CLOSE < value11 THEN

BEGIN ALERT ( "ASCTrend3 BreakOut Sell Setup for " + GETSYMBOLNAME + " at price " + NUMTOSTR ( value11 , 3 ) ) ;

PLOT4 ( value11 , "BOSell" ) ;

END ;

END ;

END ;

[HAL9000 10]

 

IF CONDITION0

THEN PRINT ( DATE : 8 : 0 , CURRENTTIME : 6 : 0 , ", ABS1LOCK initialized successfully." )

ELSE PRINT ( DATE : 8 : 0 , CURRENTTIME : 6 : 0 , ", ABS1LOCK failed to initialize. Contact AbleSys Corporation." ) ;

 

 

 

Hi,

 

maybe you should contact the mentioned corporation for help.

 

Hal

[Power555 10]

Alina-

 

Why is this code interesting? What is it supposed to be used for?