function Sub(clip s, string okay, int offset, string "font_", int "size__"){
    length_=StrLen(okay)
    f=offset+1
    ##size_=(length_<30*f) ? 48 : (length_<55*f) ? 36 : (length_>87*f) ? Error_Text_Is_Too_Long() : 24
    ##fact_=
    size_=(length_<30*f) ? 48 : (length_<=55*f) ? 36 : (length_>87*f) ? Error_Text_Is_Too_Long() : Floor((-3*float(length_))/(8*f)+float(453/8))
    size_=(size_<=24 || f>2) ? 24 : size_
    size_=(defined(size__)) ? size__ : size_
    offset_=offset*size_
    font_=(defined(font_)) ? font_ : "Lucidia Console"
	ss=SubtitleEx(s,okay, x = s.Width/2+2, y= s.Height-16-offset_, effects = "bcsssf(10,10)", textcolor = $20000000, halocolor = $00000000,size=size_,font=font_)
    return SubtitleEx(ss,okay, x = s.Width/2, y= s.Height-18-offset_, effects = "bcf(10,10)", textcolor = $00FFFFFF, halocolor = $00000000,size=size_,font=font_)
}