Untitled 1357

dumpykhan970

Apr 16th, 2026

Never

Not a member of GistPad yet? Sign Up, it unlocks many cool features!

None 186.52 KB | None | 0 0

copy raw download clone embed print report

//+------------------------------------------------------------------+
//| AIBRAIN OTC v44.7 - FIXED (HRN Candle-Close Based + Round Nums) |
//| Fixed: HRN shift on candle close only, better round numbers |
//| Fixed: TFA direction, ML reset, accuracy tracking improved |
//+------------------------------------------------------------------+
#property copyright "AIBRAIN ULTIMATE - KM RANA"
#property version "44.7"
#property strict
#property indicator_chart_window
#define Alert(x)
#define PFX "AIB9_"
#define VER "v44.7 FIXED"
#define LB 18
#define MAX_LEVELS 5
#define MAX_REJ 50
#define LOOKBACK 20
input string SPM_FILE = "KM RANA";
input int HOLD_SEC = 60;
input int POS_X = 4;
input int POS_Y = 20;
input int DASH_W = 650;
input bool SHOW_TIMER = true;
input bool SHOW_SR_LINES = true;
input string ENTRY_MODE = "TIME";
input int FLAG_MIN_SEC = 10;
input int FLAG_MAX_SEC = 35;
input int TIME_MIN_SEC = 10;
input int TIME_MAX_SEC = 35;
input int MIN_REMAINING_SEC = 15;
input double REVERSAL_PCT = 30.0;
input double WICK_PCT = 0.65;
input int HRN_CONFIRM_BARS = 2; // Candles needed CLOSED beyond level
input bool HA_ALIGN_FILTER = false;
input bool CONSENSUS_FILTER = false;
input bool ENABLE_NOTIFY = true;
input bool FAST_MODE = false;
input int BROKER_SPREAD_THRESHOLD= 6;
input double OTC_TRAP_WEIGHT = 15.0;
input int CROWD_EXTREME_PCT = 70;
input bool ENABLE_BROKER_KILLER = true;
input bool ENABLE_SESSION_FILTER = true;
input bool ENABLE_SPIKE_FILTER = true;
input bool ENABLE_LAST_SEC_BLOCK = true;
input bool ENABLE_RISK_CONTROL = true;
input bool ENABLE_ENTRY_ZONE = true;
input bool ML_ADAPTIVE = true;
input bool VOLUME_PROFILE_TRAP = true;
input bool MTF_CONFIRM = false;
input bool ENABLE_TELEGRAM = false;
input string TELEGRAM_TOKEN = "";
input string TELEGRAM_CHAT_ID = "";
input string TRADE_MODE = "NORMAL";
input string STRATEGY_MODE = "TRAP_ONLY";
input int STRATEGY_THRESHOLD = 75;
input int MAX_LOSS_STREAK = 2;
input double MIN_CONFIDENCE = 75.0;
input bool ENABLE_RISK_LOCK = true;
input double PATTERN_TOLERANCE_PIPS = 8.0;
input int MIN_PATTERN_SEPARATION = 5;
input bool SHOW_COMMON_POINTS = true;
input double COMMON_POINT_TOL_PIPS = 15.0;
input bool SHOW_WICK_REJECT_LINES = true;
input int WICK_MIN_TOUCHES = 1;
input double WICK_ZONE_PIPS = 15.0;
input int WICK_EXPIRE_BARS = 60;
// ============================================================
// ROUND NUMBER SETTINGS - NEW
// ============================================================
input double RN_MAJOR_STEP_PIPS = 100.0; // Major round: e.g. 0.9800, 0.9900
input double RN_MINOR_STEP_PIPS = 50.0; // Minor round: e.g. 0.9850
input double RN_MICRO_STEP_PIPS = 10.0; // Micro round: e.g. 0.9810
input double RN_SEARCH_RANGE_PIPS = 30.0; // Search within 30 pips of price
#define NEON_GREEN C'0,255,100'
#define NEON_RED C'255,40,80'
#define NEON_YELLOW C'255,220,0'
#define NEON_ORANGE C'255,120,0'
#define NEON_CYAN C'0,255,200'
#define NEON_PURPLE C'200,0,255'
#define NEON_PINK C'255,80,180'
#define NEON_BLUE C'0,200,255'
#define NEON_LIME C'80,255,80'
#define NEON_GOLD C'255,180,0'
#define DARK_BLUE_NEON C'0,100,255'
#define NEON_WHITE C'220,230,255'
#define CGR C'160,170,190'
#define BG_DARK1 C'6,8,16'
#define BG_DARK2 C'10,14,24'
#define BG_DARK3 C'14,20,32'
#define BG_DARK4 C'18,26,40'
struct HTFLevel{ double price; string timeframe; string type; datetime time; int strength; bool isRoundNumber; };
//+------------------------------------------------------------------+
// GLOBAL VARIABLES
//+------------------------------------------------------------------+
string g_haM1="",g_haM5="",g_haBoth="";
color g_haM1Color=clrGray,g_haM5Color=clrGray;
static string st_sig="WAIT",st_cdl="WAIT";
static double st_pct=50;
static datetime st_t=0;
static double NW[36];
static double g_rsc=0,g_tfa=3;
static datetime g_spm_t=0,g_last_bar=0;
double ResLevels[MAX_LEVELS],SupLevels[MAX_LEVELS];
int resCount=0,supCount=0;
datetime lastSRBar=0;
static double g_nearest_res=0,g_nearest_sup=0;
static string g_brk_str="NO BRK";
static color g_brk_color=CGR;
struct RejLevel{double price;int touches;};
static RejLevel g_rj[MAX_REJ];
static int g_rj_cnt=0;
// ============================================================
// HRN FIXED VARIABLES
// ============================================================
static double g_hrn_price=0;
static bool g_hrn_is_sup=true;
static int g_hrn_brk_bars=0; // Now counts CLOSED candles, not timer ticks
static datetime g_hrn_scan_bar=0;
static datetime g_hrn_last_candle=0; // NEW: track last candle for close-based counting
static double g_hrn_pending_price=0; // NEW: pending new level (waiting for confirmation)
static bool g_hrn_pending=false; // NEW: is there a pending break?
static string g_hrn_str="--";
static string g_hrn_type_str="--";
static int g_otcCallPct=50,g_otcPutPct=50;
static string g_pairNames[5],g_pairSigs[5];
static double g_pairConfs[5];
static int g_pairCount=0;
static string g_copiedPair="";
static string g_adv1="WAIT KAR",g_adv2="Signals mix",g_adv3="";
static color g_advC=NEON_YELLOW;
static double g_frozen_gProb=50,g_frozen_rProb=50;
static string g_frozen_pAction="UNCERTAIN";
static color g_frozen_pColor=NEON_YELLOW;
static double g_calc_gProb=50,g_calc_rProb=50;
static string g_calc_pAction="UNCERTAIN";
static color g_calc_pColor=NEON_YELLOW;
static double g_gProb=50,g_rProb=50;
static string g_pAction="UNCERTAIN";
static color g_pColor=NEON_YELLOW;
static datetime g_last_freeze_bar=0;
static double g_accuracy=65.0;
static int g_acc_correct=0,g_acc_total=0;
static datetime g_acc_lastBar=0;
static double g_lastPredGreen=50.0;
static datetime g_lastPredBar=0;
static datetime g_lastLogBar=0;
static string g_finalSignal="WAIT";
static color g_finalColor=NEON_YELLOW;
static datetime g_signalTime=0;
static string g_lastNotified="";
static string g_marketMode="RANGE",g_prevMode="";
static int g_lossStreak=0;
static bool g_tradingStopped=false;
static datetime g_stopStartTime=0;
static double g_brokerBias=0.0;
static string g_symbolKey="";
static string g_strategyType="NONE";
static string g_strategySignal="WAIT";
static string g_strategyReason="";
static double qmrA=0,qmrB=0,qmrC=0,qmrD=0;
static datetime qmrTA=0,qmrTB=0,qmrTC=0,qmrTD=0;
static bool qmrActive=false;
static datetime qmrExpire=0;
#define MAX_COMMON_PTS 5
static double g_commonPrice[MAX_COMMON_PTS];
static datetime g_commonTime[MAX_COMMON_PTS];
static int g_commonCount=0;
static datetime g_commonExpire[MAX_COMMON_PTS];
static string g_commonType[MAX_COMMON_PTS];
static datetime g_lastCommonScan=0;
#define MAX_WICK_LINES 5
static double g_wickLinePrice[MAX_WICK_LINES];
static int g_wickLineTouches[MAX_WICK_LINES];
static datetime g_wickLineExpire[MAX_WICK_LINES];
static int g_wickLineCount=0;
static datetime g_lastWickScan=0;
static bool g_isSideways=false;
static string g_tfa_detail="";
static HTFLevel g_htfLevels[50];
static int g_htfLevelCount=0;
static datetime g_lastLevelScan=0;
static bool g_mtfConfirmed=true;
static string g_filterStatus="ALL CLEAR";
//+------------------------------------------------------------------+
// HA CANDLE CALCULATION
//+------------------------------------------------------------------+
void CalcHA(){
if(Bars<10) return;
ArraySetAsSeries(Open,true); ArraySetAsSeries(High,true); ArraySetAsSeries(Low,true); ArraySetAsSeries(Close,true);
static double haO1[500],haC1[500]; static datetime lb1=0;
ArraySetAsSeries(haO1,true); ArraySetAsSeries(haC1,true);
datetime c1=iTime(NULL,PERIOD_M1,0);
if(c1!=lb1){ lb1=c1; int lim=MathMin(iBars(NULL,PERIOD_M1),500);
for(int i=lim-1;i>=0;i--){ haC1[i]=(Open[i]+High[i]+Low[i]+Close[i])/4.0;
if(i==lim-1) haO1[i]=(Open[i]+Close[i])/2.0; else haO1[i]=(haO1[i+1]+haC1[i+1])/2.0; }}
double d1=MathAbs(haC1[1]-haO1[1]),r1=High[1]-Low[1];
bool dz=(r1>0&&d1<r1*0.1),b1=(!dz&&haC1[1]>haO1[1]),be1=(!dz&&haC1[1]<haO1[1]);
if(b1){g_haM1="HA BULLISH 1";g_haM1Color=clrLime;}
else if(be1){g_haM1="HA BEARISH 1";g_haM1Color=clrRed;}
else{g_haM1="HA DOJI 1";g_haM1Color=clrYellow;}
if(iBars(NULL,PERIOD_M5)>=10){
static double haO5[200],haC5[200]; static datetime lb5=0;
ArraySetAsSeries(haO5,true); ArraySetAsSeries(haC5,true);
datetime c5=iTime(NULL,PERIOD_M5,0);
if(c5!=lb5){ lb5=c5; int lim=MathMin(iBars(NULL,PERIOD_M5),200);
for(int i=lim-1;i>=0;i--){ double o=iOpen(NULL,PERIOD_M5,i),h=iHigh(NULL,PERIOD_M5,i),l=iLow(NULL,PERIOD_M5,i),c=iClose(NULL,PERIOD_M5,i);
haC5[i]=(o+h+l+c)/4.0; if(i==lim-1) haO5[i]=(o+c)/2.0; else haO5[i]=(haO5[i+1]+haC5[i+1])/2.0; }}
double d5=MathAbs(haC5[1]-haO5[1]),r5=iHigh(NULL,PERIOD_M5,1)-iLow(NULL,PERIOD_M5,1);
bool dz5=(r5>0&&d5<r5*0.1),b5=(!dz5&&haC5[1]>haO5[1]),be5=(!dz5&&haC5[1]<haO5[1]);
if(b5){g_haM5="HA BULLISH 5";g_haM5Color=clrLime;}
else if(be5){g_haM5="HA BEARISH 5";g_haM5Color=clrRed;}
else{g_haM5="HA DOJI 5";g_haM5Color=clrYellow;}
if(b1&&b5)g_haBoth="BOTH BULL"; else if(be1&&be5)g_haBoth="BOTH BEAR"; else g_haBoth="MIXED";
}else{g_haM5="5 --";g_haM5Color=clrGray;g_haBoth="HA --";}
}
//+------------------------------------------------------------------+
// HELPER FUNCTIONS
//+------------------------------------------------------------------+
bool IsLineNearby(double price,double pipTol=3.0){
bool jpy=(StringFind(Symbol(),"JPY")>=0); double pip=jpy?0.01:0.0001; double tol=pipTol*pip;
for(int i=ObjectsTotal()-1;i>=0;i--){ string nm=ObjectName(i);
if((int)ObjectGetInteger(0,nm,OBJPROP_TYPE)==OBJ_HLINE){
double lp=ObjectGetDouble(0,nm,OBJPROP_PRICE); if(MathAbs(lp-price)<tol) return true; }}
return false;
}
string GetCurrentSession(color &sC){
int h=TimeHour(TimeGMT());
if(h>=12&&h<16){sC=NEON_GOLD;return "LON+NY";}
if(h>=7&&h<9){sC=NEON_CYAN;return "ASI+LON";}
if(h>=7&&h<16){sC=NEON_GREEN;return "LONDON";}
if(h>=12&&h<21){sC=NEON_BLUE;return "NEW YORK";}
if(h>=0&&h<9){sC=NEON_ORANGE;return "ASIA";}
sC=C'100,100,120'; return "SYDNEY";
}
bool IsSessionActive(){int h=TimeHour(TimeGMT());return(h>=7&&h<=21);}
bool IsBigCandle(int s){if(Bars<20)return false;double a=iATR(NULL,PERIOD_M1,14,0);return(a>0&&(High[s]-Low[s])>a*1.8);}
//+------------------------------------------------------------------+
// MTF CONFIRMATION
//+------------------------------------------------------------------+
bool CheckMTFConfirmation(){
if(!MTF_CONFIRM) return true;
bool m1Bull=(Close[1]>Open[1]);
bool m5Bull=false,m15Bull=false;
if(iBars(NULL,PERIOD_M5)>=3) m5Bull=(iClose(NULL,PERIOD_M5,1)>iOpen(NULL,PERIOD_M5,1));
if(iBars(NULL,PERIOD_M15)>=3) m15Bull=(iClose(NULL,PERIOD_M15,1)>iOpen(NULL,PERIOD_M15,1));
int bullCount=0,bearCount=0;
if(m1Bull) bullCount++; else bearCount++;
if(m5Bull) bullCount++; else bearCount++;
if(m15Bull) bullCount++; else bearCount++;
g_mtfConfirmed=(bullCount>=2 || bearCount>=2);
return g_mtfConfirmed;
}
//+------------------------------------------------------------------+
// TANH
//+------------------------------------------------------------------+
double Tanh(double x){
double exp2x = MathExp(2.0 * x);
return (exp2x - 1.0) / (exp2x + 1.0);
}
//+------------------------------------------------------------------+
// FRACTAL DIMENSION
//+------------------------------------------------------------------+
double CalcFractalDimension(int period){
if(period < 2) return 1.5;
double sum = 0.0;
for(int i = 1; i < period; i++){
double range1 = High[i] - Low[i];
double range2 = High[i+1] - Low[i+1];
if(range1 <= 0.0 || range2 <= 0.0) continue;
sum += MathLog(range1 / range2 + 0.001) * MathLog((double)i / (double)period);
}
double result = 2.0 - sum / period;
if(result < 1.0) result = 1.0;
if(result > 2.0) result = 2.0;
return result;
}
//+------------------------------------------------------------------+
// BROKER TRAP DETECTION
//+------------------------------------------------------------------+
double DetectBrokerTrap(int lookback){
int bull = 0, bear = 0;
for(int i = 1; i <= lookback; i++){
if(Close[i] > Open[i]) bull++;
else if(Close[i] < Open[i]) bear++;
}
double crowd = (bull > bear) ? (double)bull / lookback : (double)bear / lookback;
double priceMove = MathAbs(Close[1] - Close[lookback]) / (Close[lookback] + 0.00001);
if(crowd > 0.7 && priceMove < 0.002) return 0.9;
if(crowd > 0.6 && priceMove > 0.001) return 0.5;
return 0.3;
}
//+------------------------------------------------------------------+
// QUICK MEDIAN
//+------------------------------------------------------------------+
double QuickMedian(double &arr[], int size){
double sorted[20];
for(int i = 0; i < size; i++) sorted[i] = arr[i];
for(int i = 0; i < size-1; i++)
for(int j = i+1; j < size; j++)
if(sorted[i] > sorted[j]){
double tmp = sorted[i];
sorted[i] = sorted[j];
sorted[j] = tmp;
}
return (sorted[size/2] + sorted[(size-1)/2]) / 2.0;
}
//+------------------------------------------------------------------+
// MAIN ADVANCED TFA - FIXED DIRECTION LOGIC
//+------------------------------------------------------------------+
double CalcAdvancedTFA(string &detail){
if(Bars < 30){
detail = "Bars low";
return 3.0;
}
double score = 0;
string p = "";
// 1. ADX
double adx = iADX(NULL, PERIOD_M1, 14, PRICE_CLOSE, MODE_MAIN, 1);
double adxSc = (adx>=25)?1.0:(adx>=20)?0.6:(adx>=15)?0.3:0.1;
score += adxSc;
p += "ADX:" + ((adxSc>=0.6)?"+":"-") + " ";
// 2. VOLUME
double v1 = iVolume(NULL, PERIOD_M1, 1);
double vA = 0;
for(int i=2; i<=6; i++) vA += iVolume(NULL, PERIOD_M1, i);
vA = (vA>0)? vA/5.0 : 1;
double vr = v1 / vA;
double volSc = (vr>=2.0)?1.0:(vr>=1.5)?0.7:(vr>=1.1)?0.4:0.1;
score += volSc;
p += "VOL:" + ((volSc>=0.5)?"+":"-") + " ";
// 3. RSI
double rsi = iRSI(NULL, PERIOD_M1, 14, PRICE_CLOSE, 1);
double rsiSc = 0.2;
if(rsi>=60 || rsi<=40) rsiSc = 1.0;
else if(rsi>=55 || rsi<=45) rsiSc = 0.6;
score += rsiSc;
p += "RSI:" + ((rsiSc>=0.6)?"+":"-") + " ";
// 4. ATR
double atr = iATR(NULL, PERIOD_M1, 14, 1);
double cs = High[1] - Low[1];
double atrSc = 0.2;
if(atr > 0){
double r = cs / atr;
if(r>=0.7 && r<=1.5) atrSc = 1.0;
else if(r>=0.5 && r<=2.0) atrSc = 0.6;
else atrSc = 0.3;
}
score += atrSc;
p += "ATR:" + ((atrSc>=0.6)?"+":"-") + " ";
// 5. CANDLE BODY
double body = MathAbs(Close[1] - Open[1]);
double range = High[1] - Low[1];
double bdySc = 0.2;
if(range > 0){
double br = body / range;
if(br>=0.6) bdySc = 1.0;
else if(br>=0.4) bdySc = 0.6;
else if(br>=0.2) bdySc = 0.3;
}
score += bdySc;
p += "BODY:" + ((bdySc>=0.6)?"+":"-") + " ";
// 6. SESSION
double sesSc = IsSessionActive() ? 1.0 : 0.4;
score += sesSc;
p += "SES:" + ((sesSc>=0.7)?"+":"-");
double finalScore = MathMin(6.0, score);
int rounded = (int)MathRound(finalScore);
string scoreStr = IntegerToString(rounded) + "/6";
// ============================================================
// FIXED DIRECTION: M1 HA takes priority over M5 HA
// M1 = 70% weight, M5 = 30% weight
// ============================================================
string dir = "MIX";
bool m1Bull = (g_haM1=="HA BULLISH 1");
bool m1Bear = (g_haM1=="HA BEARISH 1");
bool m5Bull = (g_haM5=="HA BULLISH 5");
bool m5Bear = (g_haM5=="HA BEARISH 5");
if(m1Bull && m5Bull) dir = "STRONG UP";
else if(m1Bear && m5Bear) dir = "STRONG DOWN";
else if(m1Bull && m5Bear) dir = "UP"; // M1 wins — fixed from "MIX"
else if(m1Bear && m5Bull) dir = "DOWN"; // M1 wins — fixed from "MIX"
else if(m1Bull) dir = "UP";
else if(m1Bear) dir = "DOWN";
detail = p + " | " + scoreStr + " " + dir;
g_tfa_detail = detail;
return finalScore;
}
//+------------------------------------------------------------------+
// MICRO AI
//+------------------------------------------------------------------+
double CalcAdvancedMicroAI(){
if(Bars<20) return 50.0; double score=50.0;
for(int i=1;i<=5;i++){double r=High[i]-Low[i];if(r<=0)continue;
double uw=(High[i]-MathMax(Open[i],Close[i]))/r,lw=(MathMin(Open[i],Close[i])-Low[i])/r,w=(6.0-i)/5.0;
if(uw>0.60)score-=w*15; if(lw>0.60)score+=w*15;}
double pos5=0; for(int i=1;i<=5;i++){double r=High[i]-Low[i];if(r<=0)continue;pos5+=(Close[i]-Low[i])/r;}
score+=(pos5/5.0-0.5)*20.0;
int gc=0,rc=0; for(int i=1;i<=8;i++){if(Close[i]>Open[i])gc++;else if(Close[i]<Open[i])rc++;} score+=(gc-rc)*2.5;
double vl1=(double)iVolume(NULL,PERIOD_M1,1),vA=0;
for(int i=2;i<=6;i++)vA+=iVolume(NULL,PERIOD_M1,i);vA/=5.0;
if(vA>0){double vr=vl1/vA;if(vr>1.5&&Close[1]>Open[1])score+=8;if(vr>1.5&&Close[1]<Open[1])score-=8;}
double r1=iRSI(NULL,PERIOD_M1,14,PRICE_CLOSE,1),r5=iRSI(NULL,PERIOD_M1,14,PRICE_CLOSE,5);
if(r1<35)score+=10;if(r1>65)score-=10;if(r1>r5&&Close[1]<Close[5])score+=6;if(r1<r5&&Close[1]>Close[5])score-=6;
return MathMax(5.0,MathMin(95.0,score));
}
//+------------------------------------------------------------------+
// MICRO TRAP
//+------------------------------------------------------------------+
double VolumeTrapScore();
int CalcAdvancedMicroTrap(){
if(Bars<20)return 0;int score=0;double r=High[1]-Low[1];
if(r>0){double uw=(High[1]-MathMax(Open[1],Close[1]))/r,lw=(MathMin(Open[1],Close[1])-Low[1])/r;
if(uw>0.65)score+=30;else if(uw>0.50)score+=15;if(lw>0.65)score+=20;else if(lw>0.50)score+=10;}
double v1=(double)iVolume(NULL,PERIOD_M1,1),v2=(double)iVolume(NULL,PERIOD_M1,2);
if(v2>0&&v1/v2>2.0)score+=25;else if(v2>0&&v1/v2>1.5)score+=12;
double rsi=iRSI(NULL,PERIOD_M1,14,PRICE_CLOSE,1);
if(rsi>78||rsi<22)score+=20;else if(rsi>72||rsi<28)score+=10;
if((High[1]>g_nearest_res&&Close[1]<g_nearest_res)||(Low[1]<g_nearest_sup&&Close[1]>g_nearest_sup))score+=25;
bool aG=(Close[1]>Open[1]&&Close[2]>Open[2]&&Close[3]>Open[3]),aR=(Close[1]<Open[1]&&Close[2]<Open[2]&&Close[3]<Open[3]);
if(aG||aR)score+=15;
double sp=(double)MarketInfo(Symbol(),MODE_SPREAD);if(sp>BROKER_SPREAD_THRESHOLD*1.5)score+=10;
score+=(int)VolumeTrapScore();return MathMin(100,score);
}
//+------------------------------------------------------------------+
// FRACTAL
//+------------------------------------------------------------------+
double CalcAdvancedFractal(){
if(Bars<15)return 0;double score=0;
for(int i=2;i<=8&&i+2<Bars;i++){
if(High[i]>High[i-1]&&High[i]>High[i-2]&&High[i]>High[i+1]&&High[i]>High[i+2]){double d=(High[i]-Close[0])/Point;if(d<50&&d>-10)score+=35;}
if(Low[i]<Low[i-1]&&Low[i]<Low[i-2]&&Low[i]<Low[i+1]&&Low[i]<Low[i+2]){double d=(Close[0]-Low[i])/Point;if(d<50&&d>-10)score+=25;}}
int dj=0;for(int i=1;i<=6;i++){double b=MathAbs(Close[i]-Open[i]),rg=High[i]-Low[i];if(rg>0&&b<rg*0.20)dj++;}
if(dj>=3)score+=25;
double r1=High[1]-Low[1];if(r1>0){double uw1=(High[1]-MathMax(Open[1],Close[1]))/r1,lw1=(MathMin(Open[1],Close[1])-Low[1])/r1;if(uw1>0.70||lw1>0.70)score+=20;}
return MathMin(100,score);
}
//+------------------------------------------------------------------+
// MARKET BIAS
//+------------------------------------------------------------------+
string CalcAdvancedMarketBias(color &bC,double brain,double rsc){
if(Bars<30){bC=NEON_YELLOW;return "CALCULATING";}
double score=0;bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;
double pc=Close[0]-Close[10];
if(pc>5*pip)score+=4;else if(pc>2*pip)score+=2;else if(pc<-5*pip)score-=4;else if(pc<-2*pip)score-=2;
double hh1=High[iHighest(NULL,PERIOD_M1,MODE_HIGH,5,1)],hh2=High[iHighest(NULL,PERIOD_M1,MODE_HIGH,5,6)];
double ll1=Low[iLowest(NULL,PERIOD_M1,MODE_LOW,5,1)],ll2=Low[iLowest(NULL,PERIOD_M1,MODE_LOW,5,6)];
if(hh1>hh2&&ll1>ll2)score+=4;else if(hh1<hh2&&ll1<ll2)score-=4;else if(hh1>hh2)score+=2;else if(hh1<hh2)score-=2;
double ema20=0,ema20p=0;for(int i=0;i<20;i++)ema20+=Close[i];ema20/=20;
for(int i=1;i<=20&&i<Bars;i++)ema20p+=Close[i];ema20p/=20;
if(ema20>ema20p)score+=3;else if(ema20<ema20p)score-=3;
double ema50=0;for(int i=0;i<50&&i<Bars;i++)ema50+=Close[i];ema50/=MathMin(50,Bars);
if(ema20>ema50)score+=3;else score-=3;
int gC=0,rC=0;for(int i=1;i<=10;i++){if(Close[i]>Open[i])gC++;else if(Close[i]<Open[i])rC++;}
if(gC>=7)score+=3;else if(rC>=7)score-=3;else if(gC>=5)score+=1;else if(rC>=5)score-=1;
bool m1B=(g_haM1=="HA BULLISH 1"),m1Be=(g_haM1=="HA BEARISH 1"),m5B=(g_haM5=="HA BULLISH 5"),m5Be=(g_haM5=="HA BEARISH 5");
if(m1B&&m5B)score+=4;else if(m1Be&&m5Be)score-=4;else if(m1B)score+=2;else if(m1Be)score-=2;
double adx=iADX(NULL,PERIOD_M1,14,PRICE_CLOSE,MODE_MAIN,1),pDI=iADX(NULL,PERIOD_M1,14,PRICE_CLOSE,MODE_PLUSDI,1),mDI=iADX(NULL,PERIOD_M1,14,PRICE_CLOSE,MODE_MINUSDI,1);
if(adx>20){if(pDI>mDI+5)score+=4;else if(mDI>pDI+5)score-=4;}
if(brain>3)score-=2;else if(brain<-3)score+=2;
if(Close[1]>Open[1])score+=1;else if(Close[1]<Open[1])score-=1;
if(rsc>2)score+=1;else if(rsc<-2)score-=1;
if(score>=12){bC=NEON_GREEN;return "STRONG BULL";}
if(score>=7){bC=NEON_GREEN;return "BULLISH";}
if(score>=3){bC=NEON_CYAN;return "LIGHT BULL";}
if(score<=-12){bC=NEON_RED;return "STRONG BEAR";}
if(score<=-7){bC=NEON_RED;return "BEARISH";}
if(score<=-3){bC=NEON_ORANGE;return "LIGHT BEAR";}
bC=NEON_YELLOW;return "NEUTRAL";
}
//+------------------------------------------------------------------+
// ADVANCED PREDICTION
//+------------------------------------------------------------------+
void CalcAdvancedPrediction(double &gP, double &rP, string &reason, color &pC){
if(Bars < 50){
gP = 50; rP = 50; reason = "Bars low"; pC = NEON_YELLOW;
return;
}
double green = 0, red = 0;
// 1. MOMENTUM TRAP (Weight 20)
double body1 = MathAbs(Close[1] - Open[1]);
double range1 = High[1] - Low[1];
double wick_ratio = (range1 > 0) ? (range1 - body1) / range1 : 0;
if(wick_ratio > 0.70 && Close[1] > Open[1]) red += 20;
else if(wick_ratio > 0.70 && Close[1] < Open[1]) green += 20;
else if(wick_ratio > 0.55){
if(Close[1] > Open[1]) red += 10;
else green += 10;
}
// 2. RSI + CCI COMBO (Weight 15)
double rsi = iRSI(NULL, PERIOD_M1, 14, PRICE_CLOSE, 1);
double cci = iCCI(NULL, PERIOD_M1, 14, PRICE_TYPICAL, 1);
if(rsi < 30 && cci < -120) green += 15;
else if(rsi > 70 && cci > 120) red += 15;
else if(rsi < 40 && cci < -80) green += 8;
else if(rsi > 60 && cci > 80) red += 8;
double rsiPrev = iRSI(NULL, PERIOD_M1, 14, PRICE_CLOSE, 2);
double low1 = Low[iLowest(NULL, PERIOD_M1, MODE_LOW, 5, 1)];
double low2 = Low[iLowest(NULL, PERIOD_M1, MODE_LOW, 5, 6)];
if(low1 < low2 && rsi > rsiPrev) green += 8;
if(low1 > low2 && rsi < rsiPrev) red += 8;
// 3. VOLUME SPIKE + BROKER REVERSE (Weight 18)
double v1 = iVolume(NULL, PERIOD_M1, 1);
double vAvg = 0;
for(int i=2; i<=10; i++) vAvg += iVolume(NULL, PERIOD_M1, i);
vAvg = (vAvg > 0) ? vAvg / 9.0 : 1.0;
double vol_ratio = (vAvg > 0) ? v1 / vAvg : 1.0;
if(vol_ratio > 2.0){
if(Close[1] > Open[1]) red += 18;
else green += 18;
} else if(vol_ratio > 1.5){
if(Close[1] > Open[1]) red += 10;
else green += 10;
} else if(vol_ratio > 1.2){
if(Close[1] > Open[1]) green += 5;
else red += 5;
}
// 4. 3-CANDLE PATTERNS (Weight 12)
bool hammer = (Low[1] == Low[iLowest(NULL, PERIOD_M1, MODE_LOW, 3, 1)] && Close[1] > Open[1]);
bool shooting_star = (High[1] == High[iHighest(NULL, PERIOD_M1, MODE_HIGH, 3, 1)] && Close[1] < Open[1]);
if(hammer) green += 12;
if(shooting_star) red += 12;
// 5. ADX + DI (Weight 12)
double adx = iADX(NULL, PERIOD_M1, 14, PRICE_CLOSE, MODE_MAIN, 1);
double plusDI = iADX(NULL, PERIOD_M1, 14, PRICE_CLOSE, MODE_PLUSDI, 1);
double minusDI = iADX(NULL, PERIOD_M1, 14, PRICE_CLOSE, MODE_MINUSDI, 1);
if(adx > 25){
if(plusDI > minusDI + 5) green += 12;
else if(minusDI > plusDI + 5) red += 12;
else if(plusDI > minusDI) green += 6;
else red += 6;
} else {
if(plusDI > minusDI) green += 4;
else red += 4;
}
// 6. HEIKEN ASHI M1 + M5 (Weight 10)
double m1_haC1 = (Open[1]+High[1]+Low[1]+Close[1])/4.0;
double m1_haC2 = (Open[2]+High[2]+Low[2]+Close[2])/4.0;
double m1_haO2_apx = (Open[3]+Close[3])/2.0;
double m1_haO1 = (m1_haO2_apx + m1_haC2)/2.0;
bool haBull1 = (m1_haC1 > m1_haO1);
double m5_o1 = iOpen(NULL,PERIOD_M5,1);
double m5_h1 = iHigh(NULL,PERIOD_M5,1);
double m5_l1 = iLow(NULL,PERIOD_M5,1);
double m5_c1 = iClose(NULL,PERIOD_M5,1);
double m5_o2 = iOpen(NULL,PERIOD_M5,2);
double m5_h2 = iHigh(NULL,PERIOD_M5,2);
double m5_l2 = iLow(NULL,PERIOD_M5,2);
double m5_c2 = iClose(NULL,PERIOD_M5,2);
double m5_o3 = iOpen(NULL,PERIOD_M5,3);
double m5_c3 = iClose(NULL,PERIOD_M5,3);
double m5_haC1 = (m5_o1+m5_h1+m5_l1+m5_c1)/4.0;
double m5_haC2 = (m5_o2+m5_h2+m5_l2+m5_c2)/4.0;
double m5_haO2_apx = (m5_o3+m5_c3)/2.0;
double m5_haO1 = (m5_haO2_apx + m5_haC2)/2.0;
bool haBull5 = (m5_haC1 > m5_haO1);
// M1 gets 70% weight, M5 gets 30%
if(haBull1 && haBull5) green += 10;
else if(!haBull1 && !haBull5) red += 10;
else if(haBull1 && !haBull5){ green += 7; red += 3; } // M1 BULL wins
else if(!haBull1 && haBull5){ red += 7; green += 3; } // M1 BEAR wins
// 7. QUICK S/R + GLOBAL LEVELS (Weight 8+5)
bool jpy = (StringFind(Symbol(), "JPY") >= 0);
double pip = jpy ? 0.01 : 0.0001;
double sup = Low[iLowest(NULL, PERIOD_M1, MODE_LOW, 20, 2)];
double res = High[iHighest(NULL, PERIOD_M1, MODE_HIGH, 20, 2)];
if(Close[1] > res - 3*pip) red += 8;
if(Close[1] < sup + 3*pip) green += 8;
if(g_nearest_res > 0 && (g_nearest_res - Close[0]) < 6*pip) red += 5;
if(g_nearest_sup > 0 && (Close[0] - g_nearest_sup) < 6*pip) green += 5;
// 8. STOCHASTIC + MACD (Weight 5)
double stochK = iStochastic(NULL, PERIOD_M1, 5, 3, 3, MODE_SMA, 0, MODE_MAIN, 1);
if(stochK < 20) green += 5;
else if(stochK > 80) red += 5;
double macdMain = iMACD(NULL, PERIOD_M1, 12, 26, 9, PRICE_CLOSE, MODE_MAIN, 1);
double macdSig = iMACD(NULL, PERIOD_M1, 12, 26, 9, PRICE_CLOSE, MODE_SIGNAL, 1);
if(macdMain > macdSig) green += 3;
else if(macdMain < macdSig) red += 3;
// 9. OTC CROWD TRAP (Weight 15)
if(g_otcCallPct >= 70 && !haBull1) red += 15;
else if(g_otcPutPct >= 70 && haBull1) green += 15;
// 10. TFA SYNC (Weight 5)
string tfaDir = "";
double tfaScore = CalcAdvancedTFA(tfaDir);
if(tfaScore >= 4.5){
if(StringFind(tfaDir, "UP") >= 0) green += 5;
else if(StringFind(tfaDir, "DOWN") >= 0) red += 5;
}
// FINAL SCORE
double diff = MathMax(-100.0, MathMin(100.0, green - red));
gP = MathMax(8.0, MathMin(92.0, 50.0 + diff * 0.7));
rP = 100.0 - gP;
double dom = MathMax(gP, rP);
if(dom >= 85){
reason = (gP > rP) ? "STRONG GREEN" : "STRONG RED";
pC = (gP > rP) ? NEON_GREEN : NEON_RED;
} else if(dom >= 75){
reason = (gP > rP) ? "GREEN" : "RED";
pC = (gP > rP) ? NEON_GREEN : NEON_RED;
} else if(dom >= 62){
reason = (gP > rP) ? "WEAK GREEN" : "WEAK RED";
pC = (gP > rP) ? NEON_CYAN : NEON_ORANGE;
} else {
reason = "WAIT";
pC = NEON_YELLOW;
}
}
//+------------------------------------------------------------------+
// STRATEGY DETECTION
//+------------------------------------------------------------------+
string DetectMyStrategy(){
int cc=g_otcCallPct,cp=g_otcPutPct,thr=STRATEGY_THRESHOLD;
if(STRATEGY_MODE=="BOTH"||STRATEGY_MODE=="TRAP_ONLY"){
if(cc>=thr&&g_haM1=="HA BEARISH 1"){g_strategyType="TRAP";g_strategySignal="PUT";g_strategyReason="CALL "+IntegerToString(cc)+"% + HA RED";return "PUT";}
if(cp>=thr&&g_haM1=="HA BULLISH 1"){g_strategyType="TRAP";g_strategySignal="CALL";g_strategyReason="PUT "+IntegerToString(cp)+"% + HA GREEN";return "CALL";}}
if(STRATEGY_MODE=="BOTH"||STRATEGY_MODE=="TREND_ONLY"){
if(cc>=thr&&g_haM1=="HA BULLISH 1"){g_strategyType="TREND";g_strategySignal="CALL";g_strategyReason="CALL "+IntegerToString(cc)+"% + HA GREEN";return "CALL";}
if(cp>=thr&&g_haM1=="HA BEARISH 1"){g_strategyType="TREND";g_strategySignal="PUT";g_strategyReason="PUT "+IntegerToString(cp)+"% + HA RED";return "PUT";}}
g_strategyType="NONE";g_strategySignal="WAIT";g_strategyReason="Wait "+IntegerToString(thr)+"% + HA";return "WAIT";
}
//+------------------------------------------------------------------+
// OTC CROWD
//+------------------------------------------------------------------+
void CalcOTCCrowd(){
int cS=0,pS=0;
for(int i=1;i<=15&&i<Bars;i++){double rg=High[i]-Low[i];if(rg<=0)continue;
double uw=(High[i]-MathMax(Open[i],Close[i]))/rg,lw=(MathMin(Open[i],Close[i])-Low[i])/rg;
if(uw>0.70&&Close[i]<Open[i])cS+=4;if(lw>0.70&&Close[i]>Open[i])pS+=4;
if(uw>0.55&&Close[i]<Open[i])cS+=2;if(lw>0.55&&Close[i]>Open[i])pS+=2;
if(Close[i]>Open[i])cS+=1;else if(Close[i]<Open[i])pS+=1;}
int tot=cS+pS;if(tot==0){g_otcCallPct=50;g_otcPutPct=50;}
else{int rC=(int)(cS*100.0/tot),rP=100-rC;
if(rC>=rP){g_otcCallPct=MathMax(50,rC);g_otcPutPct=100-g_otcCallPct;}
else{g_otcPutPct=MathMax(50,rP);g_otcCallPct=100-g_otcPutPct;}}
}
//+------------------------------------------------------------------+
// BRAIN SCORE
//+------------------------------------------------------------------+
double BrainSc(int &cp){
double s=0;bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;
double sup=Low[iLowest(NULL,PERIOD_M1,MODE_LOW,LB,1)],res=High[iHighest(NULL,PERIOD_M1,MODE_HIGH,LB,1)];
double bH=MathMax(Open[1],Close[1]),bL=MathMin(Open[1],Close[1]);
if(High[1]>res&&bL<res)s-=4;if(Low[1]<sup&&bH>sup)s+=4;
if(High[0]>res)s-=2;if(Low[0]<sup)s+=2;
double atr=iATR(NULL,PERIOD_M1,14,1);
if(atr!=0){double cn=(High[1]-Low[1])/atr,v1=(double)iVolume(NULL,PERIOD_M1,1),va=0;
for(int i=2;i<=10;i++)va+=iVolume(NULL,PERIOD_M1,i);va/=9.0;
double vr=va>0?v1/va:1;if(cn>1.2&&vr>1.5){if(Close[1]>Open[1])s-=3;else s+=3;}}
int c=0;for(int i=1;i<=30;i++)if(Close[i]>Open[i])c++;
cp=(int)(c*100.0/30.0);if(cp>=70)s-=5;if(cp<=30)s+=5;s*=1.5;
int dj=0;for(int i=1;i<=8;i++){double bd=MathAbs(Close[i]-Open[i]),rg=High[i]-Low[i];if(rg<=0)continue;
if(bd<rg*0.2)dj++;double uw=High[i]-MathMax(Open[i],Close[i]),lw=MathMin(Open[i],Close[i])-Low[i];
if(uw>bd*3)s+=2;if(lw>bd*3)s-=2;}if(dj>=4)s*=1.5;
int bu=0,be=0;for(int i=1;i<=8;i++){if(Close[i]>Open[i]){bu++;be=0;}else{be++;bu=0;}if(bu>=5)s-=3;if(be>=5)s+=3;}
int h=TimeHour(TimeCurrent());double mul=1.0;
if((h>=0&&h<=2)||(h>=8&&h<=11)||(h>=14&&h<=17))mul=1.20;if(h>=3&&h<=7)mul=0.90;
return s*mul;
}
//+------------------------------------------------------------------+
// MICRO WICK
//+------------------------------------------------------------------+
double MicroWick(){double r=High[1]-Low[1];if(r<=0)return 0;return((High[1]-MathMax(Open[1],Close[1]))+(MathMin(Open[1],Close[1])-Low[1]))/r;}
//+------------------------------------------------------------------+
// VOLUME TRAP
//+------------------------------------------------------------------+
double VolumeTrapScore(){
if(!VOLUME_PROFILE_TRAP||Bars<50)return 0;
double cur=Close[0],hi=High[iHighest(NULL,0,MODE_HIGH,50,1)],lo=Low[iLowest(NULL,0,MODE_LOW,50,1)];
double rg=hi-lo;if(rg<=0)return 0;int zn=5;double zs=rg/zn;double vz[5]={0,0,0,0,0};int zc[5]={0,0,0,0,0};
for(int i=1;i<=50;i++){double p=Close[i];int z=(int)((p-lo)/zs);if(z<0)z=0;if(z>=zn)z=zn-1;vz[z]+=Volume[i];zc[z]++;}
for(int z=0;z<zn;z++)if(zc[z]>0)vz[z]/=zc[z];
int cz=(int)((cur-lo)/zs);if(cz<0)cz=0;if(cz>=zn)cz=zn-1;
double vr=(double)Volume[1]/(vz[cz]+0.001);double wr=MicroWick();
if(vr>2.0&&wr>0.65)return 25;if(vr>1.8&&wr>0.55)return 15;return 0;
}
//+------------------------------------------------------------------+
// ULTIMATE TRAP SCORE
//+------------------------------------------------------------------+
double UltimateTrapScore(){double wr=MicroWick(),v1=(double)iVolume(NULL,PERIOD_M1,1),v2=(double)iVolume(NULL,PERIOD_M1,2);
double avg=v2>0?v2:1.0,vr=v1/avg,rsi=iRSI(NULL,PERIOD_M1,14,PRICE_CLOSE,1),sc=0.0;
if(wr>0.65)sc+=40;if(vr>2.0)sc+=30;if(rsi>75||rsi<25)sc+=20;
if((High[1]>g_nearest_res&&Close[1]<g_nearest_res)||(Low[1]<g_nearest_sup&&Close[1]>g_nearest_sup))sc+=25;
sc+=VolumeTrapScore();return MathMin(100.0,sc);}
//+------------------------------------------------------------------+
// BROKER FORCE
//+------------------------------------------------------------------+
bool IsBrokerForce(double dummy=0){
int sd=0;for(int i=1;i<=3;i++){if(Close[i]>Open[i])sd++;else sd--;}
double v1=(double)iVolume(NULL,PERIOD_M1,1),v2=(double)iVolume(NULL,PERIOD_M1,2);
double sp=(double)MarketInfo(Symbol(),MODE_SPREAD);
return(MathAbs(sd)==3&&v1>v2*2.0&&sp>BROKER_SPREAD_THRESHOLD);
}
//+------------------------------------------------------------------+
// NEURAL NETWORK
//+------------------------------------------------------------------+
double NeuralBiasFast(){double r=NeuralBias(0)*0.3+NeuralBias(1)*0.7;if(r>96)r=96;if(r<4)r=4;return r;}
double NeuralBias(int s){
double f[8];f[0]=fDoji(s)/100.0;f[1]=fWick(s)/100.0;f[2]=fVol()/100.0;f[3]=fMom(s)/100.0;
f[4]=fSpread()/100.0;f[5]=fMem(s)/100.0;f[6]=fTick(s)/100.0;f[7]=fFrac(s)/100.0;
double h[4]={0,0,0,0};for(int i=0;i<4;i++){for(int j=0;j<8;j++)h[i]+=f[j]*NW[j*4+i];h[i]=MathMax(0,h[i]-0.08);}
double o=0;for(int i=0;i<4;i++)o+=h[i]*NW[32+i];double r=50.0+o*22.0;return r>96?96:r<4?4:r;
}
double fDoji(int s){int n=0;for(int i=s;i<s+5&&i<Bars;i++){double b=MathAbs(Open[i]-Close[i]),r=High[i]-Low[i];if(r>0&&b<r*0.25)n++;}return n*20.0;}
double fWick(int s){double r=High[s]-Low[s];if(r==0)return 0;double u=(High[s]-MathMax(Open[s],Close[s]))/r,l=(MathMin(Open[s],Close[s])-Low[s])/r;return(u>0.65||l>0.65)?95:(u>0.5||l>0.5)?70:0;}
double fVol(){if(Bars<11)return 0;double a=0;for(int i=1;i<=10;i++)a+=iVolume(NULL,PERIOD_M1,i);a/=10.0;if(a==0)return 0;double r=(double)iVolume(NULL,PERIOD_M1,0)/a;return r>3?95:r>2?75:r>1.5?50:0;}
double fMom(int s){if(s+3>=Bars)return 0;return((Close[s]>Open[s]&&Close[s+1]<Open[s+1])||(Close[s]<Open[s]&&Close[s+1]>Open[s+1]))?88:0;}
double fSpread(){double sp=(double)MarketInfo(Symbol(),MODE_SPREAD);return sp>8?90:sp>5?70:sp>3?40:0;}
double fMem(int s){if(s+8>=Bars)return 0;int r=0;for(int i=s;i<s+8&&i+2<Bars;i+=2){bool vB=(Low[i]>Low[i+1]&&Low[i+2]>Low[i+1]&&Close[i+2]>Open[i+2]);bool aT=(High[i]<High[i+1]&&High[i+2]<High[i+1]&&Close[i+2]<Open[i+2]);if(vB||aT)r++;}return(double)r*12.5;}
double fTick(int s){if(s+5>=Bars)return 0;double vN=(double)iVolume(NULL,PERIOD_M1,s),vP=(double)iVolume(NULL,PERIOD_M1,s+1);if(vP==0)return 0;double vR=vN/vP,pc=MathAbs(Close[s]-Close[s+1])/Close[s+1]*100;if(vR>2.0&&pc<0.1)return 85;if(vR>1.5&&pc<0.05)return 60;return 0;}
double fFrac(int s){if(s+4>=Bars||s<2)return 0;bool b=(Low[s]<Low[s-1]&&Low[s]<Low[s-2]&&Low[s]<Low[s+1]&&Low[s]<Low[s+2]);bool t=(High[s]>High[s-1]&&High[s]>High[s-2]&&High[s]>High[s+1]&&High[s]>High[s+2]);return(b||t)?90:0;}
//+------------------------------------------------------------------+
// MAIN PREDICTION
//+------------------------------------------------------------------+
void CalcPrediction(double brain,double nb,int cp,double mai,int mts,double rsc,bool bf,double mw){
string ms=DetectMyStrategy();bool sA=(ms!="WAIT");
if(sA&&g_strategyType=="TRAP"){
if(ms=="PUT"){g_gProb=12.0;g_rProb=88.0;g_pAction="PUT TRAP!";g_pColor=NEON_PURPLE;g_calc_gProb=g_gProb;g_calc_rProb=g_rProb;g_calc_pAction=g_pAction;g_calc_pColor=g_pColor;return;}
if(ms=="CALL"){g_gProb=88.0;g_rProb=12.0;g_pAction="CALL TRAP!";g_pColor=NEON_PURPLE;g_calc_gProb=g_gProb;g_calc_rProb=g_rProb;g_calc_pAction=g_pAction;g_calc_pColor=g_pColor;return;}}
double tS=UltimateTrapScore();bool bF2=IsBrokerForce();
if(TRADE_MODE=="HUNT"){if(tS<85){g_gProb=50;g_rProb=50;g_pAction="HUNT: WAIT";g_pColor=NEON_YELLOW;g_calc_gProb=50;g_calc_rProb=50;g_calc_pAction=g_pAction;g_calc_pColor=g_pColor;return;}}
if(ENABLE_BROKER_KILLER&&(tS>=85||(tS>=75&&bF2))&&g_marketMode!="TREND"){g_gProb=15;g_rProb=85;g_pAction="TRAP DETECTED";g_pColor=NEON_PURPLE;g_calc_gProb=15;g_calc_rProb=85;g_calc_pAction=g_pAction;g_calc_pColor=g_pColor;return;}
double gS=0,rS=0,ab=MathMax(0.70,MathMin(1.30,g_accuracy/65.0));
if(IsSidewaysMarket()){bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;
bool nR=(g_nearest_res>0&&(g_nearest_res-Close[0])<8*pip),nS=(g_nearest_sup>0&&(Close[0]-g_nearest_sup)<8*pip);
if(!nR&&!nS){g_gProb=50;g_rProb=50;g_pAction="SIDEWAYS";g_pColor=NEON_YELLOW;g_calc_gProb=50;g_calc_rProb=50;g_calc_pAction=g_pAction;g_calc_pColor=g_pColor;return;}
if(nR)rS+=20;if(nS)gS+=20;}
if(sA&&g_strategyType=="TREND"){double sw=50.0;if(ms=="CALL"){gS+=sw*ab;g_pAction="TREND: CALL!";g_pColor=NEON_GREEN;}else if(ms=="PUT"){rS+=sw*ab;g_pAction="TREND: PUT!";g_pColor=NEON_RED;}}
if(g_haM1=="HA BULLISH 1"&&g_haM5=="HA BULLISH 5")gS+=60;
else if(g_haM1=="HA BEARISH 1"&&g_haM5=="HA BEARISH 5")rS+=60;
else if(g_haM1=="HA BULLISH 1")gS+=30;else if(g_haM1=="HA BEARISH 1")rS+=30;
if(HA_ALIGN_FILTER && g_haBoth=="MIXED"){gS*=0.5;rS*=0.5;}
gS+=(nb-50)/50.0*22*ab;rS-=(nb-50)/50.0*22*ab;
double bn=MathMax(-1.0,MathMin(1.0,brain/10.0));gS+=bn*15*ab;rS-=bn*15*ab;
bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;
if(g_nearest_res>0&&(g_nearest_res-Close[0])<10*pip)rS+=12;
if(g_nearest_sup>0&&(Close[0]-g_nearest_sup)<10*pip)gS+=12;
double rsi1=iRSI(NULL,PERIOD_M1,14,PRICE_CLOSE,1);if(rsi1>70)rS+=6;if(rsi1<30)gS+=6;
double sn=MathMax(-1.0,MathMin(1.0,rsc/3.0));gS+=sn*8*ab;rS-=sn*8*ab;
double wRS=GetWickRejectSignal();gS+=(wRS>0?wRS:0);rS+=(wRS<0?MathAbs(wRS):0);
double cPS=GetCommonPointSignal();gS+=(cPS>0?cPS:0);rS+=(cPS<0?MathAbs(cPS):0);
int rd=DetectRSIDivergence();if(rd==1)gS+=20;if(rd==-1)rS+=20;
int cp2=DetectClassicPatterns();if(cp2==1)gS+=12;if(cp2==-1)rS+=12;
int qm=DetectQMR();if(qm==1)gS+=25;if(qm==-1)rS+=25;
int sk=StreakReversalSignal();if(sk==1)gS+=18;if(sk==-1)rS+=18;
double adxV=GetADXStrength();int adxD=GetADXDirection();if(adxV>25){if(adxD==1)gS+=12;if(adxD==-1)rS+=12;}if(adxV<15){gS*=0.7;rS*=0.7;}
int vs=SmartVolumeSignal();if(vs==1)gS+=12;if(vs==-1)rS+=12;
if(!IsVolatilityGood()){gS*=0.5;rS*=0.5;}
double diff=MathMax(-100.0,MathMin(100.0,gS-rS));
g_gProb=MathMax(8.0,MathMin(92.0,50.0+(diff/1.8)));g_rProb=100.0-g_gProb;
if(sA&&g_strategyType=="TREND"){
if(ms=="CALL"){g_gProb=MathMax(g_gProb,85.0);g_rProb=100.0-g_gProb;}
if(ms=="PUT"){g_rProb=MathMax(g_rProb,85.0);g_gProb=100.0-g_rProb;}
g_gProb=MathMin(92.0,MathMax(8.0,g_gProb));g_rProb=100.0-g_gProb;}
double dom=MathMax(g_gProb,g_rProb);
if(dom>=82){if(g_gProb>g_rProb){if(!sA){g_pAction="GREEN";g_pColor=NEON_GREEN;}}else{if(!sA){g_pAction="RED";g_pColor=NEON_RED;}}}
else if(dom>=75){if(g_gProb>g_rProb){if(!sA){g_pAction="GREEN";g_pColor=NEON_CYAN;}}else{if(!sA){g_pAction="RED";g_pColor=NEON_ORANGE;}}}
else{if(!sA){g_pAction="WAIT";g_pColor=NEON_YELLOW;}}
g_calc_gProb=g_gProb;g_calc_rProb=g_rProb;g_calc_pAction=g_pAction;g_calc_pColor=g_pColor;
}
//+------------------------------------------------------------------+
// COMMON POINTS & WICK REJECTIONS
//+------------------------------------------------------------------+
void DetectCommonPoints(){
if(!SHOW_COMMON_POINTS){g_commonCount=0;return;}
if(Time[0]==g_lastCommonScan)return;g_lastCommonScan=Time[0];g_commonCount=0;
datetime nowBar=Time[0];int periodSec=PeriodSeconds(PERIOD_M1);
double m5h=iHigh(NULL,PERIOD_M5,iHighest(NULL,PERIOD_M5,MODE_HIGH,10,1));
double m5l=iLow(NULL,PERIOD_M5,iLowest(NULL,PERIOD_M5,MODE_LOW,10,1));
if(m5l>0&&g_commonCount<MAX_COMMON_PTS){g_commonPrice[g_commonCount]=m5l;g_commonTime[g_commonCount]=nowBar;g_commonType[g_commonCount]="CALL";g_commonExpire[g_commonCount]=nowBar+periodSec*120;g_commonCount++;}
if(g_hrn_price>0&&g_hrn_is_sup&&g_commonCount<MAX_COMMON_PTS){g_commonPrice[g_commonCount]=g_hrn_price;g_commonTime[g_commonCount]=nowBar;g_commonType[g_commonCount]="CALL";g_commonExpire[g_commonCount]=nowBar+periodSec*120;g_commonCount++;}
if(m5h>0&&g_commonCount<MAX_COMMON_PTS){g_commonPrice[g_commonCount]=m5h;g_commonTime[g_commonCount]=nowBar;g_commonType[g_commonCount]="PUT";g_commonExpire[g_commonCount]=nowBar+periodSec*120;g_commonCount++;}
if(g_hrn_price>0&&!g_hrn_is_sup&&g_commonCount<MAX_COMMON_PTS){g_commonPrice[g_commonCount]=g_hrn_price;g_commonTime[g_commonCount]=nowBar;g_commonType[g_commonCount]="PUT";g_commonExpire[g_commonCount]=nowBar+periodSec*120;g_commonCount++;}
for(int i=g_commonCount-1;i>=0;i--)if(TimeCurrent()>g_commonExpire[i]){for(int j=i;j<g_commonCount-1;j++){g_commonPrice[j]=g_commonPrice[j+1];g_commonTime[j]=g_commonTime[j+1];g_commonType[j]=g_commonType[j+1];g_commonExpire[j]=g_commonExpire[j+1];}g_commonCount--;}
}
void DrawCommonPoints(){
for(int i=0;i<MAX_COMMON_PTS;i++){SafeDel(PFX+"COMMON_"+IntegerToString(i));SafeDel(PFX+"COMMON_L_"+IntegerToString(i));SafeDel(PFX+"COMMON_HL_"+IntegerToString(i));}
if(!SHOW_COMMON_POINTS||g_commonCount==0)return;
for(int i=0;i<g_commonCount;i++){if(TimeCurrent()>g_commonExpire[i])continue;if(IsLineNearby(g_commonPrice[i],8.0))continue;
string id=PFX+"COMMON_"+IntegerToString(i),idL=PFX+"COMMON_L_"+IntegerToString(i),idH=PFX+"COMMON_HL_"+IntegerToString(i);color zc=DARK_BLUE_NEON;
ObjectCreate(0,idH,OBJ_HLINE,0,0,g_commonPrice[i]);ObjectSetInteger(0,idH,OBJPROP_COLOR,zc);ObjectSetInteger(0,idH,OBJPROP_WIDTH,3);ObjectSetInteger(0,idH,OBJPROP_STYLE,STYLE_SOLID);ObjectSetInteger(0,idH,OBJPROP_BACK,false);
ObjectCreate(0,id,OBJ_TEXT,0,Time[0],g_commonPrice[i]);ObjectSetText(id,"*",16,"Arial",zc);ObjectSetInteger(0,id,OBJPROP_BACK,false);
string lbl=(g_commonType[i]=="CALL")?"^ CALL ZONE":"v PUT ZONE";
ObjectCreate(0,idL,OBJ_TEXT,0,Time[0]+PeriodSeconds(PERIOD_M1)*3,g_commonPrice[i]);ObjectSetText(idL,lbl,9,"Arial Bold",zc);ObjectSetInteger(0,idL,OBJPROP_BACK,false);}
}
void DetectWickRejections(){
g_isSideways=IsSidewaysMarket();if(!SHOW_WICK_REJECT_LINES){g_wickLineCount=0;return;}
if(Time[0]==g_lastWickScan)return;g_lastWickScan=Time[0];
bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;double zone=WICK_ZONE_PIPS*pip*2;double cur=Close[0];
g_wickLineCount=0;datetime now=Time[0],expT=now+PeriodSeconds(PERIOD_M1)*WICK_EXPIRE_BARS*2;
for(int i=1;i<=40&&i<Bars;i++){double rg=High[i]-Low[i];if(rg<=0)continue;
double uw=High[i]-MathMax(Open[i],Close[i]),lw=MathMin(Open[i],Close[i])-Low[i];double rl=0;bool fd=false;
if(uw>rg*0.30){rl=High[i];if(MathAbs(cur-rl)<zone*3)fd=true;}
if(lw>rg*0.30){rl=Low[i];if(MathAbs(cur-rl)<zone*3)fd=true;}
if(!fd)continue;bool ex=false;
for(int j=0;j<g_wickLineCount;j++)if(MathAbs(g_wickLinePrice[j]-rl)<zone){g_wickLineTouches[j]++;ex=true;break;}
if(!ex&&g_wickLineCount<MAX_WICK_LINES){g_wickLinePrice[g_wickLineCount]=rl;g_wickLineTouches[g_wickLineCount]=1;g_wickLineExpire[g_wickLineCount]=expT;g_wickLineCount++;}}
for(int i=g_wickLineCount-1;i>=0;i--)if(TimeCurrent()>g_wickLineExpire[i]){for(int j=i;j<g_wickLineCount-1;j++){g_wickLinePrice[j]=g_wickLinePrice[j+1];g_wickLineTouches[j]=g_wickLineTouches[j+1];g_wickLineExpire[j]=g_wickLineExpire[j+1];}g_wickLineCount--;}
}
void DrawWickRejectLines(){
for(int i=0;i<MAX_WICK_LINES;i++){SafeDel(PFX+"WICK_"+IntegerToString(i));SafeDel(PFX+"WICK_L_"+IntegerToString(i));}
if(!SHOW_WICK_REJECT_LINES||!g_isSideways)return;
bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;double cur=Close[0];
for(int i=0;i<g_wickLineCount;i++){if(TimeCurrent()>g_wickLineExpire[i])continue;if(MathAbs(cur-g_wickLinePrice[i])/pip>20.0)continue;if(IsLineNearby(g_wickLinePrice[i],5.0))continue;
string id=PFX+"WICK_"+IntegerToString(i),idL=PFX+"WICK_L_"+IntegerToString(i);color lc=C'0,180,255';
ObjectCreate(0,id,OBJ_HLINE,0,0,g_wickLinePrice[i]);ObjectSetInteger(0,id,OBJPROP_COLOR,lc);ObjectSetInteger(0,id,OBJPROP_WIDTH,2);ObjectSetInteger(0,id,OBJPROP_STYLE,STYLE_DOT);ObjectSetInteger(0,id,OBJPROP_BACK,false);
string lbl="W"+IntegerToString(g_wickLineTouches[i])+"x";
ObjectCreate(0,idL,OBJ_TEXT,0,Time[0]+PeriodSeconds(PERIOD_M1)*2,g_wickLinePrice[i]);ObjectSetText(idL,lbl,8,"Arial Bold",lc);ObjectSetInteger(0,idL,OBJPROP_BACK,false);}
}
double GetWickRejectSignal(){if(!g_isSideways||g_wickLineCount==0)return 0;double sc=0;bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;
for(int i=0;i<g_wickLineCount;i++){double d=MathAbs(Close[0]-g_wickLinePrice[i])/pip;bool iS=(g_wickLinePrice[i]<Close[0]);
if(d<5){if(iS)sc+=15*g_wickLineTouches[i];else sc-=15*g_wickLineTouches[i];}else if(d<10){if(iS)sc+=8*g_wickLineTouches[i];else sc-=8*g_wickLineTouches[i];}}return MathMax(-40,MathMin(40,sc));}
double GetCommonPointSignal(){if(g_commonCount==0)return 0;double sc=0;bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;
for(int i=0;i<g_commonCount;i++){if(TimeCurrent()>g_commonExpire[i])continue;double d=MathAbs(Close[0]-g_commonPrice[i])/pip;if(d<8){if(g_commonType[i]=="CALL")sc+=25;else sc-=25;}}return MathMax(-30,MathMin(30,sc));}
//+------------------------------------------------------------------+
// HIDDEN HTF LEVELS
//+------------------------------------------------------------------+
void DetectHiddenLevels(){g_htfLevelCount=0;bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;double curP=Close[0];
double rU=MathCeil(curP/(10*pip))*(10*pip),rD=MathFloor(curP/(10*pip))*(10*pip);
if(MathAbs(curP-rU)/pip<=15)AddLevel(rU,"ROUND","RESISTANCE",TimeCurrent(),8,true);
if(MathAbs(curP-rD)/pip<=15)AddLevel(rD,"ROUND","SUPPORT",TimeCurrent(),8,true);
DetectHTFLevels(PERIOD_M5,"M5",3,pip);DetectHTFLevels(PERIOD_M15,"M15",5,pip);DetectHTFLevels(PERIOD_M30,"M30",7,pip);DetectHTFLevels(PERIOD_H1,"H1",9,pip);
SortLevelsByStrength();}
void DetectHTFLevels(ENUM_TIMEFRAMES tf,string tfN,int bS,double pip){int bars=MathMin(50,iBars(NULL,tf));if(bars<10)return;double curP=Close[0];
for(int i=2;i<bars-2;i++){if(IsSwingHigh(tf,i,2)){double d=MathAbs(curP-iHigh(NULL,tf,i))/pip;if(d<=20)AddLevel(iHigh(NULL,tf,i),tfN,"RESISTANCE",iTime(NULL,tf,i),bS+(20-(int)d)/2,false);}
if(IsSwingLow(tf,i,2)){double d=MathAbs(curP-iLow(NULL,tf,i))/pip;if(d<=20)AddLevel(iLow(NULL,tf,i),tfN,"SUPPORT",iTime(NULL,tf,i),bS+(20-(int)d)/2,false);}}}
bool IsSwingHigh(ENUM_TIMEFRAMES tf,int p,int lb){double h=iHigh(NULL,tf,p);for(int i=1;i<=lb;i++){if(p-i<0||p+i>=iBars(NULL,tf))return false;if(iHigh(NULL,tf,p-i)>=h||iHigh(NULL,tf,p+i)>=h)return false;}return true;}
bool IsSwingLow(ENUM_TIMEFRAMES tf,int p,int lb){double l=iLow(NULL,tf,p);for(int i=1;i<=lb;i++){if(p-i<0||p+i>=iBars(NULL,tf))return false;if(iLow(NULL,tf,p-i)<=l||iLow(NULL,tf,p+i)<=l)return false;}return true;}
void AddLevel(double price,string tf,string type,datetime time,int strength,bool isRound){if(g_htfLevelCount>=50)return;bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;
for(int i=0;i<g_htfLevelCount;i++)if(MathAbs(g_htfLevels[i].price-price)/pip<5)return;
g_htfLevels[g_htfLevelCount].price=price;g_htfLevels[g_htfLevelCount].timeframe=tf;g_htfLevels[g_htfLevelCount].type=type;g_htfLevels[g_htfLevelCount].time=time;g_htfLevels[g_htfLevelCount].strength=strength;g_htfLevels[g_htfLevelCount].isRoundNumber=isRound;g_htfLevelCount++;}
void SortLevelsByStrength(){for(int i=0;i<g_htfLevelCount-1;i++)for(int j=0;j<g_htfLevelCount-i-1;j++)if(g_htfLevels[j].strength<g_htfLevels[j+1].strength){HTFLevel tmp=g_htfLevels[j];g_htfLevels[j]=g_htfLevels[j+1];g_htfLevels[j+1]=tmp;}}
void DrawHiddenLevels(){for(int i=0;i<50;i++){SafeDel(PFX+"HTF_LEVEL_"+IntegerToString(i));SafeDel(PFX+"HTF_LEVEL_"+IntegerToString(i)+"_LBL");}
int dc=MathMin(10,g_htfLevelCount);int drawn=0;
for(int i=0;i<dc&&drawn<5;i++){bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;if(MathAbs(Close[0]-g_htfLevels[i].price)/pip>30)continue;if(IsLineNearby(g_htfLevels[i].price,5.0))continue;
string nm=PFX+"HTF_LEVEL_"+IntegerToString(drawn);color lc=g_htfLevels[i].isRoundNumber?NEON_PURPLE:(StringFind(g_htfLevels[i].type,"SUPPORT")>=0?NEON_GREEN:NEON_RED);
ObjectCreate(0,nm,OBJ_HLINE,0,0,g_htfLevels[i].price);ObjectSetInteger(0,nm,OBJPROP_COLOR,lc);ObjectSetInteger(0,nm,OBJPROP_WIDTH,1);ObjectSetInteger(0,nm,OBJPROP_STYLE,STYLE_DOT);ObjectSetInteger(0,nm,OBJPROP_BACK,false);
string ln=nm+"_LBL";ObjectCreate(0,ln,OBJ_TEXT,0,Time[0],g_htfLevels[i].price);ObjectSetText(ln,StringFormat("%s %s S:%d",g_htfLevels[i].timeframe,g_htfLevels[i].type,g_htfLevels[i].strength),8,"Arial",lc);drawn++;}}
//+------------------------------------------------------------------+
// ============================================================
// HRN FIXED - CANDLE CLOSE BASED SHIFT
// ============================================================
// Key fix: Level sirf tab shift hoga jab HRN_CONFIRM_BARS
// number of COMPLETE (closed) candles level ke par close ho jaayein.
// Timer ticks count nahi honge. Har naya Time[0] = naya closed candle.
//+------------------------------------------------------------------+
// FIXED: Find best hidden round number near current price
double FindBestHRN(double curPrice){
bool jpy = (StringFind(Symbol(),"JPY") >= 0);
double pip = jpy ? 0.01 : 0.0001;
double searchRange = RN_SEARCH_RANGE_PIPS * pip;
double bestScore = -1.0;
double bestLevel = 0.0;
// Step 1: Check all round number levels within range
// Major (100 pip steps), Minor (50 pip steps), Micro (10 pip steps)
double steps[3];
steps[0] = RN_MAJOR_STEP_PIPS * pip;
steps[1] = RN_MINOR_STEP_PIPS * pip;
steps[2] = RN_MICRO_STEP_PIPS * pip;
int weights[3] = {10, 6, 3};
for(int s = 0; s < 3; s++){
if(steps[s] <= 0) continue;
double lower = MathFloor(curPrice / steps[s]) * steps[s];
double upper = lower + steps[s];
double candidates[2];
candidates[0] = lower;
candidates[1] = upper;
for(int c = 0; c < 2; c++){
double lv = candidates[c];
double dist = MathAbs(curPrice - lv);
if(dist > searchRange) continue;
// Count wick rejections at this level
int rejCount = 0;
for(int k = 0; k < g_rj_cnt; k++){
if(MathAbs(g_rj[k].price - lv) < 5*pip){
rejCount += g_rj[k].touches;
}
}
// Score = round number weight + wick touches / distance
double score = (double)weights[s] + (double)rejCount * 3.0;
score /= (dist / pip + 1.0);
if(score > bestScore){
bestScore = score;
bestLevel = lv;
}
}
}
// Step 2: Also check pure wick rejection levels (non-round but heavily tested)
for(int k = 0; k < g_rj_cnt; k++){
double lv = g_rj[k].price;
double dist = MathAbs(curPrice - lv);
if(dist > searchRange) continue;
double score = (double)g_rj[k].touches * 5.0 / (dist / pip + 1.0);
if(score > bestScore){
bestScore = score;
bestLevel = lv;
}
}
// Fallback: nearest 10-pip round number
if(bestLevel <= 0.0){
bestLevel = MathRound(curPrice / (10*pip)) * (10*pip);
}
return bestLevel;
}
// FIXED: UpdateHRN — candle close based, not timer based
void UpdateHRN(){
if(Bars < LOOKBACK+5) return;
// Scan for wick rejections (once per candle)
if(Time[0] != g_hrn_scan_bar){
ScanHRNLevels();
g_hrn_scan_bar = Time[0];
}
bool jpy = (StringFind(Symbol(),"JPY") >= 0);
double pip = jpy ? 0.01 : 0.0001;
double cur = Close[0];
int dg = (int)MarketInfo(Symbol(),MODE_DIGITS);
if(dg <= 0) dg = 5;
// Initialize first level
if(g_hrn_price == 0){
g_hrn_price = FindBestHRN(cur);
g_hrn_is_sup = (cur > g_hrn_price);
g_hrn_brk_bars = 0;
g_hrn_pending = false;
g_hrn_last_candle = Time[1]; // Start from last closed candle
}
// ===========================================================
// CORE FIX: Count only NEW CLOSED candles (Time[1] changes)
// ===========================================================
// Time[1] = last fully closed candle's open time
// When a new candle forms, Time[1] becomes the previous Time[0]
datetime lastClosed = Time[1]; // Most recently closed candle
if(lastClosed != g_hrn_last_candle){
// A new candle has closed — check if it closed beyond HRN level
g_hrn_last_candle = lastClosed;
double closedPrice = Close[1]; // Price of the just-closed candle
bool closedAbove = (closedPrice > g_hrn_price + 2*pip);
bool closedBelow = (closedPrice < g_hrn_price - 2*pip);
bool isBreaking = false;
if(g_hrn_is_sup && closedBelow) isBreaking = true; // Support broken downward
if(!g_hrn_is_sup && closedAbove) isBreaking = true; // Resistance broken upward
if(isBreaking){
g_hrn_brk_bars++;
if(g_hrn_brk_bars >= HRN_CONFIRM_BARS){
// CONFIRMED BREAK — now find new level
double newLevel = FindBestHRN(cur);
// Only update if new level is meaningfully different
if(MathAbs(newLevel - g_hrn_price) > 3*pip){
g_hrn_price = newLevel;
g_hrn_is_sup = (cur > g_hrn_price);
g_hrn_brk_bars = 0;
g_hrn_pending = false;
}
}
} else {
// Candle closed back on same side — reset break counter
g_hrn_brk_bars = 0;
g_hrn_pending = false;
}
}
// Draw HRN line
g_hrn_str = DoubleToString(NormalizeDouble(g_hrn_price, dg), dg);
g_hrn_type_str = g_hrn_is_sup ? "SUP" : "RES";
// Line color changes when break is in progress
color lineColor = NEON_PINK;
if(g_hrn_brk_bars > 0) lineColor = NEON_ORANGE; // Showing break in progress
DrawHLine(PFX+"HRN_LINE", g_hrn_price, lineColor, 3, STYLE_SOLID);
string ln = PFX+"HRN_LBL";
SafeDel(ln);
ObjectCreate(0, ln, OBJ_TEXT, 0, Time[0]+Period()*60*2, g_hrn_price);
string lbl = "HRN " + g_hrn_type_str + " " + g_hrn_str;
if(g_hrn_brk_bars > 0)
lbl += " [BRK " + IntegerToString(g_hrn_brk_bars) + "/" + IntegerToString(HRN_CONFIRM_BARS) + "]";
ObjectSetText(ln, lbl, 9, "Arial Bold", lineColor);
ObjectSetInteger(0, ln, OBJPROP_BACK, false);
}
//+------------------------------------------------------------------+
// S/R LEVELS
//+------------------------------------------------------------------+
void AddRes(double lv){if(lv<=0)return;for(int i=0;i<resCount;i++)if(MathAbs(ResLevels[i]-lv)<10*Point)return;if(resCount>=MAX_LEVELS){for(int i=0;i<MAX_LEVELS-1;i++)ResLevels[i]=ResLevels[i+1];resCount=MAX_LEVELS-1;}ResLevels[resCount++]=lv;}
void AddSup(double lv){if(lv<=0)return;for(int i=0;i<supCount;i++)if(MathAbs(SupLevels[i]-lv)<10*Point)return;if(supCount>=MAX_LEVELS){for(int i=0;i<MAX_LEVELS-1;i++)SupLevels[i]=SupLevels[i+1];supCount=MAX_LEVELS-1;}SupLevels[supCount++]=lv;}
void DrawNearestSR(){for(int i=0;i<20;i++){SafeDel(PFX+"RES_"+IntegerToString(i));SafeDel(PFX+"SUP_"+IntegerToString(i));}SafeDel(PFX+"NEAREST_RES");SafeDel(PFX+"NEAREST_SUP");if(!SHOW_SR_LINES)return;
double cur=Close[0];g_nearest_res=0;g_nearest_sup=0;double mR=999999,mS=999999;
for(int i=0;i<resCount;i++)if(ResLevels[i]>cur&&(ResLevels[i]-cur)<mR){mR=ResLevels[i]-cur;g_nearest_res=ResLevels[i];}
for(int i=0;i<supCount;i++)if(SupLevels[i]<cur&&(cur-SupLevels[i])<mS){mS=cur-SupLevels[i];g_nearest_sup=SupLevels[i];}
if(g_nearest_res>0&&!IsLineNearby(g_nearest_res,5.0))DrawHLine(PFX+"NEAREST_RES",g_nearest_res,NEON_RED,2,STYLE_SOLID);
if(g_nearest_sup>0&&!IsLineNearby(g_nearest_sup,5.0))DrawHLine(PFX+"NEAREST_SUP",g_nearest_sup,NEON_GREEN,2,STYLE_SOLID);}
void CheckBRK(){double pC=Close[1],pO=Open[1];g_brk_str="NO BRK";g_brk_color=CGR;if(g_nearest_res>0&&pC>g_nearest_res&&pO<=g_nearest_res){g_brk_str="BRK UP!";g_brk_color=NEON_GREEN;}else if(g_nearest_sup>0&&pC<g_nearest_sup&&pO>=g_nearest_sup){g_brk_str="BRK DOWN!";g_brk_color=NEON_RED;}}
void UpdateSR(){if(Time[0]==lastSRBar)return;lastSRBar=Time[0];if(Bars<15)return;double nR=High[iHighest(NULL,PERIOD_M1,MODE_HIGH,10,1)],nS=Low[iLowest(NULL,PERIOD_M1,MODE_LOW,10,1)],cur=Close[0];if(nR>0&&cur<nR-5*Point)AddRes(nR);if(nS>0&&cur>nS+5*Point)AddSup(nS);if(resCount<1)AddRes(High[1]);if(supCount<1)AddSup(Low[1]);DrawNearestSR();CheckBRK();}
//+------------------------------------------------------------------+
// SCAN HRN LEVELS (wick rejections)
//+------------------------------------------------------------------+
void ScanHRNLevels(){
g_rj_cnt=0;
bool jpy=(StringFind(Symbol(),"JPY")>=0);
double pip=jpy?0.01:0.0001;
double cur=Close[0];
for(int i=1;i<=LOOKBACK&&i<Bars;i++){
double rg=High[i]-Low[i];
if(rg<=0) continue;
double uw=High[i]-MathMax(Open[i],Close[i]);
double lw=MathMin(Open[i],Close[i])-Low[i];
if(uw>rg*0.35){
double lv=High[i];
if(MathAbs(lv-cur)<=40*pip){
bool f=false;
for(int k=0;k<g_rj_cnt;k++)
if(MathAbs(g_rj[k].price-lv)<8*pip){g_rj[k].touches++;f=true;break;}
if(!f&&g_rj_cnt<MAX_REJ){g_rj[g_rj_cnt].price=lv;g_rj[g_rj_cnt].touches=1;g_rj_cnt++;}
}
}
if(lw>rg*0.35){
double lv=Low[i];
if(MathAbs(lv-cur)<=40*pip){
bool f=false;
for(int k=0;k<g_rj_cnt;k++)
if(MathAbs(g_rj[k].price-lv)<8*pip){g_rj[k].touches++;f=true;break;}
if(!f&&g_rj_cnt<MAX_REJ){g_rj[g_rj_cnt].price=lv;g_rj[g_rj_cnt].touches=1;g_rj_cnt++;}
}
}
}
// Sort by touches (most tested first)
for(int i=0;i<g_rj_cnt-1;i++)
for(int j=0;j<g_rj_cnt-i-1;j++)
if(g_rj[j].touches<g_rj[j+1].touches){
RejLevel tmp=g_rj[j];
g_rj[j]=g_rj[j+1];
g_rj[j+1]=tmp;
}
}
//+------------------------------------------------------------------+
// TIMER
//+------------------------------------------------------------------+
void UpdateTimer(){if(!SHOW_TIMER)return;string nm=PFX+"candle_timer";int ps=Period()*60;int el=(int)(TimeCurrent()-Time[0]);int rem=ps-el;if(rem<=0)rem=ps;datetime tt=Time[0]+ps+60;double tp=High[0]+(Point*15);if(ObjectFind(0,nm)<0){ObjectCreate(0,nm,OBJ_TEXT,0,tt,tp);ObjectSetInteger(0,nm,OBJPROP_BACK,false);ObjectSetInteger(0,nm,OBJPROP_SELECTABLE,false);}ObjectSetInteger(0,nm,OBJPROP_TIME,tt);ObjectSetDouble(0,nm,OBJPROP_PRICE,tp);int mm=rem/60,ss=rem%60;string t=(mm>0?IntegerToString(mm)+":":"")+(ss<10?"0":"")+IntegerToString(ss)+"s";ObjectSetText(nm,t,11,"Arial Bold",NEON_YELLOW);}
//+------------------------------------------------------------------+
// NEURAL WEIGHTS INIT
//+------------------------------------------------------------------+
void InitNW(){NW[0]=0.852;NW[1]=0.724;NW[2]=0.913;NW[3]=0.681;NW[4]=0.795;NW[5]=0.836;NW[6]=0.772;NW[7]=0.894;NW[8]=0.623;NW[9]=0.748;NW[10]=0.887;NW[11]=0.716;NW[12]=0.661;NW[13]=0.829;NW[14]=0.753;NW[15]=0.942;NW[16]=0.784;NW[17]=0.697;NW[18]=0.871;NW[19]=0.735;NW[20]=0.813;NW[21]=0.768;NW[22]=0.932;NW[23]=0.674;NW[24]=0.845;NW[25]=0.709;NW[26]=0.888;NW[27]=0.651;NW[28]=0.921;NW[29]=0.743;NW[30]=0.802;NW[31]=0.867;NW[32]=1.24;NW[33]=-0.93;NW[34]=1.15;NW[35]=-1.08;}
//+------------------------------------------------------------------+
// UI DRAWING FUNCTIONS
//+------------------------------------------------------------------+
void Bx(string id,int x,int y,int w,int h,color bg,color bd){string n=PFX+id;if(ObjectFind(0,n)<0)ObjectCreate(0,n,OBJ_RECTANGLE_LABEL,0,0,0);ObjectSetInteger(0,n,OBJPROP_XDISTANCE,x);ObjectSetInteger(0,n,OBJPROP_YDISTANCE,y);ObjectSetInteger(0,n,OBJPROP_XSIZE,w);ObjectSetInteger(0,n,OBJPROP_YSIZE,h);ObjectSetInteger(0,n,OBJPROP_BGCOLOR,bg);ObjectSetInteger(0,n,OBJPROP_BORDER_TYPE,BORDER_FLAT);ObjectSetInteger(0,n,OBJPROP_COLOR,bd);ObjectSetInteger(0,n,OBJPROP_BACK,false);}
void Tx(string id,int x,int y,string txt,color tc,int fs,bool bold){string n=PFX+id;if(ObjectFind(0,n)<0)ObjectCreate(0,n,OBJ_LABEL,0,0,0);ObjectSetInteger(0,n,OBJPROP_XDISTANCE,x);ObjectSetInteger(0,n,OBJPROP_YDISTANCE,y);ObjectSetText(n,txt,fs,bold?"Arial Bold":"Arial",tc);ObjectSetInteger(0,n,OBJPROP_BACK,false);}
void NeonBar(string id,int x,int y,int w,int h,double pct,color fc){Bx(id+"_bg",x,y,w,h,BG_DARK4,BG_DARK4);int fw=(int)(pct/100.0*w);if(fw<4)fw=4;if(fw>w)fw=w;Bx(id+"_f",x,y,fw,h,fc,fc);}
void Cube(string id,int x,int y,int w,int h,color bc,color bg,string lbl,color lc,string val,color vc,int vfs){Bx(id,x,y,w,h,bg,bc);if(StringLen(lbl)>0)Tx(id+"_l",x+10,y+6,lbl,lc,10,true);if(StringLen(val)>0)Tx(id+"_v",x+10,y+36,val,vc,vfs,true);}
//+------------------------------------------------------------------+
// OTHER PAIRS CUBE
//+------------------------------------------------------------------+
void DrawOtherPairsCube(int x,int y,int w,int h){
Bx("c20",x,y,w,h,BG_DARK2,NEON_GOLD);
Tx("c20_l",x+10,y+6,"OTHER PAIRS",NEON_CYAN,9,true);
if(g_pairCount==0){Tx("c20_v0",x+10,y+32,"Scanning...",CGR,9,false);return;}
int lY=28;
for(int i=0;i<g_pairCount&&i<5;i++){
string sp=g_pairNames[i];if(StringLen(sp)>12)sp=StringSubstr(sp,0,12);
string txt=sp+" "+g_pairSigs[i]+" "+DoubleToString(g_pairConfs[i],0)+"%";
color sc=(g_pairSigs[i]=="CALL")?NEON_GREEN:NEON_RED;
Tx("c20_p"+IntegerToString(i),x+10,y+lY,txt,sc,9,true);lY+=17;}
}
//+------------------------------------------------------------------+
// OTC QUICK CUBE
//+------------------------------------------------------------------+
void DrawOTCQuickCube(int x,int y,int w,int h){
Bx("c_quick",x,y,w,h,BG_DARK2,NEON_LIME);
Tx("c_quick_l",x+10,y+6,"OTC QUICK",NEON_CYAN,9,true);
int age=(int)(TimeCurrent()-Time[0]);int ps=Period()*60;int rem=ps-age;if(rem<0)rem=0;
int mm=rem/60,ss=rem%60;string tl=(mm>0?IntegerToString(mm)+"m ":"")+IntegerToString(ss)+"s";
Tx("c_quick_t",x+10,y+26,"Time: "+tl,NEON_GOLD,10,true);
double spread=MarketInfo(Symbol(),MODE_SPREAD);color spC=(spread<=BROKER_SPREAD_THRESHOLD)?NEON_GREEN:NEON_ORANGE;
Tx("c_quick_s",x+10,y+48,"Spread: "+DoubleToString(spread,0),spC,9,true);
double v1=iVolume(NULL,PERIOD_M1,1),v2=iVolume(NULL,PERIOD_M1,2);double vr=(v2>0)?v1/v2:0;color vC=(vr>1.5)?NEON_RED:NEON_CYAN;
Tx("c_quick_v",x+10,y+68,"Vol: "+DoubleToString(vr,1)+"x",vC,11,true);
string es=GetEntryStatus();color eC=GetEntryColor();
Tx("c_quick_e",x+10,y+90,es,eC,9,true);
}
//+------------------------------------------------------------------+
// ENTRY STATUS
//+------------------------------------------------------------------+
string GetEntryStatus(){
int age=(int)(TimeCurrent()-Time[0]);int ps=Period()*60;int rem=ps-age;if(rem<0)rem=0;
string ms=DetectMyStrategy();
if(ms!="WAIT"){
string type=(g_strategyType=="TRAP")?"TRAP":"TREND";
if(ENTRY_MODE=="FLAG"){if(age<FLAG_MIN_SEC)return type+" WAIT "+IntegerToString(FLAG_MIN_SEC-age)+"s";if(rem<MIN_REMAINING_SEC)return type+" EXPIRED";if(age>FLAG_MAX_SEC)return type+" LATE";return type+" OPEN "+IntegerToString(rem)+"s";}
if(age<TIME_MIN_SEC)return type+" WAIT "+IntegerToString(TIME_MIN_SEC-age)+"s";if(age>TIME_MAX_SEC)return type+" CLOSED";return type+" OPEN "+IntegerToString(age)+"s";}
if(ENTRY_MODE=="FLAG"){if(age<FLAG_MIN_SEC)return "WAIT "+IntegerToString(FLAG_MIN_SEC-age)+"s";if(rem<MIN_REMAINING_SEC)return "EXPIRED";if(age>FLAG_MAX_SEC)return "LATE";return "OPEN "+IntegerToString(rem)+"s left";}
if(age<TIME_MIN_SEC)return "WAIT "+IntegerToString(TIME_MIN_SEC-age)+"s";if(age>TIME_MAX_SEC)return "CLOSED";return "OPEN "+IntegerToString(age)+"s";
}
color GetEntryColor(){
string s=GetEntryStatus();
if(StringFind(s,"TRAP OPEN")>=0)return NEON_PURPLE;if(StringFind(s,"TREND OPEN")>=0)return NEON_LIME;
if(StringFind(s,"OPEN")>=0)return NEON_GREEN;if(StringFind(s,"WAIT")>=0)return NEON_YELLOW;
if(StringFind(s,"LATE")>=0||StringFind(s,"EXPIRED")>=0||StringFind(s,"CLOSED")>=0)return NEON_ORANGE;
return NEON_RED;
}
bool DirectionOK(){
if(!ENABLE_ENTRY_ZONE)return true;
double cur=Close[0],lo=Low[0],hi=High[0],rg=hi-lo;if(rg==0)return true;
double pos=(cur-lo)/rg*100.0;
if(MathMax(g_calc_gProb,g_calc_rProb)>=85)return true;
string ms=DetectMyStrategy();
if(ms=="CALL")return(pos>REVERSAL_PCT);if(ms=="PUT")return(pos<(100.0-REVERSAL_PCT));
if(StringFind(g_adv1,"CALL")>=0)return(pos>REVERSAL_PCT&&(hi-cur)<rg*WICK_PCT);
if(StringFind(g_adv1,"PUT")>=0)return(pos<(100.0-REVERSAL_PCT)&&(cur-lo)<rg*WICK_PCT);
return true;
}
bool EntryPrecisionOK(){
if(TRADE_MODE=="GOD")return true;
if(g_calc_gProb>80&&Close[0]<Open[0])return false;
if(g_calc_rProb>80&&Close[0]>Open[0])return false;
return true;
}
bool ConsensusOK(){
if(!CONSENSUS_FILTER)return true;
string ms=DetectMyStrategy();if(ms=="WAIT")return true;
bool haAgree=false;
if(ms=="CALL"&&(g_haM1=="HA BULLISH 1"||g_haBoth=="BOTH BULL"))haAgree=true;
if(ms=="PUT"&&(g_haM1=="HA BEARISH 1"||g_haBoth=="BOTH BEAR"))haAgree=true;
return haAgree;
}
//+------------------------------------------------------------------+
// TELEGRAM
//+------------------------------------------------------------------+
void SendTelegramAlert(string message){
if(!ENABLE_TELEGRAM)return;
if(StringLen(TELEGRAM_TOKEN)<10||StringLen(TELEGRAM_CHAT_ID)<5)return;
string url="https://api.telegram.org/bot"+TELEGRAM_TOKEN+"/sendMessage";;
string params="?chat_id="+TELEGRAM_CHAT_ID+"&text="+message;
string headers="Content-Type: application/x-www-form-urlencoded";
string cookie="",result="";char post[],result_data[];int timeout=5000;
ArrayResize(post,StringToCharArray(params,post,0,WHOLE_ARRAY,CP_UTF8)-1);
int res=WebRequest("POST",url,headers,timeout,post,result_data,result);
if(res==-1)Print("Telegram: WebRequest failed.");
}
//+------------------------------------------------------------------+
// REVERSAL DETECTION
//+------------------------------------------------------------------+
string DetectSuddenReversal(){string reason="";if(Close[1]<Open[1]&&Close[0]>Open[0]){reason="BULL REVERSAL";if(iRSI(NULL,PERIOD_M1,14,PRICE_CLOSE,0)<30)return reason;}if(Close[1]>Open[1]&&Close[0]<Open[0]){reason="BEAR REVERSAL";if(iRSI(NULL,PERIOD_M1,14,PRICE_CLOSE,0)>70)return reason;}return "";}
//+------------------------------------------------------------------+
// DRAWING HELPERS
//+------------------------------------------------------------------+
void SafeDel(string id){if(ObjectFind(0,id)>=0)ObjectDelete(0,id);}
void DrawHLine(string id,double price,color clr,int width,int style){if(price<=0)return;SafeDel(id);ObjectCreate(0,id,OBJ_HLINE,0,0,price);ObjectSetInteger(0,id,OBJPROP_COLOR,clr);ObjectSetInteger(0,id,OBJPROP_WIDTH,width);ObjectSetInteger(0,id,OBJPROP_STYLE,style);ObjectSetInteger(0,id,OBJPROP_BACK,false);}
void HideSPM(){for(int i=ObjectsTotal()-1;i>=0;i--){string nm=ObjectName(i);if(StringFind(nm,PFX)==0)continue;int tp=(int)ObjectGetInteger(0,nm,OBJPROP_TYPE);if(tp==OBJ_LABEL||tp==OBJ_RECTANGLE_LABEL||tp==OBJ_TEXT)ObjectDelete(0,nm);}}
void NuclearDeleteAll(){for(int i=ObjectsTotal()-1;i>=0;i--){string nm=ObjectName(i);int tp=(int)ObjectGetInteger(0,nm,OBJPROP_TYPE);if(tp==OBJ_HLINE||tp==OBJ_LABEL||tp==OBJ_RECTANGLE_LABEL||tp==OBJ_TEXT)ObjectDelete(0,nm);}}
void DelDashboard(){for(int i=ObjectsTotal()-1;i>=0;i--){string nm=ObjectName(i);if(StringFind(nm,PFX)!=0)continue;if(StringFind(nm,"NEAREST_RES")>=0)continue;if(StringFind(nm,"NEAREST_SUP")>=0)continue;if(StringFind(nm,"HRN_LINE")>=0)continue;if(StringFind(nm,"HRN_LBL")>=0)continue;if(StringFind(nm,"candle_timer")>=0)continue;if(StringFind(nm,"HTF_LEVEL")>=0)continue;if(StringFind(nm,"COMMON_")>=0)continue;if(StringFind(nm,"WICK_")>=0)continue;ObjectDelete(nm);}}
//+------------------------------------------------------------------+
// ML WEIGHTS
//+------------------------------------------------------------------+
void LoadMLWeights(){if(!ML_ADAPTIVE)return;g_symbolKey=Symbol();string fn="ML_weights_"+g_symbolKey+".dat";int h=FileOpen(fn,FILE_READ|FILE_TXT);if(h!=INVALID_HANDLE){string d=FileReadString(h);FileClose(h);g_brokerBias=StringToDouble(d);if(g_brokerBias<-0.5)g_brokerBias=-0.5;if(g_brokerBias>0.5)g_brokerBias=0.5;}else g_brokerBias=0.0;}
void SaveMLWeights(){if(!ML_ADAPTIVE)return;string fn="ML_weights_"+g_symbolKey+".dat";int h=FileOpen(fn,FILE_WRITE|FILE_TXT);if(h!=INVALID_HANDLE){FileWriteString(h,DoubleToString(g_brokerBias,6));FileClose(h);}}
void UpdateMLWeights(bool win){if(!ML_ADAPTIVE)return;double lr=0.02;if(win)g_brokerBias+=lr*(g_frozen_gProb/100.0);else g_brokerBias-=lr*(g_frozen_rProb/100.0);if(g_brokerBias>0.5)g_brokerBias=0.5;if(g_brokerBias<-0.5)g_brokerBias=-0.5;SaveMLWeights();}
//+------------------------------------------------------------------+
// ACCURACY TRACKING - FIXED (less aggressive decay)
//+------------------------------------------------------------------+
void UpdateAccuracy(){
if(Bars<5||Time[0]==g_acc_lastBar)return;
g_acc_lastBar=Time[0];
if(g_lastPredBar==Time[1]&&MathAbs(g_lastPredGreen-50.0)>10.0){
bool aG=(Close[1]>Open[1]),pG=(g_lastPredGreen>50.0),win=(aG==pG);
if(win){g_acc_correct++;g_lossStreak=0;}
else g_lossStreak++;
g_acc_total++;
// Cap total to last 50 trades for rolling accuracy
if(g_acc_total>50){
// Rolling: remove oldest
double oldRate = g_accuracy/100.0;
g_acc_correct = (int)(oldRate * 49);
g_acc_total = 50;
if(win) g_acc_correct++;
}
if(g_acc_total>0)
g_accuracy=MathMax(40.0,MathMin(90.0,(double)g_acc_correct/g_acc_total*100.0));
if(ML_ADAPTIVE&&g_lastPredGreen>50.0&&g_lastPredGreen<100.0)
UpdateMLWeights(win);
}
g_lastPredGreen=g_frozen_gProb;
g_lastPredBar=Time[0];
}
double ValidateHistoricalAccuracy(){if(Bars<55)return 65.0;int cr=0,tt=0;for(int i=10;i<=50&&i+1<Bars;i++){int gc=0;for(int j=i+1;j<=i+5&&j<Bars;j++)if(Close[j]>Open[j])gc++;double pG=(gc>2)?65.0:35.0;bool aG=(Close[i]>Open[i]);if((pG>55&&aG)||(pG<45&&!aG))cr++;tt++;}return tt>0?(double)cr/tt*100.0:65.0;}
void UpdateWeights(){double lr=0.01;if(g_lastPredBar==Time[1]){bool c=((Close[1]>Open[1])==(g_lastPredGreen>50));if(c){NW[32]+=lr;NW[33]-=lr;}else{NW[32]-=lr;NW[33]+=lr;}NW[32]=MathMax(0.5,MathMin(2.0,NW[32]));NW[33]=MathMin(-0.5,MathMax(-2.0,NW[33]));}}
//+------------------------------------------------------------------+
// MARKET MODE & HELPERS
//+------------------------------------------------------------------+
string DetectMarketMode(double brain,double rsc,int cp,double nb){double atr=iATR(NULL,PERIOD_M1,14,1),avgR=(High[1]-Low[1]+High[2]-Low[2]+High[3]-Low[3])/3.0;bool hV=(avgR>0&&atr/avgR>1.3);if(MathAbs(brain)>=3.5&&MathAbs(rsc)>=1.5&&hV)return "TREND";if(cp>=70||cp<=30)return "REVERSAL";if(nb>=70||nb<=30)return "TREND";return "RANGE";}
bool IsSidewaysMarket(){if(Bars<30)return false;double adx=GetADXStrength();if(adx<25)return true;double h20=High[iHighest(NULL,PERIOD_M1,MODE_HIGH,20,1)],l20=Low[iLowest(NULL,PERIOD_M1,MODE_LOW,20,1)];double r20=h20-l20;double atr=iATR(NULL,PERIOD_M1,14,1);if(atr>0&&r20<atr*8)return true;return false;}
bool IsVolatilityGood(){if(Bars<100)return true;double dh=High[iHighest(NULL,PERIOD_M1,MODE_HIGH,60,0)],dl=Low[iLowest(NULL,PERIOD_M1,MODE_LOW,60,0)];double tr=dh-dl;double ac=0;for(int i=1;i<=20;i++)ac+=(High[i]-Low[i]);ac/=20.0;bool jpy=(StringFind(Symbol(),"JPY")>=0);double mr=jpy?0.30:0.0030;if(tr<mr)return false;if(ac>0&&(High[0]-Low[0])<ac*0.3)return false;return true;}
double GetDynamicThreshold(){if(g_accuracy<55)return 90.0;if(g_accuracy<60)return 85.0;if(g_accuracy<65)return 80.0;if(g_accuracy<70)return 75.0;if(g_accuracy>80)return 70.0;if(g_accuracy>75)return 72.0;return 75.0;}
//+------------------------------------------------------------------+
// SIGNAL DETECTORS
//+------------------------------------------------------------------+
int DetectRSIDivergence(){if(Bars<30)return 0;double rN=iRSI(NULL,PERIOD_M1,14,PRICE_CLOSE,1),rP=iRSI(NULL,PERIOD_M1,14,PRICE_CLOSE,8);double lN=Low[iLowest(NULL,PERIOD_M1,MODE_LOW,5,1)],lPv=Low[iLowest(NULL,PERIOD_M1,MODE_LOW,5,6)];if(lN<lPv&&rN>rP&&rN<40)return 1;double hN=High[iHighest(NULL,PERIOD_M1,MODE_HIGH,5,1)],hPv=High[iHighest(NULL,PERIOD_M1,MODE_HIGH,5,6)];if(hN>hPv&&rN<rP&&rN>60)return -1;return 0;}
int StreakReversalSignal(){if(Bars<15)return 0;int g=0,r=0;for(int i=1;i<Bars;i++){if(Close[i]>Open[i]){if(r>0)break;g++;}else if(Close[i]<Open[i]){if(g>0)break;r++;}else break;}if(g>=4)return -1;if(r>=4)return 1;return 0;}
double GetADXStrength(){if(Bars<20)return 0;return iADX(NULL,PERIOD_M1,14,PRICE_CLOSE,MODE_MAIN,1);}
int GetADXDirection(){if(Bars<20)return 0;double p=iADX(NULL,PERIOD_M1,14,PRICE_CLOSE,MODE_PLUSDI,1),m=iADX(NULL,PERIOD_M1,14,PRICE_CLOSE,MODE_MINUSDI,1);if(p>m+5)return 1;if(m>p+5)return -1;return 0;}
int SmartVolumeSignal(){if(Bars<15)return 0;double v1=(double)iVolume(NULL,PERIOD_M1,1),avg=0;for(int i=2;i<=10;i++)avg+=iVolume(NULL,PERIOD_M1,i);avg/=9.0;if(avg==0)return 0;double vr=v1/avg;if(vr<1.8)return 0;bool g=(Close[1]>Open[1]);if(vr>2.5&&g)return 1;if(vr>2.5&&!g)return -1;if(vr>3.0&&g&&High[1]-Close[1]>Close[1]-Low[1])return -1;if(vr>3.0&&!g&&Close[1]-Low[1]>High[1]-Close[1])return 1;return 0;}
//+------------------------------------------------------------------+
// CLASSIC PATTERNS
//+------------------------------------------------------------------+
int DetectClassicPatterns(){if(Bars<30)return 0;bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;double tol=PATTERN_TOLERANCE_PIPS*pip;double sh[2],sl[2];int shB[2],slB[2];int shC=0,slC=0;
for(int i=2;i<25&&(shC<2||slC<2);i++){if(High[i]>High[i-1]&&High[i]>High[i-2]&&High[i]>High[i+1]&&High[i]>High[i+2]){if(shC<2){sh[shC]=High[i];shB[shC]=i;shC++;}}if(Low[i]<Low[i-1]&&Low[i]<Low[i-2]&&Low[i]<Low[i+1]&&Low[i]<Low[i+2]){if(slC<2){sl[slC]=Low[i];slB[slC]=i;slC++;}}}
if(shC>=2){int bd=MathAbs(shB[0]-shB[1]);if(bd>=MIN_PATTERN_SEPARATION&&MathAbs(sh[0]-sh[1])<=tol){int bn=MathMin(shB[0],shB[1]),bx=MathMax(shB[0],shB[1]);double vl=Low[iLowest(NULL,PERIOD_M1,MODE_LOW,bx-bn+1,bn)];if(Close[0]<vl)return -1;else if(Close[0]<MathMin(sh[0],sh[1]))return -1;}}
if(slC>=2){int bd=MathAbs(slB[0]-slB[1]);if(bd>=MIN_PATTERN_SEPARATION&&MathAbs(sl[0]-sl[1])<=tol){int bn=MathMin(slB[0],slB[1]),bx=MathMax(slB[0],slB[1]);double ph=High[iHighest(NULL,PERIOD_M1,MODE_HIGH,bx-bn+1,bn)];if(Close[0]>ph)return 1;else if(Close[0]>MathMax(sl[0],sl[1]))return 1;}}return 0;}
//+------------------------------------------------------------------+
// QMR PATTERN
//+------------------------------------------------------------------+
int DetectQMR(){if(Bars<40)return 0;bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;double sH[10],sL[10];int sHB[10],sLB[10];int hC=0,lC=0;
for(int i=3;i<40&&hC<10;i++)if(High[i]>High[i-1]&&High[i]>High[i-2]&&High[i]>High[i+1]&&High[i]>High[i+2]){sH[hC]=High[i];sHB[hC]=i;hC++;}
for(int i=3;i<40&&lC<10;i++)if(Low[i]<Low[i-1]&&Low[i]<Low[i-2]&&Low[i]<Low[i+1]&&Low[i]<Low[i+2]){sL[lC]=Low[i];sLB[lC]=i;lC++;}
if(hC<2||lC<2)return 0;
for(int iA=0;iA<hC;iA++)for(int iC2=0;iC2<hC;iC2++){if(iA==iC2)continue;if(sHB[iA]<=sHB[iC2])continue;if(sH[iC2]>=sH[iA]-10*pip)continue;
for(int iB=0;iB<lC;iB++){if(sHB[iA]<=sLB[iB])continue;if(sLB[iB]<=sHB[iC2])continue;
for(int iD=0;iD<lC;iD++){if(iB==iD)continue;if(sHB[iC2]<=sLB[iD])continue;if(sL[iD]>=sL[iB])continue;
bool m3=false,m5=false;if(Bars>=8){double o1=Open[3],c1=Close[3],o2=Open[0],c2=Close[0];double b1=MathAbs(c1-o1);if(c2>o2&&c1<o1&&MathAbs(c2-o2)>b1*0.5)m3=true;}
if(iBars(NULL,PERIOD_M5)>=3){double o1=iOpen(NULL,PERIOD_M5,2),c1=iClose(NULL,PERIOD_M5,2),o2=iOpen(NULL,PERIOD_M5,1),c2=iClose(NULL,PERIOD_M5,1);double b1=MathAbs(c1-o1);if(c2>o2&&c1<o1&&MathAbs(c2-o2)>b1*0.5)m5=true;}
if(m3||m5)if(Close[0]>sL[iD]&&Close[0]<sH[iC2]){qmrA=sH[iA];qmrB=sL[iB];qmrC=sH[iC2];qmrD=sL[iD];qmrActive=true;qmrExpire=TimeCurrent()+900;return 1;}}}}
for(int iA=0;iA<lC;iA++)for(int iC2=0;iC2<lC;iC2++){if(iA==iC2)continue;if(sLB[iA]<=sLB[iC2])continue;if(sL[iC2]<=sL[iA]+10*pip)continue;
for(int iB=0;iB<hC;iB++){if(sLB[iA]<=sHB[iB])continue;if(sHB[iB]<=sLB[iC2])continue;
for(int iD=0;iD<hC;iD++){if(iB==iD)continue;if(sLB[iC2]<=sHB[iD])continue;if(sH[iD]>=sH[iB])continue;
bool m3=false,m5=false;if(Bars>=8){double o1=Open[3],c1=Close[3],o2=Open[0],c2=Close[0];double b1=MathAbs(c1-o1);if(c2<o2&&c1>o1&&MathAbs(c2-o2)>b1*0.5)m3=true;}
if(iBars(NULL,PERIOD_M5)>=3){double o1=iOpen(NULL,PERIOD_M5,2),c1=iClose(NULL,PERIOD_M5,2),o2=iOpen(NULL,PERIOD_M5,1),c2=iClose(NULL,PERIOD_M5,1);double b1=MathAbs(c1-o1);if(c2<o2&&c1>o1&&MathAbs(c2-o2)>b1*0.5)m5=true;}
if(m3||m5)if(Close[0]<sH[iD]&&Close[0]>sL[iC2]){qmrA=sL[iA];qmrB=sH[iB];qmrC=sL[iC2];qmrD=sH[iD];qmrActive=true;qmrExpire=TimeCurrent()+900;return -1;}}}}
return 0;}
//+------------------------------------------------------------------+
// MAIN DRAW FUNCTION
//+------------------------------------------------------------------+
void Draw(){
HideSPM(); DelDashboard();
int W=DASH_W, G=8, CW=(W-2*G)/3, CH=100, cx=POS_X+G, yy=POS_Y;
int cp=0; double brain=BrainSc(cp); double nb=NeuralBiasFast(); double mw=MicroWick(); bool bf=IsBrokerForce();
g_marketMode=DetectMarketMode(brain,g_rsc,cp,nb);
if(StringLen(g_prevMode)>0 && g_prevMode!=g_marketMode){ g_signalTime=0; g_finalSignal="WAIT"; }
g_prevMode=g_marketMode;
CalcOTCCrowd(); UpdateAccuracy(); UpdateWeights();
double mai=CalcAdvancedMicroAI(); int mts=CalcAdvancedMicroTrap();
CalcPrediction(brain,nb,cp,mai,mts,g_rsc,bf,mw);
UpdateRiskControl();
CheckMTFConfirmation();
double tfaScore=CalcAdvancedTFA(g_tfa_detail);
color ha1C=(g_haM1=="HA BULLISH 1")?NEON_GREEN:(g_haM1=="HA BEARISH 1")?NEON_RED:NEON_YELLOW;
color ha5C=(g_haM5=="HA BULLISH 5")?NEON_GREEN:(g_haM5=="HA BEARISH 5")?NEON_RED:NEON_YELLOW;
color biasClr; string biasStr=CalcAdvancedMarketBias(biasClr,brain,g_rsc);
string ms=DetectMyStrategy();
color stratC=(g_strategyType=="TRAP")?NEON_PURPLE:(g_strategyType=="TREND")?NEON_GREEN:CGR;
string stratLabel=(g_strategyType=="TRAP")?"TRAP "+ms:(g_strategyType=="TREND")?"TREND "+ms:"NO STRATEGY";
string finalSig=g_finalSignal; color sigC=NEON_YELLOW;
if(finalSig=="CALL") sigC=NEON_GREEN; else if(finalSig=="PUT") sigC=NEON_RED;
else if(finalSig=="WEAK CALL") sigC=NEON_CYAN; else if(finalSig=="WEAK PUT") sigC=NEON_ORANGE;
// ROW 1
Cube("c1",cx,yy,CW,CH,NEON_CYAN,BG_DARK2,"PAIR",NEON_CYAN,Symbol(),NEON_BLUE,13);
Cube("c2",cx+CW+G,yy,CW,CH,sigC,BG_DARK2,"SIGNAL",NEON_CYAN,finalSig,sigC,14);
double gP,rP; string rsn; color pClr;
CalcAdvancedPrediction(gP,rP,rsn,pClr);
g_frozen_gProb=gP; g_frozen_rProb=rP; g_frozen_pAction=rsn; g_frozen_pColor=pClr; g_last_freeze_bar=Time[0];
Bx("c_pred",cx+2*(CW+G),yy,CW,CH,BG_DARK2,pClr);
Tx("c_pred_l",cx+2*(CW+G)+10,yy+5,"NEXT CANDLE",NEON_CYAN,9,true);
int bW=CW-20, gBW=(int)(gP/100.0*bW), rBW=(int)(rP/100.0*bW);
if(gBW<3)gBW=3;if(rBW<3)rBW=3;
Bx("c_pred_gbg",cx+2*(CW+G)+10,yy+22,bW,6,BG_DARK4,BG_DARK4);
Bx("c_pred_gfg",cx+2*(CW+G)+10,yy+22,gBW,6,NEON_GREEN,NEON_GREEN);
Tx("c_pred_gp",cx+2*(CW+G)+10,yy+30,"G:"+DoubleToString(gP,0)+"%",NEON_GREEN,9,true);
Bx("c_pred_rbg",cx+2*(CW+G)+10,yy+44,bW,6,BG_DARK4,BG_DARK4);
Bx("c_pred_rfg",cx+2*(CW+G)+10,yy+44,rBW,6,NEON_RED,NEON_RED);
Tx("c_pred_rp",cx+2*(CW+G)+10,yy+52,"R:"+DoubleToString(rP,0)+"%",NEON_RED,9,true);
Tx("c_pred_a",cx+2*(CW+G)+10,yy+68,rsn,pClr,9,true);
NeonBar("c_pred_b",cx+2*(CW+G)+10,yy+86,bW,6,MathMax(gP,rP),pClr);
yy+=CH+G;
// ROW 2
Cube("c4",cx,yy,CW,CH,NEON_CYAN,BG_DARK3,"BRAIN",NEON_CYAN,(brain>=0?"+":"")+DoubleToString(brain,1),(brain>0)?NEON_GREEN:NEON_RED,16);
Cube("c5",cx+CW+G,yy,CW,CH,NEON_CYAN,BG_DARK3,"SPM",NEON_CYAN,(g_rsc>=0?"+":"")+DoubleToString(g_rsc,1),(g_rsc>0)?NEON_GREEN:NEON_RED,16);
color sClr=CGR; string sName=GetCurrentSession(sClr); bool isAct=IsSessionActive();
Bx("c_ses",cx+2*(CW+G),yy,CW,CH,BG_DARK2,sClr);
Tx("c_ses_l",cx+2*(CW+G)+10,yy+5,"SESSION",NEON_CYAN,9,true);
Tx("c_ses_v",cx+2*(CW+G)+10,yy+24,sName,sClr,13,true);
int gH=TimeHour(TimeGMT()),gM=TimeMinute(TimeGMT());
Tx("c_ses_t",cx+2*(CW+G)+10,yy+50,"GMT "+(gH<10?"0":"")+IntegerToString(gH)+":"+(gM<10?"0":"")+IntegerToString(gM),NEON_WHITE,10,false);
Tx("c_ses_s",cx+2*(CW+G)+10,yy+70,isAct?"ACTIVE":"LOW VOL",isAct?NEON_GREEN:NEON_ORANGE,9,true);
yy+=CH+G;
// ROW 3
Cube("c7",cx,yy,CW,CH,NEON_CYAN,BG_DARK2,"NEURAL AI",NEON_CYAN,DoubleToString(nb,1)+"%",(nb>72)?NEON_ORANGE:(nb<35)?NEON_CYAN:NEON_GREEN,15);
NeonBar("c7b",cx+12,yy+82,CW-24,6,nb,(nb>72)?NEON_ORANGE:(nb<35)?NEON_CYAN:NEON_GREEN);
Bx("c8",cx+CW+G,yy,CW,CH,BG_DARK2,NEON_CYAN);
Tx("c8_l",cx+CW+G+10,yy+5,"CROWD",NEON_CYAN,9,true);
Tx("c8_c",cx+CW+G+10,yy+24,"CALL "+IntegerToString(g_otcCallPct)+"%",NEON_RED,12,true);
Tx("c8_p",cx+CW+G+10,yy+46,"PUT "+IntegerToString(g_otcPutPct)+"%",NEON_GREEN,12,true);
Tx("c8_b",cx+CW+G+10,yy+70,"OTC Crowd",NEON_GOLD,9,false);
Cube("c_strat",cx+2*(CW+G),yy,CW,CH,stratC,BG_DARK3,"STRATEGY",NEON_CYAN,stratLabel,stratC,11);
yy+=CH+G;
// ROW 4
color maC; string maDir;
if(mai>72){maC=NEON_ORANGE;maDir="TRAP RISK!";}
else if(mai>55){maC=NEON_YELLOW;maDir="CAUTION";}
else if(mai>45){maC=NEON_CYAN;maDir="NEUTRAL";}
else{maC=NEON_GREEN;maDir="SAFE";}
Cube("c_mai",cx,yy,CW,CH,maC,BG_DARK2,"MICRO AI",NEON_CYAN,DoubleToString(mai,0)+"%",maC,16);
NeonBar("c_mai_b",cx+12,yy+82,CW-24,6,mai,maC);
color mtsC=(mts>=90)?NEON_PURPLE:(mts>=75)?NEON_RED:(mts>=50)?NEON_ORANGE:NEON_GREEN;
string mtsL=(mts>=90)?"EXTREME TRAP":(mts>=75)?"HIGH TRAP":(mts>=50)?"MEDIUM":"CLEAR";
Cube("c_mts",cx+CW+G,yy,CW,CH,mtsC,BG_DARK2,"MICRO TRAP",NEON_CYAN,"SCORE "+IntegerToString(mts),mtsC,13);
NeonBar("c_mts_b",cx+CW+G+12,yy+82,CW-24,6,MathMin(100,mts),mtsC);
int tfaInt=(int)tfaScore;color tfaColor;string tfaLabel;
if(tfaInt>=5){tfaLabel="STRONG";tfaColor=NEON_GREEN;}
else if(tfaInt>=4){tfaLabel="GOOD";tfaColor=NEON_LIME;}
else if(tfaInt>=3){tfaLabel="MEDIUM";tfaColor=NEON_YELLOW;}
else if(tfaInt>=2){tfaLabel="WEAK";tfaColor=NEON_ORANGE;}
else{tfaLabel="POOR";tfaColor=C'100,100,120';}
color tfaBC=tfaColor;string dirTxt="";
if(g_haM1=="HA BEARISH 1"){tfaBC=NEON_RED;dirTxt=" [DOWN]";}
else if(g_haM1=="HA BULLISH 1"){tfaBC=NEON_GREEN;dirTxt=" [UP]";}
else{dirTxt=" [MIX]";}
Bx("c_tfa",cx+2*(CW+G),yy,CW,CH,BG_DARK3,tfaBC);
Tx("c_tfa_l",cx+2*(CW+G)+10,yy+5,"TFA SCORE",NEON_CYAN,9,true);
Tx("c_tfa_v",cx+2*(CW+G)+10,yy+24,IntegerToString(tfaInt)+"/6 "+tfaLabel+dirTxt,tfaBC,11,true);
Tx("c_tfa_d",cx+2*(CW+G)+10,yy+50,g_tfa_detail,CGR,8,false);
NeonBar("c_tfa_b",cx+2*(CW+G)+10,yy+82,CW-20,6,(double)tfaInt/6.0*100.0,tfaBC);
yy+=CH+G;
// ROW 5
double frac=CalcAdvancedFractal();
color frC=(frac>=75)?NEON_RED:(frac>=50)?NEON_ORANGE:(frac>=25)?NEON_YELLOW:NEON_GREEN;
string frT=(frac>=75)?"TRAP ZONE!":(frac>=50)?"WARNING":(frac>=25)?"CAUTION":"CLEAR";
Cube("c_frc",cx,yy,CW,CH,frC,BG_DARK2,"FRACTAL",NEON_CYAN,frT,frC,11);
NeonBar("c_frc_b",cx+12,yy+82,CW-24,6,frac,frC);
Bx("c_bias",cx+CW+G,yy,CW,CH,BG_DARK2,biasClr);
Tx("c_bias_l",cx+CW+G+10,yy+5,"MARKET BIAS",NEON_CYAN,9,true);
Tx("c_bias_v",cx+CW+G+10,yy+24,biasStr,biasClr,12,true);
Tx("c_bias_m",cx+CW+G+10,yy+48,"MODE: "+g_marketMode,(g_marketMode=="TREND")?NEON_GREEN:(g_marketMode=="REVERSAL")?NEON_RED:NEON_YELLOW,9,false);
color accC=(g_accuracy>=70)?NEON_GREEN:(g_accuracy>=60)?NEON_YELLOW:NEON_RED;
Tx("c_bias_a",cx+CW+G+10,yy+68,"ACC: "+DoubleToString(g_accuracy,1)+"%",accC,9,false);
NeonBar("c_bias_b",cx+CW+G+10,yy+82,CW-20,6,g_accuracy,accC);
int dg_sr=(int)MarketInfo(Symbol(),MODE_DIGITS);if(dg_sr<=0)dg_sr=5;
Bx("c18",cx+2*(CW+G),yy,CW,CH,BG_DARK2,NEON_CYAN);
Tx("c18_l",cx+2*(CW+G)+10,yy+4,"S/R LEVELS",NEON_CYAN,9,true);
Tx("c18_r",cx+2*(CW+G)+10,yy+24,"R: "+(g_nearest_res>0?DoubleToString(g_nearest_res,dg_sr):"--"),NEON_RED,12,true);
Tx("c18_s",cx+2*(CW+G)+10,yy+48,"S: "+(g_nearest_sup>0?DoubleToString(g_nearest_sup,dg_sr):"--"),NEON_GREEN,12,true);
Tx("c18_b",cx+2*(CW+G)+10,yy+72,g_brk_str,g_brk_color,10,true);
yy+=CH+G;
// ROW 6
color wickC=(mw>0.70)?NEON_RED:(mw>0.50)?NEON_ORANGE:NEON_GREEN;
Bx("c15",cx,yy,CW,CH,BG_DARK2,wickC);
Tx("c15_l",cx+10,yy+5,"WICKS",NEON_CYAN,9,true);
Tx("c15_v",cx+10,yy+24,DoubleToString(mw,2),wickC,16,true);
Tx("c15_b",cx+10,yy+52,(mw>0.70)?"KILL SHOT":(mw>0.50)?"HIGH":"LOW",wickC,10,false);
NeonBar("c15_bar",cx+10,yy+82,CW-20,6,mw*100,wickC);
Bx("c_ha",cx+CW+G,yy,CW,CH,BG_DARK2,ha1C);
Tx("c_ha_l",cx+CW+G+10,yy+5,"HA CANDLES",NEON_CYAN,9,true);
Tx("c_ha_m1",cx+CW+G+10,yy+26,"M1: "+g_haM1,ha1C,11,true);
Tx("c_ha_m5",cx+CW+G+10,yy+48,"M5: "+g_haM5,ha5C,11,true);
string haComb="";color haCombC=NEON_YELLOW;
if(g_haM1=="HA BULLISH 1"&&g_haM5=="HA BULLISH 5"){haComb="BOTH BULL";haCombC=NEON_GREEN;}
else if(g_haM1=="HA BEARISH 1"&&g_haM5=="HA BEARISH 5"){haComb="BOTH BEAR";haCombC=NEON_RED;}
else haComb="MIXED";
Tx("c_ha_c",cx+CW+G+10,yy+72,haComb,haCombC,10,true);
string revReason=DetectSuddenReversal();color revColor=NEON_YELLOW;
if(StringFind(revReason,"BULL")>=0)revColor=NEON_GREEN;
if(StringFind(revReason,"BEAR")>=0)revColor=NEON_RED;
Bx("c_reason",cx+2*(CW+G),yy,CW,CH,BG_DARK2,revColor);
Tx("c_reason_l",cx+2*(CW+G)+10,yy+5,"REVERSAL",NEON_CYAN,9,true);
if(StringLen(revReason)>0){string sr=revReason;if(StringLen(sr)>30)sr=StringSubstr(sr,0,28)+"..";Tx("c_reason_v",cx+2*(CW+G)+10,yy+28,sr,revColor,9,false);}
else Tx("c_reason_v",cx+2*(CW+G)+10,yy+28,"No reversal",CGR,9,false);
yy+=CH+G;
// ROW 7
int bottomW=(W-2*G-2*G)/3,bottomH=110;yy+=5;int x1=cx;
Bx("c_hrn",x1,yy,bottomW,bottomH,BG_DARK2,NEON_PINK);
Tx("c_hrn_l",x1+8,yy+6,"HRN LEVEL",NEON_PINK,9,true);
Tx("c_hrn_v",x1+8,yy+28,g_hrn_str,NEON_PINK,12,true);
Tx("c_hrn_t",x1+8,yy+54,g_hrn_is_sup?"SUPPORT":"RESISTANCE",NEON_PINK,9,false);
// Show break counter with clear candle-close info
string brkDisp = "Brk " + IntegerToString(g_hrn_brk_bars) + "/" + IntegerToString(HRN_CONFIRM_BARS) + " candles";
Tx("c_hrn_b",x1+8,yy+76,brkDisp,(g_hrn_brk_bars>0)?NEON_ORANGE:NEON_PINK,8,false);
Tx("c_hrn_s",x1+8,yy+94,g_isSideways?"SIDEWAYS":"TRENDING",g_isSideways?NEON_YELLOW:NEON_GREEN,8,false);
int x2=x1+bottomW+G;DrawOtherPairsCube(x2,yy,bottomW,bottomH);
int x3=x2+bottomW+G;DrawOTCQuickCube(x3,yy,bottomW,bottomH);
UpdateTimer(); HideSPM(); ChartRedraw();
}
//+------------------------------------------------------------------+
// RISK CONTROL
//+------------------------------------------------------------------+
void UpdateRiskControl(){
static datetime llt=0;
if(ENABLE_RISK_LOCK){
if(g_lossStreak>=MAX_LOSS_STREAK){g_tradingStopped=true;llt=TimeCurrent();g_filterStatus="RISK LOCK "+IntegerToString(g_lossStreak)+"L";}
if(g_tradingStopped&&TimeCurrent()-llt>3600){g_tradingStopped=false;g_lossStreak=0;g_filterStatus="RISK UNLOCK";}
}
}
//+------------------------------------------------------------------+
// FINAL SIGNAL ENGINE
//+------------------------------------------------------------------+
void FinalSignalEngine(double brain,int cp,int mts){
g_filterStatus="ALL CLEAR";
if(ENABLE_RISK_CONTROL&&g_tradingStopped){g_finalSignal="WAIT";g_finalColor=NEON_ORANGE;g_filterStatus="RISK LOCKED";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}
if(ENABLE_SESSION_FILTER&&!IsSessionActive()){g_finalSignal="WAIT";g_finalColor=NEON_ORANGE;g_filterStatus="SESSION OFF";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}
if(MTF_CONFIRM&&!g_mtfConfirmed){g_finalSignal="WAIT";g_finalColor=NEON_ORANGE;g_filterStatus="MTF NO CONF";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}
if(ENABLE_SPIKE_FILTER&&IsBigCandle(1)){g_finalSignal="WAIT";g_finalColor=NEON_ORANGE;g_filterStatus="SPIKE BLOCK";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}
if(ENABLE_LAST_SEC_BLOCK){int age=(int)(TimeCurrent()-Time[0]);int ps=Period()*60;int rem=ps-age;if(rem<0)rem=0;if(rem<MIN_REMAINING_SEC){g_finalSignal="WAIT";g_finalColor=NEON_ORANGE;g_filterStatus="LAST SEC BLOCK";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}}
double conf=MathMax(g_calc_gProb,g_calc_rProb);
if(conf<MIN_CONFIDENCE){g_finalSignal="WAIT";g_finalColor=NEON_YELLOW;g_filterStatus="LOW CONF "+DoubleToString(conf,0)+"%";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}
string ms=DetectMyStrategy();
if(ms!="WAIT"){
if(CONSENSUS_FILTER&&!ConsensusOK()){g_finalSignal="WAIT";g_finalColor=NEON_ORANGE;g_filterStatus="NO CONSENSUS";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}
if(ENABLE_ENTRY_ZONE&&!DirectionOK()){g_finalSignal="WAIT";g_finalColor=NEON_ORANGE;g_filterStatus="BAD ENTRY ZONE";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}
if(!EntryPrecisionOK()){g_finalSignal="WAIT";g_finalColor=NEON_ORANGE;g_filterStatus="PRECISION FAIL";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}
g_finalSignal=ms;g_finalColor=(ms=="CALL")?NEON_GREEN:NEON_RED;g_filterStatus=(g_strategyType=="TRAP")?"TRAP ACTIVE":"TREND ACTIVE";
if(TimeCurrent()-g_signalTime>HOLD_SEC||g_finalSignal=="WAIT"){g_finalSignal=ms;g_signalTime=TimeCurrent();}
SendSignalNotification(ms,conf);return;}
double th=FAST_MODE?70:68;
if(g_calc_gProb>th)g_finalSignal="CALL";
else if(g_calc_rProb>th)g_finalSignal="PUT";
else if(g_calc_gProb>60)g_finalSignal="WEAK CALL";
else if(g_calc_rProb>60)g_finalSignal="WEAK PUT";
else g_finalSignal="WAIT";
if((g_finalSignal=="CALL"||g_finalSignal=="PUT")&&ENABLE_ENTRY_ZONE&&!DirectionOK()){g_finalSignal="WAIT";g_finalColor=NEON_ORANGE;g_filterStatus="BAD ENTRY ZONE";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}
if((g_finalSignal=="CALL"||g_finalSignal=="PUT")&&!EntryPrecisionOK()){g_finalSignal="WAIT";g_finalColor=NEON_ORANGE;g_filterStatus="PRECISION FAIL";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}
if(TimeCurrent()-g_signalTime>HOLD_SEC||g_finalSignal=="WAIT")g_signalTime=TimeCurrent();
if(g_finalSignal=="CALL"){g_finalColor=NEON_GREEN;g_filterStatus="GREEN SIGNAL";SendSignalNotification("CALL",conf);}
else if(g_finalSignal=="PUT"){g_finalColor=NEON_RED;g_filterStatus="RED SIGNAL";SendSignalNotification("PUT",conf);}
else if(g_finalSignal=="WEAK CALL"){g_finalColor=NEON_CYAN;g_filterStatus="WEAK GREEN";}
else if(g_finalSignal=="WEAK PUT"){g_finalColor=NEON_ORANGE;g_filterStatus="WEAK RED";}
else{g_finalColor=NEON_YELLOW;}
}
//+------------------------------------------------------------------+
// SEND SIGNAL NOTIFICATION
//+------------------------------------------------------------------+
void SendSignalNotification(string sig,double conf){
if(!ENABLE_NOTIFY)return;
string msg=Symbol()+" | "+sig+" | "+DoubleToString(conf,0)+"% | "+g_filterStatus;
if(msg==g_lastNotified)return;
g_lastNotified=msg;
SendNotification(msg);
if(ENABLE_TELEGRAM){string tgMsg="*AIBRAIN Signal*\n"+Symbol()+"\n"+sig+"\nConf: "+DoubleToString(conf,0)+"%\n"+g_filterStatus;SendTelegramAlert(tgMsg);}
Print(msg);
}
//+------------------------------------------------------------------+
// BROADCAST SIGNAL
//+------------------------------------------------------------------+
void BroadcastSignal(){
double conf=MathMax(g_frozen_gProb,g_frozen_rProb);if(conf<55)return;
string fn="OTC_Signals_Master.txt",pair=Symbol();
string sig=(g_frozen_gProb>g_frozen_rProb)?"CALL":"PUT";
int exp=(int)(TimeCurrent()+65);
string line=pair+"|"+sig+"|"+DoubleToString(conf,0)+"|"+IntegerToString((int)TimeCurrent())+"|"+IntegerToString(exp);
int h=FileOpen(fn,FILE_READ|FILE_WRITE|FILE_TXT|FILE_SHARE_READ|FILE_SHARE_WRITE);
if(h==INVALID_HANDLE){h=FileOpen(fn,FILE_WRITE|FILE_TXT|FILE_SHARE_READ|FILE_SHARE_WRITE);if(h==INVALID_HANDLE)return;FileWriteString(h,line+"\n");FileClose(h);return;}
string content="";while(!FileIsEnding(h)){string ex=FileReadString(h);if(StringLen(ex)>10&&StringFind(ex,pair+"|")!=0)content+=ex+"\n";}
content=line+"\n"+content;string lns[];int cnt=0,pos=0;int f=StringFind(content,"\n",pos);
while(f!=-1&&cnt<100){ArrayResize(lns,cnt+1);lns[cnt]=StringSubstr(content,pos,f-pos);cnt++;pos=f+1;f=StringFind(content,"\n",pos);}
if(pos<StringLen(content)){ArrayResize(lns,cnt+1);lns[cnt]=StringSubstr(content,pos);cnt++;}
if(cnt>50){content="";for(int i=0;i<50;i++)if(StringLen(lns[i])>10)content+=lns[i]+"\n";}
FileSeek(h,0,SEEK_SET);FileWriteString(h,content);FileFlush(h);FileClose(h);
}
//+------------------------------------------------------------------+
// OTHER PAIR HELPERS
//+------------------------------------------------------------------+
string GetPairHADirection(string pair){
double open1=iOpen(pair,PERIOD_M1,1),high1=iHigh(pair,PERIOD_M1,1),low1=iLow(pair,PERIOD_M1,1),close1=iClose(pair,PERIOD_M1,1);
double open2=iOpen(pair,PERIOD_M1,2),high2=iHigh(pair,PERIOD_M1,2),low2=iLow(pair,PERIOD_M1,2),close2=iClose(pair,PERIOD_M1,2);
double open3=iOpen(pair,PERIOD_M1,3),close3=iClose(pair,PERIOD_M1,3);
if(open1==0||high1==0||low1==0||close1==0||open2==0||close2==0||open3==0||close3==0)return "NEUTRAL";
double haClose1=(open1+high1+low1+close1)/4.0,haClose2=(open2+high2+low2+close2)/4.0;
double haOpen2_approx=(open3+close3)/2.0,haOpen1=(haOpen2_approx+haClose2)/2.0;
if(haClose1>haOpen1)return "BULL";else if(haClose1<haOpen1)return "BEAR";return "NEUTRAL";
}
double GetPairVolumeRatio(string pair){double v1=iVolume(pair,PERIOD_M1,1),v2=iVolume(pair,PERIOD_M1,2);if(v2<=0)return 1.0;return v1/v2;}
void ScanSignals(){
g_pairCount=0;string fn="OTC_Signals_Master.txt";string cur=Symbol();
int h=FileOpen(fn,FILE_READ|FILE_TXT|FILE_SHARE_READ);if(h==INVALID_HANDLE)return;
datetime now=TimeCurrent();
while(!FileIsEnding(h)&&g_pairCount<5){
string ln=FileReadString(h);if(StringLen(ln)<15)continue;
int p1=StringFind(ln,"|"),p2=StringFind(ln,"|",p1+1),p3=StringFind(ln,"|",p2+1),p4=StringFind(ln,"|",p3+1);
if(p1<0||p2<0||p3<0||p4<0)continue;
string pair=StringSubstr(ln,0,p1);if(pair==cur)continue;
string sig=StringSubstr(ln,p1+1,p2-p1-1);double conf=StringToDouble(StringSubstr(ln,p2+1,p3-p2-1));int ex=(int)StringToInteger(StringSubstr(ln,p4+1));
if(conf<62)continue;if(ex<(int)(now-10))continue;
string haDir=GetPairHADirection(pair);bool haMatch=false;
if(sig=="CALL"&&haDir=="BULL")haMatch=true;if(sig=="PUT"&&haDir=="BEAR")haMatch=true;if(!haMatch)continue;
double vr=GetPairVolumeRatio(pair);if(vr>2.0)continue;
g_pairNames[g_pairCount]=pair;g_pairSigs[g_pairCount]=sig;g_pairConfs[g_pairCount]=conf;g_pairCount++;
}
FileClose(h);
}
void ReadSPM(){
datetime cb=Time[0];if(cb==g_last_bar&&TimeCurrent()-g_spm_t<5)return;
double v1=iCustom(NULL,PERIOD_M1,SPM_FILE,0,0),v2=iCustom(NULL,PERIOD_M1,SPM_FILE,1,0);
if(v1!=EMPTY_VALUE&&v1!=0){double sm=0.7;g_rsc=g_rsc*(1.0-sm)+v1*sm;}
if(v2!=EMPTY_VALUE&&v2!=0){double sm=0.7;g_tfa=g_tfa*(1.0-sm)+v2*sm;}
g_last_bar=cb;g_spm_t=TimeCurrent();
}
//+------------------------------------------------------------------+
// INIT
//+------------------------------------------------------------------+
int OnInit(){
InitNW();NuclearDeleteAll();
resCount=0;supCount=0;lastSRBar=0;
g_hrn_price=0;g_hrn_brk_bars=0;g_hrn_scan_bar=0;
g_hrn_last_candle=0;g_hrn_pending=false;g_hrn_pending_price=0;
g_nearest_res=0;g_nearest_sup=0;g_rj_cnt=0;g_pairCount=0;
g_marketMode="RANGE";g_prevMode="";g_last_freeze_bar=0;
g_lastNotified="";g_copiedPair="";g_accuracy=ValidateHistoricalAccuracy();
g_acc_correct=0;g_acc_total=0;g_acc_lastBar=0;
g_lastPredGreen=50.0;g_lastPredBar=0;g_lastLogBar=0;
g_lossStreak=0;g_tradingStopped=false;g_stopStartTime=0;
g_strategyType="NONE";g_strategySignal="WAIT";g_strategyReason="";
g_frozen_gProb=50;g_frozen_rProb=50;g_calc_gProb=50;g_calc_rProb=50;
g_commonCount=0;g_wickLineCount=0;g_tfa_detail="";g_htfLevelCount=0;g_lastLevelScan=0;
g_mtfConfirmed=true;g_filterStatus="ALL CLEAR";
g_isSideways=false;g_hrn_str="--";g_hrn_type_str="--";
LoadMLWeights();EventSetTimer(1);
Print("AIBRAIN v44.7 FIXED LOADED");
Print("HRN Fix: Candle-close based (", HRN_CONFIRM_BARS, " closed candles needed)");
Print("TFA Fix: M1 HA priority over M5 HA");
Print("Round Number Steps: Major=",RN_MAJOR_STEP_PIPS,"pip Minor=",RN_MINOR_STEP_PIPS,"pip Micro=",RN_MICRO_STEP_PIPS,"pip");
return INIT_SUCCEEDED;
}
//+------------------------------------------------------------------+
// DEINIT
//+------------------------------------------------------------------+
void OnDeinit(const int r){
EventKillTimer();Comment("");
for(int i=ObjectsTotal()-1;i>=0;i--){string nm=ObjectName(i);if(StringFind(nm,PFX)==0)ObjectDelete(nm);}
}
//+------------------------------------------------------------------+
// ON TIMER
//+------------------------------------------------------------------+
void OnTimer(){
if(Bars<50)return;
static datetime last5min=0;
if(Time[0]/300!=last5min/300){DetectHiddenLevels();last5min=Time[0];}
ReadSPM();CalcHA();UpdateHRN();UpdateSR();
DetectCommonPoints();DetectWickRejections();
DrawCommonPoints();DrawWickRejectLines();DrawHiddenLevels();DrawNearestSR();
int cp=0;double brain=BrainSc(cp);double nb=NeuralBiasFast();double mw=MicroWick();bool bf=IsBrokerForce();
double mai=CalcAdvancedMicroAI();int mts=CalcAdvancedMicroTrap();
CalcPrediction(brain,nb,cp,mai,mts,g_rsc,bf,mw);
FinalSignalEngine(brain,cp,mts);
BroadcastSignal();ScanSignals();
Draw();
}
//+------------------------------------------------------------------+
// ON CALCULATE
//+------------------------------------------------------------------+
int OnCalculate(const int rates_total,const int prev_calculated,
const datetime &time[],const double &open[],
const double &high[],const double &low[],const double &close[],
const long &tick_volume[],const long &volume[],const int &spread[]){
return(rates_total);
}
//+------------------------------------------------------------------+

