Advertisement
Guest User

Blaze - 20

a guest
Jul 15th, 2011
169
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 1.54 KB | None | 0 0
  1. LowDigit = {
  2.     [0] = "Zero",
  3.     [1] = "One",
  4.     [2] = "Two",
  5.     [3] = "Three",
  6.     [4] = "Four",
  7.     [5] = "Five",
  8.     [6] = "Six",
  9.     [7] = "Seven",
  10.     [8] = "Eight",
  11.     [9] = "Nine",
  12.     [10] = "Ten",
  13.     [11] = "Eleven",
  14.     [12] = "Twelve",
  15.     [13] = "Thirteen",
  16.     [14] = "Fourteen",
  17.     [15] = "Fifteen",
  18.     [16] = "Sixteen",
  19.     [17] = "Seventeen",
  20.     [18] = "Eighteen",
  21.     [19] = "Nineteen"}
  22.  
  23. NormalDigit = {
  24.     [2] = "Twenty",
  25.     [3] = "Thirty",
  26.     [4] = "Fourty",
  27.     [5] = "Fifty",
  28.     [6] = "Sixty",
  29.     [7] = "Seventy",
  30.     [8] = "Eighty",
  31.     [9] = "Ninety"}
  32.  
  33. function Pronounce(Number)
  34.     PronouceNumber = ""
  35.     local AndDigit = nil
  36.     local function Digit(Nr,And)
  37.         if (Nr > 99) then
  38.             if (Nr < 20) then PronouceNumber = PronouceNumber..LowDigit[Nr].." " end
  39.             PronouceNumber = PronouceNumber..LowDigit[math.floor(Nr/100)].." Hundred "
  40.             Nr = (Nr % 100)
  41.         end
  42.         if (And and Nr > 0) then PronouceNumber = PronouceNumber.."And " end
  43.         if (Nr > 19) then
  44.             PronouceNumber = PronouceNumber..NormalDigit[math.floor(Nr/10)].." "
  45.             Nr = (Nr % 10)
  46.         end
  47.         if (Nr > 0) then PronouceNumber = PronouceNumber..LowDigit[math.floor(Nr)].." " end
  48.     end
  49.     if (Number < 0) then PronouceNumber = "Minus " ; Number = math.abs(Number) end
  50.     if (Number > 999) then
  51.         Digit(math.floor(Number / 1000))
  52.         PronouceNumber = PronouceNumber.."Thousand "
  53.         Number = (Number % 1000)
  54.         AndDigit = true
  55.     elseif (Number > 99) then
  56.         AndDigit = true
  57.     elseif (Number == 0) then PronouceNumber = "Zero" end
  58.     Digit(Number,AndDigit)
  59.     print(PronouceNumber)
  60. end
  61.  
  62. for i = -100, 100, 1 do
  63.     Pronounce(i)
  64. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement