Contents
Articles
Behaviors
Books
Director News
Director Web Sites
FAQ
Games
Mailing Lists
News Groups
Project Examples
Reviews
Software
Tools
Useful Web Sites
Utilities
Xtras

Don't miss these
mPrint Designer
Faux Typing
Binary Xtra
Direct Media Balance Slider
Behavior Documentor
Open Help File
Limited Text Behavior
Sharp Image Export Xtra
Scale the screen
asASIOout
 

 

 

Behavior Sneakers

Added on 1/28/2000

 

Compatibilities:
behavior D6_5 D7 D8 Mac PC Shockwave

This item has not yet been rated

Author: MarkDaggett

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

 


Contact

MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA

Send e-mail