SARVANI INDICATOR for Amibroker (AFL)

MYVOL= IIf(((V-EMA(V,7))/EMA(V,7))*100>10,0,1);
VOLPERCENT=((V-EMA(V,7))/EMA(V,7))*100;
MYGAPUP=IIf(O>Ref(C,-1) AND O>Ref(O,-1) AND C>O AND ((C-Ref(C,-1))/Ref(C,-1))*100>1,1,0);
MYVALUE=IIf(MYGAPUP==1 AND Ref(MYGAPUP,-1)==1,1,0);
HPLUSL=EMA((H+L)/2,3);
OPLUSC=EMA((O+C)/2,3);
RSIM=(RSI(7)-Ref(RSI(7),-1))/Ref(RSI(7),-1);
MYINDI=RSI(7)*MFI(14);
VALUE1=IIf(( EMA(MYINDI,3)>EMA(MYINDI,5) AND MYINDI>LLV(MYINDI,4) AND  EMA(C,5)<EMA(C,10) AND MFI(14)<80 AND (H-L)>ATR(4) ),1,0) ;
VALUE2=IIf((EMA(MYINDI,3)<EMA(MYINDI,5) AND EMA(C,5)>EMA(C,10) AND MYINDI<HHV(MYINDI,4)AND EMA(ATR(4),4)<EMA(ATR(6),6) ),1,0) ;
Buy=VALUE1==1;
Sell=VALUE2==1 OR (Ref(C,-1)>Ref(O,-1) AND C<Ref(O,-1)) OR (C<O AND ((O-C)/O)*100>=4) ;

shapebuy=Buy*shapeUpArrow;
shapesell=Sell*shapeDownArrow;

color=IIf(Buy,colorGreen,IIf(C>Ref(C,-1),colorGreen,IIf(Sell,colorRed,colorBlack)));
Plot(Close,"close",Color,styleCandle);
PlotShapes(shapebuy,colorGreen,0,Low,Offset=-15);

VOLBUY=Buy AND VOLPERCENT>=20;

shapevol=VOLBUY*shapeUpTriangle;

VOLSELL=Sell AND VOLPERCENT>20;

shapevolsell=VOLSELL*shapeDownTriangle;



AlertIf( shapevol, "", "BUY @ " + C, 1 );
PlotShapes(shapevol,colorBlue,0,Low,Offset=-25);
PlotShapes(shapesell,colorRed,0,High,Offset=-15);
PlotShapes(shapevolsell,colorOrange,0,High,Offset=-25);
Title = Name() + " " + Date()+" " + EncodeColor( colorBlue ) +"**********SARVANI INDICATOR********" +EncodeColor( colorRed )
+ " OPEN.... " + O + "... HIGH... " + H + "... LOW... " + L + " ...CLOSE.... "+ C + "...VOLUME INC. %..." + ((V-EMA(V,7))/EMA(V,7))*100 + "\n";