Sneakers

 

Compatibilities:

This item has not yet been rated

I forget now where I first saw it, I think maybe it was on Director Web, but there was a movie that simulated text being deocded on the fly. You may have seen this in several movies, Sneakers, Hackers or the Matrix. The basic visual effect is that the a string of numbers start out jumbled and then slowley comes into focus. Because each character in the word needs to be it"s own field member this is not really meant for a large body of text. A perfect use is like on an opening title or something.

-- Written by Mark Daggett 1999 (mark@flavoredthunder.com) -- Copyright 1999 Flavored Thunder Media. All rights reserved. -- For more free code go to: Http://www.flavoredthunder.com -- Use it till it is obsolete :) --sneaker property-- property pRandomList property pRandomNum property ptheSprite property pMagicChar property pSelectedChar on beginSprite me   set pRandomNum = 0   set pRandomList = ["1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X","Y", "Z", "!", "@", "#", "$", "%", "^", "&", "*", "(", ")", "{", "}", "", "/"]     set pTheSprite = the member of sprite the spriteNum of me   set pSelectedChar = "" end on enterFrame me   if pSelectedChar = pMagicChar then          put pMagicChar into field pTheSprite     return   end if   set pRandomNum = random(count(pRandomList))   put getAt(pRandomList, pRandomNum) into field ptheSprite   set pSelectedChar = getAt(pRandomList, pRandomNum)   if count (pRandomList) <=1 then     return   else     deleteAt(pRandomList, pRandomNum)   end if end on exitFrame me    end on getPropertyDescriptionList me      set pdlist to [:]   addprop pdlist, #pMagicChar, [#comment:"pMagicChar", #format:#string, #default:""]   return pdlist end getPropertyDescriptionList

Upload Provided by ABCUpload ASP