Here is a piece of code for phantom trading.

// Equity curve (phantom) trading
void equityCurve()
{
#ifdef PHANTOMTIME
vars Equities = series(LowPass(series(ProfitClosed+ProfitOpen),8));
var EquitySmooth = LowPass(Equities,PHANTOMTIME);
if(falling(Equities) && Equities[0] < EquitySmooth && LossStreakLong+LossStreakShort > 2) {
setf(TradeMode,TR_PHANTOM);
} else {
resf(TradeMode,TR_PHANTOM);
}
#endif
return;
}