/*-----------------------------+
| |
| Shared by www.Aptrafx.com |
| |
+------------------------------*/
#include <stdlib.mqh>
//+------------------------------------------------------------------+
//| Camarilla Forex System-M5a.mq4 |
//| |
//| |
//| Converted by Mql2Mq4 v1.1 |
//| http://yousky.free.fr |
//| Copyright © 2006, Yousky Soft |
//+------------------------------------------------------------------+
#property copyright " Copyright © 2005 FAB4x, Alejandro Galindo & KillerKhan"
#property link ""
//+------------------------------------------------------------------+
//| Common External variables |
//+------------------------------------------------------------------+
extern double Lots = 1.00;
extern double StopLoss = 0.00;
extern double TakeProfit = 0.00;
extern double TrailingStop = 0.00;
//+------------------------------------------------------------------+
//| External variables |
//+------------------------------------------------------------------+
extern double StartHour = 0;
extern double StartMinute = 30;
extern double EndHour = 21;
extern double EndMinute = 55;
extern double mm = 0;
extern double risk = 7.5;
//+------------------------------------------------------------------+
//| Special Convertion Functions |
//+------------------------------------------------------------------+
int LastTradeTime;
bool MOrderDelete( int ticket )
{
LastTradeTime = CurTime();
return ( OrderDelete( ticket ) );
}
int MOrderSend( string symbol, int cmd, double volume, double price, int slippage, double stoploss, double takeprofit, string comment="", int magic=0, datetime expiration=0, color arrow_color=CLR_NONE)
{
LastTradeTime = CurTime();
price = MathRound(price*10000)/10000;
stoploss = MathRound(stoploss*10000)/10000;
takeprofit = MathRound(takeprofit*10000)/10000;
return ( OrderSend( symbol, cmd, volume, price, slippage, stoploss, takeprofit, comment, magic, expiration, arrow_color ) );
}
int OrderValueTicket(int index)
{
OrderSelect(index, SELECT_BY_POS);
return(OrderTicket());
}
int OrderValueType(int index)
{
OrderSelect(index, SELECT_BY_POS);
return(OrderType());
}
double OrderValueLots(int index)
{
OrderSelect(index, SELECT_BY_POS);
return(OrderLots());
}
string OrderValueSymbol(int index)
{
OrderSelect(index, SELECT_BY_POS);
return(OrderSymbol());
}
bool SetObjectText(string name, string text, string font, int size, color Acolor)
{
return(ObjectSetText(name, text, size, font, Acolor));
}
bool MoveObject(string name, int type, datetime Atime, double Aprice, datetime Atime2 = 0, double Aprice2 = 0, color Acolor = CLR_NONE, int Aweight = 0, int Astyle = 0)
{
if (ObjectFind(name) != -1)
{
int OType = ObjectType(name);
if ((OType == OBJ_VLINE) ||
(OType == OBJ_HLINE) ||
(OType == OBJ_TRENDBYANGLE) ||
(OType == OBJ_TEXT) ||
(OType == OBJ_ARROW) ||
(OType == OBJ_LABEL))
{
return(ObjectMove(name, 0, Atime, Aprice));
}
if ((OType == OBJ_GANNLINE) ||
(OType == OBJ_GANNFAN) ||
(OType == OBJ_GANNGRID) ||
(OType == OBJ_FIBO) ||
(OType == OBJ_FIBOTIMES) ||
(OType == OBJ_FIBOFAN) ||
(OType == OBJ_FIBOARC) ||
(OType == OBJ_RECTANGLE) ||
(OType == OBJ_ELLIPSE) ||
(OType == OBJ_CYCLES) ||
(OType == OBJ_TREND) ||
(OType == OBJ_STDDEVCHANNEL) ||
(OType == OBJ_REGRESSION))
{
return(ObjectMove(name, 0, Atime, Aprice) && ObjectMove(name, 1, Atime2, Aprice2));
}
/*
OBJ_CHANNEL,
OBJ_EXPANSION,
OBJ_FIBOCHANNEL,
OBJ_TRIANGLE,
OBJ_PITCHFORK
*/
}
else
{
return(ObjectCreate(name, type, 0, Atime, Aprice, Atime2, Aprice2, 0, 0) && ObjectSet(name, OBJPROP_COLOR, Acolor));
}
}
//+------------------------------------------------------------------+
//| End |
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
//| Initialization |
//+------------------------------------------------------------------+
int init()
{
return(0);
}
int start()
{
//+------------------------------------------------------------------+
//| Local variables |
//+------------------------------------------------------------------+
int cnt = 0;
double lotsi = 0;
double OpenTrades = 0;
double FilledOrders = 0;
double Slippage = 5;
double L3 = 0;
double TimetoOpen = 0;
double TimetoClose = 0;
double tmp = 0;
int i = 0;
double Trades = 2;
string Type = "NONE";
bool Reverse = False;
double mode = 0;
double H4 = 0;
double H3 = 0;
double L4 = 0;
double L1 = 0;
double H1 = 0;
string vQ = "";
string vH4 = "";
string vH3 = "";
string vL4 = "";
string vL3 = "";
string vL1 = "";
string vH1 = "";
//+-------------------------------------------------------------------+
//| Made/Modified by Alejandro Galindo |
//| |
//| If this work/modification is helpful to you |
//| send me a PayPal donation to ag@elcactus.com |
//| any help is apreciated :) |
//| Thanks. |
//+-------------------------------------------------------------------+
/*[[
Name := CAMARILLA FOREX SYSTEM M5
Author := Copyright © 2005 FAB4x, Alejandro Galindo & KillerKhan
Lots := 1.00
Stop Loss := 0
Take Profit := 0
Trailing Stop := 0
]]*/
if( Period() != 5 )
{
Comment("This expert is for M5 Charts Only!!!");
return(0);
}
if( TimeYear(Time[0])<2006 ) return(0);
if( CurTime() - LastTradeTime < 5 ) return(0);
if( mm != 0 )
lotsi=MathCeil(AccountBalance()*risk/10000)/10
; else
lotsi=Lots;
vQ = "[" + Symbol() + "] Q";
vH4 = "[" + Symbol() + "] H4";
vH3 = "[" + Symbol() + "] H3";
vL4 = "[" + Symbol() + "] L4";
vL3 = "[" + Symbol() + "] L3";
vL1 = "[" + Symbol() + "] L1";
vH1 = "[" + Symbol() + "] H1";
H4=GlobalVariableGet(vH4);
H3=GlobalVariableGet(vH3);
H1=GlobalVariableGet(vH1);
L1=GlobalVariableGet(vL1);
L4=GlobalVariableGet(vL4);
L3=GlobalVariableGet(vL3);
Comment(" PLACE A BUYSTOP ORDER AT ", H3 ," PLACE A SELLSTOP ORDER AT " , L3);
MoveObject("H4",OBJ_HLINE,Time[0], H4,Time[0], H4,Blue,1,STYLE_DOT);
MoveObject("H3",OBJ_HLINE,Time[0],H3,Time[0],H3,Blue,1,STYLE_DOT);
MoveObject("H1",OBJ_HLINE,Time[0],H1,Time[0],H1,MediumVioletRed,1,STYLE_DASH);
MoveObject("L1",OBJ_HLINE,Time[0],L1,Time[0],L1,MediumVioletRed,1,STYLE_DASH);
MoveObject("L3",OBJ_HLINE,Time[0], L3,Time[0], L3,Red,1,STYLE_DOT);
MoveObject("L4",OBJ_HLINE,Time[0],L4,Time[0],L4,Red,1,STYLE_DOT);
SetObjectText("H4_txt","Get Out Here ","Arial",7,White);
MoveObject("H4_txt",OBJ_TEXT,Time[0],H4,Time[0],H4,White);
SetObjectText("H3_txt","Buy Here ","Arial",7,White);
MoveObject("H3_txt",OBJ_TEXT,Time[0],H3,Time[0],H3,White);
SetObjectText("H1_txt","Stop Loss for Short ","Arial",7,White);
MoveObject("H1_txt",OBJ_TEXT,Time[0],H1,Time[0],H1,White);
SetObjectText("L1_txt","Stop Loss for Long ","Arial",7,White);
MoveObject("L1_txt",OBJ_TEXT,Time[0],L1,Time[0],L1,White);
SetObjectText("L3_txt","Sell Here ","Arial",7,White);
MoveObject("L3_txt",OBJ_TEXT,Time[0],L3,Time[0],L3,White);
SetObjectText("L4_txt","Get Out Here ","Arial",7,White);
MoveObject("L4_txt",OBJ_TEXT,Time[0],L4,Time[0],L4,White);
OpenTrades=0;
for (int Cnt=0; Cnt<OrdersTotal(); Cnt++) {
if( OrderValueSymbol(cnt) == Symbol() )
{
OpenTrades++;
if( OrderValueType(cnt) == OP_SELL || OrderValueType(cnt) == OP_BUY )
{
FilledOrders++;
}
}
}
if( (Hour() == EndHour && Minute()>=EndMinute) )
{
cnt=0;while( cnt<=10000 ) { cnt++; }
for(cnt=1;cnt<=OrdersTotal();cnt++) {
mode = OrderValueType(cnt);
if( OrderValueSymbol(cnt) == Symbol() )
{
Trades=2;
Type="NONE";
Reverse=False;
if( (mode == OP_BUYSTOP) ) MOrderDelete(OrderValueTicket(cnt));
if( (mode == OP_SELLSTOP) ) MOrderDelete(OrderValueTicket(cnt));
if( (mode == OP_BUY) ) OrderClose(OrderValueTicket(cnt),OrderValueLots(cnt),Bid,Slippage,Blue);
if( (mode == OP_SELL) ) OrderClose(OrderValueTicket(cnt),OrderValueLots(cnt),Ask,Slippage,Red);
return(0);
}
}
}
if( (Hour() == StartHour && Minute()>=StartMinute) )
{
if( OpenTrades<1 )
{
Trades=2;
Type="NONE";
Reverse=True;
MOrderSend(Symbol(),OP_BUYSTOP,lotsi,H3,Slippage,H1,H4,"",16384,0,Blue);
MOrderSend(Symbol(),OP_SELLSTOP,lotsi,L3,Slippage,L1,L4,"",16384,0,Red);
return(0);
}
}
// if we only have one Stop order we place the another one to always have ready both sides
if( OpenTrades == 1 && Trades>=1 )
{
for(cnt=1;cnt<=OrdersTotal();cnt++) {
if( (OrderValueSymbol(cnt) == Symbol()) )
{
if( OrderValueType(cnt) == OP_SELLSTOP )
{
Trades=1;
Type="NONE";
Reverse=True;
MOrderSend(Symbol(),OP_BUYSTOP,lotsi,H3,Slippage,L1,H4,"",16384,0,Blue);
return(0);
}
if( OrderValueType(cnt) == OP_BUYSTOP )
{
Trades=1;
Type="NONE";
Reverse=True;
MOrderSend(Symbol(),OP_SELLSTOP,lotsi,L3,Slippage,H1,L4,"",16384,0,Red);
return(0);
}
}
}
}
// if we have opened positions we take care of them
for(cnt=1;cnt<=OrdersTotal() ;cnt++)
{
if( OrderValueSymbol(cnt) == Symbol() )
{
if( OrderValueType(cnt) == OP_BUY )
{
for(i=1;i<=OrdersTotal();i++) {
if( (OrderValueSymbol(i) == Symbol()) )
{
if( OrderValueType(i) == OP_SELLSTOP || OrderValueType(i) == OP_BUYSTOP )
{
Trades=1;
Type="SELL";
Reverse=True;
MOrderDelete(OrderValueTicket(i));
return(0);
}
}
}
if( OrderValueType(cnt) == OP_SELL )
{
for(i=1;i<=OrdersTotal();i++) {
if( (OrderValueSymbol(i) == Symbol()) )
{
if( OrderValueType(i) == OP_SELLSTOP || OrderValueType(i) == OP_BUYSTOP )
{
Trades=1;
Type="BUY";
Reverse=True;
MOrderDelete(OrderValueTicket(i));
return(0);
}
}
}
}
}
}
}
return(0); return(0);
}
Sample
Analysis
Market Information Used:
Series array that contains open time of each bar
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
It automatically opens orders when conditions are reached
Checks for the total of open orders
It Closes Orders by itself
Other Features:
