#property copyright "MRD-pipqueen"
#property link "http://www.metaquotes.net"
#property version "1.00"
#property strict
#include <stdlib.mqh>
#include <WinUser32.mqh>
#include <ChartObjects\ChartObjectsTxtControls.mqh>
#define BullColor clrGreen //when 5 day ema is above 15 day ema
//#define CrossAColor clrSpringGreen //when 5 day ema is within 15 day range above
#define BearColor clrFireBrick //when 5 day ema is below 15 day ema
//#define CrossBColor clrLightCoral //when 5 day ema is within 15 ema range below
input string suffix ="";
input int Magic_Number = 1234;
input double lot = 0.05; //lot for small order
input double lot_Stoploss = 0.0; //stoploss for small order
input double lot_Target = 0.0; //target for small order
input double TOR_lot = 0.10; //lot for Big Order
input double TOR_lot_Stoploss = 20; //stoploss for Big Order
input double TOR_lot_Target = 20; //target for Big Order
input int Basket_Target = 0.0; //target for Big Order
input int Basket_StopLoss = 0;
input int x_axis =10;
input int y_axis =50;
input int z_axis =5;
/*string TradePair[28]={ "EURUSD", "GBPUSD", "AUDUSD", "USDJPY", "USDCHF", "USDCAD", "EURAUD",
"EURCAD", "EURCHF", "EURGBP", "EURJPY", "GBPJPY", "GBPCHF", "NZDUSD",
"AUDCAD", "AUDJPY", "CHFJPY", "AUDNZD", "NZDJPY", "NZDCHF",
"GBPNZD", "EURNZD", "GBPCAD", "GBPAUD", "AUDCHF", "CADCHF", "CADJPY"}; */
string button_chart_1 = "chart_op_1";
string button_chart_2 = "chart_op_2";
string button_chart_3 = "chart_op_3";
string button_chart_4 = "chart_op_4";
string button_chart_5 = "chart_op_5";
string button_chart_6 = "chart_op_6";
string button_chart_7 = "chart_op_7";
string button_chart_8 = "chart_op_8";
string button_chart_9 = "chart_op_9";
string button_chart_10 = "chart_op_10";
string button_chart_11 = "chart_op_11";
string button_chart_12 = "chart_op_12";
string button_chart_13 = "chart_op_13";
string button_chart_14 = "chart_op_14";
string button_chart_15 = "chart_op_15";
string button_chart_16 = "chart_op_16";
string button_chart_17 = "chart_op_17";
string button_chart_18 = "chart_op_18";
string button_chart_19 = "chart_op_19";
string button_chart_20 = "chart_op_20";
string button_chart_21 = "chart_op_21";
string button_chart_22 = "chart_op_22";
string button_chart_23 = "chart_op_23";
string button_chart_24 = "chart_op_24";
string button_chart_25 = "chart_op_25";
string button_chart_26 = "chart_op_26";
string button_chart_27 = "chart_op_27";
string button_chart_28 = "chart_op_28";
string button_close_basket_All = "btn_Close ALL";
string button_buy_basket_1 = "btn_buy_basket";
string button_sell_basket_1 = "btn_sell_basket";
string button_close_basket_1 = "btn_Close Order";
string button_buy_basket_2 = "btn_buy_basket2";
string button_sell_basket_2 = "btn_sell_basket2";
string button_close_basket_2 = "btn_Close Order2";
string button_buy_basket_3 = "btn_buy_basket3";
string button_sell_basket_3 = "btn_sell_basket3";
string button_close_basket_3 = "btn_Close Order3";
string button_buy_basket_4 = "btn_buy_basket4";
string button_sell_basket_4 = "btn_sell_basket4";
string button_close_basket_4 = "btn_Close Order4";
string button_buy_basket_5 = "btn_buy_basket5";
string button_sell_basket_5 = "btn_sell_basket5";
string button_close_basket_5 = "btn_Close Order5";
string button_buy_basket_6 = "btn_buy_basket6";
string button_sell_basket_6 = "btn_sell_basket6";
string button_close_basket_6 = "btn_Close Order6";
string button_buy_basket_7 = "btn_buy_basket7";
string button_sell_basket_7 = "btn_sell_basket7";
string button_close_basket_7 = "btn_Close Order7";
string button_buy_basket_8 = "btn_buy_basket8";
string button_sell_basket_8 = "btn_sell_basket8";
string button_close_basket_8 = "btn_Close Order8";
string button_buy_basket_9 = "btn_buy_basket9";
string button_sell_basket_9 = "btn_sell_basket9";
string button_close_basket_9 = "btn_Close Order9";
string button_buy_basket_10 = "btn_buy_basket10";
string button_sell_basket_10 = "btn_sell_basket10";
string button_close_basket_10 = "btn_Close Order10";
string button_buy_basket_11 = "btn_buy_basket11";
string button_sell_basket_11 = "btn_sell_basket11";
string button_close_basket_11 = "btn_Close Order11";
string button_buy_basket_12 = "btn_buy_basket12";
string button_sell_basket_12 = "btn_sell_basket12";
string button_close_basket_12 = "btn_Close Order12";
string button_buy_basket_13 = "btn_buy_basket13";
string button_sell_basket_13 = "btn_sell_basket13";
string button_close_basket_13 = "btn_Close Order13";
string button_buy_basket_14 = "btn_buy_basket14";
string button_sell_basket_14 = "btn_sell_basket14";
string button_close_basket_14 = "btn_Close Order14";
string button_buy_basket_15 = "btn_buy_basket15";
string button_sell_basket_15 = "btn_sell_basket15";
string button_close_basket_15 = "btn_Close Order15";
string button_buy_basket_16 = "btn_buy_basket16";
string button_sell_basket_16 = "btn_sell_basket16";
string button_close_basket_16 = "btn_Close Order16";
string button_buy_basket_17 = "btn_buy_basket17";
string button_sell_basket_17 = "btn_sell_basket17";
string button_close_basket_17 = "btn_Close Order17";
string button_buy_basket_18 = "btn_buy_basket18";
string button_sell_basket_18 = "btn_sell_basket18";
string button_close_basket_18 = "btn_Close Order18";
string button_buy_basket_19 = "btn_buy_basket19";
string button_sell_basket_19 = "btn_sell_basket19";
string button_close_basket_19 = "btn_Close Order19";
string button_buy_basket_20 = "btn_buy_basket20";
string button_sell_basket_20 = "btn_sell_basket20";
string button_close_basket_20 = "btn_Close Order20";
string button_buy_basket_21 = "btn_buy_basket21";
string button_sell_basket_21 = "btn_sell_basket21";
string button_close_basket_21 = "btn_Close Order21";
string button_buy_basket_22 = "btn_buy_basket22";
string button_sell_basket_22 = "btn_sell_basket22";
string button_close_basket_22 = "btn_Close Order22";
string button_buy_basket_23 = "btn_buy_basket23";
string button_sell_basket_23 = "btn_sell_basket23";
string button_close_basket_23 = "btn_Close Order23";
string button_buy_basket_24 = "btn_buy_basket24";
string button_sell_basket_24 = "btn_sell_basket24";
string button_close_basket_24 = "btn_Close Order24";
string button_buy_basket_25 = "btn_buy_basket25";
string button_sell_basket_25 = "btn_sell_basket25";
string button_close_basket_25 = "btn_Close Order25";
string button_buy_basket_26 = "btn_buy_basket26";
string button_sell_basket_26 = "btn_sell_basket26";
string button_close_basket_26 = "btn_Close Order26";
string button_buy_basket_27 = "btn_buy_basket27";
string button_sell_basket_27 = "btn_sell_basket27";
string button_close_basket_27 = "btn_Close Order27";
string button_buy_basket_28 = "btn_buy_basket28";
string button_sell_basket_28 = "btn_sell_basket28";
string button_close_basket_28 = "btn_Close Order28";
string button_buy_basket_29 = "btn_buy_basket29";
string button_sell_basket_29 = "btn_sell_basket29";
string button_close_basket_29 = "btn_Close Order29";
string button_buy_basket_30 = "btn_buy_basket30";
string button_sell_basket_30 = "btn_sell_basket30";
string button_close_basket_30 = "btn_Close Order30";
string button_buy_basket_31 = "btn_buy_basket31";
string button_sell_basket_31 = "btn_sell_basket31";
string button_close_basket_31 = "btn_Close Order31";
string button_buy_basket_32 = "btn_buy_basket32";
string button_sell_basket_32 = "btn_sell_basket32";
string button_close_basket_32 = "btn_Close Order32";
string button_buy_basket_33 = "btn_buy_basket33";
string button_sell_basket_33 = "btn_sell_basket33";
string button_close_basket_33 = "btn_Close Order33";
string button_buy_basket_34 = "btn_buy_basket34";
string button_sell_basket_34 = "btn_sell_basket34";
string button_close_basket_34 = "btn_Close Order34";
string button_buy_basket_35 = "btn_buy_basket35";
string button_sell_basket_35 = "btn_sell_basket35";
string button_close_basket_35 = "btn_Close Order35";
string button_buy_basket_36 = "btn_buy_basket36";
string button_sell_basket_36 = "btn_sell_basket36";
string button_close_basket_36 = "btn_Close Order36";
//+------
string button_AT_1 = "btn_autotrade_pair1";
string button_AT_T1 = "btn_TORT_autotrade_pair1";
string button_AT_2 = "btn_autotrade_pair2";
string button_AT_T2 = "btn_TORT_autotrade_pair2";
string button_AT_3 = "btn_autotrade_pair3";
string button_AT_T3 = "btn_TORT_autotrade_pair3";
string button_AT_4 = "btn_autotrade_pair4";
string button_AT_T4 = "btn_TORT_autotrade_pair4";
string button_AT_5 = "btn_autotrade_pair5";
string button_AT_T5 = "btn_TORT_autotrade_pair5";
string button_AT_6 = "btn_autotrade_pair6";
string button_AT_T6 = "btn_TORT_autotrade_pair6";
string button_AT_7 = "btn_autotrade_pair7";
string button_AT_T7 = "btn_TORT_autotrade_pair7";
string button_AT_8 = "btn_autotrade_pair8";
string button_AT_T8 = "btn_TORT_autotrade_pair8";
string button_AT_9 = "btn_autotrade_pair9";
string button_AT_T9 = "btn_TORT_autotrade_pair9";
string button_AT_10 = "btn_autotrade_pair10";
string button_AT_T10 = "btn_TORT_autotrade_pair10";
string button_AT_11 = "btn_autotrade_pair11";
string button_AT_T11 = "btn_TORT_autotrade_pair11";
string button_AT_12 = "btn_autotrade_pair12";
string button_AT_T12 = "btn_TORT_autotrade_pair12";
string button_AT_13 = "btn_autotrade_pair13";
string button_AT_T13 = "btn_TORT_autotrade_pair13";
string button_AT_14 = "btn_autotrade_pair14";
string button_AT_T14 = "btn_TORT_autotrade_pair14";
string button_AT_15 = "btn_autotrade_pair15";
string button_AT_T15 = "btn_TORT_autotrade_pair15";
string button_AT_16 = "btn_autotrade_pair16";
string button_AT_T16 = "btn_TORT_autotrade_pair16";
string button_AT_17 = "btn_autotrade_pair17";
string button_AT_T17 = "btn_TORT_autotrade_pair17";
string button_AT_18 = "btn_autotrade_pair18";
string button_AT_T18 = "btn_TORT_autotrade_pair18";
string button_AT_19 = "btn_autotrade_pair19";
string button_AT_T19 = "btn_TORT_autotrade_pair19";
string button_AT_20 = "btn_autotrade_pair20";
string button_AT_T20 = "btn_TORT_autotrade_pair20";
string button_AT_21 = "btn_autotrade_pair21";
string button_AT_T21 = "btn_TORT_autotrade_pair21";
string button_AT_22 = "btn_autotrade_pair22";
string button_AT_T22 = "btn_TORT_autotrade_pair22";
string button_AT_23 = "btn_autotrade_pair23";
string button_AT_T23 = "btn_TORT_autotrade_pair23";
string button_AT_24 = "btn_autotrade_pair24";
string button_AT_T24 = "btn_TORT_autotrade_pair24";
string button_AT_25 = "btn_autotrade_pair25";
string button_AT_T25 = "btn_TORT_autotrade_pair25";
string button_AT_26 = "btn_autotrade_pair26";
string button_AT_T26 = "btn_TORT_autotrade_pair26";
string button_AT_27 = "btn_autotrade_pair27";
string button_AT_T27 = "btn_TORT_autotrade_pair27";
string button_AT_28 = "btn_autotrade_pair28";
string button_AT_T28 = "btn_TORT_autotrade_pair28";
//buttons for HARE trade inputs
string button_H1 = "btn_H_lot_input1";
string button_H2 = "btn_H_lot_input2";
string button_H3 = "btn_H_lot_input3";
string button_H4 = "btn_H_lot_input4";
string button_H5 = "btn_H_lot_input5";
string button_H6 = "btn_H_lot_input6";
string button_H7 = "btn_H_lot_input7";
string button_H8 = "btn_H_lot_input8";
string button_H9 = "btn_H_TP_input9";
string button_H10 = "btn_H_TP_input10";
string button_H11 = "btn_H_TP_input11";
string button_H12 = "btn_H_TP_input12";
//buttons for TORTOISE trade inputs
string button_T1 = "btn_T_lot_input1";
string button_T2 = "btn_T_lot_input2";
string button_T3 = "btn_T_lot_input3";
string button_T4 = "btn_T_lot_input4";
string button_T5 = "btn_T_lot_input5";
string button_T6 = "btn_T_lot_input6";
string button_T7 = "btn_T_lot_input7";
string button_T8 = "btn_T_lot_input8";
string button_T9 = "btn_T_TP_input9";
string button_T10 = "btn_T_TP_input10";
string button_T11 = "btn_T_TP_input11";
string button_T12 = "btn_T_TP_input12";
//+------
string _font="Consolas";
string ALPair="blank";
string ALColor="blank";
string NowCol="blank";
double PairPip;
double Pips[28],Spread[28],Signalm1[28],Signalm5[28],Signalm15[28],Signalm30[28],Signalh1[28],Signalh4[28],Signald1[28],
Signalw1[28],Signalmn[28],Signalhah4[28],Signalhad1[28],Signalhaw1[28],Signaladx[28],Mam1[28],Mam5[28],Mam15[28],Mam30[28],Mah1[28],
Mah4[28],Map[28],Maw1[28],Mamn[28],Test1[28],Test2[28],TestTemp1[28],TestTemp2[28],Test1Co[28],Test2Co[28],SARco[28],ABStemp[28],BS[28],isCrossed[28];
color ProfitColor,ProfitColor1,ProfitColor2,ProfitColor3,PipsColor,AdxColor,Color,Color1,Color2,Color3,Color4,Color5,Color6,Color7,Color8,Color9,Color10,
Color11,Color12,Color13,Color14,Color15,Color16,Color17,Color18,Color19,LotColor,LotColor1,OrdColor,OrdColor1;
color BackGrnCol =clrDarkGray;
color LineColor=clrBlack;
color TextColor=clrBlack;
double adr1[28],adr5[28],adr10[28],adr20[28],adr[28],Cclose[28];
double adx[28],rsi[28],sar[28];
int ticket,pipsfactor;
int orders = 0;
int ATCol_1=0,ATCol_2=0,ATCol_3=0,ATCol_4=0,ATCol_5=0,ATCol_6=0,ATCol_7=0,ATCol_8=0,ATCol_9=0,ATCol_10=0;
int ATCol_11=0,ATCol_12=0,ATCol_13=0,ATCol_14 =0,ATCol_15=0,ATCol_16=0,ATCol_17=0,ATCol_18=0,ATCol_19=0,ATCol_20=0;
int ATCol_21=0,ATCol_22=0,ATCol_23=0,ATCol_24 =0,ATCol_25=0,ATCol_26=0,ATCol_27=0,ATCol_28=0;
int ATCol_T1=0,ATCol_T2=0,ATCol_T3=0,ATCol_T4=0,ATCol_T5=0,ATCol_T6=0,ATCol_T7=0,ATCol_T8=0,ATCol_T9=0,ATCol_T10=0;
int ATCol_T11=0,ATCol_T12=0,ATCol_T13=0,ATCol_T14 =0,ATCol_T15=0,ATCol_T16=0,ATCol_T17=0,ATCol_T18=0,ATCol_T19=0,ATCol_T20=0;
int ATCol_T21=0,ATCol_T22=0,ATCol_T23=0,ATCol_T24 =0,ATCol_T25=0,ATCol_T26=0,ATCol_T27=0,ATCol_T28=0;
int H_TP=0.0,H_SL=0.0,TOR_TP=0.0,TOR_SL=0.0;
double H_Lot=0.01,TOR_Lot=0.01;
string temp_lot="";
string temp_lotc="";
double blots[28],slots[28],bprofit[28],sprofit[28],tprofit[28],bpos[28],spos[28];
bool CloseAll;
string TradePair[];
string TradePair2[];
int SymbolCount;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int OnInit()
{
CreateSymbolList();
OnTick();
//--- indicator buffers mapping
EventSetTimer(1);
//---
return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Cross Function |
//+------------------------------------------------------------------+
int Crossed(double line1,double line2)
{
static int last_direction=0;
static int current_direction=0;
if(line1>line2)current_direction = 1; //up
if(line1<line2)current_direction = 2; //down
//
if(current_direction!=last_direction) //changed-NOT EQUAL TO
{
last_direction=current_direction;
return (last_direction);
}
else
{
return (0);
}
}
//+------------------------------------------------------------------+
//| Expert deinitialization function |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
//--- destroy timer
EventKillTimer();
ObjectsDeleteAll();
}
//--------------------------------------------------------------------------------------------
string Currency[] = { "USD", "EUR", "GBP", "CHF", "JPY", "AUD", "CAD", "NZD" };
string CreateSymbolList() {
string allsyms;
string TempSymbol;
int Sym = ArrayRange(Currency, 0);
for (int i = 0; i < Sym; i++) {
for (int a = 0; a < Sym; a++) {
TempSymbol = Currency[i] + Currency[a] + suffix;
if (MarketInfo(TempSymbol, MODE_BID) > 0.0) {
ArrayResize(TradePair, SymbolCount + 1);
TradePair[SymbolCount] = TempSymbol;
allsyms = allsyms + TempSymbol;
// + "\n";
SymbolCount++;
}
/* TempSymbol = Currency[i] + Currency[a] + suffix;
if (MarketInfo(TempSymbol, MODE_BID) > 0.0) {
ArrayResize(TradePair, SymbolCount + 1);
TradePair[SymbolCount] = TempSymbol;
allsyms = allsyms + TempSymbol;
// + "\n";
SymbolCount++;
}*/
}
}
return (allsyms);
}
//+------------------------------------------------------------------+
//| Expert tick function |
//+------------------------------------------------------------------+
void OnTick()
{
for(int i=0;i<ArraySize(TradePair);i++)
{
if(Point==0.0001 || Point==0.01)
{
PairPip=MarketInfo(TradePair[i],MODE_POINT);
pipsfactor=1;
} else if(Point==0.00001 || Point==0.001) {
PairPip=MarketInfo(TradePair[i],MODE_POINT)*10;
pipsfactor=10;
}
// getting info of each open/close for all time periods
Spread[i]=MarketInfo(TradePair[i],MODE_SPREAD)/pipsfactor;
double shortEmam1 = iMA(TradePair[i],PERIOD_M1,7,0,MODE_SMA,PRICE_CLOSE,0);
double longEmam1 = iMA(TradePair[i],PERIOD_M1,21,0,MODE_SMA,PRICE_CLOSE,0);
double shortEmam5 = iMA(TradePair[i],PERIOD_M5,7,0,MODE_SMA,PRICE_CLOSE,0);
double longEmam5 = iMA(TradePair[i],PERIOD_M5,21,0,MODE_SMA,PRICE_CLOSE,0);
double shortEmam15 = iMA(TradePair[i],PERIOD_M15,7,0,MODE_SMA,PRICE_CLOSE,0);
double longEmam15 = iMA(TradePair[i],PERIOD_M15,21,0,MODE_SMA,PRICE_CLOSE,0);
double shortEmam30 = iMA(TradePair[i],PERIOD_M30,7,0,MODE_SMA,PRICE_CLOSE,0);
double longEmam30 = iMA(TradePair[i],PERIOD_M30,21,0,MODE_SMA,PRICE_CLOSE,0);
double shortEmah1 = iMA(TradePair[i],PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0);
double longEmah1 = iMA(TradePair[i],PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0);
double suplongEmah1 = iMA(TradePair[i],PERIOD_H1,55,0,MODE_SMA,PRICE_CLOSE,0);
double shortEmaP = iMA(TradePair[i],PERIOD_D1,7,0,MODE_SMA,PRICE_CLOSE,0);
double longEmaP = iMA(TradePair[i],PERIOD_D1,21,0,MODE_SMA,PRICE_CLOSE,0);
double shortEma4 = iMA(TradePair[i],PERIOD_H4,7,0,MODE_SMA,PRICE_CLOSE,0);
double longEma4 = iMA(TradePair[i],PERIOD_H4,21,0,MODE_SMA,PRICE_CLOSE,0);
double shortEmaw = iMA(TradePair[i],PERIOD_W1,7,0,MODE_SMA,PRICE_CLOSE,0);
double longEmaw = iMA(TradePair[i],PERIOD_W1,21,0,MODE_SMA,PRICE_CLOSE,0);
double shortEmamn = iMA(TradePair[i],PERIOD_MN1,7,0,MODE_SMA,PRICE_CLOSE,0);
double longEmamn = iMA(TradePair[i],PERIOD_MN1,21,0,MODE_SMA,PRICE_CLOSE,0);
Pips[i]=(iClose(TradePair[i],PERIOD_D1,0)-iOpen(TradePair[i], PERIOD_D1,0))/MarketInfo(TradePair[i],MODE_POINT)/pipsfactor;
//calculate distance between ma5 and ma15
Mam1[i]=(shortEmam1-longEmam1)/PairPip;
Mam5[i]=(shortEmam5-longEmam5)/PairPip;
Mam15[i]=(shortEmam15-longEmam15)/PairPip;
Mam30[i]=(shortEmam30-longEmam30)/PairPip;
Mah1[i]=(shortEmah1-longEmah1)/PairPip;
Mah4[i]=(shortEma4-longEma4)/PairPip;
Map[i]=(shortEmaP-longEmaP)/PairPip;
Maw1[i]=(shortEmaw-longEmaw)/PairPip;
Mamn[i]=(shortEmamn-longEmamn)/PairPip;
//calculate Mam15[i], make absolute, and put into new array for testing strength
ABStemp[i]=MathAbs(Mam15[i]);
int maxVal=ArrayMaximum(ABStemp,WHOLE_ARRAY,0);//Mam15[maxVal] is the best pair right now
//calculate average of m15 and m30 for test1
TestTemp1[i]=MathAbs(Mam15[i]);//testing the average of m15 and m30
TestTemp2[i]=MathAbs(Mam30[i]);
Test1[i]=((TestTemp1[i]+TestTemp2[i]) / 2.0 );
Test2[i]=((TestTemp1[i]+TestTemp2[i]) / 2.0 );
int maxValT1=ArrayMaximum(TestTemp1,WHOLE_ARRAY,0);
// Test2[i]=(MathAbs(Mam15[i])+MathAbs(Mam30[i]))/2);//testing the average of m15 and m30
//check for moving averages cross here
isCrossed[i]=Crossed(shortEmam30,longEmam30);
//calculate ADX value
adx[i]=iADX(TradePair[i],PERIOD_M30,15,PRICE_CLOSE,MODE_MAIN,0);
//calculate RSI value
rsi[i]=iRSI(TradePair[i],PERIOD_M30,7,PRICE_CLOSE,0);
//calculate SAR value and color
sar[i]=iSAR(TradePair[i],PERIOD_H1,0.02,0.2,0);
Cclose[i]=iClose(TradePair[i],PERIOD_M30,0);
//determine correct color for MA squares
if(shortEmam1>longEmam1)Signalm1[i]=1;
if(shortEmam1<longEmam1)Signalm1[i]=-1;
if(shortEmam5>longEmam5)Signalm5[i]=1;
if(shortEmam5<longEmam5)Signalm5[i]=-1;
if(shortEmam15>longEmam15)Signalm15[i]=1;
if(shortEmam15<longEmam15)Signalm15[i]=-1;
if(shortEmam30>longEmam30)Signalm30[i]=1;
if(shortEmam30<longEmam30)Signalm30[i]=-1;
if(shortEmah1>longEmah1)Signalh1[i]=1;
if(shortEmah1<longEmah1)Signalh1[i]=-1;
if(shortEma4>longEma4)Signalh4[i]=1;
if(shortEma4<longEma4)Signalh4[i]=-1;
if(shortEmaP>longEmaP)Signald1[i]=1;
if(shortEmaP<longEmaP)Signald1[i]=-1;
if(shortEmaw>longEmaw)Signalw1[i]=1;
if(shortEmaw<longEmaw)Signalw1[i]=-1;
if(shortEmamn>longEmamn)Signalmn[i]=1;
if(shortEmamn<longEmamn)Signalmn[i]=-1;
//determine color of Buy/Sell square
BS[i]=6;
Test1Co[i]=6;
Test2Co[i]=6;
SARco[i]=6;
if(shortEmam30>longEmam30){BS[i]=1;}//short over long in bs
if(shortEmam30>longEmam30){Test1Co[i]=1;}//short over long in test1
if(shortEmam30>longEmam30){Test2Co[i]=1;}//short over long in test2
if(shortEmam30<longEmam30){BS[i]=4;}//long over short
if(shortEmam30<longEmam30){Test1Co[i]=4;}//short over long in test1
if(shortEmam30<longEmam30){Test2Co[i]=4;}//short over long in test2
if(i==maxVal && shortEmam30>longEmam30){BS[maxVal]=2;}//long scalp requirements in BS
if(i==maxValT1 && shortEmam30>longEmam30){Test1Co[maxValT1]=2;}//long scalp requirements in Test1
if(i==maxValT1 && shortEmam30>longEmam30 && adx[maxValT1]>30){Test2Co[maxValT1]=2;}//long scalp requirements in Test2
if(i==maxVal && shortEmam30<longEmam30){BS[maxVal]=5;}//short scalp requirements in BS
if(i==maxValT1 && shortEmam30<longEmam30){Test1Co[maxValT1]=5;}//short scalp requirements in Test1
if(i==maxValT1 && shortEmam30<longEmam30 && adx[maxValT1]>30){Test2Co[maxValT1]=5;}//short scalp requirements in Test2
//check for correct color for SAR square
if((BS[i]==2 || BS[i]==1) && sar[i]<Cclose[i]){SARco[i]=2;}
if((BS[i]==2 || BS[i]==1) && sar[i]>=Cclose[i]){SARco[i]=5;}
if((BS[i]==5 || BS[i]==4) && sar[i]>Cclose[i]){SARco[i]=5;}
if((BS[i]==5 || BS[i]==4) && sar[i]<=Cclose[i]){SARco[i]=2;}
// if(Mah1[i]>=-3 && Mah1[i]<=3){BS[i]=3;}
// BS[maxVal]=7;
// RSIPREV=0.0;
double s=0.0;
int n=1; //,v=0,v=i--;
for(int a=1;a<=20;a++)
{
s=s+(iHigh(TradePair[i],PERIOD_D1,n)-iLow(TradePair[i],PERIOD_D1,n))/PairPip;
if(a==1) adr1[i]=MathRound(s);
if(a==5) adr5[i]=MathRound(s/5);
if(a==10) adr10[i]=MathRound(s/10);
if(a==20) adr20[i]=MathRound(s/20);
n++;
}
adr[i]=MathRound((adr1[i]+adr5[i]+adr10[i]+adr20[i])/4.0);
double BB1=iMA(TradePair[i],PERIOD_H4,12,0,MODE_SMA,PRICE_CLOSE,0);
double BB10 = iMA(TradePair[i], PERIOD_D1,12,0,MODE_SMA,PRICE_CLOSE,0);
if(shortEma4>BB1 )Signalhah4[i]=1;
if(shortEma4<BB1 )Signalhah4[i]=-1;
if(shortEmaP>BB10 )Signalhad1[i]=1;
if(shortEmaP<BB10 )Signalhad1[i]=-1;
/* //determine if adx is increasing or decreasing
int v=0;
if i==1
if(adx[i]>=adx[v])Signaladx[i]=1;
if(adx[i]<=adx[v])Signaladx[i]=-1;
// double adsprev=adx[i];
*/
}
return;
}
//+------------------------------------------------------------------+
//| Timer function |
//+------------------------------------------------------------------+
void OnTimer()
{
//---
if(CloseAll)
{
close_basket(Magic_Number);
if(OrdersTotal()==0)
{
CloseAll=false;
}
}
//- Target
if(Basket_Target>0 && TotalProfit()>=Basket_Target) CloseAll=true;
//- StopLoss
if(Basket_StopLoss>0 && TotalProfit()<(0-Basket_StopLoss)) CloseAll=true;
Trades();
TotalProfit();
double ADXPREV=0.0,RSIPREV=0.0;
// int g=0;
for(int i=0;i<ArraySize(TradePair);i++)
{
ObjectDelete("Pips"+IntegerToString(i));
ObjectDelete("TtlProf"+IntegerToString(i));
ObjectDelete("bLots"+IntegerToString(i));
ObjectDelete("sLots"+IntegerToString(i));
ObjectDelete("bPos"+IntegerToString(i));
ObjectDelete("sPos"+IntegerToString(i));
ObjectDelete("TProf"+IntegerToString(i));
ObjectDelete("SProf"+IntegerToString(i));
ObjectDelete("Sig"+IntegerToString(i));
ObjectDelete("SGD"+IntegerToString(i));
ObjectDelete("TotProf");
if(blots[i]>0){LotColor =Orange;}
if(blots[i]==0){LotColor =clrWhite;}
if(slots[i]>0){LotColor1 =Orange;}
if(slots[i]==0){LotColor1 =clrWhite;}
if(bpos[i]>0){OrdColor =DodgerBlue;}
if(bpos[i]==0){OrdColor =clrWhite;}
if(spos[i]>0){OrdColor1 =DodgerBlue;}
if(spos[i]==0){OrdColor1 =clrWhite;}
if(bprofit[i]>0){ProfitColor =BullColor;}
if(bprofit[i]<0){ProfitColor =BearColor;}
if(bprofit[i]==0){ProfitColor =clrWhite;}
if(sprofit[i]>0){ProfitColor2 =BullColor;}
if(sprofit[i]<0){ProfitColor2 =BearColor;}
if(sprofit[i]==0){ProfitColor2 =clrWhite;}
if(tprofit[i]>0){ProfitColor3 =BullColor;}
if(tprofit[i]<0){ProfitColor3 =BearColor;}
if(tprofit[i]==0){ProfitColor3 =clrWhite;}
if(TotalProfit()>0){ProfitColor1 =BullColor;}
if(TotalProfit()<0){ProfitColor1 =BearColor;}
if(TotalProfit()==0){ProfitColor1 =clrWhite;}
if(Pips[i]>0){PipsColor =BullColor;}
if(Pips[i]<0){PipsColor =BearColor;}
if(Pips[i]==0){PipsColor =clrWhite;}
if(Signalm1[i]==1){Color=BullColor;}
if(Signalm1[i]==-1){Color=BearColor;}
if(Signalm5[i]==1){Color1=BullColor;}
if(Signalm5[i]==-1){Color1=BearColor;}
if(Signalm15[i]==1){Color2=BullColor;}
if(Signalm15[i]==-1){Color2=BearColor;}
if(Signalm30[i]==1){Color3=BullColor;}
if(Signalm30[i]==-1){Color3=BearColor;}
if(Signalh1[i]==1){Color4=BullColor;}
if(Signalh1[i]==-1){Color4=BearColor;}
if(Signalh4[i]==1){Color5=BullColor;}
if(Signalh4[i]==-1){Color5=BearColor;}
if(Signald1[i]==1){Color6=BullColor;}
if(Signald1[i]==-1){Color6=BearColor;}
if(Signalw1[i]==1){Color7=BullColor;}
if(Signalw1[i]==-1){Color7=BearColor;}
if(Signalmn[i]==1){Color8=BullColor;}
if(Signalmn[i]==-1){Color8=BearColor;}
if(Signaladx[1]==1){Color13=BullColor;}
if(Signaladx[1]==-1){Color13=BearColor;}
//set color for Test1, Test2, B/S squares
if(BS[i]==1){Color14=clrAquamarine;}
if(BS[i]==2){Color14=BullColor;}
if(BS[i]==3){Color14=clrGoldenrod;}
if(BS[i]==4){Color14=clrLightPink;}
if(BS[i]==5){Color14=BearColor;}
if(BS[i]==6){Color14=BackGrnCol;}
if(Test1Co[i]==1){Color17=clrAquamarine;}
if(Test1Co[i]==2){Color17=BullColor;}
if(Test1Co[i]==3){Color17=clrGoldenrod;}
if(Test1Co[i]==4){Color17=clrLightPink;}
if(Test1Co[i]==5){Color17=BearColor;}
if(Test1Co[i]==6){Color17=BackGrnCol;}
if(Test2Co[i]==1){Color18=clrAquamarine;}
if(Test2Co[i]==2){Color18=BullColor;}
if(Test2Co[i]==3){Color18=clrGoldenrod;}
if(Test2Co[i]==4){Color18=clrLightPink;}
if(Test2Co[i]==5){Color18=BearColor;}
if(Test2Co[i]==6){Color18=BackGrnCol;}
if(SARco[i]==2){Color19=BullColor;}
if(SARco[i]==5){Color19=BearColor;}
//set color for SAR square
// Cclose[i]=iClose(TradePair[i],PERIOD_H1,0);
// if(BS[i]==2 && sar[i]<Cclose[i]){Color19=BullColor;}
// if(BS[i]==2 && sar[i]>=Cclose[i]){Color19=BearColor;}
// if(BS[i]==5 && sar[i]>Cclose[i]){Color19=BearColor;}
// if(BS[i]==5 && sar[i]<=Cclose[i]){Color19=BullColor;}
//set colors for the ADX square
if(adx[i]<=22){Color12=Black;}
if(adx[i]>22 && adx[i]<30){Color12=clrLavenderBlush;}
if(adx[i]>=30 && adx[i]<40){Color12=clrMistyRose;}
if(adx[i]>=40 && adx[i]<50){Color12=clrLightPink;}
if(adx[i]>=50 && adx[i]<60){Color12=clrPlum;}
if(adx[i]>=60 && adx[i]<70){Color12=clrIndianRed;}
if(adx[i]>=70){Color12=clrMaroon;}
//set color for ADX number showing increase/decrease
if(adx[i]>ADXPREV){Color16=BullColor;}
if(adx[i]==ADXPREV && Color16==BullColor){Color16=BullColor;}
if(adx[i]<ADXPREV){Color16=BearColor;}
if(adx[i]==ADXPREV && Color16==BearColor){Color16=BearColor;}
ADXPREV=adx[i];
//set colors for RSI square */
if(rsi[i]<=35 || rsi[i]>=65){Color15=clrGoldenrod;}
if(rsi[i]>=36 && rsi[i]<=64){Color15=clrAliceBlue;}
//set color for RSI number showing increase/decrease
if(rsi[i]>RSIPREV){Color13=BullColor;}
if(rsi[i]==RSIPREV && Color13==BullColor){Color13=BullColor;}
if(rsi[i]<RSIPREV){Color13=BearColor;}
if(rsi[i]==RSIPREV && Color13==BearColor){Color13=BearColor;}
RSIPREV=rsi[i];
if(Signalhah4[i]==1){SetObjText("Sig"+IntegerToString(i),CharToStr(233),x_axis+413,(i*16)+y_axis,BullColor,9);}
if(Signalhah4[i]==-1){SetObjText("Sig"+IntegerToString(i),CharToStr(234),x_axis+413,(i*16)+y_axis+2,BearColor,9);}
if(Signalhad1[i]==1){SetObjText("SGD"+IntegerToString(i),CharToStr(233),x_axis+439,(i*16)+y_axis,BullColor,9);}
if(Signalhad1[i]==-1){SetObjText("SGD"+IntegerToString(i),CharToStr(234),x_axis+439,(i*16)+y_axis+2,BearColor,9);}
if(OrdersTotal()==0){SetText("CTP","No Trades To Monitor",x_axis+925,y_axis+460,Yellow,8);}//text for 3 basket box amounts
if(OrdersTotal()>0 ){SetText("CTP","Monitoring Trades",x_axis+925,y_axis+460,Yellow,8);}
SetText("TPr","Basket TakeProfit = "+DoubleToStr(Basket_Target,0),x_axis+925,y_axis+479,Yellow,8);
SetText("SL","Basket StopLoss = -"+DoubleToStr(Basket_StopLoss,0),x_axis+925,y_axis+498,Yellow,8);
SetPanel("Bar",0,x_axis-7,y_axis-30,1079,27,Maroon,LineColor,1);
// SetPanel("Bar1",0,x_axis+978,y_axis-5,121,80,Maroon,Maroon,1);
//set columns here
// SetPanel("Panel"+IntegerToString(i),0,x_axis,(i*16)+y_axis,55,15,Color14,LineColor,1);
SetPanel("Spread"+IntegerToString(i),0,x_axis+55,(i*16)+y_axis,25,15,Black,White,1);
SetPanel("Adx"+IntegerToString(i),0,x_axis+85,(i*16)+y_axis,25,15,Color12,White,1);
SetPanel("Rsi"+IntegerToString(i),0,x_axis+115,(i*16)+y_axis,25,15,Color15,White,1);
SetPanel("m1"+IntegerToString(i),0,x_axis+145,(i*16)+y_axis,25,15,Color,White,1);
SetPanel("m5"+IntegerToString(i),0,x_axis+173,(i*16)+y_axis,25,15,Color1,White,1);
SetPanel("m15"+IntegerToString(i),0,x_axis+200,(i*16)+y_axis,25,15,Color2,White,1);
SetPanel("m30"+IntegerToString(i),0,x_axis+230,(i*16)+y_axis,25,15,Color3,White,1);
SetPanel("h1"+IntegerToString(i),0,x_axis+260,(i*16)+y_axis,25,15,Color4,White,1);
SetPanel("h4"+IntegerToString(i),0,x_axis+290,(i*16)+y_axis,25,15,Color5,White,1);
SetPanel("d1"+IntegerToString(i),0,x_axis+320,(i*16)+y_axis,25,15,Color6,White,1);
SetPanel("w1"+IntegerToString(i),0,x_axis+350,(i*16)+y_axis,25,15,Color7,White,1);
SetPanel("mn1"+IntegerToString(i),0,x_axis+380,(i*16)+y_axis,25,15,Color8,White,1);
SetPanel("ha4"+IntegerToString(i),0,x_axis+410,(i*16)+y_axis,20,15,Black,White,1);
SetPanel("mhad1"+IntegerToString(i),0,x_axis+434,(i*16)+y_axis,20,15,Black,White,1);
// SetPanel("ha4"+IntegerToString(i),0,x_axis+481,(i*16)+y_axis,20,15,Black,White,1);
// SetPanel("had1"+IntegerToString(i),0,x_axis+503,(i*16)+y_axis,20,15,Black,White,1);
// SetPanel("TE1"+IntegerToString(i),0,x_axis+670,(i*16)+y_axis,20,15,Color17,White,1);//Test1 square
SetPanel("BS"+IntegerToString(i),0,x_axis+704,(i*16)+y_axis,25,15,Color14,White,1);//sets buy/sell square
SetPanel("TE2"+IntegerToString(i),0,x_axis+732,(i*16)+y_axis,25,15,Color18,White,1);//Test2-average & adx over 30
SetPanel("SARbox"+IntegerToString(i),0,x_axis+760,(i*16)+y_axis,25,15,Color19,White,1);//above or below SAR
SetPanel("TP",0,x_axis+991,y_axis-27,75,20,Black,White,1); //profit box
SetPanel("H_Inputs",0,x_axis+650,y_axis+458,90,100,clrGoldenrod,White,1);//inputs box for HARE LOTS,SL,TP
SetText("H_In1","HARE Trades",x_axis+662,y_axis+457,Black,8);
SetText("H_In2","Lots",x_axis+651,y_axis+471,Black,8);SetPanel("H_Lots_P",0,x_axis+675,y_axis+472,35,13,clrBlack,White,1);
Create_Button(button_H1,"+",12,12,z_axis+717,y_axis+472,clrGainsboro,clrBlack);
Create_Button(button_H2,"-",12,12,z_axis+731,y_axis+472,clrGainsboro,clrBlack);
Create_Button(button_H3,"+",12,12,z_axis+717,y_axis+486,clrGainsboro,clrBlack);
Create_Button(button_H4,"-",12,12,z_axis+731,y_axis+486,clrGainsboro,clrBlack);
Create_Button(button_H5,"+",12,12,z_axis+717,y_axis+500,clrGainsboro,clrBlack);
Create_Button(button_H6,"-",12,12,z_axis+731,y_axis+500,clrGainsboro,clrBlack);
Create_Button(button_H7,"+",12,12,z_axis+717,y_axis+514,clrGainsboro,clrBlack);
Create_Button(button_H8,"-",12,12,z_axis+731,y_axis+514,clrGainsboro,clrBlack);
SetText("H_In3","TP",x_axis+651,y_axis+528,Black,8);SetPanel("H_TP_P",0,x_axis+675,y_axis+528,35,12,clrBlack,White,1);
Create_Button(button_H9,"+",12,12,z_axis+717,y_axis+528,clrGainsboro,clrBlack);
Create_Button(button_H10,"-",12,12,z_axis+731,y_axis+528,clrGainsboro,clrBlack);
SetText("H_In4","SL",x_axis+651,y_axis+542,Black,8);SetPanel("H_SL_P",0,x_axis+675,y_axis+542,35,12,clrBlack,White,1);
Create_Button(button_H11,"+",12,12,z_axis+717,y_axis+542,clrGainsboro,clrBlack);
Create_Button(button_H12,"-",12,12,z_axis+731,y_axis+542,clrGainsboro,clrBlack);
SetText("H_In5",DoubleToStr(H_Lot,2),x_axis+680,y_axis+472,clrWhite,8);
SetText("H_In6",IntegerToString(H_TP),x_axis+684,y_axis+528,clrWhite,8);
SetText("H_In7",IntegerToString(H_SL),x_axis+684,y_axis+542,clrWhite,8);
SetPanel("TOR_Inputs",0,x_axis+750,y_axis+458,90,100,clrGoldenrod,White,1);//inputs box for TORTOISE LOTS,SL,TP
SetText("TOR_In1","TORT Trades",x_axis+762,y_axis+457,Black,8);
SetText("TOR_In2","Lots",x_axis+751,y_axis+471,Black,8);SetPanel("TOR_Lots_P",0,x_axis+775,y_axis+472,35,13,clrBlack,White,1);
Create_Button(button_T1,"+",12,12,z_axis+817,y_axis+472,clrGainsboro,clrBlack);
Create_Button(button_T2,"-",12,12,z_axis+831,y_axis+472,clrGainsboro,clrBlack);
Create_Button(button_T3,"+",12,12,z_axis+817,y_axis+486,clrGainsboro,clrBlack);
Create_Button(button_T4,"-",12,12,z_axis+831,y_axis+486,clrGainsboro,clrBlack);
Create_Button(button_T5,"+",12,12,z_axis+817,y_axis+500,clrGainsboro,clrBlack);
Create_Button(button_T6,"-",12,12,z_axis+831,y_axis+500,clrGainsboro,clrBlack);
Create_Button(button_T7,"+",12,12,z_axis+817,y_axis+514,clrGainsboro,clrBlack);
Create_Button(button_T8,"-",12,12,z_axis+831,y_axis+514,clrGainsboro,clrBlack);
SetText("TOR_In3","TP",x_axis+751,y_axis+528,Black,8);SetPanel("TOR_TP_P",0,x_axis+775,y_axis+528,35,12,clrBlack,White,1);
Create_Button(button_T9,"+",12,12,z_axis+817,y_axis+528,clrGainsboro,clrBlack);
Create_Button(button_T10,"-",12,12,z_axis+831,y_axis+528,clrGainsboro,clrBlack);
SetText("TOR_In4","SL",x_axis+751,y_axis+542,Black,8);SetPanel("TOR_SL_P",0,x_axis+775,y_axis+542,35,12,clrBlack,White,1);
Create_Button(button_T11,"+",12,12,z_axis+817,y_axis+542,clrGainsboro,clrBlack);
Create_Button(button_T12,"-",12,12,z_axis+831,y_axis+542,clrGainsboro,clrBlack);
SetText("TOR_In5",DoubleToStr(TOR_Lot,2),x_axis+780,y_axis+472,clrWhite,8);
SetText("TOR_In6",IntegerToString(TOR_TP),x_axis+784,y_axis+528,clrWhite,8);
SetText("TOR_In7",IntegerToString(TOR_SL),x_axis+784,y_axis+542,clrWhite,8);
SetPanel("TP1",0,x_axis+922,y_axis+458,125,20,Black,White,1); //these move the "Monitoring Trade" boxes
SetPanel("TP2",0,x_axis+922,y_axis+477,125,20,Black,White,1);
SetPanel("TP3",0,x_axis+922,y_axis+496,125,20,Black,White,1);
// SetText("Pair"+IntegerToString(i),TradePair[i],x_axis+2,(i*16)+y_axis+2,TextColor,8);
SetText("Symbol","Symbol Spread ADX RSI",x_axis+4,y_axis-25,White,8);
SetText("Direct"," ADX-RSI MA Cross",x_axis+255,y_axis-30,White,8);
SetText("Trend"," M1 M5 M15 M30 H1 H4 D1 W1 MN",x_axis+143,y_axis-17,White,8);
SetText("Signal","Signal",x_axis+418,y_axis-30,White,8);
SetText("MA","H4 D1",x_axis+415,y_axis-17,White,8);
SetText("Trades","Hare Tort B/S SAR Buy Sell",x_axis+638,y_axis-17,White,8);
SetText("Trades2","Buy Sell",x_axis+875,y_axis-17,White,8);
SetText("TTr"," AutoTrade Lots Orders",x_axis+640,y_axis-30,White,8);
SetText("TTr2","Orders",x_axis+880,y_axis-30,White,8);
SetText("Tottrade","Profit",x_axis+955,y_axis-30,White,8);
SetText("Spr1"+IntegerToString(i),DoubleToStr(Spread[i],1),x_axis+58,(i*16)+y_axis,Orange,8);
// SetText("Pp1"+IntegerToString(i),DoubleToStr(MathAbs(Pips[i]),0),x_axis+88,(i*16)+y_axis,PipsColor,8);
// SetText("S1"+IntegerToString(i),DoubleToStr(adr[i],0),x_axis+118,(i*16)+y_axis,Yellow,8);
SetText("ADXV"+IntegerToString(i),DoubleToStr(adx[i],0),x_axis+88,(i*16)+y_axis,Color16,8);
SetText("RSIV"+IntegerToString(i),DoubleToStr(rsi[i],0),x_axis+118,(i*16)+y_axis,Color13,8);
//MathAbs gets rid of negative sign
SetText("M1"+IntegerToString(i),DoubleToStr(MathAbs(Mam1[i]),0),x_axis+148,(i*16)+y_axis,White,8);
SetText("M5"+IntegerToString(i),DoubleToStr(MathAbs(Mam5[i]),0),x_axis+176,(i*16)+y_axis,White,8);
SetText("M15"+IntegerToString(i),DoubleToStr(MathAbs(Mam15[i]),0),x_axis+203,(i*16)+y_axis,White,8);
SetText("M30"+IntegerToString(i),DoubleToStr(MathAbs(Mam30[i]),0),x_axis+233,(i*16)+y_axis,White,8);
SetText("MH1"+IntegerToString(i),DoubleToStr(MathAbs(Mah1[i]),0),x_axis+263,(i*16)+y_axis,White,8);
SetText("MH4"+IntegerToString(i),DoubleToStr(MathAbs(Mah4[i]),0),x_axis+293,(i*16)+y_axis,White,8);
SetText("MD"+IntegerToString(i),DoubleToStr(MathAbs(Map[i]),0),x_axis+323,(i*16)+y_axis,White,8);
SetText("MW1"+IntegerToString(i),DoubleToStr(MathAbs(Maw1[i]),0),x_axis+353,(i*16)+y_axis,White,8);
SetText("MMN"+IntegerToString(i),DoubleToStr(MathAbs(Mamn[i]),0),x_axis+382,(i*16)+y_axis,White,8);
// SetText("T1Text"+IntegerToString(i),DoubleToStr(MathAbs(Test1[i]),0),x_axis+672,(i*16)+y_axis,Black,8);
SetText("BSText"+IntegerToString(i),DoubleToStr(MathAbs(ABStemp[i]),0),x_axis+706,(i*16)+y_axis,Black,8);
SetText("T2Text"+IntegerToString(i),DoubleToStr(MathAbs(Test2[i]),0),x_axis+734,(i*16)+y_axis,Black,8);
SetText("bLots"+IntegerToString(i),DoubleToStr(blots[i],2),x_axis+801,(i*16)+y_axis,LotColor,8);
SetText("sLots"+IntegerToString(i),DoubleToStr(slots[i],2),x_axis+841,(i*16)+y_axis,LotColor1,8);
SetText("bPos"+IntegerToString(i),DoubleToStr(bpos[i],0),x_axis+881,(i*16)+y_axis,OrdColor,8);
SetText("sPos"+IntegerToString(i),DoubleToStr(spos[i],0),x_axis+911,(i*16)+y_axis,OrdColor1,8);
SetText("TProf"+IntegerToString(i),DoubleToStr(MathAbs(bprofit[i]),2),x_axis+938,(i*16)+y_axis,ProfitColor,8);
SetText("SProf"+IntegerToString(i),DoubleToStr(MathAbs(sprofit[i]),2),x_axis+981,(i*16)+y_axis,ProfitColor2,8);
SetText("TtlProf"+IntegerToString(i),DoubleToStr(MathAbs(tprofit[i]),2),x_axis+1031,(i*16)+y_axis,ProfitColor3,8);
SetText("TotProf",DoubleToStr(MathAbs(TotalProfit()),2),x_axis+1015,y_axis-22,ProfitColor1,8);
//create "open" chart buttons here
Create_Button(button_chart_1,TradePair[0],55,15,z_axis,(i*16)+y_axis,clrGainsboro,clrBlack);
Create_Button(button_chart_2,TradePair[1],55,15,z_axis,(i*16)+y_axis+16,clrGainsboro,clrBlack);
Create_Button(button_chart_3,TradePair[2],55,15,z_axis,(i*16)+y_axis+32,clrGainsboro,clrBlack);
Create_Button(button_chart_4,TradePair[3],55,15,z_axis,(i*16)+y_axis+48,clrGainsboro,clrBlack);
Create_Button(button_chart_5,TradePair[4],55,15,z_axis,(i*16)+y_axis+64,clrGainsboro,clrBlack);
Create_Button(button_chart_6,TradePair[5],55,15,z_axis,(i*16)+y_axis+80,clrGainsboro,clrBlack);
Create_Button(button_chart_7,TradePair[6],55,15,z_axis,(i*16)+y_axis+96,clrGainsboro,clrBlack);
Create_Button(button_chart_8,TradePair[7],55,15,z_axis,(i*16)+y_axis+112,clrGainsboro,clrBlack);
Create_Button(button_chart_9,TradePair[8],55,15,z_axis,(i*16)+y_axis+128,clrGainsboro,clrBlack);
Create_Button(button_chart_10,TradePair[9],55,15,z_axis,(i*16)+y_axis+144,clrGainsboro,clrBlack);
Create_Button(button_chart_11,TradePair[10],55,15,z_axis,(i*16)+y_axis+160,clrGainsboro,clrBlack);
Create_Button(button_chart_12,TradePair[11],55,15,z_axis,(i*16)+y_axis+176,clrGainsboro,clrBlack);
Create_Button(button_chart_13,TradePair[12],55,15,z_axis,(i*16)+y_axis+192,clrGainsboro,clrBlack);
Create_Button(button_chart_14,TradePair[13],55,15,z_axis,(i*16)+y_axis+208,clrGainsboro,clrBlack);
Create_Button(button_chart_15,TradePair[14],55,15,z_axis,(i*16)+y_axis+224,clrGainsboro,clrBlack);
Create_Button(button_chart_16,TradePair[15],55,15,z_axis,(i*16)+y_axis+240,clrGainsboro,clrBlack);
Create_Button(button_chart_17,TradePair[16],55,15,z_axis,(i*16)+y_axis+256,clrGainsboro,clrBlack);
Create_Button(button_chart_18,TradePair[17],55,15,z_axis,(i*16)+y_axis+272,clrGainsboro,clrBlack);
Create_Button(button_chart_19,TradePair[18],55,15,z_axis,(i*16)+y_axis+288,clrGainsboro,clrBlack);
Create_Button(button_chart_20,TradePair[19],55,15,z_axis,(i*16)+y_axis+304,clrGainsboro,clrBlack);
Create_Button(button_chart_21,TradePair[20],55,15,z_axis,(i*16)+y_axis+320,clrGainsboro,clrBlack);
Create_Button(button_chart_22,TradePair[21],55,15,z_axis,(i*16)+y_axis+336,clrGainsboro,clrBlack);
Create_Button(button_chart_23,TradePair[22],55,15,z_axis,(i*16)+y_axis+352,clrGainsboro,clrBlack);
Create_Button(button_chart_24,TradePair[23],55,15,z_axis,(i*16)+y_axis+368,clrGainsboro,clrBlack);
Create_Button(button_chart_25,TradePair[24],55,15,z_axis,(i*16)+y_axis+384,clrGainsboro,clrBlack);
Create_Button(button_chart_26,TradePair[25],55,15,z_axis,(i*16)+y_axis+400,clrGainsboro,clrBlack);
Create_Button(button_chart_27,TradePair[26],55,15,z_axis,(i*16)+y_axis+416,clrGainsboro,clrBlack);
Create_Button(button_chart_28,TradePair[27],55,15,z_axis,(i*16)+y_axis+432,clrGainsboro,clrBlack);
Create_Button(button_close_basket_All,"CLOSE ALL",90 ,18,x_axis+503 ,y_axis-25,clrDarkGray,clrRed);
Create_Button(button_buy_basket_1,TradePair[0],55 ,15,z_axis+463,y_axis,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_1,TradePair[0],55 ,15,z_axis+523 ,y_axis,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_1,"CLOSE",55 ,15,z_axis+583,y_axis,clrRed,clrWhite);
Create_Button(button_buy_basket_2,TradePair[1],55 ,15,z_axis+463,y_axis+16,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_2,TradePair[1],55 ,15,z_axis+523 ,y_axis+16,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_2,"CLOSE",55 ,15,z_axis+583 ,y_axis+16,clrRed,clrWhite);
Create_Button(button_buy_basket_3,TradePair[2],55 ,15,z_axis+463,y_axis+32,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_3,TradePair[2],55 ,15,z_axis+523 ,y_axis+32,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_3,"CLOSE",55 ,15,z_axis+583 ,y_axis+32,clrRed,clrWhite);
Create_Button(button_buy_basket_4,TradePair[3],55 ,15,z_axis+463,y_axis+48,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_4,TradePair[3],55 ,15,z_axis+523 ,y_axis+48,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_4,"CLOSE",55 ,15,z_axis+583 ,y_axis+48,clrRed,clrWhite);
Create_Button(button_buy_basket_5,TradePair[4],55 ,15,z_axis+463,y_axis+64,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_5,TradePair[4],55 ,15,z_axis+523 ,y_axis+64,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_5,"CLOSE",55 ,15,z_axis+583 ,y_axis+64,clrRed,clrWhite);
Create_Button(button_buy_basket_6,TradePair[5],55 ,15,z_axis+463,y_axis+80,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_6,TradePair[5],55 ,15,z_axis+523 ,y_axis+80,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_6,"CLOSE",55 ,15,z_axis+583 ,y_axis+80,clrRed,clrWhite);
Create_Button(button_buy_basket_7,TradePair[6],55 ,15,z_axis+463,y_axis+96,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_7,TradePair[6],55 ,15,z_axis+523 ,y_axis+96,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_7,"CLOSE",55 ,15,z_axis+583 ,y_axis+96,clrRed,clrWhite);
Create_Button(button_buy_basket_8,TradePair[7],55 ,15,z_axis+463,y_axis+112,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_8,TradePair[7],55 ,15,z_axis+523 ,y_axis+112,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_8,"CLOSE",55 ,15,z_axis+583 ,y_axis+112,clrRed,clrWhite);
Create_Button(button_buy_basket_9,TradePair[8],55 ,15,z_axis+463,y_axis+128,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_9,TradePair[8],55 ,15,z_axis+523 ,y_axis+128,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_9,"CLOSE",55 ,15,z_axis+583 ,y_axis+128,clrRed,clrWhite);
Create_Button(button_buy_basket_10,TradePair[9],55 ,15,z_axis+463,y_axis+144,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_10,TradePair[9],55 ,15,z_axis+523 ,y_axis+144,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_10,"CLOSE",55 ,15,z_axis+583 ,y_axis+144,clrRed,clrWhite);
Create_Button(button_buy_basket_11,TradePair[10],55 ,15,z_axis+463,y_axis+160,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_11,TradePair[10],55 ,15,z_axis+523 ,y_axis+160,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_11,"CLOSE",55 ,15,z_axis+583 ,y_axis+160,clrRed,clrWhite);
Create_Button(button_buy_basket_12,TradePair[11],55 ,15,z_axis+463,y_axis+176,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_12,TradePair[11],55 ,15,z_axis+523 ,y_axis+176,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_12,"CLOSE",55 ,15,z_axis+583 ,y_axis+176,clrRed,clrWhite);
Create_Button(button_buy_basket_13,TradePair[12],55 ,15,z_axis+463,y_axis+192,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_13,TradePair[12],55 ,15,z_axis+523 ,y_axis+192,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_13,"CLOSE",55 ,15,z_axis+583 ,y_axis+192,clrRed,clrWhite);
Create_Button(button_buy_basket_14,TradePair[13],55 ,15,z_axis+463,y_axis+208,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_14,TradePair[13],55 ,15,z_axis+523 ,y_axis+208,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_14,"CLOSE",55 ,15,z_axis+583 ,y_axis+208,clrRed,clrWhite);
Create_Button(button_buy_basket_15,TradePair[14],55 ,15,z_axis+463,y_axis+224,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_15,TradePair[14],55 ,15,z_axis+523 ,y_axis+224,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_15,"CLOSE",55 ,15,z_axis+583 ,y_axis+224,clrRed,clrWhite);
Create_Button(button_buy_basket_16,TradePair[15],55 ,15,z_axis+463,y_axis+240,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_16,TradePair[15],55 ,15,z_axis+523 ,y_axis+240,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_16,"CLOSE",55 ,15,z_axis+583 ,y_axis+240,clrRed,clrWhite);
Create_Button(button_buy_basket_17,TradePair[16],55 ,15,z_axis+463,y_axis+256,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_17,TradePair[16],55 ,15,z_axis+523 ,y_axis+256,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_17,"CLOSE",55 ,15,z_axis+583 ,y_axis+256,clrRed,clrWhite);
Create_Button(button_buy_basket_18,TradePair[17],55 ,15,z_axis+463,y_axis+272,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_18,TradePair[17],55 ,15,z_axis+523 ,y_axis+272,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_18,"CLOSE",55 ,15,z_axis+583 ,y_axis+272,clrRed,clrWhite);
Create_Button(button_buy_basket_19,TradePair[18],55 ,15,z_axis+463,y_axis+288,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_19,TradePair[18],55 ,15,z_axis+523 ,y_axis+288,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_19,"CLOSE",55 ,15,z_axis+583 ,y_axis+288,clrRed,clrWhite);
Create_Button(button_buy_basket_20,TradePair[19],55 ,15,z_axis+463,y_axis+304,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_20,TradePair[19],55 ,15,z_axis+523 ,y_axis+304,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_20,"CLOSE",55 ,15,z_axis+583 ,y_axis+304,clrRed,clrWhite);
Create_Button(button_buy_basket_21,TradePair[20],55 ,15,z_axis+463,y_axis+320,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_21,TradePair[20],55 ,15,z_axis+523 ,y_axis+320,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_21,"CLOSE",55 ,15,z_axis+583 ,y_axis+320,clrRed,clrWhite);
Create_Button(button_buy_basket_22,TradePair[21],55 ,15,z_axis+463,y_axis+336,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_22,TradePair[21],55 ,15,z_axis+523 ,y_axis+336,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_22,"CLOSE",55 ,15,z_axis+583 ,y_axis+336,clrRed,clrWhite);
Create_Button(button_buy_basket_23,TradePair[22],55 ,15,z_axis+463,y_axis+352,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_23,TradePair[22],55 ,15,z_axis+523 ,y_axis+352,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_23,"CLOSE",55 ,15,z_axis+583 ,y_axis+352,clrRed,clrWhite);
Create_Button(button_buy_basket_24,TradePair[23],55 ,15,z_axis+463,y_axis+368,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_24,TradePair[23],55 ,15,z_axis+523 ,y_axis+368,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_24,"CLOSE",55 ,15,z_axis+583 ,y_axis+368,clrRed,clrWhite);
Create_Button(button_buy_basket_25,TradePair[24],55 ,15,z_axis+463,y_axis+384,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_25,TradePair[24],55 ,15,z_axis+523 ,y_axis+384,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_25,"CLOSE",55 ,15,z_axis+583 ,y_axis+384,clrRed,clrWhite);
Create_Button(button_buy_basket_26,TradePair[25],55 ,15,z_axis+463,y_axis+400,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_26,TradePair[25],55 ,15,z_axis+523 ,y_axis+400,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_26,"CLOSE",55 ,15,z_axis+583 ,y_axis+400,clrRed,clrWhite);
Create_Button(button_buy_basket_27,TradePair[26],55 ,15,z_axis+463,y_axis+416,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_27,TradePair[26],55 ,15,z_axis+523 ,y_axis+416,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_27,"CLOSE",55 ,15,z_axis+583 ,y_axis+416,clrRed,clrWhite);
Create_Button(button_buy_basket_28,TradePair[27],55 ,15,z_axis+463,y_axis+432,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_28,TradePair[27],55 ,15,z_axis+523 ,y_axis+432,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_28,"CLOSE",55 ,15,z_axis+583 ,y_axis+432,clrRed,clrWhite);
//start of the basket buttons
Create_Button(button_buy_basket_29,"USD",55 ,15,z_axis+463,y_axis+458,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_29,"USD",55 ,15,z_axis+523 ,y_axis+458,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_29,"CLOSE",55 ,15,z_axis+583 ,y_axis+458,clrRed,clrWhite);
Create_Button(button_buy_basket_30,"EUR",55 ,15,z_axis+463,y_axis+474,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_30,"EUR",55 ,15,z_axis+523 ,y_axis+474,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_30,"CLOSE",55 ,15,z_axis+583 ,y_axis+474,clrRed,clrWhite);
Create_Button(button_buy_basket_31,"GBP",55 ,15,z_axis+463,y_axis+490,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_31,"GBP",55 ,15,z_axis+523 ,y_axis+490,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_31,"CLOSE",55 ,15,z_axis+583 ,y_axis+490,clrRed,clrWhite);
Create_Button(button_buy_basket_32,"AUD",55 ,15,z_axis+463,y_axis+506,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_32,"AUD",55 ,15,z_axis+523 ,y_axis+506,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_32,"CLOSE",55 ,15,z_axis+583 ,y_axis+506,clrRed,clrWhite);
Create_Button(button_buy_basket_33,"CAD",55 ,15,z_axis+463,y_axis+522,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_33,"CAD",55 ,15,z_axis+523 ,y_axis+522,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_33,"CLOSE",55 ,15,z_axis+583 ,y_axis+522,clrRed,clrWhite);
Create_Button(button_buy_basket_34,"JPY",55 ,15,z_axis+463,y_axis+538,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_34,"JPY",55 ,15,z_axis+523 ,y_axis+538,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_34,"CLOSE",55 ,15,z_axis+583 ,y_axis+538,clrRed,clrWhite);
Create_Button(button_buy_basket_35,"NZD",55 ,15,z_axis+463,y_axis+554,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_35,"NZD",55 ,15,z_axis+523 ,y_axis+554,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_35,"CLOSE",55 ,15,z_axis+583 ,y_axis+554,clrRed,clrWhite);
Create_Button(button_buy_basket_36,"CHF",55 ,15,z_axis+463,y_axis+570,clrRoyalBlue,clrWhite);
Create_Button(button_sell_basket_36,"CHF",55 ,15,z_axis+523 ,y_axis+570,clrGoldenrod,clrWhite);
Create_Button(button_close_basket_36,"CLOSE",55 ,15,z_axis+583 ,y_axis+570,clrRed,clrWhite);
//create auto trade buttons for each pair
if(ATCol_1==0){Create_Button(button_AT_1,"NT",30,15,z_axis+641,(0*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_1==1){Create_Button(button_AT_1,"AT",30,15,z_axis+641,(0*16)+y_axis,clrMaroon,clrWhite);}
/*
if(ATCol_2==0){Create_Button(button_AT_2,"NT",30,15,z_axis+641,(1*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_2==1){Create_Button(button_AT_2,"AT",30,15,z_axis+641,(1*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_3==0){Create_Button(button_AT_3,"NT",30,15,z_axis+641,(2*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_3==1){Create_Button(button_AT_3,"AT",30,15,z_axis+641,(2*16)+y_axis,clrMaroon,clrWhite);}
*/
if(ATCol_4==0){Create_Button(button_AT_4,"NT",30,15,z_axis+641,(3*16)+y_axis,clrAliceBlue,clrBlack);}//EU
if(ATCol_4==1){Create_Button(button_AT_4,"AT",30,15,z_axis+641,(3*16)+y_axis,clrMaroon,clrWhite);}
/*
if(ATCol_5==0){Create_Button(button_AT_5,"NT",30,15,z_axis+641,(4*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_5==1){Create_Button(button_AT_5,"AT",30,15,z_axis+641,(4*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_6==0){Create_Button(button_AT_6,"NT",30,15,z_axis+641,(5*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_6==1){Create_Button(button_AT_6,"AT",30,15,z_axis+641,(5*16)+y_axis,clrMaroon,clrWhite);}
*/
if(ATCol_7==0){Create_Button(button_AT_7,"NT",30,15,z_axis+641,(6*16)+y_axis,clrAliceBlue,clrBlack);}//EJ
if(ATCol_7==1){Create_Button(button_AT_7,"AT",30,15,z_axis+641,(6*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_8==0){Create_Button(button_AT_8,"NT",30,15,z_axis+641,(7*16)+y_axis,clrAliceBlue,clrBlack);}//EA
if(ATCol_8==1){Create_Button(button_AT_8,"AT",30,15,z_axis+641,(7*16)+y_axis,clrMaroon,clrWhite);}
/*
if(ATCol_9==0){Create_Button(button_AT_9,"NT",30,15,z_axis+641,(8*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_9==1){Create_Button(button_AT_9,"AT",30,15,z_axis+641,(8*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_10==0){Create_Button(button_AT_10,"NT",30,15,z_axis+641,(9*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_10==1){Create_Button(button_AT_10,"AT",30,15,z_axis+641,(9*16)+y_axis,clrMaroon,clrWhite);}
*/
if(ATCol_11==0){Create_Button(button_AT_11,"NT",30,15,z_axis+641,(10*16)+y_axis,clrAliceBlue,clrBlack);}//GU
if(ATCol_11==1){Create_Button(button_AT_11,"AT",30,15,z_axis+641,(10*16)+y_axis,clrMaroon,clrWhite);}
/*
if(ATCol_12==0){Create_Button(button_AT_12,"NT",30,15,z_axis+641,(11*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_12==1){Create_Button(button_AT_12,"AT",30,15,z_axis+641,(11*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_13==0){Create_Button(button_AT_13,"NT",30,15,z_axis+641,(12*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_13==1){Create_Button(button_AT_13,"AT",30,15,z_axis+641,(12*16)+y_axis,clrMaroon,clrWhite);}
*/
if(ATCol_14==0){Create_Button(button_AT_14,"NT",30,15,z_axis+641,(13*16)+y_axis,clrAliceBlue,clrBlack);}//GA
if(ATCol_14==1){Create_Button(button_AT_14,"AT",30,15,z_axis+641,(13*16)+y_axis,clrMaroon,clrWhite);}
/*
if(ATCol_15==0){Create_Button(button_AT_15,"NT",30,15,z_axis+641,(14*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_15==1){Create_Button(button_AT_15,"AT",30,15,z_axis+641,(14*16)+y_axis,clrMaroon,clrWhite);}
*/
if(ATCol_16==0){Create_Button(button_AT_16,"NT",30,15,z_axis+641,(15*16)+y_axis,clrAliceBlue,clrBlack);}//GN
if(ATCol_16==1){Create_Button(button_AT_16,"AT",30,15,z_axis+641,(15*16)+y_axis,clrMaroon,clrWhite);}
/*
if(ATCol_17==0){Create_Button(button_AT_17,"NT",30,15,z_axis+641,(16*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_17==1){Create_Button(button_AT_17,"AT",30,15,z_axis+641,(16*16)+y_axis,clrMaroon,clrWhite);}
*/
if(ATCol_18==0){Create_Button(button_AT_18,"NT",30,15,z_axis+641,(17*16)+y_axis,clrAliceBlue,clrBlack);}//AU
if(ATCol_18==1){Create_Button(button_AT_18,"AT",30,15,z_axis+641,(17*16)+y_axis,clrMaroon,clrWhite);}
/*
if(ATCol_19==0){Create_Button(button_AT_19,"NT",30,15,z_axis+641,(18*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_19==1){Create_Button(button_AT_19,"AT",30,15,z_axis+641,(18*16)+y_axis,clrMaroon,clrWhite);}
*/
if(ATCol_20==0){Create_Button(button_AT_20,"NT",30,15,z_axis+641,(19*16)+y_axis,clrAliceBlue,clrBlack);}//AJ
if(ATCol_20==1){Create_Button(button_AT_20,"AT",30,15,z_axis+641,(19*16)+y_axis,clrMaroon,clrWhite);}
/*
if(ATCol_21==0){Create_Button(button_AT_21,"NT",30,15,z_axis+641,(20*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_21==1){Create_Button(button_AT_21,"AT",30,15,z_axis+641,(20*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_22==0){Create_Button(button_AT_22,"NT",30,15,z_axis+641,(21*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_22==1){Create_Button(button_AT_22,"AT",30,15,z_axis+641,(21*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_23==0){Create_Button(button_AT_23,"NT",30,15,z_axis+641,(22*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_23==1){Create_Button(button_AT_23,"AT",30,15,z_axis+641,(22*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_24==0){Create_Button(button_AT_24,"NT",30,15,z_axis+641,(23*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_24==1){Create_Button(button_AT_24,"AT",30,15,z_axis+641,(23*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_25==0){Create_Button(button_AT_25,"NT",30,15,z_axis+641,(24*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_25==1){Create_Button(button_AT_25,"AT",30,15,z_axis+641,(24*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_26==0){Create_Button(button_AT_26,"NT",30,15,z_axis+641,(25*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_26==1){Create_Button(button_AT_26,"AT",30,15,z_axis+641,(25*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_27==0){Create_Button(button_AT_27,"NT",30,15,z_axis+641,(26*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_27==1){Create_Button(button_AT_27,"AT",30,15,z_axis+641,(26*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_28==0){Create_Button(button_AT_28,"NT",30,15,z_axis+641,(27*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_28==1){Create_Button(button_AT_28,"AT",30,15,z_axis+641,(27*16)+y_axis,clrMaroon,clrWhite);}
*/
//+---------------------------------------start TORT buttons here-------------------------------------
if(ATCol_T1==0){Create_Button(button_AT_T1,"NT",30,15,z_axis+675,(0*16)+y_axis,clrAliceBlue,clrBlack);}//TORT UC
if(ATCol_T1==1){Create_Button(button_AT_T1,"AT",30,15,z_axis+675,(0*16)+y_axis,clrMaroon,clrWhite);}
/*
if(ATCol_2==0){Create_Button(button_AT_2,"NT",30,15,z_axis+675,(1*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_2==1){Create_Button(button_AT_2,"AT",30,15,z_axis+675,(1*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_3==0){Create_Button(button_AT_3,"NT",30,15,z_axis+675,(2*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_3==1){Create_Button(button_AT_3,"AT",30,15,z_axis+675,(2*16)+y_axis,clrMaroon,clrWhite);}
*/
if(ATCol_T4==0){Create_Button(button_AT_T4,"NT",30,15,z_axis+675,(3*16)+y_axis,clrAliceBlue,clrBlack);}//TORT EU
if(ATCol_T4==1){Create_Button(button_AT_T4,"AT",30,15,z_axis+675,(3*16)+y_axis,clrMaroon,clrWhite);}
/*
if(ATCol_T5==0){Create_Button(button_AT_T5,"NT",30,15,z_axis+675,(4*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_T5==1){Create_Button(button_AT_T5,"AT",30,15,z_axis+675,(4*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_T6==0){Create_Button(button_AT_T6,"NT",30,15,z_axis+675,(5*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_T6==1){Create_Button(button_AT_T6,"AT",30,15,z_axis+675,(5*16)+y_axis,clrMaroon,clrWhite);}
*/
if(ATCol_T7==0){Create_Button(button_AT_T7,"NT",30,15,z_axis+675,(6*16)+y_axis,clrAliceBlue,clrBlack);}//TORT EJ
if(ATCol_T7==1){Create_Button(button_AT_T7,"AT",30,15,z_axis+675,(6*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_T8==0){Create_Button(button_AT_T8,"NT",30,15,z_axis+675,(7*16)+y_axis,clrAliceBlue,clrBlack);}//TORT EA
if(ATCol_T8==1){Create_Button(button_AT_T8,"AT",30,15,z_axis+675,(7*16)+y_axis,clrMaroon,clrWhite);}
/*
if(ATCol_T9==0){Create_Button(button_AT_T9,"NT",30,15,z_axis+675,(8*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_T9==1){Create_Button(button_AT_T9,"AT",30,15,z_axis+675,(8*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_T10==0){Create_Button(button_AT_T10,"NT",30,15,z_axis+675,(9*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_T10==1){Create_Button(button_AT_T10,"AT",30,15,z_axis+675,(9*16)+y_axis,clrMaroon,clrWhite);}
*/
if(ATCol_T11==0){Create_Button(button_AT_T11,"NT",30,15,z_axis+675,(10*16)+y_axis,clrAliceBlue,clrBlack);}//TORT GU
if(ATCol_T11==1){Create_Button(button_AT_T11,"AT",30,15,z_axis+675,(10*16)+y_axis,clrMaroon,clrWhite);}
/*
if(ATCol_T12==0){Create_Button(button_AT_T12,"NT",30,15,z_axis+675,(11*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_T12==1){Create_Button(button_AT_T12,"AT",30,15,z_axis+675,(11*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_T13==0){Create_Button(button_AT_T13,"NT",30,15,z_axis+675,(12*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_T13==1){Create_Button(button_AT_T13,"AT",30,15,z_axis+675,(12*16)+y_axis,clrMaroon,clrWhite);}
*/
if(ATCol_T14==0){Create_Button(button_AT_T14,"NT",30,15,z_axis+675,(13*16)+y_axis,clrAliceBlue,clrBlack);}//TORT GA
if(ATCol_T14==1){Create_Button(button_AT_T14,"AT",30,15,z_axis+675,(13*16)+y_axis,clrMaroon,clrWhite);}
/*
if(ATCol_T15==0){Create_Button(button_AT_T15,"NT",30,15,z_axis+675,(14*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_T15==1){Create_Button(button_AT_T15,"AT",30,15,z_axis+675,(14*16)+y_axis,clrMaroon,clrWhite);}
*/
if(ATCol_T16==0){Create_Button(button_AT_T16,"NT",30,15,z_axis+675,(15*16)+y_axis,clrAliceBlue,clrBlack);}//TORT GN
if(ATCol_T16==1){Create_Button(button_AT_T16,"AT",30,15,z_axis+675,(15*16)+y_axis,clrMaroon,clrWhite);}
/*
if(ATCol_T17==0){Create_Button(button_AT_T17,"NT",30,15,z_axis+675,(16*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_T17==1){Create_Button(button_AT_T17,"AT",30,15,z_axis+675,(16*16)+y_axis,clrMaroon,clrWhite);}
*/
if(ATCol_T18==0){Create_Button(button_AT_T18,"NT",30,15,z_axis+675,(17*16)+y_axis,clrAliceBlue,clrBlack);}//TORT AU
if(ATCol_T18==1){Create_Button(button_AT_T18,"AT",30,15,z_axis+675,(17*16)+y_axis,clrMaroon,clrWhite);}
/*
if(ATCol_T19==0){Create_Button(button_AT_T19,"NT",30,15,z_axis+675,(18*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_T19==1){Create_Button(button_AT_T19,"AT",30,15,z_axis+675,(18*16)+y_axis,clrMaroon,clrWhite);}
*/
if(ATCol_T20==0){Create_Button(button_AT_T20,"NT",30,15,z_axis+675,(19*16)+y_axis,clrAliceBlue,clrBlack);}//TORT AJ
if(ATCol_T20==1){Create_Button(button_AT_T20,"AT",30,15,z_axis+675,(19*16)+y_axis,clrMaroon,clrWhite);}
/*
if(ATCol_T21==0){Create_Button(button_AT_T21,"NT",30,15,z_axis+675,(20*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_T21==1){Create_Button(button_AT_T21,"AT",30,15,z_axis+675,(20*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_T22==0){Create_Button(button_AT_T22,"NT",30,15,z_axis+675,(21*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_T22==1){Create_Button(button_AT_T22,"AT",30,15,z_axis+675,(21*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_T23==0){Create_Button(button_AT_T23,"NT",30,15,z_axis+675,(22*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_T23==1){Create_Button(button_AT_T23,"AT",30,15,z_axis+675,(22*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_T24==0){Create_Button(button_AT_T24,"NT",30,15,z_axis+675,(23*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_T24==1){Create_Button(button_AT_T24,"AT",30,15,z_axis+675,(23*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_T25==0){Create_Button(button_AT_T25,"NT",30,15,z_axis+675,(24*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_T25==1){Create_Button(button_AT_T25,"AT",30,15,z_axis+675,(24*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_T26==0){Create_Button(button_AT_T26,"NT",30,15,z_axis+675,(25*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_T26==1){Create_Button(button_AT_T26,"AT",30,15,z_axis+675,(25*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_T27==0){Create_Button(button_AT_T27,"NT",30,15,z_axis+675,(26*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_T27==1){Create_Button(button_AT_T27,"AT",30,15,z_axis+675,(26*16)+y_axis,clrMaroon,clrWhite);}
if(ATCol_T28==0){Create_Button(button_AT_T28,"NT",30,15,z_axis+675,(27*16)+y_axis,clrAliceBlue,clrBlack);}
if(ATCol_T28==1){Create_Button(button_AT_T28,"AT",30,15,z_axis+675,(27*16)+y_axis,clrMaroon,clrWhite);}
//set variables for testing to give alarm only once
//if(BS[i]==2 || BS[i]==5){ALPair=TradePair[i],ALColor=Color14;}
/*
if(ALPair!=(TradePair[i]) && ALColor!=BS[i])
{
if(BS[i]==2 || BS[i]==5)
{
if(BS[i]==2){NowCol="BUY";}
if(BS[i]==5){NowCol="SELL";}
Alert("Trade ", NowCol," ", TradePair[i]," now!");
ALPair=(TradePair[i]);ALColor=NowCol;
}
else
{
// Alert("Nevermind");
}
}
*/
if(ATCol_1==1 && i==1){FautoTradeUC(i);}//checking if USDCHF AT button is on
if(ATCol_T1==1 && i==1){FautoTradeTORT_UC(i);}//checking if USDCHF TORT AT button is on
if(ATCol_4==1 && i==4){FautoTradeEU(i);}//checking if EURUSD AT button is on
if(ATCol_T4==1 && i==4){FautoTradeTORT_EU(i);}//checking if EURUSD TORT AT button is on
if(ATCol_7==1 && i==7){FautoTradeEJ(i);}//checking if EURJPY AT button is on
if(ATCol_T7==1 && i==7){FautoTradeTORT_EJ(i);}//checking if EURJPY TORT AT button is on
if(ATCol_8==1 && i==8){FautoTradeEA(i);}//checking if EURAUD AT button is on
if(ATCol_T8==1 && i==8){FautoTradeTORT_EA(i);}//checking if EURAUD TORT AT button is on
if(ATCol_11==1 && i==11){FautoTradeGU(i);}//checking if GBPUSD AT button is on
if(ATCol_T11==1 && i==11){FautoTradeTORT_GU(i);}//checking if GBPUSD TORT AT button is on
if(ATCol_14==1 && i==14){FautoTradeGA(i);}//checking if GBPAUD AT button is on
if(ATCol_T14==1 && i==14){FautoTradeTORT_GA(i);}//checking if GBPAUD TORT AT button is on
if(ATCol_16==1 && i==16){FautoTradeGN(i);}//checking if GBPNZD AT button is on
if(ATCol_T16==1 && i==16){FautoTradeTORT_GN(i);}//checking if GBPNZD TORT AT button is on
if(ATCol_18==1 && i==18){FautoTradeAU(i);}//checking if AUDUSD AT button is on
if(ATCol_T18==1 && i==18){FautoTradeTORT_AU(i);}//checking if AUDUSD TORT AT button is on
if(ATCol_20==1 && i==20){FautoTradeAJ(i);}//checking if AUDJPY AT button is on
if(ATCol_T20==1 && i==20){FautoTradeTORT_AJ(i);}//checking if AUDJPY TORT AT button is on
}
}
//+------------------------------------------------------------------+
//++++function for autotrading USDCHF here!
void FautoTradeUC(int i)
{
int UCATrade=0;
int orders1=0,TicOrder=0;
orders1 = OrdersTotal();
//+---------
for(int m=0;m<orders1;m++)//see if USDCHF is already open
{
if(OrderSelect(m,SELECT_BY_POS)==true && OrderSymbol()=="USDCHF" && OrderMagicNumber()==4141)//checks if pair is open already
{
//Alert("already have order for USDCHF");
TicOrder=OrderTicket();
UCATrade=1;
//check if order needs to be closed
if(OrderType()==OP_BUY && UCATrade==1)//if order is buy, check to close
{if(iSAR("USDCHF",PERIOD_H1,0.02,0.2,0)>iOpen("USDCHF",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("USDCHF",MODE_BID),3,Red);}
}
if(OrderType()==OP_SELL && UCATrade==1)//if order is sell, check to close
{if(iSAR("USDCHF",PERIOD_H1,0.02,0.2,0)<iOpen("USDCHF",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("USDCHF",MODE_ASK),3,Red);}
}
}
}
//+-----------
if(UCATrade==0)
{if((iMA("USDCHF",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("USDCHF",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("USDCHF",PERIOD_H1,0.02,0.2,0)<iClose("USDCHF",PERIOD_H1,0))//are conditions valid to buy?
{
double O_TP=0.0,O_SL=0.0,takepro=H_TP*.0001,stoploss=H_SL*.0001;
if(H_TP!=0){O_TP=MarketInfo("USDCHF",MODE_ASK)+takepro;}
if(H_SL!=0){O_SL=MarketInfo("USDCHF",MODE_ASK)-stoploss;}
ticket=OrderSend("USDCHF",OP_BUY,H_Lot,MarketInfo("USDCHF",MODE_ASK),100,O_SL,O_TP,"Auto-Trade",4141,0,Blue);
Alert("the HARE just bought USDCHF now" );
}
if((iMA("USDCHF",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("USDCHF",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("USDCHF",PERIOD_H1,0.02,0.2,0)>iClose("USDCHF",PERIOD_H1,0))//are conditions valid to sell?
{
double O_TP=0.0,O_SL=0.0,takepro=H_TP*.0001,stoploss=H_SL*.0001;
if(H_TP!=0){O_TP=MarketInfo("USDCHF",MODE_BID)-takepro;}
if(H_SL!=0){O_SL=MarketInfo("USDCHF",MODE_BID)+stoploss;}
ticket=OrderSend("USDCHF",OP_SELL,H_Lot,MarketInfo("USDCHF",MODE_BID),100,O_SL,O_TP,"Auto-Trade",4141,0,Blue);
Alert("the Hare just sold USDCHF now" );
}
}
}
//77777777777777777777777777777777777777777777 TORT FUNCTION for USDCHF
void FautoTradeTORT_UC(int i)
{
int TOR_UCATrade=0;
int orders1=0,TicOrder=0;
orders1 = OrdersTotal();
//+---------
for(int m=0;m<orders1;m++)//see if USDCHF is already open
{
if(OrderSelect(m,SELECT_BY_POS)==true && OrderSymbol()=="USDCHF" && OrderMagicNumber()==7777)//checks if pair is open already
{
//Alert("already have order for USDCHF-TEST");
TicOrder=OrderTicket();
TOR_UCATrade=1;
//check if order needs to be closed
if(OrderType()==OP_BUY && TOR_UCATrade==1)//if order is buy, check to close
{if(iSAR("USDCHF",PERIOD_H1,0.02,0.2,0)>iOpen("USDCHF",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("USDCHF",MODE_BID),3,Red);}
}
if(OrderType()==OP_SELL && TOR_UCATrade==1)//if order is sell, check to close
{if(iSAR("USDCHF",PERIOD_H1,0.02,0.2,0)<iOpen("USDCHF",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("USDCHF",MODE_ASK),3,Red);}
}
}
}
//+-----------
if(TOR_UCATrade==0)
{if((iMA("USDCHF",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("USDCHF",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("USDCHF",PERIOD_H1,0.02,0.2,0)<iClose("USDCHF",PERIOD_H1,0)
&& (iMA("USDCHF",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("USDCHF",PERIOD_H1,49,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor))//are conditions valid to buy?
{
double O_TP=0.0,O_SL=0.0,takepro=TOR_TP*.0001,stoploss=TOR_SL*.0001;
if(TOR_TP!=0){O_TP=MarketInfo("USDCHF",MODE_ASK)+takepro;}
if(TOR_SL!=0){O_SL=MarketInfo("USDCHF",MODE_ASK)-stoploss;}
ticket=OrderSend("USDCHF",OP_BUY,TOR_Lot,MarketInfo("USDCHF",MODE_ASK),100,O_SL,O_TP,"Auto-Trade",7777,0,Blue);
Alert("just bought USDCHF now" );
}
if((iMA("USDCHF",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("USDCHF",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("USDCHF",PERIOD_H1,0.02,0.2,0)>iClose("USDCHF",PERIOD_H1,0)
&& (iMA("USDCHF",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("USDCHF",PERIOD_H1,49,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor))//are conditions valid to sell?
{
double O_TP=0.0,O_SL=0.0,takepro=H_TP*.0001,stoploss=H_SL*.0001;
if(TOR_TP!=0){O_TP=MarketInfo("USDCHF",MODE_BID)-takepro;}
if(TOR_SL!=0){O_SL=MarketInfo("USDCHF",MODE_BID)+stoploss;}
ticket=OrderSend("USDCHF",OP_SELL,TOR_Lot,MarketInfo("USDCHF",MODE_BID),100,O_SL,O_TP,"Auto-Trade",7777,0,Blue);
Alert("just sold USDCHF now" );
}
}
}
//+------------------------------------------------------------------+
//++++function for autotrading EURUSD here!
void FautoTradeEU(int i)
{
int EUATrade=0;
int orders1=0,TicOrder=0;
orders1 = OrdersTotal();
//+---------
for(int m=0;m<orders1;m++)//see if EURUSD is already open
{
if(OrderSelect(m,SELECT_BY_POS)==true && OrderSymbol()=="EURUSD" && OrderMagicNumber()==4141)//checks if pair is open already
{
//Alert("already have order for EURUSD");
TicOrder=OrderTicket();
EUATrade=1;
//check if order needs to be closed
if(OrderType()==OP_BUY && EUATrade==1)//if order is buy, check to close
{if(iSAR("EURUSD",PERIOD_H1,0.02,0.2,0)>iOpen("EURUSD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("EURUSD",MODE_BID),3,Red);}
}
if(OrderType()==OP_SELL && EUATrade==1)//if order is sell, check to close
{if(iSAR("EURUSD",PERIOD_H1,0.02,0.2,0)<iOpen("EURUSD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("EURUSD",MODE_ASK),3,Red);}
}
}
}
//+-----------
if(EUATrade==0)
{if((iMA("EURUSD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("EURUSD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("EURUSD",PERIOD_H1,0.02,0.2,0)<iClose("EURUSD",PERIOD_H1,0))//are conditions valid to buy?
{
double O_TP=0.0,O_SL=0.0,takepro=H_TP*.0001,stoploss=H_SL*.0001;
if(H_TP!=0){O_TP=MarketInfo("EURUSD",MODE_ASK)+takepro;}
if(H_SL!=0){O_SL=MarketInfo("EURUSD",MODE_ASK)-stoploss;}
ticket=OrderSend("EURUSD",OP_BUY,H_Lot,MarketInfo("EURUSD",MODE_ASK),100,O_SL,O_TP,"Auto-Trade",4141,0,Blue);
Alert("just bought EURUSD now" );
}
if((iMA("EURUSD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("EURUSD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("EURUSD",PERIOD_H1,0.02,0.2,0)>iClose("EURUSD",PERIOD_H1,0))//are conditions valid to sell?
{
double O_TP=0.0,O_SL=0.0,takepro=H_TP*.0001,stoploss=H_SL*.0001;
if(H_TP!=0){O_TP=MarketInfo("EURUSD",MODE_ASK)+takepro;}
if(H_SL!=0){O_SL=MarketInfo("EURUSD",MODE_ASK)-stoploss;}
ticket=OrderSend("EURUSD",OP_SELL,H_Lot,MarketInfo("EURUSD",MODE_BID),100,O_SL,O_TP,"Auto-Trade",4141,0,Blue);
Alert("just sold EURUSD now" );
}
}
}
//77777777777777777777777777777777777777777777 TORT FUNCTION for eurusd
void FautoTradeTORT_EU(int i)
{
int TOR_EUATrade=0;
int orders1=0,TicOrder=0;
orders1 = OrdersTotal();
//+---------
for(int m=0;m<orders1;m++)//see if EURUSD is already open
{
if(OrderSelect(m,SELECT_BY_POS)==true && OrderSymbol()=="EURUSD" && OrderMagicNumber()==7777)//checks if pair is open already
{
//Alert("already have order for EURUSD-TEST");
TicOrder=OrderTicket();
TOR_EUATrade=1;
//check if order needs to be closed
if(OrderType()==OP_BUY && TOR_EUATrade==1)//if order is buy, check to close
{if(iSAR("EURUSD",PERIOD_H1,0.02,0.2,0)>iOpen("EURUSD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("EURUSD",MODE_BID),3,Red);}
}
if(OrderType()==OP_SELL && TOR_EUATrade==1)//if order is sell, check to close
{if(iSAR("EURUSD",PERIOD_H1,0.02,0.2,0)<iOpen("EURUSD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("EURUSD",MODE_ASK),3,Red);}
}
}
}
//+-----------
if(TOR_EUATrade==0)
{if((iMA("EURUSD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("EURUSD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("EURUSD",PERIOD_H1,0.02,0.2,0)<iClose("EURUSD",PERIOD_H1,0)
&& (iMA("EURUSD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("EURUSD",PERIOD_H1,49,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor))//are conditions valid to buy?
{
double O_TP=0.0,O_SL=0.0,takepro=TOR_TP*.0001,stoploss=TOR_SL*.0001;
if(TOR_TP!=0){O_TP=MarketInfo("EURUSD",MODE_ASK)+takepro;}
if(TOR_SL!=0){O_SL=MarketInfo("EURUSD",MODE_ASK)-stoploss;}
ticket=OrderSend("EURUSD",OP_BUY,TOR_Lot,MarketInfo("EURUSD",MODE_ASK),100,O_SL,O_TP,"Auto-Trade",7777,0,Blue);
Alert("just bought EURUSD now" );
}
if((iMA("EURUSD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("EURUSD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("EURUSD",PERIOD_H1,0.02,0.2,0)>iClose("EURUSD",PERIOD_H1,0)
&& (iMA("EURUSD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("EURUSD",PERIOD_H1,49,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor))//are conditions valid to sell?
{
double O_TP=0.0,O_SL=0.0,takepro=TOR_TP*.0001,stoploss=TOR_SL*.0001;
if(TOR_TP!=0){O_TP=MarketInfo("EURUSD",MODE_ASK)+takepro;}
if(TOR_SL!=0){O_SL=MarketInfo("EURUSD",MODE_ASK)-stoploss;}
ticket=OrderSend("EURUSD",OP_SELL,TOR_Lot,MarketInfo("EURUSD",MODE_BID),100,O_SL,O_TP,"Auto-Trade",7777,0,Blue);
Alert("just sold EURUSD now" );
}
}
}
//+------------------------------------------------------------------+
//++++function for autotrading EURJPY here!
void FautoTradeEJ(int i)
{
int EJATrade=0;
int orders1=0,TicOrder=0;
orders1 = OrdersTotal();
//+---------
for(int m=0;m<orders1;m++)//see if EURJPY is already open
{
if(OrderSelect(m,SELECT_BY_POS)==true && OrderSymbol()=="EURJPY" && OrderMagicNumber()==4141)//checks if pair is open already
{
//Alert("already have order for EURJPY");
TicOrder=OrderTicket();
EJATrade=1;
//check if order needs to be closed
if(OrderType()==OP_BUY && EJATrade==1)//if order is buy, check to close
{if(iSAR("EURJPY",PERIOD_H1,0.02,0.2,0)>iOpen("EURJPY",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("EURJPY",MODE_BID),3,Red);}
}
if(OrderType()==OP_SELL && EJATrade==1)//if order is sell, check to close
{if(iSAR("EURJPY",PERIOD_H1,0.02,0.2,0)<iOpen("EURJPY",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("EURJPY",MODE_ASK),3,Red);}
}
}
}
//+-----------
if(EJATrade==0)
{if((iMA("EURJPY",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("EURJPY",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("EURJPY",PERIOD_H1,0.02,0.2,0)<iClose("EURJPY",PERIOD_H1,0))//are conditions valid to buy?
{
ticket=OrderSend("EURJPY",OP_BUY,H_Lot,MarketInfo("EURJPY",MODE_ASK),100,0,0,"Auto-Trade",4141,0,Blue);
Alert("HARE just bought EURJPY now" );
}
if((iMA("EURJPY",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("EURJPY",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("EURJPY",PERIOD_H1,0.02,0.2,0)>iClose("EURJPY",PERIOD_H1,0))//are conditions valid to sell?
{
ticket=OrderSend("EURJPY",OP_SELL,H_Lot,MarketInfo("EURJPY",MODE_BID),100,0,0,"Auto-Trade",4141,0,Blue);
Alert("HARE just sold EURJPY now" );
}
}
}
//77777777777777777777777777777777777777777777 TORT FUNCTION for eurjpy
void FautoTradeTORT_EJ(int i)
{
int TOR_EJATrade=0;
int orders1=0,TicOrder=0;
orders1 = OrdersTotal();
//+---------
for(int m=0;m<orders1;m++)//see if EURJPY is already open
{
if(OrderSelect(m,SELECT_BY_POS)==true && OrderSymbol()=="EURJPY" && OrderMagicNumber()==7777)//checks if pair is open already
{
//Alert("already have order for EURJPY-TEST");
TicOrder=OrderTicket();
TOR_EJATrade=1;
//check if order needs to be closed
if(OrderType()==OP_BUY && TOR_EJATrade==1)//if order is buy, check to close
{if(iSAR("EURJPY",PERIOD_H1,0.02,0.2,0)>iOpen("EURJPY",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("EURJPY",MODE_BID),3,Red);}
}
if(OrderType()==OP_SELL && TOR_EJATrade==1)//if order is sell, check to close
{if(iSAR("EURJPY",PERIOD_H1,0.02,0.2,0)<iOpen("EURJPY",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("EURJPY",MODE_ASK),3,Red);}
}
}
}
//+-----------
if(TOR_EJATrade==0)
{if((iMA("EURJPY",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("EURJPY",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("EURJPY",PERIOD_H1,0.02,0.2,0)<iClose("EURJPY",PERIOD_H1,0)
&& (iMA("EURJPY",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("EURJPY",PERIOD_H1,49,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor))//are conditions valid to buy?
{
ticket=OrderSend("EURJPY",OP_BUY,TOR_Lot,MarketInfo("EURJPY",MODE_ASK),100,0,0,"Auto-Trade",7777,0,Blue);
Alert("TORT just bought EURJPY now" );
}
if((iMA("EURJPY",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("EURJPY",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("EURJPY",PERIOD_H1,0.02,0.2,0)>iClose("EURJPY",PERIOD_H1,0)
&& (iMA("EURJPY",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("EURJPY",PERIOD_H1,49,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor))//are conditions valid to sell?
{
ticket=OrderSend("EURJPY",OP_SELL,TOR_Lot,MarketInfo("EURJPY",MODE_BID),100,0,0,"Auto-Trade",7777,0,Blue);
Alert("TORT just sold EURJPY now" );
}
}
}
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
//++++function for autotrading EURAUD here!
void FautoTradeEA(int i)
{
int EAATrade=0;
int orders1=0,TicOrder=0;
orders1 = OrdersTotal();
//+---------
for(int m=0;m<orders1;m++)//see if EURAUD is already open
{
if(OrderSelect(m,SELECT_BY_POS)==true && OrderSymbol()=="EURAUD" && OrderMagicNumber()==4141)//checks if pair is open already
{
//Alert("already have order for EURAUD");
TicOrder=OrderTicket();
EAATrade=1;
//check if order needs to be closed
if(OrderType()==OP_BUY && EAATrade==1)//if order is buy, check to close
{if(iSAR("EURAUD",PERIOD_H1,0.02,0.2,0)>iOpen("EURAUD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("EURAUD",MODE_BID),3,Red);}
}
if(OrderType()==OP_SELL && EAATrade==1)//if order is sell, check to close
{if(iSAR("EURAUD",PERIOD_H1,0.02,0.2,0)<iOpen("EURAUD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("EURAUD",MODE_ASK),3,Red);}
}
}
}
//+-----------
if(EAATrade==0)
{if((iMA("EURAUD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("EURAUD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("EURAUD",PERIOD_H1,0.02,0.2,0)<iClose("EURAUD",PERIOD_H1,0))//are conditions valid to buy?
{
double O_TP=0.0,O_SL=0.0,takepro=H_TP*.0001,stoploss=H_SL*.0001;
if(H_TP!=0){O_TP=MarketInfo("EURAUD",MODE_ASK)+takepro;}
if(H_SL!=0){O_SL=MarketInfo("EURAUD",MODE_ASK)-stoploss;}
ticket=OrderSend("EURAUD",OP_BUY,H_Lot,MarketInfo("EURAUD",MODE_ASK),100,O_SL,O_TP,"Auto-Trade",4141,0,Blue);
Alert("HARE just bought EURAUD now" );
}
if((iMA("EURAUD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("EURAUD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("EURAUD",PERIOD_H1,0.02,0.2,0)>iClose("EURAUD",PERIOD_H1,0))//are conditions valid to sell?
{
double O_TP=0.0,O_SL=0.0,takepro=H_TP*.0001,stoploss=H_SL*.0001;
if(H_TP!=0){O_TP=MarketInfo("EURAUD",MODE_ASK)+takepro;}
if(H_SL!=0){O_SL=MarketInfo("EURAUD",MODE_ASK)-stoploss;}
ticket=OrderSend("EURAUD",OP_SELL,H_Lot,MarketInfo("EURAUD",MODE_BID),100,O_SL,O_TP,"Auto-Trade",4141,0,Blue);
Alert("HARE just sold EURAUD now" );
}
}
}
//77777777777777777777777777777777777777777777 TORT FUNCTION for euraud
void FautoTradeTORT_EA(int i)
{
int TOR_EAATrade=0;
int orders1=0,TicOrder=0;
orders1 = OrdersTotal();
//+---------
for(int m=0;m<orders1;m++)//see if EURAUD is already open
{
if(OrderSelect(m,SELECT_BY_POS)==true && OrderSymbol()=="EURAUD" && OrderMagicNumber()==7777)//checks if pair is open already
{
//Alert("already have order for EURAUD-TEST");
TicOrder=OrderTicket();
TOR_EAATrade=1;
//check if order needs to be closed
if(OrderType()==OP_BUY && TOR_EAATrade==1)//if order is buy, check to close
{if(iSAR("EURAUD",PERIOD_H1,0.02,0.2,0)>iOpen("EURAUD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("EURAUD",MODE_BID),3,Red);}
}
if(OrderType()==OP_SELL && TOR_EAATrade==1)//if order is sell, check to close
{if(iSAR("EURAUD",PERIOD_H1,0.02,0.2,0)<iOpen("EURAUD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("EURAUD",MODE_ASK),3,Red);}
}
}
}
//+-----------
if(TOR_EAATrade==0)
{if((iMA("EURAUD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("EURAUD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("EURAUD",PERIOD_H1,0.02,0.2,0)<iClose("EURAUD",PERIOD_H1,0)
&& (iMA("EURAUD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("EURAUD",PERIOD_H1,49,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor))//are conditions valid to buy?
{
double O_TP=0.0,O_SL=0.0,takepro=TOR_TP*.0001,stoploss=TOR_SL*.0001;
if(TOR_TP!=0){O_TP=MarketInfo("EURAUD",MODE_ASK)+takepro;}
if(TOR_SL!=0){O_SL=MarketInfo("EURAUD",MODE_ASK)-stoploss;}
ticket=OrderSend("EURAUD",OP_BUY,TOR_Lot,MarketInfo("EURAUD",MODE_ASK),100,O_SL,O_TP,"Auto-Trade",7777,0,Blue);
Alert("TORT just bought EURAUD now" );
}
if((iMA("EURAUD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("EURAUD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("EURAUD",PERIOD_H1,0.02,0.2,0)>iClose("EURAUD",PERIOD_H1,0)
&& (iMA("EURAUD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("EURAUD",PERIOD_H1,49,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor))//are conditions valid to sell?
{
double O_TP=0.0,O_SL=0.0,takepro=TOR_TP*.0001,stoploss=TOR_SL*.0001;
if(TOR_TP!=0){O_TP=MarketInfo("EURAUD",MODE_ASK)+takepro;}
if(TOR_SL!=0){O_SL=MarketInfo("EURAUD",MODE_ASK)-stoploss;}
ticket=OrderSend("EURAUD",OP_SELL,TOR_Lot,MarketInfo("EURAUD",MODE_BID),100,O_SL,O_TP,"Auto-Trade",7777,0,Blue);
Alert("TORT just sold EURAUD now" );
}
}
}
//+------------------------------------------------------------------+
//++++function for autotrading GBPUSD here!
void FautoTradeGU(int i)
{
int GUATrade=0;
int orders1=0,TicOrder=0;
orders1 = OrdersTotal();
//+---------
for(int m=0;m<orders1;m++)//see if GBPUSD is already open
{
if(OrderSelect(m,SELECT_BY_POS)==true && OrderSymbol()=="GBPUSD" && OrderMagicNumber()==4141)//checks if pair is open already
{
//Alert("already have order for GBPUSD");
TicOrder=OrderTicket();
GUATrade=1;
//check if order needs to be closed
if(OrderType()==OP_BUY && GUATrade==1)//if order is buy, check to close
{if(iSAR("GBPUSD",PERIOD_H1,0.02,0.2,0)>iOpen("GBPUSD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("GBPUSD",MODE_BID),3,Red);}
}
if(OrderType()==OP_SELL && GUATrade==1)//if order is sell, check to close
{if(iSAR("GBPUSD",PERIOD_H1,0.02,0.2,0)<iOpen("GBPUSD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("GBPUSD",MODE_ASK),3,Red);}
}
}
}
//+-----------
if(GUATrade==0)
{if((iMA("GBPUSD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("GBPUSD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("GBPUSD",PERIOD_H1,0.02,0.2,0)<iClose("GBPUSD",PERIOD_H1,0))//are conditions valid to buy?
{
double O_TP=0.0,O_SL=0.0,takepro=H_TP*.0001,stoploss=H_SL*.0001;
if(H_TP!=0){O_TP=MarketInfo("GBPUSD",MODE_ASK)+takepro;}
if(H_SL!=0){O_SL=MarketInfo("GBPUSD",MODE_ASK)-stoploss;}
ticket=OrderSend("GBPUSD",OP_BUY,H_Lot,MarketInfo("GBPUSD",MODE_ASK),100,O_SL,O_TP,"Auto-Trade",4141,0,Blue);
Alert("HARE just bought GBPUSD now" );
}
if((iMA("GBPUSD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("GBPUSD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("GBPUSD",PERIOD_H1,0.02,0.2,0)>iClose("GBPUSD",PERIOD_H1,0))//are conditions valid to sell?
{
double O_TP=0.0,O_SL=0.0,takepro=H_TP*.0001,stoploss=H_SL*.0001;
if(H_TP!=0){O_TP=MarketInfo("GBPUSD",MODE_ASK)+takepro;}
if(H_SL!=0){O_SL=MarketInfo("GBPUSD",MODE_ASK)-stoploss;}
ticket=OrderSend("GBPUSD",OP_SELL,H_Lot,MarketInfo("GBPUSD",MODE_BID),100,O_SL,O_TP,"Auto-Trade",4141,0,Blue);
Alert("HARE just sold GBPUSD now" );
}
}
}
//77777777777777777777777777777777777777777777 TORT FUNCTION for gbpusd
void FautoTradeTORT_GU(int i)
{
int TOR_GUATrade=0;
int orders1=0,TicOrder=0;
orders1 = OrdersTotal();
//+---------
for(int m=0;m<orders1;m++)//see if GBPUSD is already open
{
if(OrderSelect(m,SELECT_BY_POS)==true && OrderSymbol()=="GBPUSD" && OrderMagicNumber()==7777)//checks if pair is open already
{
//Alert("already have order for GBPUSD-TEST");
TicOrder=OrderTicket();
TOR_GUATrade=1;
//check if order needs to be closed
if(OrderType()==OP_BUY && TOR_GUATrade==1)//if order is buy, check to close
{if(iSAR("GBPUSD",PERIOD_H1,0.02,0.2,0)>iOpen("GBPUSD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("GBPUSD",MODE_BID),3,Red);}
}
if(OrderType()==OP_SELL && TOR_GUATrade==1)//if order is sell, check to close
{if(iSAR("GBPUSD",PERIOD_H1,0.02,0.2,0)<iOpen("GBPUSD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("GBPUSD",MODE_ASK),3,Red);}
}
}
}
//+-----------
if(TOR_GUATrade==0)
{if((iMA("GBPUSD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("GBPUSD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("GBPUSD",PERIOD_H1,0.02,0.2,0)<iClose("GBPUSD",PERIOD_H1,0)
&& (iMA("GBPUSD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("GBPUSD",PERIOD_H1,49,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor))//are conditions valid to buy?
{
double O_TP=0.0,O_SL=0.0,takepro=TOR_TP*.0001,stoploss=TOR_SL*.0001;
if(TOR_TP!=0){O_TP=MarketInfo("GBPUSD",MODE_ASK)+takepro;}
if(TOR_SL!=0){O_SL=MarketInfo("GBPUSD",MODE_ASK)-stoploss;}
ticket=OrderSend("GBPUSD",OP_BUY,TOR_Lot,MarketInfo("GBPUSD",MODE_ASK),100,O_SL,O_TP,"Auto-Trade",7777,0,Blue);
Alert("TORT just bought GBPUSD now" );
}
if((iMA("GBPUSD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("GBPUSD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("GBPUSD",PERIOD_H1,0.02,0.2,0)>iClose("GBPUSD",PERIOD_H1,0)
&& (iMA("GBPUSD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("GBPUSD",PERIOD_H1,49,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor))//are conditions valid to sell?
{
double O_TP=0.0,O_SL=0.0,takepro=TOR_TP*.0001,stoploss=TOR_SL*.0001;
if(TOR_TP!=0){O_TP=MarketInfo("GBPUSD",MODE_ASK)+takepro;}
if(TOR_SL!=0){O_SL=MarketInfo("GBPUSD",MODE_ASK)-stoploss;}
ticket=OrderSend("GBPUSD",OP_SELL,TOR_Lot,MarketInfo("GBPUSD",MODE_BID),100,O_SL,O_TP,"Auto-Trade",7777,0,Blue);
Alert("TORT just sold GBPUSD now" );
}
}
}
//+-----------
//++++function for autotrading GBPAUD here!
void FautoTradeGA(int i)
{
int GAATrade=0;
int orders1=0,TicOrder=0;
orders1 = OrdersTotal();
//+---------
for(int m=0;m<orders1;m++)//see if GBPAUD is already open
{
if(OrderSelect(m,SELECT_BY_POS)==true && OrderSymbol()=="GBPAUD" && OrderMagicNumber()==4141)//checks if pair is open already
{
//Alert("already have order for GBPAUD");
TicOrder=OrderTicket();
GAATrade=1;
//check if order needs to be closed
if(OrderType()==OP_BUY && GAATrade==1)//if order is buy, check to close
{if(iSAR("GBPAUD",PERIOD_H1,0.02,0.2,0)>iOpen("GBPAUD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("GBPAUD",MODE_BID),3,Red);}
}
if(OrderType()==OP_SELL && GAATrade==1)//if order is sell, check to close
{if(iSAR("GBPAUD",PERIOD_H1,0.02,0.2,0)<iOpen("GBPAUD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("GBPAUD",MODE_ASK),3,Red);}
}
}
}
//+-----------
if(GAATrade==0)
{if((iMA("GBPAUD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("GBPAUD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("GBPAUD",PERIOD_H1,0.02,0.2,0)<iClose("GBPAUD",PERIOD_H1,0))//are conditions valid to buy?
{
double O_TP=0.0,O_SL=0.0,takepro=H_TP*.0001,stoploss=H_SL*.0001;
if(H_TP!=0){O_TP=MarketInfo("GBPAUD",MODE_ASK)+takepro;}
if(H_SL!=0){O_SL=MarketInfo("GBPAUD",MODE_ASK)-stoploss;}
ticket=OrderSend("GBPAUD",OP_BUY,H_Lot,MarketInfo("GBPAUD",MODE_ASK),100,O_SL,O_TP,"Auto-Trade",4141,0,Blue);
Alert("HARE just bought GBPAUD now" );
}
if((iMA("GBPAUD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("GBPAUD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("GBPAUD",PERIOD_H1,0.02,0.2,0)>iClose("GBPAUD",PERIOD_H1,0))//are conditions valid to sell?
{
double O_TP=0.0,O_SL=0.0,takepro=H_TP*.0001,stoploss=H_SL*.0001;
if(H_TP!=0){O_TP=MarketInfo("GBPAUD",MODE_ASK)+takepro;}
if(H_SL!=0){O_SL=MarketInfo("GBPAUD",MODE_ASK)-stoploss;}
ticket=OrderSend("GBPAUD",OP_SELL,H_Lot,MarketInfo("GBPAUD",MODE_BID),100,O_SL,O_TP,"Auto-Trade",4141,0,Blue);
Alert("HARE just sold GBPAUD now" );
}
}
}
//77777777777777777777777777777777777777777777 TORT FUNCTION for gbpaud
void FautoTradeTORT_GA(int i)
{
int TOR_GAATrade=0;
int orders1=0,TicOrder=0;
orders1 = OrdersTotal();
//+---------
for(int m=0;m<orders1;m++)//see if GBPAUD is already open
{
if(OrderSelect(m,SELECT_BY_POS)==true && OrderSymbol()=="GBPAUD" && OrderMagicNumber()==7777)//checks if pair is open already
{
//Alert("already have order for GBPAUD-TEST");
TicOrder=OrderTicket();
TOR_GAATrade=1;
//check if order needs to be closed
if(OrderType()==OP_BUY && TOR_GAATrade==1)//if order is buy, check to close
{if(iSAR("GBPAUD",PERIOD_H1,0.02,0.2,0)>iOpen("GBPAUD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("GBPAUD",MODE_BID),3,Red);}
}
if(OrderType()==OP_SELL && TOR_GAATrade==1)//if order is sell, check to close
{if(iSAR("GBPAUD",PERIOD_H1,0.02,0.2,0)<iOpen("GBPAUD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("GBPAUD",MODE_ASK),3,Red);}
}
}
}
//+-----------
if(TOR_GAATrade==0)
{if((iMA("GBPAUD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("GBPAUD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("GBPAUD",PERIOD_H1,0.02,0.2,0)<iClose("GBPAUD",PERIOD_H1,0)
&& (iMA("GBPAUD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("GBPAUD",PERIOD_H1,49,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor))//are conditions valid to buy?
{
double O_TP=0.0,O_SL=0.0,takepro=TOR_TP*.0001,stoploss=TOR_SL*.0001;
if(TOR_TP!=0){O_TP=MarketInfo("GBPAUD",MODE_ASK)+takepro;}
if(TOR_SL!=0){O_SL=MarketInfo("GBPAUD",MODE_ASK)-stoploss;}
ticket=OrderSend("GBPAUD",OP_BUY,TOR_Lot,MarketInfo("GBPAUD",MODE_ASK),100,O_SL,O_TP,"Auto-Trade",7777,0,Blue);
Alert("TORT just bought GBPAUD now" );
}
if((iMA("GBPAUD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("GBPAUD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("GBPAUD",PERIOD_H1,0.02,0.2,0)>iClose("GBPAUD",PERIOD_H1,0)
&& (iMA("GBPAUD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("GBPAUD",PERIOD_H1,49,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor))//are conditions valid to sell?
{
double O_TP=0.0,O_SL=0.0,takepro=TOR_TP*.0001,stoploss=TOR_SL*.0001;
if(TOR_TP!=0){O_TP=MarketInfo("GBPAUD",MODE_ASK)+takepro;}
if(TOR_SL!=0){O_SL=MarketInfo("GBPAUD",MODE_ASK)-stoploss;}
ticket=OrderSend("GBPAUD",OP_SELL,TOR_Lot,MarketInfo("GBPAUD",MODE_BID),100,O_SL,O_TP,"Auto-Trade",7777,0,Blue);
Alert("TORT just sold GBPAUD now" );
}
}
}
//+--------------------------------------------------------------------------
//++++function for autotrading GBPNZD here!
void FautoTradeGN(int i)
{
int GNATrade=0;
int orders1=0,TicOrder=0;
orders1 = OrdersTotal();
//+---------
for(int m=0;m<orders1;m++)//see if GBPNZD is already open
{
if(OrderSelect(m,SELECT_BY_POS)==true && OrderSymbol()=="GBPNZD" && OrderMagicNumber()==4141)//checks if pair is open already
{
//Alert("already have order for GBPNZD");
TicOrder=OrderTicket();
GNATrade=1;
//check if order needs to be closed
if(OrderType()==OP_BUY && GNATrade==1)//if order is buy, check to close
{if(iSAR("GBPNZD",PERIOD_H1,0.02,0.2,0)>iOpen("GBPNZD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("GBPNZD",MODE_BID),3,Red);}
}
if(OrderType()==OP_SELL && GNATrade==1)//if order is sell, check to close
{if(iSAR("GBPNZD",PERIOD_H1,0.02,0.2,0)<iOpen("GBPNZD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("GBPNZD",MODE_ASK),3,Red);}
}
}
}
//+-----------
if(GNATrade==0)
{if((iMA("GBPNZD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("GBPNZD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("GBPNZD",PERIOD_H1,0.02,0.2,0)<iClose("GBPNZD",PERIOD_H1,0))//are conditions valid to buy?
{
double O_TP=0.0,O_SL=0.0,takepro=H_TP*.0001,stoploss=H_SL*.0001;
if(H_TP!=0){O_TP=MarketInfo("GBPNZD",MODE_ASK)+takepro;}
if(H_SL!=0){O_SL=MarketInfo("GBPNZD",MODE_ASK)-stoploss;}
ticket=OrderSend("GBPNZD",OP_BUY,H_Lot,MarketInfo("GBPNZD",MODE_ASK),100,O_SL,O_TP,"Auto-Trade",4141,0,Blue);
Alert("HARE just bought GBPNZD now" );
}
if((iMA("GBPNZD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("GBPNZD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("GBPNZD",PERIOD_H1,0.02,0.2,0)>iClose("GBPNZD",PERIOD_H1,0))//are conditions valid to sell?
{
double O_TP=0.0,O_SL=0.0,takepro=H_TP*.0001,stoploss=H_SL*.0001;
if(H_TP!=0){O_TP=MarketInfo("GBPNZD",MODE_ASK)+takepro;}
if(H_SL!=0){O_SL=MarketInfo("GBPNZD",MODE_ASK)-stoploss;}
ticket=OrderSend("GBPNZD",OP_SELL,H_Lot,MarketInfo("GBPNZD",MODE_BID),100,O_SL,O_TP,"Auto-Trade",4141,0,Blue);
Alert("HARE just sold GBPAUD now" );
}
}
}
//77777777777777777777777777777777777777777777 TORT FUNCTION for gbpnzd
void FautoTradeTORT_GN(int i)
{
int TOR_GNATrade=0;
int orders1=0,TicOrder=0;
orders1 = OrdersTotal();
//+---------
for(int m=0;m<orders1;m++)//see if GBPNZD is already open
{
if(OrderSelect(m,SELECT_BY_POS)==true && OrderSymbol()=="GBPNZD" && OrderMagicNumber()==7777)//checks if pair is open already
{
//Alert("already have order for GBPNZD-TEST");
TicOrder=OrderTicket();
TOR_GNATrade=1;
//check if order needs to be closed
if(OrderType()==OP_BUY && TOR_GNATrade==1)//if order is buy, check to close
{if(iSAR("GBPNZD",PERIOD_H1,0.02,0.2,0)>iOpen("GBPNZD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("GBPNZD",MODE_BID),3,Red);}
}
if(OrderType()==OP_SELL && TOR_GNATrade==1)//if order is sell, check to close
{if(iSAR("GBPNZD",PERIOD_H1,0.02,0.2,0)<iOpen("GBPNZD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("GBPNZD",MODE_ASK),3,Red);}
}
}
}
//+-----------
if(TOR_GNATrade==0)
{if((iMA("GBPNZD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("GBPNZD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("GBPNZD",PERIOD_H1,0.02,0.2,0)<iClose("GBPNZD",PERIOD_H1,0)
&& (iMA("GBPNZD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("GBPNZD",PERIOD_H1,49,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor))//are conditions valid to buy?
{
double O_TP=0.0,O_SL=0.0,takepro=TOR_TP*.0001,stoploss=TOR_SL*.0001;
if(TOR_TP!=0){O_TP=MarketInfo("GBPNZD",MODE_ASK)+takepro;}
if(TOR_SL!=0){O_SL=MarketInfo("GBPNZD",MODE_ASK)-stoploss;}
ticket=OrderSend("GBPNZD",OP_BUY,TOR_Lot,MarketInfo("GBPNZD",MODE_ASK),100,O_SL,O_TP,"Auto-Trade",7777,0,Blue);
Alert("TORT just bought GBPNZD now" );
}
if((iMA("GBPNZD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("GBPNZD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("GBPNZD",PERIOD_H1,0.02,0.2,0)>iClose("GBPNZD",PERIOD_H1,0)
&& (iMA("GBPNZD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("GBPNZD",PERIOD_H1,49,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor))//are conditions valid to sell?
{
double O_TP=0.0,O_SL=0.0,takepro=TOR_TP*.0001,stoploss=TOR_SL*.0001;
if(TOR_TP!=0){O_TP=MarketInfo("GBPNZD",MODE_ASK)+takepro;}
if(TOR_SL!=0){O_SL=MarketInfo("GBPNZD",MODE_ASK)-stoploss;}
ticket=OrderSend("GBPNZD",OP_SELL,TOR_Lot,MarketInfo("GBPNZD",MODE_BID),100,O_SL,O_TP,"Auto-Trade",7777,0,Blue);
Alert("TORT just sold GBPNZD now" );
}
}
}
//+-----------
//++++function for autotrading AUDUSD here!
void FautoTradeAU(int i)
{
int AUATrade=0;
int orders1=0,TicOrder=0;
orders1 = OrdersTotal();
//+---------
for(int m=0;m<orders1;m++)//see if AUDUSD is already open
{
if(OrderSelect(m,SELECT_BY_POS)==true && OrderSymbol()=="AUDUSD" && OrderMagicNumber()==4141)//checks if pair is open already
{
//Alert("already have order for AUDUSD");
TicOrder=OrderTicket();
AUATrade=1;
//check if order needs to be closed
if(OrderType()==OP_BUY && AUATrade==1)//if order is buy, check to close
{if(iSAR("AUDUSD",PERIOD_H1,0.02,0.2,0)>iOpen("AUDUSD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("AUDUSD",MODE_BID),3,Red);}
}
if(OrderType()==OP_SELL && AUATrade==1)//if order is sell, check to close
{if(iSAR("AUDUSD",PERIOD_H1,0.02,0.2,0)<iOpen("AUDUSD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("AUDUSD",MODE_ASK),3,Red);}
}
}
}
//+-----------
if(AUATrade==0)
{if((iMA("AUDUSD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("AUDUSD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("AUDUSD",PERIOD_H1,0.02,0.2,0)<iClose("AUDUSD",PERIOD_H1,0))//are conditions valid to buy?
{
double O_TP=0.0,O_SL=0.0,takepro=H_TP*.0001,stoploss=H_SL*.0001;
if(H_TP!=0){O_TP=MarketInfo("AUDUSD",MODE_ASK)+takepro;}
if(H_SL!=0){O_SL=MarketInfo("AUDUSD",MODE_ASK)-stoploss;}
ticket=OrderSend("AUDUSD",OP_BUY,H_Lot,MarketInfo("AUDUSD",MODE_ASK),100,O_SL,O_TP,"Auto-Trade",4141,0,Blue);
Alert("HARE just bought AUDUSD now" );
}
if((iMA("AUDUSD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("AUDUSD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("AUDUSD",PERIOD_H1,0.02,0.2,0)>iClose("AUDUSD",PERIOD_H1,0))//are conditions valid to sell?
{
double O_TP=0.0,O_SL=0.0,takepro=H_TP*.0001,stoploss=H_SL*.0001;
if(H_TP!=0){O_TP=MarketInfo("AUDUSD",MODE_ASK)+takepro;}
if(H_SL!=0){O_SL=MarketInfo("AUDUSD",MODE_ASK)-stoploss;}
ticket=OrderSend("AUDUSD",OP_SELL,H_Lot,MarketInfo("AUDUSD",MODE_BID),100,O_SL,O_TP,"Auto-Trade",4141,0,Blue);
Alert("HARE just sold AUDUSD now" );
}
}
}
//77777777777777777777777777777777777777777777 TORT FUNCTION for audusd
void FautoTradeTORT_AU(int i)
{
int TOR_AUATrade=0;
int orders1=0,TicOrder=0;
orders1 = OrdersTotal();
//+---------
for(int m=0;m<orders1;m++)//see if AUDUSD is already open
{
if(OrderSelect(m,SELECT_BY_POS)==true && OrderSymbol()=="AUDUSD" && OrderMagicNumber()==7777)//checks if pair is open already
{
//Alert("already have order for AUDUSD-TEST");
TicOrder=OrderTicket();
TOR_AUATrade=1;
//check if order needs to be closed
if(OrderType()==OP_BUY && TOR_AUATrade==1)//if order is buy, check to close
{if(iSAR("AUDUSD",PERIOD_H1,0.02,0.2,0)>iOpen("AUDUSD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("AUDUSD",MODE_BID),3,Red);}
}
if(OrderType()==OP_SELL && TOR_AUATrade==1)//if order is sell, check to close
{if(iSAR("AUDUSD",PERIOD_H1,0.02,0.2,0)<iOpen("AUDUSD",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("AUDUSD",MODE_ASK),3,Red);}
}
}
}
//+-----------
if(TOR_AUATrade==0)
{if((iMA("AUDUSD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("AUDUSD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("AUDUSD",PERIOD_H1,0.02,0.2,0)<iClose("AUDUSD",PERIOD_H1,0)
&& (iMA("AUDUSD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("AUDUSD",PERIOD_H1,49,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor))//are conditions valid to buy?
{
double O_TP=0.0,O_SL=0.0,takepro=TOR_TP*.0001,stoploss=TOR_SL*.0001;
if(TOR_TP!=0){O_TP=MarketInfo("AUDUSD",MODE_ASK)+takepro;}
if(TOR_SL!=0){O_SL=MarketInfo("AUDUSD",MODE_ASK)-stoploss;}
ticket=OrderSend("AUDUSD",OP_BUY,TOR_Lot,MarketInfo("AUDUSD",MODE_ASK),100,O_SL,O_TP,"Auto-Trade",7777,0,Blue);
Alert("TORT just bought AUDUSD now" );
}
if((iMA("AUDUSD",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("AUDUSD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("AUDUSD",PERIOD_H1,0.02,0.2,0)>iClose("AUDUSD",PERIOD_H1,0)
&& (iMA("AUDUSD",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("AUDUSD",PERIOD_H1,49,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor))//are conditions valid to sell?
{
double O_TP=0.0,O_SL=0.0,takepro=TOR_TP*.0001,stoploss=TOR_SL*.0001;
if(TOR_TP!=0){O_TP=MarketInfo("AUDUSD",MODE_ASK)+takepro;}
if(TOR_SL!=0){O_SL=MarketInfo("AUDUSD",MODE_ASK)-stoploss;}
ticket=OrderSend("AUDUSD",OP_SELL,TOR_Lot,MarketInfo("AUDUSD",MODE_BID),100,O_SL,O_TP,"Auto-Trade",7777,0,Blue);
Alert("TORT just sold AUDUSD now" );
}
}
}
//+------------------------------------------------------------------------------------------------
//++++function for autotrading AUDJPY here!
void FautoTradeAJ(int i)
{
int AJATrade=0;
int orders1=0,TicOrder=0;
orders1 = OrdersTotal();
//+---------
for(int m=0;m<orders1;m++)//see if AUDJPY is already open
{
if(OrderSelect(m,SELECT_BY_POS)==true && OrderSymbol()=="AUDJPY" && OrderMagicNumber()==4141)//checks if pair is open already
{
//Alert("already have order for AUDJPY");
TicOrder=OrderTicket();
AJATrade=1;
//check if order needs to be closed
if(OrderType()==OP_BUY && AJATrade==1)//if order is buy, check to close
{if(iSAR("AUDJPY",PERIOD_H1,0.02,0.2,0)>iOpen("AUDJPY",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("AUDJPY",MODE_BID),3,Red);}
}
if(OrderType()==OP_SELL && AJATrade==1)//if order is sell, check to close
{if(iSAR("AUDJPY",PERIOD_H1,0.02,0.2,0)<iOpen("AUDJPY",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("AUDJPY",MODE_ASK),3,Red);}
}
}
}
//+-----------
if(AJATrade==0)
{if((iMA("AUDJPY",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("AUDJPY",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("AUDJPY",PERIOD_H1,0.02,0.2,0)<iClose("AUDJPY",PERIOD_H1,0))//are conditions valid to buy?
{
ticket=OrderSend("AUDJPY",OP_BUY,H_Lot,MarketInfo("AUDJPY",MODE_ASK),100,0,0,"Auto-Trade",4141,0,Blue);
Alert("HARE just bought AUDJPY now" );
}
if((iMA("AUDJPY",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("AUDJPY",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("AUDJPY",PERIOD_H1,0.02,0.2,0)>iClose("AUDJPY",PERIOD_H1,0))//are conditions valid to sell?
{
ticket=OrderSend("AUDJPY",OP_SELL,H_Lot,MarketInfo("AUDJPY",MODE_BID),100,0,0,"Auto-Trade",4141,0,Blue);
Alert("HARE just sold AUDJPY now" );
}
}
}
//77777777777777777777777777777777777777777777 TORT FUNCTION for audjpy
void FautoTradeTORT_AJ(int i)
{
int TOR_AJATrade=0;
int orders1=0,TicOrder=0;
orders1 = OrdersTotal();
//+---------
for(int m=0;m<orders1;m++)//see if AUDJPY is already open
{
if(OrderSelect(m,SELECT_BY_POS)==true && OrderSymbol()=="AUDJPY" && OrderMagicNumber()==7777)//checks if pair is open already
{
//Alert("already have order for AUDJPY-TEST");
TicOrder=OrderTicket();
TOR_AJATrade=1;
//check if order needs to be closed
if(OrderType()==OP_BUY && TOR_AJATrade==1)//if order is buy, check to close
{if(iSAR("AUDJPY",PERIOD_H1,0.02,0.2,0)>iOpen("AUDJPY",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("AUDJPY",MODE_BID),3,Red);}
}
if(OrderType()==OP_SELL && TOR_AJATrade==1)//if order is sell, check to close
{if(iSAR("AUDJPY",PERIOD_H1,0.02,0.2,0)<iOpen("AUDJPY",PERIOD_H1,0))
{ticket=OrderClose(TicOrder,OrderLots(),MarketInfo("AUDJPY",MODE_ASK),3,Red);}
}
}
}
//+-----------
if(TOR_AJATrade==0)
{if((iMA("AUDJPY",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("AUDJPY",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("AUDJPY",PERIOD_H1,0.02,0.2,0)<iClose("AUDJPY",PERIOD_H1,0)
&& (iMA("AUDJPY",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor>iMA("AUDJPY",PERIOD_H1,49,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor))//are conditions valid to buy?
{
ticket=OrderSend("AUDJPY",OP_BUY,TOR_Lot,MarketInfo("AUDJPY",MODE_ASK),100,0,0,"Auto-Trade",7777,0,Blue);
Alert("TORT just bought AUDJPY now" );
}
if((iMA("AUDJPY",PERIOD_H1,7,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("AUDJPY",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor)
&& iSAR("AUDJPY",PERIOD_H1,0.02,0.2,0)>iClose("AUDJPY",PERIOD_H1,0)
&& (iMA("AUDJPY",PERIOD_H1,21,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor<iMA("AUDJPY",PERIOD_H1,49,0,MODE_SMA,PRICE_CLOSE,0)/pipsfactor))//are conditions valid to sell?
{
ticket=OrderSend("AUDJPY",OP_SELL,TOR_Lot,MarketInfo("AUDJPY",MODE_BID),100,0,0,"Auto-Trade",7777,0,Blue);
Alert("TORT just sold AUDJPY now" );
}
}
}
//+-------------------------------------------------------------------+
void SetText(string name,string text,int x,int y,color colour,int fontsize=12)
{
if(ObjectCreate(0,name,OBJ_LABEL,0,0,0))
{
ObjectSetInteger(0,name,OBJPROP_XDISTANCE,x);
ObjectSetInteger(0,name,OBJPROP_YDISTANCE,y);
ObjectSetInteger(0,name,OBJPROP_COLOR,colour);
ObjectSetInteger(0,name,OBJPROP_FONTSIZE,fontsize);
ObjectSetInteger(0,name,OBJPROP_CORNER,CORNER_LEFT_UPPER);
}
ObjectSetString(0,name,OBJPROP_TEXT,text);
}
//+------------------------------------------------------------------+
void SetObjText(string name,string CharToStr,int x,int y,color colour,int fontsize=12)
{
if(ObjectCreate(0,name,OBJ_LABEL,0,0,0))
{
ObjectSetInteger(0,name,OBJPROP_FONTSIZE,fontsize);
ObjectSetInteger(0,name,OBJPROP_COLOR,colour);
ObjectSetInteger(0,name,OBJPROP_BACK,false);
ObjectSetInteger(0,name,OBJPROP_XDISTANCE,x);
ObjectSetInteger(0,name,OBJPROP_YDISTANCE,y);
}
ObjectSetString(0,name,OBJPROP_TEXT,CharToStr);
ObjectSetString(0,name,OBJPROP_FONT,"Wingdings");
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void SetPanel(string name,int sub_window,int x,int y,int width,int height,color bg_color,color border_clr,int border_width)
{
if(ObjectCreate(0,name,OBJ_RECTANGLE_LABEL,sub_window,0,0))
{
ObjectSetInteger(0,name,OBJPROP_XDISTANCE,x);
ObjectSetInteger(0,name,OBJPROP_YDISTANCE,y);
ObjectSetInteger(0,name,OBJPROP_XSIZE,width);
ObjectSetInteger(0,name,OBJPROP_YSIZE,height);
ObjectSetInteger(0,name,OBJPROP_COLOR,border_clr);
ObjectSetInteger(0,name,OBJPROP_BORDER_TYPE,BORDER_FLAT);
ObjectSetInteger(0,name,OBJPROP_WIDTH,border_width);
ObjectSetInteger(0,name,OBJPROP_CORNER,CORNER_LEFT_UPPER);
ObjectSetInteger(0,name,OBJPROP_STYLE,STYLE_SOLID);
ObjectSetInteger(0,name,OBJPROP_BACK,true);
ObjectSetInteger(0,name,OBJPROP_SELECTABLE,0);
ObjectSetInteger(0,name,OBJPROP_SELECTED,0);
ObjectSetInteger(0,name,OBJPROP_HIDDEN,true);
ObjectSetInteger(0,name,OBJPROP_ZORDER,0);
}
ObjectSetInteger(0,name,OBJPROP_BGCOLOR,bg_color);
}
//+------------------------------------------------------------------+
void Create_Button(string but_name,string label,int xsize,int ysize,int xdist,int ydist,int bcolor,int fcolor)
{
if(ObjectFind(0,but_name)<0)
{
if(!ObjectCreate(0,but_name,OBJ_BUTTON,0,0,0))
{
Print(__FUNCTION__,
": failed to create the button! Error code = ",GetLastError());
return;
}
ObjectSetString(0,but_name,OBJPROP_TEXT,label);
ObjectSetInteger(0,but_name,OBJPROP_XSIZE,xsize);
ObjectSetInteger(0,but_name,OBJPROP_YSIZE,ysize);
ObjectSetInteger(0,but_name,OBJPROP_CORNER,CORNER_LEFT_UPPER);
ObjectSetInteger(0,but_name,OBJPROP_XDISTANCE,xdist);
ObjectSetInteger(0,but_name,OBJPROP_YDISTANCE,ydist);
ObjectSetInteger(0,but_name,OBJPROP_BGCOLOR,bcolor);
ObjectSetInteger(0,but_name,OBJPROP_COLOR,fcolor);
ObjectSetInteger(0,but_name,OBJPROP_FONTSIZE,9);
ObjectSetInteger(0,but_name,OBJPROP_HIDDEN,true);
//ObjectSetInteger(0,but_name,OBJPROP_BORDER_COLOR,ChartGetInteger(0,CHART_COLOR_FOREGROUND));
ObjectSetInteger(0,but_name,OBJPROP_BORDER_TYPE,BORDER_RAISED);
ChartRedraw();
}
}
void OnChartEvent(const int id, const long &lparam, const double &dparam, const string &sparam)
{
if(id==CHARTEVENT_OBJECT_CLICK)
ticket = OrderTicket();
{
if(sparam==button_close_basket_All)
{
ObjectSetString(0,button_close_basket_All,OBJPROP_TEXT,"Closing...");
close_basket(Magic_Number);
ObjectSetInteger(0,button_close_basket_All,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_All,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_All);
}
//-----------------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_1)//buy USDCHF
{
ObjectSetString(0,button_buy_basket_1,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[0],OP_BUY,lot,MarketInfo(TradePair[0],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_1,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_1,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_1);
}
if(sparam==button_sell_basket_1)//sell USDCHF
{
ObjectSetString(0,button_sell_basket_1,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[0],OP_SELL,lot,MarketInfo(TradePair[0],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_1,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_1,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_1);
}
if(sparam==button_close_basket_1)//close USDCHF
{
ObjectSetString(0,button_close_basket_1,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[0], OP_SELL);
closeOpenOrders(TradePair[0], OP_BUY);
ObjectSetInteger(0,button_close_basket_1,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_1,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_1);
}
//----------------------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_2)//buy USDJPY
{
ObjectSetString(0,button_buy_basket_2,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[1],OP_BUY,lot,MarketInfo(TradePair[1],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_2,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_2);
}
if(sparam==button_sell_basket_2)//sell USDJPY
{
ObjectSetString(0,button_sell_basket_2,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[1],OP_SELL,lot,MarketInfo(TradePair[1],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_2,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_2);
}
if(sparam==button_close_basket_2)//close USDJPY
{
ObjectSetString(0,button_close_basket_2,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[1], OP_SELL);
closeOpenOrders(TradePair[1], OP_BUY);
ObjectSetInteger(0,button_close_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_2,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_2);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_3)//buy USDCAD
{
ObjectSetString(0,button_buy_basket_3,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[2],OP_BUY,lot,MarketInfo(TradePair[2],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_3,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_3,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_3);
}
if(sparam==button_sell_basket_3)//sell USDCAD
{
ObjectSetString(0,button_sell_basket_3,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[2],OP_SELL,lot,MarketInfo(TradePair[2],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_3,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_3,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_3);
}
if(sparam==button_close_basket_3)//close USDCAD
{
ObjectSetString(0,button_close_basket_3,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[2], OP_SELL);
closeOpenOrders(TradePair[2], OP_BUY);
ObjectSetInteger(0,button_close_basket_3,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_3,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_3);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_4)//buy EURUSD
{
ObjectSetString(0,button_buy_basket_4,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[3],OP_BUY,lot,MarketInfo(TradePair[3],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_4,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_4,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_4);
}
if(sparam==button_sell_basket_4)//sell EURUSD
{
ObjectSetString(0,button_sell_basket_4,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[3],OP_SELL,lot,MarketInfo(TradePair[3],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_4,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_4,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_4);
}
if(sparam==button_close_basket_4)//close EURUSD
{
ObjectSetString(0,button_close_basket_4,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[3], OP_SELL);
closeOpenOrders(TradePair[3], OP_BUY);
ObjectSetInteger(0,button_close_basket_4,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_4,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_4);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_5)//buy EURGBP
{
ObjectSetString(0,button_buy_basket_5,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[4],OP_BUY,lot,MarketInfo(TradePair[4],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_5,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_5,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_5);
}
if(sparam==button_sell_basket_5)//sell EURGBP
{
ObjectSetString(0,button_sell_basket_5,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[4],OP_SELL,lot,MarketInfo(TradePair[4],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_5,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_5,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_5);
}
if(sparam==button_close_basket_5)//close EURGBP
{
ObjectSetString(0,button_close_basket_5,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[4], OP_SELL);
closeOpenOrders(TradePair[4], OP_BUY);
ObjectSetInteger(0,button_close_basket_5,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_5,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_5);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_6)//buy EURCHF
{
ObjectSetString(0,button_buy_basket_6,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[5],OP_BUY,lot,MarketInfo(TradePair[5],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_6,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_6,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_6);
}
if(sparam==button_sell_basket_6)//sell EURCHF
{
ObjectSetString(0,button_sell_basket_6,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[5],OP_SELL,lot,MarketInfo(TradePair[5],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_6,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_6,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_6);
}
if(sparam==button_close_basket_6)//close EURCHF
{
ObjectSetString(0,button_close_basket_6,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[5], OP_SELL);
closeOpenOrders(TradePair[5], OP_BUY);
ObjectSetInteger(0,button_close_basket_6,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_6,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_6);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_7)//buy EURJPY
{
ObjectSetString(0,button_buy_basket_7,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[6],OP_BUY,lot,MarketInfo(TradePair[6],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_7,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_7,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_7);
}
if(sparam==button_sell_basket_7)//sell EURJPY
{
ObjectSetString(0,button_sell_basket_7,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[6],OP_SELL,lot,MarketInfo(TradePair[6],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_7,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_7,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_7);
}
if(sparam==button_close_basket_7)//close EURJPY
{
ObjectSetString(0,button_close_basket_7,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[6], OP_SELL);
closeOpenOrders(TradePair[6], OP_BUY);
ObjectSetInteger(0,button_close_basket_7,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_7,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_7);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_8)//buy EURAUD
{
ObjectSetString(0,button_buy_basket_8,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[7],OP_BUY,lot,MarketInfo(TradePair[7],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_8,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_8,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_8);
}
if(sparam==button_sell_basket_8)//sell EURAUD
{
ObjectSetString(0,button_sell_basket_8,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[7],OP_SELL,lot,MarketInfo(TradePair[7],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_8,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_8,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_8);
}
if(sparam==button_close_basket_8)//close EURAUD
{
ObjectSetString(0,button_close_basket_8,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[7], OP_SELL);
closeOpenOrders(TradePair[7], OP_BUY);
ObjectSetInteger(0,button_close_basket_8,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_8,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_8);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_9)//buy EURCAD
{
ObjectSetString(0,button_buy_basket_9,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[8],OP_BUY,lot,MarketInfo(TradePair[8],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_9,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_9,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_9);
}
if(sparam==button_sell_basket_9)//sell EURCAD
{
ObjectSetString(0,button_sell_basket_9,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[8],OP_SELL,lot,MarketInfo(TradePair[8],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_9,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_9,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_9);
}
if(sparam==button_close_basket_9)//close EURCAD
{
ObjectSetString(0,button_close_basket_9,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[8], OP_SELL);
closeOpenOrders(TradePair[8], OP_BUY);
ObjectSetInteger(0,button_close_basket_9,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_9,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_9);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_10)//buy EURNZD
{
ObjectSetString(0,button_buy_basket_10,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[9],OP_BUY,lot,MarketInfo(TradePair[9],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_10,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_10,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_10);
}
if(sparam==button_sell_basket_10)//sell EURNZD
{
ObjectSetString(0,button_sell_basket_10,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[9],OP_SELL,lot,MarketInfo(TradePair[9],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_10,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_10,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_10);
}
if(sparam==button_close_basket_10)//close EURNZD
{
ObjectSetString(0,button_close_basket_10,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[9], OP_SELL);
closeOpenOrders(TradePair[9], OP_BUY);
ObjectSetInteger(0,button_close_basket_10,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_10,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_10);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_11)//buy GBPUSD
{
ObjectSetString(0,button_buy_basket_11,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[10],OP_BUY,lot,MarketInfo(TradePair[10],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_11,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_11,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_11);
}
if(sparam==button_sell_basket_11)//sell GBPUSD
{
ObjectSetString(0,button_sell_basket_11,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[10],OP_SELL,lot,MarketInfo(TradePair[10],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_11,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_11,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_11);
}
if(sparam==button_close_basket_11)//close GBPUSD
{
ObjectSetString(0,button_close_basket_11,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[10], OP_SELL);
closeOpenOrders(TradePair[10], OP_BUY);
ObjectSetInteger(0,button_close_basket_11,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_11,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_11);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_12)//buy GBPCHF
{
ObjectSetString(0,button_buy_basket_12,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[11],OP_BUY,lot,MarketInfo(TradePair[11],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_12,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_12,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_12);
}
if(sparam==button_sell_basket_12)//sell GBPCHF
{
ObjectSetString(0,button_sell_basket_12,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[11],OP_SELL,lot,MarketInfo(TradePair[11],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_12,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_12,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_12);
}
if(sparam==button_close_basket_12)//close GBPCHF
{
ObjectSetString(0,button_close_basket_12,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[11], OP_SELL);
closeOpenOrders(TradePair[11], OP_BUY);
ObjectSetInteger(0,button_close_basket_12,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_12,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_12);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_13)//buy GBPJPY
{
ObjectSetString(0,button_buy_basket_13,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[12],OP_BUY,lot,MarketInfo(TradePair[12],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_13,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_13,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_13);
}
if(sparam==button_sell_basket_13)//sell GBPJPY
{
ObjectSetString(0,button_sell_basket_13,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[12],OP_SELL,lot,MarketInfo(TradePair[12],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_13,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_13,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_13);
}
if(sparam==button_close_basket_13)//close GBPJPY
{
ObjectSetString(0,button_close_basket_13,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[12], OP_SELL);
closeOpenOrders(TradePair[12], OP_BUY);
ObjectSetInteger(0,button_close_basket_13,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_13,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_13);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_14)//buy GBPAUD
{
ObjectSetString(0,button_buy_basket_14,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[13],OP_BUY,lot,MarketInfo(TradePair[13],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_14,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_14,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_14);
}
if(sparam==button_sell_basket_14)//sell GBPAUD
{
ObjectSetString(0,button_sell_basket_14,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[13],OP_SELL,lot,MarketInfo(TradePair[13],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_14,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_14,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_14);
}
if(sparam==button_close_basket_14)//close GBPAUD
{
ObjectSetString(0,button_close_basket_14,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[13], OP_SELL);
closeOpenOrders(TradePair[13], OP_BUY);
ObjectSetInteger(0,button_close_basket_14,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_14,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_14);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_15)//buy GBPCAD
{
ObjectSetString(0,button_buy_basket_15,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[14],OP_BUY,lot,MarketInfo(TradePair[14],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_15,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_15,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_15);
}
if(sparam==button_sell_basket_15)//sell GBPCAD
{
ObjectSetString(0,button_sell_basket_15,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[14],OP_SELL,lot,MarketInfo(TradePair[14],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_15,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_15,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_15);
}
if(sparam==button_close_basket_15)//close GBPCAD
{
ObjectSetString(0,button_close_basket_15,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[14], OP_SELL);
closeOpenOrders(TradePair[14], OP_BUY);
ObjectSetInteger(0,button_close_basket_15,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_15,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_15);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_16)//buy GBPNZD
{
ObjectSetString(0,button_buy_basket_16,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[15],OP_BUY,lot,MarketInfo(TradePair[15],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_16,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_16,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_16);
}
if(sparam==button_sell_basket_16)//sell GBPNZD
{
ObjectSetString(0,button_sell_basket_16,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[15],OP_SELL,lot,MarketInfo(TradePair[15],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_16,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_16,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_16);
}
if(sparam==button_close_basket_16)//close GBPNZD
{
ObjectSetString(0,button_close_basket_16,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[15], OP_SELL);
closeOpenOrders(TradePair[15], OP_BUY);
ObjectSetInteger(0,button_close_basket_16,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_16,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_16);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_17)//buy CHFJPY
{
ObjectSetString(0,button_buy_basket_17,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[16],OP_BUY,lot,MarketInfo(TradePair[16],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_17,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_17,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_17);
}
if(sparam==button_sell_basket_17)//sell CHFJPY
{
ObjectSetString(0,button_sell_basket_17,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[16],OP_SELL,lot,MarketInfo(TradePair[16],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_17,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_17,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_17);
}
if(sparam==button_close_basket_17)//close CHFJPY
{
ObjectSetString(0,button_close_basket_17,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[16], OP_SELL);
closeOpenOrders(TradePair[16], OP_BUY);
ObjectSetInteger(0,button_close_basket_17,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_17,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_17);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_18)//buy AUDUSD
{
ObjectSetString(0,button_buy_basket_18,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[17],OP_BUY,lot,MarketInfo(TradePair[17],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_18,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_18,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_18);
}
if(sparam==button_sell_basket_18)//sell AUDUSD
{
ObjectSetString(0,button_sell_basket_18,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[17],OP_SELL,lot,MarketInfo(TradePair[17],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_18,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_18,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_18);
}
if(sparam==button_close_basket_18)//close AUDUSD
{
ObjectSetString(0,button_close_basket_18,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[17], OP_SELL);
closeOpenOrders(TradePair[17], OP_BUY);
ObjectSetInteger(0,button_close_basket_18,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_18,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_18);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_19)//buy AUDCHF
{
ObjectSetString(0,button_buy_basket_19,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[18],OP_BUY,lot,MarketInfo(TradePair[18],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_19,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_19,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_19);
}
if(sparam==button_sell_basket_19)//sell AUDCHF
{
ObjectSetString(0,button_sell_basket_19,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[18],OP_SELL,lot,MarketInfo(TradePair[18],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_19,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_19,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_19);
}
if(sparam==button_close_basket_19)//close AUDCHF
{
ObjectSetString(0,button_close_basket_19,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[18], OP_SELL);
closeOpenOrders(TradePair[18], OP_BUY);
ObjectSetInteger(0,button_close_basket_19,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_19,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_19);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_20)//buy AUDJPY
{
ObjectSetString(0,button_buy_basket_20,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[19],OP_BUY,lot,MarketInfo(TradePair[19],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_20,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_20,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_20);
}
if(sparam==button_sell_basket_20)//sell AUDJPY
{
ObjectSetString(0,button_sell_basket_20,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[19],OP_SELL,lot,MarketInfo(TradePair[19],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_20,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_20,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_20);
}
if(sparam==button_close_basket_20)//close AUDJPY
{
ObjectSetString(0,button_close_basket_20,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[19], OP_SELL);
closeOpenOrders(TradePair[19], OP_BUY);
ObjectSetInteger(0,button_close_basket_20,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_20,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_20);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_21)//buy AUDCAD
{
ObjectSetString(0,button_buy_basket_21,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[20],OP_BUY,lot,MarketInfo(TradePair[20],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_21,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_21,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_21);
}
if(sparam==button_sell_basket_21)//sell AUDCAD
{
ObjectSetString(0,button_sell_basket_21,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[20],OP_SELL,lot,MarketInfo(TradePair[20],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_21,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_21,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_21);
}
if(sparam==button_close_basket_21)//close AUDCAD
{
ObjectSetString(0,button_close_basket_21,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[20], OP_SELL);
closeOpenOrders(TradePair[20], OP_BUY);
ObjectSetInteger(0,button_close_basket_21,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_21,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_21);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_22)//buy AUDNZD
{
ObjectSetString(0,button_buy_basket_22,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[21],OP_BUY,lot,MarketInfo(TradePair[21],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_22,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_22,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_22);
}
if(sparam==button_sell_basket_22)//sell AUDNZD
{
ObjectSetString(0,button_sell_basket_22,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[21],OP_SELL,lot,MarketInfo(TradePair[21],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_22,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_22,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_22);
}
if(sparam==button_close_basket_22)//close AUDNZD
{
ObjectSetString(0,button_close_basket_22,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[21], OP_SELL);
closeOpenOrders(TradePair[21], OP_BUY);
ObjectSetInteger(0,button_close_basket_22,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_22,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_22);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_23)//buy CADCHF
{
ObjectSetString(0,button_buy_basket_23,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[22],OP_BUY,lot,MarketInfo(TradePair[22],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_23,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_23,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_23);
}
if(sparam==button_sell_basket_23)//sell CADCHF
{
ObjectSetString(0,button_sell_basket_23,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[22],OP_SELL,lot,MarketInfo(TradePair[22],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_23,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_23,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_23);
}
if(sparam==button_close_basket_23)//close CADCHF
{
ObjectSetString(0,button_close_basket_23,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[22], OP_SELL);
closeOpenOrders(TradePair[22], OP_BUY);
ObjectSetInteger(0,button_close_basket_23,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_23,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_23);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_24)//buy CADJPY
{
ObjectSetString(0,button_buy_basket_24,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[23],OP_BUY,lot,MarketInfo(TradePair[23],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_24,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_24,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_24);
}
if(sparam==button_sell_basket_24)//sell CADJPY
{
ObjectSetString(0,button_sell_basket_24,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[23],OP_SELL,lot,MarketInfo(TradePair[23],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_24,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_24,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_24);
}
if(sparam==button_close_basket_24)//close CADJPY
{
ObjectSetString(0,button_close_basket_24,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[23], OP_SELL);
closeOpenOrders(TradePair[23], OP_BUY);
ObjectSetInteger(0,button_close_basket_24,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_24,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_24);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_25)//buy NZDUSD
{
ObjectSetString(0,button_buy_basket_25,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[24],OP_BUY,lot,MarketInfo(TradePair[24],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_25,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_25,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_25);
}
if(sparam==button_sell_basket_25)//sell NZDUSD
{
ObjectSetString(0,button_sell_basket_25,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[24],OP_SELL,lot,MarketInfo(TradePair[24],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_25,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_25,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_25);
}
if(sparam==button_close_basket_25)//close NZDUSD
{
ObjectSetString(0,button_close_basket_25,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[24], OP_SELL);
closeOpenOrders(TradePair[24], OP_BUY);
ObjectSetInteger(0,button_close_basket_25,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_25,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_25);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_26)//buy NZDCHF
{
ObjectSetString(0,button_buy_basket_26,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[25],OP_BUY,lot,MarketInfo(TradePair[25],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_26,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_26,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_26);
}
if(sparam==button_sell_basket_26)//sell NZDCHF
{
ObjectSetString(0,button_sell_basket_26,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[25],OP_SELL,lot,MarketInfo(TradePair[25],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_26,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_26,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_26);
}
if(sparam==button_close_basket_26)//close NZDCHF
{
ObjectSetString(0,button_close_basket_26,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[25], OP_SELL);
closeOpenOrders(TradePair[25], OP_BUY);
ObjectSetInteger(0,button_close_basket_26,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_26,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_26);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_27)//buy NZDJPY
{
ObjectSetString(0,button_buy_basket_27,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[26],OP_BUY,lot,MarketInfo(TradePair[26],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_27,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_27,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_27);
}
if(sparam==button_sell_basket_27)//sell NZDJPY
{
ObjectSetString(0,button_sell_basket_27,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[26],OP_SELL,lot,MarketInfo(TradePair[26],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_27,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_27,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_27);
}
if(sparam==button_close_basket_27)//close NZDJPY
{
ObjectSetString(0,button_close_basket_27,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[26], OP_SELL);
closeOpenOrders(TradePair[26], OP_BUY);
ObjectSetInteger(0,button_close_basket_27,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_27,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_27);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_28)//buy NZDCAD
{
ObjectSetString(0,button_buy_basket_28,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[27],OP_BUY,lot,MarketInfo(TradePair[27],MODE_ASK),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Blue);
// ticket=OrderSend(TradePair[27],OP_BUY,Biglot,MarketInfo(TradePair[27],MODE_ASK),100,Biglot_Stoploss,Biglot_Target,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_28,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_28,OBJPROP_TEXT,"Buy Basket");
}
if(sparam==button_sell_basket_28)//sell NZDCAD
{
ObjectSetString(0,button_sell_basket_28,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[27],OP_SELL,lot,MarketInfo(TradePair[27],MODE_BID),100,lot_Stoploss,lot_Target,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_28,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_28,OBJPROP_TEXT,"Sell Basket");
}
if(sparam==button_close_basket_28)//close NZDCAD
{
ObjectSetString(0,button_close_basket_28,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[27], OP_SELL);
closeOpenOrders(TradePair[27], OP_BUY);
ObjectSetInteger(0,button_close_basket_28,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_28,OBJPROP_TEXT,"Close Basket");
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_29)//buy USD basket
{
ObjectSetString(0,button_buy_basket_1,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[0],OP_BUY,lot,MarketInfo(TradePair[0],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[1],OP_BUY,lot,MarketInfo(TradePair[1],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[2],OP_BUY,lot,MarketInfo(TradePair[2],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[17],OP_SELL,lot,MarketInfo(TradePair[17],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[24],OP_SELL,lot,MarketInfo(TradePair[24],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[10],OP_SELL,lot,MarketInfo(TradePair[10],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[3],OP_SELL,lot,MarketInfo(TradePair[3],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_buy_basket_1,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_1,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_1);
}
if(sparam==button_sell_basket_29)//sell USD
{
ObjectSetString(0,button_sell_basket_1,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[0],OP_SELL,lot,MarketInfo(TradePair[0],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[1],OP_SELL,lot,MarketInfo(TradePair[1],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[2],OP_SELL,lot,MarketInfo(TradePair[2],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[17],OP_BUY,lot,MarketInfo(TradePair[17],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[24],OP_BUY,lot,MarketInfo(TradePair[24],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[10],OP_BUY,lot,MarketInfo(TradePair[10],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[3],OP_BUY,lot,MarketInfo(TradePair[3],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_sell_basket_1,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_1,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_1);
}
if(sparam==button_close_basket_29)//close USD basket orders
{
ObjectSetString(0,button_close_basket_1,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[0], OP_SELL);
closeOpenOrders(TradePair[0], OP_BUY);
closeOpenOrders(TradePair[1], OP_SELL);
closeOpenOrders(TradePair[1], OP_BUY);
closeOpenOrders(TradePair[2], OP_SELL);
closeOpenOrders(TradePair[2], OP_BUY);
closeOpenOrders(TradePair[17], OP_SELL);
closeOpenOrders(TradePair[17], OP_BUY);
closeOpenOrders(TradePair[24], OP_SELL);
closeOpenOrders(TradePair[24], OP_BUY);
closeOpenOrders(TradePair[10], OP_SELL);
closeOpenOrders(TradePair[10], OP_BUY);
closeOpenOrders(TradePair[3], OP_SELL);
closeOpenOrders(TradePair[3], OP_BUY);
ObjectSetInteger(0,button_close_basket_1,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_1,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_1);
}
//----------------------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_30)//open EUR basket
{
ObjectSetString(0,button_buy_basket_2,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[3],OP_BUY,lot,MarketInfo(TradePair[3],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[4],OP_BUY,lot,MarketInfo(TradePair[4],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[5],OP_BUY,lot,MarketInfo(TradePair[5],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[6],OP_BUY,lot,MarketInfo(TradePair[6],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[7],OP_BUY,lot,MarketInfo(TradePair[7],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[8],OP_BUY,lot,MarketInfo(TradePair[8],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[9],OP_BUY,lot,MarketInfo(TradePair[9],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_2,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_2);
}
if(sparam==button_sell_basket_30)//Sell EUR basket
{
ObjectSetString(0,button_sell_basket_2,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[3],OP_SELL,lot,MarketInfo(TradePair[3],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[4],OP_SELL,lot,MarketInfo(TradePair[4],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[5],OP_SELL,lot,MarketInfo(TradePair[5],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[6],OP_SELL,lot,MarketInfo(TradePair[6],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[7],OP_SELL,lot,MarketInfo(TradePair[7],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[8],OP_SELL,lot,MarketInfo(TradePair[8],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[9],OP_SELL,lot,MarketInfo(TradePair[9],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_2,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_2);
}
if(sparam==button_close_basket_30)//close EUR orders
{
ObjectSetString(0,button_close_basket_2,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[3], OP_SELL);
closeOpenOrders(TradePair[3], OP_BUY);
closeOpenOrders(TradePair[4], OP_SELL);
closeOpenOrders(TradePair[4], OP_BUY);
closeOpenOrders(TradePair[5], OP_SELL);
closeOpenOrders(TradePair[5], OP_BUY);
closeOpenOrders(TradePair[6], OP_SELL);
closeOpenOrders(TradePair[6], OP_BUY);
closeOpenOrders(TradePair[7], OP_SELL);
closeOpenOrders(TradePair[7], OP_BUY);
closeOpenOrders(TradePair[8], OP_SELL);
closeOpenOrders(TradePair[8], OP_BUY);
closeOpenOrders(TradePair[9], OP_SELL);
closeOpenOrders(TradePair[9], OP_BUY);
ObjectSetInteger(0,button_close_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_2,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_2);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_31)//buy GBP basket
{
ObjectSetString(0,button_buy_basket_2,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[4],OP_SELL,lot,MarketInfo(TradePair[4],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[10],OP_BUY,lot,MarketInfo(TradePair[10],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[11],OP_BUY,lot,MarketInfo(TradePair[11],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[12],OP_BUY,lot,MarketInfo(TradePair[12],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[13],OP_BUY,lot,MarketInfo(TradePair[13],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[14],OP_BUY,lot,MarketInfo(TradePair[14],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[15],OP_BUY,lot,MarketInfo(TradePair[15],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_2,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_2);
}
if(sparam==button_sell_basket_31)//sell GBP basket
{
ObjectSetString(0,button_sell_basket_2,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[4],OP_BUY,lot,MarketInfo(TradePair[4],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[10],OP_SELL,lot,MarketInfo(TradePair[10],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[11],OP_SELL,lot,MarketInfo(TradePair[11],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[12],OP_SELL,lot,MarketInfo(TradePair[12],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[13],OP_SELL,lot,MarketInfo(TradePair[13],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[14],OP_SELL,lot,MarketInfo(TradePair[14],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[15],OP_SELL,lot,MarketInfo(TradePair[15],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_2,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_2);
}
if(sparam==button_close_basket_31)//close GBP basket
{
ObjectSetString(0,button_close_basket_2,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[4], OP_SELL);
closeOpenOrders(TradePair[4], OP_BUY);
closeOpenOrders(TradePair[10], OP_SELL);
closeOpenOrders(TradePair[10], OP_BUY);
closeOpenOrders(TradePair[11], OP_SELL);
closeOpenOrders(TradePair[11], OP_BUY);
closeOpenOrders(TradePair[12], OP_SELL);
closeOpenOrders(TradePair[12], OP_BUY);
closeOpenOrders(TradePair[13], OP_SELL);
closeOpenOrders(TradePair[13], OP_BUY);
closeOpenOrders(TradePair[14], OP_SELL);
closeOpenOrders(TradePair[14], OP_BUY);
closeOpenOrders(TradePair[15], OP_SELL);
closeOpenOrders(TradePair[15], OP_BUY);
ObjectSetInteger(0,button_close_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_2,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_2);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_32)//buy AUD basket
{
ObjectSetString(0,button_buy_basket_2,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[17],OP_BUY,lot,MarketInfo(TradePair[17],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[18],OP_BUY,lot,MarketInfo(TradePair[18],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[19],OP_BUY,lot,MarketInfo(TradePair[19],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[20],OP_BUY,lot,MarketInfo(TradePair[20],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[21],OP_BUY,lot,MarketInfo(TradePair[21],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[7],OP_SELL,lot,MarketInfo(TradePair[7],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[13],OP_SELL,lot,MarketInfo(TradePair[13],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_buy_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_2,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_2);
}
if(sparam==button_sell_basket_32)//sell AUD basket
{
ObjectSetString(0,button_sell_basket_2,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[17],OP_SELL,lot,MarketInfo(TradePair[17],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[18],OP_SELL,lot,MarketInfo(TradePair[18],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[19],OP_SELL,lot,MarketInfo(TradePair[19],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[20],OP_SELL,lot,MarketInfo(TradePair[20],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[21],OP_SELL,lot,MarketInfo(TradePair[21],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[7],OP_BUY,lot,MarketInfo(TradePair[7],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[13],OP_BUY,lot,MarketInfo(TradePair[13],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_sell_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_2,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_2);
}
if(sparam==button_close_basket_32)//close AUD basket
{
ObjectSetString(0,button_close_basket_2,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[17], OP_SELL);
closeOpenOrders(TradePair[17], OP_BUY);
closeOpenOrders(TradePair[18], OP_SELL);
closeOpenOrders(TradePair[18], OP_BUY);
closeOpenOrders(TradePair[19], OP_SELL);
closeOpenOrders(TradePair[19], OP_BUY);
closeOpenOrders(TradePair[20], OP_SELL);
closeOpenOrders(TradePair[20], OP_BUY);
closeOpenOrders(TradePair[21], OP_SELL);
closeOpenOrders(TradePair[21], OP_BUY);
closeOpenOrders(TradePair[7], OP_SELL);
closeOpenOrders(TradePair[7], OP_BUY);
closeOpenOrders(TradePair[13], OP_SELL);
closeOpenOrders(TradePair[13], OP_BUY);
ObjectSetInteger(0,button_close_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_2,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_2);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_33)//buy CAD basket
{
ObjectSetString(0,button_buy_basket_2,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[2],OP_SELL,lot,MarketInfo(TradePair[2],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[8],OP_SELL,lot,MarketInfo(TradePair[8],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[14],OP_SELL,lot,MarketInfo(TradePair[14],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[20],OP_SELL,lot,MarketInfo(TradePair[20],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[22],OP_BUY,lot,MarketInfo(TradePair[22],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[23],OP_BUY,lot,MarketInfo(TradePair[23],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[27],OP_SELL,lot,MarketInfo(TradePair[27],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_buy_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_2,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_2);
}
if(sparam==button_sell_basket_33)//sell CAD basket
{
ObjectSetString(0,button_sell_basket_2,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[2],OP_BUY,lot,MarketInfo(TradePair[2],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[8],OP_BUY,lot,MarketInfo(TradePair[8],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[14],OP_BUY,lot,MarketInfo(TradePair[14],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[20],OP_BUY,lot,MarketInfo(TradePair[20],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[22],OP_SELL,lot,MarketInfo(TradePair[22],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[23],OP_SELL,lot,MarketInfo(TradePair[23],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[27],OP_BUY,lot,MarketInfo(TradePair[27],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_sell_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_2,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_2);
}
if(sparam==button_close_basket_33)//close CAD basket
{
ObjectSetString(0,button_close_basket_2,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[2], OP_SELL);
closeOpenOrders(TradePair[2], OP_BUY);
closeOpenOrders(TradePair[8], OP_SELL);
closeOpenOrders(TradePair[8], OP_BUY);
closeOpenOrders(TradePair[14], OP_SELL);
closeOpenOrders(TradePair[14], OP_BUY);
closeOpenOrders(TradePair[20], OP_SELL);
closeOpenOrders(TradePair[20], OP_BUY);
closeOpenOrders(TradePair[22], OP_SELL);
closeOpenOrders(TradePair[22], OP_BUY);
closeOpenOrders(TradePair[23], OP_SELL);
closeOpenOrders(TradePair[23], OP_BUY);
closeOpenOrders(TradePair[27], OP_SELL);
closeOpenOrders(TradePair[27], OP_BUY);
ObjectSetInteger(0,button_close_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_2,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_2);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_34)//buy JPY basket
{
ObjectSetString(0,button_buy_basket_2,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[1],OP_SELL,lot,MarketInfo(TradePair[1],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[6],OP_SELL,lot,MarketInfo(TradePair[6],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[12],OP_SELL,lot,MarketInfo(TradePair[12],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[16],OP_SELL,lot,MarketInfo(TradePair[16],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[19],OP_SELL,lot,MarketInfo(TradePair[19],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[23],OP_SELL,lot,MarketInfo(TradePair[23],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[26],OP_SELL,lot,MarketInfo(TradePair[26],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_buy_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_2,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_2);
}
if(sparam==button_sell_basket_34)//sell JPY basket
{
ObjectSetString(0,button_sell_basket_2,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[1],OP_BUY,lot,MarketInfo(TradePair[1],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[6],OP_BUY,lot,MarketInfo(TradePair[6],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[12],OP_BUY,lot,MarketInfo(TradePair[12],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[16],OP_BUY,lot,MarketInfo(TradePair[16],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[19],OP_BUY,lot,MarketInfo(TradePair[19],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[23],OP_BUY,lot,MarketInfo(TradePair[23],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[26],OP_BUY,lot,MarketInfo(TradePair[26],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_sell_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_2,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_2);
}
if(sparam==button_close_basket_34)//close JPY basket
{
ObjectSetString(0,button_close_basket_2,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[1], OP_SELL);
closeOpenOrders(TradePair[1], OP_BUY);
closeOpenOrders(TradePair[6], OP_SELL);
closeOpenOrders(TradePair[6], OP_BUY);
closeOpenOrders(TradePair[12], OP_SELL);
closeOpenOrders(TradePair[12], OP_BUY);
closeOpenOrders(TradePair[16], OP_SELL);
closeOpenOrders(TradePair[16], OP_BUY);
closeOpenOrders(TradePair[19], OP_SELL);
closeOpenOrders(TradePair[19], OP_BUY);
closeOpenOrders(TradePair[23], OP_SELL);
closeOpenOrders(TradePair[23], OP_BUY);
closeOpenOrders(TradePair[26], OP_SELL);
closeOpenOrders(TradePair[26], OP_BUY);
ObjectSetInteger(0,button_close_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_2,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_2);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_35)//buy NZD basket
{
ObjectSetString(0,button_buy_basket_2,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[9],OP_SELL,lot,MarketInfo(TradePair[9],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[15],OP_SELL,lot,MarketInfo(TradePair[15],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[21],OP_SELL,lot,MarketInfo(TradePair[21],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[24],OP_BUY,lot,MarketInfo(TradePair[24],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[25],OP_BUY,lot,MarketInfo(TradePair[25],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[26],OP_BUY,lot,MarketInfo(TradePair[26],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[27],OP_BUY,lot,MarketInfo(TradePair[27],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_buy_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_2,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_2);
}
if(sparam==button_sell_basket_35)//sell NZD basket
{
ObjectSetString(0,button_sell_basket_2,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[9],OP_BUY,lot,MarketInfo(TradePair[9],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[15],OP_BUY,lot,MarketInfo(TradePair[15],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[21],OP_BUY,lot,MarketInfo(TradePair[21],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[24],OP_SELL,lot,MarketInfo(TradePair[24],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[25],OP_SELL,lot,MarketInfo(TradePair[25],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[26],OP_SELL,lot,MarketInfo(TradePair[26],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[27],OP_SELL,lot,MarketInfo(TradePair[27],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_sell_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_2,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_2);
}
if(sparam==button_close_basket_35)//close NZD basket
{
ObjectSetString(0,button_close_basket_2,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[9], OP_SELL);
closeOpenOrders(TradePair[9], OP_BUY);
closeOpenOrders(TradePair[15], OP_SELL);
closeOpenOrders(TradePair[15], OP_BUY);
closeOpenOrders(TradePair[21], OP_SELL);
closeOpenOrders(TradePair[21], OP_BUY);
closeOpenOrders(TradePair[24], OP_SELL);
closeOpenOrders(TradePair[24], OP_BUY);
closeOpenOrders(TradePair[25], OP_SELL);
closeOpenOrders(TradePair[25], OP_BUY);
closeOpenOrders(TradePair[26], OP_SELL);
closeOpenOrders(TradePair[26], OP_BUY);
closeOpenOrders(TradePair[27], OP_SELL);
closeOpenOrders(TradePair[27], OP_BUY);
ObjectSetInteger(0,button_close_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_2,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_2);
}
//----------------------------------------------------------------------------------------------------------------------
if(sparam==button_buy_basket_36)//buy CHF basket
{
ObjectSetString(0,button_buy_basket_2,OBJPROP_TEXT,"Buying...");
ticket=OrderSend(TradePair[0],OP_SELL,lot,MarketInfo(TradePair[0],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[5],OP_SELL,lot,MarketInfo(TradePair[5],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[11],OP_SELL,lot,MarketInfo(TradePair[11],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[16],OP_BUY,lot,MarketInfo(TradePair[16],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[18],OP_SELL,lot,MarketInfo(TradePair[18],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[22],OP_SELL,lot,MarketInfo(TradePair[22],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[25],OP_SELL,lot,MarketInfo(TradePair[25],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ObjectSetInteger(0,button_buy_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_buy_basket_2,OBJPROP_TEXT,"Buy Basket");
ObjectDelete(button_buy_basket_2);
}
if(sparam==button_sell_basket_36)//sell CHF basket
{
ObjectSetString(0,button_sell_basket_2,OBJPROP_TEXT,"Selling...");
ticket=OrderSend(TradePair[0],OP_BUY,lot,MarketInfo(TradePair[0],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[5],OP_BUY,lot,MarketInfo(TradePair[5],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[11],OP_BUY,lot,MarketInfo(TradePair[11],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[16],OP_SELL,lot,MarketInfo(TradePair[16],MODE_BID),100,0,0,"OFF",Magic_Number,0,Red);
ticket=OrderSend(TradePair[18],OP_BUY,lot,MarketInfo(TradePair[18],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[22],OP_BUY,lot,MarketInfo(TradePair[22],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ticket=OrderSend(TradePair[25],OP_BUY,lot,MarketInfo(TradePair[25],MODE_ASK),100,0,0,"OFF",Magic_Number,0,Blue);
ObjectSetInteger(0,button_sell_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_sell_basket_2,OBJPROP_TEXT,"Sell Basket");
ObjectDelete(button_sell_basket_2);
}
if(sparam==button_close_basket_36)//close CHF basket
{
ObjectSetString(0,button_close_basket_2,OBJPROP_TEXT,"Closing...");
closeOpenOrders(TradePair[0], OP_SELL);
closeOpenOrders(TradePair[0], OP_BUY);
closeOpenOrders(TradePair[5], OP_SELL);
closeOpenOrders(TradePair[5], OP_BUY);
closeOpenOrders(TradePair[11], OP_SELL);
closeOpenOrders(TradePair[11], OP_BUY);
closeOpenOrders(TradePair[16], OP_SELL);
closeOpenOrders(TradePair[16], OP_BUY);
closeOpenOrders(TradePair[18], OP_SELL);
closeOpenOrders(TradePair[18], OP_BUY);
closeOpenOrders(TradePair[22], OP_SELL);
closeOpenOrders(TradePair[22], OP_BUY);
closeOpenOrders(TradePair[25], OP_SELL);
closeOpenOrders(TradePair[25], OP_BUY);
ObjectSetInteger(0,button_close_basket_2,OBJPROP_STATE,0);
ObjectSetString(0,button_close_basket_2,OBJPROP_TEXT,"Close Basket");
ObjectDelete(button_close_basket_2);
}
//------------------------------------------------------------------------------------------------------
//click left buttons opens chart
if(sparam==button_chart_1)//open chart of 1st pair-USDCHF
{
long New_Chart=ChartOpen(TradePair[0],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_1);
}
if(sparam==button_chart_2)//open chart of 1st pair-USDJPY
{
long New_Chart=ChartOpen(TradePair[1],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_2);
}
if(sparam==button_chart_3)//open chart of 1st pair-USDCAD
{
long New_Chart=ChartOpen(TradePair[2],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_3);
}
if(sparam==button_chart_4)//open chart of 1st pair-EURUSD
{
long New_Chart=ChartOpen(TradePair[3],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_4);
}
if(sparam==button_chart_5)//open chart of 1st pair-EURGBP
{
long New_Chart=ChartOpen(TradePair[4],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_5);
}
if(sparam==button_chart_6)//open chart of 1st pair-EURCHF
{
long New_Chart=ChartOpen(TradePair[5],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_6);
}
if(sparam==button_chart_7)//open chart of 1st pair-EURJPY
{
long New_Chart=ChartOpen(TradePair[6],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_7);
}
if(sparam==button_chart_8)//open chart of 1st pair-EURAUD
{
long New_Chart=ChartOpen(TradePair[7],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_8);
}
if(sparam==button_chart_9)//open chart of 1st pair-EURCAD
{
long New_Chart=ChartOpen(TradePair[8],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_9);
}
if(sparam==button_chart_10)//open chart of 1st pair-EURNZD
{
long New_Chart=ChartOpen(TradePair[9],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_10);
}
if(sparam==button_chart_11)//open chart of 1st pair-GBPUSD
{
long New_Chart=ChartOpen(TradePair[10],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_11);
}
if(sparam==button_chart_12)//open chart of 1st pair-GBPCHF
{
long New_Chart=ChartOpen(TradePair[11],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_12);
}
if(sparam==button_chart_13)//open chart of 1st pair-GBPJPY
{
long New_Chart=ChartOpen(TradePair[12],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_13);
}
if(sparam==button_chart_14)//open chart of 1st pair-GBPAUD
{
long New_Chart=ChartOpen(TradePair[13],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_14);
}
if(sparam==button_chart_15)//open chart of 1st pair-GBPCAD
{
long New_Chart=ChartOpen(TradePair[14],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_15);
}
if(sparam==button_chart_16)//open chart of 1st pair-GBPNZD
{
long New_Chart=ChartOpen(TradePair[15],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_16);
}
if(sparam==button_chart_17)//open chart of 1st pair-CHFJPY
{
long New_Chart=ChartOpen(TradePair[16],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_17);
}
if(sparam==button_chart_18)//open chart of 1st pair-AUDUSD
{
long New_Chart=ChartOpen(TradePair[17],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_18);
}
if(sparam==button_chart_19)//open chart of 1st pair-AUDCHF
{
long New_Chart=ChartOpen(TradePair[18],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_19);
}
if(sparam==button_chart_20)//open chart of 1st pair-AUDJPY
{
long New_Chart=ChartOpen(TradePair[19],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_20);
}
if(sparam==button_chart_21)//open chart of 1st pair-AUDCAD
{
long New_Chart=ChartOpen(TradePair[20],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_21);
}
if(sparam==button_chart_22)//open chart of 1st pair-AUDNZD
{
long New_Chart=ChartOpen(TradePair[21],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_22);
}
if(sparam==button_chart_23)//open chart of 1st pair-CADCHF
{
long New_Chart=ChartOpen(TradePair[22],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_23);
}
if(sparam==button_chart_24)//open chart of 1st pair-CADJPY
{
long New_Chart=ChartOpen(TradePair[23],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_24);
}
if(sparam==button_chart_25)//open chart of 1st pair-NZDUSD
{
long New_Chart=ChartOpen(TradePair[24],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_25);
}
if(sparam==button_chart_26)//open chart of 1st pair-NZDCHF
{
long New_Chart=ChartOpen(TradePair[25],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_26);
}
if(sparam==button_chart_27)//open chart of 1st pair-NZDJPY
{
long New_Chart=ChartOpen(TradePair[26],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_27);
}
if(sparam==button_chart_28)//open chart of 1st pair-NZDCAD
{
long New_Chart=ChartOpen(TradePair[27],PERIOD_H1);
ChartApplyTemplate(New_Chart,"XIMA_DASH_T.tpl");
ObjectDelete(button_chart_28);
}
//+------------------------------------------------------
//start autotrade directions here
if(sparam==button_AT_1)//start/end autotrading for usdchf
{
ObjectSetString(0,button_AT_1,OBJPROP_TEXT,"Start AutoTrading...");
if(ATCol_1==0){ATCol_1=1;}
else
{ATCol_1=0;}
ObjectDelete(button_AT_1);
}
if(sparam==button_AT_T1)//start/end autotrading for TORT usdchf
{
ObjectSetString(0,button_AT_T1,OBJPROP_TEXT,"Start AutoTrading...");
if(ATCol_T1==0){ATCol_T1=1;}
else
{ATCol_T1=0;}
ObjectDelete(button_AT_T1);
}
//+--------
if(sparam==button_AT_4)//start/end autotrading for eurusd
{
ObjectSetString(0,button_AT_4,OBJPROP_TEXT,"Start AutoTrading...");
if(ATCol_4==0){ATCol_4=1;}
else
{ATCol_4=0;}
ObjectDelete(button_AT_4);
}
if(sparam==button_AT_T4)//start/end autotrading for TORT EURUSD
{
ObjectSetString(0,button_AT_T4,OBJPROP_TEXT,"Start AutoTrading...");
if(ATCol_T4==0){ATCol_T4=1;}
else
{ATCol_T4=0;}
ObjectDelete(button_AT_T4);
}
//+---------
if(sparam==button_AT_7)//start/end autotrading for eurjpy
{
ObjectSetString(0,button_AT_7,OBJPROP_TEXT,"Start AutoTrading...");
if(ATCol_7==0){ATCol_7=1;}
else
{ATCol_7=0;}
ObjectDelete(button_AT_7);
}
if(sparam==button_AT_T7)//start/end autotrading for TORT eurjpy
{
ObjectSetString(0,button_AT_T7,OBJPROP_TEXT,"Start AutoTrading...");
if(ATCol_T7==0){ATCol_T7=1;}
else
{ATCol_T7=0;}
ObjectDelete(button_AT_T7);
}
//+--------
if(sparam==button_AT_8)//start/end autotrading for euraud
{
ObjectSetString(0,button_AT_8,OBJPROP_TEXT,"Start AutoTrading...");
if(ATCol_8==0){ATCol_8=1;}
else
{ATCol_8=0;}
ObjectDelete(button_AT_8);
}
if(sparam==button_AT_T8)//start/end autotrading for TORT euraud
{
ObjectSetString(0,button_AT_T8,OBJPROP_TEXT,"Start AutoTrading...");
if(ATCol_T8==0){ATCol_T8=1;}
else
{ATCol_T8=0;}
ObjectDelete(button_AT_T8);
}
//+--------
if(sparam==button_AT_11)//start/end autotrading for GBPusd
{
ObjectSetString(0,button_AT_11,OBJPROP_TEXT,"Start AutoTrading...");
if(ATCol_11==0){ATCol_11=1;}
else
{ATCol_11=0;}
ObjectDelete(button_AT_11);
}
if(sparam==button_AT_T11)//start/end autotrading for TORT GBPusd
{
ObjectSetString(0,button_AT_T11,OBJPROP_TEXT,"Start AutoTrading...");
if(ATCol_T11==0){ATCol_T11=1;}
else
{ATCol_T11=0;}
ObjectDelete(button_AT_T11);
}
//+---------
if(sparam==button_AT_14)//start/end autotrading for GBPAUD
{
ObjectSetString(0,button_AT_14,OBJPROP_TEXT,"Start AutoTrading...");
if(ATCol_14==0){ATCol_14=1;}
else
{ATCol_14=0;}
ObjectDelete(button_AT_14);
}
if(sparam==button_AT_T14)//start/end autotrading for TORT GBPAUD
{
ObjectSetString(0,button_AT_T14,OBJPROP_TEXT,"Start AutoTrading...");
if(ATCol_T14==0){ATCol_T14=1;}
else
{ATCol_T14=0;}
ObjectDelete(button_AT_T14);
}
//+----------
if(sparam==button_AT_16)//start/end autotrading for eurusd
{
ObjectSetString(0,button_AT_16,OBJPROP_TEXT,"Start AutoTrading...");
if(ATCol_16==0){ATCol_16=1;}
else
{ATCol_16=0;}
ObjectDelete(button_AT_16);
}
if(sparam==button_AT_T16)//start/end autotrading for TORT eurusd
{
ObjectSetString(0,button_AT_T16,OBJPROP_TEXT,"Start AutoTrading...");
if(ATCol_T16==0){ATCol_T16=1;}
else
{ATCol_T16=0;}
ObjectDelete(button_AT_T16);
}
//+----------
if(sparam==button_AT_18)//start/end autotrading for eurusd
{
ObjectSetString(0,button_AT_18,OBJPROP_TEXT,"Start AutoTrading...");
if(ATCol_18==0){ATCol_18=1;}
else
{ATCol_18=0;}
ObjectDelete(button_AT_18);
}
if(sparam==button_AT_T18)//start/end autotrading for TORT eurusd
{
ObjectSetString(0,button_AT_T18,OBJPROP_TEXT,"Start AutoTrading...");
if(ATCol_T18==0){ATCol_T18=1;}
else
{ATCol_T18=0;}
ObjectDelete(button_AT_T18);
}
//+--------
if(sparam==button_AT_20)//start/end autotrading for eurusd
{
ObjectSetString(0,button_AT_20,OBJPROP_TEXT,"Start AutoTrading...");
if(ATCol_20==0){ATCol_20=1;}
else
{ATCol_20=0;}
ObjectDelete(button_AT_20);
}
if(sparam==button_AT_T20)//start/end autotrading for TORT eurusd
{
ObjectSetString(0,button_AT_T20,OBJPROP_TEXT,"Start AutoTrading...");
if(ATCol_T20==0){ATCol_T20=1;}
else
{ATCol_T20=0;}
ObjectDelete(button_AT_T20);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_H1)//plus button for HARE LOT value
{
ObjectSetString(0,button_H1,OBJPROP_TEXT,"Increase Hare LOT value...");
H_Lot=H_Lot+.01;
ObjectDelete(button_H1);
}
if(sparam==button_H2)//minus button for HARE LOT value
{
ObjectSetString(0,button_H2,OBJPROP_TEXT,"Decrease Hare LOT value...");
H_Lot=H_Lot-.01;
if(H_Lot<0.01){H_Lot=0.01;}
ObjectDelete(button_H2);
}
//+++++++++
if(sparam==button_H3)//plus button for HARE LOT value-00.X0
{
ObjectSetString(0,button_H3,OBJPROP_TEXT,"Increase Hare LOT value...");
H_Lot=H_Lot+.10;
ObjectDelete(button_H3);
}
if(sparam==button_H4)//minus button for HARE LOT value
{
ObjectSetString(0,button_H4,OBJPROP_TEXT,"Decrease TOR LOT value...");
H_Lot=H_Lot-.10;
//if(TOR_Lot<0.01){TOR_Lot=0.01;}
ObjectDelete(button_H4);
}
//++++++++++
if(sparam==button_H5)//plus button for TORTOISE LOT value-0X.00
{
ObjectSetString(0,button_H5,OBJPROP_TEXT,"Increase HARE LOT value...");
H_Lot=H_Lot+1.00;
ObjectDelete(button_H5);
}
if(sparam==button_H6)//minus button for HARE LOT value
{
ObjectSetString(0,button_H6,OBJPROP_TEXT,"Decrease HARE LOT value...");
H_Lot=H_Lot-1.00;
//if(TOR_Lot<0.01){TOR_Lot=0.01;}
ObjectDelete(button_H6);
}
//++++++++++
if(sparam==button_H7)//plus button for HARE LOT value-X0.00
{
ObjectSetString(0,button_H7,OBJPROP_TEXT,"Increase HARE LOT value...");
H_Lot=H_Lot+10.00;
ObjectDelete(button_H7);
}
if(sparam==button_H8)//minus button for HARE LOT value
{
ObjectSetString(0,button_H8,OBJPROP_TEXT,"Decrease HARE LOT value...");
H_Lot=H_Lot-10.00;
//if(TOR_Lot<0.01){TOR_Lot=0.01;}
ObjectDelete(button_H8);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_H9)//plus button for HARE TP value
{
ObjectSetString(0,button_H9,OBJPROP_TEXT,"Increase Hare TP value...");
H_TP=H_TP+5;
ObjectDelete(button_H9);
}
if(sparam==button_H10)//minus button for HARE TP value
{
ObjectSetString(0,button_H10,OBJPROP_TEXT,"Decrease Hare TP value...");
H_TP=H_TP-5;
if(H_TP<0){H_TP=0;}
ObjectDelete(button_H10);
}
//+-----------------------------------------------------------------------------
if(sparam==button_H11)//plus button for HARE SL value
{
ObjectSetString(0,button_H11,OBJPROP_TEXT,"Increase Hare TP value...");
H_SL=H_SL+5;
ObjectDelete(button_H11);
}
if(sparam==button_H12)//minus button for HARE SL value
{
ObjectSetString(0,button_H12,OBJPROP_TEXT,"Decrease Hare TP value...");
H_SL=H_SL-5;
if(H_SL<0){H_SL=0;}
ObjectDelete(button_H12);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_T1)//plus button for TORTOISE LOT value-00.0X
{
ObjectSetString(0,button_T1,OBJPROP_TEXT,"Increase TOR LOT value...");
TOR_Lot=TOR_Lot+.01;
ObjectDelete(button_T1);
}
if(sparam==button_T2)//minus button for HARE LOT value
{
ObjectSetString(0,button_T2,OBJPROP_TEXT,"Decrease TOR LOT value...");
TOR_Lot=TOR_Lot-.01;
if(TOR_Lot<0.01){TOR_Lot=0.01;}
ObjectDelete(button_T2);
}
//++++++++++
if(sparam==button_T3)//plus button for TORTOISE LOT value-00.X0
{
ObjectSetString(0,button_T3,OBJPROP_TEXT,"Increase TOR LOT value...");
TOR_Lot=TOR_Lot+.10;
ObjectDelete(button_T3);
}
if(sparam==button_T4)//minus button for HARE LOT value
{
ObjectSetString(0,button_T4,OBJPROP_TEXT,"Decrease TOR LOT value...");
TOR_Lot=TOR_Lot-.10;
//if(TOR_Lot<0.01){TOR_Lot=0.01;}
ObjectDelete(button_T4);
}
//++++++++++
if(sparam==button_T5)//plus button for TORTOISE LOT value-0X.00
{
ObjectSetString(0,button_T5,OBJPROP_TEXT,"Increase TOR LOT value...");
TOR_Lot=TOR_Lot+1.00;
ObjectDelete(button_T5);
}
if(sparam==button_T6)//minus button for HARE LOT value
{
ObjectSetString(0,button_T6,OBJPROP_TEXT,"Decrease TOR LOT value...");
TOR_Lot=TOR_Lot-1.00;
//if(TOR_Lot<0.01){TOR_Lot=0.01;}
ObjectDelete(button_T6);
}
//++++++++++
if(sparam==button_T7)//plus button for TORTOISE LOT value-X0.00
{
ObjectSetString(0,button_T7,OBJPROP_TEXT,"Increase TOR LOT value...");
TOR_Lot=TOR_Lot+10.00;
ObjectDelete(button_T7);
}
if(sparam==button_T8)//minus button for HARE LOT value
{
ObjectSetString(0,button_T8,OBJPROP_TEXT,"Decrease TOR LOT value...");
TOR_Lot=TOR_Lot-10.00;
//if(TOR_Lot<0.01){TOR_Lot=0.01;}
ObjectDelete(button_T8);
}
//--------------------------------------------------------------------------------------------------------
if(sparam==button_T9)//plus button for TORTOISE TP value
{
ObjectSetString(0,button_T9,OBJPROP_TEXT,"Increase Tort TP value...");
TOR_TP=TOR_TP+5;
ObjectDelete(button_T9);
}
if(sparam==button_T10)//minus button for TORT TP value
{
ObjectSetString(0,button_T10,OBJPROP_TEXT,"Decrease Tort TP value...");
TOR_TP=TOR_TP-5;
if(TOR_TP<0){TOR_TP=0;}
ObjectDelete(button_T10);
}
//+-----------------------------------------------------------------------------
if(sparam==button_T11)//plus button for TORT SL value
{
ObjectSetString(0,button_T11,OBJPROP_TEXT,"Increase Tort TP value...");
TOR_SL=TOR_SL+5;
ObjectDelete(button_T11);
}
if(sparam==button_T12)//minus button for TORT SL value
{
ObjectSetString(0,button_T12,OBJPROP_TEXT,"Decrease Tort TP value...");
TOR_SL=TOR_SL-5;
if(TOR_SL<0){TOR_SL=0;}
ObjectDelete(button_T12);
}
//--------------------------------------------------------------------------------------------------------
}
//--- re-draw property values
ChartRedraw();
}
//+------------------------------------------------------------------+
//| closeOpenOrders |
//+------------------------------------------------------------------+
void closeOpenOrders(string currency,int orderType )
{
double close;
orders = OrdersTotal();
for(int i=0;i<orders;i++) {
if(OrderSelect(i, SELECT_BY_POS)==true) {
if(OrderType() == orderType && OrderSymbol() == currency && orderType == OP_SELL) {
double ask = MarketInfo(currency,MODE_ASK);
close= OrderClose(OrderTicket(),OrderLots(),ask,3,Red);
}
if(OrderType() == orderType && OrderSymbol() == currency && orderType == OP_BUY) {
double bid = MarketInfo(currency,MODE_BID);
close= OrderClose(OrderTicket(),OrderLots(),bid,3,Green);
}
}
}
}
void close_basket(int magic_number)
{
if (OrdersTotal()==0) return;
for (int i=OrdersTotal()-1; i>=0; i--)
{//pozicio kivalasztasa
if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)==true)//ha kivalasztas ok
{
//Print ("order ticket: ", OrderTicket(), "order magic: ", OrderMagicNumber());
if (OrderType()==0)
{//ha long
ticket=OrderClose(OrderTicket(),OrderLots(), MarketInfo(OrderSymbol(),MODE_BID), 3,Red);
if (ticket==-1) Print ("Error: ", GetLastError());
}
if (OrderType()==1)
{//ha short
ticket=OrderClose(OrderTicket(),OrderLots(), MarketInfo(OrderSymbol(),MODE_ASK), 3,Red);
if (ticket==-1) Print ("Error: ", GetLastError());
}
}
}
//----
return;
}
//+------------------------------------------------------------------+
void Trades ()
{
int i, j;
double totallots=0;
for(i=0;i<ArraySize(TradePair);i++)
{
bpos[i]=0;
spos[i]=0;
blots[i]=0;
slots[i]=0;
bprofit[i]=0;
sprofit[i]=0;
tprofit[i]=0;
}
for(i=0;i<OrdersTotal();i++)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
for(j=0;j<ArraySize(TradePair);j++)
{
if(TradePair[j]==OrderSymbol() || TradePair[j]=="")
{
TradePair[j]=OrderSymbol();
tprofit[j]=tprofit[j]+OrderProfit()+OrderSwap()+OrderCommission();
if(OrderType()==0){ bprofit[j]+=OrderProfit()+OrderSwap()+OrderCommission(); }
if(OrderType()==1){ sprofit[j]+=OrderProfit()+OrderSwap()+OrderCommission(); }
if(OrderType()==0){ blots[j]+=OrderLots(); }
if(OrderType()==1){ slots[j]+=OrderLots(); }
if(OrderType()==0){ bpos[j]+=+1; }
if(OrderType()==1){ spos[j]+=+1; }
totallots=totallots+OrderLots();
break;
}
}
}
}
//+------------------------------------------------------------------+
double TotalProfit ()
{
double totalprofit=0;
for(int i=0;i<OrdersTotal();i++)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
if(OrderType()==OP_BUY || OrderType()==OP_SELL)
totalprofit=totalprofit+OrderProfit()+OrderCommission()+OrderSwap();
}
return (totalprofit);
}
//+------------------------------------------------------------------+