//+------------------------------------------------------------------------------------+
//| Bliksem.mq4 |
//| Copyright © 2006 |
//| http://fatcats.dats.co.za |
//| Bliksem EA |
//| |
//+------------------------------------------------------------------------------------+
#property copyright "Bliksem Expert Strategy of Wayne Ovenstone, 4x@ovenstone.co.za, Programmed by Barry Stander"
#property link "http://fatcats.dats.co.za"
string version = "Bliksem System Expert Version 2.2 29/01/2007 Strategy of Wayne Ovenstone, 4x@ovenstone.co.za, Programmed by Barry Stander";
#include <stdlib.mqh>
//#include <BPS include.mqh>
extern int Envelope = 55; // 34
extern int Signal_H4 = 13; // 8
extern int Signal_M30 = 13; // 8
extern int Signal_M5 = 13; // 8
extern int Spyker_JimmyEMA=1; //3
extern int Spyker_SignalSMA=375; //296;
extern bool Use_Fix_Trailing_stop = 1;
extern int fix_trailing_stop = 50; // 50
extern int Increments = 8; // 8
extern bool Money_Managment = false;
extern double Risk = 0.01;
extern double Lots = 0.01; // 0.01; // start lot size
extern bool Fixed_Lots = 0;
int Magic_No_start = 2345; // 2345;
int Magic_No;
int last_m_no = 0;
int Slippage = 1;
extern bool Remove_pending_orders = 0 ;
//+------------------------------------------------------------------+
//| close pending orders function |
//+------------------------------------------------------------------+
int close_pending_orders(int m_no)
{
int error_check3;
int orders[10];
int loop2 =0;
for (int loop = 0; loop <= OrdersTotal(); loop++)
{
OrderSelect(loop,SELECT_BY_POS,MODE_TRADES );
if( OrderSymbol() == Symbol() && OrderMagicNumber() == m_no
&& ( OrderType() == OP_BUYLIMIT || OrderType() == OP_BUYSTOP || OrderType() == OP_SELLLIMIT || OrderType() == OP_SELLSTOP ) )
{
orders[loop2] = OrderTicket();
loop2++;
}
}
if( m_no == 0 )
for ( loop = 0; loop <= OrdersTotal(); loop++)
{
OrderSelect(loop,SELECT_BY_POS,MODE_TRADES );
if( OrderSymbol() == Symbol() && OrderMagicNumber() >= Magic_No_start && OrderMagicNumber() <= Magic_No_start + 100
&& ( OrderType() == OP_BUYLIMIT || OrderType() == OP_BUYSTOP || OrderType() == OP_SELLLIMIT || OrderType() == OP_SELLSTOP ) )
{
orders[loop2] = OrderTicket();
loop2++;
}
}
if( OrdersTotal() > 0 )
for ( loop = 0; loop <= 10; loop++)
{
if( orders[loop] > 0 )
{
error_check3 = OrderDelete( orders[loop] );
while( error_check3 != 0 )
{
error_check3 = OrderDelete( orders[loop] );
// Sleep( 1000 );
}
}
}
return(0);
}
//+------------------------------------------------------------------+
//| expert initialization function |
//+------------------------------------------------------------------+
int init()
{
Comment( version );
watermark();
Print("---------- Bliksem Expert Started ----------------");
if( Remove_pending_orders == 1 )
close_pending_orders(0); // close old pending orders if EA started
return(0);
}
void watermark()
{
ObjectCreate("bliksem", OBJ_LABEL, 0, 0, 0);
ObjectSetText("bliksem", "Programmed by Barry Stander", 8, "Lucida Handwriting", RoyalBlue);
ObjectSet("bliksem", OBJPROP_CORNER, 2);
ObjectSet("bliksem", OBJPROP_XDISTANCE, 5);
ObjectSet("bliksem", OBJPROP_YDISTANCE, 10);
return(0);
}
//+------------------------------------------------------------------+
//| expert start function |
//+------------------------------------------------------------------+
int start()
{
// close_pending_orders(1) ;
string comment;
string comment_H1 = " -- ";
string comment_H4 = " -- ";
string comment_M30 = " -- ";
string comment_M5 = " -- ";
string trade_comment;
int direction_H1 = 0 ; // 1 = Long 2 = Short
int direction_H4 = 0 ; // 1 = Long 2 = Short
int direction_M30 = 0 ; // 1 = Long 2 = Short
int direction_M5 = 0 ; // 1 = Long 2 = Short
int Enable_Long_trade = 0;
int Enable_Short_trade = 0;
int loop;
int loop2;
int error_check;
int error_check2;
int Spread;
int TrailingStop;
int TargetPoint;
double EntryPrice;
double EntryPrice2;
double Open_Lots = 0;
if( last_m_no == 0 )
Magic_No = Magic_No_start;
watermark();
// 1H signals
double spyker_trend_H1 = iCustom(NULL, PERIOD_H1 , "Spyker",Spyker_JimmyEMA,Spyker_SignalSMA,0,0);
double spyker_signal_H1 = iCustom(NULL, PERIOD_H1 , "Spyker",Spyker_JimmyEMA,Spyker_SignalSMA,1,0);
if( spyker_trend_H1 == 0 && spyker_signal_H1 == 0 )
Alert(" You need Spyker Indicator or 1 Hour Data ! ! ! ", Symbol() );
// 4H signals
double ema_1_H4 = iMA( NULL , PERIOD_H4 , Envelope , 0 , MODE_EMA , PRICE_HIGH , 0 );
double ema_2_H4 = iMA( NULL , PERIOD_H4 , Envelope , 0 , MODE_EMA , PRICE_LOW , 0 );
double ema_3_H4 = iMA( NULL , PERIOD_H4 , Signal_H4 , 0 , MODE_EMA , PRICE_MEDIAN , 0 ); // Outer_Level
if( ema_1_H4 == 0 && ema_2_H4 == 0 && ema_2_H4 == 0)
Alert(" You need 4 Hour Data ! ! ! " , Symbol() );
// 30M signals
double ema_1_M30 = iMA( NULL , PERIOD_M30 , Envelope , 0 , MODE_EMA , PRICE_HIGH , 0 );
double ema_2_M30 = iMA( NULL , PERIOD_M30 , Envelope , 0 , MODE_EMA , PRICE_LOW , 0 );
double ema_3_M30 = iMA( NULL , PERIOD_M30 , Signal_M30 , 0 , MODE_EMA , PRICE_MEDIAN , 0 );
if( ema_1_M30 == 0 && ema_2_M30 == 0 && ema_2_M30 == 0)
Alert(" You need 30 Minute Data ! ! ! ", Symbol() );
// 5M signals
double ema_1_M5 = iMA( NULL , PERIOD_M5 , Envelope , 0 , MODE_EMA , PRICE_HIGH , 0 );
double ema_2_M5 = iMA( NULL , PERIOD_M5 , Envelope , 0 , MODE_EMA , PRICE_LOW , 0 );
double ema_3_M5 = iMA( NULL , PERIOD_M5 , Signal_M5 , 0 , MODE_EMA , PRICE_MEDIAN , 0 );
if( ema_1_M5 == 0 && ema_2_M5 == 0 && ema_2_M5 == 0)
Alert(" You need 5 Minute Data ! ! ! ", Symbol() );
if( Spread == 0 )
Spread = (Ask - Bid)/Point;
// ---------------- Money Managment to calc lots -------------
if (Money_Managment == true)
{
Open_Lots = Lots * (AccountEquity() * Risk);
Open_Lots = StrToDouble(DoubleToStr(Open_Lots,2));
if (Open_Lots < Lots) Open_Lots = Lots;
}
if (Money_Managment == false)
{
Open_Lots = Lots;
if (Open_Lots < Lots) Open_Lots = Lots;
}
// ------------------------------------------------------
if( spyker_trend_H1 > spyker_signal_H1 )
{
direction_H1 = 1;
comment_H1 = "H1 Long";
}
if( spyker_trend_H1 < spyker_signal_H1 )
{
direction_H1 = 2;
comment_H1 = "H1 Short";
}
// ---------------------
if( ema_3_H4 > ema_1_H4 && ema_3_H4 > ema_2_H4 )
{
direction_H4 = 1;
comment_H4 = "H4 Long";
}
if( ema_3_H4 < ema_1_H4 && ema_3_H4 < ema_2_H4 )
{
direction_H4 = 2;
comment_H4 = "H4 Short";
}
if( ema_3_H4 < ema_1_H4 && ema_3_H4 > ema_2_H4 )
{
direction_H4 = 0;
comment_H4 = "H4 Middle";
close_pending_orders(0);
}
// -----------------------
if( ema_3_M30 > ema_1_M30 && ema_3_M30 > ema_2_M30 )
{
direction_M30 = 1;
comment_M30 = "M30 Long";
}
if( ema_3_M30 < ema_1_M30 && ema_3_M30 < ema_2_M30 )
{
direction_M30 = 2;
comment_M30 = "M30 Short";
}
if( ema_3_M30 < ema_1_M30 && ema_3_M30 > ema_2_M30 )
{
direction_M30 = 0;
comment_M30 = "M30 Middle";
}
// -----------------------
if( ema_3_M5 > ema_1_M5 && ema_3_M5 > ema_2_M5 )
{
direction_M5 = 1;
comment_M5 = "M5 Long";
}
if( ema_3_M5 < ema_1_M5 && ema_3_M5 < ema_2_M5 )
{
direction_M5 = 2;
comment_M5 = "M5 Short";
}
if( ema_3_M5 < ema_1_M5 && ema_3_M5 > ema_2_M5 )
{
direction_M5 = 0;
comment_M5 = "M5 Middle";
}
// -----------------------
int Open_Buy_Orders = 0;
int Open_Sell_Orders = 0;
for (loop = 0; loop < OrdersTotal(); loop++)
{
OrderSelect(loop,SELECT_BY_POS,MODE_TRADES);
if (OrderSymbol() == Symbol() && OrderMagicNumber() >= Magic_No_start && OrderMagicNumber() <= Magic_No_start + 100 )
{
if (OrderType() == OP_BUYLIMIT)
Open_Buy_Orders++;
if (OrderType() == OP_SELLLIMIT)
Open_Sell_Orders++;
if (OrderType() == OP_BUY || OrderType() == OP_SELL || OrderType() == OP_BUYLIMIT || OrderType() == OP_SELLLIMIT )
if( last_m_no < OrderMagicNumber() )
last_m_no = OrderMagicNumber();
}
}
if( last_m_no > 1 )
Magic_No = last_m_no + 1;
else
Magic_No = Magic_No_start;
if( Magic_No <= 1 )
Alert( Magic_No );
// --------- Trade direction ---------------------------------
if( direction_H1 == 2 && direction_H4 == 1 && direction_M30 == 1 && direction_M5 == 1 )
Enable_Long_trade = 1;
if( direction_H1 == 1 && direction_H4 == 2 && direction_M30 == 2 && direction_M5 == 2 )
Enable_Short_trade = 1;
// ------ Open Long orders -----------------
// If the trade opens at 0.01, then set the SL at a value of 120, reducing this value by 12 pips for every new trade opened.
// Table to explain;
// 0.01 = 120
// 0.02 = 108
// 0.04 = 96
// 0.08 = 84
// 0.16 = 72
// 0.32 = 60
// 0.64 = 48
// 1.28 = 36
// 2.56 = 24
//
double Open_Lots_B = Open_Lots;
double Open_Lots_S = Open_Lots;
int trade_per_basket = 9;
int Stop_Loss = 0;
if( Use_Fix_Trailing_stop == 1 && fix_trailing_stop > 0 )
Stop_Loss = fix_trailing_stop;
else
Stop_Loss = 120;
int Target_Point = 2000;
if ( Enable_Long_trade == 1 && Enable_Short_trade == 0 && Open_Buy_Orders == 0 )
{
EntryPrice = Ask;//Bid+(Spread*Point);\
trade_comment = "Bliksem2 "+Symbol()+" "+Stop_Loss +" "+ Magic_No;
// Print( "B: ", Magic_No );
if( Magic_No >= Magic_No_start )
error_check = OrderSend(Symbol(),OP_BUY,Open_Lots_B,EntryPrice,Slippage,EntryPrice-(Stop_Loss * Point),EntryPrice+(Target_Point*Point),trade_comment+".0",Magic_No,0,Blue);
if(error_check < 0)
Print("Errors opening BUY order = ",GetLastError() ," ", ErrorDescription(error_check));
else
{
for (loop2 = 1; loop2 < trade_per_basket ; loop2++)
{
if( Fixed_Lots == 0 )
Open_Lots_B *= 2;
if( Use_Fix_Trailing_stop == 1 && fix_trailing_stop > 0 )
Stop_Loss = fix_trailing_stop;
else
Stop_Loss -= 12;
trade_comment = "Bliksem2 "+Symbol()+" "+Stop_Loss +" "+ Magic_No+"."+loop2;
EntryPrice2 = EntryPrice-((Increments*loop2))*Point;
if( Magic_No >= Magic_No_start )
error_check2 = OrderSend(Symbol(),OP_BUYLIMIT,Open_Lots_B,EntryPrice2 ,Slippage,EntryPrice2 -( Stop_Loss * Point) ,EntryPrice2+(Target_Point*Point),trade_comment,Magic_No,0,Blue);
if(error_check2 < 0)
Print("Errors opening BUY order 2 = ",GetLastError() ," ", ErrorDescription(error_check2) );
}
}
return(0);
}
// ------ Open Short orders -----------------
if ( Enable_Long_trade == 0 && Enable_Short_trade == 1 && Open_Sell_Orders == 0 )
{
EntryPrice = Bid;
Magic_No = last_m_no + 1;
trade_comment = "Bliksem2 "+Symbol()+" "+Stop_Loss +" "+ Magic_No;
// Print( "S: ", Magic_No );
if( Magic_No >= Magic_No_start )
error_check = OrderSend(Symbol(),OP_SELL,Open_Lots_S,EntryPrice,Slippage,EntryPrice+( Stop_Loss * Point),EntryPrice-(Target_Point*Point),trade_comment,Magic_No+".",0,Red);
if(error_check < 0)
Print("Errors opening SELL order = ",GetLastError() ," ", ErrorDescription(error_check) );
else
{
for (loop2 = 1; loop2 < trade_per_basket ; loop2++)
{
if( Fixed_Lots == 0 )
Open_Lots_S *= 2;
if( Use_Fix_Trailing_stop == 1 && fix_trailing_stop > 0 )
Stop_Loss = fix_trailing_stop;
else
Stop_Loss -= 12;
trade_comment = "Bliksem2 "+Symbol()+" "+Stop_Loss +" "+ Magic_No+"."+loop2;
EntryPrice2 = EntryPrice+((Increments*loop2)*Point);
if( Magic_No >= Magic_No_start )
error_check2 = OrderSend(Symbol(),OP_SELLLIMIT,Open_Lots_S,EntryPrice2 ,Slippage,EntryPrice2 + ( Stop_Loss * Point) ,EntryPrice2-(Target_Point*Point),trade_comment,Magic_No,0,Blue);
if(error_check2 < 0)
Print("Errors opening SELL order 2 = ",GetLastError() ," ", ErrorDescription(error_check2) );
}
}
return(0);
}
// ------- EXIT + trailing stop -------------------------------
//
//
// Trailing stop table:
// price move Stoploss Gain if close by SL
// +20 20 0
// +30 25 5
// +40 30 10
// +50 35 15
// +60 40 20
// +70 45 25
// +80 50 30
// +90 50 40
// +100 50 50
// +200 50 150
//
//
int lots_check = 0;
int order_check = 0;
if( OrdersTotal() >= 1 )
{
int total=OrdersTotal();
for(int cnt=0;cnt<=total;cnt++) // cnt loop
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if( OrderSymbol() == Symbol() && OrderMagicNumber() >= Magic_No_start && OrderMagicNumber() <= Magic_No_start + 100 && order_check != OrderTicket() ) // check for symbol
{
if( Use_Fix_Trailing_stop == 1 && fix_trailing_stop > 0 )
TrailingStop = fix_trailing_stop;
else
{
if( OrderProfit() <= 20 ) TrailingStop = 20;
if( OrderProfit() >= 30 && OrderProfit() < 40) TrailingStop = 25;
if( OrderProfit() >= 40 && OrderProfit() < 50) TrailingStop = 30;
if( OrderProfit() >= 50 && OrderProfit() < 60) TrailingStop = 35;
if( OrderProfit() >= 60 && OrderProfit() < 70) TrailingStop = 40;
if( OrderProfit() >= 70 && OrderProfit() < 80) TrailingStop = 45;
if( OrderProfit() >= 80 ) TrailingStop = 50;
}
TargetPoint = 1000; // move Target Point way ahead as we exit by Trailing stop
if(OrderType()==OP_BUYSTOP || OrderType()==OP_BUY ) // long position is opened OP_BUY||OP_BUYSTOP
{
if(Bid-OrderOpenPrice()>Point*TrailingStop)
{
if(OrderStopLoss()<Bid-Point*TrailingStop)
{
OrderModify(OrderTicket(),OrderOpenPrice(),Bid-(Point*TrailingStop),Bid+(Point*TargetPoint),0,Green);
Print(" OrderModify: ",OrderTicket()," ",OrderOpenPrice()," ",Bid-Point*TrailingStop," ",OrderTakeProfit() );
close_pending_orders(OrderMagicNumber());
return(0);
}
}
}
if(OrderType()==OP_SELLSTOP || OrderType()==OP_SELL) // short position is opened OP_SELL||OP_SELLLIMIT
{
if((OrderOpenPrice()-Ask)>(Point*TrailingStop))
{
if(OrderStopLoss()>(Ask+(Point*TrailingStop)) || (OrderStopLoss()==0))
{
OrderModify(OrderTicket(),OrderOpenPrice(),Ask+(Point*TrailingStop),Ask-(Point*TargetPoint),0,Red);
Print(" OrderModify: ",OrderTicket()," ",OrderOpenPrice()," ",Ask+(Point*TrailingStop)," ",OrderTakeProfit() );
close_pending_orders(OrderMagicNumber());
return(0);
}
}
}
}
}// cnt loop end
}
// -------------------------------------------
Comment( version + "Bliksem Signals :" , "\nSpyker ", comment_H1 , "\n", comment_H4 ," ( ", ema_1_H4 ," - ", ema_2_H4 ," ) " , ema_3_H4
, "\n", comment_M30 ," ( ", ema_1_M30 ," - ", ema_2_M30 ," ) " , ema_3_M30 , "\n", comment_M5 ," ( ", ema_1_M5 ," - ", ema_2_M5 ," ) " , ema_3_M5
, "\nSettings: Envelope: ",Envelope," H4: ",Signal_H4," M30: ",Signal_M30," M5: ", Signal_M5
, "\n Spyker: ", Spyker_JimmyEMA ," ", Spyker_SignalSMA ," Stop: ", fix_trailing_stop
, "\n Magic_No: ", Magic_No ," Orders: ", OrdersTotal() );
return(0);
}
Sample
Analysis
Market Information Used:
Indicator Curves created:
Indicators Used:
Moving average indicator
Custom Indicators Used:
Spyker
Order Management characteristics:
Checks for the total of open orders
It automatically opens orders when conditions are reached
It can change open orders parameters, due to possible stepping strategy
Other Features:
It issuies visual alerts to the screen