RAW Paste Data Copied

//+------------------------------------------------------------------+
//| AIBRAIN OTC v44.7 - FIXED (HRN Candle-Close Based + Round Nums) |
//| Fixed: HRN shift on candle close only, better round numbers      |
//| Fixed: TFA direction, ML reset, accuracy tracking improved       |
//+------------------------------------------------------------------+
#property copyright "AIBRAIN ULTIMATE - KM RANA"
#property version   "44.7"
#property strict
#property indicator_chart_window
#define Alert(x)
#define PFX  "AIB9_"
#define VER  "v44.7 FIXED"
#define LB   18
#define MAX_LEVELS 5
#define MAX_REJ    50
#define LOOKBACK   20

input string SPM_FILE               = "KM RANA";
input int    HOLD_SEC               = 60;
input int    POS_X                  = 4;
input int    POS_Y                  = 20;
input int    DASH_W                 = 650;
input bool   SHOW_TIMER             = true;
input bool   SHOW_SR_LINES          = true;
input string ENTRY_MODE             = "TIME";
input int    FLAG_MIN_SEC           = 10;
input int    FLAG_MAX_SEC           = 35;
input int    TIME_MIN_SEC           = 10;
input int    TIME_MAX_SEC           = 35;
input int    MIN_REMAINING_SEC      = 15;
input double REVERSAL_PCT           = 30.0;
input double WICK_PCT               = 0.65;
input int    HRN_CONFIRM_BARS       = 2;   // Candles needed CLOSED beyond level
input bool   HA_ALIGN_FILTER        = false;
input bool   CONSENSUS_FILTER       = false;
input bool   ENABLE_NOTIFY          = true;
input bool   FAST_MODE              = false;
input int    BROKER_SPREAD_THRESHOLD= 6;
input double OTC_TRAP_WEIGHT        = 15.0;
input int    CROWD_EXTREME_PCT      = 70;
input bool   ENABLE_BROKER_KILLER   = true;
input bool   ENABLE_SESSION_FILTER  = true;
input bool   ENABLE_SPIKE_FILTER    = true;
input bool   ENABLE_LAST_SEC_BLOCK  = true;
input bool   ENABLE_RISK_CONTROL    = true;
input bool   ENABLE_ENTRY_ZONE      = true;
input bool   ML_ADAPTIVE            = true;
input bool   VOLUME_PROFILE_TRAP    = true;
input bool   MTF_CONFIRM            = false;
input bool   ENABLE_TELEGRAM        = false;
input string TELEGRAM_TOKEN         = "";
input string TELEGRAM_CHAT_ID       = "";
input string TRADE_MODE             = "NORMAL";
input string STRATEGY_MODE          = "TRAP_ONLY";
input int    STRATEGY_THRESHOLD     = 75;
input int    MAX_LOSS_STREAK        = 2;
input double MIN_CONFIDENCE         = 75.0;
input bool   ENABLE_RISK_LOCK       = true;
input double PATTERN_TOLERANCE_PIPS = 8.0;
input int    MIN_PATTERN_SEPARATION = 5;
input bool   SHOW_COMMON_POINTS     = true;
input double COMMON_POINT_TOL_PIPS  = 15.0;
input bool   SHOW_WICK_REJECT_LINES = true;
input int    WICK_MIN_TOUCHES       = 1;
input double WICK_ZONE_PIPS         = 15.0;
input int    WICK_EXPIRE_BARS       = 60;

