Here's the script:
Code: Select all
// SPMC version
Inputs:
Letters("abcdefghijklmnopqrstuvwxyzabABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"),
LetterSize (10),
LetterColor(white),
LetterFont("Consolas"),
ShowOpen(true),
OpenColor(red);
Variables:
todaySession(0),
Counter(0),
LetterCounter(0),
TPOLetter(""),
MinM(1 POINT*MinMove);
Array:
PriceArray[1,100000](0),
TextArray[1,100000](0);
todaySession = CurrentSession(0);
if todaySession <> todaySession[1] then
LetterCounter = 0;
LetterCounter = LetterCounter + 1;
TPOLetter = midstr(Letters, LetterCounter, 1);
FOR Counter = Low/MinM to High/MinM begin
PriceArray[1, Counter] = Counter*MinM;
TextArray[1, Counter] = Text_New_dt (Datetime, PriceArray[1, Counter], TPOLetter);
If LetterCounter = 1 and Counter * MinM = Open and ShowOpen = true then
Text_SetColor(TextArray[1, Counter], Red)
else
Text_SetColor(TextArray[1, Counter], LetterColor) ;
text_setsize(TextArray[1, Counter], LetterSize ) ;
text_setfontname(TextArray[1, Counter], "LetterFont");
end ;