home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / JoeCrypt2201025262001.psc / binaryrandom.swf / scripts / DefineSprite_3 / frame_1 / DoAction.as
Encoding:
Text File  |  2001-05-24  |  196 b   |  17 lines
  1. txt2 = "";
  2. i = 0;
  3. while(i < 51)
  4. {
  5.    avar = random(100);
  6.    if(50 < avar)
  7.    {
  8.       newvar = "0";
  9.    }
  10.    if(avar < 50)
  11.    {
  12.       newvar = "1";
  13.    }
  14.    txt2 += newvar;
  15.    i++;
  16. }
  17.