// ============================================================
// ROUND NUMBER SETTINGS - NEW
// ============================================================
input double RN_MAJOR_STEP_PIPS     = 100.0;   // Major round: e.g. 0.9800, 0.9900
input double RN_MINOR_STEP_PIPS     = 50.0;    // Minor round: e.g. 0.9850
input double RN_MICRO_STEP_PIPS     = 10.0;    // Micro round: e.g. 0.9810
input double RN_SEARCH_RANGE_PIPS   = 30.0;    // Search within 30 pips of price

#define NEON_GREEN      C'0,255,100'
#define NEON_RED        C'255,40,80'
#define NEON_YELLOW     C'255,220,0'
#define NEON_ORANGE     C'255,120,0'
#define NEON_CYAN       C'0,255,200'
#define NEON_PURPLE     C'200,0,255'
#define NEON_PINK       C'255,80,180'
#define NEON_BLUE       C'0,200,255'
#define NEON_LIME       C'80,255,80'
#define NEON_GOLD       C'255,180,0'
#define DARK_BLUE_NEON  C'0,100,255'
#define NEON_WHITE      C'220,230,255'
#define CGR             C'160,170,190'
#define BG_DARK1        C'6,8,16'
#define BG_DARK2        C'10,14,24'
#define BG_DARK3        C'14,20,32'
#define BG_DARK4        C'18,26,40'

