おきまりのコツコツドカンorジリ負け　[ライブ口座では使わないでください]
https://i.imgur.com/ov3Zsv3.jpg


//+-[Ro500.mq4 USD/JPY Pibot]-+

//-input parameters

extern double tp = 20;
extern double sl = 80;
extern double lots = 0.01;
extern int mn = 500;

bool trd = true; double cls,supv,yhi,ylo,ycl,pp,r1,r2,r3,s1,s2,s3;
int ticket,po,posi,tod,u,toa,tob,toc,t,s,spr,bar;

int init()
{
return(0);
}

int start()
{

s = 0; t = 0; u = 0; po = 0; spr = 0; bar = 0; toa = 0; tob = 0; toc = 0; tod = 0; posi = 0;
ticket = -1; posi = POS(); supv = SUV(); cls = iClose("USDJPY",PERIOD_M1,0);

//-[Pivot]

yhi = iHigh("USDJPY",PERIOD_D1,1); ylo = iLow("USDJPY",PERIOD_D1,1); ycl = iClose("USDJPY",PERIOD_D1,1);

pp = (yhi + ylo + ycl)/3; r1 = pp + (pp - ylo); r2 = pp + (yhi - ylo); r3 = r1 + (yhi - ylo);
s1 = pp - (yhi - pp); s2 = pp - (yhi - ylo); s3 = s1 - (yhi - ylo);

//-[Spread]

spr = MarketInfo(Symbol(),MODE_SPREAD);
if (spr >= 50) trd = false; else trd = true;

//-[Comment]

Comment ("\n Spread= ",spr, " posi= ",posi, " tp= ",tp, " lots= ",lots," mn= ", mn,
" R3= ",r3," R2= ",r2," R1= ",r1, " Pivot= ",pp," S1= ",s1," S2= ",s2, " S3= ",s3," SUV= ",supv," Close= ",cls);

toa = OrdersTotal();
for(s = toa - 1; 0 <= s; s--)
{
if (!OrderSelect(s, SELECT_BY_POS, MODE_TRADES))
if (OrderSymbol() == Symbol() && OrderMagicNumber() == mn)
{
return(0);
}
}