Script Not Finished Data = { ones={[0]="",[1]="U",[2]="D",[3]="T",[4]="Q",[5]="q",[6]="S",[7]="s",[8]="O",[9]="N",[10]="D",[11]="UD"}, tens={[0]="",[1]="D",[2]="V",[3]="TR",[4]="QU",[5]="QI",[6]="Sx",[7]="Sp",[8]="Oc",[9]="No"}, hundreds={[0]="",[1]="Ce",[2]="Du",[3]="Te",[4]="Qr",[5]="Qn",[6]="Se",[7]="St",[8]="Ot",[9]="Nn"}, Tier2={[0]="",[1]="Mil",[2]="Mic",[3]="Nan",[4]="Pic",[5]="Fem",[6]="Att",[7]="Zoc",[8]="Yoc",[9]="Xon",[10]="Ett",[11]="Me"} } function digit(n,Digit) return math.floor(math.fmod(n/10^Digit,10)) end function abbreviation(n) local i=0 result = "" repeat result = block(math.floor(math.fmod(n/1000^i,1000)),i)..Data.Tier2[i]..result i+=1 until 3*i > math.log10(n) return result end function block(n,what) if n<3 and what==0 then return string.sub("MB",n,n) else if n==1 then return "" else return Data.ones[digit(n,0)]..Data.tens[digit(n,1)]..Data.hundreds[digit(n,2)] end end end function abbreviate(n,sign)