struct HTFLevel{ double price; string timeframe; string type; datetime time; int strength; bool isRoundNumber; };

//+------------------------------------------------------------------+
// GLOBAL VARIABLES
//+------------------------------------------------------------------+
string g_haM1="",g_haM5="",g_haBoth="";
color g_haM1Color=clrGray,g_haM5Color=clrGray;
static string st_sig="WAIT",st_cdl="WAIT";
static double st_pct=50;
static datetime st_t=0;
static double NW[36];
static double g_rsc=0,g_tfa=3;
static datetime g_spm_t=0,g_last_bar=0;
double ResLevels[MAX_LEVELS],SupLevels[MAX_LEVELS];
int resCount=0,supCount=0;
datetime lastSRBar=0;
static double g_nearest_res=0,g_nearest_sup=0;
static string g_brk_str="NO BRK";
static color g_brk_color=CGR;
struct RejLevel{double price;int touches;};
static RejLevel g_rj[MAX_REJ];
static int g_rj_cnt=0;

// ============================================================
// HRN FIXED VARIABLES
// ============================================================
static double g_hrn_price=0;
static bool   g_hrn_is_sup=true;
static int    g_hrn_brk_bars=0;          // Now counts CLOSED candles, not timer ticks
static datetime g_hrn_scan_bar=0;
static datetime g_hrn_last_candle=0;     // NEW: track last candle for close-based counting
static double g_hrn_pending_price=0;     // NEW: pending new level (waiting for confirmation)
static bool   g_hrn_pending=false;        // NEW: is there a pending break?
static string g_hrn_str="--";
static string g_hrn_type_str="--";

static int g_otcCallPct=50,g_otcPutPct=50;
static string g_pairNames[5],g_pairSigs[5];
static double g_pairConfs[5];
static int g_pairCount=0;
static string g_copiedPair="";
static string g_adv1="WAIT KAR",g_adv2="Signals mix",g_adv3="";
static color g_advC=NEON_YELLOW;
static double g_frozen_gProb=50,g_frozen_rProb=50;
static string g_frozen_pAction="UNCERTAIN";
static color g_frozen_pColor=NEON_YELLOW;
static double g_calc_gProb=50,g_calc_rProb=50;
static string g_calc_pAction="UNCERTAIN";
static color g_calc_pColor=NEON_YELLOW;
static double g_gProb=50,g_rProb=50;
static string g_pAction="UNCERTAIN";
static color g_pColor=NEON_YELLOW;
static datetime g_last_freeze_bar=0;
static double g_accuracy=65.0;
static int g_acc_correct=0,g_acc_total=0;
static datetime g_acc_lastBar=0;
static double g_lastPredGreen=50.0;
static datetime g_lastPredBar=0;
static datetime g_lastLogBar=0;
static string g_finalSignal="WAIT";
static color g_finalColor=NEON_YELLOW;
static datetime g_signalTime=0;
static string g_lastNotified="";
static string g_marketMode="RANGE",g_prevMode="";
static int g_lossStreak=0;
static bool g_tradingStopped=false;
static datetime g_stopStartTime=0;
static double g_brokerBias=0.0;
static string g_symbolKey="";
static string g_strategyType="NONE";
static string g_strategySignal="WAIT";
static string g_strategyReason="";
static double qmrA=0,qmrB=0,qmrC=0,qmrD=0;
static datetime qmrTA=0,qmrTB=0,qmrTC=0,qmrTD=0;
static bool qmrActive=false;
static datetime qmrExpire=0;
#define MAX_COMMON_PTS 5
static double g_commonPrice[MAX_COMMON_PTS];
static datetime g_commonTime[MAX_COMMON_PTS];
static int g_commonCount=0;
static datetime g_commonExpire[MAX_COMMON_PTS];
static string g_commonType[MAX_COMMON_PTS];
static datetime g_lastCommonScan=0;
#define MAX_WICK_LINES 5
static double g_wickLinePrice[MAX_WICK_LINES];
static int g_wickLineTouches[MAX_WICK_LINES];
static datetime g_wickLineExpire[MAX_WICK_LINES];
static int g_wickLineCount=0;
static datetime g_lastWickScan=0;
static bool g_isSideways=false;
static string g_tfa_detail="";
static HTFLevel g_htfLevels[50];
static int g_htfLevelCount=0;
static datetime g_lastLevelScan=0;
static bool g_mtfConfirmed=true;
static string g_filterStatus="ALL CLEAR";

//+------------------------------------------------------------------+
// HA CANDLE CALCULATION
//+------------------------------------------------------------------+
void CalcHA(){
   if(Bars<10) return;
   ArraySetAsSeries(Open,true); ArraySetAsSeries(High,true); ArraySetAsSeries(Low,true); ArraySetAsSeries(Close,true);
   static double haO1[500],haC1[500]; static datetime lb1=0;
   ArraySetAsSeries(haO1,true); ArraySetAsSeries(haC1,true);
   datetime c1=iTime(NULL,PERIOD_M1,0);
   if(c1!=lb1){ lb1=c1; int lim=MathMin(iBars(NULL,PERIOD_M1),500);
      for(int i=lim-1;i>=0;i--){ haC1[i]=(Open[i]+High[i]+Low[i]+Close[i])/4.0;
         if(i==lim-1) haO1[i]=(Open[i]+Close[i])/2.0; else haO1[i]=(haO1[i+1]+haC1[i+1])/2.0; }}
   double d1=MathAbs(haC1[1]-haO1[1]),r1=High[1]-Low[1];
   bool dz=(r1>0&&d1<r1*0.1),b1=(!dz&&haC1[1]>haO1[1]),be1=(!dz&&haC1[1]<haO1[1]);
   if(b1){g_haM1="HA BULLISH 1";g_haM1Color=clrLime;}
   else if(be1){g_haM1="HA BEARISH 1";g_haM1Color=clrRed;}
   else{g_haM1="HA DOJI 1";g_haM1Color=clrYellow;}
   
   if(iBars(NULL,PERIOD_M5)>=10){
      static double haO5[200],haC5[200]; static datetime lb5=0;
      ArraySetAsSeries(haO5,true); ArraySetAsSeries(haC5,true);
      datetime c5=iTime(NULL,PERIOD_M5,0);
      if(c5!=lb5){ lb5=c5; int lim=MathMin(iBars(NULL,PERIOD_M5),200);
         for(int i=lim-1;i>=0;i--){ double o=iOpen(NULL,PERIOD_M5,i),h=iHigh(NULL,PERIOD_M5,i),l=iLow(NULL,PERIOD_M5,i),c=iClose(NULL,PERIOD_M5,i);
            haC5[i]=(o+h+l+c)/4.0; if(i==lim-1) haO5[i]=(o+c)/2.0; else haO5[i]=(haO5[i+1]+haC5[i+1])/2.0; }}
      double d5=MathAbs(haC5[1]-haO5[1]),r5=iHigh(NULL,PERIOD_M5,1)-iLow(NULL,PERIOD_M5,1);
      bool dz5=(r5>0&&d5<r5*0.1),b5=(!dz5&&haC5[1]>haO5[1]),be5=(!dz5&&haC5[1]<haO5[1]);
      if(b5){g_haM5="HA BULLISH 5";g_haM5Color=clrLime;}
      else if(be5){g_haM5="HA BEARISH 5";g_haM5Color=clrRed;}
      else{g_haM5="HA DOJI 5";g_haM5Color=clrYellow;}
      if(b1&&b5)g_haBoth="BOTH BULL"; else if(be1&&be5)g_haBoth="BOTH BEAR"; else g_haBoth="MIXED";
   }else{g_haM5="5 --";g_haM5Color=clrGray;g_haBoth="HA --";}
}

//+------------------------------------------------------------------+
// HELPER FUNCTIONS
//+------------------------------------------------------------------+
bool IsLineNearby(double price,double pipTol=3.0){
   bool jpy=(StringFind(Symbol(),"JPY")>=0); double pip=jpy?0.01:0.0001; double tol=pipTol*pip;
   for(int i=ObjectsTotal()-1;i>=0;i--){ string nm=ObjectName(i);
      if((int)ObjectGetInteger(0,nm,OBJPROP_TYPE)==OBJ_HLINE){
         double lp=ObjectGetDouble(0,nm,OBJPROP_PRICE); if(MathAbs(lp-price)<tol) return true; }}
   return false;
}

string GetCurrentSession(color &sC){
   int h=TimeHour(TimeGMT());
   if(h>=12&&h<16){sC=NEON_GOLD;return "LON+NY";}
   if(h>=7&&h<9){sC=NEON_CYAN;return "ASI+LON";}
   if(h>=7&&h<16){sC=NEON_GREEN;return "LONDON";}
   if(h>=12&&h<21){sC=NEON_BLUE;return "NEW YORK";}
   if(h>=0&&h<9){sC=NEON_ORANGE;return "ASIA";}
   sC=C'100,100,120'; return "SYDNEY";
}

bool IsSessionActive(){int h=TimeHour(TimeGMT());return(h>=7&&h<=21);}

bool IsBigCandle(int s){if(Bars<20)return false;double a=iATR(NULL,PERIOD_M1,14,0);return(a>0&&(High[s]-Low[s])>a*1.8);}

//+------------------------------------------------------------------+
// MTF CONFIRMATION
//+------------------------------------------------------------------+
bool CheckMTFConfirmation(){
   if(!MTF_CONFIRM) return true;
   bool m1Bull=(Close[1]>Open[1]);
   bool m5Bull=false,m15Bull=false;
   if(iBars(NULL,PERIOD_M5)>=3) m5Bull=(iClose(NULL,PERIOD_M5,1)>iOpen(NULL,PERIOD_M5,1));
   if(iBars(NULL,PERIOD_M15)>=3) m15Bull=(iClose(NULL,PERIOD_M15,1)>iOpen(NULL,PERIOD_M15,1));
   int bullCount=0,bearCount=0;
   if(m1Bull) bullCount++; else bearCount++;
   if(m5Bull) bullCount++; else bearCount++;
   if(m15Bull) bullCount++; else bearCount++;
   g_mtfConfirmed=(bullCount>=2 || bearCount>=2);
   return g_mtfConfirmed;
}

//+------------------------------------------------------------------+
// TANH
//+------------------------------------------------------------------+
double Tanh(double x){
   double exp2x = MathExp(2.0 * x);
   return (exp2x - 1.0) / (exp2x + 1.0);
}

//+------------------------------------------------------------------+
// FRACTAL DIMENSION
//+------------------------------------------------------------------+
double CalcFractalDimension(int period){
   if(period < 2) return 1.5;
   double sum = 0.0;
   for(int i = 1; i < period; i++){
      double range1 = High[i] - Low[i];
      double range2 = High[i+1] - Low[i+1];
      if(range1 <= 0.0 || range2 <= 0.0) continue;
      sum += MathLog(range1 / range2 + 0.001) * MathLog((double)i / (double)period);
   }
   double result = 2.0 - sum / period;
   if(result < 1.0) result = 1.0;
   if(result > 2.0) result = 2.0;
   return result;
}

//+------------------------------------------------------------------+
// BROKER TRAP DETECTION
//+------------------------------------------------------------------+
double DetectBrokerTrap(int lookback){
   int bull = 0, bear = 0;
   for(int i = 1; i <= lookback; i++){
      if(Close[i] > Open[i]) bull++;
      else if(Close[i] < Open[i]) bear++;
   }
   double crowd = (bull > bear) ? (double)bull / lookback : (double)bear / lookback;
   double priceMove = MathAbs(Close[1] - Close[lookback]) / (Close[lookback] + 0.00001);
   if(crowd > 0.7 && priceMove < 0.002) return 0.9;
   if(crowd > 0.6 && priceMove > 0.001) return 0.5;
   return 0.3;
}

//+------------------------------------------------------------------+
// QUICK MEDIAN
//+------------------------------------------------------------------+
double QuickMedian(double &arr[], int size){
   double sorted[20];
   for(int i = 0; i < size; i++) sorted[i] = arr[i];
   for(int i = 0; i < size-1; i++)
      for(int j = i+1; j < size; j++)
         if(sorted[i] > sorted[j]){
            double tmp = sorted[i];
            sorted[i] = sorted[j];
            sorted[j] = tmp;
         }
   return (sorted[size/2] + sorted[(size-1)/2]) / 2.0;
}

//+------------------------------------------------------------------+
// MAIN ADVANCED TFA - FIXED DIRECTION LOGIC
//+------------------------------------------------------------------+
double CalcAdvancedTFA(string &detail){
   if(Bars < 30){
      detail = "Bars low";
      return 3.0;
   }

double score = 0;
   string p = "";

// 1. ADX
   double adx = iADX(NULL, PERIOD_M1, 14, PRICE_CLOSE, MODE_MAIN, 1);
   double adxSc = (adx>=25)?1.0:(adx>=20)?0.6:(adx>=15)?0.3:0.1;
   score += adxSc;
   p += "ADX:" + ((adxSc>=0.6)?"+":"-") + " ";

// 2. VOLUME
   double v1 = iVolume(NULL, PERIOD_M1, 1);
   double vA = 0;
   for(int i=2; i<=6; i++) vA += iVolume(NULL, PERIOD_M1, i);
   vA = (vA>0)? vA/5.0 : 1;
   double vr = v1 / vA;
   double volSc = (vr>=2.0)?1.0:(vr>=1.5)?0.7:(vr>=1.1)?0.4:0.1;
   score += volSc;
   p += "VOL:" + ((volSc>=0.5)?"+":"-") + " ";

// 3. RSI
   double rsi = iRSI(NULL, PERIOD_M1, 14, PRICE_CLOSE, 1);
   double rsiSc = 0.2;
   if(rsi>=60 || rsi<=40) rsiSc = 1.0;
   else if(rsi>=55 || rsi<=45) rsiSc = 0.6;
   score += rsiSc;
   p += "RSI:" + ((rsiSc>=0.6)?"+":"-") + " ";

// 4. ATR
   double atr = iATR(NULL, PERIOD_M1, 14, 1);
   double cs = High[1] - Low[1];
   double atrSc = 0.2;
   if(atr > 0){
      double r = cs / atr;
      if(r>=0.7 && r<=1.5) atrSc = 1.0;
      else if(r>=0.5 && r<=2.0) atrSc = 0.6;
      else atrSc = 0.3;
   }
   score += atrSc;
   p += "ATR:" + ((atrSc>=0.6)?"+":"-") + " ";

// 5. CANDLE BODY
   double body = MathAbs(Close[1] - Open[1]);
   double range = High[1] - Low[1];
   double bdySc = 0.2;
   if(range > 0){
      double br = body / range;
      if(br>=0.6) bdySc = 1.0;
      else if(br>=0.4) bdySc = 0.6;
      else if(br>=0.2) bdySc = 0.3;
   }
   score += bdySc;
   p += "BODY:" + ((bdySc>=0.6)?"+":"-") + " ";

// 6. SESSION
   double sesSc = IsSessionActive() ? 1.0 : 0.4;
   score += sesSc;
   p += "SES:" + ((sesSc>=0.7)?"+":"-");

double finalScore = MathMin(6.0, score);
   int rounded = (int)MathRound(finalScore);
   string scoreStr = IntegerToString(rounded) + "/6";

// ============================================================
   // FIXED DIRECTION: M1 HA takes priority over M5 HA
   // M1 = 70% weight, M5 = 30% weight
   // ============================================================
   string dir = "MIX";
   bool m1Bull = (g_haM1=="HA BULLISH 1");
   bool m1Bear = (g_haM1=="HA BEARISH 1");
   bool m5Bull = (g_haM5=="HA BULLISH 5");
   bool m5Bear = (g_haM5=="HA BEARISH 5");

if(m1Bull && m5Bull)       dir = "STRONG UP";
   else if(m1Bear && m5Bear)  dir = "STRONG DOWN";
   else if(m1Bull && m5Bear)  dir = "UP";    // M1 wins — fixed from "MIX"
   else if(m1Bear && m5Bull)  dir = "DOWN";  // M1 wins — fixed from "MIX"
   else if(m1Bull)            dir = "UP";
   else if(m1Bear)            dir = "DOWN";

detail = p + " | " + scoreStr + " " + dir;
   g_tfa_detail = detail;

return finalScore;
}

//+------------------------------------------------------------------+
// MICRO AI
//+------------------------------------------------------------------+
double CalcAdvancedMicroAI(){
   if(Bars<20) return 50.0; double score=50.0;
   for(int i=1;i<=5;i++){double r=High[i]-Low[i];if(r<=0)continue;
      double uw=(High[i]-MathMax(Open[i],Close[i]))/r,lw=(MathMin(Open[i],Close[i])-Low[i])/r,w=(6.0-i)/5.0;
      if(uw>0.60)score-=w*15; if(lw>0.60)score+=w*15;}
   double pos5=0; for(int i=1;i<=5;i++){double r=High[i]-Low[i];if(r<=0)continue;pos5+=(Close[i]-Low[i])/r;}
   score+=(pos5/5.0-0.5)*20.0;
   int gc=0,rc=0; for(int i=1;i<=8;i++){if(Close[i]>Open[i])gc++;else if(Close[i]<Open[i])rc++;} score+=(gc-rc)*2.5;
   double vl1=(double)iVolume(NULL,PERIOD_M1,1),vA=0;
   for(int i=2;i<=6;i++)vA+=iVolume(NULL,PERIOD_M1,i);vA/=5.0;
   if(vA>0){double vr=vl1/vA;if(vr>1.5&&Close[1]>Open[1])score+=8;if(vr>1.5&&Close[1]<Open[1])score-=8;}
   double r1=iRSI(NULL,PERIOD_M1,14,PRICE_CLOSE,1),r5=iRSI(NULL,PERIOD_M1,14,PRICE_CLOSE,5);
   if(r1<35)score+=10;if(r1>65)score-=10;if(r1>r5&&Close[1]<Close[5])score+=6;if(r1<r5&&Close[1]>Close[5])score-=6;
   return MathMax(5.0,MathMin(95.0,score));
}

//+------------------------------------------------------------------+
// MICRO TRAP
//+------------------------------------------------------------------+
double VolumeTrapScore();
int CalcAdvancedMicroTrap(){
   if(Bars<20)return 0;int score=0;double r=High[1]-Low[1];
   if(r>0){double uw=(High[1]-MathMax(Open[1],Close[1]))/r,lw=(MathMin(Open[1],Close[1])-Low[1])/r;
      if(uw>0.65)score+=30;else if(uw>0.50)score+=15;if(lw>0.65)score+=20;else if(lw>0.50)score+=10;}
   double v1=(double)iVolume(NULL,PERIOD_M1,1),v2=(double)iVolume(NULL,PERIOD_M1,2);
   if(v2>0&&v1/v2>2.0)score+=25;else if(v2>0&&v1/v2>1.5)score+=12;
   double rsi=iRSI(NULL,PERIOD_M1,14,PRICE_CLOSE,1);
   if(rsi>78||rsi<22)score+=20;else if(rsi>72||rsi<28)score+=10;
   if((High[1]>g_nearest_res&&Close[1]<g_nearest_res)||(Low[1]<g_nearest_sup&&Close[1]>g_nearest_sup))score+=25;
   bool aG=(Close[1]>Open[1]&&Close[2]>Open[2]&&Close[3]>Open[3]),aR=(Close[1]<Open[1]&&Close[2]<Open[2]&&Close[3]<Open[3]);
   if(aG||aR)score+=15;
   double sp=(double)MarketInfo(Symbol(),MODE_SPREAD);if(sp>BROKER_SPREAD_THRESHOLD*1.5)score+=10;
   score+=(int)VolumeTrapScore();return MathMin(100,score);
}

//+------------------------------------------------------------------+
// FRACTAL
//+------------------------------------------------------------------+
double CalcAdvancedFractal(){
   if(Bars<15)return 0;double score=0;
   for(int i=2;i<=8&&i+2<Bars;i++){
      if(High[i]>High[i-1]&&High[i]>High[i-2]&&High[i]>High[i+1]&&High[i]>High[i+2]){double d=(High[i]-Close[0])/Point;if(d<50&&d>-10)score+=35;}
      if(Low[i]<Low[i-1]&&Low[i]<Low[i-2]&&Low[i]<Low[i+1]&&Low[i]<Low[i+2]){double d=(Close[0]-Low[i])/Point;if(d<50&&d>-10)score+=25;}}
   int dj=0;for(int i=1;i<=6;i++){double b=MathAbs(Close[i]-Open[i]),rg=High[i]-Low[i];if(rg>0&&b<rg*0.20)dj++;}
   if(dj>=3)score+=25;
   double r1=High[1]-Low[1];if(r1>0){double uw1=(High[1]-MathMax(Open[1],Close[1]))/r1,lw1=(MathMin(Open[1],Close[1])-Low[1])/r1;if(uw1>0.70||lw1>0.70)score+=20;}
   return MathMin(100,score);
}

//+------------------------------------------------------------------+
// MARKET BIAS
//+------------------------------------------------------------------+
string CalcAdvancedMarketBias(color &bC,double brain,double rsc){
   if(Bars<30){bC=NEON_YELLOW;return "CALCULATING";}
   double score=0;bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;
   double pc=Close[0]-Close[10];
   if(pc>5*pip)score+=4;else if(pc>2*pip)score+=2;else if(pc<-5*pip)score-=4;else if(pc<-2*pip)score-=2;
   double hh1=High[iHighest(NULL,PERIOD_M1,MODE_HIGH,5,1)],hh2=High[iHighest(NULL,PERIOD_M1,MODE_HIGH,5,6)];
   double ll1=Low[iLowest(NULL,PERIOD_M1,MODE_LOW,5,1)],ll2=Low[iLowest(NULL,PERIOD_M1,MODE_LOW,5,6)];
   if(hh1>hh2&&ll1>ll2)score+=4;else if(hh1<hh2&&ll1<ll2)score-=4;else if(hh1>hh2)score+=2;else if(hh1<hh2)score-=2;
   double ema20=0,ema20p=0;for(int i=0;i<20;i++)ema20+=Close[i];ema20/=20;
   for(int i=1;i<=20&&i<Bars;i++)ema20p+=Close[i];ema20p/=20;
   if(ema20>ema20p)score+=3;else if(ema20<ema20p)score-=3;
   double ema50=0;for(int i=0;i<50&&i<Bars;i++)ema50+=Close[i];ema50/=MathMin(50,Bars);
   if(ema20>ema50)score+=3;else score-=3;
   int gC=0,rC=0;for(int i=1;i<=10;i++){if(Close[i]>Open[i])gC++;else if(Close[i]<Open[i])rC++;}
   if(gC>=7)score+=3;else if(rC>=7)score-=3;else if(gC>=5)score+=1;else if(rC>=5)score-=1;
   bool m1B=(g_haM1=="HA BULLISH 1"),m1Be=(g_haM1=="HA BEARISH 1"),m5B=(g_haM5=="HA BULLISH 5"),m5Be=(g_haM5=="HA BEARISH 5");
   if(m1B&&m5B)score+=4;else if(m1Be&&m5Be)score-=4;else if(m1B)score+=2;else if(m1Be)score-=2;
   double adx=iADX(NULL,PERIOD_M1,14,PRICE_CLOSE,MODE_MAIN,1),pDI=iADX(NULL,PERIOD_M1,14,PRICE_CLOSE,MODE_PLUSDI,1),mDI=iADX(NULL,PERIOD_M1,14,PRICE_CLOSE,MODE_MINUSDI,1);
   if(adx>20){if(pDI>mDI+5)score+=4;else if(mDI>pDI+5)score-=4;}
   if(brain>3)score-=2;else if(brain<-3)score+=2;
   if(Close[1]>Open[1])score+=1;else if(Close[1]<Open[1])score-=1;
   if(rsc>2)score+=1;else if(rsc<-2)score-=1;
   
   if(score>=12){bC=NEON_GREEN;return "STRONG BULL";}
   if(score>=7){bC=NEON_GREEN;return "BULLISH";}
   if(score>=3){bC=NEON_CYAN;return "LIGHT BULL";}
   if(score<=-12){bC=NEON_RED;return "STRONG BEAR";}
   if(score<=-7){bC=NEON_RED;return "BEARISH";}
   if(score<=-3){bC=NEON_ORANGE;return "LIGHT BEAR";}
   bC=NEON_YELLOW;return "NEUTRAL";
}

//+------------------------------------------------------------------+
// ADVANCED PREDICTION
//+------------------------------------------------------------------+
void CalcAdvancedPrediction(double &gP, double &rP, string &reason, color &pC){
   if(Bars < 50){
      gP = 50; rP = 50; reason = "Bars low"; pC = NEON_YELLOW;
      return;
   }
   
   double green = 0, red = 0;
   
   // 1. MOMENTUM TRAP (Weight 20)
   double body1 = MathAbs(Close[1] - Open[1]);
   double range1 = High[1] - Low[1];
   double wick_ratio = (range1 > 0) ? (range1 - body1) / range1 : 0;
   if(wick_ratio > 0.70 && Close[1] > Open[1]) red += 20;
   else if(wick_ratio > 0.70 && Close[1] < Open[1]) green += 20;
   else if(wick_ratio > 0.55){
      if(Close[1] > Open[1]) red += 10;
      else green += 10;
   }
   
   // 2. RSI + CCI COMBO (Weight 15)
   double rsi = iRSI(NULL, PERIOD_M1, 14, PRICE_CLOSE, 1);
   double cci = iCCI(NULL, PERIOD_M1, 14, PRICE_TYPICAL, 1);
   if(rsi < 30 && cci < -120) green += 15;
   else if(rsi > 70 && cci > 120) red += 15;
   else if(rsi < 40 && cci < -80) green += 8;
   else if(rsi > 60 && cci > 80) red += 8;
   
   double rsiPrev = iRSI(NULL, PERIOD_M1, 14, PRICE_CLOSE, 2);
   double low1 = Low[iLowest(NULL, PERIOD_M1, MODE_LOW, 5, 1)];
   double low2 = Low[iLowest(NULL, PERIOD_M1, MODE_LOW, 5, 6)];
   if(low1 < low2 && rsi > rsiPrev) green += 8;
   if(low1 > low2 && rsi < rsiPrev) red += 8;
   
   // 3. VOLUME SPIKE + BROKER REVERSE (Weight 18)
   double v1 = iVolume(NULL, PERIOD_M1, 1);
   double vAvg = 0;
   for(int i=2; i<=10; i++) vAvg += iVolume(NULL, PERIOD_M1, i);
   vAvg = (vAvg > 0) ? vAvg / 9.0 : 1.0;
   double vol_ratio = (vAvg > 0) ? v1 / vAvg : 1.0;
   if(vol_ratio > 2.0){
      if(Close[1] > Open[1]) red += 18;
      else green += 18;
   } else if(vol_ratio > 1.5){
      if(Close[1] > Open[1]) red += 10;
      else green += 10;
   } else if(vol_ratio > 1.2){
      if(Close[1] > Open[1]) green += 5;
      else red += 5;
   }
   
   // 4. 3-CANDLE PATTERNS (Weight 12)
   bool hammer = (Low[1] == Low[iLowest(NULL, PERIOD_M1, MODE_LOW, 3, 1)] && Close[1] > Open[1]);
   bool shooting_star = (High[1] == High[iHighest(NULL, PERIOD_M1, MODE_HIGH, 3, 1)] && Close[1] < Open[1]);
   if(hammer) green += 12;
   if(shooting_star) red += 12;
   
   // 5. ADX + DI (Weight 12)
   double adx = iADX(NULL, PERIOD_M1, 14, PRICE_CLOSE, MODE_MAIN, 1);
   double plusDI = iADX(NULL, PERIOD_M1, 14, PRICE_CLOSE, MODE_PLUSDI, 1);
   double minusDI = iADX(NULL, PERIOD_M1, 14, PRICE_CLOSE, MODE_MINUSDI, 1);
   if(adx > 25){
      if(plusDI > minusDI + 5) green += 12;
      else if(minusDI > plusDI + 5) red += 12;
      else if(plusDI > minusDI) green += 6;
      else red += 6;
   } else {
      if(plusDI > minusDI) green += 4;
      else red += 4;
   }
   
   // 6. HEIKEN ASHI M1 + M5 (Weight 10)
   double m1_haC1 = (Open[1]+High[1]+Low[1]+Close[1])/4.0;
   double m1_haC2 = (Open[2]+High[2]+Low[2]+Close[2])/4.0;
   double m1_haO2_apx = (Open[3]+Close[3])/2.0;
   double m1_haO1 = (m1_haO2_apx + m1_haC2)/2.0;
   bool haBull1 = (m1_haC1 > m1_haO1);
   
   double m5_o1 = iOpen(NULL,PERIOD_M5,1);
   double m5_h1 = iHigh(NULL,PERIOD_M5,1);
   double m5_l1 = iLow(NULL,PERIOD_M5,1);
   double m5_c1 = iClose(NULL,PERIOD_M5,1);
   double m5_o2 = iOpen(NULL,PERIOD_M5,2);
   double m5_h2 = iHigh(NULL,PERIOD_M5,2);
   double m5_l2 = iLow(NULL,PERIOD_M5,2);
   double m5_c2 = iClose(NULL,PERIOD_M5,2);
   double m5_o3 = iOpen(NULL,PERIOD_M5,3);
   double m5_c3 = iClose(NULL,PERIOD_M5,3);
   double m5_haC1 = (m5_o1+m5_h1+m5_l1+m5_c1)/4.0;
   double m5_haC2 = (m5_o2+m5_h2+m5_l2+m5_c2)/4.0;
   double m5_haO2_apx = (m5_o3+m5_c3)/2.0;
   double m5_haO1 = (m5_haO2_apx + m5_haC2)/2.0;
   bool haBull5 = (m5_haC1 > m5_haO1);
   
   // M1 gets 70% weight, M5 gets 30%
   if(haBull1 && haBull5)  green += 10;
   else if(!haBull1 && !haBull5) red += 10;
   else if(haBull1 && !haBull5){ green += 7; red += 3; }  // M1 BULL wins
   else if(!haBull1 && haBull5){ red += 7; green += 3; }  // M1 BEAR wins
   
   // 7. QUICK S/R + GLOBAL LEVELS (Weight 8+5)
   bool jpy = (StringFind(Symbol(), "JPY") >= 0);
   double pip = jpy ? 0.01 : 0.0001;
   double sup = Low[iLowest(NULL, PERIOD_M1, MODE_LOW, 20, 2)];
   double res = High[iHighest(NULL, PERIOD_M1, MODE_HIGH, 20, 2)];
   if(Close[1] > res - 3*pip) red += 8;
   if(Close[1] < sup + 3*pip) green += 8;
   if(g_nearest_res > 0 && (g_nearest_res - Close[0]) < 6*pip) red += 5;
   if(g_nearest_sup > 0 && (Close[0] - g_nearest_sup) < 6*pip) green += 5;
   
   // 8. STOCHASTIC + MACD (Weight 5)
   double stochK = iStochastic(NULL, PERIOD_M1, 5, 3, 3, MODE_SMA, 0, MODE_MAIN, 1);
   if(stochK < 20) green += 5;
   else if(stochK > 80) red += 5;
   double macdMain = iMACD(NULL, PERIOD_M1, 12, 26, 9, PRICE_CLOSE, MODE_MAIN, 1);
   double macdSig = iMACD(NULL, PERIOD_M1, 12, 26, 9, PRICE_CLOSE, MODE_SIGNAL, 1);
   if(macdMain > macdSig) green += 3;
   else if(macdMain < macdSig) red += 3;
   
   // 9. OTC CROWD TRAP (Weight 15)
   if(g_otcCallPct >= 70 && !haBull1) red += 15;
   else if(g_otcPutPct >= 70 && haBull1) green += 15;
   
   // 10. TFA SYNC (Weight 5)
   string tfaDir = "";
   double tfaScore = CalcAdvancedTFA(tfaDir);
   if(tfaScore >= 4.5){
      if(StringFind(tfaDir, "UP") >= 0) green += 5;
      else if(StringFind(tfaDir, "DOWN") >= 0) red += 5;
   }
   
   // FINAL SCORE
   double diff = MathMax(-100.0, MathMin(100.0, green - red));
   gP = MathMax(8.0, MathMin(92.0, 50.0 + diff * 0.7));
   rP = 100.0 - gP;
   double dom = MathMax(gP, rP);
   if(dom >= 85){
      reason = (gP > rP) ? "STRONG GREEN" : "STRONG RED";
      pC = (gP > rP) ? NEON_GREEN : NEON_RED;
   } else if(dom >= 75){
      reason = (gP > rP) ? "GREEN" : "RED";
      pC = (gP > rP) ? NEON_GREEN : NEON_RED;
   } else if(dom >= 62){
      reason = (gP > rP) ? "WEAK GREEN" : "WEAK RED";
      pC = (gP > rP) ? NEON_CYAN : NEON_ORANGE;
   } else {
      reason = "WAIT";
      pC = NEON_YELLOW;
   }
}

