XS警示腳本撰寫 盤中未過新高

如何撰寫盤中未過新高的警示腳本

先用跨頻率取1分K抓開盤時間，判斷第2根K棒有大於開盤第一根K，

之後回到tick主頻率，去判斷之後的收盤價同時在外盤2時，出現警示

value1 = GetField("時間","1")[3];
value3 = GetField("最高價","1")[2];
value4 = GetField("最高價","1")[3];
value5 = GetField("最高價","1")[2] - 0.2;
value6 = GetField("最高價","1")[1];


if date = currentdate and
(value1=84500 or value1 = 90000) and 
value3 > value4 and value6 > value5
then begin

    if date <> date[1] and value100 = 0
     then begin
        value100= 1;
        value10 = close;
     end;

    if close > value10 
     then begin 
        value10 = close;
     end
    else
     begin
        value10 = value10;
     end;


    if close = q_BestAsk2 and close = value10
    then ret = 1;

end;

以上分享，謝謝