Random numbers from file names -w/ BuddyAPI

Added on 10/9/2005

Compatibilities:
behavior D8_5 Mac
Required Xtras:
Buddy API

This item has not yet been rated

Gets random file names of the hard disk, gets a letter out of the file name,a nd creates a number from it. Use in the form rand(num, mode) Eg. rand(40, "float") would create floating point numbers up to 40 mode can be "float" or "integer" Put into a movie script to make available to all scripts.

on rand lim, mode
  --CREATES RANDOM NUMBERS FROM LETTERS IN FILE NAMES ON THE HARD DISK
  tString = string(the ticks)
  tCount = tString.char.count
  tVar = integer( tString.char[tCount] )
  tVar2 = integer( tString.char[tCount-1] )
  case tVar2 of
    1: --set 1 of numbers
      case tVar of
        0: cFile = 15
        1: cFile = 19
        2: cFile = 9
        3: cFile = 11
        4: cFile = 7
        5: cFile = 13
        6: cFile = 5
        7: cFile = 3
        8: cFile = 17
        9: cFile = 1
      end case
    2: --set 2 of numbers
      case tVar of
        0: cFile = 11
        1: cFile = 15
        2: cFile = 17
        3: cFile = 19
        4: cFile = 13
        5: cFile = 7
        6: cFile = 3
        7: cFile = 1
        8: cFile = 9
        9: cFile = 5
      end case
    3: --set 3 of numbers
      case tVar of
        0: cFile = 1
        1: cFile = 5
        2: cFile = 9
        3: cFile = 13
        4: cFile = 17
        5: cFile = 19
        6: cFile = 15
        7: cFile = 11
        8: cFile = 7
        9: cFile = 3
      end case
    4: --set 4 of numbers
      case tVar of
        0: cFile = 3
        1: cFile = 7
        2: cFile = 11
        3: cFile = 15
        4: cFile = 19
        5: cFile = 17
        6: cFile = 13
        7: cFile = 9
        8: cFile = 5
        9: cFile = 1
      end case
    5: --set 5 of numbers
      case tVar of
        0: cFile = 15
        1: cFile = 11
        2: cFile = 7
        3: cFile = 3
        4: cFile = 1
        5: cFile = 5
        6: cFile = 9
        7: cFile = 13
        8: cFile = 17
        9: cFile = 19
      end case
    6: --set 6 of numbers
      case tVar of
        0: cFile = 7
        1: cFile = 5
        2: cFile = 9
        3: cFile = 1
        4: cFile = 13
        5: cFile = 17
        6: cFile = 15
        7: cFile = 3
        8: cFile = 19
        9: cFile = 11
      end case
    7: --set 7 of numbers
      case tVar of
        0: cFile = 2
        1: cFile = 4
        2: cFile = 6
        3: cFile = 8
        4: cFile = 10
        5: cFile = 12
        6: cFile = 14
        7: cFile = 16
        8: cFile = 18
        9: cFile = 20
      end case
    8: --set 8 of numbers
      case tVar of
        0: cFile = 20
        1: cFile = 18
        2: cFile = 16
        3: cFile = 14
        4: cFile = 12
        5: cFile = 10
        6: cFile = 8
        7: cFile = 6
        8: cFile = 4
        9: cFile = 2
      end case
    9: --set 9 of numbers
      case tVar of
        0: cFile = 4
        1: cFile = 14
        2: cFile = 8
        3: cFile = 18
        4: cFile = 12
        5: cFile = 10
        6: cFile = 20
        7: cFile = 6
        8: cFile = 16
        9: cFile = 2
      end case
    0: --set 10 of numbers
      case tVar of
        0: cFile = 1
        1: cFile = 10
        2: cFile = 2
        3: cFile = 9
        4: cFile = 3
        5: cFile = 8
        6: cFile = 4
        7: cFile = 7
        8: cFile = 5
        9: cFile = 6
      end case
  end case
  driveList = badisklist()
  if driveList.getPos("c:") <> 0 then
    if the platform contains "Windows" then
      myPath = "C:"
    else
      myPath = driveList[1]
    end if
  else
    myPath = driveList[1]
  end if
  myFile = EMPTY
  repeat while myFile = EMPTY
    myFile = getNthFileNameInFolder(myPath, cFile)
    cFile = cFile-1
  end repeat

  tString = string(the milliseconds)
  tCount = tString.char.count
  tVar = integer( tString.char[tCount] )
  case tVar of
    0: cLetter= 1
    1: cLetter = 6
    2: cLetter = 2
    3: cLetter = 7
    4: cLetter = 3
    5: cLetter = 8
    6: cLetter = 4
    7: cLetter = 9
    8: cLetter = 5
    9: cLetter = 10
  end case
  myChar = ""
  repeat while myChar = ""
    myChar = myFile.char[cLetter]
    cLetter = cLetter-1
  end repeat
  myNum = chartonum(myChar)
  fNum = ( (myNum-32.0)/90.0 )*lim
  case mode of
    "integer":
      return integer(fNum)
    "float":
      return float(fNum)
  end case
end

Upload Provided by ABCUpload ASP

Contact

MMI
22 West Court Sq
Suite 2C
Newnan, GA 30263
USA

Fax - (206) 339-5833

Send e-mail