//+------------------------------------------------------------------+
// STRATEGY DETECTION
//+------------------------------------------------------------------+
string DetectMyStrategy(){
   int cc=g_otcCallPct,cp=g_otcPutPct,thr=STRATEGY_THRESHOLD;
   if(STRATEGY_MODE=="BOTH"||STRATEGY_MODE=="TRAP_ONLY"){
      if(cc>=thr&&g_haM1=="HA BEARISH 1"){g_strategyType="TRAP";g_strategySignal="PUT";g_strategyReason="CALL "+IntegerToString(cc)+"% + HA RED";return "PUT";}
      if(cp>=thr&&g_haM1=="HA BULLISH 1"){g_strategyType="TRAP";g_strategySignal="CALL";g_strategyReason="PUT "+IntegerToString(cp)+"% + HA GREEN";return "CALL";}}
   if(STRATEGY_MODE=="BOTH"||STRATEGY_MODE=="TREND_ONLY"){
      if(cc>=thr&&g_haM1=="HA BULLISH 1"){g_strategyType="TREND";g_strategySignal="CALL";g_strategyReason="CALL "+IntegerToString(cc)+"% + HA GREEN";return "CALL";}
      if(cp>=thr&&g_haM1=="HA BEARISH 1"){g_strategyType="TREND";g_strategySignal="PUT";g_strategyReason="PUT "+IntegerToString(cp)+"% + HA RED";return "PUT";}}
   g_strategyType="NONE";g_strategySignal="WAIT";g_strategyReason="Wait "+IntegerToString(thr)+"% + HA";return "WAIT";
}

//+------------------------------------------------------------------+
// OTC CROWD
//+------------------------------------------------------------------+
void CalcOTCCrowd(){
   int cS=0,pS=0;
   for(int i=1;i<=15&&i<Bars;i++){double rg=High[i]-Low[i];if(rg<=0)continue;
      double uw=(High[i]-MathMax(Open[i],Close[i]))/rg,lw=(MathMin(Open[i],Close[i])-Low[i])/rg;
      if(uw>0.70&&Close[i]<Open[i])cS+=4;if(lw>0.70&&Close[i]>Open[i])pS+=4;
      if(uw>0.55&&Close[i]<Open[i])cS+=2;if(lw>0.55&&Close[i]>Open[i])pS+=2;
      if(Close[i]>Open[i])cS+=1;else if(Close[i]<Open[i])pS+=1;}
   int tot=cS+pS;if(tot==0){g_otcCallPct=50;g_otcPutPct=50;}
   else{int rC=(int)(cS*100.0/tot),rP=100-rC;
      if(rC>=rP){g_otcCallPct=MathMax(50,rC);g_otcPutPct=100-g_otcCallPct;}
      else{g_otcPutPct=MathMax(50,rP);g_otcCallPct=100-g_otcPutPct;}}
}

//+------------------------------------------------------------------+
// BRAIN SCORE
//+------------------------------------------------------------------+
double BrainSc(int &cp){
   double s=0;bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;
   double sup=Low[iLowest(NULL,PERIOD_M1,MODE_LOW,LB,1)],res=High[iHighest(NULL,PERIOD_M1,MODE_HIGH,LB,1)];
   double bH=MathMax(Open[1],Close[1]),bL=MathMin(Open[1],Close[1]);
   if(High[1]>res&&bL<res)s-=4;if(Low[1]<sup&&bH>sup)s+=4;
   if(High[0]>res)s-=2;if(Low[0]<sup)s+=2;
   double atr=iATR(NULL,PERIOD_M1,14,1);
   if(atr!=0){double cn=(High[1]-Low[1])/atr,v1=(double)iVolume(NULL,PERIOD_M1,1),va=0;
      for(int i=2;i<=10;i++)va+=iVolume(NULL,PERIOD_M1,i);va/=9.0;
      double vr=va>0?v1/va:1;if(cn>1.2&&vr>1.5){if(Close[1]>Open[1])s-=3;else s+=3;}}
   int c=0;for(int i=1;i<=30;i++)if(Close[i]>Open[i])c++;
   cp=(int)(c*100.0/30.0);if(cp>=70)s-=5;if(cp<=30)s+=5;s*=1.5;
   int dj=0;for(int i=1;i<=8;i++){double bd=MathAbs(Close[i]-Open[i]),rg=High[i]-Low[i];if(rg<=0)continue;
      if(bd<rg*0.2)dj++;double uw=High[i]-MathMax(Open[i],Close[i]),lw=MathMin(Open[i],Close[i])-Low[i];
      if(uw>bd*3)s+=2;if(lw>bd*3)s-=2;}if(dj>=4)s*=1.5;
   int bu=0,be=0;for(int i=1;i<=8;i++){if(Close[i]>Open[i]){bu++;be=0;}else{be++;bu=0;}if(bu>=5)s-=3;if(be>=5)s+=3;}
   int h=TimeHour(TimeCurrent());double mul=1.0;
   if((h>=0&&h<=2)||(h>=8&&h<=11)||(h>=14&&h<=17))mul=1.20;if(h>=3&&h<=7)mul=0.90;
   return s*mul;
}

//+------------------------------------------------------------------+
// MICRO WICK
//+------------------------------------------------------------------+
double MicroWick(){double r=High[1]-Low[1];if(r<=0)return 0;return((High[1]-MathMax(Open[1],Close[1]))+(MathMin(Open[1],Close[1])-Low[1]))/r;}

//+------------------------------------------------------------------+
// VOLUME TRAP
//+------------------------------------------------------------------+
double VolumeTrapScore(){
   if(!VOLUME_PROFILE_TRAP||Bars<50)return 0;
   double cur=Close[0],hi=High[iHighest(NULL,0,MODE_HIGH,50,1)],lo=Low[iLowest(NULL,0,MODE_LOW,50,1)];
   double rg=hi-lo;if(rg<=0)return 0;int zn=5;double zs=rg/zn;double vz[5]={0,0,0,0,0};int zc[5]={0,0,0,0,0};
   for(int i=1;i<=50;i++){double p=Close[i];int z=(int)((p-lo)/zs);if(z<0)z=0;if(z>=zn)z=zn-1;vz[z]+=Volume[i];zc[z]++;}
   for(int z=0;z<zn;z++)if(zc[z]>0)vz[z]/=zc[z];
   int cz=(int)((cur-lo)/zs);if(cz<0)cz=0;if(cz>=zn)cz=zn-1;
   double vr=(double)Volume[1]/(vz[cz]+0.001);double wr=MicroWick();
   if(vr>2.0&&wr>0.65)return 25;if(vr>1.8&&wr>0.55)return 15;return 0;
}

//+------------------------------------------------------------------+
// ULTIMATE TRAP SCORE
//+------------------------------------------------------------------+
double UltimateTrapScore(){double wr=MicroWick(),v1=(double)iVolume(NULL,PERIOD_M1,1),v2=(double)iVolume(NULL,PERIOD_M1,2);
   double avg=v2>0?v2:1.0,vr=v1/avg,rsi=iRSI(NULL,PERIOD_M1,14,PRICE_CLOSE,1),sc=0.0;
   if(wr>0.65)sc+=40;if(vr>2.0)sc+=30;if(rsi>75||rsi<25)sc+=20;
   if((High[1]>g_nearest_res&&Close[1]<g_nearest_res)||(Low[1]<g_nearest_sup&&Close[1]>g_nearest_sup))sc+=25;
   sc+=VolumeTrapScore();return MathMin(100.0,sc);}

//+------------------------------------------------------------------+
// BROKER FORCE
//+------------------------------------------------------------------+
bool IsBrokerForce(double dummy=0){
   int sd=0;for(int i=1;i<=3;i++){if(Close[i]>Open[i])sd++;else sd--;}
   double v1=(double)iVolume(NULL,PERIOD_M1,1),v2=(double)iVolume(NULL,PERIOD_M1,2);
   double sp=(double)MarketInfo(Symbol(),MODE_SPREAD);
   return(MathAbs(sd)==3&&v1>v2*2.0&&sp>BROKER_SPREAD_THRESHOLD);
}

//+------------------------------------------------------------------+
// NEURAL NETWORK
//+------------------------------------------------------------------+
double NeuralBiasFast(){double r=NeuralBias(0)*0.3+NeuralBias(1)*0.7;if(r>96)r=96;if(r<4)r=4;return r;}
double NeuralBias(int s){
   double f[8];f[0]=fDoji(s)/100.0;f[1]=fWick(s)/100.0;f[2]=fVol()/100.0;f[3]=fMom(s)/100.0;
   f[4]=fSpread()/100.0;f[5]=fMem(s)/100.0;f[6]=fTick(s)/100.0;f[7]=fFrac(s)/100.0;
   double h[4]={0,0,0,0};for(int i=0;i<4;i++){for(int j=0;j<8;j++)h[i]+=f[j]*NW[j*4+i];h[i]=MathMax(0,h[i]-0.08);}
   double o=0;for(int i=0;i<4;i++)o+=h[i]*NW[32+i];double r=50.0+o*22.0;return r>96?96:r<4?4:r;
}
double fDoji(int s){int n=0;for(int i=s;i<s+5&&i<Bars;i++){double b=MathAbs(Open[i]-Close[i]),r=High[i]-Low[i];if(r>0&&b<r*0.25)n++;}return n*20.0;}
double fWick(int s){double r=High[s]-Low[s];if(r==0)return 0;double u=(High[s]-MathMax(Open[s],Close[s]))/r,l=(MathMin(Open[s],Close[s])-Low[s])/r;return(u>0.65||l>0.65)?95:(u>0.5||l>0.5)?70:0;}
double fVol(){if(Bars<11)return 0;double a=0;for(int i=1;i<=10;i++)a+=iVolume(NULL,PERIOD_M1,i);a/=10.0;if(a==0)return 0;double r=(double)iVolume(NULL,PERIOD_M1,0)/a;return r>3?95:r>2?75:r>1.5?50:0;}
double fMom(int s){if(s+3>=Bars)return 0;return((Close[s]>Open[s]&&Close[s+1]<Open[s+1])||(Close[s]<Open[s]&&Close[s+1]>Open[s+1]))?88:0;}
double fSpread(){double sp=(double)MarketInfo(Symbol(),MODE_SPREAD);return sp>8?90:sp>5?70:sp>3?40:0;}
double fMem(int s){if(s+8>=Bars)return 0;int r=0;for(int i=s;i<s+8&&i+2<Bars;i+=2){bool vB=(Low[i]>Low[i+1]&&Low[i+2]>Low[i+1]&&Close[i+2]>Open[i+2]);bool aT=(High[i]<High[i+1]&&High[i+2]<High[i+1]&&Close[i+2]<Open[i+2]);if(vB||aT)r++;}return(double)r*12.5;}
double fTick(int s){if(s+5>=Bars)return 0;double vN=(double)iVolume(NULL,PERIOD_M1,s),vP=(double)iVolume(NULL,PERIOD_M1,s+1);if(vP==0)return 0;double vR=vN/vP,pc=MathAbs(Close[s]-Close[s+1])/Close[s+1]*100;if(vR>2.0&&pc<0.1)return 85;if(vR>1.5&&pc<0.05)return 60;return 0;}
double fFrac(int s){if(s+4>=Bars||s<2)return 0;bool b=(Low[s]<Low[s-1]&&Low[s]<Low[s-2]&&Low[s]<Low[s+1]&&Low[s]<Low[s+2]);bool t=(High[s]>High[s-1]&&High[s]>High[s-2]&&High[s]>High[s+1]&&High[s]>High[s+2]);return(b||t)?90:0;}

//+------------------------------------------------------------------+
// MAIN PREDICTION
//+------------------------------------------------------------------+
void CalcPrediction(double brain,double nb,int cp,double mai,int mts,double rsc,bool bf,double mw){
   string ms=DetectMyStrategy();bool sA=(ms!="WAIT");
   
   if(sA&&g_strategyType=="TRAP"){
      if(ms=="PUT"){g_gProb=12.0;g_rProb=88.0;g_pAction="PUT TRAP!";g_pColor=NEON_PURPLE;g_calc_gProb=g_gProb;g_calc_rProb=g_rProb;g_calc_pAction=g_pAction;g_calc_pColor=g_pColor;return;}
      if(ms=="CALL"){g_gProb=88.0;g_rProb=12.0;g_pAction="CALL TRAP!";g_pColor=NEON_PURPLE;g_calc_gProb=g_gProb;g_calc_rProb=g_rProb;g_calc_pAction=g_pAction;g_calc_pColor=g_pColor;return;}}
   
   double tS=UltimateTrapScore();bool bF2=IsBrokerForce();
   
   if(TRADE_MODE=="HUNT"){if(tS<85){g_gProb=50;g_rProb=50;g_pAction="HUNT: WAIT";g_pColor=NEON_YELLOW;g_calc_gProb=50;g_calc_rProb=50;g_calc_pAction=g_pAction;g_calc_pColor=g_pColor;return;}}
   
   if(ENABLE_BROKER_KILLER&&(tS>=85||(tS>=75&&bF2))&&g_marketMode!="TREND"){g_gProb=15;g_rProb=85;g_pAction="TRAP DETECTED";g_pColor=NEON_PURPLE;g_calc_gProb=15;g_calc_rProb=85;g_calc_pAction=g_pAction;g_calc_pColor=g_pColor;return;}
   
   double gS=0,rS=0,ab=MathMax(0.70,MathMin(1.30,g_accuracy/65.0));
   
   if(IsSidewaysMarket()){bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;
      bool nR=(g_nearest_res>0&&(g_nearest_res-Close[0])<8*pip),nS=(g_nearest_sup>0&&(Close[0]-g_nearest_sup)<8*pip);
      if(!nR&&!nS){g_gProb=50;g_rProb=50;g_pAction="SIDEWAYS";g_pColor=NEON_YELLOW;g_calc_gProb=50;g_calc_rProb=50;g_calc_pAction=g_pAction;g_calc_pColor=g_pColor;return;}
      if(nR)rS+=20;if(nS)gS+=20;}
   
   if(sA&&g_strategyType=="TREND"){double sw=50.0;if(ms=="CALL"){gS+=sw*ab;g_pAction="TREND: CALL!";g_pColor=NEON_GREEN;}else if(ms=="PUT"){rS+=sw*ab;g_pAction="TREND: PUT!";g_pColor=NEON_RED;}}
   
   if(g_haM1=="HA BULLISH 1"&&g_haM5=="HA BULLISH 5")gS+=60;
   else if(g_haM1=="HA BEARISH 1"&&g_haM5=="HA BEARISH 5")rS+=60;
   else if(g_haM1=="HA BULLISH 1")gS+=30;else if(g_haM1=="HA BEARISH 1")rS+=30;
   
   if(HA_ALIGN_FILTER && g_haBoth=="MIXED"){gS*=0.5;rS*=0.5;}
   
   gS+=(nb-50)/50.0*22*ab;rS-=(nb-50)/50.0*22*ab;
   
   double bn=MathMax(-1.0,MathMin(1.0,brain/10.0));gS+=bn*15*ab;rS-=bn*15*ab;
   
   bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;
   if(g_nearest_res>0&&(g_nearest_res-Close[0])<10*pip)rS+=12;
   if(g_nearest_sup>0&&(Close[0]-g_nearest_sup)<10*pip)gS+=12;
   
   double rsi1=iRSI(NULL,PERIOD_M1,14,PRICE_CLOSE,1);if(rsi1>70)rS+=6;if(rsi1<30)gS+=6;
   
   double sn=MathMax(-1.0,MathMin(1.0,rsc/3.0));gS+=sn*8*ab;rS-=sn*8*ab;
   
   double wRS=GetWickRejectSignal();gS+=(wRS>0?wRS:0);rS+=(wRS<0?MathAbs(wRS):0);
   double cPS=GetCommonPointSignal();gS+=(cPS>0?cPS:0);rS+=(cPS<0?MathAbs(cPS):0);
   
   int rd=DetectRSIDivergence();if(rd==1)gS+=20;if(rd==-1)rS+=20;
   int cp2=DetectClassicPatterns();if(cp2==1)gS+=12;if(cp2==-1)rS+=12;
   int qm=DetectQMR();if(qm==1)gS+=25;if(qm==-1)rS+=25;
   int sk=StreakReversalSignal();if(sk==1)gS+=18;if(sk==-1)rS+=18;
   
   double adxV=GetADXStrength();int adxD=GetADXDirection();if(adxV>25){if(adxD==1)gS+=12;if(adxD==-1)rS+=12;}if(adxV<15){gS*=0.7;rS*=0.7;}
   
   int vs=SmartVolumeSignal();if(vs==1)gS+=12;if(vs==-1)rS+=12;
   
   if(!IsVolatilityGood()){gS*=0.5;rS*=0.5;}
   
   double diff=MathMax(-100.0,MathMin(100.0,gS-rS));
   g_gProb=MathMax(8.0,MathMin(92.0,50.0+(diff/1.8)));g_rProb=100.0-g_gProb;
   
   if(sA&&g_strategyType=="TREND"){
      if(ms=="CALL"){g_gProb=MathMax(g_gProb,85.0);g_rProb=100.0-g_gProb;}
      if(ms=="PUT"){g_rProb=MathMax(g_rProb,85.0);g_gProb=100.0-g_rProb;}
      g_gProb=MathMin(92.0,MathMax(8.0,g_gProb));g_rProb=100.0-g_gProb;}
   
   double dom=MathMax(g_gProb,g_rProb);
   if(dom>=82){if(g_gProb>g_rProb){if(!sA){g_pAction="GREEN";g_pColor=NEON_GREEN;}}else{if(!sA){g_pAction="RED";g_pColor=NEON_RED;}}}
   else if(dom>=75){if(g_gProb>g_rProb){if(!sA){g_pAction="GREEN";g_pColor=NEON_CYAN;}}else{if(!sA){g_pAction="RED";g_pColor=NEON_ORANGE;}}}
   else{if(!sA){g_pAction="WAIT";g_pColor=NEON_YELLOW;}}
   
   g_calc_gProb=g_gProb;g_calc_rProb=g_rProb;g_calc_pAction=g_pAction;g_calc_pColor=g_pColor;
}

//+------------------------------------------------------------------+
// COMMON POINTS & WICK REJECTIONS
//+------------------------------------------------------------------+
void DetectCommonPoints(){
   if(!SHOW_COMMON_POINTS){g_commonCount=0;return;}
   if(Time[0]==g_lastCommonScan)return;g_lastCommonScan=Time[0];g_commonCount=0;
   datetime nowBar=Time[0];int periodSec=PeriodSeconds(PERIOD_M1);
   double m5h=iHigh(NULL,PERIOD_M5,iHighest(NULL,PERIOD_M5,MODE_HIGH,10,1));
   double m5l=iLow(NULL,PERIOD_M5,iLowest(NULL,PERIOD_M5,MODE_LOW,10,1));
   if(m5l>0&&g_commonCount<MAX_COMMON_PTS){g_commonPrice[g_commonCount]=m5l;g_commonTime[g_commonCount]=nowBar;g_commonType[g_commonCount]="CALL";g_commonExpire[g_commonCount]=nowBar+periodSec*120;g_commonCount++;}
   if(g_hrn_price>0&&g_hrn_is_sup&&g_commonCount<MAX_COMMON_PTS){g_commonPrice[g_commonCount]=g_hrn_price;g_commonTime[g_commonCount]=nowBar;g_commonType[g_commonCount]="CALL";g_commonExpire[g_commonCount]=nowBar+periodSec*120;g_commonCount++;}
   if(m5h>0&&g_commonCount<MAX_COMMON_PTS){g_commonPrice[g_commonCount]=m5h;g_commonTime[g_commonCount]=nowBar;g_commonType[g_commonCount]="PUT";g_commonExpire[g_commonCount]=nowBar+periodSec*120;g_commonCount++;}
   if(g_hrn_price>0&&!g_hrn_is_sup&&g_commonCount<MAX_COMMON_PTS){g_commonPrice[g_commonCount]=g_hrn_price;g_commonTime[g_commonCount]=nowBar;g_commonType[g_commonCount]="PUT";g_commonExpire[g_commonCount]=nowBar+periodSec*120;g_commonCount++;}
   for(int i=g_commonCount-1;i>=0;i--)if(TimeCurrent()>g_commonExpire[i]){for(int j=i;j<g_commonCount-1;j++){g_commonPrice[j]=g_commonPrice[j+1];g_commonTime[j]=g_commonTime[j+1];g_commonType[j]=g_commonType[j+1];g_commonExpire[j]=g_commonExpire[j+1];}g_commonCount--;}
}

void DrawCommonPoints(){
   for(int i=0;i<MAX_COMMON_PTS;i++){SafeDel(PFX+"COMMON_"+IntegerToString(i));SafeDel(PFX+"COMMON_L_"+IntegerToString(i));SafeDel(PFX+"COMMON_HL_"+IntegerToString(i));}
   if(!SHOW_COMMON_POINTS||g_commonCount==0)return;
   for(int i=0;i<g_commonCount;i++){if(TimeCurrent()>g_commonExpire[i])continue;if(IsLineNearby(g_commonPrice[i],8.0))continue;
      string id=PFX+"COMMON_"+IntegerToString(i),idL=PFX+"COMMON_L_"+IntegerToString(i),idH=PFX+"COMMON_HL_"+IntegerToString(i);color zc=DARK_BLUE_NEON;
      ObjectCreate(0,idH,OBJ_HLINE,0,0,g_commonPrice[i]);ObjectSetInteger(0,idH,OBJPROP_COLOR,zc);ObjectSetInteger(0,idH,OBJPROP_WIDTH,3);ObjectSetInteger(0,idH,OBJPROP_STYLE,STYLE_SOLID);ObjectSetInteger(0,idH,OBJPROP_BACK,false);
      ObjectCreate(0,id,OBJ_TEXT,0,Time[0],g_commonPrice[i]);ObjectSetText(id,"*",16,"Arial",zc);ObjectSetInteger(0,id,OBJPROP_BACK,false);
      string lbl=(g_commonType[i]=="CALL")?"^ CALL ZONE":"v PUT ZONE";
      ObjectCreate(0,idL,OBJ_TEXT,0,Time[0]+PeriodSeconds(PERIOD_M1)*3,g_commonPrice[i]);ObjectSetText(idL,lbl,9,"Arial Bold",zc);ObjectSetInteger(0,idL,OBJPROP_BACK,false);}
}

void DetectWickRejections(){
   g_isSideways=IsSidewaysMarket();if(!SHOW_WICK_REJECT_LINES){g_wickLineCount=0;return;}
   if(Time[0]==g_lastWickScan)return;g_lastWickScan=Time[0];
   bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;double zone=WICK_ZONE_PIPS*pip*2;double cur=Close[0];
   g_wickLineCount=0;datetime now=Time[0],expT=now+PeriodSeconds(PERIOD_M1)*WICK_EXPIRE_BARS*2;
   for(int i=1;i<=40&&i<Bars;i++){double rg=High[i]-Low[i];if(rg<=0)continue;
      double uw=High[i]-MathMax(Open[i],Close[i]),lw=MathMin(Open[i],Close[i])-Low[i];double rl=0;bool fd=false;
      if(uw>rg*0.30){rl=High[i];if(MathAbs(cur-rl)<zone*3)fd=true;}
      if(lw>rg*0.30){rl=Low[i];if(MathAbs(cur-rl)<zone*3)fd=true;}
      if(!fd)continue;bool ex=false;
      for(int j=0;j<g_wickLineCount;j++)if(MathAbs(g_wickLinePrice[j]-rl)<zone){g_wickLineTouches[j]++;ex=true;break;}
      if(!ex&&g_wickLineCount<MAX_WICK_LINES){g_wickLinePrice[g_wickLineCount]=rl;g_wickLineTouches[g_wickLineCount]=1;g_wickLineExpire[g_wickLineCount]=expT;g_wickLineCount++;}}
   for(int i=g_wickLineCount-1;i>=0;i--)if(TimeCurrent()>g_wickLineExpire[i]){for(int j=i;j<g_wickLineCount-1;j++){g_wickLinePrice[j]=g_wickLinePrice[j+1];g_wickLineTouches[j]=g_wickLineTouches[j+1];g_wickLineExpire[j]=g_wickLineExpire[j+1];}g_wickLineCount--;}
}

void DrawWickRejectLines(){
   for(int i=0;i<MAX_WICK_LINES;i++){SafeDel(PFX+"WICK_"+IntegerToString(i));SafeDel(PFX+"WICK_L_"+IntegerToString(i));}
   if(!SHOW_WICK_REJECT_LINES||!g_isSideways)return;
   bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;double cur=Close[0];
   for(int i=0;i<g_wickLineCount;i++){if(TimeCurrent()>g_wickLineExpire[i])continue;if(MathAbs(cur-g_wickLinePrice[i])/pip>20.0)continue;if(IsLineNearby(g_wickLinePrice[i],5.0))continue;
      string id=PFX+"WICK_"+IntegerToString(i),idL=PFX+"WICK_L_"+IntegerToString(i);color lc=C'0,180,255';
      ObjectCreate(0,id,OBJ_HLINE,0,0,g_wickLinePrice[i]);ObjectSetInteger(0,id,OBJPROP_COLOR,lc);ObjectSetInteger(0,id,OBJPROP_WIDTH,2);ObjectSetInteger(0,id,OBJPROP_STYLE,STYLE_DOT);ObjectSetInteger(0,id,OBJPROP_BACK,false);
      string lbl="W"+IntegerToString(g_wickLineTouches[i])+"x";
      ObjectCreate(0,idL,OBJ_TEXT,0,Time[0]+PeriodSeconds(PERIOD_M1)*2,g_wickLinePrice[i]);ObjectSetText(idL,lbl,8,"Arial Bold",lc);ObjectSetInteger(0,idL,OBJPROP_BACK,false);}
}

double GetWickRejectSignal(){if(!g_isSideways||g_wickLineCount==0)return 0;double sc=0;bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;
   for(int i=0;i<g_wickLineCount;i++){double d=MathAbs(Close[0]-g_wickLinePrice[i])/pip;bool iS=(g_wickLinePrice[i]<Close[0]);
      if(d<5){if(iS)sc+=15*g_wickLineTouches[i];else sc-=15*g_wickLineTouches[i];}else if(d<10){if(iS)sc+=8*g_wickLineTouches[i];else sc-=8*g_wickLineTouches[i];}}return MathMax(-40,MathMin(40,sc));}
double GetCommonPointSignal(){if(g_commonCount==0)return 0;double sc=0;bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;
   for(int i=0;i<g_commonCount;i++){if(TimeCurrent()>g_commonExpire[i])continue;double d=MathAbs(Close[0]-g_commonPrice[i])/pip;if(d<8){if(g_commonType[i]=="CALL")sc+=25;else sc-=25;}}return MathMax(-30,MathMin(30,sc));}

//+------------------------------------------------------------------+
// HIDDEN HTF LEVELS
//+------------------------------------------------------------------+
void DetectHiddenLevels(){g_htfLevelCount=0;bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;double curP=Close[0];
   double rU=MathCeil(curP/(10*pip))*(10*pip),rD=MathFloor(curP/(10*pip))*(10*pip);
   if(MathAbs(curP-rU)/pip<=15)AddLevel(rU,"ROUND","RESISTANCE",TimeCurrent(),8,true);
   if(MathAbs(curP-rD)/pip<=15)AddLevel(rD,"ROUND","SUPPORT",TimeCurrent(),8,true);
   DetectHTFLevels(PERIOD_M5,"M5",3,pip);DetectHTFLevels(PERIOD_M15,"M15",5,pip);DetectHTFLevels(PERIOD_M30,"M30",7,pip);DetectHTFLevels(PERIOD_H1,"H1",9,pip);
   SortLevelsByStrength();}

void DetectHTFLevels(ENUM_TIMEFRAMES tf,string tfN,int bS,double pip){int bars=MathMin(50,iBars(NULL,tf));if(bars<10)return;double curP=Close[0];
   for(int i=2;i<bars-2;i++){if(IsSwingHigh(tf,i,2)){double d=MathAbs(curP-iHigh(NULL,tf,i))/pip;if(d<=20)AddLevel(iHigh(NULL,tf,i),tfN,"RESISTANCE",iTime(NULL,tf,i),bS+(20-(int)d)/2,false);}
      if(IsSwingLow(tf,i,2)){double d=MathAbs(curP-iLow(NULL,tf,i))/pip;if(d<=20)AddLevel(iLow(NULL,tf,i),tfN,"SUPPORT",iTime(NULL,tf,i),bS+(20-(int)d)/2,false);}}}

bool IsSwingHigh(ENUM_TIMEFRAMES tf,int p,int lb){double h=iHigh(NULL,tf,p);for(int i=1;i<=lb;i++){if(p-i<0||p+i>=iBars(NULL,tf))return false;if(iHigh(NULL,tf,p-i)>=h||iHigh(NULL,tf,p+i)>=h)return false;}return true;}
bool IsSwingLow(ENUM_TIMEFRAMES tf,int p,int lb){double l=iLow(NULL,tf,p);for(int i=1;i<=lb;i++){if(p-i<0||p+i>=iBars(NULL,tf))return false;if(iLow(NULL,tf,p-i)<=l||iLow(NULL,tf,p+i)<=l)return false;}return true;}

void AddLevel(double price,string tf,string type,datetime time,int strength,bool isRound){if(g_htfLevelCount>=50)return;bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;
   for(int i=0;i<g_htfLevelCount;i++)if(MathAbs(g_htfLevels[i].price-price)/pip<5)return;
   g_htfLevels[g_htfLevelCount].price=price;g_htfLevels[g_htfLevelCount].timeframe=tf;g_htfLevels[g_htfLevelCount].type=type;g_htfLevels[g_htfLevelCount].time=time;g_htfLevels[g_htfLevelCount].strength=strength;g_htfLevels[g_htfLevelCount].isRoundNumber=isRound;g_htfLevelCount++;}

void SortLevelsByStrength(){for(int i=0;i<g_htfLevelCount-1;i++)for(int j=0;j<g_htfLevelCount-i-1;j++)if(g_htfLevels[j].strength<g_htfLevels[j+1].strength){HTFLevel tmp=g_htfLevels[j];g_htfLevels[j]=g_htfLevels[j+1];g_htfLevels[j+1]=tmp;}}

void DrawHiddenLevels(){for(int i=0;i<50;i++){SafeDel(PFX+"HTF_LEVEL_"+IntegerToString(i));SafeDel(PFX+"HTF_LEVEL_"+IntegerToString(i)+"_LBL");}
   int dc=MathMin(10,g_htfLevelCount);int drawn=0;
   for(int i=0;i<dc&&drawn<5;i++){bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;if(MathAbs(Close[0]-g_htfLevels[i].price)/pip>30)continue;if(IsLineNearby(g_htfLevels[i].price,5.0))continue;
      string nm=PFX+"HTF_LEVEL_"+IntegerToString(drawn);color lc=g_htfLevels[i].isRoundNumber?NEON_PURPLE:(StringFind(g_htfLevels[i].type,"SUPPORT")>=0?NEON_GREEN:NEON_RED);
      ObjectCreate(0,nm,OBJ_HLINE,0,0,g_htfLevels[i].price);ObjectSetInteger(0,nm,OBJPROP_COLOR,lc);ObjectSetInteger(0,nm,OBJPROP_WIDTH,1);ObjectSetInteger(0,nm,OBJPROP_STYLE,STYLE_DOT);ObjectSetInteger(0,nm,OBJPROP_BACK,false);
      string ln=nm+"_LBL";ObjectCreate(0,ln,OBJ_TEXT,0,Time[0],g_htfLevels[i].price);ObjectSetText(ln,StringFormat("%s %s S:%d",g_htfLevels[i].timeframe,g_htfLevels[i].type,g_htfLevels[i].strength),8,"Arial",lc);drawn++;}}

//+------------------------------------------------------------------+
// ============================================================
// HRN FIXED - CANDLE CLOSE BASED SHIFT
// ============================================================
// Key fix: Level sirf tab shift hoga jab HRN_CONFIRM_BARS
// number of COMPLETE (closed) candles level ke par close ho jaayein.
// Timer ticks count nahi honge. Har naya Time[0] = naya closed candle.
//+------------------------------------------------------------------+

// FIXED: Find best hidden round number near current price
double FindBestHRN(double curPrice){
   bool jpy = (StringFind(Symbol(),"JPY") >= 0);
   double pip = jpy ? 0.01 : 0.0001;
   double searchRange = RN_SEARCH_RANGE_PIPS * pip;
   
   double bestScore = -1.0;
   double bestLevel = 0.0;
   
   // Step 1: Check all round number levels within range
   // Major (100 pip steps), Minor (50 pip steps), Micro (10 pip steps)
   double steps[3];
   steps[0] = RN_MAJOR_STEP_PIPS * pip;
   steps[1] = RN_MINOR_STEP_PIPS * pip;
   steps[2] = RN_MICRO_STEP_PIPS * pip;
   int weights[3] = {10, 6, 3};
   
   for(int s = 0; s < 3; s++){
      if(steps[s] <= 0) continue;
      double lower = MathFloor(curPrice / steps[s]) * steps[s];
      double upper = lower + steps[s];
      
      double candidates[2];
      candidates[0] = lower;
      candidates[1] = upper;
      
      for(int c = 0; c < 2; c++){
         double lv = candidates[c];
         double dist = MathAbs(curPrice - lv);
         if(dist > searchRange) continue;
         
         // Count wick rejections at this level
         int rejCount = 0;
         for(int k = 0; k < g_rj_cnt; k++){
            if(MathAbs(g_rj[k].price - lv) < 5*pip){
               rejCount += g_rj[k].touches;
            }
         }
         
         // Score = round number weight + wick touches / distance
         double score = (double)weights[s] + (double)rejCount * 3.0;
         score /= (dist / pip + 1.0);
         
         if(score > bestScore){
            bestScore = score;
            bestLevel = lv;
         }
      }
   }
   
   // Step 2: Also check pure wick rejection levels (non-round but heavily tested)
   for(int k = 0; k < g_rj_cnt; k++){
      double lv = g_rj[k].price;
      double dist = MathAbs(curPrice - lv);
      if(dist > searchRange) continue;
      
      double score = (double)g_rj[k].touches * 5.0 / (dist / pip + 1.0);
      if(score > bestScore){
         bestScore = score;
         bestLevel = lv;
      }
   }
   
   // Fallback: nearest 10-pip round number
   if(bestLevel <= 0.0){
      bestLevel = MathRound(curPrice / (10*pip)) * (10*pip);
   }
   
   return bestLevel;
}

// FIXED: UpdateHRN — candle close based, not timer based
void UpdateHRN(){
   if(Bars < LOOKBACK+5) return;
   
   // Scan for wick rejections (once per candle)
   if(Time[0] != g_hrn_scan_bar){
      ScanHRNLevels();
      g_hrn_scan_bar = Time[0];
   }
   
   bool jpy = (StringFind(Symbol(),"JPY") >= 0);
   double pip = jpy ? 0.01 : 0.0001;
   double cur = Close[0];
   int dg = (int)MarketInfo(Symbol(),MODE_DIGITS);
   if(dg <= 0) dg = 5;
   
   // Initialize first level
   if(g_hrn_price == 0){
      g_hrn_price = FindBestHRN(cur);
      g_hrn_is_sup = (cur > g_hrn_price);
      g_hrn_brk_bars = 0;
      g_hrn_pending = false;
      g_hrn_last_candle = Time[1]; // Start from last closed candle
   }
   
   // ===========================================================
   // CORE FIX: Count only NEW CLOSED candles (Time[1] changes)
   // ===========================================================
   // Time[1] = last fully closed candle's open time
   // When a new candle forms, Time[1] becomes the previous Time[0]
   
   datetime lastClosed = Time[1]; // Most recently closed candle
   
   if(lastClosed != g_hrn_last_candle){
      // A new candle has closed — check if it closed beyond HRN level
      g_hrn_last_candle = lastClosed;
      
      double closedPrice = Close[1]; // Price of the just-closed candle
      bool closedAbove = (closedPrice > g_hrn_price + 2*pip);
      bool closedBelow = (closedPrice < g_hrn_price - 2*pip);
      
      bool isBreaking = false;
      if(g_hrn_is_sup && closedBelow)  isBreaking = true;  // Support broken downward
      if(!g_hrn_is_sup && closedAbove) isBreaking = true;  // Resistance broken upward
      
      if(isBreaking){
         g_hrn_brk_bars++;
         
         if(g_hrn_brk_bars >= HRN_CONFIRM_BARS){
            // CONFIRMED BREAK — now find new level
            double newLevel = FindBestHRN(cur);
            
            // Only update if new level is meaningfully different
            if(MathAbs(newLevel - g_hrn_price) > 3*pip){
               g_hrn_price = newLevel;
               g_hrn_is_sup = (cur > g_hrn_price);
               g_hrn_brk_bars = 0;
               g_hrn_pending = false;
            }
         }
      } else {
         // Candle closed back on same side — reset break counter
         g_hrn_brk_bars = 0;
         g_hrn_pending = false;
      }
   }
   
   // Draw HRN line
   g_hrn_str = DoubleToString(NormalizeDouble(g_hrn_price, dg), dg);
   g_hrn_type_str = g_hrn_is_sup ? "SUP" : "RES";
   
   // Line color changes when break is in progress
   color lineColor = NEON_PINK;
   if(g_hrn_brk_bars > 0) lineColor = NEON_ORANGE; // Showing break in progress
   
   DrawHLine(PFX+"HRN_LINE", g_hrn_price, lineColor, 3, STYLE_SOLID);
   
   string ln = PFX+"HRN_LBL";
   SafeDel(ln);
   ObjectCreate(0, ln, OBJ_TEXT, 0, Time[0]+Period()*60*2, g_hrn_price);
   
   string lbl = "HRN " + g_hrn_type_str + " " + g_hrn_str;
   if(g_hrn_brk_bars > 0)
      lbl += " [BRK " + IntegerToString(g_hrn_brk_bars) + "/" + IntegerToString(HRN_CONFIRM_BARS) + "]";
   
   ObjectSetText(ln, lbl, 9, "Arial Bold", lineColor);
   ObjectSetInteger(0, ln, OBJPROP_BACK, false);
}

//+------------------------------------------------------------------+
// S/R LEVELS
//+------------------------------------------------------------------+
void AddRes(double lv){if(lv<=0)return;for(int i=0;i<resCount;i++)if(MathAbs(ResLevels[i]-lv)<10*Point)return;if(resCount>=MAX_LEVELS){for(int i=0;i<MAX_LEVELS-1;i++)ResLevels[i]=ResLevels[i+1];resCount=MAX_LEVELS-1;}ResLevels[resCount++]=lv;}
void AddSup(double lv){if(lv<=0)return;for(int i=0;i<supCount;i++)if(MathAbs(SupLevels[i]-lv)<10*Point)return;if(supCount>=MAX_LEVELS){for(int i=0;i<MAX_LEVELS-1;i++)SupLevels[i]=SupLevels[i+1];supCount=MAX_LEVELS-1;}SupLevels[supCount++]=lv;}

void DrawNearestSR(){for(int i=0;i<20;i++){SafeDel(PFX+"RES_"+IntegerToString(i));SafeDel(PFX+"SUP_"+IntegerToString(i));}SafeDel(PFX+"NEAREST_RES");SafeDel(PFX+"NEAREST_SUP");if(!SHOW_SR_LINES)return;
   double cur=Close[0];g_nearest_res=0;g_nearest_sup=0;double mR=999999,mS=999999;
   for(int i=0;i<resCount;i++)if(ResLevels[i]>cur&&(ResLevels[i]-cur)<mR){mR=ResLevels[i]-cur;g_nearest_res=ResLevels[i];}
   for(int i=0;i<supCount;i++)if(SupLevels[i]<cur&&(cur-SupLevels[i])<mS){mS=cur-SupLevels[i];g_nearest_sup=SupLevels[i];}
   if(g_nearest_res>0&&!IsLineNearby(g_nearest_res,5.0))DrawHLine(PFX+"NEAREST_RES",g_nearest_res,NEON_RED,2,STYLE_SOLID);
   if(g_nearest_sup>0&&!IsLineNearby(g_nearest_sup,5.0))DrawHLine(PFX+"NEAREST_SUP",g_nearest_sup,NEON_GREEN,2,STYLE_SOLID);}

void CheckBRK(){double pC=Close[1],pO=Open[1];g_brk_str="NO BRK";g_brk_color=CGR;if(g_nearest_res>0&&pC>g_nearest_res&&pO<=g_nearest_res){g_brk_str="BRK UP!";g_brk_color=NEON_GREEN;}else if(g_nearest_sup>0&&pC<g_nearest_sup&&pO>=g_nearest_sup){g_brk_str="BRK DOWN!";g_brk_color=NEON_RED;}}

void UpdateSR(){if(Time[0]==lastSRBar)return;lastSRBar=Time[0];if(Bars<15)return;double nR=High[iHighest(NULL,PERIOD_M1,MODE_HIGH,10,1)],nS=Low[iLowest(NULL,PERIOD_M1,MODE_LOW,10,1)],cur=Close[0];if(nR>0&&cur<nR-5*Point)AddRes(nR);if(nS>0&&cur>nS+5*Point)AddSup(nS);if(resCount<1)AddRes(High[1]);if(supCount<1)AddSup(Low[1]);DrawNearestSR();CheckBRK();}

//+------------------------------------------------------------------+
// SCAN HRN LEVELS (wick rejections)
//+------------------------------------------------------------------+
void ScanHRNLevels(){
   g_rj_cnt=0;
   bool jpy=(StringFind(Symbol(),"JPY")>=0);
   double pip=jpy?0.01:0.0001;
   double cur=Close[0];
   
   for(int i=1;i<=LOOKBACK&&i<Bars;i++){
      double rg=High[i]-Low[i];
      if(rg<=0) continue;
      double uw=High[i]-MathMax(Open[i],Close[i]);
      double lw=MathMin(Open[i],Close[i])-Low[i];
      
      if(uw>rg*0.35){
         double lv=High[i];
         if(MathAbs(lv-cur)<=40*pip){
            bool f=false;
            for(int k=0;k<g_rj_cnt;k++)
               if(MathAbs(g_rj[k].price-lv)<8*pip){g_rj[k].touches++;f=true;break;}
            if(!f&&g_rj_cnt<MAX_REJ){g_rj[g_rj_cnt].price=lv;g_rj[g_rj_cnt].touches=1;g_rj_cnt++;}
         }
      }
      if(lw>rg*0.35){
         double lv=Low[i];
         if(MathAbs(lv-cur)<=40*pip){
            bool f=false;
            for(int k=0;k<g_rj_cnt;k++)
               if(MathAbs(g_rj[k].price-lv)<8*pip){g_rj[k].touches++;f=true;break;}
            if(!f&&g_rj_cnt<MAX_REJ){g_rj[g_rj_cnt].price=lv;g_rj[g_rj_cnt].touches=1;g_rj_cnt++;}
         }
      }
   }
   
   // Sort by touches (most tested first)
   for(int i=0;i<g_rj_cnt-1;i++)
      for(int j=0;j<g_rj_cnt-i-1;j++)
         if(g_rj[j].touches<g_rj[j+1].touches){
            RejLevel tmp=g_rj[j];
            g_rj[j]=g_rj[j+1];
            g_rj[j+1]=tmp;
         }
}

//+------------------------------------------------------------------+
// TIMER
//+------------------------------------------------------------------+
void UpdateTimer(){if(!SHOW_TIMER)return;string nm=PFX+"candle_timer";int ps=Period()*60;int el=(int)(TimeCurrent()-Time[0]);int rem=ps-el;if(rem<=0)rem=ps;datetime tt=Time[0]+ps+60;double tp=High[0]+(Point*15);if(ObjectFind(0,nm)<0){ObjectCreate(0,nm,OBJ_TEXT,0,tt,tp);ObjectSetInteger(0,nm,OBJPROP_BACK,false);ObjectSetInteger(0,nm,OBJPROP_SELECTABLE,false);}ObjectSetInteger(0,nm,OBJPROP_TIME,tt);ObjectSetDouble(0,nm,OBJPROP_PRICE,tp);int mm=rem/60,ss=rem%60;string t=(mm>0?IntegerToString(mm)+":":"")+(ss<10?"0":"")+IntegerToString(ss)+"s";ObjectSetText(nm,t,11,"Arial Bold",NEON_YELLOW);}

//+------------------------------------------------------------------+
// NEURAL WEIGHTS INIT
//+------------------------------------------------------------------+
void InitNW(){NW[0]=0.852;NW[1]=0.724;NW[2]=0.913;NW[3]=0.681;NW[4]=0.795;NW[5]=0.836;NW[6]=0.772;NW[7]=0.894;NW[8]=0.623;NW[9]=0.748;NW[10]=0.887;NW[11]=0.716;NW[12]=0.661;NW[13]=0.829;NW[14]=0.753;NW[15]=0.942;NW[16]=0.784;NW[17]=0.697;NW[18]=0.871;NW[19]=0.735;NW[20]=0.813;NW[21]=0.768;NW[22]=0.932;NW[23]=0.674;NW[24]=0.845;NW[25]=0.709;NW[26]=0.888;NW[27]=0.651;NW[28]=0.921;NW[29]=0.743;NW[30]=0.802;NW[31]=0.867;NW[32]=1.24;NW[33]=-0.93;NW[34]=1.15;NW[35]=-1.08;}

//+------------------------------------------------------------------+
// UI DRAWING FUNCTIONS
//+------------------------------------------------------------------+
void Bx(string id,int x,int y,int w,int h,color bg,color bd){string n=PFX+id;if(ObjectFind(0,n)<0)ObjectCreate(0,n,OBJ_RECTANGLE_LABEL,0,0,0);ObjectSetInteger(0,n,OBJPROP_XDISTANCE,x);ObjectSetInteger(0,n,OBJPROP_YDISTANCE,y);ObjectSetInteger(0,n,OBJPROP_XSIZE,w);ObjectSetInteger(0,n,OBJPROP_YSIZE,h);ObjectSetInteger(0,n,OBJPROP_BGCOLOR,bg);ObjectSetInteger(0,n,OBJPROP_BORDER_TYPE,BORDER_FLAT);ObjectSetInteger(0,n,OBJPROP_COLOR,bd);ObjectSetInteger(0,n,OBJPROP_BACK,false);}
void Tx(string id,int x,int y,string txt,color tc,int fs,bool bold){string n=PFX+id;if(ObjectFind(0,n)<0)ObjectCreate(0,n,OBJ_LABEL,0,0,0);ObjectSetInteger(0,n,OBJPROP_XDISTANCE,x);ObjectSetInteger(0,n,OBJPROP_YDISTANCE,y);ObjectSetText(n,txt,fs,bold?"Arial Bold":"Arial",tc);ObjectSetInteger(0,n,OBJPROP_BACK,false);}
void NeonBar(string id,int x,int y,int w,int h,double pct,color fc){Bx(id+"_bg",x,y,w,h,BG_DARK4,BG_DARK4);int fw=(int)(pct/100.0*w);if(fw<4)fw=4;if(fw>w)fw=w;Bx(id+"_f",x,y,fw,h,fc,fc);}
void Cube(string id,int x,int y,int w,int h,color bc,color bg,string lbl,color lc,string val,color vc,int vfs){Bx(id,x,y,w,h,bg,bc);if(StringLen(lbl)>0)Tx(id+"_l",x+10,y+6,lbl,lc,10,true);if(StringLen(val)>0)Tx(id+"_v",x+10,y+36,val,vc,vfs,true);}

//+------------------------------------------------------------------+
// OTHER PAIRS CUBE
//+------------------------------------------------------------------+
void DrawOtherPairsCube(int x,int y,int w,int h){
   Bx("c20",x,y,w,h,BG_DARK2,NEON_GOLD);
   Tx("c20_l",x+10,y+6,"OTHER PAIRS",NEON_CYAN,9,true);
   if(g_pairCount==0){Tx("c20_v0",x+10,y+32,"Scanning...",CGR,9,false);return;}
   int lY=28;
   for(int i=0;i<g_pairCount&&i<5;i++){
      string sp=g_pairNames[i];if(StringLen(sp)>12)sp=StringSubstr(sp,0,12);
      string txt=sp+" "+g_pairSigs[i]+" "+DoubleToString(g_pairConfs[i],0)+"%";
      color sc=(g_pairSigs[i]=="CALL")?NEON_GREEN:NEON_RED;
      Tx("c20_p"+IntegerToString(i),x+10,y+lY,txt,sc,9,true);lY+=17;}
}

//+------------------------------------------------------------------+
// OTC QUICK CUBE
//+------------------------------------------------------------------+
void DrawOTCQuickCube(int x,int y,int w,int h){
   Bx("c_quick",x,y,w,h,BG_DARK2,NEON_LIME);
   Tx("c_quick_l",x+10,y+6,"OTC QUICK",NEON_CYAN,9,true);
   int age=(int)(TimeCurrent()-Time[0]);int ps=Period()*60;int rem=ps-age;if(rem<0)rem=0;
   int mm=rem/60,ss=rem%60;string tl=(mm>0?IntegerToString(mm)+"m ":"")+IntegerToString(ss)+"s";
   Tx("c_quick_t",x+10,y+26,"Time: "+tl,NEON_GOLD,10,true);
   double spread=MarketInfo(Symbol(),MODE_SPREAD);color spC=(spread<=BROKER_SPREAD_THRESHOLD)?NEON_GREEN:NEON_ORANGE;
   Tx("c_quick_s",x+10,y+48,"Spread: "+DoubleToString(spread,0),spC,9,true);
   double v1=iVolume(NULL,PERIOD_M1,1),v2=iVolume(NULL,PERIOD_M1,2);double vr=(v2>0)?v1/v2:0;color vC=(vr>1.5)?NEON_RED:NEON_CYAN;
   Tx("c_quick_v",x+10,y+68,"Vol: "+DoubleToString(vr,1)+"x",vC,11,true);
   string es=GetEntryStatus();color eC=GetEntryColor();
   Tx("c_quick_e",x+10,y+90,es,eC,9,true);
}

//+------------------------------------------------------------------+
// ENTRY STATUS
//+------------------------------------------------------------------+
string GetEntryStatus(){
   int age=(int)(TimeCurrent()-Time[0]);int ps=Period()*60;int rem=ps-age;if(rem<0)rem=0;
   string ms=DetectMyStrategy();
   if(ms!="WAIT"){
      string type=(g_strategyType=="TRAP")?"TRAP":"TREND";
      if(ENTRY_MODE=="FLAG"){if(age<FLAG_MIN_SEC)return type+" WAIT "+IntegerToString(FLAG_MIN_SEC-age)+"s";if(rem<MIN_REMAINING_SEC)return type+" EXPIRED";if(age>FLAG_MAX_SEC)return type+" LATE";return type+" OPEN "+IntegerToString(rem)+"s";}
      if(age<TIME_MIN_SEC)return type+" WAIT "+IntegerToString(TIME_MIN_SEC-age)+"s";if(age>TIME_MAX_SEC)return type+" CLOSED";return type+" OPEN "+IntegerToString(age)+"s";}
   if(ENTRY_MODE=="FLAG"){if(age<FLAG_MIN_SEC)return "WAIT "+IntegerToString(FLAG_MIN_SEC-age)+"s";if(rem<MIN_REMAINING_SEC)return "EXPIRED";if(age>FLAG_MAX_SEC)return "LATE";return "OPEN "+IntegerToString(rem)+"s left";}
   if(age<TIME_MIN_SEC)return "WAIT "+IntegerToString(TIME_MIN_SEC-age)+"s";if(age>TIME_MAX_SEC)return "CLOSED";return "OPEN "+IntegerToString(age)+"s";
}

color GetEntryColor(){
   string s=GetEntryStatus();
   if(StringFind(s,"TRAP OPEN")>=0)return NEON_PURPLE;if(StringFind(s,"TREND OPEN")>=0)return NEON_LIME;
   if(StringFind(s,"OPEN")>=0)return NEON_GREEN;if(StringFind(s,"WAIT")>=0)return NEON_YELLOW;
   if(StringFind(s,"LATE")>=0||StringFind(s,"EXPIRED")>=0||StringFind(s,"CLOSED")>=0)return NEON_ORANGE;
   return NEON_RED;
}

bool DirectionOK(){
   if(!ENABLE_ENTRY_ZONE)return true;
   double cur=Close[0],lo=Low[0],hi=High[0],rg=hi-lo;if(rg==0)return true;
   double pos=(cur-lo)/rg*100.0;
   if(MathMax(g_calc_gProb,g_calc_rProb)>=85)return true;
   string ms=DetectMyStrategy();
   if(ms=="CALL")return(pos>REVERSAL_PCT);if(ms=="PUT")return(pos<(100.0-REVERSAL_PCT));
   if(StringFind(g_adv1,"CALL")>=0)return(pos>REVERSAL_PCT&&(hi-cur)<rg*WICK_PCT);
   if(StringFind(g_adv1,"PUT")>=0)return(pos<(100.0-REVERSAL_PCT)&&(cur-lo)<rg*WICK_PCT);
   return true;
}

bool EntryPrecisionOK(){
   if(TRADE_MODE=="GOD")return true;
   if(g_calc_gProb>80&&Close[0]<Open[0])return false;
   if(g_calc_rProb>80&&Close[0]>Open[0])return false;
   return true;
}

bool ConsensusOK(){
   if(!CONSENSUS_FILTER)return true;
   string ms=DetectMyStrategy();if(ms=="WAIT")return true;
   bool haAgree=false;
   if(ms=="CALL"&&(g_haM1=="HA BULLISH 1"||g_haBoth=="BOTH BULL"))haAgree=true;
   if(ms=="PUT"&&(g_haM1=="HA BEARISH 1"||g_haBoth=="BOTH BEAR"))haAgree=true;
   return haAgree;
}

//+------------------------------------------------------------------+
// TELEGRAM
//+------------------------------------------------------------------+
void SendTelegramAlert(string message){
   if(!ENABLE_TELEGRAM)return;
   if(StringLen(TELEGRAM_TOKEN)<10||StringLen(TELEGRAM_CHAT_ID)<5)return;
   string url="https://api.telegram.org/bot"+TELEGRAM_TOKEN+"/sendMessage";
   string params="?chat_id="+TELEGRAM_CHAT_ID+"&text="+message;
   string headers="Content-Type: application/x-www-form-urlencoded";
   string cookie="",result="";char post[],result_data[];int timeout=5000;
   ArrayResize(post,StringToCharArray(params,post,0,WHOLE_ARRAY,CP_UTF8)-1);
   int res=WebRequest("POST",url,headers,timeout,post,result_data,result);
   if(res==-1)Print("Telegram: WebRequest failed.");
}

//+------------------------------------------------------------------+
// REVERSAL DETECTION
//+------------------------------------------------------------------+
string DetectSuddenReversal(){string reason="";if(Close[1]<Open[1]&&Close[0]>Open[0]){reason="BULL REVERSAL";if(iRSI(NULL,PERIOD_M1,14,PRICE_CLOSE,0)<30)return reason;}if(Close[1]>Open[1]&&Close[0]<Open[0]){reason="BEAR REVERSAL";if(iRSI(NULL,PERIOD_M1,14,PRICE_CLOSE,0)>70)return reason;}return "";}

//+------------------------------------------------------------------+
// DRAWING HELPERS
//+------------------------------------------------------------------+
void SafeDel(string id){if(ObjectFind(0,id)>=0)ObjectDelete(0,id);}
void DrawHLine(string id,double price,color clr,int width,int style){if(price<=0)return;SafeDel(id);ObjectCreate(0,id,OBJ_HLINE,0,0,price);ObjectSetInteger(0,id,OBJPROP_COLOR,clr);ObjectSetInteger(0,id,OBJPROP_WIDTH,width);ObjectSetInteger(0,id,OBJPROP_STYLE,style);ObjectSetInteger(0,id,OBJPROP_BACK,false);}
void HideSPM(){for(int i=ObjectsTotal()-1;i>=0;i--){string nm=ObjectName(i);if(StringFind(nm,PFX)==0)continue;int tp=(int)ObjectGetInteger(0,nm,OBJPROP_TYPE);if(tp==OBJ_LABEL||tp==OBJ_RECTANGLE_LABEL||tp==OBJ_TEXT)ObjectDelete(0,nm);}}
void NuclearDeleteAll(){for(int i=ObjectsTotal()-1;i>=0;i--){string nm=ObjectName(i);int tp=(int)ObjectGetInteger(0,nm,OBJPROP_TYPE);if(tp==OBJ_HLINE||tp==OBJ_LABEL||tp==OBJ_RECTANGLE_LABEL||tp==OBJ_TEXT)ObjectDelete(0,nm);}}
void DelDashboard(){for(int i=ObjectsTotal()-1;i>=0;i--){string nm=ObjectName(i);if(StringFind(nm,PFX)!=0)continue;if(StringFind(nm,"NEAREST_RES")>=0)continue;if(StringFind(nm,"NEAREST_SUP")>=0)continue;if(StringFind(nm,"HRN_LINE")>=0)continue;if(StringFind(nm,"HRN_LBL")>=0)continue;if(StringFind(nm,"candle_timer")>=0)continue;if(StringFind(nm,"HTF_LEVEL")>=0)continue;if(StringFind(nm,"COMMON_")>=0)continue;if(StringFind(nm,"WICK_")>=0)continue;ObjectDelete(nm);}}

//+------------------------------------------------------------------+
// ML WEIGHTS
//+------------------------------------------------------------------+
void LoadMLWeights(){if(!ML_ADAPTIVE)return;g_symbolKey=Symbol();string fn="ML_weights_"+g_symbolKey+".dat";int h=FileOpen(fn,FILE_READ|FILE_TXT);if(h!=INVALID_HANDLE){string d=FileReadString(h);FileClose(h);g_brokerBias=StringToDouble(d);if(g_brokerBias<-0.5)g_brokerBias=-0.5;if(g_brokerBias>0.5)g_brokerBias=0.5;}else g_brokerBias=0.0;}
void SaveMLWeights(){if(!ML_ADAPTIVE)return;string fn="ML_weights_"+g_symbolKey+".dat";int h=FileOpen(fn,FILE_WRITE|FILE_TXT);if(h!=INVALID_HANDLE){FileWriteString(h,DoubleToString(g_brokerBias,6));FileClose(h);}}
void UpdateMLWeights(bool win){if(!ML_ADAPTIVE)return;double lr=0.02;if(win)g_brokerBias+=lr*(g_frozen_gProb/100.0);else g_brokerBias-=lr*(g_frozen_rProb/100.0);if(g_brokerBias>0.5)g_brokerBias=0.5;if(g_brokerBias<-0.5)g_brokerBias=-0.5;SaveMLWeights();}

//+------------------------------------------------------------------+
// ACCURACY TRACKING - FIXED (less aggressive decay)
//+------------------------------------------------------------------+
void UpdateAccuracy(){
   if(Bars<5||Time[0]==g_acc_lastBar)return;
   g_acc_lastBar=Time[0];
   if(g_lastPredBar==Time[1]&&MathAbs(g_lastPredGreen-50.0)>10.0){
      bool aG=(Close[1]>Open[1]),pG=(g_lastPredGreen>50.0),win=(aG==pG);
      if(win){g_acc_correct++;g_lossStreak=0;}
      else g_lossStreak++;
      g_acc_total++;
      // Cap total to last 50 trades for rolling accuracy
      if(g_acc_total>50){
         // Rolling: remove oldest
         double oldRate = g_accuracy/100.0;
         g_acc_correct = (int)(oldRate * 49);
         g_acc_total = 50;
         if(win) g_acc_correct++;
      }
      if(g_acc_total>0)
         g_accuracy=MathMax(40.0,MathMin(90.0,(double)g_acc_correct/g_acc_total*100.0));
      if(ML_ADAPTIVE&&g_lastPredGreen>50.0&&g_lastPredGreen<100.0)
         UpdateMLWeights(win);
   }
   g_lastPredGreen=g_frozen_gProb;
   g_lastPredBar=Time[0];
}

double ValidateHistoricalAccuracy(){if(Bars<55)return 65.0;int cr=0,tt=0;for(int i=10;i<=50&&i+1<Bars;i++){int gc=0;for(int j=i+1;j<=i+5&&j<Bars;j++)if(Close[j]>Open[j])gc++;double pG=(gc>2)?65.0:35.0;bool aG=(Close[i]>Open[i]);if((pG>55&&aG)||(pG<45&&!aG))cr++;tt++;}return tt>0?(double)cr/tt*100.0:65.0;}

void UpdateWeights(){double lr=0.01;if(g_lastPredBar==Time[1]){bool c=((Close[1]>Open[1])==(g_lastPredGreen>50));if(c){NW[32]+=lr;NW[33]-=lr;}else{NW[32]-=lr;NW[33]+=lr;}NW[32]=MathMax(0.5,MathMin(2.0,NW[32]));NW[33]=MathMin(-0.5,MathMax(-2.0,NW[33]));}}

//+------------------------------------------------------------------+
// MARKET MODE & HELPERS
//+------------------------------------------------------------------+
string DetectMarketMode(double brain,double rsc,int cp,double nb){double atr=iATR(NULL,PERIOD_M1,14,1),avgR=(High[1]-Low[1]+High[2]-Low[2]+High[3]-Low[3])/3.0;bool hV=(avgR>0&&atr/avgR>1.3);if(MathAbs(brain)>=3.5&&MathAbs(rsc)>=1.5&&hV)return "TREND";if(cp>=70||cp<=30)return "REVERSAL";if(nb>=70||nb<=30)return "TREND";return "RANGE";}
bool IsSidewaysMarket(){if(Bars<30)return false;double adx=GetADXStrength();if(adx<25)return true;double h20=High[iHighest(NULL,PERIOD_M1,MODE_HIGH,20,1)],l20=Low[iLowest(NULL,PERIOD_M1,MODE_LOW,20,1)];double r20=h20-l20;double atr=iATR(NULL,PERIOD_M1,14,1);if(atr>0&&r20<atr*8)return true;return false;}
bool IsVolatilityGood(){if(Bars<100)return true;double dh=High[iHighest(NULL,PERIOD_M1,MODE_HIGH,60,0)],dl=Low[iLowest(NULL,PERIOD_M1,MODE_LOW,60,0)];double tr=dh-dl;double ac=0;for(int i=1;i<=20;i++)ac+=(High[i]-Low[i]);ac/=20.0;bool jpy=(StringFind(Symbol(),"JPY")>=0);double mr=jpy?0.30:0.0030;if(tr<mr)return false;if(ac>0&&(High[0]-Low[0])<ac*0.3)return false;return true;}
double GetDynamicThreshold(){if(g_accuracy<55)return 90.0;if(g_accuracy<60)return 85.0;if(g_accuracy<65)return 80.0;if(g_accuracy<70)return 75.0;if(g_accuracy>80)return 70.0;if(g_accuracy>75)return 72.0;return 75.0;}

//+------------------------------------------------------------------+
// SIGNAL DETECTORS
//+------------------------------------------------------------------+
int DetectRSIDivergence(){if(Bars<30)return 0;double rN=iRSI(NULL,PERIOD_M1,14,PRICE_CLOSE,1),rP=iRSI(NULL,PERIOD_M1,14,PRICE_CLOSE,8);double lN=Low[iLowest(NULL,PERIOD_M1,MODE_LOW,5,1)],lPv=Low[iLowest(NULL,PERIOD_M1,MODE_LOW,5,6)];if(lN<lPv&&rN>rP&&rN<40)return 1;double hN=High[iHighest(NULL,PERIOD_M1,MODE_HIGH,5,1)],hPv=High[iHighest(NULL,PERIOD_M1,MODE_HIGH,5,6)];if(hN>hPv&&rN<rP&&rN>60)return -1;return 0;}
int StreakReversalSignal(){if(Bars<15)return 0;int g=0,r=0;for(int i=1;i<Bars;i++){if(Close[i]>Open[i]){if(r>0)break;g++;}else if(Close[i]<Open[i]){if(g>0)break;r++;}else break;}if(g>=4)return -1;if(r>=4)return 1;return 0;}
double GetADXStrength(){if(Bars<20)return 0;return iADX(NULL,PERIOD_M1,14,PRICE_CLOSE,MODE_MAIN,1);}
int GetADXDirection(){if(Bars<20)return 0;double p=iADX(NULL,PERIOD_M1,14,PRICE_CLOSE,MODE_PLUSDI,1),m=iADX(NULL,PERIOD_M1,14,PRICE_CLOSE,MODE_MINUSDI,1);if(p>m+5)return 1;if(m>p+5)return -1;return 0;}
int SmartVolumeSignal(){if(Bars<15)return 0;double v1=(double)iVolume(NULL,PERIOD_M1,1),avg=0;for(int i=2;i<=10;i++)avg+=iVolume(NULL,PERIOD_M1,i);avg/=9.0;if(avg==0)return 0;double vr=v1/avg;if(vr<1.8)return 0;bool g=(Close[1]>Open[1]);if(vr>2.5&&g)return 1;if(vr>2.5&&!g)return -1;if(vr>3.0&&g&&High[1]-Close[1]>Close[1]-Low[1])return -1;if(vr>3.0&&!g&&Close[1]-Low[1]>High[1]-Close[1])return 1;return 0;}

//+------------------------------------------------------------------+
// CLASSIC PATTERNS
//+------------------------------------------------------------------+
int DetectClassicPatterns(){if(Bars<30)return 0;bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;double tol=PATTERN_TOLERANCE_PIPS*pip;double sh[2],sl[2];int shB[2],slB[2];int shC=0,slC=0;
   for(int i=2;i<25&&(shC<2||slC<2);i++){if(High[i]>High[i-1]&&High[i]>High[i-2]&&High[i]>High[i+1]&&High[i]>High[i+2]){if(shC<2){sh[shC]=High[i];shB[shC]=i;shC++;}}if(Low[i]<Low[i-1]&&Low[i]<Low[i-2]&&Low[i]<Low[i+1]&&Low[i]<Low[i+2]){if(slC<2){sl[slC]=Low[i];slB[slC]=i;slC++;}}}
   if(shC>=2){int bd=MathAbs(shB[0]-shB[1]);if(bd>=MIN_PATTERN_SEPARATION&&MathAbs(sh[0]-sh[1])<=tol){int bn=MathMin(shB[0],shB[1]),bx=MathMax(shB[0],shB[1]);double vl=Low[iLowest(NULL,PERIOD_M1,MODE_LOW,bx-bn+1,bn)];if(Close[0]<vl)return -1;else if(Close[0]<MathMin(sh[0],sh[1]))return -1;}}
   if(slC>=2){int bd=MathAbs(slB[0]-slB[1]);if(bd>=MIN_PATTERN_SEPARATION&&MathAbs(sl[0]-sl[1])<=tol){int bn=MathMin(slB[0],slB[1]),bx=MathMax(slB[0],slB[1]);double ph=High[iHighest(NULL,PERIOD_M1,MODE_HIGH,bx-bn+1,bn)];if(Close[0]>ph)return 1;else if(Close[0]>MathMax(sl[0],sl[1]))return 1;}}return 0;}

//+------------------------------------------------------------------+
// QMR PATTERN
//+------------------------------------------------------------------+
int DetectQMR(){if(Bars<40)return 0;bool jpy=(StringFind(Symbol(),"JPY")>=0);double pip=jpy?0.01:0.0001;double sH[10],sL[10];int sHB[10],sLB[10];int hC=0,lC=0;
   for(int i=3;i<40&&hC<10;i++)if(High[i]>High[i-1]&&High[i]>High[i-2]&&High[i]>High[i+1]&&High[i]>High[i+2]){sH[hC]=High[i];sHB[hC]=i;hC++;}
   for(int i=3;i<40&&lC<10;i++)if(Low[i]<Low[i-1]&&Low[i]<Low[i-2]&&Low[i]<Low[i+1]&&Low[i]<Low[i+2]){sL[lC]=Low[i];sLB[lC]=i;lC++;}
   if(hC<2||lC<2)return 0;
   for(int iA=0;iA<hC;iA++)for(int iC2=0;iC2<hC;iC2++){if(iA==iC2)continue;if(sHB[iA]<=sHB[iC2])continue;if(sH[iC2]>=sH[iA]-10*pip)continue;
      for(int iB=0;iB<lC;iB++){if(sHB[iA]<=sLB[iB])continue;if(sLB[iB]<=sHB[iC2])continue;
         for(int iD=0;iD<lC;iD++){if(iB==iD)continue;if(sHB[iC2]<=sLB[iD])continue;if(sL[iD]>=sL[iB])continue;
            bool m3=false,m5=false;if(Bars>=8){double o1=Open[3],c1=Close[3],o2=Open[0],c2=Close[0];double b1=MathAbs(c1-o1);if(c2>o2&&c1<o1&&MathAbs(c2-o2)>b1*0.5)m3=true;}
            if(iBars(NULL,PERIOD_M5)>=3){double o1=iOpen(NULL,PERIOD_M5,2),c1=iClose(NULL,PERIOD_M5,2),o2=iOpen(NULL,PERIOD_M5,1),c2=iClose(NULL,PERIOD_M5,1);double b1=MathAbs(c1-o1);if(c2>o2&&c1<o1&&MathAbs(c2-o2)>b1*0.5)m5=true;}
            if(m3||m5)if(Close[0]>sL[iD]&&Close[0]<sH[iC2]){qmrA=sH[iA];qmrB=sL[iB];qmrC=sH[iC2];qmrD=sL[iD];qmrActive=true;qmrExpire=TimeCurrent()+900;return 1;}}}}
   for(int iA=0;iA<lC;iA++)for(int iC2=0;iC2<lC;iC2++){if(iA==iC2)continue;if(sLB[iA]<=sLB[iC2])continue;if(sL[iC2]<=sL[iA]+10*pip)continue;
      for(int iB=0;iB<hC;iB++){if(sLB[iA]<=sHB[iB])continue;if(sHB[iB]<=sLB[iC2])continue;
         for(int iD=0;iD<hC;iD++){if(iB==iD)continue;if(sLB[iC2]<=sHB[iD])continue;if(sH[iD]>=sH[iB])continue;
            bool m3=false,m5=false;if(Bars>=8){double o1=Open[3],c1=Close[3],o2=Open[0],c2=Close[0];double b1=MathAbs(c1-o1);if(c2<o2&&c1>o1&&MathAbs(c2-o2)>b1*0.5)m3=true;}
            if(iBars(NULL,PERIOD_M5)>=3){double o1=iOpen(NULL,PERIOD_M5,2),c1=iClose(NULL,PERIOD_M5,2),o2=iOpen(NULL,PERIOD_M5,1),c2=iClose(NULL,PERIOD_M5,1);double b1=MathAbs(c1-o1);if(c2<o2&&c1>o1&&MathAbs(c2-o2)>b1*0.5)m5=true;}
            if(m3||m5)if(Close[0]<sH[iD]&&Close[0]>sL[iC2]){qmrA=sL[iA];qmrB=sH[iB];qmrC=sL[iC2];qmrD=sH[iD];qmrActive=true;qmrExpire=TimeCurrent()+900;return -1;}}}}
   return 0;}

//+------------------------------------------------------------------+
// MAIN DRAW FUNCTION
//+------------------------------------------------------------------+
void Draw(){
   HideSPM(); DelDashboard();
   int W=DASH_W, G=8, CW=(W-2*G)/3, CH=100, cx=POS_X+G, yy=POS_Y;
   int cp=0; double brain=BrainSc(cp); double nb=NeuralBiasFast(); double mw=MicroWick(); bool bf=IsBrokerForce();
   g_marketMode=DetectMarketMode(brain,g_rsc,cp,nb);
   if(StringLen(g_prevMode)>0 && g_prevMode!=g_marketMode){ g_signalTime=0; g_finalSignal="WAIT"; }
   g_prevMode=g_marketMode;
   CalcOTCCrowd(); UpdateAccuracy(); UpdateWeights();
   double mai=CalcAdvancedMicroAI(); int mts=CalcAdvancedMicroTrap();
   CalcPrediction(brain,nb,cp,mai,mts,g_rsc,bf,mw);
   UpdateRiskControl();
   CheckMTFConfirmation();
   double tfaScore=CalcAdvancedTFA(g_tfa_detail);
   color ha1C=(g_haM1=="HA BULLISH 1")?NEON_GREEN:(g_haM1=="HA BEARISH 1")?NEON_RED:NEON_YELLOW;
   color ha5C=(g_haM5=="HA BULLISH 5")?NEON_GREEN:(g_haM5=="HA BEARISH 5")?NEON_RED:NEON_YELLOW;
   color biasClr; string biasStr=CalcAdvancedMarketBias(biasClr,brain,g_rsc);
   string ms=DetectMyStrategy();
   color stratC=(g_strategyType=="TRAP")?NEON_PURPLE:(g_strategyType=="TREND")?NEON_GREEN:CGR;
   string stratLabel=(g_strategyType=="TRAP")?"TRAP "+ms:(g_strategyType=="TREND")?"TREND "+ms:"NO STRATEGY";
   string finalSig=g_finalSignal; color sigC=NEON_YELLOW;
   if(finalSig=="CALL") sigC=NEON_GREEN; else if(finalSig=="PUT") sigC=NEON_RED;
   else if(finalSig=="WEAK CALL") sigC=NEON_CYAN; else if(finalSig=="WEAK PUT") sigC=NEON_ORANGE;

// ROW 1
   Cube("c1",cx,yy,CW,CH,NEON_CYAN,BG_DARK2,"PAIR",NEON_CYAN,Symbol(),NEON_BLUE,13);
   Cube("c2",cx+CW+G,yy,CW,CH,sigC,BG_DARK2,"SIGNAL",NEON_CYAN,finalSig,sigC,14);
   double gP,rP; string rsn; color pClr;
   CalcAdvancedPrediction(gP,rP,rsn,pClr);
   g_frozen_gProb=gP; g_frozen_rProb=rP; g_frozen_pAction=rsn; g_frozen_pColor=pClr; g_last_freeze_bar=Time[0];
   Bx("c_pred",cx+2*(CW+G),yy,CW,CH,BG_DARK2,pClr);
   Tx("c_pred_l",cx+2*(CW+G)+10,yy+5,"NEXT CANDLE",NEON_CYAN,9,true);
   int bW=CW-20, gBW=(int)(gP/100.0*bW), rBW=(int)(rP/100.0*bW);
   if(gBW<3)gBW=3;if(rBW<3)rBW=3;
   Bx("c_pred_gbg",cx+2*(CW+G)+10,yy+22,bW,6,BG_DARK4,BG_DARK4);
   Bx("c_pred_gfg",cx+2*(CW+G)+10,yy+22,gBW,6,NEON_GREEN,NEON_GREEN);
   Tx("c_pred_gp",cx+2*(CW+G)+10,yy+30,"G:"+DoubleToString(gP,0)+"%",NEON_GREEN,9,true);
   Bx("c_pred_rbg",cx+2*(CW+G)+10,yy+44,bW,6,BG_DARK4,BG_DARK4);
   Bx("c_pred_rfg",cx+2*(CW+G)+10,yy+44,rBW,6,NEON_RED,NEON_RED);
   Tx("c_pred_rp",cx+2*(CW+G)+10,yy+52,"R:"+DoubleToString(rP,0)+"%",NEON_RED,9,true);
   Tx("c_pred_a",cx+2*(CW+G)+10,yy+68,rsn,pClr,9,true);
   NeonBar("c_pred_b",cx+2*(CW+G)+10,yy+86,bW,6,MathMax(gP,rP),pClr);
   yy+=CH+G;

// ROW 2
   Cube("c4",cx,yy,CW,CH,NEON_CYAN,BG_DARK3,"BRAIN",NEON_CYAN,(brain>=0?"+":"")+DoubleToString(brain,1),(brain>0)?NEON_GREEN:NEON_RED,16);
   Cube("c5",cx+CW+G,yy,CW,CH,NEON_CYAN,BG_DARK3,"SPM",NEON_CYAN,(g_rsc>=0?"+":"")+DoubleToString(g_rsc,1),(g_rsc>0)?NEON_GREEN:NEON_RED,16);
   color sClr=CGR; string sName=GetCurrentSession(sClr); bool isAct=IsSessionActive();
   Bx("c_ses",cx+2*(CW+G),yy,CW,CH,BG_DARK2,sClr);
   Tx("c_ses_l",cx+2*(CW+G)+10,yy+5,"SESSION",NEON_CYAN,9,true);
   Tx("c_ses_v",cx+2*(CW+G)+10,yy+24,sName,sClr,13,true);
   int gH=TimeHour(TimeGMT()),gM=TimeMinute(TimeGMT());
   Tx("c_ses_t",cx+2*(CW+G)+10,yy+50,"GMT "+(gH<10?"0":"")+IntegerToString(gH)+":"+(gM<10?"0":"")+IntegerToString(gM),NEON_WHITE,10,false);
   Tx("c_ses_s",cx+2*(CW+G)+10,yy+70,isAct?"ACTIVE":"LOW VOL",isAct?NEON_GREEN:NEON_ORANGE,9,true);
   yy+=CH+G;

// ROW 3
   Cube("c7",cx,yy,CW,CH,NEON_CYAN,BG_DARK2,"NEURAL AI",NEON_CYAN,DoubleToString(nb,1)+"%",(nb>72)?NEON_ORANGE:(nb<35)?NEON_CYAN:NEON_GREEN,15);
   NeonBar("c7b",cx+12,yy+82,CW-24,6,nb,(nb>72)?NEON_ORANGE:(nb<35)?NEON_CYAN:NEON_GREEN);
   Bx("c8",cx+CW+G,yy,CW,CH,BG_DARK2,NEON_CYAN);
   Tx("c8_l",cx+CW+G+10,yy+5,"CROWD",NEON_CYAN,9,true);
   Tx("c8_c",cx+CW+G+10,yy+24,"CALL "+IntegerToString(g_otcCallPct)+"%",NEON_RED,12,true);
   Tx("c8_p",cx+CW+G+10,yy+46,"PUT "+IntegerToString(g_otcPutPct)+"%",NEON_GREEN,12,true);
   Tx("c8_b",cx+CW+G+10,yy+70,"OTC Crowd",NEON_GOLD,9,false);
   Cube("c_strat",cx+2*(CW+G),yy,CW,CH,stratC,BG_DARK3,"STRATEGY",NEON_CYAN,stratLabel,stratC,11);
   yy+=CH+G;

// ROW 4
   color maC; string maDir;
   if(mai>72){maC=NEON_ORANGE;maDir="TRAP RISK!";}
   else if(mai>55){maC=NEON_YELLOW;maDir="CAUTION";}
   else if(mai>45){maC=NEON_CYAN;maDir="NEUTRAL";}
   else{maC=NEON_GREEN;maDir="SAFE";}
   Cube("c_mai",cx,yy,CW,CH,maC,BG_DARK2,"MICRO AI",NEON_CYAN,DoubleToString(mai,0)+"%",maC,16);
   NeonBar("c_mai_b",cx+12,yy+82,CW-24,6,mai,maC);
   color mtsC=(mts>=90)?NEON_PURPLE:(mts>=75)?NEON_RED:(mts>=50)?NEON_ORANGE:NEON_GREEN;
   string mtsL=(mts>=90)?"EXTREME TRAP":(mts>=75)?"HIGH TRAP":(mts>=50)?"MEDIUM":"CLEAR";
   Cube("c_mts",cx+CW+G,yy,CW,CH,mtsC,BG_DARK2,"MICRO TRAP",NEON_CYAN,"SCORE "+IntegerToString(mts),mtsC,13);
   NeonBar("c_mts_b",cx+CW+G+12,yy+82,CW-24,6,MathMin(100,mts),mtsC);
   int tfaInt=(int)tfaScore;color tfaColor;string tfaLabel;
   if(tfaInt>=5){tfaLabel="STRONG";tfaColor=NEON_GREEN;}
   else if(tfaInt>=4){tfaLabel="GOOD";tfaColor=NEON_LIME;}
   else if(tfaInt>=3){tfaLabel="MEDIUM";tfaColor=NEON_YELLOW;}
   else if(tfaInt>=2){tfaLabel="WEAK";tfaColor=NEON_ORANGE;}
   else{tfaLabel="POOR";tfaColor=C'100,100,120';}
   color tfaBC=tfaColor;string dirTxt="";
   if(g_haM1=="HA BEARISH 1"){tfaBC=NEON_RED;dirTxt=" [DOWN]";}
   else if(g_haM1=="HA BULLISH 1"){tfaBC=NEON_GREEN;dirTxt=" [UP]";}
   else{dirTxt=" [MIX]";}
   Bx("c_tfa",cx+2*(CW+G),yy,CW,CH,BG_DARK3,tfaBC);
   Tx("c_tfa_l",cx+2*(CW+G)+10,yy+5,"TFA SCORE",NEON_CYAN,9,true);
   Tx("c_tfa_v",cx+2*(CW+G)+10,yy+24,IntegerToString(tfaInt)+"/6 "+tfaLabel+dirTxt,tfaBC,11,true);
   Tx("c_tfa_d",cx+2*(CW+G)+10,yy+50,g_tfa_detail,CGR,8,false);
   NeonBar("c_tfa_b",cx+2*(CW+G)+10,yy+82,CW-20,6,(double)tfaInt/6.0*100.0,tfaBC);
   yy+=CH+G;

// ROW 5
   double frac=CalcAdvancedFractal();
   color frC=(frac>=75)?NEON_RED:(frac>=50)?NEON_ORANGE:(frac>=25)?NEON_YELLOW:NEON_GREEN;
   string frT=(frac>=75)?"TRAP ZONE!":(frac>=50)?"WARNING":(frac>=25)?"CAUTION":"CLEAR";
   Cube("c_frc",cx,yy,CW,CH,frC,BG_DARK2,"FRACTAL",NEON_CYAN,frT,frC,11);
   NeonBar("c_frc_b",cx+12,yy+82,CW-24,6,frac,frC);
   Bx("c_bias",cx+CW+G,yy,CW,CH,BG_DARK2,biasClr);
   Tx("c_bias_l",cx+CW+G+10,yy+5,"MARKET BIAS",NEON_CYAN,9,true);
   Tx("c_bias_v",cx+CW+G+10,yy+24,biasStr,biasClr,12,true);
   Tx("c_bias_m",cx+CW+G+10,yy+48,"MODE: "+g_marketMode,(g_marketMode=="TREND")?NEON_GREEN:(g_marketMode=="REVERSAL")?NEON_RED:NEON_YELLOW,9,false);
   color accC=(g_accuracy>=70)?NEON_GREEN:(g_accuracy>=60)?NEON_YELLOW:NEON_RED;
   Tx("c_bias_a",cx+CW+G+10,yy+68,"ACC: "+DoubleToString(g_accuracy,1)+"%",accC,9,false);
   NeonBar("c_bias_b",cx+CW+G+10,yy+82,CW-20,6,g_accuracy,accC);
   int dg_sr=(int)MarketInfo(Symbol(),MODE_DIGITS);if(dg_sr<=0)dg_sr=5;
   Bx("c18",cx+2*(CW+G),yy,CW,CH,BG_DARK2,NEON_CYAN);
   Tx("c18_l",cx+2*(CW+G)+10,yy+4,"S/R LEVELS",NEON_CYAN,9,true);
   Tx("c18_r",cx+2*(CW+G)+10,yy+24,"R: "+(g_nearest_res>0?DoubleToString(g_nearest_res,dg_sr):"--"),NEON_RED,12,true);
   Tx("c18_s",cx+2*(CW+G)+10,yy+48,"S: "+(g_nearest_sup>0?DoubleToString(g_nearest_sup,dg_sr):"--"),NEON_GREEN,12,true);
   Tx("c18_b",cx+2*(CW+G)+10,yy+72,g_brk_str,g_brk_color,10,true);
   yy+=CH+G;

// ROW 6
   color wickC=(mw>0.70)?NEON_RED:(mw>0.50)?NEON_ORANGE:NEON_GREEN;
   Bx("c15",cx,yy,CW,CH,BG_DARK2,wickC);
   Tx("c15_l",cx+10,yy+5,"WICKS",NEON_CYAN,9,true);
   Tx("c15_v",cx+10,yy+24,DoubleToString(mw,2),wickC,16,true);
   Tx("c15_b",cx+10,yy+52,(mw>0.70)?"KILL SHOT":(mw>0.50)?"HIGH":"LOW",wickC,10,false);
   NeonBar("c15_bar",cx+10,yy+82,CW-20,6,mw*100,wickC);
   Bx("c_ha",cx+CW+G,yy,CW,CH,BG_DARK2,ha1C);
   Tx("c_ha_l",cx+CW+G+10,yy+5,"HA CANDLES",NEON_CYAN,9,true);
   Tx("c_ha_m1",cx+CW+G+10,yy+26,"M1: "+g_haM1,ha1C,11,true);
   Tx("c_ha_m5",cx+CW+G+10,yy+48,"M5: "+g_haM5,ha5C,11,true);
   string haComb="";color haCombC=NEON_YELLOW;
   if(g_haM1=="HA BULLISH 1"&&g_haM5=="HA BULLISH 5"){haComb="BOTH BULL";haCombC=NEON_GREEN;}
   else if(g_haM1=="HA BEARISH 1"&&g_haM5=="HA BEARISH 5"){haComb="BOTH BEAR";haCombC=NEON_RED;}
   else haComb="MIXED";
   Tx("c_ha_c",cx+CW+G+10,yy+72,haComb,haCombC,10,true);
   string revReason=DetectSuddenReversal();color revColor=NEON_YELLOW;
   if(StringFind(revReason,"BULL")>=0)revColor=NEON_GREEN;
   if(StringFind(revReason,"BEAR")>=0)revColor=NEON_RED;
   Bx("c_reason",cx+2*(CW+G),yy,CW,CH,BG_DARK2,revColor);
   Tx("c_reason_l",cx+2*(CW+G)+10,yy+5,"REVERSAL",NEON_CYAN,9,true);
   if(StringLen(revReason)>0){string sr=revReason;if(StringLen(sr)>30)sr=StringSubstr(sr,0,28)+"..";Tx("c_reason_v",cx+2*(CW+G)+10,yy+28,sr,revColor,9,false);}
   else Tx("c_reason_v",cx+2*(CW+G)+10,yy+28,"No reversal",CGR,9,false);
   yy+=CH+G;

// ROW 7
   int bottomW=(W-2*G-2*G)/3,bottomH=110;yy+=5;int x1=cx;
   Bx("c_hrn",x1,yy,bottomW,bottomH,BG_DARK2,NEON_PINK);
   Tx("c_hrn_l",x1+8,yy+6,"HRN LEVEL",NEON_PINK,9,true);
   Tx("c_hrn_v",x1+8,yy+28,g_hrn_str,NEON_PINK,12,true);
   Tx("c_hrn_t",x1+8,yy+54,g_hrn_is_sup?"SUPPORT":"RESISTANCE",NEON_PINK,9,false);
   // Show break counter with clear candle-close info
   string brkDisp = "Brk " + IntegerToString(g_hrn_brk_bars) + "/" + IntegerToString(HRN_CONFIRM_BARS) + " candles";
   Tx("c_hrn_b",x1+8,yy+76,brkDisp,(g_hrn_brk_bars>0)?NEON_ORANGE:NEON_PINK,8,false);
   Tx("c_hrn_s",x1+8,yy+94,g_isSideways?"SIDEWAYS":"TRENDING",g_isSideways?NEON_YELLOW:NEON_GREEN,8,false);
   int x2=x1+bottomW+G;DrawOtherPairsCube(x2,yy,bottomW,bottomH);
   int x3=x2+bottomW+G;DrawOTCQuickCube(x3,yy,bottomW,bottomH);

UpdateTimer(); HideSPM(); ChartRedraw();
}

//+------------------------------------------------------------------+
// RISK CONTROL
//+------------------------------------------------------------------+
void UpdateRiskControl(){
   static datetime llt=0;
   if(ENABLE_RISK_LOCK){
      if(g_lossStreak>=MAX_LOSS_STREAK){g_tradingStopped=true;llt=TimeCurrent();g_filterStatus="RISK LOCK "+IntegerToString(g_lossStreak)+"L";}
      if(g_tradingStopped&&TimeCurrent()-llt>3600){g_tradingStopped=false;g_lossStreak=0;g_filterStatus="RISK UNLOCK";}
   }
}

//+------------------------------------------------------------------+
// FINAL SIGNAL ENGINE
//+------------------------------------------------------------------+
void FinalSignalEngine(double brain,int cp,int mts){
   g_filterStatus="ALL CLEAR";
   if(ENABLE_RISK_CONTROL&&g_tradingStopped){g_finalSignal="WAIT";g_finalColor=NEON_ORANGE;g_filterStatus="RISK LOCKED";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}
   if(ENABLE_SESSION_FILTER&&!IsSessionActive()){g_finalSignal="WAIT";g_finalColor=NEON_ORANGE;g_filterStatus="SESSION OFF";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}
   if(MTF_CONFIRM&&!g_mtfConfirmed){g_finalSignal="WAIT";g_finalColor=NEON_ORANGE;g_filterStatus="MTF NO CONF";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}
   if(ENABLE_SPIKE_FILTER&&IsBigCandle(1)){g_finalSignal="WAIT";g_finalColor=NEON_ORANGE;g_filterStatus="SPIKE BLOCK";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}
   if(ENABLE_LAST_SEC_BLOCK){int age=(int)(TimeCurrent()-Time[0]);int ps=Period()*60;int rem=ps-age;if(rem<0)rem=0;if(rem<MIN_REMAINING_SEC){g_finalSignal="WAIT";g_finalColor=NEON_ORANGE;g_filterStatus="LAST SEC BLOCK";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}}
   double conf=MathMax(g_calc_gProb,g_calc_rProb);
   if(conf<MIN_CONFIDENCE){g_finalSignal="WAIT";g_finalColor=NEON_YELLOW;g_filterStatus="LOW CONF "+DoubleToString(conf,0)+"%";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}
   string ms=DetectMyStrategy();
   if(ms!="WAIT"){
      if(CONSENSUS_FILTER&&!ConsensusOK()){g_finalSignal="WAIT";g_finalColor=NEON_ORANGE;g_filterStatus="NO CONSENSUS";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}
      if(ENABLE_ENTRY_ZONE&&!DirectionOK()){g_finalSignal="WAIT";g_finalColor=NEON_ORANGE;g_filterStatus="BAD ENTRY ZONE";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}
      if(!EntryPrecisionOK()){g_finalSignal="WAIT";g_finalColor=NEON_ORANGE;g_filterStatus="PRECISION FAIL";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}
      g_finalSignal=ms;g_finalColor=(ms=="CALL")?NEON_GREEN:NEON_RED;g_filterStatus=(g_strategyType=="TRAP")?"TRAP ACTIVE":"TREND ACTIVE";
      if(TimeCurrent()-g_signalTime>HOLD_SEC||g_finalSignal=="WAIT"){g_finalSignal=ms;g_signalTime=TimeCurrent();}
      SendSignalNotification(ms,conf);return;}
   double th=FAST_MODE?70:68;
   if(g_calc_gProb>th)g_finalSignal="CALL";
   else if(g_calc_rProb>th)g_finalSignal="PUT";
   else if(g_calc_gProb>60)g_finalSignal="WEAK CALL";
   else if(g_calc_rProb>60)g_finalSignal="WEAK PUT";
   else g_finalSignal="WAIT";
   if((g_finalSignal=="CALL"||g_finalSignal=="PUT")&&ENABLE_ENTRY_ZONE&&!DirectionOK()){g_finalSignal="WAIT";g_finalColor=NEON_ORANGE;g_filterStatus="BAD ENTRY ZONE";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}
   if((g_finalSignal=="CALL"||g_finalSignal=="PUT")&&!EntryPrecisionOK()){g_finalSignal="WAIT";g_finalColor=NEON_ORANGE;g_filterStatus="PRECISION FAIL";if(TimeCurrent()-g_signalTime>HOLD_SEC)g_signalTime=TimeCurrent();return;}
   if(TimeCurrent()-g_signalTime>HOLD_SEC||g_finalSignal=="WAIT")g_signalTime=TimeCurrent();
   if(g_finalSignal=="CALL"){g_finalColor=NEON_GREEN;g_filterStatus="GREEN SIGNAL";SendSignalNotification("CALL",conf);}
   else if(g_finalSignal=="PUT"){g_finalColor=NEON_RED;g_filterStatus="RED SIGNAL";SendSignalNotification("PUT",conf);}
   else if(g_finalSignal=="WEAK CALL"){g_finalColor=NEON_CYAN;g_filterStatus="WEAK GREEN";}
   else if(g_finalSignal=="WEAK PUT"){g_finalColor=NEON_ORANGE;g_filterStatus="WEAK RED";}
   else{g_finalColor=NEON_YELLOW;}
}

//+------------------------------------------------------------------+
// SEND SIGNAL NOTIFICATION
//+------------------------------------------------------------------+
void SendSignalNotification(string sig,double conf){
   if(!ENABLE_NOTIFY)return;
   string msg=Symbol()+" | "+sig+" | "+DoubleToString(conf,0)+"% | "+g_filterStatus;
   if(msg==g_lastNotified)return;
   g_lastNotified=msg;
   SendNotification(msg);
   if(ENABLE_TELEGRAM){string tgMsg="*AIBRAIN Signal*\n"+Symbol()+"\n"+sig+"\nConf: "+DoubleToString(conf,0)+"%\n"+g_filterStatus;SendTelegramAlert(tgMsg);}
   Print(msg);
}

//+------------------------------------------------------------------+
// BROADCAST SIGNAL
//+------------------------------------------------------------------+
void BroadcastSignal(){
   double conf=MathMax(g_frozen_gProb,g_frozen_rProb);if(conf<55)return;
   string fn="OTC_Signals_Master.txt",pair=Symbol();
   string sig=(g_frozen_gProb>g_frozen_rProb)?"CALL":"PUT";
   int exp=(int)(TimeCurrent()+65);
   string line=pair+"|"+sig+"|"+DoubleToString(conf,0)+"|"+IntegerToString((int)TimeCurrent())+"|"+IntegerToString(exp);
   int h=FileOpen(fn,FILE_READ|FILE_WRITE|FILE_TXT|FILE_SHARE_READ|FILE_SHARE_WRITE);
   if(h==INVALID_HANDLE){h=FileOpen(fn,FILE_WRITE|FILE_TXT|FILE_SHARE_READ|FILE_SHARE_WRITE);if(h==INVALID_HANDLE)return;FileWriteString(h,line+"\n");FileClose(h);return;}
   string content="";while(!FileIsEnding(h)){string ex=FileReadString(h);if(StringLen(ex)>10&&StringFind(ex,pair+"|")!=0)content+=ex+"\n";}
   content=line+"\n"+content;string lns[];int cnt=0,pos=0;int f=StringFind(content,"\n",pos);
   while(f!=-1&&cnt<100){ArrayResize(lns,cnt+1);lns[cnt]=StringSubstr(content,pos,f-pos);cnt++;pos=f+1;f=StringFind(content,"\n",pos);}
   if(pos<StringLen(content)){ArrayResize(lns,cnt+1);lns[cnt]=StringSubstr(content,pos);cnt++;}
   if(cnt>50){content="";for(int i=0;i<50;i++)if(StringLen(lns[i])>10)content+=lns[i]+"\n";}
   FileSeek(h,0,SEEK_SET);FileWriteString(h,content);FileFlush(h);FileClose(h);
}

//+------------------------------------------------------------------+
// OTHER PAIR HELPERS
//+------------------------------------------------------------------+
string GetPairHADirection(string pair){
   double open1=iOpen(pair,PERIOD_M1,1),high1=iHigh(pair,PERIOD_M1,1),low1=iLow(pair,PERIOD_M1,1),close1=iClose(pair,PERIOD_M1,1);
   double open2=iOpen(pair,PERIOD_M1,2),high2=iHigh(pair,PERIOD_M1,2),low2=iLow(pair,PERIOD_M1,2),close2=iClose(pair,PERIOD_M1,2);
   double open3=iOpen(pair,PERIOD_M1,3),close3=iClose(pair,PERIOD_M1,3);
   if(open1==0||high1==0||low1==0||close1==0||open2==0||close2==0||open3==0||close3==0)return "NEUTRAL";
   double haClose1=(open1+high1+low1+close1)/4.0,haClose2=(open2+high2+low2+close2)/4.0;
   double haOpen2_approx=(open3+close3)/2.0,haOpen1=(haOpen2_approx+haClose2)/2.0;
   if(haClose1>haOpen1)return "BULL";else if(haClose1<haOpen1)return "BEAR";return "NEUTRAL";
}

double GetPairVolumeRatio(string pair){double v1=iVolume(pair,PERIOD_M1,1),v2=iVolume(pair,PERIOD_M1,2);if(v2<=0)return 1.0;return v1/v2;}

void ScanSignals(){
   g_pairCount=0;string fn="OTC_Signals_Master.txt";string cur=Symbol();
   int h=FileOpen(fn,FILE_READ|FILE_TXT|FILE_SHARE_READ);if(h==INVALID_HANDLE)return;
   datetime now=TimeCurrent();
   while(!FileIsEnding(h)&&g_pairCount<5){
      string ln=FileReadString(h);if(StringLen(ln)<15)continue;
      int p1=StringFind(ln,"|"),p2=StringFind(ln,"|",p1+1),p3=StringFind(ln,"|",p2+1),p4=StringFind(ln,"|",p3+1);
      if(p1<0||p2<0||p3<0||p4<0)continue;
      string pair=StringSubstr(ln,0,p1);if(pair==cur)continue;
      string sig=StringSubstr(ln,p1+1,p2-p1-1);double conf=StringToDouble(StringSubstr(ln,p2+1,p3-p2-1));int ex=(int)StringToInteger(StringSubstr(ln,p4+1));
      if(conf<62)continue;if(ex<(int)(now-10))continue;
      string haDir=GetPairHADirection(pair);bool haMatch=false;
      if(sig=="CALL"&&haDir=="BULL")haMatch=true;if(sig=="PUT"&&haDir=="BEAR")haMatch=true;if(!haMatch)continue;
      double vr=GetPairVolumeRatio(pair);if(vr>2.0)continue;
      g_pairNames[g_pairCount]=pair;g_pairSigs[g_pairCount]=sig;g_pairConfs[g_pairCount]=conf;g_pairCount++;
   }
   FileClose(h);
}

void ReadSPM(){
   datetime cb=Time[0];if(cb==g_last_bar&&TimeCurrent()-g_spm_t<5)return;
   double v1=iCustom(NULL,PERIOD_M1,SPM_FILE,0,0),v2=iCustom(NULL,PERIOD_M1,SPM_FILE,1,0);
   if(v1!=EMPTY_VALUE&&v1!=0){double sm=0.7;g_rsc=g_rsc*(1.0-sm)+v1*sm;}
   if(v2!=EMPTY_VALUE&&v2!=0){double sm=0.7;g_tfa=g_tfa*(1.0-sm)+v2*sm;}
   g_last_bar=cb;g_spm_t=TimeCurrent();
}

//+------------------------------------------------------------------+
// INIT
//+------------------------------------------------------------------+
int OnInit(){
   InitNW();NuclearDeleteAll();
   resCount=0;supCount=0;lastSRBar=0;
   g_hrn_price=0;g_hrn_brk_bars=0;g_hrn_scan_bar=0;
   g_hrn_last_candle=0;g_hrn_pending=false;g_hrn_pending_price=0;
   g_nearest_res=0;g_nearest_sup=0;g_rj_cnt=0;g_pairCount=0;
   g_marketMode="RANGE";g_prevMode="";g_last_freeze_bar=0;
   g_lastNotified="";g_copiedPair="";g_accuracy=ValidateHistoricalAccuracy();
   g_acc_correct=0;g_acc_total=0;g_acc_lastBar=0;
   g_lastPredGreen=50.0;g_lastPredBar=0;g_lastLogBar=0;
   g_lossStreak=0;g_tradingStopped=false;g_stopStartTime=0;
   g_strategyType="NONE";g_strategySignal="WAIT";g_strategyReason="";
   g_frozen_gProb=50;g_frozen_rProb=50;g_calc_gProb=50;g_calc_rProb=50;
   g_commonCount=0;g_wickLineCount=0;g_tfa_detail="";g_htfLevelCount=0;g_lastLevelScan=0;
   g_mtfConfirmed=true;g_filterStatus="ALL CLEAR";
   g_isSideways=false;g_hrn_str="--";g_hrn_type_str="--";
   LoadMLWeights();EventSetTimer(1);
   
   Print("AIBRAIN v44.7 FIXED LOADED");
   Print("HRN Fix: Candle-close based (", HRN_CONFIRM_BARS, " closed candles needed)");
   Print("TFA Fix: M1 HA priority over M5 HA");
   Print("Round Number Steps: Major=",RN_MAJOR_STEP_PIPS,"pip Minor=",RN_MINOR_STEP_PIPS,"pip Micro=",RN_MICRO_STEP_PIPS,"pip");
   
   return INIT_SUCCEEDED;
}

//+------------------------------------------------------------------+
// DEINIT
//+------------------------------------------------------------------+
void OnDeinit(const int r){
   EventKillTimer();Comment("");
   for(int i=ObjectsTotal()-1;i>=0;i--){string nm=ObjectName(i);if(StringFind(nm,PFX)==0)ObjectDelete(nm);}
}

//+------------------------------------------------------------------+
// ON TIMER
//+------------------------------------------------------------------+
void OnTimer(){
   if(Bars<50)return;
   static datetime last5min=0;
   if(Time[0]/300!=last5min/300){DetectHiddenLevels();last5min=Time[0];}
   ReadSPM();CalcHA();UpdateHRN();UpdateSR();
   DetectCommonPoints();DetectWickRejections();
   DrawCommonPoints();DrawWickRejectLines();DrawHiddenLevels();DrawNearestSR();
   int cp=0;double brain=BrainSc(cp);double nb=NeuralBiasFast();double mw=MicroWick();bool bf=IsBrokerForce();
   double mai=CalcAdvancedMicroAI();int mts=CalcAdvancedMicroTrap();
   CalcPrediction(brain,nb,cp,mai,mts,g_rsc,bf,mw);
   FinalSignalEngine(brain,cp,mts);
   BroadcastSignal();ScanSignals();
   Draw();
}

//+------------------------------------------------------------------+
// ON CALCULATE
//+------------------------------------------------------------------+
int OnCalculate(const int rates_total,const int prev_calculated,
                const datetime &time[],const double &open[],
                const double &high[],const double &low[],const double &close[],
                const long &tick_volume[],const long &volume[],const int &spread[]){
   return(rates_total);
}
//+------------------------------------------------------------------+